Group_02/D10gmBitao
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
574f95ffd7
D10gmBitao/T04贸易明细仓库/U_TradeClothDROutEdit.pas

667 lines
18 KiB
ObjectPascal
Raw Normal View History

12345
2025-04-11 10:54:54 +08:00
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,
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;
Button2: TButton;
cxStyleRepository1: TcxStyleRepository;
cxStyle1: TcxStyle;
Label12: TLabel;
CDS_Main: TClientDataSet;
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;
VC_MJXH: TcxGridDBColumn;
v3Column1: TcxGridDBColumn;
v3Column2: TcxGridDBColumn;
cv3Column4: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGrid1: TcxGrid;
TV4: TcxGridDBTableView;
cCXCONNO: TcxGridDBColumn;
cCXCOLOR: TcxGridDBColumn;
VC_SQQTY: TcxGridDBColumn;
cCXFHPS: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
TV4Column1: TcxGridDBColumn;
Tv3Column1: TcxGridDBColumn;
TV4Column2: TcxGridDBColumn;
TV4Column3: TcxGridDBColumn;
OutNo: TEdit;
GPM_2: TcxGridPopupMenu;
TV4Column5: TcxGridDBColumn;
Tv3Column4: TcxGridDBColumn;
Tv3Column2: TcxGridDBColumn;
Tv3Column3: TcxGridDBColumn;
Label1: TLabel;
Button3: TButton;
111
2025-06-23 16:22:39 +08:00
btn2: TButton;
ToCoName: TBtnEditC;
CRType: TComboBox;
lbl1: TLabel;
CPName: TBtnEditC;
cxgrdbclmnTv3Column5: TcxGridDBColumn;
lbl2: TLabel;
Note: TEdit;
lbl3: TLabel;
KHConNo: TBtnEditC;
lbl4: TLabel;
C_Material_Name: TBtnEditC;
12345
2025-04-11 10:54:54 +08:00
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);
procedure Button3Click(Sender: TObject);
111
2025-06-23 16:22:39 +08:00
procedure ToCoNameBtnDnClick(Sender: TObject);
procedure ToCoNameBtnUpClick(Sender: TObject);
procedure CPNameBtnUpClick(Sender: TObject);
procedure CPNameBtnDnClick(Sender: TObject);
procedure KHConNoBtnDnClick(Sender: TObject);
procedure KHConNoBtnUpClick(Sender: TObject);
procedure C_Material_NameBtnDnClick(Sender: TObject);
12345
2025-04-11 10:54:54 +08:00
private
{ Private declarations }
FCKNO, FSMStr, JXFlag, CZZT, fcuowu: string;
procedure InitCKGrid();
procedure InitSQGrid();
procedure PlayWav(MWav: string);
function JudgeSQD(): Boolean;
111
2025-06-23 16:22:39 +08:00
function SaveCKJTM(MStkIds: string): Boolean; //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
12345
2025-04-11 10:54:54 +08:00
procedure SaveCKJTMCX(); //<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
public
{ Public declarations }
end;
var
frmTradeClothDROutEdit: TfrmTradeClothDROutEdit;
implementation
uses
U_DataLink, U_RTFun, MMSystem, U_TradeDRSel, U_TradeClothStkList_Sel,
111
2025-06-23 16:22:39 +08:00
U_LabelPrint, U_CompanySel, U_ClothInfoSel, U_TradePlanSel;
12345
2025-04-11 10:54:54 +08:00
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.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.SaveCKJTM(MStkIds: string): Boolean;
begin
try
if Trim(OutNo.Text) = '' then
begin
PlayWav('<27><><EFBFBD>ⵥ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>');
raise Exception.Create('<27><><EFBFBD>ⵥ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>!');
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select A.* from Trade_Cloth_Inspect A ');
sql.Add(' where A.CIID=''' + Trim(MStkIds) + '''');
Open;
end;
if ADOQueryTemp.IsEmpty then
begin
PlayWav('δ<><CEB4><EFBFBD><EFBFBD>');
edtScan.text := '';
raise Exception.Create('δ<><CEB4><EFBFBD><EFBFBD>');
end;
if Trim(CRType.text) = '<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>' then
begin
if Trim(ADOQueryTemp.fieldbyname('grade').AsString) <> '<27><>Ʒ' then
begin
PlayWav('<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>ֻ<EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD><EFBFBD><EFBFBD>Ʒ');
edtScan.text := '';
raise Exception.Create('<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>ֻ<EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD><EFBFBD><EFBFBD>Ʒ');
end;
end;
if Trim(CRType.text) = '<27><><EFBFBD>ϳ<EFBFBD><CFB3><EFBFBD>' then
begin
if Trim(ADOQueryTemp.fieldbyname('grade').AsString) <> '<27><><EFBFBD><EFBFBD>' then
begin
PlayWav('<27><><EFBFBD>ϳ<EFBFBD><CFB3><EFBFBD>ֻ<EFBFBD>ܳ<EFBFBD><DCB3>ⱨ<EFBFBD><E2B1A8>');
edtScan.text := '';
raise Exception.Create('<27><><EFBFBD>ϳ<EFBFBD><CFB3><EFBFBD>ֻ<EFBFBD>ܳ<EFBFBD><DCB3>ⱨ<EFBFBD><E2B1A8>');
end;
end;
if Trim(ADOQueryTemp.fieldbyname('CIIOFlag').AsString) = 'δ<><CEB4><EFBFBD><EFBFBD>' then
begin
PlayWav('δ<><CEB4><EFBFBD><EFBFBD>');
edtScan.text := '';
raise Exception.Create('δ<><CEB4><EFBFBD><EFBFBD>');
end;
if Trim(ADOQueryTemp.fieldbyname('CIIOFlag').AsString) = '<27>ѳ<EFBFBD><D1B3><EFBFBD>' then
begin
PlayWav('<27>ѳ<EFBFBD><D1B3><EFBFBD>');
edtScan.text := '';
raise Exception.Create('<27>ѳ<EFBFBD><D1B3><EFBFBD>');
end;
111
2025-06-23 16:22:39 +08:00
// with ADOQueryTemp do
// begin
// Close;
// sql.Clear;
// sql.Add(' select * from Trade_Cloth_DR_Sub A INNER JOIN Trade_Cloth_Stock B on A.C_Name = B.C_Name and isnull(A.C_Width,'''')=isnull(B.C_Width,'''') and isnull(A.C_GramWeight,'''') = isnull(B.C_GramWeight,'''') ');
// sql.Add(' where B.StkExists=1 and B.CIID=''' + Trim(MStkIds) + '''');
// sql.Add(' and A.DRMID=''' + Trim(OutNo.Text) + '''');
// Open;
// end;
//
// if ADOQueryTemp.IsEmpty then
// begin
// PlayWav('<27><>Ʒ<EFBFBD><C6B7>һ<EFBFBD><D2BB>');
// edtScan.text := '';
// raise Exception.Create('<27><>Ʒ<EFBFBD><C6B7>һ<EFBFBD><D2BB>');
// end;
// if ADOQueryTemp.fieldbyname('DlyPiece').asfloat >= ADOQueryTemp.fieldbyname('Piece').asfloat then
// begin
// PlayWav('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
// edtScan.text := '';
// raise Exception.Create('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
// end;
12345
2025-04-11 10:54:54 +08:00
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)));
111
2025-06-23 16:22:39 +08:00
Sql.Add(',@IOType=' + Quotedstr(CRType.Text));
12345
2025-04-11 10:54:54 +08:00
Sql.Add(',@IONO=' + Quotedstr(OutNo.Text));
Sql.Add(',@FillId=' + Quotedstr(DCode));
Sql.Add(',@Filler=' + Quotedstr(DName));
111
2025-06-23 16:22:39 +08:00
Sql.Add(',@cpName=' + Quotedstr(trim(CPName.Text)));
Sql.Add(',@ToCoNo=' + Quotedstr(trim(ToCoName.TxtCode)));
Sql.Add(',@ToCoName=' + Quotedstr(trim(ToCoName.Text)));
Sql.Add(',@KHConNo=' + Quotedstr(trim(KHConNo.Text)));
Sql.Add(',@C_Material_Name=' + Quotedstr(trim(C_Material_Name.Text)));
Sql.Add(',@Note=' + Quotedstr(trim(Note.Text)));
12345
2025-04-11 10:54:54 +08:00
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;
111
2025-06-23 16:22:39 +08:00
// 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;
12345
2025-04-11 10:54:54 +08:00
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 FSMStr <> FCKNO then
begin
InitCKGrid();
InitSQGrid();
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;
111
2025-06-23 16:22:39 +08:00
procedure TfrmTradeClothDROutEdit.KHConNoBtnDnClick(Sender: TObject);
begin
KHConNo.Text := '';
end;
procedure TfrmTradeClothDROutEdit.KHConNoBtnUpClick(Sender: TObject);
begin
try
frmTradePlanSel := TfrmTradePlanSel.Create(Application);
with frmTradePlanSel do
begin
if ShowModal = 1 then
begin
if KHConNo.Text = '' then
begin
Self.KHConNo.Text := frmTradePlanSel.CDS_1.fieldbyname('KHConNo').AsString;
end;
if C_Material_Name.Text = '' then
begin
Self.C_Material_Name.Text := frmTradePlanSel.CDS_1.fieldbyname('C_Material_Name').AsString;
end;
end;
end;
finally
frmTradePlanSel.Free;
end;
end;
12345
2025-04-11 10:54:54 +08:00
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
if edtScan.Text = '' then
Exit;
FSMStr := TRIM(edtScan.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)) ');
//showmessage(sql.Text);
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.Button3Click(Sender: TObject);
begin
if Trim(OutNo.Text) = '' then
Exit;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'TradeOutPrint';
FFiltration1 := Trim(Self.OutNo.Text);
if ShowModal = 1 then
begin
end;
end;
finally
frmLabelPrint.Free;
end;
end;
111
2025-06-23 16:22:39 +08:00
procedure TfrmTradeClothDROutEdit.CPNameBtnDnClick(Sender: TObject);
begin
CPName.Text := '';
end;
procedure TfrmTradeClothDROutEdit.CPNameBtnUpClick(Sender: TObject);
12345
2025-04-11 10:54:54 +08:00
begin
try
111
2025-06-23 16:22:39 +08:00
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
12345
2025-04-11 10:54:54 +08:00
begin
if ShowModal = 1 then
begin
111
2025-06-23 16:22:39 +08:00
Self.CPName.Text := frmClothInfoSel.CDS_1.fieldbyname('C_Name').AsString;
12345
2025-04-11 10:54:54 +08:00
end;
end;
finally
111
2025-06-23 16:22:39 +08:00
frmClothInfoSel.Free;
12345
2025-04-11 10:54:54 +08:00
end;
end;
111
2025-06-23 16:22:39 +08:00
procedure TfrmTradeClothDROutEdit.C_Material_NameBtnDnClick(Sender: TObject);
begin
C_Material_Name.Text := '';
end;
procedure TfrmTradeClothDROutEdit.ToCoNameBtnDnClick(Sender: TObject);
begin
ToCoName.Text := '';
end;
procedure TfrmTradeClothDROutEdit.ToCoNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '<27>ͻ<EFBFBD>';
if ShowModal = 1 then
begin
self.ToCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.ToCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmTradeClothDROutEdit.Button1Click(Sender: TObject);
var
MKey: Char;
MaxMId: string;
begin
MKey := #13;
if OutNo.Text <> '' then
begin
if Application.MessageBox('ȷ<><C8B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
end;
if GetLSNo(ADOQueryTemp, MaxMId, 'DM', 'Trade_Cloth_DR_Main', 4, 2) = False then
raise Exception.Create('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>');
OutNo.Text := MaxMId;
end;
12345
2025-04-11 10:54:54 +08:00
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;
111
2025-06-23 16:22:39 +08:00
i: Integer;
12345
2025-04-11 10:54:54 +08:00
begin
MKey := #13;
CZZT := 'ѡ<><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
fcuowu := '1';
111
2025-06-23 16:22:39 +08:00
if OutNo.Text = '' then
raise Exception.Create('<27><><EFBFBD><EFBFBD>ȡ<EFBFBD>ţ<EFBFBD>');
if ToCoName.Text = '' then
raise Exception.Create('<27><>ѡ<EFBFBD><D1A1><EFBFBD>ͻ<EFBFBD><CDBB><EFBFBD>');
if CRType.Text = '' then
raise Exception.Create('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD>');
if CPName.Text = '' then
raise Exception.Create('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD>ƣ<EFBFBD>');
12345
2025-04-11 10:54:54 +08:00
try
frmTradeClothStkList_Sel := TfrmTradeClothStkList_Sel.Create(Application);
with frmTradeClothStkList_Sel do
begin
// CustomerNoName.text := trim(Self.KHName.text);
if ShowModal = 1 then
begin
with frmTradeClothStkList_Sel.CDS_1 do
begin
111
2025-06-23 16:22:39 +08:00
for i := 0 to frmTradeClothStkList_Sel.MyStringList.Count - 1 do
12345
2025-04-11 10:54:54 +08:00
begin
111
2025-06-23 16:22:39 +08:00
Self.edtScan.Text := MyStringList[i];
edtScanKeyPress(Self.edtScan, MKey);
if fcuowu = '<27><><EFBFBD><EFBFBD>' then
12345
2025-04-11 10:54:54 +08:00
begin
111
2025-06-23 16:22:39 +08:00
Break;
12345
2025-04-11 10:54:54 +08:00
end;
111
2025-06-23 16:22:39 +08:00
Sleep(200);
12345
2025-04-11 10:54:54 +08:00
end;
end;
end;
end;
finally
frmTradeClothStkList_Sel.Free;
end;
InitCKGrid();
end;
procedure TfrmTradeClothDROutEdit.InitSQGrid();
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);
111
2025-06-23 16:22:39 +08:00
//crtype.Text := Trim(ADOQueryTemp.FieldByName('OutType').AsString);
//ToCoName.Text := Trim(ADOQueryTemp.FieldByName('ToCoName').AsString);
12345
2025-04-11 10:54:54 +08:00
end;
end;
procedure TfrmTradeClothDROutEdit.InitCKGrid();
begin
if OutNo.Text <> '' 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) + '''');
sql.Add(' order by Filltime desc ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_MainSel);
SInitCDSData(ADOQueryTemp, CDS_MainSel);
end;
end;
end.
Reference in New Issue Copy Permalink