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

0801

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2024-08-01 10:13:17 +08:00
parent 2f59ef8f60
commit 14f7f405a1
70 changed files with 4532 additions and 284 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
A01基础公司管理/Company.identcache
View File

Binary file not shown.

62
A01基础公司管理/Company.skincfg Normal file
View 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

BIN
A02基础产品管理/ClothInfo.identcache
View File

Binary file not shown.

BIN
A02基础产品管理/testDll.identcache
View File

Binary file not shown.

4
A09财务通用管理/Financial.dpr
View File

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

8
A09财务通用管理/Financial.dproj
View File

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

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

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

BIN
A09财务通用管理/Financial.identcache
View File

Binary file not shown.

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

@ -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
A09财务通用管理/U_GetDllForm.pas
View File

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

5
A09财务通用管理/U_InvoiceInInPut.dfm
View File

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

96
A09财务通用管理/U_InvoiceInInPut.pas
View File

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

29
A09财务通用管理/U_InvoiceInList.dfm
View File

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

19
A09财务通用管理/U_InvoiceInList.pas
View File

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

2
A09财务通用管理/U_InvoiceOutList.dfm
View File

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

11
A09财务通用管理/U_PayInput.dfm
View File

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

12
A09财务通用管理/U_PayInput.pas
View File

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

175
A09财务通用管理/U_PayList.dfm
View File

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

416
A09财务通用管理/U_PayList.pas
View File

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

41
A09财务通用管理/U_PayableInput.dfm
View File

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

4
A09财务通用管理/U_PayableInput.pas
View File

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

13
A09财务通用管理/U_PayableList.dfm
View File

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

5
A09财务通用管理/U_PayableList.pas
View File

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

43
A09财务通用管理/U_ReceivableList.dfm
View File

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

11
A09财务通用管理/U_ReceivableList.pas
View File

@ -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('请选择数据', '提示');

BIN
A09财务通用管理/testDll.identcache
View File

Binary file not shown.

BIN
B01基础合同管理/Contract.identcache
View File

Binary file not shown.

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

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

BIN
B01基础合同管理/testDll.identcache
View File

Binary file not shown.

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

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

3
T01贸易生产计划/TradePlan.dpr
View File

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

7
T01贸易生产计划/TradePlan.dproj
View File

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

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

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

BIN
T01贸易生产计划/TradePlan.identcache
View File

Binary file not shown.

11
T01贸易生产计划/U_DataLink.dfm
View File

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

7
T01贸易生产计划/U_DataLink.pas
View File

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

51
T01贸易生产计划/U_TradePlanInPut.dfm
View File

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

4
T01贸易生产计划/U_TradePlanInPut.pas
View File

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

90
T01贸易生产计划/U_TradePlanList.dfm
View File

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

23
T01贸易生产计划/U_TradePlanList.pas
View File

@ -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();

BIN
T01贸易生产计划/testDll.identcache
View File

Binary file not shown.

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

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

3
T02贸易汇总仓库/TradeTotalClothStk.dpr
View File

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

6
T02贸易汇总仓库/TradeTotalClothStk.dproj
View File

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

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

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

BIN
T02贸易汇总仓库/TradeTotalClothStk.identcache
View File

Binary file not shown.

62
T02贸易汇总仓库/TradeTotalClothStk.skincfg Normal file
View 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

2
T02贸易汇总仓库/U_DataLink.pas
View File

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

2
T02贸易汇总仓库/U_GetDllForm.pas
View File

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

55
T02贸易汇总仓库/U_TradeFtyClothOutList.dfm
View File

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

30
T02贸易汇总仓库/U_TradeFtyClothOutList.pas
View File

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

46
T02贸易汇总仓库/U_TradeGreyClothInList.dfm
View File

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

30
T02贸易汇总仓库/U_TradeGreyClothInList.pas
View File

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

22
T02贸易汇总仓库/U_TradeGreyClothOutEdit.dfm
View File

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

2
T02贸易汇总仓库/U_TradeGreyClothOutEdit.pas
View File

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

35
T02贸易汇总仓库/U_TradeGreyClothOutList.dfm
View File

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

3
T02贸易汇总仓库/U_TradeGreyClothOutList.pas
View File

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

56
T02贸易汇总仓库/U_TradePackClothOutList.dfm
View File

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

31
T02贸易汇总仓库/U_TradePackClothOutList.pas
View File

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

BIN
T02贸易汇总仓库/testDll.identcache
View File

Binary file not shown.

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

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

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

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

BIN
T04贸易明细仓库/TradeClothStk.identcache
View File

Binary file not shown.

BIN
T04贸易明细仓库/testDll.identcache
View File

Binary file not shown.