0801

A01基础公司管理/Company.skincfg

@@ -0,0 +1,62 @@
+[ExpressSkins]
+Default=0
+ShowNotifications=1
+Enabled=1
+dxSkinBasic=0
+dxSkinBlack=0
+dxSkinBlue=0
+dxSkinBlueprint=0
+dxSkinCaramel=0
+dxSkinCoffee=0
+dxSkinDarkroom=0
+dxSkinDarkSide=0
+dxSkinDevExpressDarkStyle=0
+dxSkinDevExpressStyle=0
+dxSkinFoggy=0
+dxSkinGlassOceans=0
+dxSkinHighContrast=0
+dxSkiniMaginary=0
+dxSkinLilian=0
+dxSkinLiquidSky=0
+dxSkinLondonLiquidSky=0
+dxSkinMcSkin=0
+dxSkinMetropolis=0
+dxSkinMetropolisDark=0
+dxSkinMoneyTwins=0
+dxSkinOffice2007Black=0
+dxSkinOffice2007Blue=0
+dxSkinOffice2007Green=0
+dxSkinOffice2007Pink=0
+dxSkinOffice2007Silver=0
+dxSkinOffice2010Black=0
+dxSkinOffice2010Blue=0
+dxSkinOffice2010Silver=0
+dxSkinOffice2013DarkGray=0
+dxSkinOffice2013LightGray=0
+dxSkinOffice2013White=0
+dxSkinOffice2016Colorful=0
+dxSkinOffice2016Dark=0
+dxSkinOffice2019Black=0
+dxSkinOffice2019Colorful=0
+dxSkinOffice2019DarkGray=0
+dxSkinOffice2019White=0
+dxSkinPumpkin=0
+dxSkinSeven=0
+dxSkinSevenClassic=0
+dxSkinSharp=0
+dxSkinSharpPlus=0
+dxSkinSilver=0
+dxSkinSpringtime=0
+dxSkinStardust=0
+dxSkinSummer2008=0
+dxSkinTheAsphaltWorld=0
+dxSkinTheBezier=0
+dxSkinsDefaultPainters=1
+dxSkinValentine=0
+dxSkinVisualStudio2013Blue=0
+dxSkinVisualStudio2013Dark=0
+dxSkinVisualStudio2013Light=0
+dxSkinVS2010=0
+dxSkinWhiteprint=0
+dxSkinWXI=1
+dxSkinXmas2008Blue=0

A09财务通用管理/Financial.dpr

@@ -30,7 +30,9 @@ uses
   U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
   U_TradePlanSel in '..\T00贸易通用窗体\U_TradePlanSel.pas' {frmTradePlanSel},
   U_CompanySel in 'U_CompanySel.pas' {frmCompanySel},
-  U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
+  U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
+  U_OtherPayableList in 'U_OtherPayableList.pas' {frmOtherPayableList},
+  U_OtherPayableInput in 'U_OtherPayableInput.pas' {frmOtherPayableInput};
 
 {$R *.res}
 

A09财务通用管理/Financial.dproj

@@ -206,6 +206,14 @@
             <FormType>dfm</FormType>
             <DesignClass>TDataModule</DesignClass>
         </DCCReference>
+        <DCCReference Include="U_OtherPayableList.pas">
+            <Form>frmOtherPayableList</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="U_OtherPayableInput.pas">
+            <Form>frmOtherPayableInput</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

A09财务通用管理/Financial.dproj.local

@@ -2,19 +2,20 @@
 <BorlandProject>
 	<Transactions>
     <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
@@ -26,21 +27,22 @@
     <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -121,5 +123,9 @@
     <File Path="U_FtyStatement.dfm"/>
     <File Path="U_CompanySel.pas"/>
     <File Path="U_CompanySel.dfm"/>
+    <File Path="U_OtherPayableList.pas"/>
+    <File Path="U_OtherPayableList.dfm"/>
+    <File Path="U_OtherPayableInput.pas"/>
+    <File Path="U_OtherPayableInput.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>

A09财务通用管理/ProjectGroup1.groupproj.local

@@ -2,6 +2,6 @@
 <BorlandProject>
 	<Transactions/>
 	<Default.Personality>
-    <Projects ActiveProject="D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\testDll.dproj"/>
+		<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\Financial.dproj"/>
 	</Default.Personality>
 </BorlandProject>

A09财务通用管理/U_GetDllForm.pas

@@ -17,7 +17,8 @@ implementation
 uses
   U_DataLink, U_iniParam, U_ReceivableList, U_CollectList, U_InvoiceOutList,
   U_CustStatement, U_CustStatementWriteOff, U_BankFlowList, U_BankFlowTotalList,
-  U_PayableList, U_PayList, U_FtyStatement, U_InvoiceInList, U_ExpenseList;
+  U_PayableList, U_PayList, U_FtyStatement, U_InvoiceInList, U_ExpenseList,
+  U_OtherPayableList;
 
        /////////////////////////////////////////////////////////////////
       //         功能说明:取Dll中得窗体                              //
@@ -77,7 +78,7 @@ begin
     pswd := 'rightsoft@5740';
 
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
-    Parameters1:='¼Èë';
+    Parameters1:='¹ÜÀí';
   end
   else
   begin
@@ -198,6 +199,18 @@ begin
         end;
       end;
 
+    212:  //ÆäËûÓ¦¸¶¿îµÇ¼Ç
+      begin
+        with TfrmOtherPayableList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
+        begin
+          fFormID := FormID;
+          FormStyle := mstyle;
+          WindowState := mstate;
+          BorderStyle := mborderstyle;
+          mnewHandle := Handle;
+        end;
+      end;
+
     221:  //付款登记
       begin
         with TfrmPayList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //

A09财务通用管理/U_InvoiceInInPut.dfm

@@ -107,6 +107,7 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
           Column = v1Column4
         end>
       DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
       OptionsCustomize.ColumnFiltering = False
       OptionsData.Deleting = False
       OptionsData.DeletingConfirmation = False
@@ -305,6 +306,10 @@ object frmInvoiceInInPut: TfrmInvoiceInInPut
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
+      object Tv1Column9: TcxGridDBColumn
+        DataBinding.FieldName = 'IVID'
+        DataBinding.IsNullValueType = True
+      end
     end
     object cxGridLevel1: TcxGridLevel
       GridView = Tv1

A09财务通用管理/U_InvoiceInInPut.pas

@@ -10,8 +10,8 @@ uses
   cxGridDBTableView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB,
   DBClient, ExtCtrls, StdCtrls, BtnEdit, cxButtonEdit, cxTextEdit,
   cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCalendar,
-  dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu,
+  dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxSkinWXI,
-  dxSkinWXI, dxScrollbarAnnotations;
+  dxScrollbarAnnotations;
 
 type
   TfrmInvoiceInInPut = class(TForm)
@@ -46,6 +46,7 @@ type
     ToolButton3: TToolButton;
     Tv1Column6: TcxGridDBColumn;
     Tv1Column8: TcxGridDBColumn;
+    Tv1Column9: TcxGridDBColumn;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TSaveClick(Sender: TObject);
@@ -67,7 +68,7 @@ type
     { Private declarations }
   public
     FIVID: string;
-    fInvoiceFlag: string;
+    fInvoiceFlag, PState: string;
     { Public declarations }
   end;
 
@@ -77,7 +78,7 @@ var
 implementation
 
 uses
-  U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink,U_ClothInfoSel;
+  U_RTFun, U_ZDYHelp, U_CompanySel, U_dataLink, U_ClothInfoSel;
 {$R *.dfm}
 
 procedure TfrmInvoiceInInPut.SaveDate();
@@ -146,8 +147,16 @@ begin
   begin
     close;
     sql.Clear;
+    if PState = '复制' then
+    begin
+      sql.Add('select '''' IViD,* from Finance_Invoice where IVID=''' + trim(FIVID) + '''');
+    end
+    else
+    begin
       sql.Add('select * from Finance_Invoice where IVID=''' + trim(FIVID) + '''');
+    end;
     sql.add(' and isnull(status,''0'')=''0''');
+//    showmessage(sql.text);
     open;
   end;
 
@@ -196,19 +205,21 @@ end;
 
 procedure TfrmInvoiceInInPut.v1P_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
 begin
-  frmClothInfoSel := TfrmClothInfoSel.Create(self);
+  try
-  with frmClothInfoSel do
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
     begin
-    if showmodal = 1 then
+      flag := 'MPRTCodeName';
+      flagname := '产品名称';
+      if ShowModal = 1 then
       begin
