632 lines
20 KiB
ObjectPascal
632 lines
20 KiB
ObjectPascal
unit U_TradeMarketDisScan;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
||
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
|
||
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
|
||
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
|
||
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
|
||
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
|
||
cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
|
||
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
|
||
System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
|
||
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
|
||
IdFTP, ShellAPI, MovePanel, RM_e_Xls, MMSystem, dxSkinBasic, 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, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
|
||
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
|
||
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
|
||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
|
||
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
|
||
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
|
||
dxSkinXmas2008Blue, dxScrollbarAnnotations, cxButtons;
|
||
|
||
type
|
||
TfrmTradeMarketDisScan = class(TfrmBaseInput)
|
||
ToolBar1: TToolBar;
|
||
TBSave: TToolButton;
|
||
TBClose: TToolButton;
|
||
GPM_1: TcxGridPopupMenu;
|
||
ToolButton3: TToolButton;
|
||
MovePanel2: TMovePanel;
|
||
Panel1: TPanel;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBTableView;
|
||
v1MJID: TcxGridDBColumn;
|
||
v1MJXH: TcxGridDBColumn;
|
||
v1P_Code: TcxGridDBColumn;
|
||
v1P_Color: TcxGridDBColumn;
|
||
v1RollNum: TcxGridDBColumn;
|
||
v1Qty: TcxGridDBColumn;
|
||
v1PHRollNum: TcxGridDBColumn;
|
||
v1PHQty: TcxGridDBColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
cxGrid2: TcxGrid;
|
||
TV2: TcxGridDBTableView;
|
||
V2Column2: TcxGridDBColumn;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
cxGridDBColumn5: TcxGridDBColumn;
|
||
cxGridDBColumn6: TcxGridDBColumn;
|
||
cxGridDBColumn2: TcxGridDBColumn;
|
||
cxGridDBColumn4: TcxGridDBColumn;
|
||
cxGridDBColumn3: TcxGridDBColumn;
|
||
V2Column1: TcxGridDBColumn;
|
||
cxGridDBColumn7: TcxGridDBColumn;
|
||
V2Column3: TcxGridDBColumn;
|
||
V2Column4: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
MovePanel1: TMovePanel;
|
||
Label2: TLabel;
|
||
Edit2: TcxTextEdit;
|
||
Label1: TLabel;
|
||
SmNO: TcxTextEdit;
|
||
Label15: TLabel;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
cxStyle2: TcxStyle;
|
||
cxStyle_gridRow: TcxStyle;
|
||
cxStyle_gridFoot: TcxStyle;
|
||
cxStyle_gridHead: TcxStyle;
|
||
cxStyle_gridGroupBox: TcxStyle;
|
||
cxStyle_yellow: TcxStyle;
|
||
cxStyle_Red: TcxStyle;
|
||
cxStyle_fontBlack: TcxStyle;
|
||
cxStyle_fontclFuchsia: TcxStyle;
|
||
cxStyle_fontclPurple: TcxStyle;
|
||
cxStyle_fontclGreen: TcxStyle;
|
||
cxStyle_fontclBlue: TcxStyle;
|
||
cxStyle_fontclTeal: TcxStyle;
|
||
cxStyle_fontclOlive: TcxStyle;
|
||
CDSOrder: TClientDataSet;
|
||
DataSource1: TDataSource;
|
||
ADOQueryTmp: TADOQuery;
|
||
ADOQueryPrint: TADOQuery;
|
||
ADOQueryMain: TADOQuery;
|
||
ADOQueryCmd: TADOQuery;
|
||
RMDB_Main: TRMDBDataSet;
|
||
ADOQuery1: TADOQuery;
|
||
CDSMJID: TClientDataSet;
|
||
DataSource2: TDataSource;
|
||
RMXLSExport2: TRMXLSExport;
|
||
RM1: TRMGridReport;
|
||
Tv1Column2: TcxGridDBColumn;
|
||
TV2Column1: TcxGridDBColumn;
|
||
<EFBFBD>ر<EFBFBD>: TcxButton;
|
||
cxButton1: TcxButton;
|
||
cxButtonEdit1: TcxButtonEdit;
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure CustomerNoNameBtnDnClick(Sender: TObject);
|
||
procedure TBRafreshClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
procedure SmNOKeyPress(Sender: TObject; var Key: Char);
|
||
procedure TBSaveClick(Sender: TObject);
|
||
procedure Button4Click(Sender: TObject);
|
||
procedure Button1Click(Sender: TObject);
|
||
procedure <EFBFBD>ر<EFBFBD>Click(Sender: TObject);
|
||
procedure cxButton1Click(Sender: TObject);
|
||
private
|
||
fCode, fColor, FPattern: string;
|
||
function SaveData(): Boolean;
|
||
procedure InitOrder();
|
||
procedure InitMJID();
|
||
procedure initGrid();
|
||
|
||
{ Private declarations }
|
||
public
|
||
FMainid: string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmTradeMarketDisScan: TfrmTradeMarketDisScan;
|
||
newh: hwnd;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload,
|
||
U_ClothInfoSel, U_TradeDispatchedSel;
|
||
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmTradeMarketDisScan.TBCloseClick(Sender: TObject);
|
||
begin
|
||
|
||
Close;
|
||
|
||
end;
|
||
|
||
function TfrmTradeMarketDisScan.SaveData(): Boolean;
|
||
var
|
||
phID: string;
|
||
P_ID: integer;
|
||
begin
|
||
|
||
Result := false;
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
P_ID := 1;
|
||
try
|
||
with CDSMJID do
|
||
begin
|
||
DisableControls;
|
||
first;
|
||
while not eof do
|
||
begin
|
||
if trim(CDSMJID.fieldbyname('SDefNote').AsString) = 'ɨ<><C9A8><EFBFBD>ɹ<EFBFBD>' then
|
||
begin
|
||
if GetLSNo(ADOQueryTmp, phID, 'PH', 'Trade_Market_Distribution', 4, 1) = False then
|
||
begin
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from Trade_Market_Distribution ');
|
||
sql.Add('where 1=2 ');
|
||
open;
|
||
end;
|
||
ADOQueryCmd.Append;
|
||
ADOQueryCmd.FieldByName('TMDID').Value := trim(phID);
|
||
ADOQueryCmd.FieldByName('TMMID').Value := trim(cdsmjid.fieldbyname('TMMID').AsString);
|
||
ADOQueryCmd.FieldByName('TMSID').Value := trim(cdsmjid.fieldbyname('TMSID').AsString);
|
||
ADOQueryCmd.FieldByName('STKID').Value := trim(cdsmjid.fieldbyname('STKID').AsString);
|
||
ADOQueryCmd.FieldByName('Filler').Value := trim(DName);
|
||
// ADOQueryCmd.FieldByName('PHYG').Value := trim(PHYG.Text);
|
||
ADOQueryCmd.FieldByName('TMDType').Value := 'ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
ADOQueryCmd.Post;
|
||
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from Trade_Cloth_Stock ');
|
||
sql.Add('where stkid=' + quotedstr(trim(CDSMJID.fieldbyname('stkid').AsString)));
|
||
open;
|
||
edit;
|
||
fieldbyname('DISstatus').Value := '1';
|
||
post;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from Trade_Market_Sub ');
|
||
sql.Add('where TMSID=' + quotedstr(trim(CDSMJID.fieldbyname('TMSID').AsString)));
|
||
open;
|
||
edit;
|
||
fieldbyname('substatus').Value := '2';
|
||
post;
|
||
end;
|
||
end;
|
||
next;
|
||
end;
|
||
first;
|
||
EnableControls;
|
||
end;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
Result := true;
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.SmNOKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
inherited;
|
||
if Key = #13 then
|
||
begin
|
||
MovePanel1.Visible := false;
|
||
if trim(smno.Text) = '' then
|
||
exit;
|
||
if uppercase(leftBstr(trim(smno.Text), 2)) = 'JM' then
|
||
begin
|
||
if not CDSMJID.IsEmpty then
|
||
begin
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>.wav'), 0, SND_ASYNC);
|
||
exit;
|
||
end;
|
||
inItorder();
|
||
end
|
||
else
|
||
begin
|
||
if CDSOrder.IsEmpty then
|
||
begin
|
||
MovePanel1.Visible := true;
|
||
Edit2.Text := SmNO.Text;
|
||
Label2.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>';
|
||
smno.Text := '';
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>.wav'), 0, SND_ASYNC);
|
||
exit;
|
||
end;
|
||
if not CDSMJID.Locate('CIID', trim(smNo.Text), []) then
|
||
begin
|
||
initMjid();
|
||
end
|
||
else
|
||
begin
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C>ظ<EFBFBD>ɨ<EFBFBD><C9A8>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C>ظ<EFBFBD>ɨ<EFBFBD><C9A8>.wav'), 0, SND_ASYNC);
|
||
end;
|
||
end;
|
||
smno.Text := '';
|
||
smno.SetFocus;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.TBRafreshClick(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
MovePanel2.Visible := True;
|
||
MovePanel2.Refresh;
|
||
initOrder();
|
||
MovePanel2.Visible := False;
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.TBSaveClick(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
if CDSOrder.IsEmpty then
|
||
exit;
|
||
if CDSMJID.IsEmpty then
|
||
exit;
|
||
|
||
try
|
||
if not SaveData() then
|
||
begin
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>.wav'), 0, SND_ASYNC);
|
||
exit;
|
||
end
|
||
else
|
||
begin
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>.wav'), 0, SND_ASYNC);
|
||
initGrid();
|
||
exit;
|
||
end;
|
||
except
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
begin
|
||
inherited;
|
||
var i: integer;
|
||
begin
|
||
i := tv2.GetColumnByFieldName('SDefNote').Index;
|
||
if (AViewInfo.GridRecord.Values[i] <> 'ɨ<><C9A8><EFBFBD>ɹ<EFBFBD>') then
|
||
ACanvas.Brush.Color := clred;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.<EFBFBD>ر<EFBFBD>Click(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
MovePanel1.Visible := False;
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.Button1Click(Sender: TObject);
|
||
var
|
||
key: Char;
|
||
begin
|
||
inherited;
|
||
key := #13;
|
||
frmTradeDispatchedSel := TfrmTradeDispatchedSel.create(self);
|
||
with frmTradeDispatchedSel do
|
||
begin
|
||
|
||
if showmodal = 1 then
|
||
begin
|
||
smno.Text := trim(Order_Main.FieldByName('TMMID').AsString);
|
||
|
||
SmNOKeyPress(smno, key);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.Button4Click(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
MovePanel1.Visible := False;
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.CustomerNoNameBtnDnClick(Sender: TObject);
|
||
begin
|
||
TBtnEditC(Sender).Text := '';
|
||
TBtnEditC(Sender).TxtCode := '';
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.cxButton1Click(Sender: TObject);
|
||
var
|
||
key: Char;
|
||
begin
|
||
inherited;
|
||
key := #13;
|
||
frmTradeDispatchedSel := TfrmTradeDispatchedSel.create(self);
|
||
with frmTradeDispatchedSel do
|
||
begin
|
||
|
||
if showmodal = 1 then
|
||
begin
|
||
smno.Text := trim(Order_Main.FieldByName('TMMID').AsString);
|
||
|
||
SmNOKeyPress(smno, key);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.InitOrder();
|
||
var
|
||
fP_No: string;
|
||
begin
|
||
MovePanel1.Visible := false;
|
||
CDSMJID.EmptyDataSet;
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.add(' select * ');
|
||
sql.Add(' ,PHRollNum=(select count(STKID) from Trade_Market_Distribution X where X.TMMID=A.TMMID and X.TMSID=B.TMSID),');
|
||
sql.Add(' PHQty=(select sum(STKMeter) from Trade_Market_Distribution X inner join Trade_Cloth_Stock XX on X.stkid=XX.stkid where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
|
||
sql.add(' from Trade_Market_Sub B');
|
||
sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
|
||
SQL.Add(' where A.TMMID=' + quotedstr(trim(SmNO.text)));
|
||
SQL.Add(' and isnull(B.substatus,''0'')<=''2'' ');
|
||
Open;
|
||
end;
|
||
if ADOQueryMain.IsEmpty then
|
||
begin
|
||
MovePanel1.Visible := true;
|
||
Edit2.text := SmNO.Text;
|
||
Label2.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>˻<EFBFBD><CBBB>ѷ<EFBFBD><D1B7><EFBFBD><EFBFBD><EFBFBD>';
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav'), 0, SND_ASYNC);
|
||
exit;
|
||
end
|
||
else
|
||
begin
|
||
SCreateCDS(ADOQueryMain, CDSOrder);
|
||
SInitCDSData(ADOQueryMain, CDSOrder);
|
||
with CDSOrder do
|
||
begin
|
||
DisableControls;
|
||
first;
|
||
while not eof do
|
||
begin
|
||
|
||
next;
|
||
end;
|
||
first;
|
||
EnableControls;
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.InitGrid();
|
||
begin
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.add(' select * ');
|
||
sql.Add(' ,PHRollNum=(select count(X.STKID) from Trade_Market_Distribution X where X.TMMID=A.TMMID and X.TMSID=B.TMSID),');
|
||
sql.Add(' PHQty=(select sum(STKMeter) from Trade_Market_Distribution X inner join Trade_Cloth_Stock XX on X.stkid=XX.stkid where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
|
||
sql.add(' from Trade_Market_Sub B');
|
||
sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
|
||
SQL.Add(' where 1=2 ');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryMain, CDSOrder);
|
||
SInitCDSData(ADOQueryMain, CDSOrder);
|
||
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select A.*,B.TMMID,TMSID,TMDID,cast(0 as int) as RollNum from Trade_Cloth_Stock A ');
|
||
SQL.Add('inner join Trade_Market_Distribution B on B.STKID=A.STKID ');
|
||
SQL.Add('where 1=2 ');
|
||
Open;
|
||
end;
|
||
SCreateCDS(ADOQueryMain, CDSMJID);
|
||
SInitCDSData(ADOQueryMain, CDSMJID);
|
||
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.FormShow(Sender: TObject);
|
||
begin
|
||
MovePanel1.Left := (Width - MovePanel1.Width) div 2;
|
||
MovePanel1.top := (Height - MovePanel1.Height - 200) div 2;
|
||
InitGrid();
|
||
end;
|
||
|
||
procedure TfrmTradeMarketDisScan.InitMJID();
|
||
var
|
||
fP_No: string;
|
||
i: integer;
|
||
begin
|
||
MovePanel1.Visible := false;
|
||
|
||
with ADOQueryTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select CIID from Trade_Cloth_Inspect A');
|
||
SQL.Add('where A.CIID=' + quotedstr(trim(SmNO.text)));
|
||
SQL.Add('and CIIOFlag=''δ<><CEB4><EFBFBD><EFBFBD>''');
|
||
Open;
|
||
if not IsEmpty then
|
||
begin
|
||
CDSMJID.Append;
|
||
CDSMJID.FieldByName('SDefNote').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>';
|
||
CDSMJID.FieldByName('CIID').Value := trim(SmNO.Text);
|
||
CDSMJID.Post;
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD><EFBFBD>.wav'), 0, SND_ASYNC);
|
||
Exit;
|
||
end;
|
||
end;
|
||
|
||
with ADOQueryTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select Stkid from Trade_Cloth_IO A');
|
||
SQL.Add('where A.stkid=' + quotedstr(trim(SmNO.text)));
|
||
SQL.Add('and IOFlag=''<27><><EFBFBD><EFBFBD>''');
|
||
Open;
|
||
if not IsEmpty then
|
||
begin
|
||
CDSMJID.Append;
|
||
CDSMJID.FieldByName('SDefNote').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѳ<EFBFBD><D1B3><EFBFBD>';
|
||
CDSMJID.FieldByName('Stkid').Value := trim(SmNO.Text);
|
||
CDSMJID.Post;
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѳ<EFBFBD><D1B3><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѳ<EFBFBD><D1B3><EFBFBD>.wav'), 0, SND_ASYNC);
|
||
Exit;
|
||
end;
|
||
end;
|
||
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select A.* from Trade_Market_Distribution A');
|
||
SQL.Add('where A.STKID=' + quotedstr(trim(SmNO.text)));
|
||
// ShowMessage(sql.Text);
|
||
Open;
|
||
end;
|
||
if ADOQueryMain.IsEmpty = false then
|
||
begin
|
||
CDSMJID.Append;
|
||
CDSMJID.FieldByName('SDefNote').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
CDSMJID.FieldByName('CIID').Value := trim(SmNO.Text);
|
||
CDSMJID.Post;
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav'), 0, SND_ASYNC);
|
||
exit;
|
||
end;
|
||
|
||
with ADOQueryMain do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select A.* from Trade_Cloth_Stock A');
|
||
sql.add('left join Trade_Cloth_IO B on B.stkid=A.stkid and B.IOFlag=''<27><><EFBFBD><EFBFBD>'' ');
|
||
SQL.Add('where A.CIID=' + quotedstr(trim(SmNO.text)));
|
||
sql.Add('and isnull(A.DisStatus,''0'')=''0'' ');
|
||
sql.Add('and StkExists=1 ');
|
||
// ShowMessage(sql.Text);
|
||
Open;
|
||
end;
|
||
if ADOQueryMain.IsEmpty then
|
||
begin
|
||
CDSMJID.Append;
|
||
CDSMJID.FieldByName('SDefNote').Value := '<27><><EFBFBD><EFBFBD><EFBFBD>벻<EFBFBD><EBB2BB><EFBFBD>ڻ<EFBFBD><DABB>ѳ<EFBFBD><D1B3><EFBFBD>';
|
||
CDSMJID.FieldByName('CIID').Value := trim(SmNO.Text);
|
||
CDSMJID.Post;
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\ɨ<><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav'), 0, SND_ASYNC);
|
||
exit;
|
||
end;
|
||
with ADOQueryTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select A.STKID,B.TMMID,B.TMSID from Trade_Cloth_Stock A');
|
||
sql.Add('inner join Trade_Market_Sub B on isnull(B.C_Name,'''')=isnull(A.C_Name,'''') and isnull(B.C_Pattern,'''')= isnull(A.C_Pattern,'''') ');
|
||
SQL.Add('where A.STKID=' + quotedstr(trim(SmNO.text)));
|
||
SQL.Add('and B.TMMID=' + quotedstr(trim(CDSOrder.Fieldbyname('TMMID').AsString)));
|
||
// SQL.ADD('and isnull(B.PRTKZ,'''')<>'''' ');
|
||
Open;
|
||
end;
|
||
|
||
if ADOQueryTmp.IsEmpty then
|
||
begin
|
||
CDSMJID.Append;
|
||
CDSMJID.FieldByName('SDefNote').Value := '<27><>Ʒ<EFBFBD><C6B7><EFBFBD>ƺͻ<C6BA><CDBB>Ͳ<EFBFBD><CDB2><EFBFBD>Ӧ';
|
||
CDSMJID.FieldByName('STKID').Value := trim(SmNO.Text);
|
||
CDSMJID.Post;
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\Ʒ<><C6B7><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>Ӧ.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\Ʒ<><C6B7><EFBFBD><EFBFBD>ɫ<EFBFBD><C9AB><EFBFBD><EFBFBD>Ӧ.wav'), 0, SND_ASYNC);
|
||
exit;
|
||
end;
|
||
i := 0;
|
||
while not ADOQueryTmp.eof do
|
||
begin
|
||
if CDSOrder.Locate('TMSID', trim(ADOQueryTmp.fieldbyname('TMSID').AsString), []) then
|
||
begin
|
||
if (CDSOrder.fieldbyName('TMSPiece').AsInteger = CDSOrder.FieldByName('PHRollNum').AsInteger) and (CDSOrder.fieldbyName('TMSPiece').AsInteger > 0) then
|
||
begin
|
||
end
|
||
else
|
||
begin
|
||
i := 1;
|
||
CDSMJID.Append;
|
||
CDSMJID.FieldByName('SDefNote').Value := 'ɨ<><C9A8><EFBFBD>ɹ<EFBFBD>';
|
||
CDSMJID.FieldByName('CIID').Value := trim(ADOQueryMain.Fieldbyname('CIID').AsString);
|
||
CDSMJID.FieldByName('stkid').Value := trim(ADOQueryMain.Fieldbyname('stkid').AsString);
|
||
CDSMJID.FieldByName('C_Name').Value := trim(ADOQueryMain.Fieldbyname('C_Name').AsString);
|
||
CDSMJID.FieldByName('C_Color').Value := trim(ADOQueryMain.Fieldbyname('C_Color').AsString);
|
||
CDSMJID.FieldByName('Grade').Value := trim(ADOQueryMain.Fieldbyname('Grade').AsString);
|
||
CDSMJID.FieldByName('RollNum').Value := 1;
|
||
CDSMJID.FieldByName('stkmeter').Value := ADOQueryMain.Fieldbyname('stkmeter').AsFloat;
|
||
CDSMJID.FieldByName('TMMID').Value := trim(ADOQueryTmp.Fieldbyname('TMMID').AsString);
|
||
CDSMJID.FieldByName('TMSID').Value := trim(ADOQueryTmp.Fieldbyname('TMSID').AsString);
|
||
CDSMJID.FieldByName('C_Width').Value := ADOQueryMain.Fieldbyname('C_Width').AsString;
|
||
CDSMJID.FieldByName('C_GramWeight').Value := ADOQueryMain.Fieldbyname('C_GramWeight').AsString;
|
||
// CDSMJID.FieldByName('conNo').Value:=trim(ADOQueryMain.Fieldbyname('conNo').AsString);
|
||
CDSMJID.Post;
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><>ȷ.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><>ȷ.wav'), 0, SND_ASYNC);
|
||
CDSOrder.Edit;
|
||
CDSOrder.fieldbyName('PHRollNum').Value := CDSOrder.fieldbyName('PHRollNum').AsInteger + 1;
|
||
CDSOrder.fieldbyName('PHQty').Value := CDSOrder.fieldbyName('PHQty').AsFloat + ADOQueryMain.Fieldbyname('stkmeter').AsFloat;
|
||
CDSOrder.Post;
|
||
if tv1.DataController.Summary.FooterSummaryValues[0] <> 0 then
|
||
begin
|
||
if tv1.DataController.Summary.FooterSummaryValues[0] = tv2.DataController.Summary.FooterSummaryValues[0] then
|
||
begin
|
||
TBSave.Click;
|
||
exit;
|
||
end;
|
||
end;
|
||
exit;
|
||
end;
|
||
end;
|
||
ADOQueryTmp.Next;
|
||
end;
|
||
|
||
if i = 0 then
|
||
begin
|
||
if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>ƥ<EFBFBD><C6A5>.wav')) then
|
||
PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\<5C><><EFBFBD><EFBFBD><EFBFBD>µ<EFBFBD>ƥ<EFBFBD><C6A5>.wav'), 0, SND_ASYNC);
|
||
|
||
end;
|
||
end;
|
||
|
||
end.
|
||
|