723 lines
20 KiB
ObjectPascal
723 lines
20 KiB
ObjectPascal
unit U_TradeClothDROutEdit;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||
cxEdit, DB, cxDBData, StdCtrls, ExtCtrls, ADODB, DBClient,
|
||
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
|
||
cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit,
|
||
RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, RM_e_Xls,
|
||
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
|
||
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
|
||
dxScrollbarAnnotations;
|
||
|
||
type
|
||
TfrmTradeClothDROutEdit = class(TfrmBaseList)
|
||
ADOQueryTemp: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
DS_MainSel: TDataSource;
|
||
CDS_MainSel: TClientDataSet;
|
||
GPM_1: TcxGridPopupMenu;
|
||
Panel2: TPanel;
|
||
Label5: TLabel;
|
||
Label4: TLabel;
|
||
Label9: TLabel;
|
||
edtScan: TEdit;
|
||
CRTime: TDateTimePicker;
|
||
ToCoName: TEdit;
|
||
Button2: TButton;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
Label12: TLabel;
|
||
CDS_Main: TClientDataSet;
|
||
CRType: TEdit;
|
||
Button1: TButton;
|
||
RMXLSExport1: TRMXLSExport;
|
||
RMDBMX: TRMDBDataSet;
|
||
RM1: TRMGridReport;
|
||
CDS_JuanPRT: TClientDataSet;
|
||
Label10: TLabel;
|
||
edtIsSMTH: TEdit;
|
||
btn1: TButton;
|
||
ds1: TClientDataSet;
|
||
ds2: TDataSource;
|
||
Panel1: TPanel;
|
||
cxGrid3: TcxGrid;
|
||
Tv3: TcxGridDBTableView;
|
||
cv3Column3: TcxGridDBColumn;
|
||
VC_MJXH: TcxGridDBColumn;
|
||
v3Column1: TcxGridDBColumn;
|
||
v3Column2: TcxGridDBColumn;
|
||
cv3Column4: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
cxGrid1: TcxGrid;
|
||
TV4: TcxGridDBTableView;
|
||
cCXCONNO: TcxGridDBColumn;
|
||
cV4Column1: TcxGridDBColumn;
|
||
cCXCOLOR: TcxGridDBColumn;
|
||
VC_SQQTY: TcxGridDBColumn;
|
||
cCXFHPS: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
TV4Column1: TcxGridDBColumn;
|
||
Tv3Column1: TcxGridDBColumn;
|
||
TV4Column2: TcxGridDBColumn;
|
||
TV4Column3: TcxGridDBColumn;
|
||
OutNo: TEdit;
|
||
Tv3Column2: TcxGridDBColumn;
|
||
Tv3Column3: TcxGridDBColumn;
|
||
GPM_2: TcxGridPopupMenu;
|
||
TV4Column5: TcxGridDBColumn;
|
||
Tv3Column4: TcxGridDBColumn;
|
||
ADOQuery1: TADOQuery;
|
||
ADOQuery2: TADOQuery;
|
||
Tv3Column5: TcxGridDBColumn;
|
||
Tv3Column6: TcxGridDBColumn;
|
||
TV4Column4: TcxGridDBColumn;
|
||
TV4Column6: TcxGridDBColumn;
|
||
TV4Column7: TcxGridDBColumn;
|
||
DRSID: TEdit;
|
||
Tv3Column7: TcxGridDBColumn;
|
||
Tv3Column8: TcxGridDBColumn;
|
||
Tv3Column9: TcxGridDBColumn;
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure edtScanKeyPress(Sender: TObject; var Key: Char);
|
||
procedure Button2Click(Sender: TObject);
|
||
procedure Button1Click(Sender: TObject);
|
||
procedure edtIsSMTHClick(Sender: TObject);
|
||
procedure btn1Click(Sender: TObject);
|
||
procedure TV4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
private
|
||
{ Private declarations }
|
||
FCKNO, FSMStr, JXFlag, CZZT, fcuowu, FCRType, FZDMX, FSIDStr: string;
|
||
procedure InitCKGrid();
|
||
procedure InitSQGrid();
|
||
procedure PlayWav(MWav: string);
|
||
function JudgeSQD(): Boolean;
|
||
function SaveCKJTM(MStkIds: string): Boolean; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
function SaveSelCKJTM(MStkIds: string): Boolean;
|
||
procedure SaveCKJTMCX(); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
procedure PDCF(MStkIds: string);
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmTradeClothDROutEdit: TfrmTradeClothDROutEdit;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_RTFun, MMSystem, U_TradeDRSel, U_TradeKCListSel;
|
||
|
||
procedure TfrmTradeClothDROutEdit.PlayWav(MWav: string);
|
||
begin
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\' + MWav + '.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\' + MWav + '.wav'), 0, SND_ASYNC);
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.PDCF(MStkIds: string);
|
||
begin
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
Sql.Clear;
|
||
sql.Add('select C_Code,SUM(ISNULL(Piece, 0)) Piece,SUM(ISNULL(Qty, 0)) Qty,QtyUnit');
|
||
SQL.Add('from Trade_Cloth_DR_Sub ');
|
||
SQL.Add('where DRMid=' + quotedstr(trim(OutNo.Text)));
|
||
Sql.Add('GROUP BY C_Code,QtyUnit');
|
||
Open;
|
||
end;
|
||
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
Sql.Clear;
|
||
sql.Add('select * from Trade_Cloth_Stock ');
|
||
sql.Add('where StkId in ()');
|
||
sql.Add('and C_Code');
|
||
Open;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.SaveCKJTMCX();
|
||
begin
|
||
|
||
try
|
||
if Trim(OutNo.Text) = '' then
|
||
raise Exception.Create('<27><><EFBFBD>ⵥ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!');
|
||
|
||
if CDS_MainSel.IsEmpty then
|
||
raise Exception.Create('<27>ɳ<DEBF><C9B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!');
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
Sql.Clear;
|
||
sql.Add('insert into Finance_Need_Up(UType,UDataId) values(''ó<>׳<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'',' + quotedstr(OutNo.Text) + ') ');
|
||
|
||
Sql.Add('exec P_Trade_Cloth_ReOut ');
|
||
Sql.Add(' @StkIds=' + quotedstr(trim(FSMStr)));
|
||
Sql.Add(',@IOIDS=' + quotedstr(trim('')));
|
||
Sql.Add(',@FillId=' + Quotedstr(DCode));
|
||
Sql.Add(',@Filler=' + Quotedstr(DName));
|
||
Open;
|
||
end;
|
||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||
begin
|
||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||
end;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
PlayWav('<27><>ȷ');
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
raise Exception.Create(PChar(Exception(ExceptObject).Message));
|
||
end;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('exec P_Trade_Cloth_DR @OutNo=' + Quotedstr(Trim(OutNo.Text)));
|
||
Open;
|
||
end;
|
||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||
begin
|
||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||
end;
|
||
except
|
||
|
||
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
// PlayWav('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.TV4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
inherited;
|
||
|
||
InitCKGrid();
|
||
end;
|
||
|
||
function TfrmTradeClothDROutEdit.SaveSelCKJTM(MStkIds: string): Boolean;
|
||
var
|
||
FUnit: string;
|
||
// FQty :Integer;
|
||
begin
|
||
try
|
||
if Trim(OutNo.Text) = '' then
|
||
raise Exception.Create('<27><><EFBFBD>ⵥ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!');
|
||
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
Sql.Clear;
|
||
sql.Add('insert into Finance_Need_Up(UType,UDataId) values(''ó<>׳<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'',' + quotedstr(OutNo.Text) + ') ');
|
||
|
||
if crtype.Text = '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
Sql.Add('exec P_Trade_Cloth_Out ');
|
||
Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));
|
||
Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime)));
|
||
Sql.Add(',@IOType=' + Quotedstr(crtype.Text));
|
||
Sql.Add(',@IONO=' + Quotedstr(OutNo.Text));
|
||
Sql.Add(',@FillId=' + Quotedstr(DCode));
|
||
Sql.Add(',@Filler=' + Quotedstr(DName));
|
||
end
|
||
else if crtype.Text = 'ת<><D7AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
Sql.Add('exec P_Trade_Cloth_SelOut ');
|
||
Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));
|
||
Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime)));
|
||
Sql.Add(',@IOType=' + Quotedstr(crtype.Text));
|
||
Sql.Add(',@IONO=' + Quotedstr(OutNo.Text));
|
||
Sql.Add(',@FillId=' + Quotedstr(DCode));
|
||
Sql.Add(',@Filler=' + Quotedstr(DName));
|
||
Sql.Add(',@DRSid=' + Quotedstr(DRSid.text));
|
||
end;
|
||
|
||
Open;
|
||
end;
|
||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||
begin
|
||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||
end;
|
||
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
raise Exception.Create(PChar(Exception(ExceptObject).Message));
|
||
end;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('exec P_Trade_Cloth_DR @OutNo=' + Quotedstr(Trim(OutNo.Text)));
|
||
Open;
|
||
end;
|
||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||
begin
|
||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||
end;
|
||
|
||
PlayWav('<27><>ȷ');
|
||
Result := True;
|
||
except
|
||
Result := False;
|
||
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
// PlayWav('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
end;
|
||
|
||
end;
|
||
|
||
function TfrmTradeClothDROutEdit.SaveCKJTM(MStkIds: string): Boolean;
|
||
var
|
||
FUnit: string;
|
||
// FQty :Integer;
|
||
begin
|
||
try
|
||
if Trim(OutNo.Text) = '' then
|
||
raise Exception.Create('<27><><EFBFBD>ⵥ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!');
|
||
// if CDS_2.IsEmpty then
|
||
// raise Exception.Create('δѡ<CEB4><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!');
|
||
//
|
||
// if not CDS_1.Locate('StkId', Trim(FScan), []) then
|
||
// raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB><EFBFBD><EFBFBD><EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ľ<EFBFBD><C4BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('exec P_Trade_Code_Judge');
|
||
Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));
|
||
Sql.Add(',@IONO=' + Quotedstr(OutNo.Text));
|
||
Open;
|
||
end;
|
||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||
begin
|
||
// raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||
application.MessageBox(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
Sql.Clear;
|
||
sql.Add('insert into Finance_Need_Up(UType,UDataId) values(''ó<>׳<EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>'',' + quotedstr(OutNo.Text) + ') ');
|
||
|
||
Sql.Add('exec P_Trade_Cloth_Out ');
|
||
Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));
|
||
Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime)));
|
||
Sql.Add(',@IOType=' + Quotedstr(crtype.Text));
|
||
Sql.Add(',@IONO=' + Quotedstr(OutNo.Text));
|
||
Sql.Add(',@FillId=' + Quotedstr(DCode));
|
||
Sql.Add(',@Filler=' + Quotedstr(DName));
|
||
Open;
|
||
end;
|
||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||
begin
|
||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||
end;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
raise Exception.Create(PChar(Exception(ExceptObject).Message));
|
||
end;
|
||
|
||
//<2F><>ѯ<EFBFBD><D1AF><EFBFBD>뵥<EFBFBD><EBB5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select C_Code,ISNULL(QtyUnit, '''') Unit,SUM(ISNULL(Piece, 0)) Piece,SUM(ISNULL(Qty, 0)) Qty');
|
||
sql.Add('from Trade_Cloth_DR_Sub where DRMID=' + Quotedstr(Trim(OutNo.Text)));
|
||
sql.Add('GROUP BY C_Code,QtyUnit');
|
||
Open;
|
||
end;
|
||
FUnit := ADOQuery1.FieldByName('Unit').AsString;
|
||
|
||
//<2F><>ѯ<EFBFBD><D1AF>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
with ADOQuery2 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select B.C_Code,SUM(A.NetWeight) NetWeight,SUM(A.Meter) Meter,SUM(A.Yardage) Yardage,COUNT(A.StkID) Piece');
|
||
sql.Add('from Trade_Cloth_IO A left join Trade_Cloth_Stock B on B.StkId=A.StkId where A.IONO=' + Quotedstr(Trim(OutNo.Text)));
|
||
sql.Add('GROUP BY B.C_Code');
|
||
// ShowMessage(Sql.Text);
|
||
Open;
|
||
end;
|
||
|
||
if ADOQuery1.fieldbyname('Piece').AsFloat > 0 then
|
||
begin
|
||
if ADOQuery1.fieldbyname('Piece').AsFloat < ADOQuery2.fieldbyname('Piece').AsFloat then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɨ<EFBFBD><C9A8>ƥ<EFBFBD><C6A5><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
|
||
end;
|
||
|
||
if ADOQuery1.Fieldbyname('Qty').AsFloat > 0 then
|
||
begin
|
||
if FUnit = 'M' then
|
||
begin
|
||
if ADOQuery1.FieldByName('Qty').AsFloat < ADOQuery2.FieldByName('Meter').AsFloat then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뷢<EFBFBD><EBB7A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
end
|
||
else if FUnit = 'Y' then
|
||
begin
|
||
if ADOQuery1.FieldByName('Qty').AsFloat < ADOQuery2.FieldByName('Yardage').AsFloat then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뷢<EFBFBD><EBB7A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
end
|
||
else if FUnit = 'Kg' then
|
||
begin
|
||
if ADOQuery1.FieldByName('Qty').AsFloat < ADOQuery2.FieldByName('NetWeight').AsFloat then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>뷢<EFBFBD><EBB7A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('exec P_Trade_Cloth_DR @OutNo=' + Quotedstr(Trim(OutNo.Text)));
|
||
Open;
|
||
end;
|
||
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
|
||
begin
|
||
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
|
||
end;
|
||
|
||
PlayWav('<27><>ȷ');
|
||
Result := True;
|
||
except
|
||
Result := False;
|
||
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
// PlayWav('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
end;
|
||
|
||
end;
|
||
|
||
{$R *.dfm}
|
||
|
||
function TfrmTradeClothDROutEdit.JudgeSQD(): Boolean;
|
||
begin
|
||
Result := false;
|
||
try
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from Trade_Cloth_DR_Main A inner join Trade_Cloth_DR_Sub B on A.DRMID=B.DRMID where A.DRMID=''' + Trim(FSMStr) + '''');
|
||
Open;
|
||
end;
|
||
if ADOQueryTemp.IsEmpty then
|
||
raise Exception.Create('<27><><EFBFBD>뵥<EFBFBD><EBB5A5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD><CDA3><EFBFBD><EFBFBD>!');
|
||
|
||
if Trim(OutNo.Text) <> '' then
|
||
begin
|
||
FCKNO := Trim(OutNo.Text);
|
||
end;
|
||
OutNo.Text := Trim(FSMStr);
|
||
|
||
if FCRType = 'ת<><D7AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
if FZDMX <> FSidStr then
|
||
begin
|
||
InitCKGrid();
|
||
InitSQGrid();
|
||
end;
|
||
if Trim(DRSid.Text) <> '' then
|
||
begin
|
||
FZDMX := Trim(DRSid.Text);
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
if FSMStr <> FCKNO then
|
||
begin
|
||
InitCKGrid();
|
||
InitSQGrid();
|
||
end;
|
||
end;
|
||
|
||
Result := True;
|
||
except
|
||
Result := false;
|
||
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
|
||
// PlaySound('δɨ<CEB4><C9A8><EFBFBD><EFBFBD><EFBFBD>뵥<EFBFBD><EBB5A5>ͣ<EFBFBD><CDA3><EFBFBD><EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
inherited;
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.FormDestroy(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
frmTradeClothDROutEdit := nil;
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.FormShow(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
// edtScan.SetFocus;
|
||
ReadCxGrid('ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Tv4', Tv4, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
ReadCxGrid('ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Tv3', Tv3, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
CRTime.DateTime := SGetServerDate(ADOQueryTemp);
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.edtScanKeyPress(Sender: TObject; var Key: Char);
|
||
var
|
||
maxno, SMFlag, KYCKFlag, FMainId, ff: string;
|
||
FFQty: Integer;
|
||
begin
|
||
|
||
if Key = #13 then
|
||
begin
|
||
FSMStr := TRIM(edtScan.Text);
|
||
FSIDStr := TRIM(DRSid.Text);
|
||
if Copy(FSMStr, 1, 2) = 'DM' then
|
||
begin
|
||
if not JudgeSQD() then
|
||
exit;
|
||
end
|
||
else
|
||
begin
|
||
if Trim(edtIsSMTH.Text) = '' then
|
||
begin
|
||
if Copy(FSMStr, 1, 2) = 'BI' then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' select StkIdS=CAST((select distinct lTRIM(rTRIM(X.StkId)) + '','' ');
|
||
sql.Add(' from Trade_Cloth_Stock X where X.PacketId=' + quotedstr(FSMStr) + ' for xml path('''') ) AS NVARCHAR(MAX)) ');
|
||
Open;
|
||
end;
|
||
if SaveCKJTM(ADOQueryTemp.FieldByName('StkIdS').AsString) then
|
||
begin
|
||
PlayWav('<27><>ȷ');
|
||
end
|
||
else
|
||
exit;
|
||
end
|
||
else
|
||
begin
|
||
if SaveCKJTM(FSMStr) then
|
||
begin
|
||
PlayWav('<27><>ȷ');
|
||
end
|
||
else
|
||
exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
SaveCKJTMCX();
|
||
end;
|
||
|
||
InitSQGrid();
|
||
InitCKGrid();
|
||
end;
|
||
|
||
edtScan.Text := '';
|
||
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.Button2Click(Sender: TObject);
|
||
begin
|
||
WriteCxGrid('ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Tv4', Tv4, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
WriteCxGrid('ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Tv3', Tv3, '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
|
||
Close;
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.Button1Click(Sender: TObject);
|
||
var
|
||
MKey: Char;
|
||
begin
|
||
MKey := #13;
|
||
try
|
||
frmTradeDRSel := TfrmTradeDRSel.Create(self);
|
||
with frmTradeDRSel do
|
||
begin
|
||
if ShowModal = 1 then
|
||
begin
|
||
edtScan.Text := Trim(Order_Main.fieldbyname('DRMID').AsString);
|
||
DRSID.Text := Trim(Order_Sub.fieldbyname('DRSID').AsString);
|
||
// CRType.text := Trim(Order_Main.fieldbyname('OutType').AsString);
|
||
FCRType := Trim(Order_Main.fieldbyname('OutType').AsString);
|
||
// ShowMessage(edtScan.text);
|
||
edtScanKeyPress(edtScan, MKey);
|
||
end;
|
||
end;
|
||
finally
|
||
frmTradeDRSel.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.edtIsSMTHClick(Sender: TObject);
|
||
begin
|
||
if Trim(edtIsSMTH.Text) = '' then
|
||
edtIsSMTH.Text := '<27><>'
|
||
else
|
||
edtIsSMTH.Text := '';
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.btn1Click(Sender: TObject);
|
||
var
|
||
MKey: Char;
|
||
MStkIds: string;
|
||
begin
|
||
MKey := #13;
|
||
// CZZT := 'ѡ<><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
MStkIds := '';
|
||
// fcuowu := '1';
|
||
try
|
||
frmTradeKCListSel := TfrmTradeKCListSel.Create(Application);
|
||
with frmTradeKCListSel do
|
||
begin
|
||
// CustomerNoName.text := trim(Self.KHName.text);
|
||
if ShowModal = 1 then
|
||
begin
|
||
with frmTradeKCListSel.CDS_1 do
|
||
begin
|
||
First;
|
||
while CDS_1.Locate('SSel', True, []) = True do
|
||
begin
|
||
MStkIds := MStkIds + (Trim(CDS_1.FieldByName('StkId').AsString)) + ',';
|
||
CDS_1.Delete;
|
||
end;
|
||
|
||
end;
|
||
MStkIds := copy(MStkIds, 1, Length(MStkIds) - 1);
|
||
|
||
if SaveSelCKJTM(MStkIds) then
|
||
begin
|
||
PlayWav('<27><>ȷ');
|
||
end
|
||
else
|
||
exit;
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmTradeKCListSel.Free;
|
||
end;
|
||
InitCKGrid();
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.InitSQGrid();
|
||
begin
|
||
if FCRType = '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
if OutNo.Text <> '' then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('SELECT * FROM Trade_Cloth_DR_Sub B');
|
||
sql.Add('inner join Trade_Cloth_DR_Main A ON A.DRMID=B.DRMID ');
|
||
sql.Add('WHERE B.DRMID=''' + Trim(OutNo.Text) + '''');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, DS1);
|
||
SInitCDSData(ADOQueryTemp, DS1);
|
||
crtype.Text := Trim(ADOQueryTemp.FieldByName('OutType').AsString);
|
||
ToCoName.Text := Trim(ADOQueryTemp.FieldByName('ToCoName').AsString);
|
||
end;
|
||
end
|
||
else if FCRType = 'ת<><D7AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
if OutNo.Text <> '' then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('SELECT * FROM Trade_Cloth_DR_Sub B');
|
||
sql.Add('inner join Trade_Cloth_DR_Main A ON A.DRMID=B.DRMID ');
|
||
sql.Add('WHERE B.DRSID=''' + Trim(DRSID.Text) + '''');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, DS1);
|
||
SInitCDSData(ADOQueryTemp, DS1);
|
||
crtype.Text := Trim(ADOQueryTemp.FieldByName('OutType').AsString);
|
||
ToCoName.Text := Trim(ADOQueryTemp.FieldByName('ToCoName').AsString);
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeClothDROutEdit.InitCKGrid();
|
||
begin
|
||
if OutNo.Text <> '' then
|
||
begin
|
||
if FCRType = '<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * ');
|
||
sql.Add(' from Trade_Cloth_Stock A inner join Trade_Cloth_IO B on A.STKID=B.StkId ');
|
||
sql.Add(' where B.IONO=''' + Trim(OutNo.Text) + '''');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryTemp, CDS_MainSel);
|
||
SInitCDSData(ADOQueryTemp, CDS_MainSel);
|
||
end
|
||
else if FCRType = 'ת<><D7AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' then
|
||
begin
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * ');
|
||
sql.Add(' from Trade_Cloth_Stock_ZD A inner join Trade_Cloth_IO B on A.STKID=B.StkId ');
|
||
// sql.Add('left join Trade_Plan_Sub C on C.SubID=A.Subid');
|
||
sql.Add(' where A.DRSid=''' + Trim(DRSid.Text) + '''');
|
||
sql.Add(' and B.IONO=''' + Trim(OutNo.Text) + '''');
|
||
// showmessage(sql.text);
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQuery1, CDS_MainSel);
|
||
SInitCDSData(ADOQuery1, CDS_MainSel);
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
|
||
end.
|
||
|