683 lines
21 KiB
ObjectPascal
683 lines
21 KiB
ObjectPascal
unit U_ClothGYList;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
|
||
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
|
||
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||
cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
|
||
RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxPC, Menus,
|
||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox, dxSkinsCore,
|
||
dxSkinsDefaultPainters, dxSkinscxPCPainter, dxSkinBlack, dxSkinBlue,
|
||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||
dxSkinTheAsphaltWorld, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||
dxSkinXmas2008Blue;
|
||
|
||
type
|
||
TfrmClothGYList = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBRafresh: TToolButton;
|
||
TBFind: TToolButton;
|
||
TBClose: TToolButton;
|
||
Panel1: TPanel;
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
ADOQueryCmd: TADOQuery;
|
||
ADOQueryMain: TADOQuery;
|
||
ADOQueryTemp: TADOQuery;
|
||
DataSource1: TDataSource;
|
||
Label5: TLabel;
|
||
C_CodeName: TEdit;
|
||
TBExport: TToolButton;
|
||
Order_Main: TClientDataSet;
|
||
RMXLSExport1: TRMXLSExport;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
v1Column2: TcxGridDBColumn;
|
||
v1PRTMF: TcxGridDBColumn;
|
||
v1PRTKZ: TcxGridDBColumn;
|
||
v1Column4: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
v1Column9: TcxGridDBColumn;
|
||
TBView: TToolButton;
|
||
v1Column21: TcxGridDBColumn;
|
||
Label10: TLabel;
|
||
C_Code: TEdit;
|
||
v1Column20: TcxGridDBColumn;
|
||
v1Column1: TcxGridDBColumn;
|
||
Label1: TLabel;
|
||
GongYiCode: TEdit;
|
||
tbADD: TToolButton;
|
||
tbEDIT: TToolButton;
|
||
TBDEL: TToolButton;
|
||
v1Column3: TcxGridDBColumn;
|
||
v1Column6: TcxGridDBColumn;
|
||
v1Column7: TcxGridDBColumn;
|
||
Tv1Column1: TcxGridDBColumn;
|
||
Tv1Column2: TcxGridDBColumn;
|
||
TBQY: TToolButton;
|
||
TBTY: TToolButton;
|
||
Tv1Column3: TcxGridDBColumn;
|
||
TBPrint: TToolButton;
|
||
CDS_PRT: TClientDataSet;
|
||
RMDBPRT: TRMDBDataSet;
|
||
CDS_PZ: TClientDataSet;
|
||
RMDBPZ: TRMDBDataSet;
|
||
CDS_SJ: TClientDataSet;
|
||
RMDBSJ: TRMDBDataSet;
|
||
ClientDataSet1: TClientDataSet;
|
||
RMDBDataSet1: TRMDBDataSet;
|
||
CDS_WJG: TClientDataSet;
|
||
RMDBWJG: TRMDBDataSet;
|
||
RM1: TRMGridReport;
|
||
Label2: TLabel;
|
||
YZConNo: TEdit;
|
||
TBSave: TToolButton;
|
||
v1PriceA: TcxGridDBColumn;
|
||
v1PriceC: TcxGridDBColumn;
|
||
v1PriceD: TcxGridDBColumn;
|
||
v1PriceE: TcxGridDBColumn;
|
||
v1PriceF: TcxGridDBColumn;
|
||
v1PriceG: TcxGridDBColumn;
|
||
v1PriceH: TcxGridDBColumn;
|
||
v1PriceJ: TcxGridDBColumn;
|
||
TBSaveP: TToolButton;
|
||
Panel2: TPanel;
|
||
Tv1Column4: TcxGridDBColumn;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure TBFindClick(Sender: TObject);
|
||
procedure TBExportClick(Sender: TObject);
|
||
procedure TBRafreshClick(Sender: TObject);
|
||
procedure ConNoChange(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBViewClick(Sender: TObject);
|
||
procedure cxTabControl1Change(Sender: TObject);
|
||
procedure tbADDClick(Sender: TObject);
|
||
procedure tbEDITClick(Sender: TObject);
|
||
procedure TBDELClick(Sender: TObject);
|
||
procedure TBQYClick(Sender: TObject);
|
||
procedure TBTYClick(Sender: TObject);
|
||
procedure TBPrintClick(Sender: TObject);
|
||
procedure TBSaveClick(Sender: TObject);
|
||
procedure TBSavePClick(Sender: TObject);
|
||
private
|
||
FInt, PFInt: Integer;
|
||
procedure InitGrid();
|
||
procedure InitForm();
|
||
procedure InitButton();
|
||
{ Private declarations }
|
||
public
|
||
canshu1, FCheJian: string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
//var
|
||
//frmClothSCList: TfrmClothSCList;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_ClothGYInPut, U_Fun, U_ZDYHelp, U_SCPerson, U_ClothSCInPutSC,
|
||
U_ClothGongYi, U_RTFun;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmClothGYList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmClothGYList.InitButton();
|
||
begin
|
||
tbADD.Visible := False;
|
||
tbEDIT.Visible := False;
|
||
tbDEL.Visible := False;
|
||
TBQY.Visible := False;
|
||
TBTY.Visible := False;
|
||
TBPrint.Visible := False;
|
||
TBSave.Visible := False;
|
||
TBSaveP.Visible := False;
|
||
if Self.canshu1 = '<27><>Ȩ<EFBFBD><C8A8>' then
|
||
begin
|
||
|
||
end;
|
||
if Self.canshu1 = '<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
tbADD.Visible := True;
|
||
tbEDIT.Visible := True;
|
||
tbDEL.Visible := True;
|
||
TBQY.Visible := True;
|
||
TBTY.Visible := True;
|
||
TBPrint.Visible := True;
|
||
end;
|
||
if Self.canshu1 = '¼<><C2BC>' then
|
||
begin
|
||
tbADD.Visible := True;
|
||
tbEDIT.Visible := True;
|
||
end;
|
||
if Self.canshu1 = '<27><>ӡ' then
|
||
begin
|
||
TBPrint.Visible := True;
|
||
end;
|
||
if Self.canshu1 = '<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
TBSave.Visible := True;
|
||
TBSaveP.Visible := True;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmClothGYList.TBCloseClick(Sender: TObject);
|
||
begin
|
||
|
||
if Trim(DName) = 'ADMIN' then
|
||
begin
|
||
WriteCxGridAll(trim(self.Caption), Tv1, ADOQueryCmd, ADOQueryTemp);
|
||
end;
|
||
Close;
|
||
|
||
end;
|
||
|
||
procedure TfrmClothGYList.InitGrid();
|
||
begin
|
||
try
|
||
ADOQueryMain.DisableControls;
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select B.* ');
|
||
// sql.Add(' ,YZConNo=cast((select distinct '' ''+ X.ConNo from Cloth_Main X inner join Cloth_Sub Y on X.MainId=Y.MainId ');
|
||
// sql.Add(' where DATEDIFF(MONTH,X.Filltime,getdate())<7 and Y.GongYiCode=B.GongYiCode for xml path('''')) as varchar(600))');
|
||
|
||
sql.Add(' ,YZConNo=cast((select '' ''+ X.ConNo from Cloth_Main X inner join Cloth_Sub Y on X.MainId=Y.MainId ');
|
||
sql.Add(' where Y.GongYiCode=B.GongYiCode order by X.filltime desc for xml path('''')) as varchar(6000))'); // DATEDIFF(MONTH,X.Filltime,getdate())<7 and
|
||
|
||
sql.Add(' from CLoth_GY B');
|
||
sql.Add(' where Valid=''Y'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||
finally
|
||
ADOQueryMain.EnableControls;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmClothGYList.InitForm();
|
||
begin
|
||
InitButton();
|
||
ReadCxGridAll(trim(self.Caption), Tv1);
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmClothGYList.TBFindClick(Sender: TObject);
|
||
begin
|
||
if ADOQueryMain.Active = False then
|
||
Exit;
|
||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||
end;
|
||
|
||
procedure TfrmClothGYList.TBExportClick(Sender: TObject);
|
||
begin
|
||
if ADOQueryMain.IsEmpty then
|
||
Exit;
|
||
TcxGridToExcel('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', cxGrid1);
|
||
end;
|
||
|
||
procedure TfrmClothGYList.TBRafreshClick(Sender: TObject);
|
||
begin
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmClothGYList.ConNoChange(Sender: TObject);
|
||
begin
|
||
if ADOQueryMain.Active = False then
|
||
Exit;
|
||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||
SCreateCDS20(ADOQueryMain, Order_Main);
|
||
SInitCDSData20(ADOQueryMain, Order_Main);
|
||
end;
|
||
|
||
procedure TfrmClothGYList.FormShow(Sender: TObject);
|
||
begin
|
||
InitForm();
|
||
end;
|
||
|
||
procedure TfrmClothGYList.TBViewClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmClothGYInPut := TfrmClothGYInPut.Create(Application);
|
||
with frmClothGYInPut do
|
||
begin
|
||
TBSave.Visible := False;
|
||
ToolBar3.Visible := False;
|
||
if canshu1 = '<27><>ѯ' then
|
||
begin
|
||
cxPageControl1.Visible := False;
|
||
ToolBar1.Visible := False;
|
||
end;
|
||
PState := 1;
|
||
FSubId := Trim(Self.Order_Main.fieldbyname('GYId').AsString);
|
||
if ShowModal = 1 then
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmClothGYInPut.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmClothGYList.cxTabControl1Change(Sender: TObject);
|
||
begin
|
||
InitButton();
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmClothGYList.tbADDClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmClothGYInPut := TfrmClothGYInPut.Create(Application);
|
||
with frmClothGYInPut do
|
||
begin
|
||
PState := 0;
|
||
FMainId := '';
|
||
FSubId := '';
|
||
if ShowModal = 1 then
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmClothGYInPut.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmClothGYList.tbEDITClick(Sender: TObject);
|
||
begin
|
||
if Order_Main.IsEmpty then
|
||
Exit;
|
||
if Trim(FormatDateTime('yyyy-MM-dd', Order_Main.FieldByName('FillTime').AsDateTime)) < '2022-03-14' then
|
||
Exit;
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from Cloth_GY A where ');
|
||
sql.Add(' A.GYID=' + quotedstr(trim(Order_Main.fieldbyname('GYID').AsString)));
|
||
sql.Add(' and DATEDIFF(DD,A.Filltime,GETDATE()) >30 ');
|
||
Open;
|
||
end;
|
||
if ADOQueryTemp.IsEmpty = False then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><DEB7><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select A.* from Cloth_GY A where ');
|
||
sql.Add(' GYID=' + quotedstr(trim(Order_Main.fieldbyname('GYID').AsString)));
|
||
sql.Add(' and QYFlag=1 ');
|
||
Open;
|
||
end;
|
||
if ADOQueryTemp.IsEmpty = False then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><DEB7><EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
|
||
with Self.ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||
sql.Add(' ' + quotedstr(trim(DName)));
|
||
sql.Add(',getdate() ');
|
||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||
sql.Add(',' + quotedstr(trim('<27><EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ձ<EFBFBD>')));
|
||
sql.Add(',' + quotedstr(Trim(Order_Main.fieldbyname('GYId').AsString)));
|
||
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
||
sql.Add(')');
|
||
execsql;
|
||
end;
|
||
try
|
||
frmClothGYInPut := TfrmClothGYInPut.Create(Application);
|
||
with frmClothGYInPut do
|
||
begin
|
||
PState := 1;
|
||
FSubId := Trim(Self.Order_Main.fieldbyname('GYId').AsString);
|
||
if ShowModal = 1 then
|
||
begin
|
||
InitGrid();
|
||
Self.Order_Main.Locate('MainId', frmClothGYInPut.FMainId, []);
|
||
end;
|
||
end;
|
||
finally
|
||
frmClothGYInPut.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmClothGYList.TBDELClick(Sender: TObject);
|
||
begin
|
||
if Order_Main.IsEmpty then
|
||
exit;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD>˹<EFBFBD><CBB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
||
Exit;
|
||
try
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update Cloth_GY SET QYFlag=0, Valid=''N'' ,DelPerson=''' + trim(DName) + ''',DelTime=getdate() ');
|
||
sql.Add('where GYID=' + quotedstr(trim(Order_Main.fieldbyname('GYID').AsString)));
|
||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||
sql.Add(' ' + quotedstr(trim(DName)));
|
||
sql.Add(',getdate() ');
|
||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||
sql.Add(',' + quotedstr(trim('<27><><EFBFBD>յ<EFBFBD>ɾ<EFBFBD><C9BE>')));
|
||
sql.Add(',' + quotedstr(trim('<27><><EFBFBD>ձ<EFBFBD><D5B1>ţ<EFBFBD>' + trim(Order_Main.FieldByName('GongYiCode').AsString))));
|
||
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
||
sql.Add(')');
|
||
execsql;
|
||
end;
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
|
||
Order_Main.Delete;
|
||
except
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmClothGYList.TBQYClick(Sender: TObject);
|
||
begin
|
||
if Order_Main.IsEmpty then
|
||
exit;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
||
Exit;
|
||
try
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update Cloth_GY SET QYFlag=1,QYPerson=''' + trim(DName) + ''',QYTime=getdate() ');
|
||
sql.Add('where GYID=' + quotedstr(trim(Order_Main.fieldbyname('GYID').AsString)));
|
||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||
sql.Add(' ' + quotedstr(trim(DName)));
|
||
sql.Add(',getdate() ');
|
||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||
sql.Add(',' + quotedstr(trim('<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD><EFBFBD><EFBFBD>')));
|
||
sql.Add(',' + quotedstr(trim('<27><><EFBFBD>ձ<EFBFBD><D5B1>ţ<EFBFBD>' + trim(Order_Main.FieldByName('GongYiCode').AsString))));
|
||
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
||
sql.Add(')');
|
||
execsql;
|
||
end;
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>óɹ<C3B3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
|
||
with Order_Main do
|
||
begin
|
||
Edit;
|
||
FieldByName('QYFlag').Value := True;
|
||
Post;
|
||
end;
|
||
except
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmClothGYList.TBTYClick(Sender: TObject);
|
||
begin
|
||
if Order_Main.IsEmpty then
|
||
exit;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫͣ<D2AA><CDA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
||
Exit;
|
||
try
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('update Cloth_GY SET QYFlag=0,QYPerson=''' + trim(DName) + ''',QYTime=getdate() ');
|
||
sql.Add('where GYID=' + quotedstr(trim(Order_Main.fieldbyname('GYID').AsString)));
|
||
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||
sql.Add(' ' + quotedstr(trim(DName)));
|
||
sql.Add(',getdate() ');
|
||
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||
sql.Add(',' + quotedstr(trim('<27><><EFBFBD>յ<EFBFBD>ͣ<EFBFBD><CDA3>')));
|
||
sql.Add(',' + quotedstr(trim('<27><><EFBFBD>ձ<EFBFBD><D5B1>ţ<EFBFBD>' + trim(Order_Main.FieldByName('GongYiCode').AsString))));
|
||
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
||
sql.Add(')');
|
||
execsql;
|
||
end;
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD>ͣ<EFBFBD>óɹ<C3B3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
|
||
with Order_Main do
|
||
begin
|
||
Edit;
|
||
FieldByName('QYFlag').Value := False;
|
||
Post;
|
||
end;
|
||
except
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD>ͣ<EFBFBD><CDA3>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmClothGYList.TBPrintClick(Sender: TObject);
|
||
var
|
||
fPrintFile: string;
|
||
i, j, k: integer;
|
||
begin
|
||
if Order_Main.IsEmpty then
|
||
Exit;
|
||
ExportFtErpFile('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD>.rmf', ADOQueryTemp);
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>յ<EFBFBD>.rmf';
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select WeiZhi1=WeiZhi,SPZ1=PZ1,SPZ2=PZ2,SPZ3=PZ3,SPZ4=PZ4,SPZ5=PZ5,SPZ6=PZ6,SPZ7=PZ7,SPZ8=PZ8,SPZ9=PZ9,SPZ10=PZ10, ');
|
||
sql.Add(' SPZ11=PZ11,SPZ12=PZ12,SPZ13=PZ13,SPZ14=PZ14,SPZ15=PZ15,SPZ16=PZ16,SPZ17=PZ17,SPZ18=PZ18,SPZ19=PZ19,SPZ20=PZ20, ');
|
||
sql.Add(' SPZ21=PZ21,SPZ22=PZ22,SPZ23=PZ23,SPZ24=PZ24,SPZ25=PZ25,SPZ26=PZ26,SPZ27=PZ27,SPZ28=PZ28,SPZ29=PZ29,SPZ30=PZ30, ');
|
||
sql.Add(' SPZ31=PZ31,SPZ32=PZ32,SPZ33=PZ33,SPZ34=PZ34,SPZ35=PZ35,SPZ36=PZ36 ');
|
||
sql.Add(' from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
||
sql.Add(' and RTrim(PZType)=''<27><><EFBFBD><EFBFBD>'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTemp, CDS_PZ);
|
||
SInitCDSData20(ADOQueryTemp, CDS_PZ);
|
||
if CDS_PZ.IsEmpty then
|
||
begin
|
||
CDS_PZ.Append;
|
||
CDS_PZ.Post;
|
||
end;
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
||
sql.Add(' and RTrim(PZType)=''<27><><EFBFBD><EFBFBD>'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTemp, CDS_SJ);
|
||
SInitCDSData20(ADOQueryTemp, CDS_SJ);
|
||
|
||
if CDS_SJ.IsEmpty then
|
||
begin
|
||
CDS_SJ.Append;
|
||
CDS_SJ.Post;
|
||
end;
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Filtered := False;
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Select A.* ');
|
||
sql.Add(',YLQty=Cast(C_Qty*PBQty*0.01*(1+isnull(ZPSH,0)*0.01) as decimal(18,1))');
|
||
sql.Add(' from Cloth_YCL_PB A');
|
||
sql.Add(' inner join Cloth_Sub B on A.SubId=B.SubId');
|
||
sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTemp, CDS_PRT);
|
||
SInitCDSData20(ADOQueryTemp, CDS_PRT);
|
||
if CDS_PRT.IsEmpty then
|
||
begin
|
||
CDS_PRT.Append;
|
||
CDS_PRT.Post;
|
||
end;
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTemp, ClientDataSet1);
|
||
SInitCDSData20(ADOQueryTemp, ClientDataSet1);
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
RM1.LoadFromFile(fPrintFile);
|
||
RMVariables['C_Code'] := Order_Main.fieldbyname('C_Code').Value;
|
||
RMVariables['C_CodeName'] := Order_Main.fieldbyname('C_CodeName').Value;
|
||
RMVariables['CarType'] := Order_Main.fieldbyname('CarType').Value;
|
||
RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
|
||
RMVariables['KZQty'] := Order_Main.fieldbyname('KZQty').Value;
|
||
RMVariables['MFQty'] := Order_Main.fieldbyname('MFQty').Value;
|
||
RMVariables['KZ'] := Order_Main.fieldbyname('KZ').Value;
|
||
RMVariables['MF'] := Order_Main.fieldbyname('MF').Value;
|
||
RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
|
||
RMVariables['ShaChang1'] := Order_Main.fieldbyname('ShaChang').Value;
|
||
RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
|
||
RMVariables['C_Spec'] := Order_Main.fieldbyname('C_Spec').Value;
|
||
RMVariables['C_Color'] := Order_Main.fieldbyname('C_Color').Value;
|
||
RMVariables['C_Note'] := Order_Main.fieldbyname('C_Note').Value;
|
||
RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
|
||
RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
|
||
RMVariables['Zdr'] := Order_Main.fieldbyname('Filler').Value;
|
||
RMVariables['ZZYQ'] := Order_Main.fieldbyname('ZZYQ').Value;
|
||
RMVariables['ZZSH'] := Order_Main.fieldbyname('ZZSH').Value;
|
||
RMVariables['MFZZS'] := Order_Main.fieldbyname('MFZZS').Value;
|
||
RMVariables['ALBL'] := Order_Main.fieldbyname('ALBL').Value;
|
||
RMVariables['gongyi'] := Order_Main.fieldbyname('gongyi').Value;
|
||
RMVariables['ZhenCun'] := Order_Main.fieldbyname('ZhenCun').Value;
|
||
RMVariables['FillTime'] := Order_Main.fieldbyname('FillTime').Value;
|
||
RMVariables['ZongZhenQty'] := Order_Main.fieldbyname('ZongZhenQty').Value;
|
||
RMVariables['PSNote'] := Order_Main.fieldbyname('PSNote').Value;
|
||
RMVariables['SJNote'] := Order_Main.fieldbyname('SJNote').Value;
|
||
RMVariables['ISYT'] := Order_Main.fieldbyname('ISYT').Value;
|
||
RMVariables['ISKF'] := Order_Main.fieldbyname('ISKF').Value;
|
||
RMVariables['ISCZ'] := Order_Main.fieldbyname('ISCZ').Value;
|
||
RMVariables['PBFactoryNoName'] := Order_Main.fieldbyname('PBFactoryNoName').Value;
|
||
RMVariables['YGPS'] := Order_Main.fieldbyname('YGPS').Value;
|
||
RMVariables['YGQty'] := Order_Main.fieldbyname('YGQty').Value;
|
||
RMVariables['GongYiCode'] := Order_Main.fieldbyname('GongYiCode').Value;
|
||
RMVariables['YZConNo'] := Order_Main.fieldbyname('YZConNo').Value;
|
||
RM1.ShowReport;
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmClothGYList.TBSaveClick(Sender: TObject);
|
||
begin
|
||
if Order_Main.IsEmpty then
|
||
Exit;
|
||
C_Code.SetFocus;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD>浱ǰѡ<C7B0>е<EFBFBD><D0B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
||
Exit;
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from CLoth_GY where GYID=''' + Trim(Order_Main.fieldbyname('GYID').AsString) + '''');
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Edit;
|
||
RTSetSaveDataCDS(ADOQueryCmd, Tv1, Order_Main, 'CLoth_GY', 7);
|
||
FieldByName('Editer').Value := Trim(DName);
|
||
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
|
||
Post;
|
||
end;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmClothGYList.TBSavePClick(Sender: TObject);
|
||
var
|
||
FDate: TDateTime;
|
||
begin
|
||
if Order_Main.IsEmpty then
|
||
Exit;
|
||
C_Code.SetFocus;
|
||
if Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD>Ƚϳ<C8BD><CFB3><EFBFBD>Ҫ<EFBFBD>ȴ<EFBFBD>һ<EFBFBD><D2BB>ʱ<EFBFBD>䣬ȷ<E4A3AC><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>浱ǰҳ<C7B0><D2B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
|
||
Exit;
|
||
FDate := SGetServerDateTime(ADOQueryTemp);
|
||
Panel2.Visible := True;
|
||
Panel2.Refresh;
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
Order_Main.DisableControls;
|
||
with Order_Main do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from CLoth_GY where GYID=''' + Trim(Order_Main.fieldbyname('GYID').AsString) + '''');
|
||
Open;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Edit;
|
||
RTSetSaveDataCDS(ADOQueryCmd, Tv1, Order_Main, 'CLoth_GY', 7);
|
||
FieldByName('Editer').Value := Trim(DName);
|
||
FieldByName('EditTime').Value := FDate;
|
||
Post;
|
||
end;
|
||
next;
|
||
end;
|
||
end;
|
||
Order_Main.EnableControls;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
Panel2.Visible := False;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
|
||
except
|
||
Panel2.Visible := False;
|
||
Order_Main.EnableControls;
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
end.
|
||
|