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