Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11.11

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-11-11 16:18:52 +08:00
parent 56bb51aac2
commit e5a0893d5d
4 changed files with 70 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
云翔一码通/U_YMTFHDataList.dfm
View File

@ -1,6 +1,6 @@
object frmYMTFHDataList: TfrmYMTFHDataList
Left = 479
Top = 280
Left = 385
Top = 283
Width = 1370
Height = 750
Caption = #21457#36135#25968#25454

39
云翔一码通/U_YMTFHSQList.dfm
View File

@ -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

42
云翔一码通/U_YMTFHSQList.pas
View File

@ -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.

2
云翔一码通/U_YMTRKInPut.pas
View File

@ -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