From 500a04d339fc7e52a736982150a697c96cc9e99d Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 22 Aug 2025 15:27:11 +0800 Subject: [PATCH] ~ --- 坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof | 2 +- 坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr | 4 +- 坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm | 10 +- 坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas | 414 +++++++++++----------- 坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm | 17 +- 坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas | 19 +- 贝其贸易管理/U_GetDllForm.pas | 4 +- 贝其贸易管理/U_frmCgBjPut.pas | 79 ++++- 8 files changed, 319 insertions(+), 230 deletions(-) diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof index b2ae830..f350eec 100644 --- a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\Ŀ\\뵥(PBMDDJ.dll)\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7wmbeiqi\뵥(PBMDDJ.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr index 37c758b..61577fb 100644 --- a/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr +++ b/坯布码单待检(PBMDDJ.dll)/PBMDDJ.dpr @@ -1,9 +1,9 @@ library PBMDDJ; uses - SysUtils, + SysUtils, classes, - forms, + forms, WinTypes, WinProcs, U_GetDllForm in 'U_GetDllForm.pas', diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm index d589089..7a2998e 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.dfm @@ -1,6 +1,6 @@ object frmDJBCKInPut: TfrmDJBCKInPut - Left = 55 - Top = 111 + Left = 182 + Top = 266 Width = 1283 Height = 502 Align = alClient @@ -21,11 +21,11 @@ object frmDJBCKInPut: TfrmDJBCKInPut Left = 0 Top = 33 Width = 1267 - Height = 431 + Height = 430 Align = alClient TabOrder = 0 object Tv1: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource3 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -280,7 +280,7 @@ object frmDJBCKInPut: TfrmDJBCKInPut Properties.OnButtonClick = v1Column16PropertiesButtonClick Visible = False HeaderAlignmentHorz = taCenter - Hidden = True + VisibleForCustomization = False Width = 79 end object v1Column12: TcxGridDBColumn diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas index b36b94f..ddb6fd2 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas @@ -4,12 +4,25 @@ interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, - Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, - ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView, - cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, - cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, - cxTextEdit; + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, cxCalendar, cxDropDownEdit, ComCtrls, ToolWin, + cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, + cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, + cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxLookAndFeels, + cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter, cxNavigator; type TfrmDJBCKInPut = class(TForm) @@ -57,54 +70,47 @@ type procedure FormShow(Sender: TObject); procedure TBDelClick(Sender: TObject); procedure TBSaveClick(Sender: TObject); - procedure v1Column3PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column14PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v2Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column5PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column11PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column16PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column13PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); - procedure v1Column18PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); + procedure v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); private { Private declarations } - function SaveCKData():Boolean; + function SaveCKData(): Boolean; public { Public declarations } - FBCId:String; + FBCId: string; end; var frmDJBCKInPut: TfrmDJBCKInPut; implementation + uses - U_DataLink,U_RTFun,U_ClothContractListHZCX,U_ZDYHelp, U_ZdyAttachGYS,U_ProductOrderListSel; + U_DataLink, U_RTFun, U_ClothContractListHZCX, U_ZDYHelp, U_ZdyAttachGYS, + U_ProductOrderListSel; {$R *.dfm} -procedure TfrmDJBCKInPut.FormClose(Sender: TObject; - var Action: TCloseAction); +procedure TfrmDJBCKInPut.FormClose(Sender: TObject; var Action: TCloseAction); begin - Action:=caFree; + Action := caFree; end; procedure TfrmDJBCKInPut.TBAddClick(Sender: TObject); begin - if CDS_Sub.IsEmpty=False then + if CDS_Sub.IsEmpty = False then begin CopyAddRowCDS(CDS_Sub); with CDS_Sub do begin Edit; - FieldByName('SPID').Value:=null; + FieldByName('SPID').Value := null; // FieldByName('SPID').Value:=null; post; end; @@ -114,21 +120,20 @@ begin with CDS_Sub do begin Append; - FieldByName('CRTime').Value:=Trim(FormatDateTime('yyyy-MM-dd',Now)); - FieldByName('CRType').Value:='ӹ'; - FieldByName('ToFactoryName').Value:='ֿ'; - FieldByName('SPType').Value:='Ʒ'; - FieldByName('QtyUnit').Value:='Kg'; + FieldByName('CRTime').Value := Trim(FormatDateTime('yyyy-MM-dd', Now)); + FieldByName('CRType').Value := 'ӹ'; + FieldByName('ToFactoryName').Value := 'ֿ'; + FieldByName('SPType').Value := 'Ʒ'; + FieldByName('QtyUnit').Value := 'Kg'; Post; end; end; - - end; -function TfrmDJBCKInPut.SaveCKData():Boolean; + +function TfrmDJBCKInPut.SaveCKData(): Boolean; var - FCRID,Maxno,FFSPID:string; + FCRID, Maxno, FFSPID: string; begin try ADOQueryCmd.Connection.BeginTrans; @@ -210,61 +215,66 @@ begin begin Close; sql.Clear; - sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); open; end; - FFSPID:=Trim(ADOQueryTemp.fieldbyname('SPID').AsString); - if Trim(FFSPID)='' then + FFSPID := Trim(ADOQueryTemp.fieldbyname('SPID').AsString); + if Trim(FFSPID) = '' then begin - if GetLSNo(ADOQueryCmd,Maxno,'DR','CK_SXPB_CR',3,1)=False then + if GetLSNo(ADOQueryCmd, Maxno, 'DR', 'CK_SXPB_CR', 3, 1) = False then begin - Result:=False; + Result := False; ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ȡ첼ʧ!','ʾ',0); + Application.MessageBox('ȡ첼ʧ!', 'ʾ', 0); Exit; end; - end else + end + else begin - Maxno:=Trim(FFSPID); + Maxno := Trim(FFSPID); end; with ADOQueryCmd do begin Close; sql.Clear; - sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(Maxno) + ''''); Open; end; with ADOQueryCmd do begin - if Trim(FFSPID)='' then + if Trim(FFSPID) = '' then begin Append; - end else - begin - Edit; - end; - FieldByName('SPID').Value:=Trim(Maxno); - FieldByName('FZSPID').Value:=Trim(Maxno); - FieldByName('CKName').Value:='첼'; - FieldByName('FactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); - FieldByName('FromFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); - FieldByName('ToFactoryNo').Value:=Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); - FieldByName('ORDMainIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); - FieldByName('ORDSubIdRK').Value:=Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); - FieldByName('CRFlag').Value:=''; - FieldByName('CRQtyFlag').Value:=1; - //FieldByName('CRID').Value:=FCRID; - RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_Sub,'CK_SXPB_CR',2); - if Trim(FFSPID)='' then - FieldByName('Filler').Value:=Trim(DName) + end else begin - FieldByName('Editer').Value:=Trim(DName); - FieldByName('EditTime').Value:=SGetServerDate(ADOQueryTemp); + Edit; end; - if Trim(CDS_Sub.fieldbyname('OrderNo').AsString)<>'' then + FieldByName('SPID').Value := Trim(Maxno); + FieldByName('FZSPID').Value := Trim(Maxno); + FieldByName('CKName').Value := '첼'; + FieldByName('FactoryNo').Value := Trim(CDS_Sub.fieldbyname('FactoryNo').AsString); + FieldByName('FactoryName').Value := Trim(CDS_Sub.fieldbyname('FactoryName').AsString); + FieldByName('FromFactoryNo').Value := Trim(CDS_Sub.fieldbyname('FromFactoryNo').AsString); + FieldByName('FromFactoryName').Value := Trim(CDS_Sub.fieldbyname('FromFactoryName').AsString); + FieldByName('ToFactoryNo').Value := Trim(CDS_Sub.fieldbyname('ToFactoryNo').AsString); + FieldByName('ToFactoryName').Value := Trim(CDS_Sub.fieldbyname('ToFactoryName').AsString); + FieldByName('ORDMainIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDMainIdRK').AsString); + FieldByName('ORDSubIdRK').Value := Trim(CDS_Sub.fieldbyname('ORDSubIdRK').AsString); + FieldByName('CRFlag').Value := ''; + FieldByName('CRQtyFlag').Value := 1; + //FieldByName('CRID').Value:=FCRID; + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CK_SXPB_CR', 2); + if Trim(FFSPID) = '' then + FieldByName('Filler').Value := Trim(DName) + else begin - FieldByName('QCOrderNo').Value:=Trim(CDS_Sub.fieldbyname('OrderNo').AsString); + FieldByName('Editer').Value := Trim(DName); + FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp); + end; + if Trim(CDS_Sub.fieldbyname('OrderNo').AsString) <> '' then + begin + FieldByName('QCOrderNo').Value := Trim(CDS_Sub.fieldbyname('OrderNo').AsString); end; Post; end; @@ -274,21 +284,21 @@ begin sql.Clear; sql.Add('Update CK_SXPB_CR Set MXKCQty=(select sum(isnull(Qty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); sql.Add(',MXKCPiQty=(select sum(isnull(PiQty,0)*CRQtyFlag) from CK_SXPB_CR A where A.FZSPID=CK_SXPB_CR.SPID)'); - sql.Add(' where SPID='''+Trim(Maxno)+''''); + sql.Add(' where SPID=''' + Trim(Maxno) + ''''); ExecSQL; end; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from CK_SXPB_CR where SPID='''+Trim(Maxno)+''''); + sql.Add('select * from CK_SXPB_CR where SPID=''' + Trim(Maxno) + ''''); Open; end; - if ADOQueryTemp.FieldByName('MXKCQty').Value<0 then + if ADOQueryTemp.FieldByName('MXKCQty').Value < 0 then begin CDS_Sub.DisableControls; ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('Сڳܱ!','ʾ',0); + Application.MessageBox('Сڳܱ!', 'ʾ', 0); Exit; end; {with ADOQueryCmd do @@ -323,7 +333,7 @@ begin Exit; end; } Edit; - FieldByName('SPID').Value:=Trim(Maxno); + FieldByName('SPID').Value := Trim(Maxno); //FieldByName('CRID').Value:=Trim(FCRID); Post; Next; @@ -331,25 +341,26 @@ begin end; CDS_Sub.EnableControls; ADOQueryCmd.Connection.CommitTrans; - Result:=True; + Result := True; except - Result:=False; + Result := False; ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('쳣!','ʾ',0); + Application.MessageBox('쳣!', 'ʾ', 0); end; end; + procedure TfrmDJBCKInPut.TBCloseClick(Sender: TObject); begin - WriteCxGrid('첼Ǽ',Tv1,'첼ֿ'); + WriteCxGrid('첼Ǽ', Tv1, '첼ֿ'); Close; end; procedure TfrmDJBCKInPut.FormShow(Sender: TObject); var - fsj:String; + fsj: string; begin - ReadCxGrid('첼Ǽ',Tv1,'첼ֿ'); + ReadCxGrid('첼Ǽ', Tv1, '첼ֿ'); with ADOQueryTemp do begin Close; @@ -361,65 +372,69 @@ begin sql.Add(' ,PRTkuanNo=(select PRTkuanNo from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); sql.Add(' ,PRTHX=(select PRTHX from JYOrder_Sub JM where JM.SubId=A.OrdSubIdRK )'); sql.Add(' from CK_SXPB_CR A'); - sql.Add(' where SPID='''+Trim(FBCId)+''''); + sql.Add(' where SPID=''' + Trim(FBCId) + ''''); Open; end; - SCreateCDS20(ADOQueryTemp,CDS_Sub); - SInitCDSData20(ADOQueryTemp,CDS_Sub); - if CDS_Sub.IsEmpty then Exit; + SCreateCDS20(ADOQueryTemp, CDS_Sub); + SInitCDSData20(ADOQueryTemp, CDS_Sub); + if CDS_Sub.IsEmpty then + Exit; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('select * from CK_SXPB_CR where FZSPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); sql.Add(' and CRQtyFlag=-1'); Open; end; - if ADOQueryTemp.IsEmpty=False then + if ADOQueryTemp.IsEmpty = False then begin - v1Column4.Options.Focusing:=False; + v1Column4.Options.Focusing := False; // v1Column15.Options.Focusing:=False; - v1Column13.Options.Focusing:=False; - v1Column14.Options.Focusing:=False; - v2Column1.Options.Focusing:=False; - v1Column8.Options.Focusing:=False; - v1Column7.Options.Focusing:=False; - v1Column1.Options.Focusing:=False; - v1Column10.Options.Focusing:=False; - v1Column11.Options.Focusing:=False; + v1Column13.Options.Focusing := False; + v1Column14.Options.Focusing := False; + v2Column1.Options.Focusing := False; + v1Column8.Options.Focusing := False; + v1Column7.Options.Focusing := False; + v1Column1.Options.Focusing := False; + v1Column10.Options.Focusing := False; + v1Column11.Options.Focusing := False; Exit; - end else + end + else begin - v1Column4.Options.Focusing:=True; + v1Column4.Options.Focusing := True; //v1Column15.Options.Focusing:=True; - v1Column13.Options.Focusing:=True; - v1Column14.Options.Focusing:=True; - v2Column1.Options.Focusing:=True; - v1Column8.Options.Focusing:=True; - v1Column7.Options.Focusing:=True; - v1Column1.Options.Focusing:=True; - v1Column10.Options.Focusing:=True; - v1Column11.Options.Focusing:=True; + v1Column13.Options.Focusing := True; + v1Column14.Options.Focusing := True; + v2Column1.Options.Focusing := True; + v1Column8.Options.Focusing := True; + v1Column7.Options.Focusing := True; + v1Column1.Options.Focusing := True; + v1Column10.Options.Focusing := True; + v1Column11.Options.Focusing := True; end; end; procedure TfrmDJBCKInPut.TBDelClick(Sender: TObject); begin - if CDS_Sub.IsEmpty then Exit; - if Trim(CDS_Sub.fieldbyname('SPID').AsString)<>'' then + if CDS_Sub.IsEmpty then + Exit; + if Trim(CDS_Sub.fieldbyname('SPID').AsString) <> '' then begin - if Application.MessageBox('ȷҪɾ','ʾ',32+4)<>IDYES then Exit; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; with ADOQueryTemp do begin Close; sql.Clear; - sql.Add('select * from CK_SXPB_CR where FZSPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add('select * from CK_SXPB_CR where FZSPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); sql.Add(' and CRQtyFlag=-1'); Open; end; - if ADOQueryTemp.IsEmpty=False then + if ADOQueryTemp.IsEmpty = False then begin - Application.MessageBox('г¼ɾ!','ʾ',0); + Application.MessageBox('г¼ɾ!', 'ʾ', 0); Exit; end; try @@ -428,17 +443,18 @@ begin begin Close; sql.Clear; - sql.Add(' delete CK_SXPB_CR where SPID='''+Trim(CDS_Sub.fieldbyname('SPID').AsString)+''''); + sql.Add(' delete CK_SXPB_CR where SPID=''' + Trim(CDS_Sub.fieldbyname('SPID').AsString) + ''''); ExecSQL; end; ADOQueryCmd.Connection.CommitTrans; CDS_Sub.Delete; except ADOQueryCmd.Connection.RollbackTrans; - Application.MessageBox('ɾ쳣!','ʾ',0); + Application.MessageBox('ɾ쳣!', 'ʾ', 0); end; - end else + end + else begin CDS_Sub.Delete; end; @@ -447,80 +463,80 @@ end; procedure TfrmDJBCKInPut.TBSaveClick(Sender: TObject); begin - if CDS_Sub.IsEmpty then Exit; - if CDS_Sub.Locate('CRTime',null,[])=True then + if CDS_Sub.IsEmpty then + Exit; + if CDS_Sub.Locate('CRTime', null, []) = True then begin - Application.MessageBox('ʱ䲻Ϊ!','ʾ',0); + Application.MessageBox('ʱ䲻Ϊ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('CRType',null,[])=True then + if CDS_Sub.Locate('CRType', null, []) = True then begin - Application.MessageBox('ͲΪ!','ʾ',0); + Application.MessageBox('ͲΪ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('SPName',null,[])=True then + if CDS_Sub.Locate('SPName', null, []) = True then begin - Application.MessageBox('ƷΪ!','ʾ',0); + Application.MessageBox('ƷΪ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('OrderNo',null,[])=True then + if CDS_Sub.Locate('OrderNo', null, []) = True then begin - Application.MessageBox('ŲΪ!','ʾ',0); + Application.MessageBox('ŲΪ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('ToFactoryName',null,[])=True then + if CDS_Sub.Locate('ToFactoryName', null, []) = True then begin - Application.MessageBox('ŹΪ!','ʾ',0); + Application.MessageBox('ŹΪ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('FactoryName',null,[])=True then + if CDS_Sub.Locate('FactoryName', null, []) = True then begin - Application.MessageBox('ӹΪ!','ʾ',0); + Application.MessageBox('ӹΪ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('PiQty',null,[])=True then + if CDS_Sub.Locate('PiQty', null, []) = True then begin - Application.MessageBox('ƥΪ!','ʾ',0); + Application.MessageBox('ƥΪ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('Qty',null,[])=True then + if CDS_Sub.Locate('Qty', null, []) = True then begin - Application.MessageBox('Ϊ!','ʾ',0); + Application.MessageBox('Ϊ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('QtyUnit',null,[])=True then + if CDS_Sub.Locate('QtyUnit', null, []) = True then begin - Application.MessageBox('λΪ!','ʾ',0); + Application.MessageBox('λΪ!', 'ʾ', 0); Exit; end; - if CDS_Sub.Locate('CRType;FromFactoryName',VarArrayOf(['˻',Null]),[loPartialKey])=True then + if CDS_Sub.Locate('CRType;FromFactoryName', VarArrayOf(['˻', Null]), [loPartialKey]) = True then begin - Application.MessageBox('˻صݣԹΪ!','ʾ',0); + Application.MessageBox('˻صݣԹΪ!', 'ʾ', 0); Exit; end; if SaveCKData() then begin - Application.MessageBox('ɹ!','ʾ',0); + Application.MessageBox('ɹ!', 'ʾ', 0); //ModalResult:=1; Exit; end; end; -procedure TfrmDJBCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmDJBCKInPut.v1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='SXKuWei'; - flagname:='λ'; - if ShowModal=1 then + flag := 'SXKuWei'; + flagname := 'λ'; + if ShowModal = 1 then begin with Self.CDS_Sub do begin Edit; - FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); end; end; end; @@ -529,22 +545,21 @@ begin end; end; -procedure TfrmDJBCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmDJBCKInPut.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); with frmZdyAttachGYS do begin - if ShowModal=1 then + if ShowModal = 1 then begin with Self.CDS_Sub do begin edit; - FieldByName('FactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; - FieldByName('FactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); - FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; - FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('FactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('FromFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FromFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); //Post; end; end; @@ -555,21 +570,20 @@ begin end; -procedure TfrmDJBCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmDJBCKInPut.v2Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='MPRTCodeName'; - flagname:='ӹ'; - if ShowModal=1 then + flag := 'MPRTCodeName'; + flagname := 'ӹ'; + if ShowModal = 1 then begin with Self.CDS_Sub do begin Edit; - FieldByName('SPName').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('SPName').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); end; end; end; @@ -578,21 +592,20 @@ begin end; end; -procedure TfrmDJBCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmDJBCKInPut.v1Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='KuWei'; - flagname:='λ'; - if ShowModal=1 then + flag := 'KuWei'; + flagname := 'λ'; + if ShowModal = 1 then begin with Self.CDS_Sub do begin Edit; - FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); end; end; end; @@ -601,20 +614,19 @@ begin end; end; -procedure TfrmDJBCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmDJBCKInPut.v1Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); with frmZdyAttachGYS do begin - if ShowModal=1 then + if ShowModal = 1 then begin with Self.CDS_Sub do begin edit; - FieldByName('ToFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; - FieldByName('ToFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('ToFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('ToFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); //Post; end; end; @@ -624,20 +636,19 @@ begin end; end; -procedure TfrmDJBCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmDJBCKInPut.v1Column16PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZdyAttachGYS:=TfrmZdyAttachGYS.Create(Application); + frmZdyAttachGYS := TfrmZdyAttachGYS.Create(Application); with frmZdyAttachGYS do begin - if ShowModal=1 then + if ShowModal = 1 then begin with Self.CDS_Sub do begin edit; - FieldByName('FromFactoryNo').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString) ; - FieldByName('FromFactoryName').Value:=Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); + FieldByName('FromFactoryNo').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyCode').AsString); + FieldByName('FromFactoryName').Value := Trim(frmZdyAttachGYS.CDS_HZ.fieldbyname('ZdyName').AsString); //Post; end; end; @@ -647,30 +658,29 @@ begin end; end; -procedure TfrmDJBCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmDJBCKInPut.v1Column13PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmProductOrderListSel:=TfrmProductOrderListSel.Create(Application); + frmProductOrderListSel := TfrmProductOrderListSel.Create(Application); with frmProductOrderListSel do begin - if ShowModal=1 then + if ShowModal = 1 then begin with Self.CDS_Sub do begin Edit; - FieldByName('ORDMainIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); - FieldByName('ORDSubIdRK').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); - FieldByName('OrderNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); - FieldByName('SOrddefstr1').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); - FieldByName('PRTColor').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); - FieldByName('PRTHX').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); - FieldByName('SPName').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString); - FieldByName('SPSpec').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTSpec').AsString); - FieldByName('SPCF').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCF').AsString); - FieldByName('SPMF').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString); - FieldByName('SPKZ').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString); - FieldByName('prtkuanNo').Value:=Trim(frmProductOrderListSel.Order_Main.fieldbyname('prtkuanNo').AsString); + FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MainId').AsString); + FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString); + FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString); + FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString); + FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString); + FieldByName('PRTHX').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTHX').AsString); + FieldByName('SPName').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCodeName').AsString); + FieldByName('SPSpec').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTSpec').AsString); + FieldByName('SPCF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTCF').AsString); + FieldByName('SPMF').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTMF').AsString); + FieldByName('SPKZ').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('MPRTKZ').AsString); + FieldByName('prtkuanNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('prtkuanNo').AsString); end; end; end; @@ -679,21 +689,20 @@ begin end; end; -procedure TfrmDJBCKInPut.v1Column18PropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); +procedure TfrmDJBCKInPut.v1Column18PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try - frmZDYHelp:=TfrmZDYHelp.Create(Application); + frmZDYHelp := TfrmZDYHelp.Create(Application); with frmZDYHelp do begin - flag:='KuWei'; - flagname:='λ'; - if ShowModal=1 then + flag := 'KuWei'; + flagname := 'λ'; + if ShowModal = 1 then begin with Self.CDS_Sub do begin Edit; - FieldByName('KuWei').Value:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); + FieldByName('KuWei').Value := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString); end; end; end; @@ -703,3 +712,4 @@ begin end; end. + diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm index ccf6be2..f0e69c0 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.dfm @@ -1,6 +1,6 @@ object frmDJBRKList: TfrmDJBRKList - Left = -8 - Top = -8 + Left = 216 + Top = 189 Width = 1378 Height = 754 Caption = #24453#26816#24067#20837#24211#21015#34920 @@ -435,11 +435,11 @@ object frmDJBRKList: TfrmDJBRKList Left = 0 Top = 123 Width = 1362 - Height = 593 + Height = 592 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView - NavigatorButtons.ConfirmDelete = False + Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -695,8 +695,8 @@ object frmDJBRKList: TfrmDJBRKList Properties.ReadOnly = True Visible = False HeaderAlignmentHorz = taCenter - Hidden = True Options.Editing = False + VisibleForCustomization = False Width = 79 end object v1Column12: TcxGridDBColumn @@ -752,10 +752,11 @@ object frmDJBRKList: TfrmDJBRKList Font.Name = #23435#20307 Font.Style = [] ParentFont = False - Style = 9 - TabIndex = 0 TabOrder = 3 - Tabs.Strings = ( + Properties.CustomButtons.Buttons = <> + Properties.Style = 9 + Properties.TabIndex = 0 + Properties.Tabs.Strings = ( #26410#23457#26680 #24050#23457#26680 #20840#37096) diff --git a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas index cb0d201..56bee68 100644 --- a/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas +++ b/坯布码单待检(PBMDDJ.dll)/U_DJBRKList.pas @@ -11,7 +11,22 @@ uses cxGrid, StdCtrls, ComCtrls, ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, - cxCalendar, cxButtonEdit, cxTextEdit, cxPC, BtnEdit; + cxCalendar, cxButtonEdit, cxTextEdit, cxPC, BtnEdit, cxLookAndFeels, + cxLookAndFeelPainters, dxSkinsCore, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, + dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, + dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, + dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, + dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, + dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, + dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, + dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter, + cxNavigator, dxBarBuiltInMenu; type TfrmDJBRKList = class(TForm) @@ -618,7 +633,7 @@ begin begin Close; sql.Clear; - sql.Add('update CK_SXPB_CR SET factoryName='''+trim(factoryName1.Text)+''' where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); + sql.Add('update CK_SXPB_CR SET factoryName='''+trim(factoryName1.Text)+''',edittime=getdate() where SPID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); // sql.Add('update WFB_MJJY SET factoryName='''+trim(factoryName1.Text)+''' where APID='''+Trim(CDS_Main.fieldbyname('SPID').AsString)+''''); ExecSQL; end; diff --git a/贝其贸易管理/U_GetDllForm.pas b/贝其贸易管理/U_GetDllForm.pas index 1409f9c..f9fea8a 100644 --- a/贝其贸易管理/U_GetDllForm.pas +++ b/贝其贸易管理/U_GetDllForm.pas @@ -974,8 +974,8 @@ begin windowState := mstate ; BorderStyle := mborderstyle; //show; - end; - end + end; + end else frmFabList.BringToFront; // diff --git a/贝其贸易管理/U_frmCgBjPut.pas b/贝其贸易管理/U_frmCgBjPut.pas index 05b13d0..8043895 100644 --- a/贝其贸易管理/U_frmCgBjPut.pas +++ b/贝其贸易管理/U_frmCgBjPut.pas @@ -10,7 +10,20 @@ uses cxGridTableView, cxGridDBTableView, cxGrid, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, DBClient, BtnEdit, cxBlobEdit, cxShellComboBox, cxDropDownEdit, cxFontNameComboBox, cxButtonEdit, cxCurrencyEdit, - cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxScrollBox, cxTextEdit; + cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxScrollBox, cxTextEdit, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, + dxSkinXmas2008Blue, dxSkinscxPCPainter; type TfrmCgBjPut = class(TForm) @@ -668,9 +681,35 @@ begin end; procedure TfrmCgBjPut.NJZBChange(Sender: TObject); +var + sumPrice: double; begin - PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[1] + StrToFloatDef(Trim(JGPrice.Text), 0)); + if CDS_ZB.IsEmpty then + exit; + try + sumPrice := 0; + + with CDS_ZB do + begin + DisableControls; + First; + while not eof do + begin + +// sumPrice := RoundFloat(sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat, 2); + sumPrice := sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat; + next; + end; + EnableControls; + end; + + except + + end; + +// PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[4] + StrToFloatDef(Trim(JGPrice.Text), 0)); + PBPrice.Text := FloatToStr((sumPrice) + StrToFloatDef(Trim(JGPrice.Text), 0)); end; @@ -779,6 +818,7 @@ procedure TfrmCgBjPut.TV2Column1PropertiesEditValueChanged(Sender: TObject); var mvalue, FFieldName: string; Fzb, Fsj, FzbPrice, Fsh: Double; + sumPrice: double; i: Integer; begin mvalue := TcxTextEdit(Sender).EditingText; @@ -825,8 +865,31 @@ begin FieldByName('zbPrice').Value := FzbPrice; Post; end; -// p:=TV2.DataController.Summary.FooterSummaryValues[1]; - PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[1] + StrToFloatDef(Trim(JGPrice.Text), 0)); + if CDS_ZB.IsEmpty then + exit; + try + sumPrice := 0; + + with CDS_ZB do + begin + DisableControls; + First; + while not eof do + begin + +// sumPrice := RoundFloat(sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat, 2); + sumPrice := sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat; + next; + end; + EnableControls; + end; + + except + + end; + + PBPrice.Text := FloatToStr((sumPrice) + StrToFloatDef(Trim(JGPrice.Text), 0)); +// PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[1] + StrToFloatDef(Trim(JGPrice.Text), 0)); // with ADOQueryCmd do // begin // Close; @@ -1051,16 +1114,16 @@ begin with Cds_Sub do begin - Edit; - + Edit; + FieldByName(FFieldName).Value := mvalue; Post; // FSPbsl := Cds_Sub.fieldbyname('SPbsl').AsFloat; // Fzb := Cds_Sub.fieldbyname('Szb').AsFloat / 100; // Fsh := Cds_Sub.fieldbyname('Ssh').AsFloat / 100; FSPbsl := Cds_Sub.fieldbyname('SPbsl').AsFloat; - Fzb := strtofloatdef((Cds_Sub.fieldbyname('Szb').Asstring),0);//Cds_Sub.fieldbyname('Szb').AsFloat / 100; - Fsh :=strtofloatdef((Cds_Sub.fieldbyname('Ssh').Asstring),0);// Cds_Sub.fieldbyname('Ssh').AsFloat / 100; + Fzb := strtofloatdef((Cds_Sub.fieldbyname('Szb').Asstring), 0); //Cds_Sub.fieldbyname('Szb').AsFloat / 100; + Fsh := strtofloatdef((Cds_Sub.fieldbyname('Ssh').Asstring), 0); // Cds_Sub.fieldbyname('Ssh').AsFloat / 100; if Trim(PBNum.text) <> '' then begin FSYJsl := Cds_Sub.fieldbyname('Syjsl').AsFloat;