-      CDS_Invoice.Edit;
+        Self.CDS_Invoice.Edit;
-      CDS_Invoice.fieldbyname('F_Code').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Code').asstring;
+        Self.CDS_Invoice.FieldByName('F_Name').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
-
+        Self.CDS_Invoice.FieldByName('F_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
-      CDS_Invoice.fieldbyname('F_Name').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Name').asstring;
-
-      CDS_Invoice.Post;
       end;
-    free;
+    end;
+  finally
+    frmZDYHelp.Free;
   end;
 
   tv1.Controller.EditingController.ShowEdit();
@@ -383,18 +394,47 @@ end;
 
 procedure TfrmInvoiceInInPut.ToolButton1Click(Sender: TObject);
 begin
-  CDS_Invoice.Append;
+  if CDS_Invoice.IsEmpty = False then
-  CDS_Invoice.FieldByName('IVDate').Value := now();
+  begin
-  CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg';
+    CopyAddRowCDS(CDS_Invoice);
-  CDS_Invoice.FieldByName('Amount').Value := 0;
+    with CDS_Invoice do
-  CDS_Invoice.FieldByName('Qty').Value := 0;
+    begin
-  CDS_Invoice.FieldByName('tax').Value := 0;
+      Edit;
-  CDS_Invoice.FieldByName('TaxFee').Value := 0;
+      FieldByName('IVID').Value := null;
-  CDS_Invoice.FieldByName('taxAmount').Value := 0;
+      post;
-  CDS_Invoice.FieldByName('Price').Value := 0;
+    end;
-  CDS_Invoice.FieldByName('tax').Value := 13;
+  end
-  CDS_Invoice.FieldByName('Currency').Value := 'CNY';
+  else
-  CDS_Invoice.Post;
+  begin
+    with CDS_Invoice do
+    begin
+      Append;
+      FieldByName('IVDate').Value := now();
+      FieldByName('QtyUnit').Value := 'Kg';
+      FieldByName('Amount').Value := 0;
+      FieldByName('Qty').Value := 0;
+      FieldByName('tax').Value := 0;
+      FieldByName('TaxFee').Value := 0;
+      FieldByName('taxAmount').Value := 0;
+      FieldByName('Price').Value := 0;
+      FieldByName('tax').Value := 13;
+      FieldByName('Currency').Value := 'CNY';
+      Post;
+    end;
+  end;
+
+//  CDS_Invoice.append;
+//  CDS_Invoice.FieldByName('IVDate').Value := now();
+//  CDS_Invoice.FieldByName('QtyUnit').Value := 'Kg';
+//  CDS_Invoice.FieldByName('Amount').Value := 0;
+//  CDS_Invoice.FieldByName('Qty').Value := 0;
+//  CDS_Invoice.FieldByName('tax').Value := 0;
+//  CDS_Invoice.FieldByName('TaxFee').Value := 0;
+//  CDS_Invoice.FieldByName('taxAmount').Value := 0;
+//  CDS_Invoice.FieldByName('Price').Value := 0;
+//  CDS_Invoice.FieldByName('tax').Value := 13;
+//  CDS_Invoice.FieldByName('Currency').Value := 'CNY';
+//  CDS_Invoice.Post;
 
 end;
 

A09财务通用管理/U_InvoiceInList.dfm

@@ -6,6 +6,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
   ClientWidth = 1540
   FormStyle = fsMDIChild
   Visible = True
+  ExplicitLeft = -23
   ExplicitWidth = 1556
   ExplicitHeight = 665
   PixelsPerInch = 96
@@ -59,16 +60,24 @@ inherited frmInvoiceInList: TfrmInvoiceInList
       ImageIndex = 3
       OnClick = TUPDATEClick
     end
-    object TBDEL: TToolButton
+    object ToolButton5: TToolButton
       Left = 284
       Top = 0
       AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 13
+      OnClick = ToolButton5Click
+    end
+    object TBDEL: TToolButton
+      Left = 355
+      Top = 0
+      AutoSize = True
       Caption = #21024#38500
       ImageIndex = 5
       OnClick = TBDELClick
     end
     object TSel: TToolButton
-      Left = 355
+      Left = 426
       Top = 0
       AutoSize = True
       Caption = #26597#30475
@@ -76,7 +85,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
       OnClick = TSelClick
     end
     object TCHK: TToolButton
-      Left = 426
+      Left = 497
       Top = 0
       AutoSize = True
       Caption = #23457#26680
@@ -84,7 +93,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
       OnClick = TCHKClick
     end
     object TNOCHK: TToolButton
-      Left = 497
+      Left = 568
       Top = 0
       AutoSize = True
       Caption = #25764#38144#23457#26680
@@ -92,7 +101,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
       OnClick = TNOCHKClick
     end
     object ToolButton4: TToolButton
-      Left = 592
+      Left = 663
       Top = 0
       AutoSize = True
       Caption = #25171#21360
@@ -101,7 +110,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
       OnClick = ToolButton4Click
     end
     object ToolButton1: TToolButton
-      Left = 663
+      Left = 734
       Top = 0
       AutoSize = True
       Caption = #23548#20986
@@ -109,7 +118,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
       OnClick = ToolButton1Click
     end
     object ToolButton3: TToolButton
-      Left = 734
+      Left = 805
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -117,7 +126,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
       OnClick = ToolButton3Click
     end
     object TBClose: TToolButton
-      Left = 829
+      Left = 900
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -315,6 +324,8 @@ inherited frmInvoiceInList: TfrmInvoiceInList
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 3
+    ExplicitLeft = -8
+    ExplicitTop = 44
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False
@@ -439,7 +450,7 @@ inherited frmInvoiceInList: TfrmInvoiceInList
       end
       object v1Column10: TcxGridDBColumn
         Caption = #20135#21697#21517#31216
-        DataBinding.FieldName = 'P_Name'
+        DataBinding.FieldName = 'F_Name'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 72

A09财务通用管理/U_InvoiceInList.pas

@@ -86,6 +86,7 @@ type
     v1Column19: TcxGridDBColumn;
     ToolButton3: TToolButton;
     N3: TMenuItem;
+    ToolButton5: TToolButton;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -108,6 +109,7 @@ type
     procedure v1Column14PropertiesEditValueChanged(Sender: TObject);
     procedure ToolButton3Click(Sender: TObject);
     procedure N3Click(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
   private
     { Private declarations }
 
@@ -496,6 +498,23 @@ begin
   end;
 end;
 
+procedure TfrmInvoiceInList.ToolButton5Click(Sender: TObject);
+begin
+  frmInvoiceInInPut := TfrmInvoiceInInPut.Create(self);
+  with frmInvoiceInInPut do
+  begin
+    IvNo.Enabled := False;
+    FIVID := trim(Self.CDS_Invoice.fieldbyname('IVID').asstring);
+    PState:='¸´ÖÆ';
+    if showmodal = 1 then
+    begin
+      Self.initGrid();
+    end;
+    free;
+  end;
+
+end;
+
 procedure TfrmInvoiceInList.v1Column14PropertiesEditValueChanged(Sender: TObject);
 var
   mvalue, FFieldName: string;

A09财务通用管理/U_InvoiceOutList.dfm

@@ -439,7 +439,7 @@ inherited frmInvoiceOutList: TfrmInvoiceOutList
       end
       object v1Column10: TcxGridDBColumn
         Caption = #20135#21697#21517#31216
-        DataBinding.FieldName = 'P_Name'
+        DataBinding.FieldName = 'F_Name'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 72

A09财务通用管理/U_OtherPayableInput.dfm

@@ -0,0 +1,690 @@
+object frmOtherPayableInput: TfrmOtherPayableInput
+  Left = 261
+  Top = 149
+  Caption = #20854#20182#24212#20184#27454#30331#35760
+  ClientHeight = 362
+  ClientWidth = 919
+  Color = clWhite
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = True
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 919
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 75
+    Caption = 'ToolBar1'
+    Color = clWhite
+    DisabledImages = DataLink_Financial.ImageList_new32
+    Images = DataLink_Financial.ImageList_new32
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object ToolButton3: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 16
+      OnClick = ToolButton3Click
+    end
+    object TBClose: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object ScrollBox1: TScrollBox
+    Left = 0
+    Top = 38
+    Width = 919
+    Height = 324
+    Align = alClient
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    BorderStyle = bsNone
+    Color = clWhite
+    Ctl3D = False
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentColor = False
+    ParentCtl3D = False
+    ParentFont = False
+    TabOrder = 1
+    OnClick = ScrollBox1Click
+    object Label2: TLabel
+      Left = 245
+      Top = 20
+      Width = 52
+      Height = 15
+      Caption = #23545#26041#21333#20301
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clMaroon
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 28
+      Top = 79
+      Width = 50
+      Height = 15
+      Caption = #32534'        '#21495
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 28
+      Top = 204
+      Width = 50
+      Height = 15
+      Caption = #22791'        '#27880
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 245
+      Top = 79
+      Width = 50
+      Height = 15
+      Caption = #21697'        '#21517
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label8: TLabel
+      Left = 674
+      Top = 49
+      Width = 52
+      Height = 15
+      Caption = #20184#27454#26041#24335
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 28
+      Top = 20
+      Width = 52
+      Height = 15
+      Caption = #25105#26041#21333#20301
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 455
+      Top = 20
+      Width = 52
+      Height = 15
+      Caption = #19978#32423#21333#20301
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clMaroon
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 245
+      Top = 172
+      Width = 50
+      Height = 15
+      Caption = #37329'        '#39069
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label10: TLabel
+      Left = 28
+      Top = 136
+      Width = 50
+      Height = 15
+      Caption = #21305'        '#25968
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label11: TLabel
+      Left = 245
+      Top = 136
+      Width = 50
+      Height = 15
+      Caption = #25968'        '#37327
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label12: TLabel
+      Left = 455
+      Top = 136
+      Width = 50
+      Height = 15
+      Caption = #21333'        '#20215
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label13: TLabel
+      Left = 28
+      Top = 105
+      Width = 50
+      Height = 15
+      Caption = #38376'        '#24133
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label14: TLabel
+      Left = 245
+      Top = 105
+      Width = 50
+      Height = 15
+      Caption = #20811'        '#37325
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label15: TLabel
+      Left = 455
+      Top = 79
+      Width = 50
+      Height = 15
+      Caption = #33457'        '#22411
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label16: TLabel
+      Left = 674
+      Top = 79
+      Width = 50
+      Height = 15
+      Caption = #39068'        '#33394
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label17: TLabel
+      Left = 455
+      Top = 105
+      Width = 50
+      Height = 15
+      Caption = #33394'        '#21495
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label4: TLabel
+      Left = 674
+      Top = 136
+      Width = 51
+      Height = 15
+      Caption = #20854'  '#20182'  '#36153
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label20: TLabel
+      Left = 674
+      Top = 20
+      Width = 50
+      Height = 15
+      Caption = #26085'        '#26399
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label21: TLabel
+      Left = 28
+      Top = 172
+      Width = 50
+      Height = 15
+      Caption = #20943'        '#20813
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label22: TLabel
+      Left = 244
+      Top = 49
+      Width = 52
+      Height = 15
+      Caption = #35745#21010#21333#21495
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label23: TLabel
+      Left = 27
+      Top = 49
+      Width = 52
+      Height = 15
+      Caption = #23458#25143#21333#21495
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label24: TLabel
+      Left = 455
+      Top = 49
+      Width = 53
+      Height = 15
+      Caption = #25688'         '#35201
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label18: TLabel
+      Left = 458
+      Top = 172
+      Width = 52
+      Height = 15
+      Caption = #26159#21542#21547#31246
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object F_Code: TEdit
+      Left = 82
+      Top = 77
+      Width = 140
+      Height = 18
+      TabOrder = 0
+    end
+    object Note: TMemo
+      Left = 82
+      Top = 204
+      Width = 797
+      Height = 57
+      ScrollBars = ssVertical
+      TabOrder = 2
+    end
+    object F_Name: TEdit
+      Left = 299
+      Top = 77
+      Width = 140
+      Height = 18
+      TabOrder = 1
+    end
+    object Currency: TComboBox
+      Left = 402
+      Top = 169
+      Width = 37
+      Height = 20
+      Style = csDropDownList
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -10
+      Font.Name = 'Times New Roman'
+      Font.Style = []
+      ItemIndex = 0
+      ParentFont = False
+      TabOrder = 3
+      Text = 'CNY'
+      Items.Strings = (
+        'CNY'
+        'USD')
+    end
+    object PayMent: TBtnEditC
+      Left = 728
+      Top = 47
+      Width = 140
+      Height = 20
+      Hint = 'PayMent/'#20184#27454#26041#24335
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 4
+      OnBtnUpClick = PayMentBtnUpClick
+      OnBtnDnClick = PayMentBtnDnClick
+    end
+    object OppCoName: TBtnEditC
+      Left = 297
+      Top = 17
+      Width = 140
+      Height = 20
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 5
+      OnBtnUpClick = OppCoNameBtnUpClick
+      OnBtnDnClick = PayMentBtnDnClick
+    end
+    object OurCoName: TBtnEditC
+      Left = 82
+      Top = 18
+      Width = 140
+      Height = 20
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 6
+      OnBtnUpClick = OurCoNameBtnUpClick
+      OnBtnDnClick = PayMentBtnDnClick
+    end
+    object OppParentCoName: TBtnEditC
+      Left = 512
+      Top = 17
+      Width = 140
+      Height = 20
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 7
+      OnBtnUpClick = OppParentCoNameBtnUpClick
+      OnBtnDnClick = PayMentBtnDnClick
+    end
+    object Amount: TcxCurrencyEdit
+      Left = 299
+      Top = 170
+      Properties.AssignedValues.DisplayFormat = True
+      TabOrder = 8
+      OnExit = QtyExit
+      Width = 101
+    end
+    object Price: TcxCurrencyEdit
+      Left = 513
+      Top = 133
+      Properties.AssignedValues.DisplayFormat = True
+      TabOrder = 9
+      OnExit = QtyExit
+      Width = 140
+    end
+    object Qty: TcxCurrencyEdit
+      Left = 299
+      Top = 133
+      Properties.AssignedValues.DisplayFormat = True
+      TabOrder = 10
+      OnExit = QtyExit
+      Width = 101
+    end
+    object Piece: TcxCurrencyEdit
+      Left = 84
+      Top = 133
+      Properties.AssignedValues.DisplayFormat = True
+      TabOrder = 11
+      Width = 140
+    end
+    object QtyUnit: TComboBox
+      Left = 400
+      Top = 133
+      Width = 37
+      Height = 20
+      Style = csDropDownList
+      ItemIndex = 0
+      TabOrder = 12
+      Text = 'Kg'
+      Items.Strings = (
+        'Kg'
+        'M'
+        'Y'
+        #20010
+        #20214)
+    end
+    object F_Width: TEdit
+      Left = 82
+      Top = 103
+      Width = 140
+      Height = 18
+      TabOrder = 13
+      Visible = False
+    end
+    object F_GramWeight: TEdit
+      Left = 298
+      Top = 103
+      Width = 140
+      Height = 18
+      TabOrder = 14
+      Visible = False
+    end
+    object F_Pattern: TEdit
+      Left = 512
+      Top = 78
+      Width = 140
+      Height = 18
+      TabOrder = 15
+      Visible = False
+    end
+    object F_Color: TEdit
+      Left = 727
+      Top = 77
+      Width = 140
+      Height = 18
+      TabOrder = 16
+      Visible = False
+    end
+    object F_ColorNo: TEdit
+      Left = 512
+      Top = 103
+      Width = 140
+      Height = 18
+      TabOrder = 17
+      Visible = False
+    end
+    object OtherFee: TcxCurrencyEdit
+      Left = 727
+      Top = 133
+      Properties.AssignedValues.DisplayFormat = True
+      TabOrder = 18
+      OnExit = QtyExit
+      Width = 140
+    end
+    object FFTime: TDateTimePicker
+      Left = 728
+      Top = 17
+      Width = 140
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 0.670856296288548000
+      TabOrder = 19
+    end
+    object Deduction: TcxCurrencyEdit
+      Left = 82
+      Top = 169
+      Properties.AssignedValues.DisplayFormat = True
+      TabOrder = 20
+      OnExit = QtyExit
+      Width = 140
+    end
+    object OrderNo: TBtnEditC
+      Left = 301
+      Top = 47
+      Width = 140
+      Height = 20
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 21
+      OnBtnUpClick = OrderNoBtnUpClick
+      OnBtnDnClick = PayMentBtnDnClick
+    end
+    object BuyConNo: TBtnEditC
+      Left = 81
+      Top = 47
+      Width = 140
+      Height = 20
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 22
+      OnBtnDnClick = PayMentBtnDnClick
+    end
+    object FFAbstract: TBtnEditC
+      Left = 513
+      Top = 47
+      Width = 140
+      Height = 20
+      Hint = 'FFAbstract/'#25688#35201
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 23
+      OnBtnUpClick = PayMentBtnUpClick
+      OnBtnDnClick = PayMentBtnDnClick
+    end
+    object IsInvoice: TComboBox
+      Left = 513
+      Top = 169
+      Width = 137
+      Height = 20
+      Style = csDropDownList
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 24
+      Items.Strings = (
+        #21547#31246
+        #19981#21547#31246)
+    end
+    object FZFlag: TcxCurrencyEdit
+      Left = 690
+      Top = 275
+      Properties.AssignedValues.DisplayFormat = True
+      TabOrder = 25
+      Visible = False
+      OnExit = QtyExit
+      Width = 140
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_Financial.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 547
+    Top = 336
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_Financial.ADOLink
+    Parameters = <>
+    Left = 438
+    Top = 336
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_Financial.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 325
+    Top = 345
+  end
+end

A09财务通用管理/U_OtherPayableInput.pas

@@ -0,0 +1,431 @@
+unit U_OtherPayableInput;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
+  cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
+  cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
+  dxBarBuiltInMenu, U_BaseList, cxContainer, cxCurrencyEdit, dxSkinWXI;
+
+type
+  TfrmOtherPayableInput = class(TForm)
+    ToolBar1: TToolBar;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ToolButton3: TToolButton;
+    ScrollBox1: TScrollBox;
+    Label2: TLabel;
+    Label6: TLabel;
+    Label7: TLabel;
+    F_Code: TEdit;
+    Note: TMemo;
+    Label1: TLabel;
+    F_Name: TEdit;
+    Label8: TLabel;
+    Currency: TComboBox;
+    PayMent: TBtnEditC;
+    OppCoName: TBtnEditC;
+    Label5: TLabel;
+    OurCoName: TBtnEditC;
+    Label9: TLabel;
+    OppParentCoName: TBtnEditC;
+    Amount: TcxCurrencyEdit;
+    Label3: TLabel;
+    Price: TcxCurrencyEdit;
+    Qty: TcxCurrencyEdit;
+    Piece: TcxCurrencyEdit;
+    Label10: TLabel;
+    Label11: TLabel;
+    Label12: TLabel;
+    QtyUnit: TComboBox;
+    Label13: TLabel;
+    Label14: TLabel;
+    F_Width: TEdit;
+    F_GramWeight: TEdit;
+    Label15: TLabel;
+    Label16: TLabel;
+    F_Pattern: TEdit;
+    F_Color: TEdit;
+    Label17: TLabel;
+    F_ColorNo: TEdit;
+    OtherFee: TcxCurrencyEdit;
+    Label4: TLabel;
+    Label20: TLabel;
+    FFTime: TDateTimePicker;
+    Deduction: TcxCurrencyEdit;
+    Label21: TLabel;
+    Label22: TLabel;
+    OrderNo: TBtnEditC;
+    Label23: TLabel;
+    BuyConNo: TBtnEditC;
+    Label24: TLabel;
+    FFAbstract: TBtnEditC;
+    Label18: TLabel;
+    IsInvoice: TComboBox;
+    FZFlag: TcxCurrencyEdit;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure PayMentBtnDnClick(Sender: TObject);
+    procedure PayMentBtnUpClick(Sender: TObject);
+    procedure OppCoNameBtnUpClick(Sender: TObject);
+    procedure OppParentCoNameBtnUpClick(Sender: TObject);
+    procedure OurCoNameBtnUpClick(Sender: TObject);
+    procedure QtyExit(Sender: TObject);
+    procedure ScrollBox1Click(Sender: TObject);
+    procedure OrderNoBtnUpClick(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+    procedure HJJE();
+    function SaveData(): Boolean;
+  public
+    { Public declarations }
+    FFFID,PState: string;
+  end;
+
+var
+  frmOtherPayableInput: TfrmOtherPayableInput;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel;
+
+{$R *.dfm}
+
+procedure TfrmOtherPayableInput.HJJE();
+var
+  MPrice, MQty, MOtherFee, MDeduction, MAmount: double;
+begin
+  MPrice := Strtofloatdef(Price.Text, 0);
+  MQty := Strtofloatdef(Qty.Text, 0);
+  MOtherFee := Strtofloatdef(OtherFee.Text, 0);
+  MDeduction := Strtofloatdef(Deduction.Text, 0);
+  MAmount := Strtofloatdef(Amount.Text, 0);
+
+//  if MQty * MPrice <> 0 then
+//  begin
+
+    MAmount := RoundFloat((MQty * MPrice + MOtherFee - MDeduction), 2);
+//  end;
+//  Price.Text := FloatToStr(MPrice);
+//  Qty.Text := FloatToStr(MQty);
+//  OtherFee.Text := FloatToStr(MOtherFee);
+//  Deduction.Text := FloatToStr(MDeduction);
+  Amount.Text := FloatToStr(MAmount);
+end;
+
+procedure TfrmOtherPayableInput.InitGrid();
+begin
+  try
+
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select BuyConNo=(ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId))),A.* from Finance_Flow A where A.FFID=''' + Trim(FFFID) + '''');
+//      showmessage(sql.text);
+      Open;
+    end;
+    if not ADOQueryMain.IsEmpty then
+    begin
+      SCSHData(ADOQueryMain, ScrollBox1, 0);
+      OppCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppCoNo').AsString);
+      OurCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OurCoNo').AsString);
+      OppParentCoName.TxtCode := Trim(ADOQueryMain.FieldByName('OppParentCoNo').AsString);
+    end
+    else
+    begin
+      FFTime.DateTime := SGetServerDateTime(ADOQueryTemp);
+    end;
+
+    if PState='复制' then
+    begin
+       FFFID:='';
+       Piece.text:='';
+       Qty.text:='';
+       Price.text:='';
+       OtherFee.text:='';
+       Deduction.text:='';
+       Amount.text:='';
+       FZFlag.Text:='复制';
+    end;
+
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmOtherPayableInput.OppCoNameBtnUpClick(Sender: TObject);
+begin
+  try
+    frmCompanySel := TfrmCompanySel.Create(Application);
+    with frmCompanySel do
+    begin
+      FCoType := '供应商';
+      if ShowModal = 1 then
+      begin
+        OppCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
+        OppCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
+        OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
+        OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
+      end;
+    end;
+  finally
+    frmCompanySel.Free;
+  end;
+end;
+
+procedure TfrmOtherPayableInput.OppParentCoNameBtnUpClick(Sender: TObject);
+begin
+  try
+    frmCompanySel := TfrmCompanySel.Create(Application);
+    with frmCompanySel do
+    begin
+      FCoType := '供应商';
+      if ShowModal = 1 then
+      begin
+        OppParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
+        OppParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
+      end;
+    end;
+  finally
+    frmCompanySel.Free;
+  end;
+end;
+
+procedure TfrmOtherPayableInput.OrderNoBtnUpClick(Sender: TObject);
+begin
+  try
+    frmTradePlanSel := TfrmTradePlanSel.Create(Application);
+    with frmTradePlanSel do
+    begin
+//      FMainID := MainID.Text;
+      if ShowModal = 1 then
+      begin
+        Self.OrderNO.Text := CDS_1.fieldbyname('OrderNo').value;
+        Self.OurCoName.Text := Trim(CDS_1.fieldbyname('OurCoName').AsString);
+        Self.OurCoName.TxtCode := Trim(CDS_1.fieldbyname('OurCoNo').AsString);
+//        Self.OppCoName.Text := Trim(CDS_1.fieldbyname('CustName').AsString);
+//        Self.OppCoName.TxtCode := Trim(CDS_1.fieldbyname('CustNo').AsString);
+        Self.F_Code.Text := Trim(CDS_1.fieldbyname('C_Code').AsString);
+        Self.F_Name.text := Trim(CDS_1.fieldbyname('C_Name').AsString);
+        Self.F_Pattern.Text := Trim(CDS_1.fieldbyname('C_Pattern').AsString);
+        Self.F_Color.text := Trim(CDS_1.fieldbyname('C_Color').AsString);
+        Self.F_ColorNo.Text := Trim(CDS_1.fieldbyname('C_ColorNo').AsString);
+        Self.F_Width.text := Trim(CDS_1.fieldbyname('C_Width').AsString);
+        Self.F_GramWeight.text := Trim(CDS_1.fieldbyname('C_GramWeight').AsString);
+        Self.BuyConNo.text := Trim(CDS_1.fieldbyname('BuyConNo').AsString);
+      end;
+    end;
+  finally
+    frmTradePlanSel.Free;
+  end;
+end;
+
+procedure TfrmOtherPayableInput.OurCoNameBtnUpClick(Sender: TObject);
+begin
+  try
+    frmCompanySel := TfrmCompanySel.Create(Application);
+    with frmCompanySel do
+    begin
+      FCoType := '我司';
+      if ShowModal = 1 then
+      begin
+        OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
+        OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
+      end;
+    end;
+  finally
+    frmCompanySel.Free;
+  end;
+end;
+
+procedure TfrmOtherPayableInput.FormDestroy(Sender: TObject);
+begin
+  frmOtherPayableInput := nil;
+end;
+
+procedure TfrmOtherPayableInput.PayMentBtnDnClick(Sender: TObject);
+begin
+  TBtnEditC(Sender).Text := '';
+  TBtnEditC(Sender).TxtCode := '';
+end;
+
+procedure TfrmOtherPayableInput.PayMentBtnUpClick(Sender: TObject);
+var
+  fsj: string;
+  FWZ: Integer;
+begin
+  fsj := Trim(TEdit(Sender).Hint);
+  FWZ := Pos('/', fsj);
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      MainType := '应付款';
+      flag := Copy(fsj, 1, FWZ - 1);
+      flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+      if ShowModal = 1 then
+      begin
+        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmOtherPayableInput.QtyExit(Sender: TObject);
+begin
+  HJJE();
+end;
+
+procedure TfrmOtherPayableInput.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+
+  Action := caFree;
+end;
+
+procedure TfrmOtherPayableInput.TBCloseClick(Sender: TObject);
+begin
+
+  close;
+end;
+
+procedure TfrmOtherPayableInput.FormShow(Sender: TObject);
+begin
+//  if Trim(FFFID) = '' then
+//  begin
+//    with ADOQueryTemp do
+//    begin
+//      Close;
+//      SQL.Clear;
+//      sql.Add(' select top 1 * from BS_Company where CoType=''我司''  order by CoCode ');
+//      Open;
+//    end;
+//    OurCoName.Text := Trim(ADOQueryTemp.fieldbyname('CoAbbrName').AsString);
+//    OurCoName.TxtCode := Trim(ADOQueryTemp.fieldbyname('CoCode').AsString);
+//  end;
+  InitGrid();
+end;
+
+procedure TfrmOtherPayableInput.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+function TfrmOtherPayableInput.SaveData(): Boolean;
+var
+  MaxId, MaxSubId, FCoCode, FCCID: string;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if Trim(FFFID) = '' then
+    begin
+      if not GetLSNo(ADOQueryCmd, MaxId, 'YS', 'Finance_Flow', 4, 1) then
+        raise Exception.Create('取最大号失败！');
+    end
+    else
+    begin
+      MaxId := Trim(FFFID);
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from Finance_Flow where FFID=''' + Trim(FFFID) + '''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FFFID) = '' then
+      begin
+        Append;
+        FieldByName('FillId').Value := Trim(DCode);
+        FieldByName('Filler').Value := Trim(DName);
+        FieldByName('FFFlag').Value := '应付付';
+        FieldByName('FFType').Value := '其他应付款登记';
+        FieldByName('status').Value := '0';
+        FieldByName('FFQtyFlag').Value := 1;
+      end
+      else
+      begin
+        Edit;
+        FieldByName('EditId').Value := Trim(DCode);
+        FieldByName('Editer').Value := Trim(DName);
+        FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
+      end;
+      FieldByName('OppCoNo').Value := Trim(OppCoName.TxtCode);
+      FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode);
+      FieldByName('OppParentCoNo').Value := Trim(OppParentCoName.TxtCode);
+      FieldByName('FFID').Value := Trim(MaxId);
+      RTSetsavedata(ADOQueryCmd, 'Finance_Flow', ScrollBox1, 0);
+      Post;
+    end;
+
+    ADOQueryCmd.Connection.CommitTrans;
+    FCCID := Trim(MaxSubId);
+    Result := True;
+  except
+    Result := false;
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+  end;
+end;
+
+procedure TfrmOtherPayableInput.ScrollBox1Click(Sender: TObject);
+begin
+  HJJE();
+end;
+
+procedure TfrmOtherPayableInput.ToolButton3Click(Sender: TObject);
+begin
+  ToolBar1.SetFocus;
+  if Trim(OppCoName.Text) = '' then
+  begin
+    Application.MessageBox('对方单位不能为空!', '提示', 0);
+    Exit;
+  end;
+  if Trim(OurCoName.Text) = '' then
+  begin
+    Application.MessageBox('我方单位不能为空!', '提示', 0);
+    Exit;
+  end;
+  if Trim(Currency.Text) = '' then
+  begin
+    Application.MessageBox('币种不能为空!', '提示', 0);
+    Exit;
+  end;
+  if Trim(FFAbstract.Text) = '' then
+  begin
+    Application.MessageBox('摘要不能为空!', '提示', 0);
+    Exit;
+  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功!', '提示', 0);
+    ModalResult := 1;
+  end;
+end;
+
+end.
+

A09财务通用管理/U_OtherPayableList.dfm

@@ -0,0 +1,666 @@
+inherited frmOtherPayableList: TfrmOtherPayableList
+  Left = 315
+  Top = 101
+  Caption = #20854#20182#24212#20184#27454#31649#29702
+  ClientHeight = 590
+  ClientWidth = 1540
+  FormStyle = fsMDIChild
+  Visible = True
+  ExplicitWidth = 1556
+  ExplicitHeight = 629
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1540
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_Financial.ImageList_new32
+    Images = DataLink_Financial.ImageList_new32
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object btnAdd: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 9
+      OnClick = btnAddClick
+    end
+    object btnEdit: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 3
+      OnClick = btnEditClick
+    end
+    object ToolButton1: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 9
+      OnClick = ToolButton1Click
+    end
+    object btnDel: TToolButton
+      Left = 284
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 5
+      OnClick = btnDelClick
+    end
+    object btnChk: TToolButton
+      Left = 355
+      Top = 0
+      AutoSize = True
+      Caption = #23457#26680
+      ImageIndex = 12
+      OnClick = btnChkClick
+    end
+    object btnReChk: TToolButton
+      Left = 426
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23457#26680
+      ImageIndex = 11
+      OnClick = btnReChkClick
+    end
+    object ToolButton4: TToolButton
+      Left = 521
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 20
+      OnClick = ToolButton4Click
+    end
+    object ToolButton5: TToolButton
+      Left = 592
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton5Click
+    end
+    object TBClose: TToolButton
+      Left = 687
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel [1]
+    Left = 0
+    Top = 38
+    Width = 1540
+    Height = 65
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clWhite
+    ParentBackground = False
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 172
+      Top = 13
+      Width = 52
+      Height = 12
+      Caption = #23545#26041#21333#20301
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 333
+      Top = 13
+      Width = 24
+      Height = 12
+      Caption = #21697#21517
+    end
+    object Label6: TLabel
+      Left = 333
+      Top = 39
+      Width = 24
+      Height = 12
+      Caption = #32534#21495
+    end
+    object Label10: TLabel
+      Left = 479
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #21512' '#21516' '#21495
+    end
+    object Label11: TLabel
+      Left = 479
+      Top = 13
+      Width = 48
+      Height = 12
+      Caption = #23458#25143#21333#21495
+    end
+    object Label2: TLabel
+      Left = 174
+      Top = 39
+      Width = 48
+      Height = 12
+      Caption = #19978#32423#21333#20301
+    end
+    object OppCoName: TEdit
+      Tag = 2
+      Left = 228
+      Top = 9
+      Width = 89
+      Height = 20
+      TabOrder = 0
+      OnKeyPress = OppCoNameKeyPress
+    end
+    object begdate: TDateTimePicker
+      Left = 77
+      Top = 9
+      Width = 85
+      Height = 20
+      Date = 41256.000000000000000000
+      Time = 0.918237847232376200
+      TabOrder = 1
+    end
+    object Enddate: TDateTimePicker
+      Left = 77
+      Top = 35
+      Width = 85
+      Height = 20
+      Date = 41256.000000000000000000
+      Time = 0.918237847232376200
+      TabOrder = 2
+    end
+    object F_Name: TEdit
+      Tag = 2
+      Left = 359
+      Top = 9
+      Width = 89
+      Height = 20
+      TabOrder = 3
+      OnKeyPress = OppCoNameKeyPress
+    end
+    object CheckBox1: TCheckBox
+      Left = 5
+      Top = 11
+      Width = 71
+      Height = 17
+      Caption = #26597#35810#26085#26399
+      Checked = True
+      State = cbChecked
+      TabOrder = 4
+    end
+    object P_Code: TEdit
+      Tag = 1
+      Left = 359
+      Top = 35
+      Width = 89
+      Height = 20
+      TabOrder = 5
+      OnKeyPress = OppCoNameKeyPress
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 529
+      Top = 35
+      Width = 87
+      Height = 20
+      TabOrder = 6
+      OnKeyPress = OppCoNameKeyPress
+    end
+    object BuyConNo: TEdit
+      Tag = 2
+      Left = 529
+      Top = 9
+      Width = 87
+      Height = 20
+      TabOrder = 7
+      OnKeyPress = OppCoNameKeyPress
+    end
+    object OppParentCoName: TEdit
+      Tag = 2
+      Left = 226
+      Top = 35
+      Width = 91
+      Height = 20
+      TabOrder = 8
+      OnKeyPress = OppCoNameKeyPress
+    end
+  end
+  object cxGrid1: TcxGrid [2]
+    Left = 0
+    Top = 136
+    Width = 1540
+    Height = 454
+    Align = alClient
+    PopupMenu = PopupMenu1
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      Navigator.Buttons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Visible = False
+      ScrollbarAnnotations.CustomAnnotations = <>
+      OnCustomDrawCell = Tv1CustomDrawCell
+      DataController.DataSource = DS_1
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = Tv1Column12
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column15
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column16
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column17
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column11
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.IncSearch = DataLink_Financial.SHuangSe
+      Styles.Footer = DataLink_Financial.Default
+      Styles.Header = DataLink_Financial.Default
+      Styles.Inactive = DataLink_Financial.SHuangSe
+      Styles.Selection = DataLink_Financial.SHuangSe
+      object Tv1Column22: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        HeaderAlignmentHorz = taCenter
+        Width = 44
+      end
+      object v2CRTime: TcxGridDBColumn
+        Tag = 7
+        Caption = #21457#29983#26085#26399
+        DataBinding.FieldName = 'FFTime'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 82
+      end
+      object Tv1Column23: TcxGridDBColumn
+        Caption = #23545#36134#26085#26399
+        DataBinding.FieldName = 'ReconciliationDate'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 76
+      end
+      object v2Column2: TcxGridDBColumn
+        Caption = #25105#26041#21333#20301
+        DataBinding.FieldName = 'OurCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object v2FactoryName: TcxGridDBColumn
+        Caption = #23545#26041#21333#20301
+        DataBinding.FieldName = 'OppCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 76
+      end
+      object v2OrderNo: TcxGridDBColumn
+        Tag = 7
+        Caption = #19978#32423#21333#20301
+        DataBinding.FieldName = 'OppParentCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #20184#27454#26041#24335
+        DataBinding.FieldName = 'PayMent'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column19: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object Tv1Column24: TcxGridDBColumn
+        Caption = #25688#35201
+        DataBinding.FieldName = 'FFAbstract'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 79
+      end
+      object Tv1Column20: TcxGridDBColumn
+        Caption = #35745#21010#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column21: TcxGridDBColumn
+        Caption = #23458#25143#21333#21495
+        DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 74
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'F_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #21697#21517
+        DataBinding.FieldName = 'F_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'F_Pattern'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column7: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'F_Color'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'F_Width'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column9: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'F_GramWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'F_ColorNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column14: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column15: TcxGridDBColumn
+        Caption = #20854#20182#36153
+        DataBinding.FieldName = 'OtherFee'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column16: TcxGridDBColumn
+        Caption = #20943#20813
+        DataBinding.FieldName = 'Deduction'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #26159#21542#21547#31246
+        DataBinding.FieldName = 'IsInvoice'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+      end
+      object Tv1Column17: TcxGridDBColumn
+        Caption = #37329#39069
+        DataBinding.FieldName = 'Amount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column18: TcxGridDBColumn
+        Caption = #24065#31181
+        DataBinding.FieldName = 'Currency'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #26469#28304
+        DataBinding.FieldName = 'FromID1'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object Tv1Column25: TcxGridDBColumn
+        DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
+        Visible = False
+      end
+      object Tv1Column26: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxTabControl1: TcxTabControl [3]
+    Left = 0
+    Top = 103
+    Width = 1540
+    Height = 33
+    Align = alTop
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -21
+    Font.Name = 'Arial'
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 3
+    Properties.CustomButtons.Buttons = <>
+    Properties.Style = 2
+    Properties.TabIndex = 0
+    Properties.Tabs.Strings = (
+      #26410#23457#26680
+      #24050#23457#26680
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 36
+    ClientRectRight = 1540
+    ClientRectTop = 36
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_Financial.ADOLink
+    Left = 233
+    Top = 176
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_Financial.ADOLink
+    Left = 121
+    Top = 177
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_Financial.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 197
+    Top = 433
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_Financial.ADOLink
+    Parameters = <>
+    Left = 101
+    Top = 433
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_Financial.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 293
+    Top = 433
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 232
+    Top = 288
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    Left = 168
+    Top = 280
+  end
+  object GPM_1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 504
+    Top = 312
+  end
+  object DS_1: TDataSource
+    DataSet = CDS_1
+    Left = 595
+    Top = 315
+  end
+  object CDS_1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 552
+    Top = 336
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 776
+    Top = 304
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N3: TMenuItem
+      Caption = #20840#24323
+      OnClick = N3Click
+    end
+    object N2: TMenuItem
+      Caption = #22797#21046
+      OnClick = N2Click
+    end
+  end
+end

A09财务通用管理/U_OtherPayableList.pas

@@ -0,0 +1,557 @@
+unit U_OtherPayableList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
+  cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
+  cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters,
+  dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxSkinWXI,
+  dxScrollbarAnnotations;
+
+type
+  TfrmOtherPayableList = class(TfrmBaseList)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    btnDel: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    ADOQueryMain: TADOQuery;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    Label3: TLabel;
+    OppCoName: TEdit;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v2CRTime: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    begdate: TDateTimePicker;
+    Enddate: TDateTimePicker;
+    GPM_1: TcxGridPopupMenu;
+    DS_1: TDataSource;
+    CDS_1: TClientDataSet;
+    btnAdd: TToolButton;
+    v2FactoryName: TcxGridDBColumn;
+    F_Name: TEdit;
+    Label4: TLabel;
+    CheckBox1: TCheckBox;
+    Label6: TLabel;
+    P_Code: TEdit;
+    v2OrderNo: TcxGridDBColumn;
+    cxTabControl1: TcxTabControl;
+    Label10: TLabel;
+    ConNo: TEdit;
+    Label11: TLabel;
+    BuyConNo: TEdit;
+    v2Column2: TcxGridDBColumn;
+    btnChk: TToolButton;
+    btnReChk: TToolButton;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    ToolButton4: TToolButton;
+    Label2: TLabel;
+    OppParentCoName: TEdit;
+    ToolButton5: TToolButton;
+    N2: TMenuItem;
+    btnEdit: TToolButton;
+    Tv1Column3: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column7: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    Tv1Column9: TcxGridDBColumn;
+    Tv1Column10: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    Tv1Column12: TcxGridDBColumn;
+    Tv1Column13: TcxGridDBColumn;
+    Tv1Column14: TcxGridDBColumn;
+    Tv1Column15: TcxGridDBColumn;
+    Tv1Column16: TcxGridDBColumn;
+    Tv1Column17: TcxGridDBColumn;
+    Tv1Column18: TcxGridDBColumn;
+    Tv1Column19: TcxGridDBColumn;
+    Tv1Column20: TcxGridDBColumn;
+    Tv1Column21: TcxGridDBColumn;
+    Tv1Column22: TcxGridDBColumn;
+    Tv1Column23: TcxGridDBColumn;
+    N3: TMenuItem;
+    Tv1Column24: TcxGridDBColumn;
+    Tv1Column1: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    Tv1Column25: TcxGridDBColumn;
+    Tv1Column26: TcxGridDBColumn;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure btnDelClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
+    procedure btnAddClick(Sender: TObject);
+    procedure OppCoNameKeyPress(Sender: TObject; var Key: Char);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure btnChkClick(Sender: TObject);
+    procedure btnReChkClick(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure btnEditClick(Sender: TObject);
+    procedure N3Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
+  private
+    procedure InitGrid();
+    procedure SetStatus();
+  public
+    FAuthority: string;
+  end;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_PayableInput, U_ZDYHelp, U_OtherPayableInput;
+
+{$R *.dfm}
+procedure TfrmOtherPayableList.SetStatus();
+begin
+
+  btnChk.Enabled := false;     //审核
+  btnReChk.Enabled := false;     //撤销
+
+  btnAdd.Enabled := false;     //新增
+  btnEdit.Enabled := false;     //修改
+  btnDel.Enabled := false;           //删除
+
+//  if Trim(FAuthority) = '管理' then
+  begin
+    btnAdd.Enabled := true;
+    case cxTabControl1.TabIndex of
+      0:
+        begin
+          btnEdit.Enabled := true;
+          btnDel.Enabled := true;
+          btnChk.Enabled := true;
+        end;
+      1:
+        begin
+          btnReChk.Enabled := true;
+        end;
+      2:
+        begin
+
+        end;
+    end;
+  end;
+end;
+
+procedure TfrmOtherPayableList.InitGrid();
+var
+  WSql: string;
+begin
+  WSql := SGetFilters(Panel1, 1, 2);
+  if Trim(WSql) <> '' then
+    WSql := ' and ' + WSql
+  else
+    CheckBox1.Checked := True;
+
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      SQL.Clear;
+      Filtered := False;
+      sql.Add(' select BuyConNO=ISNULL(A.BuyConNo,(select TOP 1 BuyConNo from Trade_Plan_Sub X where X.MainID=A.OrdMainId )),A.*  ');
+      sql.Add('from Finance_Flow A where A.FFType=''其他应付款登记''  ');
+      case cxTabControl1.TabIndex of
+        0:
+          begin
+            sql.Add(' and isnull(status,''0'')=''0'' ');
+          end;
+        1:
+          begin
+            sql.Add(' and isnull(status,''0'')=''9'' ');
+          end;
+      end;
+      if CheckBox1.Checked then
+      begin
+        sql.Add(' and A.FFTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
+        sql.Add(' and FFTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
+      end;
+      sql.Add(WSql);
+      sql.Add('Order By FFTime,OppCoName,OrderNo');
+//      ShowMessage(sql.text)  ;
+      Open;
+    end;
+    SCreateCDS(ADOQueryMain, CDS_1);
+    SInitCDSData(ADOQueryMain, CDS_1);
+  finally
+    ADOQueryMain.EnableControls;
+    TV1.DataController.Filter.Clear;
+  end;
+end;
+
+procedure TfrmOtherPayableList.N1Click(Sender: TObject);
+begin
+  SelOKNo(CDS_1, true)
+end;
+
+procedure TfrmOtherPayableList.N2Click(Sender: TObject);
+begin
+  Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
+end;
+
+procedure TfrmOtherPayableList.N3Click(Sender: TObject);
+begin
+  SelOKNo(CDS_1, false)
+
+end;
+
+procedure TfrmOtherPayableList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmOtherPayableList.TBCloseClick(Sender: TObject);
+begin
+
+  Close;
+end;
+
+procedure TfrmOtherPayableList.btnDelClick(Sender: TObject);
+var
+  FFFIDS: string;
+begin
+  if CDS_1.IsEmpty then
+    exit;
+
+  if not CDS_1.Locate('SSel', True, []) then
+  begin
+    application.MessageBox('请选择数据', '提示');
+    Exit;
+  end;
+  with CDS_1 do
+  begin
+    DisableControls;
+    while CDS_1.Locate('SSel', True, []) do
+    begin
+      FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
+      CDS_1.Delete;
+    end;
+    EnableControls;
+  end;
+  try
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' exec P_Fin_Flow_Del ');
+      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      open;
+    end;
+    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+    application.MessageBox('删除成功', '提示');
+  except
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    InitGrid();
+  end;
+end;
+
+procedure TfrmOtherPayableList.FormShow(Sender: TObject);
+begin
+  inherited;
+  ReadCxGrid(trim(Self.Caption), Tv1, '财务管理');
+  Enddate.DateTime := SGetServerDate(ADOQueryTemp);
+  begdate.DateTime := Enddate.DateTime - 30;
+  SetStatus();
+  InitGrid();
+end;
+
+procedure TfrmOtherPayableList.TBRafreshClick(Sender: TObject);
+begin
+  begdate.SetFocus;
+//  with ADOQueryCmd do
+//  begin
+//    Close;
+//    Sql.Clear;
+//    Sql.Add('exec P_Fin_Generate_BQ ');
+//    Open;
+//  end;
+//  if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+//  begin
+//    application.MessageBox(pchar(ADOQueryCmd.FieldByName('ShowMsg').AsString), '提示信息');
+//    Exit;
+//  end;
+  InitGrid();
+
+end;
+
+procedure TfrmOtherPayableList.cxGridDBColumn5PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+  FPS, FQty, FPrice, FQTFee, FMoney, FZKMoney: Double;
+begin
+  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+  mvalue := TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue) = '' then
+  begin
+    mvalue := '0';
+  end;
+
+  with CDS_1 do
+  begin
+    Edit;
+    FieldByName(FFieldName).Value := Trim(mvalue);
+    Post;
+    FPS := CDS_1.fieldbyname('PS').AsFloat;
+    FQty := CDS_1.fieldbyname('Qty').AsFloat;
+    FQTFee := CDS_1.fieldbyname('QTFee').AsFloat;
+    FPrice := CDS_1.fieldbyname('Price').AsFloat;
+    FMoney := CDS_1.fieldbyname('Money').AsFloat;
+
+    FZKMoney := CDS_1.fieldbyname('ZKMoney').AsFloat;
+  end;
+
+  if Trim(FFieldName) <> 'Money' then
+  begin
+    FMoney := FQty * FPrice + FQTFee - FZKMoney;
+  end;
+  with CDS_1 do
+  begin
+    Edit;
+    FieldByName('Money').Value := FMoney;
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('update Finance_Flow set ' + FFieldName + '=' + Trim(mvalue));
+    if Trim(FFieldName) <> 'Money' then
+      sql.Add(' ,Money=' + FloatToStr(FMoney));
+    sql.Add('where FFID=' + quotedstr(Trim(CDS_1.fieldbyname('FFID').AsString)));
+    ExecSQL;
+  end;
+
+  Tv1.Controller.EditingController.ShowEdit();
+end;
+
+procedure TfrmOtherPayableList.btnChkClick(Sender: TObject);
+var
+  FFFIDS: string;
+begin
+  if CDS_1.IsEmpty then
+    exit;
+
+  if not CDS_1.Locate('SSel', True, []) then
+  begin
+    application.MessageBox('请选择数据', '提示');
+    Exit;
+  end;
+
+  with CDS_1 do
+  begin
+    DisableControls;
+    while CDS_1.Locate('SSel', True, []) do
+    begin
+      FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
+      CDS_1.Delete;
+    end;
+    EnableControls;
+  end;
+
+  try
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' exec P_Fin_Flow_SetStatus ');
+      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+      sql.Add(',@Operation=''审核'' ');
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      open;
+    end;
+    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+    application.MessageBox('审核成功', '提示');
+  except
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    InitGrid();
+  end;
+
+end;
+
+procedure TfrmOtherPayableList.btnReChkClick(Sender: TObject);
+var
+  FFFIDS: string;
+begin
+  if CDS_1.IsEmpty then
+    exit;
+
+  if not CDS_1.Locate('SSel', True, []) then
+  begin
+    application.MessageBox('请选择数据', '提示');
+    Exit;
+  end;
+
+  with CDS_1 do
+  begin
+    DisableControls;
+    while CDS_1.Locate('SSel', True, []) do
+    begin
+      FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
+      CDS_1.Delete;
+    end;
+    EnableControls;
+  end;
+
+  try
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' exec P_Fin_Flow_SetStatus ');
+      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+      sql.Add(',@Operation=''撤销审核'' ');
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      open;
+    end;
+    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+    application.MessageBox('撤销审核成功', '提示');
+  except
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    InitGrid();
+  end;
+end;
+
+procedure TfrmOtherPayableList.btnAddClick(Sender: TObject);
+begin
+
+  try
+    frmOtherPayableInput := TfrmOtherPayableInput.Create(Application);
+    with frmOtherPayableInput do
+    begin
+      FFFID := '';
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmOtherPayableInput.Free;
+  end;
+end;
+
+procedure TfrmOtherPayableList.ToolButton1Click(Sender: TObject);
+begin
+  try
+    frmOtherPayableInput := TfrmOtherPayableInput.Create(Application);
+    with frmOtherPayableInput do
+    begin
+      FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
+      PState:='复制';
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmOtherPayableInput.Free;
+  end;
+
+end;
+
+procedure TfrmOtherPayableList.ToolButton4Click(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then
+    Exit;
+  TcxGridToExcel(self.Caption, cxgrid1);
+end;
+
+procedure TfrmOtherPayableList.ToolButton5Click(Sender: TObject);
+begin
+  WriteCxGrid(trim(Self.Caption), Tv1, '财务管理');
+end;
+
+procedure TfrmOtherPayableList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
+  ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+  var ADone: Boolean);
+begin
+  if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Filler').Index] <> '自动' then
+     ACanvas.Font.Color := clBlue;
+
+//  if '自动' <> AViewInfo.GridRecord.Values[Tv1Column25.Index] then ACanvas.Font.Color := clBlue;
+
+end;
+
+procedure TfrmOtherPayableList.btnEditClick(Sender: TObject);
+begin
+  try
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' exec P_Fin_Flow_Judge ');
+      sql.Add(' @FFIDS=' + QuotedStr(Trim(SELF.CDS_1.fieldbyname('FFID').AsString)));
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      open;
+    end;
+    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+  except
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    Exit;
+  end;
+  try
+    frmOtherPayableInput := TfrmOtherPayableInput.Create(Application);
+    with frmOtherPayableInput do
+    begin
+      FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmOtherPayableInput.Free;
+  end;
+end;
+
+procedure TfrmOtherPayableList.OppCoNameKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+  begin
+    InitGrid();
+  end;
+end;
+
+procedure TfrmOtherPayableList.cxTabControl1Change(Sender: TObject);
+begin
+  SetStatus();
+  InitGrid();
+end;
+
+end.
+

