From e5a0893d5d26e9d5c93460cb6275845de08b68dc Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Tue, 11 Nov 2025 16:18:52 +0800 Subject: [PATCH] 11.11 --- 云翔一码通/U_YMTFHDataList.dfm | 4 ++-- 云翔一码通/U_YMTFHSQList.dfm | 39 +++++++++++++++++++------------ 云翔一码通/U_YMTFHSQList.pas | 42 ++++++++++++++++++++++++++++++++++ 云翔一码通/U_YMTRKInPut.pas | 2 ++ 4 files changed, 70 insertions(+), 17 deletions(-) diff --git a/云翔一码通/U_YMTFHDataList.dfm b/云翔一码通/U_YMTFHDataList.dfm index cb1f758..0090b73 100644 --- a/云翔一码通/U_YMTFHDataList.dfm +++ b/云翔一码通/U_YMTFHDataList.dfm @@ -1,6 +1,6 @@ object frmYMTFHDataList: TfrmYMTFHDataList - Left = 479 - Top = 280 + Left = 385 + Top = 283 Width = 1370 Height = 750 Caption = #21457#36135#25968#25454 diff --git a/云翔一码通/U_YMTFHSQList.dfm b/云翔一码通/U_YMTFHSQList.dfm index abb27a2..36b8374 100644 --- a/云翔一码通/U_YMTFHSQList.dfm +++ b/云翔一码通/U_YMTFHSQList.dfm @@ -21,6 +21,7 @@ object frmYMTFHSQList: TfrmYMTFHSQList Left = 0 Top = 0 Width = 1300 + Height = 62 AutoSize = True ButtonHeight = 30 ButtonWidth = 115 @@ -92,60 +93,68 @@ object frmYMTFHSQList: TfrmYMTFHSQList AutoSize = True Caption = #21024#38500 ImageIndex = 3 + Wrap = True OnClick = TBDelClick end object tchk: TToolButton - Left = 593 - Top = 0 + Left = 0 + Top = 30 AutoSize = True Caption = #23457#26680 ImageIndex = 75 OnClick = tchkClick end object Tnochk: TToolButton - Left = 672 - Top = 0 + Left = 79 + Top = 30 AutoSize = True Caption = #25764#38144#23457#26680 ImageIndex = 52 OnClick = TnochkClick end object TBPrint: TToolButton - Left = 791 - Top = 0 + Left = 198 + Top = 30 AutoSize = True Caption = #25171#21360 ImageIndex = 4 OnClick = TBPrintClick end object PrintMD: TToolButton - Left = 870 - Top = 0 + Left = 277 + Top = 30 Caption = #25171#21360#30721#21333 ImageIndex = 4 OnClick = PrintMDClick end object TBClose: TToolButton - Left = 985 - Top = 0 + Left = 392 + Top = 30 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end object OutStock: TToolButton - Left = 1064 - Top = 0 + Left = 471 + Top = 30 Caption = #26680#38144#20986#24211 ImageIndex = 8 OnClick = OutStockClick end + object ToolButton3: TToolButton + Left = 586 + Top = 30 + Caption = #25764#38144#20986#24211 + ImageIndex = 52 + OnClick = ToolButton3Click + end end object cxGrid1: TcxGrid Left = 0 - Top = 89 + Top = 119 Width = 1300 - Height = 301 + Height = 271 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView @@ -393,7 +402,7 @@ object frmYMTFHSQList: TfrmYMTFHSQList end object Panel1: TPanel Left = 0 - Top = 32 + Top = 62 Width = 1300 Height = 57 Align = alTop diff --git a/云翔一码通/U_YMTFHSQList.pas b/云翔一码通/U_YMTFHSQList.pas index fac5711..f2f96d6 100644 --- a/云翔一码通/U_YMTFHSQList.pas +++ b/云翔一码通/U_YMTFHSQList.pas @@ -114,6 +114,7 @@ type Tv2Column1: TcxGridDBColumn; OutStock: TToolButton; PrintMD: TToolButton; + ToolButton3: TToolButton; //RMllPDFExport1: TRMllPDFExport; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); @@ -140,6 +141,7 @@ type procedure TbAdd2Click(Sender: TObject); procedure OutStockClick(Sender: TObject); procedure PrintMDClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); private procedure InitGrid(); procedure InitSubGrid(); @@ -885,5 +887,45 @@ begin end; +procedure TfrmYMTFHSQList.ToolButton3Click(Sender: TObject); +begin +// if Order_Main.IsEmpty then +// exit; +// if trim(Order_Main.fieldbyname('Chker').AsString) = '' then +// begin +// application.MessageBox('ǰδˣ', 'ʾϢ'); +// exit; +// end; +// with ADOQueryTemp do +// begin +// close; +// sql.Clear; +// sql.Add('select * from YMT_FHSQ_Main'); +// sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString))); +// Open; +// end; +// if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then +// begin +// Application.MessageBox('Ӧ˿ܳ!', 'ʾ', 0); +// Exit; +// end; +// try +// +// with ADOQueryCmd do +// begin +// close; +// sql.Clear; +// sql.Add('update YMT_FHSQ_Main SET Chker=Null,ChkTime=Null,ChkStatus=Null '); +// sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString))); +// execsql; +// end; +//// Order_Main.Delete; +// InitGrid(); +// application.MessageBox('ɹ', 'ʾϢ'); +// except +// application.MessageBox('ʧܣ', 'ʾϢ', 0); +// end; +end; + end. diff --git a/云翔一码通/U_YMTRKInPut.pas b/云翔一码通/U_YMTRKInPut.pas index a2ccc79..d30f4e6 100644 --- a/云翔一码通/U_YMTRKInPut.pas +++ b/云翔一码通/U_YMTRKInPut.pas @@ -1454,7 +1454,9 @@ begin Post; end; end; + CDS_Sub.Edit; CDS_Sub.fieldbyname('FactPiQty').Value := CDS_MX.RecordCount; + CDS_Sub.Post; ADOQueryCmd.Connection.CommitTrans; except