0801
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
2f59ef8f60
commit
14f7f405a1
Binary file not shown.
62
A01基础公司管理/Company.skincfg
Normal file
62
A01基础公司管理/Company.skincfg
Normal file
|
|
@ -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
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -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}
|
||||
|
||||
|
|
|
|||
|
|
@ -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>
|
||||
|
|
|
|||
|
|
@ -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>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -1,7 +1,7 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\testDll.dproj"/>
|
||||
</Default.Personality>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\Financial.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
|
|
@ -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 //
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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,
|
||||
dxSkinWXI, dxScrollbarAnnotations;
|
||||
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, dxSkinWXI,
|
||||
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;
|
||||
sql.Add('select * from Finance_Invoice where IVID=''' + trim(FIVID) + '''');
|
||||
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);
|
||||
with frmClothInfoSel do
|
||||
begin
|
||||
if showmodal = 1 then
|
||||
try
|
||||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||||
with frmZDYHelp do
|
||||
begin
|
||||
CDS_Invoice.Edit;
|
||||
CDS_Invoice.fieldbyname('F_Code').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Code').asstring;
|
||||
|
||||
CDS_Invoice.fieldbyname('F_Name').Value := frmClothInfoSel.CDS_1.fieldbyname('C_Name').asstring;
|
||||
|
||||
CDS_Invoice.Post;
|
||||
flag := 'MPRTCodeName';
|
||||
flagname := '产品名称';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
Self.CDS_Invoice.Edit;
|
||||
Self.CDS_Invoice.FieldByName('F_Name').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||||
Self.CDS_Invoice.FieldByName('F_Code').Value := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||||
end;
|
||||
end;
|
||||
free;
|
||||
finally
|
||||
frmZDYHelp.Free;
|
||||
end;
|
||||
|
||||
tv1.Controller.EditingController.ShowEdit();
|
||||
|
|
@ -383,18 +394,47 @@ end;
|
|||
|
||||
procedure TfrmInvoiceInInPut.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
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;
|
||||
if CDS_Invoice.IsEmpty = False then
|
||||
begin
|
||||
CopyAddRowCDS(CDS_Invoice);
|
||||
with CDS_Invoice do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('IVID').Value := null;
|
||||
post;
|
||||
end;
|
||||
end
|
||||
else
|
||||
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;
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
690
A09财务通用管理/U_OtherPayableInput.dfm
Normal file
690
A09财务通用管理/U_OtherPayableInput.dfm
Normal file
|
|
@ -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
|
||||
431
A09财务通用管理/U_OtherPayableInput.pas
Normal file
431
A09财务通用管理/U_OtherPayableInput.pas
Normal file
|
|
@ -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.
|
||||
|
||||
666
A09财务通用管理/U_OtherPayableList.dfm
Normal file
666
A09财务通用管理/U_OtherPayableList.dfm
Normal file
|
|
@ -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
|
||||
557
A09财务通用管理/U_OtherPayableList.pas
Normal file
557
A09财务通用管理/U_OtherPayableList.pas
Normal file
|
|
@ -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.
|
||||
|
||||
|
|
@ -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
|
||||
Left = 539
|
||||
Top = 17
|
||||
object SQDate: TDateTimePicker
|
||||
Left = 544
|
||||
Top = 18
|
||||
Width = 125
|
||||
Height = 20
|
||||
BevelInner = bvNone
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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,15 +159,17 @@ 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
|
||||
case cxTabControl1.TabIndex of
|
||||
0:
|
||||
begin
|
||||
btnEdit.Enabled := true;
|
||||
|
|
@ -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 FFTime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
|
||||
sql.Add(' and A.SQDate>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
|
||||
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
|
||||
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;
|
||||
|
||||
Panel2.Left := (self.width - Panel2.width) div 2;
|
||||
Panel2.Visible := True;
|
||||
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
|
||||
|
|
|
|||
|
|
@ -244,8 +244,8 @@ object frmPayableInput: TfrmPayableInput
|
|||
Visible = False
|
||||
end
|
||||
object Label15: TLabel
|
||||
Left = 455
|
||||
Top = 79
|
||||
Left = 671
|
||||
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
|
||||
Top = 78
|
||||
Left = 728
|
||||
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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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('请选择数据', '提示');
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
|
@ -1,7 +1,7 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\骉骐\B01基础合同管理\testDll.dproj"/>
|
||||
</Default.Personality>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\B01基础合同管理\Contract.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -1,7 +1,7 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\骉骐\T01贸易生产计划\testDll.dproj"/>
|
||||
</Default.Personality>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\T01贸易生产计划\TradePlan.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
|
|
@ -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}
|
||||
|
||||
|
|
|
|||
|
|
@ -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>
|
||||
|
|
|
|||
|
|
@ -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.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.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.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.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"/>
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -1,9 +1,8 @@
|
|||
object DataLink_TradePlan: TDataLink_TradePlan
|
||||
OldCreateOrder = False
|
||||
OnCreate = DataModuleCreate
|
||||
inherited DataLink_TradePlan: TDataLink_TradePlan
|
||||
OnDestroy = DataModuleDestroy
|
||||
Height = 349
|
||||
Width = 482
|
||||
inherited cxImageList_bar: TcxImageList
|
||||
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
|
||||
|
|
|
|||
|
|
@ -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;
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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);
|
||||
|
|
|
|||
|
|
@ -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
|
||||
Top = 157
|
||||
Left = 8
|
||||
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
|
||||
|
|
|
|||
|
|
@ -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();
|
||||
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -1,7 +1,7 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\骉骐\T02贸易汇总仓库\testDll.dproj"/>
|
||||
</Default.Personality>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\T02贸易汇总仓库\TradeTotalClothStk.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
|
|
@ -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}
|
||||
|
||||
|
|
|
|||
|
|
@ -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>
|
||||
|
|
|
|||
|
|
@ -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>
|
||||
|
|
|
|||
Binary file not shown.
62
T02贸易汇总仓库/TradeTotalClothStk.skincfg
Normal file
62
T02贸易汇总仓库/TradeTotalClothStk.skincfg
Normal file
|
|
@ -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
|
||||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
283
T02贸易汇总仓库/U_TPUp.dfm
Normal file
283
T02贸易汇总仓库/U_TPUp.dfm
Normal file
|
|
@ -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
|
||||
423
T02贸易汇总仓库/U_TPUp.pas
Normal file
423
T02贸易汇总仓库/U_TPUp.pas
Normal file
|
|
@ -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.
|
||||
|
||||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
Binary file not shown.
|
|
@ -1,7 +1,7 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\testDll.dproj"/>
|
||||
</Default.Personality>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\T04贸易明细仓库\TradeClothStk.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
|
|
@ -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.434,=D:\Dp10Repo\项目代码\华府\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.497,=D:\Dp10Repo\项目代码\骉骐\T04贸易明细仓库\U_TradeClothStkListNew.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj</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.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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"/>
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue
Block a user