A09财务通用管理/U_PayInput.dfm

@@ -71,7 +71,6 @@ object frmPayInput: TfrmPayInput
     ParentCtl3D = False
     ParentFont = False
     TabOrder = 1
-    ExplicitTop = 44
     object Label2: TLabel
       Left = 32
       Top = 69
@@ -179,9 +178,9 @@ object frmPayInput: TfrmPayInput
     object Label20: TLabel
       Left = 486
       Top = 20
-      Width = 39
+      Width = 65
       Height = 15
-      Caption = #26085#26399#65306
+      Caption = #30003#35831#26085#26399#65306
       Font.Charset = ANSI_CHARSET
       Font.Color = clWindowText
       Font.Height = -12
@@ -369,9 +368,9 @@ object frmPayInput: TfrmPayInput
       OnBtnUpClick = OppBankNameBtnUpClick
       OnBtnDnClick = PayMentBtnDnClick
     end
-    object FFTime: TDateTimePicker
+    object SQDate: TDateTimePicker
-      Left = 539
+      Left = 544
-      Top = 17
+      Top = 18
       Width = 125
       Height = 20
       BevelInner = bvNone

A09财务通用管理/U_PayInput.pas

@@ -43,7 +43,7 @@ type
     Label19: TLabel;
     OppBankName: TBtnEditC;
     Label20: TLabel;
-    FFTime: TDateTimePicker;
+    SQDate: TDateTimePicker;
     Label22: TLabel;
     OrderNo: TBtnEditC;
     Label23: TLabel;
@@ -73,7 +73,7 @@ type
     function SaveData(): Boolean;
   public
     { Public declarations }
-    FFFID: string;
+    FFFID,PState: string;
   end;
 
 var
@@ -111,7 +111,13 @@ begin
     end
     else
     begin
-      FFTime.DateTime := SGetServerDateTime(ADOQueryTemp);
+      SQDate.DateTime := SGetServerDateTime(ADOQueryTemp);
+    end;
+
+    if PState='¸´ÖÆ' then
+    begin
+       FFFID:='';
+
     end;
 
   finally

A09财务通用管理/U_PayList.dfm

@@ -3,10 +3,10 @@ inherited frmPayList: TfrmPayList
   Top = 101
   Caption = #20184#27454#31649#29702
   ClientHeight = 590
-  ClientWidth = 1540
+  ClientWidth = 1284
   FormStyle = fsMDIChild
   Visible = True
-  ExplicitWidth = 1556
+  ExplicitWidth = 1300
   ExplicitHeight = 629
   PixelsPerInch = 96
   TextHeight = 12
@@ -14,7 +14,7 @@ inherited frmPayList: TfrmPayList
     Tag = 1
     Left = 0
     Top = 0
-    Width = 1540
+    Width = 1284
     Height = 38
     AutoSize = True
     ButtonHeight = 38
@@ -51,16 +51,24 @@ inherited frmPayList: TfrmPayList
       ImageIndex = 3
       OnClick = btnEditClick
     end
-    object btnDel: TToolButton
+    object ToolButton3: TToolButton
       Left = 213
       Top = 0
       AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 13
+      OnClick = ToolButton3Click
+    end
+    object btnDel: TToolButton
+      Left = 284
+      Top = 0
+      AutoSize = True
       Caption = #21024#38500
       ImageIndex = 5
       OnClick = btnDelClick
     end
     object btnChk: TToolButton
-      Left = 284
+      Left = 355
       Top = 0
       AutoSize = True
       Caption = #23457#26680
@@ -68,15 +76,31 @@ inherited frmPayList: TfrmPayList
       OnClick = btnChkClick
     end
     object btnReChk: TToolButton
-      Left = 355
+      Left = 426
       Top = 0
       AutoSize = True
       Caption = #25764#38144#23457#26680
       ImageIndex = 11
       OnClick = btnReChkClick
     end
+    object ToolButton1: TToolButton
+      Left = 521
+      Top = 0
+      AutoSize = True
+      Caption = #20184#27454
+      ImageIndex = 12
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 592
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#20184#27454
+      ImageIndex = 11
+      OnClick = ToolButton2Click
+    end
     object ToolButton9: TToolButton
-      Left = 450
+      Left = 687
       Top = 0
       AutoSize = True
       Caption = #38468#20214#19978#20256
@@ -84,7 +108,7 @@ inherited frmPayList: TfrmPayList
       OnClick = ToolButton9Click
     end
     object ToolButton4: TToolButton
-      Left = 545
+      Left = 782
       Top = 0
       AutoSize = True
       Caption = #23548#20986
@@ -92,7 +116,7 @@ inherited frmPayList: TfrmPayList
       OnClick = ToolButton4Click
     end
     object ToolButton5: TToolButton
-      Left = 616
+      Left = 853
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -100,7 +124,7 @@ inherited frmPayList: TfrmPayList
       OnClick = ToolButton5Click
     end
     object TBClose: TToolButton
-      Left = 711
+      Left = 948
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -111,7 +135,7 @@ inherited frmPayList: TfrmPayList
   object Panel1: TPanel [1]
     Left = 0
     Top = 38
-    Width = 1540
+    Width = 1284
     Height = 65
     Align = alTop
     BevelInner = bvRaised
@@ -253,11 +277,13 @@ inherited frmPayList: TfrmPayList
   object cxGrid1: TcxGrid [2]
     Left = 0
     Top = 136
