11.11

云翔一码通/U_YMTFHDataList.dfm

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

云翔一码通/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
+      Left = 0
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #23457#26680
       ImageIndex = 75
       OnClick = tchkClick
     end
     object Tnochk: TToolButton
-      Left = 672
+      Left = 79
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25764#38144#23457#26680
       ImageIndex = 52
       OnClick = TnochkClick
     end
     object TBPrint: TToolButton
-      Left = 791
+      Left = 198
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #25171#21360
       ImageIndex = 4
       OnClick = TBPrintClick
     end
     object PrintMD: TToolButton
-      Left = 870
+      Left = 277
-      Top = 0
+      Top = 30
       Caption = #25171#21360#30721#21333
       ImageIndex = 4
       OnClick = PrintMDClick
     end
     object TBClose: TToolButton
-      Left = 985
+      Left = 392
-      Top = 0
+      Top = 30
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 21
       OnClick = TBCloseClick
     end
     object OutStock: TToolButton
-      Left = 1064
+      Left = 471
-      Top = 0
+      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

云翔一码通/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.
 

云翔一码通/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