-    Width = 1540
+    Width = 1284
     Height = 454
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
+    ExplicitLeft = -64
+    ExplicitTop = 144
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False
@@ -308,9 +334,16 @@ inherited frmPayList: TfrmPayList
         HeaderAlignmentHorz = taCenter
         Width = 44
       end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #30003#35831#26085#26399
+        DataBinding.FieldName = 'SQDate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
       object v2CRTime: TcxGridDBColumn
         Tag = 7
-        Caption = #26085#26399
+        Caption = #23454#20184#26085#26399
         DataBinding.FieldName = 'FFTime'
         DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
@@ -320,6 +353,13 @@ inherited frmPayList: TfrmPayList
         Options.Editing = False
         Width = 66
       end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #25490#27454#26085#26399
+        DataBinding.FieldName = 'PKDate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
       object v2Column2: TcxGridDBColumn
         Caption = #25105#26041#21333#20301
         DataBinding.FieldName = 'OurCoName'
@@ -457,7 +497,7 @@ inherited frmPayList: TfrmPayList
   object cxTabControl1: TcxTabControl [3]
     Left = 0
     Top = 103
-    Width = 1540
+    Width = 1284
     Height = 33
     Align = alTop
     Font.Charset = ANSI_CHARSET
@@ -473,12 +513,117 @@ inherited frmPayList: TfrmPayList
     Properties.Tabs.Strings = (
       #26410#23457#26680
       #24050#23457#26680
+      #24050#20184#27454
       #20840#37096)
     OnChange = cxTabControl1Change
     ClientRectBottom = 36
-    ClientRectRight = 1540
+    ClientRectRight = 1284
     ClientRectTop = 36
   end
+  object Panel2: TPanel [4]
+    Left = 983
+    Top = 301
+    Width = 237
+    Height = 89
+    TabOrder = 4
+    Visible = False
+    object SetDate1: TDateTimePicker
+      Left = 29
+      Top = 49
+      Width = 85
+      Height = 20
+      Date = 41256.000000000000000000
+      Time = 0.918237847232376200
+      TabOrder = 0
+    end
+    object Panel3: TPanel
+      Left = 1
+      Top = 1
+      Width = 235
+      Height = 24
+      Align = alTop
+      Caption = #25490#27454#26085#26399#36873#25321
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentBackground = False
+      ParentFont = False
+      TabOrder = 1
+      object Button4: TButton
+        Left = 194
+        Top = -1
+        Width = 41
+        Height = 26
+        Caption = #20851#38381
+        TabOrder = 0
+        OnClick = Button4Click
+      end
+    end
+    object Button1: TButton
+      Left = 136
+      Top = 47
+      Width = 75
+      Height = 25
+      Caption = #30830#23450
+      TabOrder = 2
+      OnClick = Button1Click
+    end
+  end
+  object Panel4: TPanel [5]
+    Left = 727
+    Top = 301
+    Width = 237
+    Height = 89
+    TabOrder = 5
+    Visible = False
+    object SetDate2: TDateTimePicker
+      Left = 29
+      Top = 49
+      Width = 85
+      Height = 20
+      Date = 41256.000000000000000000
+      Time = 0.918237847232376200
+      TabOrder = 0
+    end
+    object Panel5: TPanel
+      Left = 1
+      Top = 1
+      Width = 235
+      Height = 24
+      Align = alTop
+      Caption = #23454#20184#26085#26399#36873#25321
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -14
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentBackground = False
+      ParentFont = False
+      TabOrder = 1
+      object Button3: TButton
+        Left = 196
+        Top = -1
+        Width = 41
+        Height = 26
+        Caption = #20851#38381
+        TabOrder = 0
+        OnClick = Button3Click
+      end
+    end
+    object Button2: TButton
+      Left = 136
+      Top = 47
+      Width = 75
+      Height = 25
+      Caption = #30830#23450
+      TabOrder = 2
+      OnClick = Button2Click
+    end
+  end
   inherited ADOQueryBaseCmd: TADOQuery
     Connection = DataLink_Financial.ADOLink
     Left = 233

A09财务通用管理/U_PayList.pas

@@ -81,6 +81,21 @@ type
     Tv1Column7: TcxGridDBColumn;
     Tv1Column8: TcxGridDBColumn;
     Tv1Column9: TcxGridDBColumn;
+    Tv1Column10: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    SetDate1: TDateTimePicker;
+    Panel2: TPanel;
+    Panel3: TPanel;
+    Button1: TButton;
+    Panel4: TPanel;
+    SetDate2: TDateTimePicker;
+    Panel5: TPanel;
+    Button2: TButton;
+    ToolButton3: TToolButton;
+    Button3: TButton;
+    Button4: TButton;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure btnDelClick(Sender: TObject);
@@ -99,6 +114,13 @@ type
     procedure ToolButton9Click(Sender: TObject);
     procedure N1Click(Sender: TObject);
     procedure N3Click(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure Button3Click(Sender: TObject);
+    procedure Button4Click(Sender: TObject);
   private
     procedure InitGrid();
     procedure SetStatus();
@@ -117,11 +139,13 @@ begin
 
   btnChk.Enabled := false;     //审核
   btnReChk.Enabled := false;     //撤销
-
 //  btnAdd.Enabled := false;     //新增
   btnEdit.Enabled := false;     //修改
   btnDel.Enabled := false;           //删除
 
+  ToolButton1.Enabled := false;   //付款
+  ToolButton2.Enabled := false;   //撤销付款
+
   if Trim(FAuthority) = '管理' then
   begin
 //    btnAdd.Enabled := true;
@@ -135,13 +159,15 @@ begin
       1:
         begin
           btnReChk.Enabled := true;
+          ToolButton1.Enabled := true;
         end;
       2:
         begin
-
+          ToolButton2.Enabled := true;
         end;
     end;
-  end else if Trim(FAuthority) = '录入' then
+  end
+  else if Trim(FAuthority) = '录入' then
   begin
     case cxTabControl1.TabIndex of
       0:
@@ -159,6 +185,26 @@ begin
 
         end;
     end;
+  end
+  else if Trim(FAuthority) = '登记' then
+  begin
+    case cxTabControl1.TabIndex of
+      0:
+        begin
+          btnEdit.Enabled := true;
+          btnDel.Enabled := true;
+//          btnChk.Enabled := true;
+        end;
+      1:
+        begin
+//          btnReChk.Enabled := true;
+          ToolButton1.Enabled := true;
+        end;
+      2:
+        begin
+          ToolButton2.Enabled := true;
+        end;
+    end;
   end;
 
 end;
@@ -192,11 +238,15 @@ begin
           begin
             sql.Add(' and isnull(status,''0'')=''9'' ');
           end;
+        2:
+          begin
+            sql.Add(' and isnull(status,''0'')=''10'' ');
+          end;
       end;
       if CheckBox1.Checked then
       begin
-        sql.Add(' and A.FFTime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
+        sql.Add(' and A.SQDate>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
-        sql.Add(' and FFTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
+        sql.Add(' and A.SQDate<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
       end;
       sql.Add(WSql);
       Open;
@@ -291,6 +341,8 @@ begin
   inherited;
   ReadCxGrid(trim(Self.Caption), Tv1, '财务管理');
   Enddate.DateTime := SGetServerDate(ADOQueryTemp);
+  SetDate1.DateTime := SGetServerDate(ADOQueryTemp);
+  SetDate2.DateTime := SGetServerDate(ADOQueryTemp);
   begdate.DateTime := Enddate.DateTime - 30;
   FAuthority := self.fParameters1;
   SetStatus();
@@ -356,66 +408,70 @@ begin
 end;
 
 procedure TfrmPayList.btnChkClick(Sender: TObject);
-var
-  FFFIDS: string;
 begin
-  if CDS_1.IsEmpty then
+  Panel2.Left := (self.width - Panel2.width) div 2;
-    exit;
+  Panel2.Visible := True;
-
-  if not CDS_1.Locate('SSel', True, []) then
-  begin
-    application.MessageBox('请选择数据', '提示');
-    Exit;
-  end;
-
-  with CDS_1 do
-  begin
-    DisableControls;
-    while CDS_1.Locate('SSel', True, []) do
-    begin
-      FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
-      CDS_1.Delete;
-    end;
-    EnableControls;
-  end;
-
-  try
-    ADOQueryCmd.Connection.BeginTrans;
-    with ADOQueryCmd do
-    begin
-      Close;
-      sql.Clear;
-      sql.Add(' exec P_Fin_Flow_SetStatus ');
-      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
-      sql.Add(',@Operation=''审核'' ');
-      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
-      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
-      open;
-    end;
-    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
-      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
-
-    with ADOQueryCmd do
-    begin
-      Close;
-      sql.Clear;
-      sql.Add(' exec P_Fin_In_Bank_Flow ');
-      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
-      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
-      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
-      open;
-    end;
-    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
-      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
-    ADOQueryCmd.Connection.CommitTrans;
-    application.MessageBox('审核成功', '提示');
-  except
-    ADOQueryCmd.Connection.RollbackTrans;
-    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
-    InitGrid();
-  end;
-
 end;
+//var
+//  FFFIDS: string;
+//begin
+//  if CDS_1.IsEmpty then
+//    exit;
+//
+//  if not CDS_1.Locate('SSel', True, []) then
+//  begin
+//    application.MessageBox('请选择数据', '提示');
+//    Exit;
+//  end;
+//
+//  with CDS_1 do
+//  begin
+//    DisableControls;
+//    while CDS_1.Locate('SSel', True, []) do
+//    begin
+//      FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
+//      CDS_1.Delete;
+//    end;
+//    EnableControls;
+//  end;
+//
+//  try
+//    ADOQueryCmd.Connection.BeginTrans;
+//    with ADOQueryCmd do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.Add(' exec P_Fin_Flow_SetStatus ');
+//      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+//      sql.Add(',@Operation=''审核'' ');
+//      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+//      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+//      open;
+//    end;
+//    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+//      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+//
+//    with ADOQueryCmd do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.Add(' exec P_Fin_In_Bank_Flow ');
+//      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+//      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+//      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+//      open;
+//    end;
+//    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+//      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+//    ADOQueryCmd.Connection.CommitTrans;
+//    application.MessageBox('审核成功', '提示');
+//  except
+//    ADOQueryCmd.Connection.RollbackTrans;
+//    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+//    InitGrid();
+//  end;
+//
+//end;
 
 procedure TfrmPayList.btnReChkClick(Sender: TObject);
 var
@@ -457,6 +513,133 @@ begin
     if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
       raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
 
+//    with ADOQueryCmd do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.Add(' exec P_Fin_In_Bank_Flow ');
+//      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+//      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+//      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+//      open;
+//    end;
+//    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+//      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+    ADOQueryCmd.Connection.CommitTrans;
+
+    application.MessageBox('撤销审核成功', '提示');
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    InitGrid();
+  end;
+end;
+
+procedure TfrmPayList.Button1Click(Sender: TObject);
+var
+  FFFIDS: string;
+begin
+  if CDS_1.IsEmpty then
+    exit;
+
+  if not CDS_1.Locate('SSel', True, []) then
+  begin
+    application.MessageBox('请选择数据', '提示');
+    Exit;
+  end;
+
+  with CDS_1 do
+  begin
+    DisableControls;
+    while CDS_1.Locate('SSel', True, []) do
+    begin
+      FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
+      CDS_1.Delete;
+    end;
+    EnableControls;
+  end;
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' exec P_Fin_Flow_SetStatus_1 ');
+      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+      sql.Add(',@Operation=''审核'' ');
+      Sql.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate1.DateTime) + ''' ');
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      open;
+    end;
+    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+
+//    with ADOQueryCmd do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.Add(' exec P_Fin_In_Bank_Flow ');
+//      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+//      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+//      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+//      open;
+//    end;
+//    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+//      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+    ADOQueryCmd.Connection.CommitTrans;
+    application.MessageBox('审核成功', '提示');
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    InitGrid();
+    Panel2.Visible := False;
+  end;
+
+end;
+
+procedure TfrmPayList.Button2Click(Sender: TObject);
+var
+  FFFIDS: string;
+begin
+  if CDS_1.IsEmpty then
+    exit;
+
+  if not CDS_1.Locate('SSel', True, []) then
+  begin
+    application.MessageBox('请选择数据', '提示');
+    Exit;
+  end;
+
+  with CDS_1 do
+  begin
+    DisableControls;
+    while CDS_1.Locate('SSel', True, []) do
+    begin
+      FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
+      CDS_1.Delete;
+    end;
+    EnableControls;
+  end;
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' exec P_Fin_Flow_SetStatus_1 ');
+      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+      sql.Add(',@Operation=''付款'' ');
+      Sql.Add(',@SetDate=''' + FormatDateTime('yyyy-MM-dd', Setdate2.DateTime) + ''' ');
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      open;
+    end;
+    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+
     with ADOQueryCmd do
     begin
       Close;
@@ -470,13 +653,26 @@ begin
     if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
       raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
     ADOQueryCmd.Connection.CommitTrans;
-
+    application.MessageBox('付款成功', '提示');
-    application.MessageBox('撤销审核成功', '提示');
   except
     ADOQueryCmd.Connection.RollbackTrans;
     application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
     InitGrid();
+    Panel2.Visible := False;
   end;
+
+end;
+
+procedure TfrmPayList.Button3Click(Sender: TObject);
+begin
+//  inherited;
+  Panel4.Visible := False;
+end;
+
+procedure TfrmPayList.Button4Click(Sender: TObject);
+begin
+  Panel2.Visible := False;
+
 end;
 
 procedure TfrmPayList.btnAddClick(Sender: TObject);
@@ -497,6 +693,94 @@ begin
   end;
 end;
 
+procedure TfrmPayList.ToolButton1Click(Sender: TObject);
+begin
+  Panel4.Left := (self.width - Panel4.width) div 2;
+  Panel4.Visible := True;
+
+end;
+
+procedure TfrmPayList.ToolButton2Click(Sender: TObject);
+var
+  FFFIDS: string;
+begin
+  if CDS_1.IsEmpty then
+    exit;
+
+  if not CDS_1.Locate('SSel', True, []) then
+  begin
+    application.MessageBox('请选择数据', '提示');
+    Exit;
+  end;
+
+  with CDS_1 do
+  begin
+    DisableControls;
+    while CDS_1.Locate('SSel', True, []) do
+    begin
+      FFFIDS := FFFIDS + Trim(CDS_1.fieldbyname('FFID').AsString) + ',';
+      CDS_1.Delete;
+    end;
+    EnableControls;
+  end;
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' exec P_Fin_Flow_SetStatus ');
+      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+      sql.Add(',@Operation=''撤销付款'' ');
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      open;
+    end;
+    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add(' exec P_Fin_In_Bank_Flow ');
+      sql.Add(' @FFIDS=' + QuotedStr(FFFIDS));
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      open;
+    end;
+    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+    ADOQueryCmd.Connection.CommitTrans;
+
+    application.MessageBox('撤销付款成功', '提示');
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    InitGrid();
+  end;
+end;
+
+procedure TfrmPayList.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmPayInput := TfrmPayInput.Create(Application);
+    with frmPayInput do
+    begin
+      FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
+      PState := '复制';
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmPayInput.Free;
+  end;
+
+end;
+
 procedure TfrmPayList.ToolButton4Click(Sender: TObject);
 begin
   if ADOQueryMain.IsEmpty then

A09财务通用管理/U_PayableInput.dfm

@@ -244,8 +244,8 @@ object frmPayableInput: TfrmPayableInput
       Visible = False
     end
     object Label15: TLabel
-      Left = 455
+      Left = 671
-      Top = 79
+      Top = 80
       Width = 50
       Height = 15
       Caption = #33457'        '#22411
@@ -259,7 +259,7 @@ object frmPayableInput: TfrmPayableInput
     end
     object Label16: TLabel
       Left = 674
-      Top = 79
+      Top = 105
       Width = 50
       Height = 15
       Caption = #39068'        '#33394
@@ -376,6 +376,19 @@ object frmPayableInput: TfrmPayableInput
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label19: TLabel
+      Left = 459
+      Top = 79
+      Width = 52
+      Height = 15
+      Caption = #25171#21253#26041#24335
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object F_Code: TEdit
       Left = 82
       Top = 77
@@ -545,8 +558,8 @@ object frmPayableInput: TfrmPayableInput
       Visible = False
     end
     object F_Pattern: TEdit
-      Left = 512
+      Left = 728
-      Top = 78
+      Top = 79
       Width = 140
       Height = 18
       TabOrder = 15
@@ -554,7 +567,7 @@ object frmPayableInput: TfrmPayableInput
     end
     object F_Color: TEdit
       Left = 727
-      Top = 77
+      Top = 103
       Width = 140
       Height = 18
       TabOrder = 16
@@ -666,6 +679,22 @@ object frmPayableInput: TfrmPayableInput
       OnExit = QtyExit
       Width = 140
     end
+    object DBFS: TBtnEditC
+      Left = 513
+      Top = 77
+      Width = 140
+      Height = 20
+      Hint = 'DBFS/'#25171#21253#26041#24335
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 26
+      OnBtnUpClick = PayMentBtnUpClick
+      OnBtnDnClick = PayMentBtnDnClick
+    end
   end
   object ADOQueryTemp: TADOQuery
     Connection = DataLink_Financial.ADOLink

A09财务通用管理/U_PayableInput.pas

@@ -74,6 +74,8 @@ type
     Label18: TLabel;
     IsInvoice: TComboBox;
     FZFlag: TcxCurrencyEdit;
+    Label19: TLabel;
+    DBFS: TBtnEditC;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
@@ -280,7 +282,7 @@ begin
     frmZDYHelp := TfrmZDYHelp.Create(Application);
     with frmZDYHelp do
     begin
-      MainType := '壇마운';
+//      MainType := '壇마운';
       flag := Copy(fsj, 1, FWZ - 1);
       flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
       if ShowModal = 1 then

A09财务通用管理/U_PayableList.dfm

@@ -538,6 +538,19 @@ inherited frmPayableList: TfrmPayableList
         DataBinding.IsNullValueType = True
         Visible = False
       end
+      object Tv1Column26: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object Tv1Column27: TcxGridDBColumn
+        Caption = #25171#21253#26041#24335
+        DataBinding.FieldName = 'DBFS'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+      end
     end
     object cxGridLevel1: TcxGridLevel
       GridView = Tv1

A09财务通用管理/U_PayableList.pas

@@ -91,6 +91,8 @@ type
     Tv1Column2: TcxGridDBColumn;
     ToolButton1: TToolButton;
     Tv1Column25: TcxGridDBColumn;
+    Tv1Column26: TcxGridDBColumn;
+    Tv1Column27: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure btnDelClick(Sender: TObject);
@@ -497,7 +499,8 @@ procedure TfrmPayableList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
   ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
   var ADone: Boolean);
 begin
-  if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Filler').Index] <> '自动' then
+  if (AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('Filler').Index] <> '自动')
+   and (AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('FFAbstract').Index] <> 'S4-仓储打包费用') then
      ACanvas.Font.Color := clBlue;
 
 //  if '×Ô¶¯' <> AViewInfo.GridRecord.Values[Tv1Column25.Index] then ACanvas.Font.Color := clBlue;

A09财务通用管理/U_ReceivableList.dfm

@@ -6,7 +6,6 @@ inherited frmReceivableList: TfrmReceivableList
   ClientWidth = 1540
   FormStyle = fsMDIChild
   Visible = True
-  ExplicitTop = -20
   ExplicitWidth = 1556
   ExplicitHeight = 629
   PixelsPerInch = 96
@@ -120,8 +119,6 @@ inherited frmReceivableList: TfrmReceivableList
     Color = clWhite
     ParentBackground = False
     TabOrder = 1
-    ExplicitLeft = 1
-    ExplicitTop = 39
     object Label3: TLabel
       Left = 172
       Top = 13
@@ -277,10 +274,12 @@ inherited frmReceivableList: TfrmReceivableList
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
+    ExplicitTop = 142
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       Navigator.Buttons.Delete.Enabled = False
       Navigator.Buttons.Delete.Visible = False
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DS_1
       DataController.Filter.AutoDataSetFilter = True
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -325,6 +324,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column22: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         HeaderAlignmentHorz = taCenter
@@ -334,6 +334,7 @@ inherited frmReceivableList: TfrmReceivableList
         Tag = 7
         Caption = #21457#29983#26085#26399
         DataBinding.FieldName = 'FFTime'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.SaveTime = False
         Properties.ShowTime = False
@@ -344,12 +345,14 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column27: TcxGridDBColumn
         Caption = #24212#25910#26085#26399
         DataBinding.FieldName = 'YSDate'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 79
       end
       object Tv1Column23: TcxGridDBColumn
         Caption = #23545#36134#26085#26399
         DataBinding.FieldName = 'ReconciliationDate'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -358,6 +361,7 @@ inherited frmReceivableList: TfrmReceivableList
       object v2Column2: TcxGridDBColumn
         Caption = #25105#26041#21333#20301
         DataBinding.FieldName = 'OurCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -365,6 +369,7 @@ inherited frmReceivableList: TfrmReceivableList
       object v2FactoryName: TcxGridDBColumn
         Caption = #23545#26041#21333#20301
         DataBinding.FieldName = 'OppCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 76
@@ -372,6 +377,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column2: TcxGridDBColumn
         Caption = #19994#21153#21592
         DataBinding.FieldName = 'Saleser'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 57
       end
@@ -379,6 +385,7 @@ inherited frmReceivableList: TfrmReceivableList
         Tag = 7
         Caption = #19978#32423#21333#20301
         DataBinding.FieldName = 'OppParentCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -386,6 +393,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column3: TcxGridDBColumn
         Caption = #20215#26684#26415#35821
         DataBinding.FieldName = 'PayMent'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -393,6 +401,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column19: TcxGridDBColumn
         Caption = #21512#21516#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 77
@@ -400,6 +409,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column24: TcxGridDBColumn
         Caption = #25688#35201
         DataBinding.FieldName = 'FFAbstract'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 79
@@ -407,6 +417,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column20: TcxGridDBColumn
         Caption = #35745#21010#21333#21495
         DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -414,12 +425,14 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column21: TcxGridDBColumn
         Caption = #23458#25143#21333#21495
         DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 74
       end
       object Tv1Column4: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'F_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -427,6 +440,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column5: TcxGridDBColumn
         Caption = #21697#21517
         DataBinding.FieldName = 'F_Name'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -434,6 +448,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column6: TcxGridDBColumn
         Caption = #33457#22411
         DataBinding.FieldName = 'F_Pattern'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -441,6 +456,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column7: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'F_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -448,6 +464,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column8: TcxGridDBColumn
         Caption = #38376#24133
         DataBinding.FieldName = 'F_Width'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -455,6 +472,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column9: TcxGridDBColumn
         Caption = #20811#37325
         DataBinding.FieldName = 'F_GramWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -462,6 +480,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column10: TcxGridDBColumn
         Caption = #33394#21495
         DataBinding.FieldName = 'F_ColorNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -469,6 +488,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column11: TcxGridDBColumn
         Caption = #21305#25968
         DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -476,6 +496,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column12: TcxGridDBColumn
         Caption = #25968#37327
         DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -483,6 +504,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column13: TcxGridDBColumn
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -490,6 +512,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column14: TcxGridDBColumn
         Caption = #21333#20215
         DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -497,6 +520,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column15: TcxGridDBColumn
         Caption = #20854#20182#36153
         DataBinding.FieldName = 'OtherFee'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -504,6 +528,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column16: TcxGridDBColumn
         Caption = #20943#20813
         DataBinding.FieldName = 'Deduction'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -511,12 +536,14 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column26: TcxGridDBColumn
         Caption = #20323#37329
         DataBinding.FieldName = 'YJ'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 58
       end
       object Tv1Column17: TcxGridDBColumn
         Caption = #37329#39069
         DataBinding.FieldName = 'Amount'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -524,6 +551,7 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column18: TcxGridDBColumn
         Caption = #24065#31181
         DataBinding.FieldName = 'Currency'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -531,16 +559,25 @@ inherited frmReceivableList: TfrmReceivableList
       object Tv1Column25: TcxGridDBColumn
         Caption = #26680#38144#37329#39069
         DataBinding.FieldName = 'FFWoAmount'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
       end
       object Tv1Column1: TcxGridDBColumn
         Caption = #26469#28304
         DataBinding.FieldName = 'FromID1'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 70
       end
+      object Tv1Column28: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 92
+      end
     end
     object cxGridLevel1: TcxGridLevel
       GridView = Tv1

A09财务通用管理/U_ReceivableList.pas

@@ -14,7 +14,8 @@ uses
   IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
   cxTextEdit, cxPC, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters,
   cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters,
-  dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd;
+  dxDateRanges, U_BaseList, Vcl.Menus, Vcl.Clipbrd, dxSkinWXI,
+  dxScrollbarAnnotations;
 
 type
   TfrmReceivableList = class(TfrmBaseList)
@@ -94,6 +95,7 @@ type
     OrderNo: TEdit;
     Tv1Column26: TcxGridDBColumn;
     Tv1Column27: TcxGridDBColumn;
+    Tv1Column28: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure btnDelClick(Sender: TObject);
@@ -134,7 +136,6 @@ begin
   btnAdd.Enabled := false;     //新增
   btnEdit.Enabled := false;     //修改
   btnDel.Enabled := false;           //删除
-
 //  if Trim(FAuthority) = '管理' then
   begin
     btnAdd.Enabled := true;
@@ -358,6 +359,12 @@ begin
   if CDS_1.IsEmpty then
     exit;
 
+//  if not VarIsNull(CDS_1.FieldByName('Price').Value) then
+//  begin
+//    application.MessageBox('单价不能为空', '提示');
+//    Exit;
+//  end;
+
   if not CDS_1.Locate('SSel', True, []) then
   begin
     application.MessageBox('请选择数据', '提示');

B01基础合同管理/ProjectGroup1.groupproj.local

@@ -2,6 +2,6 @@
 <BorlandProject>
 	<Transactions/>
 	<Default.Personality>
-    <Projects ActiveProject="D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\testDll.dproj"/>
+		<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\Contract.dproj"/>
 	</Default.Personality>
 </BorlandProject>

T01贸易生产计划/ProjectGroup1.groupproj.local

@@ -2,6 +2,6 @@
 <BorlandProject>
 	<Transactions/>
 	<Default.Personality>
-    <Projects ActiveProject="D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\testDll.dproj"/>
+		<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\TradePlan.dproj"/>
 	</Default.Personality>
 </BorlandProject>

T01贸易生产计划/TradePlan.dpr

@@ -31,7 +31,8 @@ uses
   U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
   U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
   U_TradePlanSchedule in 'U_TradePlanSchedule.pas' {frmTradePlanSchedule},
-  U_TradePlanScheduleDetail in 'U_TradePlanScheduleDetail.pas' {frmTradePlanScheduleDetail};
+  U_TradePlanScheduleDetail in 'U_TradePlanScheduleDetail.pas' {frmTradePlanScheduleDetail},
+  U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
 
 {$R *.res}
 

T01贸易生产计划/TradePlan.dproj

@@ -124,7 +124,7 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
         <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
-        <Debugger_HostApplication>D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\testDll.exe</Debugger_HostApplication>
+        <Debugger_HostApplication>D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\testDll.exe</Debugger_HostApplication>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
@@ -209,6 +209,11 @@
             <Form>frmTradePlanScheduleDetail</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
+            <Form>BaseDataLink</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

T01贸易生产计划/TradePlan.dproj.local

@@ -1,44 +1,47 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.332,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.983,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.672,D:\Dp10Repo\public10\design\U_BaseDataLink.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.833,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.926,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanScheduleDetail.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.905,=D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -100,6 +103,8 @@
     <File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
     <File Path="..\..\..\public10\design\U_globalVar.pas"/>
     <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
+    <File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
+    <File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
     <File Path="..\..\..\public10\ThreeFun"/>
     <File Path="..\..\..\public10\ThreeFun\Form"/>
     <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>

T01贸易生产计划/U_DataLink.dfm

@@ -1,9 +1,8 @@
-object DataLink_TradePlan: TDataLink_TradePlan
+inherited DataLink_TradePlan: TDataLink_TradePlan
-  OldCreateOrder = False
-  OnCreate = DataModuleCreate
   OnDestroy = DataModuleDestroy
-  Height = 349
+  inherited cxImageList_bar: TcxImageList
-  Width = 482
+    FormatVersion = 1
+  end
   object AdoDataLink: TADOQuery
     Connection = ADOLink
     Parameters = <>
@@ -10426,6 +10425,8 @@ object DataLink_TradePlan: TDataLink_TradePlan
   object ThreeLookAndFeelCol: TcxLookAndFeelController
     Kind = lfStandard
     NativeStyle = False
+    ScrollbarMode = sbmHybrid
+    SkinName = 'WXI'
     Left = 253
     Top = 12
   end

T01贸易生产计划/U_DataLink.pas

@@ -5,7 +5,8 @@ interface
 uses
   SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
   Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
-  dxSkinsCore, dxSkinsDefaultPainters, System.ImageList;
+  dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinWXI,
+  U_BaseDataLink, dxCore, cxLocalization, cxImageList, cxGraphics, dxSkinsForm;
 
 type
   TMyThread = class(TThread)
@@ -37,7 +38,7 @@ var
   UserDataFlag: string;
 
 type
-  TDataLink_TradePlan = class(TDataModule)
+  TDataLink_TradePlan = class(TBaseDataLink)
     AdoDataLink: TADOQuery;
     ADOLink: TADOConnection;
     ThreeImgList: TImageList;
@@ -109,6 +110,7 @@ end;
 
 procedure TDataLink_TradePlan.DataModuleDestroy(Sender: TObject);
 begin
+  inherited;
   CriticalSection.Free;
   DataLink_TradePlan := nil;
 end;
@@ -120,6 +122,7 @@ end;
 
 procedure TDataLink_TradePlan.DataModuleCreate(Sender: TObject);
 begin
+  inherited;
   CriticalSection := TCriticalSection.Create;
 end;
 

T01贸易生产计划/U_TradePlanInPut.dfm

@@ -112,6 +112,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
     ParentCtl3D = False
     TabOrder = 1
     OnClick = ScrollBox1Click
+    ExplicitTop = 32
     object Label3: TLabel
       Left = 399
       Top = 49
@@ -681,7 +682,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       ParentFont = False
     end
     object Label46: TLabel
-      Left = 40
+      Left = 41
       Top = 235
       Width = 52
       Height = 15
@@ -694,7 +695,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       ParentFont = False
     end
     object Label47: TLabel
-      Left = 40
+      Left = 41
       Top = 289
       Width = 52
       Height = 15
@@ -707,7 +708,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       ParentFont = False
     end
     object Label48: TLabel
-      Left = 40
+      Left = 41
       Top = 320
       Width = 52
       Height = 15
@@ -719,6 +720,19 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label28: TLabel
+      Left = 41
+      Top = 354
+      Width = 52
+      Height = 15
+      Caption = #25171#21253#26041#24335
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object OrderNo: TEdit
       Tag = 2
       Left = 1046
@@ -1220,6 +1234,17 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       OnBtnUpClick = ConNoBtnUpClick
       OnBtnDnClick = OurCoNameBtnDnClick
     end
+    object DBFS: TBtnEditC
+      Tag = 2
+      Left = 103
+      Top = 351
+      Width = 490
+      Height = 20
+      Hint = 'DBFS/'#25171#21253#26041#24335
+      TabOrder = 48
+      OnBtnUpClick = TallyerBtnUpClick
+      OnBtnDnClick = TallyerBtnDnClick
+    end
   end
   object cxGrid1: TcxGrid [4]
     Left = 0
@@ -1237,6 +1262,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
     object Tv1: TcxGridDBTableView
       OnMouseDown = Tv1MouseDown
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DS_1
       DataController.Filter.AutoDataSetFilter = True
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -1286,6 +1312,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         Tag = 99
         Caption = #36873#25321
         DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         Properties.NullStyle = nssUnchecked
@@ -1296,6 +1323,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object v1Column4: TcxGridDBColumn
         Caption = #33394#21495
         DataBinding.FieldName = 'C_ColorNo'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -1309,6 +1337,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object v1PRTColor: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -1324,6 +1353,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object v1Column5: TcxGridDBColumn
         Caption = #33457#22411
         DataBinding.FieldName = 'C_Pattern'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -1337,12 +1367,14 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object VC_PRTPs: TcxGridDBColumn
         Caption = #21305#25968
         DataBinding.FieldName = 'OrdPiece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 112
       end
       object v1PRTOrderQty: TcxGridDBColumn
         Caption = #25968#37327
         DataBinding.FieldName = 'OrdQty'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         HeaderAlignmentHorz = taCenter
         Styles.Header = DataLink_TradePlan.Default
@@ -1351,23 +1383,27 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object Tv1Column2: TcxGridDBColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'OrdSNote'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 105
       end
       object Tv1Column3: TcxGridDBColumn
         Caption = #27454#21495
         DataBinding.FieldName = 'C_StyleNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
       object Tv1Column1: TcxGridDBColumn
         Caption = #33457#33394#21495
         DataBinding.FieldName = 'DSH'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column4: TcxGridDBColumn
         Caption = #36873#21495
         DataBinding.FieldName = 'XH'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -1380,11 +1416,13 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object Tv1Column5: TcxGridDBColumn
         Caption = #24320#21305
         DataBinding.FieldName = 'KP'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column6: TcxGridDBColumn
         Caption = #24320#21305#21333#20301
         DataBinding.FieldName = 'KPUnit'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -1396,10 +1434,12 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       end
       object Tv1Column7: TcxGridDBColumn
         DataBinding.FieldName = 'ConMid'
+        DataBinding.IsNullValueType = True
         Visible = False
       end
       object Tv1Column8: TcxGridDBColumn
         DataBinding.FieldName = 'ConSid'
+        DataBinding.IsNullValueType = True
         Visible = False
       end
     end
@@ -1482,6 +1522,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
     object TV2: TcxGridDBTableView
       OnMouseDown = Tv1MouseDown
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DS_2
       DataController.Filter.AutoDataSetFilter = True
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -1526,21 +1567,25 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       Styles.Selection = DataLink_TradePlan.SHuangSe
       object cxGridDBColumn13: TcxGridDBColumn
         DataBinding.FieldName = 'ConMid'
+        DataBinding.IsNullValueType = True
         Visible = False
       end
       object cxGridDBColumn14: TcxGridDBColumn
         DataBinding.FieldName = 'ConSid'
+        DataBinding.IsNullValueType = True
         Visible = False
       end
       object TV2Column1: TcxGridDBColumn
         Caption = #25991#20214#21517
         DataBinding.FieldName = 'FileName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 152
       end
       object TV2Column2: TcxGridDBColumn
         Caption = #19978#20256#26102#38388
         DataBinding.FieldName = 'FillTime'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 76
       end

T01贸易生产计划/U_TradePlanInPut.pas

@@ -15,7 +15,7 @@ uses
   dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
   System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
   IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
-  IdFTP, ShellAPI;
+  IdFTP, ShellAPI, dxSkinWXI, dxScrollbarAnnotations;
 
 type
   TfrmTradePlanInPut = class(TfrmBaseInput)
@@ -163,6 +163,8 @@ type
     DBNote: TBtnEditC;
     ConNo: TBtnEditC;
     ADOQuery1: TADOQuery;
+    Label28: TLabel;
+    DBFS: TBtnEditC;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);

T01贸易生产计划/U_TradePlanList.dfm

@@ -380,6 +380,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     TabOrder = 3
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       OnCellDblClick = Tv1CellDblClick
       OnFocusedRecordChanged = Tv1FocusedRecordChanged
       DataController.DataSource = DataSource1
@@ -409,6 +410,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       object v1Column16: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         HeaderAlignmentHorz = taCenter
@@ -417,6 +419,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       object v1OrdDate: TcxGridDBColumn
         Caption = #21046#21333#26085#26399
         DataBinding.FieldName = 'OrdDate'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.ShowTime = False
         HeaderAlignmentHorz = taCenter
@@ -427,6 +430,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       object Tv1Column2: TcxGridDBColumn
         Caption = #32463#33829#21333#20301
         DataBinding.FieldName = 'OurCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Styles.Header = DataLink_TradePlan.FontBlue
@@ -435,12 +439,14 @@ inherited frmTradePlanList: TfrmTradePlanList
       object Tv1Column17: TcxGridDBColumn
         Caption = #38468#20214
         DataBinding.FieldName = 'ISFJ'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 40
       end
       object Tv1Column4: TcxGridDBColumn
         Caption = #23458#25143
         DataBinding.FieldName = 'CustName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Styles.Header = DataLink_TradePlan.FoneClMaroon
@@ -449,6 +455,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       object v1OrderNo: TcxGridDBColumn
         Caption = #35745#21010#21333#21495
         DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Styles.Header = DataLink_TradePlan.Default
@@ -457,6 +464,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       object v1DeliveryDate: TcxGridDBColumn
         Caption = #20132#36135#26085#26399
         DataBinding.FieldName = 'DlyDate'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.ShowTime = False
         OnCustomDrawCell = v1DeliveryDateCustomDrawCell
@@ -468,12 +476,14 @@ inherited frmTradePlanList: TfrmTradePlanList
       object Tv1Column3: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
       end
       object Tv1Column22: TcxGridDBColumn
         Caption = #21697#21517
         DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 89
@@ -481,6 +491,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       object Tv1Column12: TcxGridDBColumn
         Caption = #21512#21516#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 72
@@ -488,10 +499,12 @@ inherited frmTradePlanList: TfrmTradePlanList
       object Tv1Column18: TcxGridDBColumn
         Caption = #23458#25143#21333#21495
         DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
       end
       object Tv1Column13: TcxGridDBColumn
         Caption = #38376#24133
         DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 68
@@ -499,12 +512,14 @@ inherited frmTradePlanList: TfrmTradePlanList
       object Tv1Column14: TcxGridDBColumn
         Caption = #20811#37325
         DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
       end
       object Tv1Column15: TcxGridDBColumn
         Caption = #35268#26684
         DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 72
@@ -512,12 +527,14 @@ inherited frmTradePlanList: TfrmTradePlanList
       object Tv1Column16: TcxGridDBColumn
         Caption = #25104#20998
         DataBinding.FieldName = 'C_Composition'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
       end
       object Tv1Column11: TcxGridDBColumn
         Caption = #21305#25968
         DataBinding.FieldName = 'HZPiQty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 54
@@ -525,6 +542,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       object Tv1Column10: TcxGridDBColumn
         Caption = #25968#37327
         DataBinding.FieldName = 'OrdQty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Options.Editing = False
@@ -533,6 +551,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       object v1Column11: TcxGridDBColumn
         Caption = #21333#20301
         DataBinding.FieldName = 'OrdUnit'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Options.Editing = False
@@ -541,6 +560,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       object Tv1Column6: TcxGridDBColumn
         Caption = #21046#21333#20154
         DataBinding.FieldName = 'FILLER'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 72
@@ -548,6 +568,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       object Tv1Column1: TcxGridDBColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 99
@@ -555,22 +576,27 @@ inherited frmTradePlanList: TfrmTradePlanList
       object Tv1Column5: TcxGridDBColumn
         Caption = #24037#33402
         DataBinding.FieldName = 'Technics'
+        DataBinding.IsNullValueType = True
       end
       object Tv1Column7: TcxGridDBColumn
         Caption = #24037#21378#32534#21495
         DataBinding.FieldName = 'FtyNo'
+        DataBinding.IsNullValueType = True
       end
       object Tv1Column8: TcxGridDBColumn
         Caption = #24037#21378#21517#31216
         DataBinding.FieldName = 'FtyName'
+        DataBinding.IsNullValueType = True
       end
       object Tv1Column9: TcxGridDBColumn
         Caption = #36319#21333#21592
         DataBinding.FieldName = 'FollowMan'
+        DataBinding.IsNullValueType = True
       end
       object Tv1Column19: TcxGridDBColumn
         Caption = #20135#21697#22797#21333#21495
         DataBinding.FieldName = 'FOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 87
       end
@@ -633,6 +659,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       TabOrder = 0
       object TV2: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
         DataController.DataSource = DataSource2
         DataController.Filter.AutoDataSetFilter = True
         DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -682,6 +709,7 @@ inherited frmTradePlanList: TfrmTradePlanList
           Tag = 99
           Caption = #36873#25321
           DataBinding.FieldName = 'SSel'
+          DataBinding.IsNullValueType = True
           PropertiesClassName = 'TcxCheckBoxProperties'
           Properties.ImmediatePost = True
           Properties.NullStyle = nssUnchecked
@@ -694,6 +722,7 @@ inherited frmTradePlanList: TfrmTradePlanList
         object v1PRTColor: TcxGridDBColumn
           Caption = #39068#33394
           DataBinding.FieldName = 'C_Color'
+          DataBinding.IsNullValueType = True
           PropertiesClassName = 'TcxButtonEditProperties'
           Properties.Buttons = <
             item
@@ -709,6 +738,7 @@ inherited frmTradePlanList: TfrmTradePlanList
         object cxGridDBColumn4: TcxGridDBColumn
           Caption = #33394#21495
           DataBinding.FieldName = 'C_ColorNo'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
           Width = 66
@@ -716,6 +746,7 @@ inherited frmTradePlanList: TfrmTradePlanList
         object v1Column5: TcxGridDBColumn
           Caption = #33457#22411
           DataBinding.FieldName = 'C_Pattern'
+          DataBinding.IsNullValueType = True
           PropertiesClassName = 'TcxButtonEditProperties'
           Properties.Buttons = <
             item
@@ -729,6 +760,7 @@ inherited frmTradePlanList: TfrmTradePlanList
         object VC_PRTPs: TcxGridDBColumn
           Caption = #21305#25968
           DataBinding.FieldName = 'OrdPiece'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
           Width = 66
@@ -736,6 +768,7 @@ inherited frmTradePlanList: TfrmTradePlanList
         object v1PRTOrderQty: TcxGridDBColumn
           Caption = #25968#37327
           DataBinding.FieldName = 'OrdQty'
+          DataBinding.IsNullValueType = True
           PropertiesClassName = 'TcxTextEditProperties'
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
@@ -745,6 +778,7 @@ inherited frmTradePlanList: TfrmTradePlanList
         object v1OrderUnit: TcxGridDBColumn
           Caption = #21333#20301
           DataBinding.FieldName = 'OrdUnit'
+          DataBinding.IsNullValueType = True
           PropertiesClassName = 'TcxComboBoxProperties'
           Properties.Items.Strings = (
             'M'
@@ -758,6 +792,7 @@ inherited frmTradePlanList: TfrmTradePlanList
         object cxGridDBColumn7: TcxGridDBColumn
           Caption = #22791#27880
           DataBinding.FieldName = 'OrdSNote'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
           Width = 66
@@ -765,30 +800,35 @@ inherited frmTradePlanList: TfrmTradePlanList
         object TV2Column1: TcxGridDBColumn
           Caption = #27454#21495
           DataBinding.FieldName = 'C_StyleNo'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Width = 66
         end
         object TV2Column2: TcxGridDBColumn
           Caption = #33457#33394#21495
           DataBinding.FieldName = 'DSH'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Width = 77
         end
         object TV2Column3: TcxGridDBColumn
           Caption = #36873#21495
           DataBinding.FieldName = 'XH'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Width = 66
         end
         object TV2Column4: TcxGridDBColumn
           Caption = #24320#21305
           DataBinding.FieldName = 'KP'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Width = 66
         end
         object TV2Column5: TcxGridDBColumn
           Caption = #24320#21305#21333#20301
           DataBinding.FieldName = 'KPUnit'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Width = 71
         end
@@ -799,8 +839,8 @@ inherited frmTradePlanList: TfrmTradePlanList
     end
   end
   object Panel3: TPanel [6]
-    Left = 69
+    Left = 8
-    Top = 157
+    Top = 22
     Width = 1177
     Height = 634
     Color = clBtnHighlight
@@ -848,7 +888,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     end
     object Label36: TLabel
       Left = 383
-      Top = 105
+      Top = 124
       Width = 13
       Height = 75
       Caption = #25346#13#10#38057#13#10#12289#13#10#23553#13#10#26465
@@ -862,7 +902,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     object Label37: TLabel
       Tag = 2
       Left = 383
-      Top = 195
+      Top = 214
       Width = 13
       Height = 60
       Caption = #36148#13#10#12289#13#10#28907#13#10#37329
@@ -875,7 +915,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     end
     object Label40: TLabel
       Left = 383
-      Top = 340
+      Top = 359
       Width = 13
       Height = 30
       Caption = #33337#13#10#21787
@@ -889,7 +929,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     object Label41: TLabel
       Tag = 2
       Left = 383
-      Top = 480
+      Top = 499
       Width = 13
       Height = 30
       Caption = #21367#13#10#21787
@@ -900,6 +940,19 @@ inherited frmTradePlanList: TfrmTradePlanList
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label6: TLabel
+      Left = 344
+      Top = 100
+      Width = 52
+      Height = 15
+      Caption = #25171#21253#26041#24335
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = 'Times New Roman'
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object MainId: TEdit
       Left = 679
       Top = 599
@@ -944,7 +997,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     object ggft: TMemo
       Tag = 2
       Left = 408
-      Top = 107
+      Top = 126
       Width = 440
       Height = 80
       Hint = 'ggft/'#25346#38057#23553#26465
@@ -955,7 +1008,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     object tj: TMemo
       Tag = 2
       Left = 407
-      Top = 198
+      Top = 217
       Width = 440
       Height = 130
       ScrollBars = ssVertical
@@ -964,7 +1017,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     object cm: TMemo
       Tag = 2
       Left = 406
-      Top = 341
+      Top = 360
       Width = 440
       Height = 130
       ScrollBars = ssVertical
@@ -973,7 +1026,7 @@ inherited frmTradePlanList: TfrmTradePlanList
     object jm: TMemo
       Tag = 2
       Left = 407
-      Top = 482
+      Top = 501
       Width = 440
       Height = 80
       ScrollBars = ssVertical
@@ -1032,6 +1085,7 @@ inherited frmTradePlanList: TfrmTradePlanList
       TabOrder = 11
       object TV3: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
         DataController.DataSource = DataSource3
         DataController.Filter.AutoDataSetFilter = True
         DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -1081,6 +1135,7 @@ inherited frmTradePlanList: TfrmTradePlanList
           Tag = 99
           Caption = #36873#25321
           DataBinding.FieldName = 'SSel'
+          DataBinding.IsNullValueType = True
           PropertiesClassName = 'TcxCheckBoxProperties'
           Properties.ImmediatePost = True
           Properties.NullStyle = nssUnchecked
@@ -1093,6 +1148,7 @@ inherited frmTradePlanList: TfrmTradePlanList
         object cxGridDBColumn5: TcxGridDBColumn
           Caption = #33394#21495
           DataBinding.FieldName = 'C_ColorNo'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
           Width = 66
@@ -1100,6 +1156,7 @@ inherited frmTradePlanList: TfrmTradePlanList
         object cxGridDBColumn6: TcxGridDBColumn
           Caption = #33457#22411
           DataBinding.FieldName = 'C_Pattern'
+          DataBinding.IsNullValueType = True
           PropertiesClassName = 'TcxButtonEditProperties'
           Properties.Buttons = <
             item
@@ -1113,6 +1170,7 @@ inherited frmTradePlanList: TfrmTradePlanList
         object cxGridDBColumn8: TcxGridDBColumn
           Caption = #21305#25968
           DataBinding.FieldName = 'OrdPiece'
+          DataBinding.IsNullValueType = True
           PropertiesClassName = 'TcxTextEditProperties'
           Properties.OnEditValueChanged = cxGridDBColumn8PropertiesEditValueChanged
           HeaderAlignmentHorz = taCenter
@@ -1121,6 +1179,7 @@ inherited frmTradePlanList: TfrmTradePlanList
         object cxGridDBColumn9: TcxGridDBColumn
           Caption = #25968#37327
           DataBinding.FieldName = 'OrdQty'
+          DataBinding.IsNullValueType = True
           PropertiesClassName = 'TcxTextEditProperties'
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
@@ -1132,6 +1191,17 @@ inherited frmTradePlanList: TfrmTradePlanList
         GridView = TV3
       end
     end
+    object DBFS: TBtnEditC
+      Tag = 2
+      Left = 408
+      Top = 98
+      Width = 440
+      Height = 20
+      Hint = 'DBFS/'#25171#21253#26041#24335
+      TabOrder = 12
+      OnBtnUpClick = PZNoteBtnUpClick
+      OnBtnDnClick = PZNoteBtnDnClick
+    end
   end
   inherited ADOQueryBaseCmd: TADOQuery
     Connection = DataLink_TradePlan.ADOLink

T01贸易生产计划/U_TradePlanList.pas

@@ -15,7 +15,8 @@ uses
   IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
   dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
-  IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, Vcl.DBCtrls;
+  IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, Vcl.DBCtrls,
+  dxSkinWXI, dxScrollbarAnnotations;
 
 type
   TfrmTradePlanList = class(TfrmBaseList)
@@ -156,6 +157,8 @@ type
     Tv1Column19: TcxGridDBColumn;
     ToolButton5: TToolButton;
     ToolButton6: TToolButton;
+    Label6: TLabel;
+    DBFS: TBtnEditC;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -650,6 +653,22 @@ begin
 //    Application.MessageBox('不能操作他人的数据!', '提示', 0);
 //    Exit;
 //  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select Count(B.BCIOID) S from Trade_Plan_Main A');
+    SQL.Add('left join Bs_Cloth_IO B on A.MainID=B.FromMainId ');
+    sql.Add('where A.mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
+    Sql.Add('and B.STKName=''贸易待检布'' and B.IOFlag=''入库''');
+    //    ShowMessage(sql.Text);
+    Open;
+  end;
+   if ADOQueryTemp.fieldbyname('S').Value > 0 then
+  begin
+    Application.MessageBox('已做过待检布入库的计划单，不能修改!', '提示', 0);
+    Exit;
+  end;
 
   try
     frmTradePlanInPut := TfrmTradePlanInPut.Create(Application);
@@ -957,6 +976,7 @@ begin
       sql.Add(' Set PZNote=''' + Trim(PZNote.Text) + '''');
       sql.Add(',KJNote=''' + Trim(KJNote.Text) + '''');
       sql.Add(',DBNote=''' + Trim(DBNote.Text) + '''');
+      sql.Add(',DBFS=''' + Trim(DBFS.Text) + '''');
       SQL.Add(',ggft=''' + Trim(ggft.Text) + '''');
       sql.Add(',tj=''' + Trim(tj.Text) + '''');
       sql.Add(',cm=''' + Trim(cm.Text) + '''');
@@ -1596,6 +1616,7 @@ begin
   ReadCxGrid('指示单列表FF1', Tv3, '生产指示单管理');
   MainId.text := trim(Order_Main.fieldbyname('mainID').AsString);
   Panel3.Left := (self.width - Panel3.width) div 2;
+  Panel3.Top := 37;
   Panel3.Visible := True;
   InitBl();
 

T02贸易汇总仓库/ProjectGroup1.groupproj.local

@@ -2,6 +2,6 @@
 <BorlandProject>
 	<Transactions/>
 	<Default.Personality>
-    <Projects ActiveProject="D:\Dp10Repo\项目代码\骉骐\T02贸易汇总仓库\testDll.dproj"/>
+		<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\TradeTotalClothStk.dproj"/>
 	</Default.Personality>
 </BorlandProject>

T02贸易汇总仓库/TradeTotalClothStk.dpr

@@ -26,7 +26,8 @@ uses
   U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
   U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
   U_TradePlanSel in '..\T00贸易通用窗体\U_TradePlanSel.pas' {frmTradePlanSel},
-  U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel};
+  U_TradeSalesContractSel in '..\T00贸易通用窗体\U_TradeSalesContractSel.pas' {frmTradeSalesContractSel},
+  U_TPUp in 'U_TPUp.pas' {frmTPUp};
 
 {$R *.res}
 

T02贸易汇总仓库/TradeTotalClothStk.dproj

@@ -124,7 +124,7 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
         <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
-        <Debugger_HostApplication>D:\Dp10Repo\项目代码\骉骐\T02贸易汇总仓库\testDll.exe</Debugger_HostApplication>
+        <Debugger_HostApplication>D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\testDll.exe</Debugger_HostApplication>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
@@ -189,6 +189,10 @@
             <Form>frmTradeSalesContractSel</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="U_TPUp.pas">
+            <Form>frmTPUp</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

T02贸易汇总仓库/TradeTotalClothStk.dproj.local

@@ -1,14 +1,15 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
+    <Transaction>1899-12-30 00:00:00.000.382,=D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\U_TPUp.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
@@ -17,7 +18,6 @@
     <Transaction>1899-12-30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
@@ -26,14 +26,15 @@
     <Transaction>1899-12-30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj</Transaction>
     <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -64,7 +65,7 @@
     <File Path="fmx.dex.jar"/>
     <File Path="google-play-billing.dex.jar"/>
     <File Path="google-play-licensing.dex.jar"/>
-    <File Path="..\..\骉骐"/>
+    <File Path="..\..\D10myBiaoqi"/>
     <File Path="..\A00通用窗体"/>
     <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
     <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@@ -106,5 +107,7 @@
     <File Path="U_DataLink.dfm"/>
     <File Path="U_GetDllForm.pas"/>
     <File Path="U_iniParam.pas"/>
+    <File Path="U_TPUp.pas"/>
+    <File Path="U_TPUp.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>

T02贸易汇总仓库/TradeTotalClothStk.skincfg

@@ -0,0 +1,62 @@
+[ExpressSkins]
+Default=0
+ShowNotifications=1
+Enabled=1
+dxSkinBasic=0
+dxSkinBlack=0
+dxSkinBlue=0
+dxSkinBlueprint=0
+dxSkinCaramel=0
+dxSkinCoffee=0
+dxSkinDarkroom=0
+dxSkinDarkSide=0
+dxSkinDevExpressDarkStyle=0
+dxSkinDevExpressStyle=0
+dxSkinFoggy=0
+dxSkinGlassOceans=0
+dxSkinHighContrast=0
+dxSkiniMaginary=0
+dxSkinLilian=0
+dxSkinLiquidSky=0
+dxSkinLondonLiquidSky=0
+dxSkinMcSkin=0
+dxSkinMetropolis=0
+dxSkinMetropolisDark=0
+dxSkinMoneyTwins=0
+dxSkinOffice2007Black=0
+dxSkinOffice2007Blue=0
+dxSkinOffice2007Green=0
+dxSkinOffice2007Pink=0
+dxSkinOffice2007Silver=0
+dxSkinOffice2010Black=0
+dxSkinOffice2010Blue=0
+dxSkinOffice2010Silver=0
+dxSkinOffice2013DarkGray=0
+dxSkinOffice2013LightGray=0
+dxSkinOffice2013White=0
+dxSkinOffice2016Colorful=0
+dxSkinOffice2016Dark=0
+dxSkinOffice2019Black=0
+dxSkinOffice2019Colorful=0
+dxSkinOffice2019DarkGray=0
+dxSkinOffice2019White=0
+dxSkinPumpkin=0
+dxSkinSeven=0
+dxSkinSevenClassic=0
+dxSkinSharp=0
+dxSkinSharpPlus=0
+dxSkinSilver=0
+dxSkinSpringtime=0
+dxSkinStardust=0
+dxSkinSummer2008=0
+dxSkinTheAsphaltWorld=0
+dxSkinTheBezier=0
+dxSkinsDefaultPainters=1
+dxSkinValentine=0
+dxSkinVisualStudio2013Blue=0
+dxSkinVisualStudio2013Dark=0
+dxSkinVisualStudio2013Light=0
+dxSkinVS2010=0
+dxSkinWhiteprint=0
+dxSkinWXI=1
+dxSkinXmas2008Blue=0

T02贸易汇总仓库/U_DataLink.pas

@@ -5,7 +5,7 @@ interface
 uses
   SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
   Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
-  dxSkinsCore, dxSkinsDefaultPainters, System.ImageList;
+  dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinWXI;
 
 type
   TMyThread = class(TThread)

T02贸易汇总仓库/U_GetDllForm.pas

@@ -273,7 +273,7 @@ begin
         end;
       end;
 
-    422:  //成品布出库
+    422:  //染整发货
       begin
         with TfrmTradePackClothOutList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
         begin

T02贸易汇总仓库/U_TPUp.dfm

@@ -0,0 +1,283 @@
+object frmTPUp: TfrmTPUp
+  Left = 612
+  Top = 236
+  Caption = #26174#31034#22270#29255
+  ClientHeight = 595
+  ClientWidth = 929
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poMainFormCenter
+  OnCreate = FormCreate
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object cxGrid7: TcxGrid
+    Left = 0
+    Top = 41
+    Width = 858
+    Height = 554
+    Align = alClient
+    TabOrder = 0
+    ExplicitTop = 42
+    object TV7: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      OnCellDblClick = TV7CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsView.GroupByBox = False
+      OptionsView.Indicator = True
+      object FileName: TcxGridDBColumn
+        Tag = 1
+        Caption = #22270#29255#21517#31216
+        DataBinding.FieldName = 'FileName'
+        DataBinding.IsNullValueType = True
+        FooterAlignmentHorz = taCenter
+        HeaderAlignmentHorz = taCenter
+        Width = 121
+      end
+      object TV7Column1: TcxGridDBColumn
+        Caption = #33457#22411#21517#31216
+        DataBinding.FieldName = 'HXName'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        GroupSummaryAlignment = taCenter
+        HeaderAlignmentHorz = taCenter
+        Width = 91
+      end
+      object FileDate: TcxGridDBColumn
+        Tag = 1
+        Caption = #19978#20256#26085#26399
+        DataBinding.FieldName = 'FillTime'
+        DataBinding.IsNullValueType = True
+        FooterAlignmentHorz = taCenter
+        HeaderAlignmentHorz = taCenter
+        Width = 104
+      end
+    end
+    object cxGridLevel6: TcxGridLevel
+      GridView = TV7
+    end
+  end
+  object Panel16: TPanel
+    Left = 190
+    Top = 126
+    Width = 138
+    Height = 30
+    BevelInner = bvRaised
+    Caption = #27491#22312#19978#20256#12290#12290#12290
+    Color = clSkyBlue
+    TabOrder = 1
+    Visible = False
+  end
+  object ToolBar6: TToolBar
+    Left = 858
+    Top = 41
+    Width = 71
+    Height = 554
+    Align = alRight
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 75
+    Caption = 'ToolBar1'
+    Images = DataLink_TradeTotalClothStk.ImageList_new32
+    List = True
+    ShowCaptions = True
+    TabOrder = 2
+    Visible = False
+    ExplicitLeft = 889
+    object FileUp: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #19978#20256
+      ImageIndex = 2
+      Wrap = True
+      OnClick = FileUpClick
+    end
+    object FileDel: TToolButton
+      Left = 0
+      Top = 38
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 5
+      Wrap = True
+      OnClick = FileDelClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 929
+    Height = 41
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 3
+    Visible = False
+    object Label1: TLabel
+      Left = 8
+      Top = 15
+      Width = 72
+      Height = 17
+      Caption = #23458#25143#32534#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -17
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Image2: TImage
+      Left = 774
+      Top = 7
+      Width = 60
+      Height = 28
+      Visible = False
+    end
+    object Image1: TImage
+      Left = 861
+      Top = 7
+      Width = 60
+      Height = 28
+      Visible = False
+    end
+    object Label2: TLabel
+      Left = 336
+      Top = 14
+      Width = 36
+      Height = 17
+      Caption = #33457#22411
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -17
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Code: TEdit
+      Left = 78
+      Top = 11
+      Width = 211
+      Height = 25
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -17
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 0
+    end
+    object HXName: TBtnEditC
+      Tag = 2
+      Left = 378
+      Top = 9
+      Width = 168
+      Height = 29
+      Hint = 'CYKZ/'#20811#37325
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 1
+      Visible = False
+      OnBtnUpClick = HXNameBtnUpClick
+      OnBtnDnClick = HXNameBtnDnClick
+    end
+  end
+  object ODPat: TOpenDialog
+    Filter = 
+      'All (*.svg;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.j' +
+      'peg;*.png;*.bmp;*.ico;*.emf;*.wmf;*.tif;*.tiff)|*.svg;*.jpg;*.jp' +
+      'eg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.ico' +
+      ';*.emf;*.wmf;*.tif;*.tiff|SVG graphics from DevExpress (*.svg)|*' +
+      '.svg|JPEG graphics from DevExpress (*.jpg)|*.jpg|JPEG graphics f' +
+      'rom DevExpress (*.jpeg)|*.jpeg|GIF graphics from DevExpress (*.g' +
+      'if)|*.gif|TIFF graphics from DevExpress (*.tif)|*.tif|TIFF graph' +
+      'ics from DevExpress (*.tiff)|*.tiff|PNG graphics from DevExpress' +
+      ' (*.png)|*.png|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' +
+      '.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (' +
+      '*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' +
+      'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|TIFF Images (*.t' +
+      'if)|*.tif|TIFF Images (*.tiff)|*.tiff'
+    Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing]
+    Left = 380
+    Top = 333
+  end
+  object IdFTP1: TIdFTP
+    ConnectTimeout = 0
+    NATKeepAlive.UseKeepAlive = False
+    NATKeepAlive.IdleTimeMS = 0
+    NATKeepAlive.IntervalMS = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    ReadTimeout = 0
+    Left = 261
+    Top = 244
+  end
+  object SaveDialog1: TSaveDialog
+    Filter = 
+      'All (*.svg;*.jpg;*.jpeg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.j' +
+      'peg;*.png;*.bmp;*.ico;*.emf;*.wmf;*.tif;*.tiff)|*.svg;*.jpg;*.jp' +
+      'eg;*.gif;*.tif;*.tiff;*.png;*.gif;*.jpg;*.jpeg;*.png;*.bmp;*.ico' +
+      ';*.emf;*.wmf;*.tif;*.tiff|SVG graphics from DevExpress (*.svg)|*' +
+      '.svg|JPEG graphics from DevExpress (*.jpg)|*.jpg|JPEG graphics f' +
+      'rom DevExpress (*.jpeg)|*.jpeg|GIF graphics from DevExpress (*.g' +
+      'if)|*.gif|TIFF graphics from DevExpress (*.tif)|*.tif|TIFF graph' +
+      'ics from DevExpress (*.tiff)|*.tiff|PNG graphics from DevExpress' +
+      ' (*.png)|*.png|GIF Image (*.gif)|*.gif|JPEG Image File (*.jpg)|*' +
+      '.jpg|JPEG Image File (*.jpeg)|*.jpeg|Portable Network Graphics (' +
+      '*.png)|*.png|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' +
+      'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf|TIFF Images (*.t' +
+      'if)|*.tif|TIFF Images (*.tiff)|*.tiff'
+    Left = 305
+    Top = 333
+  end
+  object ADOQueryFile: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 488
+    Top = 144
+  end
+  object DataSource1: TDataSource
+    DataSet = ADOQueryFile
+    Left = 376
+    Top = 136
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    Parameters = <>
+    Left = 584
+    Top = 256
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 432
+    Top = 224
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 488
+    Top = 304
+  end
+end

T02贸易汇总仓库/U_TPUp.pas

@@ -0,0 +1,423 @@
+unit U_TPUp;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, ComCtrls, ToolWin, ExtCtrls, cxGridLevel,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+  cxControls, cxGridCustomView, cxGrid, IdBaseComponent, IdComponent,
+  IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB, jpeg, BtnEdit, IniFiles,
+  strutils, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
+  dxSkinsDefaultPainters, dxDateRanges, IdExplicitTLSClientServerBase,
+  Vcl.ExtDlgs, dxSkinWXI, dxScrollbarAnnotations,URLMon,ShellApI;
+
+type
+  TfrmTPUp = class(TForm)
+    cxGrid7: TcxGrid;
+    TV7: TcxGridDBTableView;
+    FileName: TcxGridDBColumn;
+    FileDate: TcxGridDBColumn;
+    cxGridLevel6: TcxGridLevel;
+    Panel16: TPanel;
+    ToolBar6: TToolBar;
+    FileUp: TToolButton;
+    FileDel: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Code: TEdit;
+    ODPat: TOpenDialog;
+    IdFTP1: TIdFTP;
+    SaveDialog1: TSaveDialog;
+    ADOQueryFile: TADOQuery;
+    DataSource1: TDataSource;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    Image2: TImage;
+    Image1: TImage;
+    TV7Column1: TcxGridDBColumn;
+    Label2: TLabel;
+    HXName: TBtnEditC;
+    ADOQuery1: TADOQuery;
+    procedure FileUpClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FileDelClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure HXNameBtnUpClick(Sender: TObject);
+    procedure HXNameBtnDnClick(Sender: TObject);
+    procedure TV7CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+  private
+    lstPat: TStringList;
+    AJpeg: TJPEGImage;
+    procedure CreThumb(Image1, Image2: TImage; Width, Height: Integer);
+    procedure SaveImageOther(FTFID: string);
+    procedure ReadINIFile10();
+    procedure InitTP();
+    { Private declarations }
+  public
+    FBCIID: string;
+    FWidth, FHeight:Integer
+    { Public declarations }
+  end;
+
+var
+  frmTPUp: TfrmTPUp;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp;
+
+{$R *.dfm} procedure TfrmTPUp.InitTP();
+begin
+  with ADOQueryFile do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName,HXName from TP_File where WBID=''' + Trim(FBCIID) + '''');
+    SQL.Add(' and FileType=''KH''');
+    Open;
+  end;
+end;
+
+procedure TfrmTPUp.ReadINIFile10();
+var
+  programIni: Tinifile;  //配置文件名
+  FileName: string;
+begin
+  FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
+  programIni := Tinifile.create(FileName);
+  server := programIni.ReadString('SERVER', '服务器地址', '127.0.0.1');
+  programIni.Free;
+end;
+
+procedure TfrmTPUp.FileUpClick(Sender: TObject);
+var
+  i, j, ii: Integer;
+  PatFile: string;
+  FTPPath, FConNo, MaxNo: string;
+  AJpeg: TJPEGImage;
+  myStream: TADOBlobStream;
+  f: file of Byte;
+  size: Longint;
+  S: Double;
+begin
+  if Trim(Code.Text) = '' then
+  begin
+    Application.MessageBox('编号不能为空！', '提示', 0);
+    Exit;
+  end;
+//  if Trim(HXName.Text) = '' then
+//  begin
+//    if Application.MessageBox('花型确认为空吗？', '提示', 32 + 4) <> IDYES then
+//      Exit;
+//  end;
+
+  lstPat.Clear;
+  if ODPat.Execute then
+  begin
+    lstPat.AddStrings(ODPat.Files);
+  end;
+  if lstPat.Count > 0 then
+  begin
+    try
+      IdFTP1.Host := PicSvr;
+      IdFTP1.Username := 'three';
+      IdFTP1.Password := '641010';
+      IdFTP1.Connect();
+    except
+      IdFTP1.Quit;
+      Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
+      Exit;
+    end;
+  end;
+
+  Panel16.Visible := True;
+  Panel16.Refresh;
+
+  try
+    AJpeg := TJpegImage.Create();
+    ADOQueryCmd.Connection.BeginTrans;
+    ii := 0;
+    for i := 0 to lstPat.Count - 1 do
+    begin
+      with ADOQueryTemp do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('select isnull(max(abs(cast(right(left(FileName,charindex(''.'',FileName)-1),2) as int))),0)+1 as BH from TP_File');
+        sql.Add('where FileType =''KH'' and WBID=''' + trim(FBCIID) + ''' ');
+        open;
+      end;
+      PatFile := trim(FBCIID) + '-' + inttostr(ADOQueryTemp.fieldbyname('BH').AsInteger) + '.' + Copy(ExtractFileName(lstPat[i]), (Pos('.', ExtractFileName(lstPat[i])) + 1), (Length(ExtractFileName(lstPat[i])) - Pos('.', ExtractFileName(lstPat[i]))));
+      image1.Picture.LoadFromFile((lstPat[i]));
+      CreThumb(Image1, Image2, FWidth, FHeight);
+
+
+
+      if IdFTP1.Connected then
+      begin
+        try
+          IdFTP1.Put(lstPat[i], Trim(UserDataFlag + 'YP' + '\' + Trim(PatFile)));
+
+          if GetLSNo(ADOQueryCmd, MaxNo, 'YP', 'XD_File', 4, 1) = False then
+            raise Exception.Create('取图片最大号失败！');
+
+          with ADOQueryCmd do
+          begin
+            close;
+            sql.Clear;
+            sql.Add(' select *  from TP_File where TFID=''' + Trim(MaxNo) + '''');
+            open;
+          end;
+          with ADOQueryCmd do
+          begin
+            if ADOQueryCmd.IsEmpty then
+            begin
+              Append;
+              FieldByName('Filler').Value := Trim(DName);
+              FieldByName('TFDate').Value := SGetServerDateTime(ADOQueryTemp);
+            end
+            else
+            begin
+              Edit;
+              FieldByName('Editer').Value := Trim(DName);
+              FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
+            end;
+            FieldByName('TFID').Value := Trim(MaxNo);
+            FieldByName('WBID').Value := Trim(FBCIID);
+            FieldByName('TFType').Value := '客户';
+            FieldByName('FileType').Value := 'KH';
+            FieldByName('HXName').Value := trim(HXName.Text);
+            FieldByName('filename').Value := Trim(PatFile);
+            myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite);
+            AJpeg.Assign(Image2.Picture.Graphic);
+            AJpeg.SaveToStream(myStream);
+            myStream.Free;
+            Post;
+          end;
+        except
+          raise Exception.Create('上传图片失败！');
+        end;
+      end;
+    end;
+
+    ADOQueryCmd.Connection.CommitTrans;
+    AJpeg.Free;
+  except
+    AJpeg.Free;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('图片上传失败！', '提示', 0);
+  end;
+  if IdFTP1.Connected then
+    IdFTP1.Quit;
+  InitTP();
+  Panel16.Visible := False;
+
+  if ii > 0 then
+    Application.MessageBox(PChar(inttostr(ii) + '个文件大于2MB，上传失败！'), '提示', 0);
+  if i > 0 then
+    Application.MessageBox(PChar(inttostr(i-ii) + '个文件上传成功！'), '提示', 0);
+
+  ModalResult := 1;
+end;
+
+procedure TfrmTPUp.CreThumb(Image1, Image2: TImage; Width, Height: Integer);
+var
+  Bitmap: TBitmap;
+  Ratio: Double;
+  ARect: TRect;
+  AHeight, AHeightOffset: Integer;
+  AWidth, AWidthOffset: Integer;
+begin
+  Bitmap := TBitmap.Create;
+  try
+    Ratio := Image1.Picture.Graphic.Width / Image1.Picture.Graphic.Height;
+    if Ratio > 1.333 then
+    begin
+      AHeight := Round(Width / Ratio);
+      AHeightOffset := (Height - AHeight) div 2;
+      AWidth := Width;
+      AWidthOffset := 0;
+    end
+    else
+    begin
+      AWidth := Round(Height * Ratio);
+      AWidthOffset := (Width - AWidth) div 2;
+      AHeight := Height;
+      AHeightOffset := 0;
+    end;
+    Bitmap.Width := Width;
+    Bitmap.Height := Height;
+    Bitmap.Canvas.Brush.Color := clBtnFace;
+    Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height));
+    ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset);
+    Bitmap.Canvas.StretchDraw(ARect, Image1.Picture.Graphic);
+    Image2.Picture.Assign(Bitmap);
+  finally
+    Bitmap.Free;
+  end;
+end;
+
+procedure TfrmTPUp.SaveImageOther(FTFID: string);
+var
+  AJpeg: TJPEGImage;
+  myStream: TADOBlobStream;
+  ImgMaxNo: string;
+  i, j: Integer;
+  PatFile: string;
+  FConNo, MaxNo: string;
+begin
+  if Image2.Picture = nil then
+    Exit;
+  AJpeg := TJpegImage.Create();
+  with ADOQueryCmd do
+  begin
+    close;
+    sql.Clear;
+    sql.Add(' select *  from TP_File where TFID=''' + Trim(FTFID) + '''');
+    open;
+  end;
+  with ADOQueryCmd do
+  begin
+    if Trim(FTFID) = '' then
+    begin
+      Append;
+      FieldByName('Filler').Value := Trim(DName);
+    end
+    else
+    begin
+      Edit;
+      FieldByName('Editer').Value := Trim(DName);
+      FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
+    end;
+    FieldByName('TFID').Value := Trim(FTFID);
+    FieldByName('WBID').Value := Trim(FBCIID);
+    FieldByName('TFType').Value := '样品';
+    AJpeg.Assign(Image2.Picture.Graphic);
+    myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite);
+    AJpeg.Assign(Image2.Picture.Graphic);
+    AJpeg.SaveToStream(myStream);
+    myStream.Free;
+    Post;
+  end;
+end;
+
+procedure TfrmTPUp.TV7CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+var
+  IdFTP1: TIdFTP;
+  FPath, FFName, fPdfFilePath, fPdfFilePath1: string;
+  FInt: integer;
+begin
+
+  if not DirectoryExists(pchar('D:\Right1209')) then
+    CreateDirectory(pchar('D:\Right1209'), nil);
+
+  fPdfFilePath := 'D:\Right1209\' + ADOQueryFile.FieldByName('FileName').ASString;
+  if not DirectoryExists(pchar(fPdfFilePath)) then
+    CreateDirectory(pchar(fPdfFilePath), nil);
+//  with ADOQuery1 do
+//  begin
+//    close;
+//    sql.Clear;
+//    sql.Add('select * from TP_File A');
+//    sql.Add('where isnull(WBID,'''')<>'''' and WBID=' + quotedstr(Trim(ADOQueryFile.FieldByName('WB'))));
+//    open;
+//  end;
+//  ADOQueryFile.First;
+//  while not ADOQueryFile.Eof do
+//  begin
+//    if Trim(ADOQueryFile.FieldByName('URL').AsString) <> '' then
+//    begin
+
+      fPdfFilePath1 := fPdfFilePath + '\' + trim(Trim(ADOQueryFile.FieldByName('FileName').AsString));
+      UrlDownloadToFile(nil, PChar(Trim(ADOQueryFile.FieldByName('url').AsString)), PChar(fPdfFilePath1), 0, nil);
+      ShellExecute(Handle, 'open', PChar(fPdfFilePath + '\' + trim(ADOQueryFile.FieldByName('FileName').AsString)), '', '', SW_SHOWNORMAL);
+//    end;
+//    ADOQueryFile.Next;
+//  end;
+//  ShellExecute(Handle, 'open', PChar(fPdfFilePath + '\' + trim(FileName)), '', '', SW_SHOWNORMAL);
+end;
+
+procedure TfrmTPUp.FormCreate(Sender: TObject);
+begin
+  lstPat := TStringList.Create;
+  if FWidth = 0 then
+    FWidth := 160;
+  if FHeight = 0 then
+    FHeight := 120;
+end;
+
+procedure TfrmTPUp.FileDelClick(Sender: TObject);
+begin
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add(' Delete TP_File where TFID=''' + Trim(ADOQueryFile.fieldbyname('TFID').AsString) + '''');
+    ExecSQL;
+  end;
+
+  with ADOQueryFile do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName from TP_File where WBID=''' + Trim(FBCIID) + '''');
+    SQL.Add(' and FileType=''KH''');
+    Open;
+  end;
+//  if ADOQueryFile.IsEmpty then
+//  begin
+//    with ADOQueryCmd do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.Add('Update CP_YDang Set TPFlag=0 where FBCIID=''' + Trim(FBCIID) + '''');
+//      ExecSQL;
+//    end;
+//  end;
+end;
+
+procedure TfrmTPUp.FormShow(Sender: TObject);
+begin
+  with ADOQueryFile do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select TFID,WBID,TFDate,Files,Filler,FillTime,FileName,url from TP_File where WBID=''' + Trim(FBCIID) + '''');
+//    SQL.Add(' and FileType=''KH''');
+    Open;
+  end;
+end;
+
+procedure TfrmTPUp.HXNameBtnDnClick(Sender: TObject);
+begin
+  TBtnEditC(Sender).Text := '';
+  TBtnEditC(Sender).TxtCode := '';
+end;
+
+procedure TfrmTPUp.HXNameBtnUpClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'HX' + Trim(Code.Text);
+      flagname := '花型';
+      if ShowModal = 1 then
+      begin
+        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+end.
+

T02贸易汇总仓库/U_TradeFtyClothOutList.dfm

@@ -5,6 +5,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
   ClientHeight = 537
   ClientWidth = 1540
   Position = poScreenCenter
+  ExplicitLeft = -341
   ExplicitWidth = 1556
   ExplicitHeight = 576
   PixelsPerInch = 96
@@ -108,6 +109,14 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       ImageIndex = 7
       OnClick = TBCloseClick
     end
+    object ToolButton3: TToolButton
+      Left = 663
+      Top = 0
+      AutoSize = True
+      Caption = #22270#29255#26174#31034
+      ImageIndex = 8
+      OnClick = ToolButton3Click
+    end
   end
   object Panel1: TPanel [1]
     Left = 0
@@ -300,6 +309,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
     TabOrder = 2
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource1
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
       DataController.Summary.DefaultGroupSummaryItems = <
@@ -347,6 +357,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column5: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         HeaderAlignmentHorz = taCenter
@@ -355,6 +366,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object v1Column5: TcxGridDBColumn
         Caption = #36710#38388
         DataBinding.FieldName = 'Workshop'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 86
@@ -362,6 +374,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object v1Column6: TcxGridDBColumn
         Caption = #20986#24211#21333#21495
         DataBinding.FieldName = 'BCIOID'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 83
@@ -370,6 +383,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
         Tag = 2
         Caption = #20986#24211#26102#38388
         DataBinding.FieldName = 'IOTime'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.SaveTime = False
         Properties.ShowTime = False
@@ -381,6 +395,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
         Tag = 2
         Caption = #20986#24211#31867#22411
         DataBinding.FieldName = 'IOType'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.Items.Strings = (
@@ -395,6 +410,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
         Tag = 2
         Caption = #25152#23646#31867#22411
         DataBinding.FieldName = 'SSType'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.Items.Strings = (
@@ -409,6 +425,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object v1Column1: TcxGridDBColumn
         Caption = #37319#36141#21333#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -419,6 +436,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
         Tag = 2
         Caption = #21152#24037#21378
         DataBinding.FieldName = 'StkCoName'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Alignment.Horz = taLeftJustify
         Properties.Buttons = <
@@ -435,6 +453,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column17: TcxGridDBColumn
         Caption = #20379#24212#21830
         DataBinding.FieldName = 'FromCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 72
@@ -442,6 +461,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column18: TcxGridDBColumn
         Caption = #20986#21040#21333#20301
         DataBinding.FieldName = 'ToCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 77
@@ -449,6 +469,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object v1Column13: TcxGridDBColumn
         Caption = #38376#24133
         DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 71
@@ -456,12 +477,14 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object v1Column16: TcxGridDBColumn
         Caption = #20811#37325
         DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
       end
       object v1Column17: TcxGridDBColumn
         Caption = #21697#29260
         DataBinding.FieldName = 'SXPinPai'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -472,6 +495,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
         Tag = 2
         Caption = #21697#21517
         DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -485,6 +509,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object v1Column20: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'SPCode'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -495,6 +520,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
         Tag = 2
         Caption = #35268#26684
         DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Options.Editing = False
@@ -503,6 +529,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object v1Column10: TcxGridDBColumn
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -512,12 +539,14 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column6: TcxGridDBColumn
         Caption = #33394#21495
         DataBinding.FieldName = 'C_ColorNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 73
       end
       object v1Column7: TcxGridDBColumn
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 68
@@ -525,12 +554,14 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column7: TcxGridDBColumn
         Caption = #26579#21378#32568#21495
         DataBinding.FieldName = 'FtyPCId'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 78
       end
       object v1Column18: TcxGridDBColumn
         Caption = #20986#21040#35745#21010#21333
         DataBinding.FieldName = 'ToOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 82
@@ -538,6 +569,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column1: TcxGridDBColumn
         Caption = #26469#33258#35745#21010#21333
         DataBinding.FieldName = 'FromOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 96
@@ -545,6 +577,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object v1Column19: TcxGridDBColumn
         Caption = #21305#25968
         DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 51
@@ -553,6 +586,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
         Tag = 2
         Caption = #25968#37327
         DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -562,6 +596,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
         Tag = 2
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 58
@@ -569,12 +604,14 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column8: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 52
       end
       object Tv1Column2: TcxGridDBColumn
         Caption = #21305#37325
         DataBinding.FieldName = 'PieceWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -583,6 +620,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
         Tag = 2
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 79
@@ -590,6 +628,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column4: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 78
@@ -597,6 +636,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column3: TcxGridDBColumn
         Caption = #33394#21035
         DataBinding.FieldName = 'C_ColorDepth'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 73
@@ -604,6 +644,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column9: TcxGridDBColumn
         Caption = #33457#22411
         DataBinding.FieldName = 'C_Pattern'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -611,6 +652,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column10: TcxGridDBColumn
         Caption = #25104#20998
         DataBinding.FieldName = 'C_Composition'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -618,6 +660,7 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column11: TcxGridDBColumn
         Caption = #27454#21495
         DataBinding.FieldName = 'C_StyleNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -625,30 +668,42 @@ inherited frmTradeFtyClothOutList: TfrmTradeFtyClothOutList
       object Tv1Column12: TcxGridDBColumn
         Caption = #21046#21333#20154
         DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column13: TcxGridDBColumn
         Caption = #22797#21333#21495
         DataBinding.FieldName = 'FOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column14: TcxGridDBColumn
         Caption = #23458#25143#21333#21495
         DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column15: TcxGridDBColumn
         Caption = #21152#24037#25968#37327
         DataBinding.FieldName = 'ProcessQty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 69
       end
       object Tv1Column16: TcxGridDBColumn
         Caption = #21152#24037#25968#37327#21333#20301
         DataBinding.FieldName = 'ProcessUnit'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 93
       end
+      object Tv1Column19: TcxGridDBColumn
+        Caption = #22270#29255
+        DataBinding.FieldName = 'IsImg'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 47
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

T02贸易汇总仓库/U_TradeFtyClothOutList.pas

@@ -12,7 +12,8 @@ uses
   cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
   RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
   cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
-  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
+  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
+  dxScrollbarAnnotations;
 
 type
   TfrmTradeFtyClothOutList = class(TfrmBaseList)
@@ -97,6 +98,8 @@ type
     Tv1Column16: TcxGridDBColumn;
     Tv1Column17: TcxGridDBColumn;
     Tv1Column18: TcxGridDBColumn;
+    ToolButton3: TToolButton;
+    Tv1Column19: TcxGridDBColumn;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);
@@ -116,6 +119,7 @@ type
     procedure cxTabControl1Change(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);
     procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
   private
     canshu1, canshu2: string;
     procedure InitGrid();
@@ -131,7 +135,7 @@ type
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_TradeFtyClothOutEdit, U_LabelPrint;
+  U_DataLink, U_RTFun, U_TradeFtyClothOutEdit, U_LabelPrint,U_TPUp;
 
 {$R *.dfm}
 
@@ -161,6 +165,8 @@ begin
       sql.Clear;
       sql.Add(' select A.*,FOrdNo=(select FOrdNo from Trade_Plan_Main X where X.MainId=B.MainId) ');
       sql.Add(',BuyConNo=(select Top 1 BuyConNo from Trade_Plan_Sub X where X.MainId=B.MainId) ');
+      sql.Add(',IsImg=cast((case when (select COUNT(TF.WBID) from TP_File TF');
+      sql.Add('where TF.TFType = ''Íâ¼Ó¹¤·¢»õ'' and TF.WBID=A.BCIOID)=0 then 0 else 1 end) as bit )   ');
       sql.Add(' from BS_Cloth_IO A left join Pur_ClothPlan_Main B on A.FromOrdNO=B.PurNo');
       sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
       sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
@@ -231,6 +237,26 @@ begin
   end;
 end;
 
+procedure TfrmTradeFtyClothOutList.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmTPUp := TfrmTPUp.Create(Application);
+    with frmTPUp do
+    begin
+
+      FBCIID := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString);
+      if ShowModal = 1 then
+      begin
+        Self.InitGrid();
+//        Self.CDS_1.Locate('BCIID', BCIID, []);
+      end;
+    end;
+  finally
+    frmTPUp.Free;
+  end;
+
+end;
+
 procedure TfrmTradeFtyClothOutList.ConNoMChange(Sender: TObject);
 begin
   if ADOQueryMain.Active then

T02贸易汇总仓库/U_TradeGreyClothInList.dfm

@@ -4,6 +4,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
   Caption = #20837#24211#21015#34920
   ClientHeight = 478
   ClientWidth = 1284
+  ExplicitLeft = -85
   ExplicitWidth = 1300
   ExplicitHeight = 517
   PixelsPerInch = 96
@@ -107,6 +108,14 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       ImageIndex = 7
       OnClick = TBCloseClick
     end
+    object ToolButton3: TToolButton
+      Left = 663
+      Top = 0
+      AutoSize = True
+      Caption = #26174#31034#22270#29255
+      ImageIndex = 8
+      OnClick = ToolButton3Click
+    end
   end
   object Panel1: TPanel [1]
     Left = 0
@@ -264,8 +273,10 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
     Height = 382
     Align = alClient
     TabOrder = 2
+    ExplicitTop = 97
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource1
       DataController.Summary.DefaultGroupSummaryItems = <
         item
@@ -306,6 +317,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       object Tv1Column2: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         HeaderAlignmentHorz = taCenter
@@ -314,24 +326,28 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       object Tv1Column4: TcxGridDBColumn
         Caption = #35745#21010#21333#21495
         DataBinding.FieldName = 'FromOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 83
       end
       object Tv1Column8: TcxGridDBColumn
         Caption = #22797#21333#21495
         DataBinding.FieldName = 'FOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 71
       end
       object Tv1Column10: TcxGridDBColumn
         Caption = #23458#25143#21333#21495
         DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 70
       end
       object v1Column6: TcxGridDBColumn
         Caption = #20837#24211#21333#21495
         DataBinding.FieldName = 'BCIOID'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 83
@@ -340,6 +356,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
         Tag = 2
         Caption = #20837#24211#26102#38388
         DataBinding.FieldName = 'ioTime'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.SaveTime = False
         Properties.ShowTime = False
@@ -350,6 +367,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
         Tag = 2
         Caption = #20837#24211#31867#22411
         DataBinding.FieldName = 'IOType'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.Items.Strings = (
@@ -363,6 +381,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
         Tag = 2
         Caption = #26469#33258#21333#20301
         DataBinding.FieldName = 'FromCoName'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Alignment.Horz = taLeftJustify
         Properties.Buttons = <
@@ -377,12 +396,14 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       object Tv1Column6: TcxGridDBColumn
         Caption = #23384#25918#21333#20301
         DataBinding.FieldName = 'StkCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 92
       end
       object Tv1Column11: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 73
       end
@@ -390,6 +411,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
         Tag = 2
         Caption = #21697#21517
         DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -403,6 +425,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
         Tag = 2
         Caption = #35268#26684
         DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Width = 79
@@ -410,6 +433,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       object v1Column10: TcxGridDBColumn
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         VisibleForCustomization = False
         Width = 89
@@ -417,6 +441,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       object v1Column9: TcxGridDBColumn
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 71
@@ -424,6 +449,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       object v1Column13: TcxGridDBColumn
         Caption = #38376#24133
         DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 67
@@ -431,6 +457,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       object v1Column11: TcxGridDBColumn
         Caption = #20811#37325
         DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 73
@@ -438,6 +465,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       object v1Column15: TcxGridDBColumn
         Caption = #21305#25968
         DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 65
@@ -446,6 +474,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
         Tag = 2
         Caption = #25968#37327
         DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         HeaderAlignmentHorz = taCenter
         Width = 85
@@ -454,6 +483,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
         Tag = 2
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.Items.Strings = (
@@ -467,6 +497,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
         Tag = 2
         Caption = #24211#20301
         DataBinding.FieldName = 'StkPosition'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -480,11 +511,13 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       object Tv1Column7: TcxGridDBColumn
         Caption = #21046#21333#20154
         DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object v1Column19: TcxGridDBColumn
         Caption = #36710#38388
         DataBinding.FieldName = 'Workshop'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 79
@@ -493,12 +526,14 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
         Tag = 2
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 79
       end
       object v1Column20: TcxGridDBColumn
         Caption = #19994#21153#21592
         DataBinding.FieldName = 'Saleser'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 63
@@ -506,6 +541,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       object Tv1Column3: TcxGridDBColumn
         Caption = #33394#21035
         DataBinding.FieldName = 'C_ColorDepth'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -513,6 +549,7 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       object Tv1Column5: TcxGridDBColumn
         Caption = #30721#23610
         DataBinding.FieldName = 'Yardstick'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -520,16 +557,25 @@ inherited frmTradeGreyClothInList: TfrmTradeGreyClothInList
       object Tv1Column9: TcxGridDBColumn
         Caption = #21305#37325
         DataBinding.FieldName = 'PieceWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
       object Tv1Column1: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 72
       end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #22270#29255
+        DataBinding.FieldName = 'IsImg'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 40
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

T02贸易汇总仓库/U_TradeGreyClothInList.pas

@@ -12,7 +12,8 @@ uses
   cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
   RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
   cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
-  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
+  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
+  dxScrollbarAnnotations, cxContainer, cxImage, cxDBEdit;
 
 type
   TfrmTradeGreyClothInList = class(TfrmBaseList)
@@ -83,6 +84,8 @@ type
     Tv1Column8: TcxGridDBColumn;
     Tv1Column10: TcxGridDBColumn;
     Tv1Column11: TcxGridDBColumn;
+    Tv1Column12: TcxGridDBColumn;
+    ToolButton3: TToolButton;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);
@@ -102,6 +105,7 @@ type
     procedure cxTabControl1Change(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);
     procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
   private
     canshu1, canshu2, canshu3: string;
     procedure InitGrid();
@@ -115,7 +119,7 @@ type
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_LabelPrint, U_TradeGreyClothInEdit;
+  U_DataLink, U_RTFun, U_LabelPrint, U_TradeGreyClothInEdit, U_TPUp;
 
 {$R *.dfm}
 procedure TfrmTradeGreyClothInList.setStatus();
@@ -149,6 +153,8 @@ begin
       Close;
       sql.Clear;
       sql.Add(' select A.*,B.FOrdNo,BuyConNo=(select Top 1 BuyConNo from Trade_Plan_Sub X where X.MainId=B.MainId) ');
+      sql.Add(',IsImg=cast((case when (select COUNT(TF.WBID) from TP_File TF');
+      sql.Add('where TF.TFType = ''Å÷²¼ÊÕ»õ'' and TF.WBID=A.BCIOID)=0 then 0 else 1 end) as bit )   ');
       sql.Add(' from BS_Cloth_IO A left join Trade_Plan_Main B on A.FromOrdNO=B.OrderNo');
       sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
       sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
@@ -221,6 +227,26 @@ begin
   end;
 end;
 
+procedure TfrmTradeGreyClothInList.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmTPUp := TfrmTPUp.Create(Application);
+    with frmTPUp do
+    begin
+
+      FBCIID := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString);
+      if ShowModal = 1 then
+      begin
+        Self.InitGrid();
+//        Self.CDS_1.Locate('BCIID', BCIID, []);
+      end;
+    end;
+  finally
+    frmTPUp.Free;
+  end;
+
+end;
+
 procedure TfrmTradeGreyClothInList.ConNoMChange(Sender: TObject);
 begin
   if ADOQueryMain.Active then

T02贸易汇总仓库/U_TradeGreyClothOutEdit.dfm

@@ -87,6 +87,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
     object Tv1: TcxGridDBTableView
       OnMouseDown = Tv1MouseDown
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource3
       DataController.Summary.DefaultGroupSummaryItems = <>
       DataController.Summary.FooterSummaryItems = <
@@ -122,6 +123,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #35745#21010#21333#21495
         DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -135,6 +137,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
       object v1Column6: TcxGridDBColumn
         Caption = #20986#24211#21333#21495
         DataBinding.FieldName = 'BCIOID'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 91
@@ -143,6 +146,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #20986#24211#26102#38388
         DataBinding.FieldName = 'IOTime'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.SaveTime = False
         Properties.ShowTime = False
@@ -153,6 +157,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #20986#24211#31867#22411
         DataBinding.FieldName = 'IOType'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.DropDownRows = 20
@@ -169,6 +174,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #37319#36141#21152#24037#21512#21516#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -185,6 +191,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
       object Tv1Column2: TcxGridDBColumn
         Caption = #20986#21040#21333#20301
         DataBinding.FieldName = 'ToCoName'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -199,6 +206,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
       object Tv1Column3: TcxGridDBColumn
         Caption = #23384#25918#21333#20301
         DataBinding.FieldName = 'StkCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 78
@@ -207,6 +215,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #26469#33258#21333#20301
         DataBinding.FieldName = 'FromCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 82
@@ -215,6 +224,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #21697#21517
         DataBinding.FieldName = 'C_name'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -229,6 +239,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #35268#26684
         DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Options.Editing = False
@@ -238,6 +249,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #38376#24133
         DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 67
@@ -246,6 +258,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #20811#37325
         DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 73
@@ -254,6 +267,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 77
@@ -262,6 +276,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #36710#38388
         DataBinding.FieldName = 'Workshop'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         HeaderAlignmentHorz = taCenter
         Width = 69
@@ -270,6 +285,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #21305#25968
         DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
@@ -277,6 +293,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #25968#37327
         DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         HeaderAlignmentHorz = taCenter
         Width = 85
@@ -285,6 +302,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -293,18 +311,21 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
         Tag = 2
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         Width = 79
       end
       object Tv1Column1: TcxGridDBColumn
         Tag = 2
         Caption = #21305#37325
         DataBinding.FieldName = 'PieceWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
       object Tv1Column4: TcxGridDBColumn
         Caption = #33394#21035
         DataBinding.FieldName = 'C_ColorDepth'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 76
@@ -312,6 +333,7 @@ inherited frmTradeGreyClothOutEdit: TfrmTradeGreyClothOutEdit
       object Tv1Column5: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 74

T02贸易汇总仓库/U_TradeGreyClothOutEdit.pas

@@ -11,7 +11,7 @@ uses
   cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit,
   StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
   dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
-  U_BaseInput, System.ImageList, Vcl.ImgList;
+  U_BaseInput, System.ImageList, Vcl.ImgList, dxSkinWXI, dxScrollbarAnnotations;
 
 type
   TfrmTradeGreyClothOutEdit = class(TfrmBaseInput)

T02贸易汇总仓库/U_TradeGreyClothOutList.dfm

@@ -296,10 +296,9 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
     Height = 445
     Align = alClient
     TabOrder = 2
-    ExplicitLeft = -1
-    ExplicitTop = 100
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource1
       DataController.Summary.DefaultGroupSummaryItems = <
         item
@@ -346,6 +345,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object Tv1Column5: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'SSEL'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         HeaderAlignmentHorz = taCenter
@@ -354,6 +354,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object v1Column6: TcxGridDBColumn
         Caption = #20986#24211#21333#21495
         DataBinding.FieldName = 'BCIOID'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 83
@@ -362,6 +363,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
         Tag = 2
         Caption = #20986#24211#26102#38388
         DataBinding.FieldName = 'IOTime'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.SaveTime = False
         Properties.ShowTime = False
@@ -372,6 +374,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
         Tag = 2
         Caption = #20986#24211#31867#22411
         DataBinding.FieldName = 'IOType'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.Items.Strings = (
@@ -385,6 +388,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
         Tag = 2
         Caption = #25152#23646#31867#22411
         DataBinding.FieldName = 'SSType'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.Items.Strings = (
@@ -399,6 +403,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object v1Column1: TcxGridDBColumn
         Caption = #37319#36141#21333#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -409,6 +414,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
         Tag = 2
         Caption = #20379#24212#21830
         DataBinding.FieldName = 'FromCoName'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Alignment.Horz = taLeftJustify
         Properties.Buttons = <
@@ -424,12 +430,14 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object Tv1Column6: TcxGridDBColumn
         Caption = #26579#21378
         DataBinding.FieldName = 'StkCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 91
       end
       object v1Column13: TcxGridDBColumn
         Caption = #38376#24133
         DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 71
@@ -437,12 +445,14 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object v1Column16: TcxGridDBColumn
         Caption = #20811#37325
         DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
       end
       object v1Column17: TcxGridDBColumn
         Caption = #21697#29260
         DataBinding.FieldName = 'SXPinPai'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -452,6 +462,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object Tv1Column12: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 74
       end
@@ -459,6 +470,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
         Tag = 2
         Caption = #21697#21517
         DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -472,6 +484,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object v1Column20: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'SPCode'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -482,6 +495,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
         Tag = 2
         Caption = #35268#26684
         DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Options.Editing = False
@@ -490,6 +504,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object v1Column10: TcxGridDBColumn
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -499,12 +514,14 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object Tv1Column1: TcxGridDBColumn
         Caption = #27969#31243#21495
         DataBinding.FieldName = 'ToPCId'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 79
       end
       object v1Column7: TcxGridDBColumn
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 68
@@ -512,6 +529,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object v1Column18: TcxGridDBColumn
         Caption = #35745#21010#21333#21495
         DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 82
@@ -519,6 +537,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object v1Column5: TcxGridDBColumn
         Caption = #36710#38388
         DataBinding.FieldName = 'Workshop'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 69
@@ -526,6 +545,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object v1Column19: TcxGridDBColumn
         Caption = #21305#25968
         DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 51
@@ -534,6 +554,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
         Tag = 2
         Caption = #25968#37327
         DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         HeaderAlignmentHorz = taCenter
         Width = 76
@@ -542,6 +563,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
         Tag = 2
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 58
@@ -549,12 +571,14 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object Tv1Column2: TcxGridDBColumn
         Caption = #21305#37325
         DataBinding.FieldName = 'PieceWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 66
       end
       object Tv1Column4: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 78
@@ -562,6 +586,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object Tv1Column3: TcxGridDBColumn
         Caption = #33394#21035
         DataBinding.FieldName = 'C_ColorDepth'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 73
@@ -569,35 +594,41 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList
       object Tv1Column7: TcxGridDBColumn
         Caption = #21046#21333#20154
         DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
       end
       object v1Column12: TcxGridDBColumn
         Tag = 2
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 79
       end
       object Tv1Column8: TcxGridDBColumn
         Caption = #26469#33258#25351#31034#21333
         DataBinding.FieldName = 'FromOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 90
       end
       object Tv1Column9: TcxGridDBColumn
         Caption = #20986#21040#25351#31034#21333
         DataBinding.FieldName = 'ToOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 93
       end
       object Tv1Column10: TcxGridDBColumn
         Caption = #23458#25143#21333#21495
         DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 80
       end
       object Tv1Column11: TcxGridDBColumn
         Caption = #22797#21333#21495
         DataBinding.FieldName = 'FOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
     end

T02贸易汇总仓库/U_TradeGreyClothOutList.pas

@@ -12,7 +12,8 @@ uses
   cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
   RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
   cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
-  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
+  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
+  dxScrollbarAnnotations;
 
 type
   TfrmTradeGreyClothOutList = class(TfrmBaseList)

T02贸易汇总仓库/U_TradePackClothOutList.dfm

@@ -5,7 +5,6 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
   ClientHeight = 537
   ClientWidth = 1540
   Position = poScreenCenter
-  ExplicitLeft = -289
   ExplicitWidth = 1556
   ExplicitHeight = 576
   PixelsPerInch = 96
@@ -109,6 +108,14 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       ImageIndex = 7
       OnClick = TBCloseClick
     end
+    object ToolButton3: TToolButton
+      Left = 663
+      Top = 0
+      AutoSize = True
+      Caption = #26174#31034#22270#29255
+      ImageIndex = 8
+      OnClick = ToolButton3Click
+    end
   end
   object Panel1: TPanel [1]
     Left = 0
@@ -299,10 +306,9 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 2
-    ExplicitLeft = 1
-    ExplicitTop = 100
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       DataController.DataSource = DataSource1
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
       DataController.Summary.DefaultGroupSummaryItems = <
@@ -350,6 +356,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object Tv1Column5: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         HeaderAlignmentHorz = taCenter
@@ -358,6 +365,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object v1Column5: TcxGridDBColumn
         Caption = #36710#38388
         DataBinding.FieldName = 'Workshop'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 86
@@ -365,6 +373,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object v1Column6: TcxGridDBColumn
         Caption = #20986#24211#21333#21495
         DataBinding.FieldName = 'BCIOID'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 83
@@ -373,6 +382,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
         Tag = 2
         Caption = #20986#24211#26102#38388
         DataBinding.FieldName = 'IOTime'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.SaveTime = False
         Properties.ShowTime = False
@@ -384,6 +394,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
         Tag = 2
         Caption = #20986#24211#31867#22411
         DataBinding.FieldName = 'IOType'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.Items.Strings = (
@@ -398,6 +409,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
         Tag = 2
         Caption = #25152#23646#31867#22411
         DataBinding.FieldName = 'SSType'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.Items.Strings = (
@@ -412,6 +424,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object v1Column1: TcxGridDBColumn
         Caption = #37319#36141#21333#21495
         DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -422,6 +435,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
         Tag = 2
         Caption = #26469#33258#21333#20301
         DataBinding.FieldName = 'FromCoName'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Alignment.Horz = taLeftJustify
         Properties.Buttons = <
@@ -437,6 +451,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object v1Column13: TcxGridDBColumn
         Caption = #38376#24133
         DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 71
@@ -444,12 +459,14 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object v1Column16: TcxGridDBColumn
         Caption = #20811#37325
         DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
       end
       object v1Column17: TcxGridDBColumn
         Caption = #21697#29260
         DataBinding.FieldName = 'SXPinPai'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -460,6 +477,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
         Tag = 2
         Caption = #21697#21517
         DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -473,6 +491,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object v1Column20: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'SPCode'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -483,6 +502,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
         Tag = 2
         Caption = #35268#26684
         DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Options.Editing = False
@@ -491,6 +511,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object v1Column10: TcxGridDBColumn
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -500,12 +521,21 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object Tv1Column6: TcxGridDBColumn
         Caption = #33394#21495
         DataBinding.FieldName = 'C_ColorNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 73
       end
+      object Tv1Column18: TcxGridDBColumn
+        Caption = #22270#29255
+        DataBinding.FieldName = 'IsImg'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 49
+      end
       object v1Column7: TcxGridDBColumn
         Caption = #25209#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 68
@@ -513,12 +543,14 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object Tv1Column7: TcxGridDBColumn
         Caption = #26579#21378#32568#21495
         DataBinding.FieldName = 'FtyPCId'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 78
       end
       object v1Column18: TcxGridDBColumn
         Caption = #20986#21040#35745#21010#21333
         DataBinding.FieldName = 'ToOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 82
@@ -526,6 +558,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object Tv1Column1: TcxGridDBColumn
         Caption = #26469#33258#35745#21010#21333
         DataBinding.FieldName = 'FromOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 96
@@ -533,6 +566,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object v1Column19: TcxGridDBColumn
         Caption = #21305#25968
         DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 51
@@ -541,6 +575,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
         Tag = 2
         Caption = #25968#37327
         DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -550,6 +585,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
         Tag = 2
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 58
@@ -557,12 +593,14 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object Tv1Column8: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 52
       end
       object Tv1Column2: TcxGridDBColumn
         Caption = #21305#37325
         DataBinding.FieldName = 'PieceWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -571,12 +609,14 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
         Tag = 2
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         Options.Editing = False
         Width = 79
       end
       object Tv1Column4: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 78
@@ -584,6 +624,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object Tv1Column3: TcxGridDBColumn
         Caption = #33394#21035
         DataBinding.FieldName = 'C_ColorDepth'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 73
@@ -591,6 +632,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object Tv1Column9: TcxGridDBColumn
         Caption = #33457#22411
         DataBinding.FieldName = 'C_Pattern'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -598,6 +640,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object Tv1Column10: TcxGridDBColumn
         Caption = #25104#20998
         DataBinding.FieldName = 'C_Composition'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -605,6 +648,7 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object Tv1Column11: TcxGridDBColumn
         Caption = #27454#21495
         DataBinding.FieldName = 'C_StyleNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -612,31 +656,37 @@ inherited frmTradePackClothOutList: TfrmTradePackClothOutList
       object Tv1Column12: TcxGridDBColumn
         Caption = #21046#21333#20154
         DataBinding.FieldName = 'Filler'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column13: TcxGridDBColumn
         Caption = #22797#21333#21495
         DataBinding.FieldName = 'FOrdNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column14: TcxGridDBColumn
         Caption = #23458#25143#21333#21495
         DataBinding.FieldName = 'BuyConNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column15: TcxGridDBColumn
         Caption = #20986#21040#21333#20301
         DataBinding.FieldName = 'ToCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column16: TcxGridDBColumn
         Caption = #27425#21697#25968
         DataBinding.FieldName = 'DefQty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column17: TcxGridDBColumn
         Caption = #25910#36135#20154
         DataBinding.FieldName = 'consignee'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
     end

T02贸易汇总仓库/U_TradePackClothOutList.pas

@@ -12,7 +12,8 @@ uses
   cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
   RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
   cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
-  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList;
+  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
+  dxScrollbarAnnotations;
 
 type
   TfrmTradePackClothOutList = class(TfrmBaseList)
@@ -96,6 +97,8 @@ type
     Tv1Column15: TcxGridDBColumn;
     Tv1Column16: TcxGridDBColumn;
     Tv1Column17: TcxGridDBColumn;
+    Tv1Column18: TcxGridDBColumn;
+    ToolButton3: TToolButton;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);
@@ -115,6 +118,7 @@ type
     procedure cxTabControl1Change(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);
     procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
   private
     canshu1, canshu2: string;
     procedure InitGrid();
@@ -130,7 +134,7 @@ type
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_TradePackClothOutEdit, U_LabelPrint;
+  U_DataLink, U_RTFun, U_TradePackClothOutEdit, U_LabelPrint,U_TPUp;
 
 {$R *.dfm}
 
@@ -159,11 +163,14 @@ begin
       Close;
       sql.Clear;
       sql.Add(' select A.*,B.FOrdNo,BuyConNo=(select Top 1 BuyConNo from Trade_Plan_Sub X where X.MainId=B.MainId) ');
+      sql.Add(',IsImg=cast((case when (select COUNT(TF.WBID) from TP_File TF');
+      sql.Add('where TF.TFType = ''ȾÕû·¢»õ'' and TF.WBID=A.BCIOID)=0 then 0 else 1 end) as bit )   ');
       sql.Add(' from BS_Cloth_IO A left join Trade_Plan_Main B on A.FromOrdNO=B.OrderNo');
       sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
       sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
       sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
       SQL.Add(' and ioFlag=''³ö¿â''  ');
+//      showmessage(SQL.text);
       Open;
     end;
     SCreateCDS(ADOQueryMain, CDS_Main);
@@ -229,6 +236,26 @@ begin
   end;
 end;
 
+procedure TfrmTradePackClothOutList.ToolButton3Click(Sender: TObject);
+begin
+  try
+    frmTPUp := TfrmTPUp.Create(Application);
+    with frmTPUp do
+    begin
+
+      FBCIID := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString);
+      if ShowModal = 1 then
+      begin
+        Self.InitGrid();
+//        Self.CDS_1.Locate('BCIID', BCIID, []);
+      end;
+    end;
+  finally
+    frmTPUp.Free;
+  end;
+
+end;
+
 procedure TfrmTradePackClothOutList.ConNoMChange(Sender: TObject);
 begin
   if ADOQueryMain.Active then

T04贸易明细仓库/ProjectGroup1.groupproj.local

@@ -2,6 +2,6 @@
 <BorlandProject>
 	<Transactions/>
 	<Default.Personality>
-    <Projects ActiveProject="D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\testDll.dproj"/>
+		<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\T04贸易明细仓库\TradeClothStk.dproj"/>
 	</Default.Personality>
 </BorlandProject>

T04贸易明细仓库/TradeClothStk.dproj.local

@@ -2,54 +2,54 @@
 <BorlandProject>
 	<Transactions>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.890,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothInListNew.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.355,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeKCListSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.527,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_DeliTradePlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.890,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothInListNew.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.355,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeKCListSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.733,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeStockListSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.808,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.733,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeStockListSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothStkListNew.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothOutListNew.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.497,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothStkListNew.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.997,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothOutEdit.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothOutListNew.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>2024-07-10 14:44:44.808,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>