1850 lines
51 KiB
ObjectPascal
1850 lines
51 KiB
ObjectPascal
unit U_OrderInPutZP;
|
||
|
||
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, cxGridBandedTableView,
|
||
cxGridDBBandedTableView, Menus, RM_Common, RM_Class, RM_e_Xls,
|
||
RM_GridReport, RM_System, RM_Dataset;
|
||
|
||
type
|
||
TfrmOrderInPutZP = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBSave: TToolButton;
|
||
TBClose: TToolButton;
|
||
ScrollBox1: TScrollBox;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
OrderNo: TEdit;
|
||
OrderDate: TDateTimePicker;
|
||
Label5: TLabel;
|
||
Label6: TLabel;
|
||
Label8: TLabel;
|
||
ADOTemp: TADOQuery;
|
||
ADOCmd: TADOQuery;
|
||
DataSourceZ: TDataSource;
|
||
Order_SubZ: TClientDataSet;
|
||
DataSource2: TDataSource;
|
||
ADOZDY: TADOQuery;
|
||
CDS_ZDY: TClientDataSet;
|
||
WFBCodeName: TcxButtonEdit;
|
||
SCXName: TcxButtonEdit;
|
||
WJGName: TcxButtonEdit;
|
||
ADOQuery1: TADOQuery;
|
||
Label12: TLabel;
|
||
CustomNoName: TcxButtonEdit;
|
||
Note: TRichEdit;
|
||
Label13: TLabel;
|
||
ArrivalPortName: TcxButtonEdit;
|
||
Label10: TLabel;
|
||
WFBHW: TEdit;
|
||
Label14: TLabel;
|
||
WFBFK: TEdit;
|
||
Label15: TLabel;
|
||
Label16: TLabel;
|
||
OrdQty: TEdit;
|
||
OrdUnit: TComboBox;
|
||
Label17: TLabel;
|
||
OrdPrice: TEdit;
|
||
Label19: TLabel;
|
||
Label20: TLabel;
|
||
Label21: TLabel;
|
||
ETADate: TDateTimePicker;
|
||
Label22: TLabel;
|
||
ETDDate: TDateTimePicker;
|
||
Label23: TLabel;
|
||
ZGDate: TDateTimePicker;
|
||
Label24: TLabel;
|
||
BegRKDate: TDateTimePicker;
|
||
Label25: TLabel;
|
||
BegSCDate: TDateTimePicker;
|
||
Day1: TEdit;
|
||
Label26: TLabel;
|
||
Label27: TLabel;
|
||
Label28: TLabel;
|
||
Day2: TEdit;
|
||
Label29: TLabel;
|
||
Label30: TLabel;
|
||
Label31: TLabel;
|
||
Day3: TEdit;
|
||
Label18: TLabel;
|
||
Label32: TLabel;
|
||
Label33: TLabel;
|
||
Label34: TLabel;
|
||
MJKZX: TEdit;
|
||
Label35: TLabel;
|
||
Label36: TLabel;
|
||
MJKZD: TEdit;
|
||
Label37: TLabel;
|
||
XJKZX: TEdit;
|
||
Label38: TLabel;
|
||
Label39: TLabel;
|
||
XJKZD: TEdit;
|
||
Label4: TLabel;
|
||
Label7: TLabel;
|
||
cxGrid4: TcxGrid;
|
||
TVDB: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
cxGridLevel3: TcxGridLevel;
|
||
VDBColumn1: TcxGridDBColumn;
|
||
VDBColumn2: TcxGridDBColumn;
|
||
PopupMenu1: TPopupMenu;
|
||
N1: TMenuItem;
|
||
N2: TMenuItem;
|
||
DataSource3: TDataSource;
|
||
CDS_DB: TClientDataSet;
|
||
Order_SubF: TClientDataSet;
|
||
DataSourceF: TDataSource;
|
||
Order_SubQ: TClientDataSet;
|
||
DataSourceQ: TDataSource;
|
||
ScrollBox2: TScrollBox;
|
||
cxGrid3: TcxGrid;
|
||
Tv3: TcxGridDBBandedTableView;
|
||
v3Column1: TcxGridDBBandedColumn;
|
||
v3Column2: TcxGridDBBandedColumn;
|
||
v3Column3: TcxGridDBBandedColumn;
|
||
v3Column4: TcxGridDBBandedColumn;
|
||
v3Column5: TcxGridDBBandedColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
cxGrid2: TcxGrid;
|
||
Tv2: TcxGridDBBandedTableView;
|
||
v2Column1: TcxGridDBBandedColumn;
|
||
v2Column2: TcxGridDBBandedColumn;
|
||
v2Column3: TcxGridDBBandedColumn;
|
||
v2Column4: TcxGridDBBandedColumn;
|
||
v2Column5: TcxGridDBBandedColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
cxGrid1: TcxGrid;
|
||
Tv1: TcxGridDBBandedTableView;
|
||
v1Column1: TcxGridDBBandedColumn;
|
||
v1Column2: TcxGridDBBandedColumn;
|
||
v1Column3: TcxGridDBBandedColumn;
|
||
v1Column4: TcxGridDBBandedColumn;
|
||
v1Column5: TcxGridDBBandedColumn;
|
||
v1Column6: TcxGridDBBandedColumn;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
ToolBar2: TToolBar;
|
||
ToolButton1: TToolButton;
|
||
ToolButton2: TToolButton;
|
||
TBPrint: TToolButton;
|
||
v1Column7: TcxGridDBBandedColumn;
|
||
v2Column6: TcxGridDBBandedColumn;
|
||
v3Column6: TcxGridDBBandedColumn;
|
||
v1Column8: TcxGridDBBandedColumn;
|
||
v2Column7: TcxGridDBBandedColumn;
|
||
v3Column7: TcxGridDBBandedColumn;
|
||
v1Column9: TcxGridDBBandedColumn;
|
||
v2Column8: TcxGridDBBandedColumn;
|
||
v3Column8: TcxGridDBBandedColumn;
|
||
ADOQueryQG: TADOQuery;
|
||
RMDB_Main: TRMDBDataSet;
|
||
RM2: TRMGridReport;
|
||
RMXLSExport1: TRMXLSExport;
|
||
Label40: TLabel;
|
||
WFBBZQty1: TEdit;
|
||
WFBBZUnit1: TcxButtonEdit;
|
||
Label41: TLabel;
|
||
WFBBZQty2: TEdit;
|
||
WFBBZUnit2: TcxButtonEdit;
|
||
Label42: TLabel;
|
||
WFBBZQty3: TEdit;
|
||
WFBBZUnit3: TcxButtonEdit;
|
||
Label43: TLabel;
|
||
Label44: TLabel;
|
||
WFBFK2: TEdit;
|
||
WFBFK1: TEdit;
|
||
Label45: TLabel;
|
||
Label9: TLabel;
|
||
Label11: TLabel;
|
||
WFBKZ: TEdit;
|
||
BZ: TcxButtonEdit;
|
||
Label46: TLabel;
|
||
PanZDY: TPanel;
|
||
CXGridZDY: TcxGrid;
|
||
TVZDY: TcxGridDBTableView;
|
||
VHelpZDYName: TcxGridDBColumn;
|
||
CXGridZDYLevel1: TcxGridLevel;
|
||
Button1: TButton;
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
procedure Button1Click(Sender: TObject);
|
||
procedure WFBCodeNameKeyDown(Sender: TObject; var Key: Word;
|
||
Shift: TShiftState);
|
||
procedure TVZDYKeyPress(Sender: TObject; var Key: Char);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBSaveClick(Sender: TObject);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure CustomNoNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure CustomNoNamePropertiesChange(Sender: TObject);
|
||
procedure ArrivalPortNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure SCXNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure WJGNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure WFBCodeNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure WFBCodeNamePropertiesChange(Sender: TObject);
|
||
procedure ArrivalPortNamePropertiesChange(Sender: TObject);
|
||
procedure SCXNamePropertiesChange(Sender: TObject);
|
||
procedure WJGNamePropertiesChange(Sender: TObject);
|
||
procedure N1Click(Sender: TObject);
|
||
procedure N2Click(Sender: TObject);
|
||
procedure Day1Change(Sender: TObject);
|
||
procedure OrdQtyKeyPress(Sender: TObject; var Key: Char);
|
||
procedure Day2Change(Sender: TObject);
|
||
procedure Day3Change(Sender: TObject);
|
||
procedure ETADateChange(Sender: TObject);
|
||
procedure BegRKDateChange(Sender: TObject);
|
||
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
procedure Tv3MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
procedure v1Column2PropertiesEditValueChanged(Sender: TObject);
|
||
procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
|
||
procedure v2Column2PropertiesEditValueChanged(Sender: TObject);
|
||
procedure OrdQtyChange(Sender: TObject);
|
||
procedure v3Column4PropertiesEditValueChanged(Sender: TObject);
|
||
procedure TBPrintClick(Sender: TObject);
|
||
procedure v1Column1PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure v2Column1PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure v3Column1PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure WFBBZUnit1PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure WFBBZUnit2PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure WFBBZUnit3PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure WFBBZUnit1PropertiesChange(Sender: TObject);
|
||
procedure WFBBZUnit2PropertiesChange(Sender: TObject);
|
||
procedure WFBBZUnit3PropertiesChange(Sender: TObject);
|
||
procedure BZPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure BZPropertiesChange(Sender: TObject);
|
||
procedure WFBBZQty1Change(Sender: TObject);
|
||
private
|
||
MInt:Integer;
|
||
procedure InitData();
|
||
procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||
function SaveData():Boolean;
|
||
procedure DelOrderSub(FOrder_Sub:TClientDataSet);
|
||
procedure SELYCL(SCDS_Sub:TClientDataSet);
|
||
procedure EditYCL(SCDS_Sub:TClientDataSet);
|
||
{ Private declarations }
|
||
public
|
||
PState,BState:Integer;
|
||
FMainId:String;
|
||
FXS:Integer;
|
||
OrderType:String;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmOrderInPutZP: TfrmOrderInPutZP;
|
||
|
||
implementation
|
||
uses
|
||
U_DataLink,U_ZDYHelp,U_Fun,U_GetPGJBInList;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmOrderInPutZP.TBCloseClick(Sender: TObject);
|
||
begin
|
||
if PState<>3 then
|
||
begin
|
||
if Application.MessageBox('<27>Ƿ<EFBFBD>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>','<27><>ʾ',32+4)=IDYES then
|
||
begin
|
||
TBSave.Click;
|
||
Exit;
|
||
end;
|
||
end;
|
||
Close;
|
||
WriteCxBandedGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',Tv1,'<27>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
|
||
WriteCxBandedGrid('<27><><EFBFBD>ϸ<EFBFBD>',Tv2,'<27>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
|
||
WriteCxBandedGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',Tv3,'<27>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
|
||
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.InitData();
|
||
var
|
||
i:Integer;
|
||
begin
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' exec P_WFBOrder_List :begdate,:endate,:MainId');
|
||
if PState>0 then
|
||
begin
|
||
ADOQuery1.Parameters.ParamByName('MainId').Value:=Trim(FMainId);
|
||
ADOQuery1.Parameters.ParamByName('begdate').Value:='';
|
||
ADOQuery1.Parameters.ParamByName('endate').Value:='';
|
||
end;
|
||
if PState=0 then
|
||
begin
|
||
ADOQuery1.Parameters.ParamByName('MainId').Value:='999999';
|
||
ADOQuery1.Parameters.ParamByName('begdate').Value:='';
|
||
ADOQuery1.Parameters.ParamByName('endate').Value:='';
|
||
end;
|
||
Open;
|
||
end;
|
||
// SCreateCDS20(ADOQuery1,Order_Sub);
|
||
//SInitCDSData20(ADOQuery1,Order_Sub);
|
||
SCSHData(ADOQuery1,ScrollBox1,0);
|
||
if PState=0 then
|
||
begin
|
||
OrderDate.DateTime:=StrToDate(FormatDateTime('yyyy-MM-dd',SGetServerDateTime(ADOTemp)));
|
||
ETADate.DateTime:=OrderDate.DateTime;
|
||
ETDDate.DateTime:=OrderDate.DateTime;
|
||
ZGDate.DateTime:=OrderDate.DateTime;
|
||
BegRKDate.DateTime:=OrderDate.DateTime;
|
||
BegSCDate.DateTime:=OrderDate.DateTime;
|
||
ETADate.Checked:=False;
|
||
ETDDate.Checked:=False;
|
||
ZGDate.Checked:=False;
|
||
BegRKDate.Checked:=False;
|
||
BegSCDate.Checked:=False;
|
||
end;
|
||
if Trim(DParameters1)<>'<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
BegRKDate.Enabled:=False;
|
||
Day3.Enabled:=False;
|
||
BegSCDate.Enabled:=False;
|
||
//Note.Enabled:=False;
|
||
cxGrid4.Enabled:=False;
|
||
MJKZX.Enabled:=False;
|
||
MJKZD.Enabled:=False;
|
||
XJKZX.Enabled:=False;
|
||
XJKZD.Enabled:=False;
|
||
SCXName.Enabled:=False;
|
||
WJGName.Enabled:=False;
|
||
ScrollBox2.Enabled:=False;
|
||
end;
|
||
if PState=4 then
|
||
begin
|
||
BegRKDate.Enabled:=True;
|
||
Day3.Enabled:=True;
|
||
BegSCDate.Enabled:=True;
|
||
//Note.Enabled:=False;
|
||
cxGrid4.Enabled:=True;
|
||
MJKZX.Enabled:=True;
|
||
MJKZD.Enabled:=True;
|
||
XJKZX.Enabled:=True;
|
||
XJKZD.Enabled:=True;
|
||
SCXName.Enabled:=True;
|
||
WJGName.Enabled:=True;
|
||
ScrollBox2.Enabled:=True;
|
||
end;
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from WFB_DB where MainId='''+Trim(FMainId)+'''');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,CDS_DB);
|
||
SInitCDSData20(ADOQuery1,CDS_DB);
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+'''');
|
||
sql.Add(' and PBType=''<27><>Ҫ'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,Order_SubZ);
|
||
SInitCDSData20(ADOQuery1,Order_SubZ);
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+'''');
|
||
sql.Add(' and PBType=''<27><><EFBFBD><EFBFBD>'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,Order_SubF);
|
||
SInitCDSData20(ADOQuery1,Order_SubF);
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select A.*,Case when A.YLQty-A.YCLYJkc>=0 then A.YLQty-A.YCLYJkc else null end as BZ from WFBYCL_PB A where MainId='''+Trim(FMainId)+'''');
|
||
sql.Add(' and PBType=''<27><><EFBFBD><EFBFBD>'' ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,Order_SubQ);
|
||
SInitCDSData20(ADOQuery1,Order_SubQ);
|
||
PanZDY.Visible:=False;
|
||
if PState=4 then
|
||
begin
|
||
PState:=0;
|
||
FMainId:='999999';
|
||
//OrderNo.Text:='';
|
||
WFBCodeName.Text:='';
|
||
WFBCodeName.Hint:='';
|
||
PanZDY.Visible:=False;
|
||
with CDS_DB do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('DBID').Value:='';
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
with Order_SubZ do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('PBID').Value:='';
|
||
FieldByName('YLKC').Value:=0;
|
||
FieldByName('YCLYJKC').Value:=0;
|
||
FieldByName('BZ').Value:=0;
|
||
FieldByName('SGQty').Value:=0;
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
v1Column1.Options.Focusing:=True;
|
||
with Order_SubF do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('PBID').Value:='';
|
||
FieldByName('YLKC').Value:=0;
|
||
FieldByName('YCLYJKC').Value:=0;
|
||
FieldByName('BZ').Value:=0;
|
||
FieldByName('SGQty').Value:=0;
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
v2Column1.Options.Focusing:=True;
|
||
with Order_SubQ do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('PBID').Value:='';
|
||
FieldByName('YLKC').Value:=0;
|
||
FieldByName('YCLYJKC').Value:=0;
|
||
FieldByName('BZ').Value:=0;
|
||
FieldByName('SGQty').Value:=0;
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
v3Column1.Options.Focusing:=True;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||
var
|
||
FType,ZDYName,FText:String;
|
||
begin
|
||
PanZDY.Visible:=True;
|
||
PanZDY.Left:=FButn.Left;
|
||
PanZDY.Top:=FButn.Top+FButn.Height;
|
||
with ADOZDY do
|
||
begin
|
||
Filtered:=False;
|
||
Close;
|
||
SQL.Clear;
|
||
SQL.Add('select RTrim(ZDYNo) ZDYNo,RTrim(ZDYName) ZDYName from KH_ZDY where Type='''+Trim(LType)+'''');
|
||
Open;
|
||
end;
|
||
FText:=Trim(FButn.Text);
|
||
if FText<>'' then
|
||
SDofilter(ADOZDY,' ZDYName like '+QuotedStr('%'+Trim(FText)+'%'))
|
||
else
|
||
SDofilter(ADOZDY,'');
|
||
VHelpZDYName.Summary.GroupFormat:=Trim(FButn.Name);
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.TVZDYCellDblClick(Sender: TcxCustomGridTableView;
|
||
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
|
||
AShift: TShiftState; var AHandled: Boolean);
|
||
var
|
||
FName:string;
|
||
begin
|
||
if ADOZDY.IsEmpty then Exit;
|
||
FName:=Trim(VHelpZDYName.Summary.GroupFormat);
|
||
TcxButtonEdit(FindComponent(FName)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
|
||
TcxButtonEdit(FindComponent(FName)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
|
||
PanZDY.Visible:=False;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.Button1Click(Sender: TObject);
|
||
begin
|
||
PanZDY.Visible:=False;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.WFBCodeNameKeyDown(Sender: TObject; var Key: Word;
|
||
Shift: TShiftState);
|
||
begin
|
||
if (key=vk_return) or (Key=vk_Down) then
|
||
begin
|
||
if ADOZDY.Active then
|
||
CXGridZDY.SetFocus;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.TVZDYKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if Key=#13 then
|
||
begin
|
||
if ADOZDY.IsEmpty then Exit;
|
||
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Text:=Trim(ADOZDY.fieldbyname('ZDYName').AsString);
|
||
TcxButtonEdit(FindComponent(VHelpZDYName.Summary.GroupFormat)).Hint:=Trim(ADOZDY.fieldbyname('ZDYNO').AsString);
|
||
PanZDY.Visible:=False;
|
||
ADOZDY.Active:=False;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.FormShow(Sender: TObject);
|
||
begin
|
||
{if Trim(DParameters1)='1' then
|
||
begin
|
||
Label12.Visible:=False;
|
||
CustomNoName.Visible:=False;
|
||
end else
|
||
begin
|
||
Label12.Visible:=True;
|
||
CustomNoName.Visible:=True;
|
||
end; }
|
||
InitData();
|
||
ReadCxBandedGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',Tv1,'<27>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
|
||
ReadCxBandedGrid('<27><><EFBFBD>ϸ<EFBFBD>',Tv2,'<27>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
|
||
ReadCxBandedGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',Tv3,'<27>IJ<DEB7><C4B2><EFBFBD><EFBFBD><EFBFBD>');
|
||
end;
|
||
|
||
function TfrmOrderInPutZP.SaveData():Boolean;
|
||
var
|
||
maxno:String;
|
||
begin
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from WFBOrder_Main where MainId='''+Trim(FMainId)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(FMainId)='999999' then
|
||
begin
|
||
Append;
|
||
if GetLSNo(ADOTemp,maxno,'','WFBOrder_Main',2,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
end
|
||
else begin
|
||
maxno:=Trim(FMainId);
|
||
Edit;
|
||
end;
|
||
FieldByName('MainId').Value:=Trim(maxno);
|
||
FieldByName('OrderType').Value:=Trim(OrderType);
|
||
SSetsaveSql(ADOCmd,'WFBOrder_Main',ScrollBox1,0);
|
||
if PState=2 then
|
||
begin
|
||
FieldByName('Chker').Value:=Trim(DName);
|
||
FieldByName('ChkTime').Value:=SGetServerDateTime(ADOTemp);
|
||
end;
|
||
if Trim(FMainId)='999999' then
|
||
begin
|
||
FieldByName('Filler').Value:=Trim(DName);
|
||
end else
|
||
begin
|
||
if PState=1 then
|
||
begin
|
||
FieldByName('Editer').Value:=Trim(DName);
|
||
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||
end;
|
||
end;
|
||
Post;
|
||
end;
|
||
FMainId:=Trim(maxno);
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ
|
||
with CDS_DB do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then
|
||
begin
|
||
if GetLSNo(ADOTemp,maxno,'DB','WFB_DB',3,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxno:=Trim(CDS_DB.fieldbyname('DBId').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from WFB_DB ');
|
||
sql.Add(' where DBId='''+Trim(maxno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(CDS_DB.fieldbyname('DBId').AsString)='' then
|
||
Append
|
||
else
|
||
Edit;
|
||
FieldByName('MainId').Value:=Trim(FMainId);
|
||
FieldByName('DBId').Value:=Trim(maxno);
|
||
SSetSaveDataCDSNew(ADOCmd,TVDB,CDS_DB,'WFB_DB',0);
|
||
Post;
|
||
end;
|
||
CDS_DB.Edit;
|
||
CDS_DB.FieldByName('DBId').Value:=Trim(maxno);
|
||
//Order_Sub.Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫԭ<D2AA><D4AD>
|
||
if not Order_SubZ.IsEmpty then
|
||
begin
|
||
with Order_SubZ do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(Order_SubZ.fieldbyname('PBId').AsString)='' then
|
||
begin
|
||
if GetLSNo(ADOTemp,maxno,'PB','WFBYCL_PB',3,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxno:=Trim(Order_SubZ.fieldbyname('PBId').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from WFBYCL_PB ');
|
||
sql.Add(' where PBId='''+Trim(maxno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(Order_SubZ.fieldbyname('PBId').AsString)='' then
|
||
Append
|
||
else
|
||
Edit;
|
||
FieldByName('MainId').Value:=Trim(FMainId);
|
||
FieldByName('PBId').Value:=Trim(maxno);
|
||
FieldByName('CRId').Value:=Trim(Order_SubZ.fieldbyname('CRID').AsString);
|
||
FieldByName('PBType').Value:='<27><>Ҫ';
|
||
// SSetSaveDataCDSNew();
|
||
SSetSaveDataCDSBandNew(ADOCmd,TV1,Order_SubZ,'WFBYCL_PB',0);
|
||
Post;
|
||
end;
|
||
Order_SubZ.Edit;
|
||
Order_SubZ.FieldByName('PBId').Value:=Trim(maxno);
|
||
//Order_Sub.Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
//<2F><><EFBFBD>渨<EFBFBD><E6B8A8>ԭ<EFBFBD><D4AD>
|
||
if not Order_SubF.IsEmpty then
|
||
begin
|
||
with Order_SubF do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(Order_SubF.fieldbyname('PBId').AsString)='' then
|
||
begin
|
||
if GetLSNo(ADOTemp,maxno,'PB','WFBYCL_PB',3,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxno:=Trim(Order_SubF.fieldbyname('PBId').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from WFBYCL_PB ');
|
||
sql.Add(' where PBId='''+Trim(maxno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(Order_SubF.fieldbyname('PBId').AsString)='' then
|
||
Append
|
||
else
|
||
Edit;
|
||
FieldByName('MainId').Value:=Trim(FMainId);
|
||
FieldByName('PBId').Value:=Trim(maxno);
|
||
FieldByName('PBType').Value:='<27><><EFBFBD><EFBFBD>';
|
||
FieldByName('CRId').Value:=Trim(Order_SubF.fieldbyname('CRID').AsString);
|
||
// SSetSaveDataCDSNew();
|
||
SSetSaveDataCDSBandNew(ADOCmd,TV2,Order_SubF,'WFBYCL_PB',0);
|
||
Post;
|
||
end;
|
||
Order_SubF.Edit;
|
||
Order_SubF.FieldByName('PBId').Value:=Trim(maxno);
|
||
//Order_Sub.Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>
|
||
if not Order_SubQ.IsEmpty then
|
||
begin
|
||
with Order_SubQ do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(Order_SubQ.fieldbyname('PBId').AsString)='' then
|
||
begin
|
||
if GetLSNo(ADOTemp,maxno,'PB','WFBYCL_PB',3,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxno:=Trim(Order_SubQ.fieldbyname('PBId').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from WFBYCL_PB ');
|
||
sql.Add(' where PBId='''+Trim(maxno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(Order_SubQ.fieldbyname('PBId').AsString)='' then
|
||
Append
|
||
else
|
||
Edit;
|
||
FieldByName('MainId').Value:=Trim(FMainId);
|
||
FieldByName('PBId').Value:=Trim(maxno);
|
||
FieldByName('PBType').Value:='<27><><EFBFBD><EFBFBD>';
|
||
FieldByName('CRId').Value:=Trim(Order_SubQ.fieldbyname('CRID').AsString);
|
||
// SSetSaveDataCDSNew();
|
||
SSetSaveDataCDSBandNew(ADOCmd,TV3,Order_SubQ,'WFBYCL_PB',0);
|
||
Post;
|
||
end;
|
||
Order_SubQ.Edit;
|
||
Order_SubQ.FieldByName('PBId').Value:=Trim(maxno);
|
||
//Order_Sub.Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
|
||
{with Order_Sub do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||
begin
|
||
if GetLSNo(ADOTemp,maxno,'OS','Order_Sub',3,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxno:=Trim(Order_Sub.fieldbyname('SubId').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from Order_Sub where MainId='''+Trim(FMainId)+'''');
|
||
sql.Add(' and SubId='''+Trim(maxno)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
||
Append
|
||
else
|
||
Edit;
|
||
FieldByName('MainId').Value:=Trim(FMainId);
|
||
FieldByName('SubId').Value:=Trim(maxno);
|
||
SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'Order_Sub',0);
|
||
Post;
|
||
end;
|
||
Order_Sub.Edit;
|
||
Order_Sub.FieldByName('SubId').Value:=Trim(maxno);
|
||
//Order_Sub.Post;
|
||
Next;
|
||
end;
|
||
end; }
|
||
ADOCmd.Connection.CommitTrans;
|
||
Result:=True;
|
||
except
|
||
Result:=False;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.TBSaveClick(Sender: TObject);
|
||
begin
|
||
OrderDate.SetFocus;
|
||
if Trim(OrderNo.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Trim(WFBCodeName.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Trim(WFBCodeName.Hint)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>δ<EFBFBD><CEB4><EFBFBD>壡','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
{if Order_Sub.IsEmpty then
|
||
begin
|
||
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end; }
|
||
if CDS_DB.Locate('BSL',null,[]) then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if CDS_DB.Locate('JSL',null,[]) then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Order_SubZ.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then
|
||
begin
|
||
Application.MessageBox('<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Order_SubF.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then
|
||
begin
|
||
Application.MessageBox('<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Order_SubQ.Locate('YLKC;YCLYJKC;BZ',VarArrayOf([0,0,0]),[]) then
|
||
begin
|
||
Application.MessageBox('<27><>ָ<EFBFBD><D6B8><EFBFBD><EFBFBD><EFBFBD>ϣ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if SaveData() then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
|
||
end;
|
||
end;
|
||
procedure TfrmOrderInPutZP.SELYCL(SCDS_Sub:TClientDataSet);
|
||
begin
|
||
try
|
||
frmGetPGJBInList:=TfrmGetPGJBInList.Create(Application);
|
||
with frmGetPGJBInList do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
with ClientDataSet2 do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
with SCDS_Sub do
|
||
begin
|
||
Append;
|
||
SCDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString);
|
||
SCDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString);
|
||
SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(ClientDataSet2.fieldbyname('YCLSpec').AsString);
|
||
//SCDS_Sub.FieldByName('GYSName').Value:=Trim(ClientDataSet2.fieldbyname('GYSName').AsString);
|
||
//SCDS_Sub.FieldByName('GYS').Value:=Trim(ClientDataSet2.fieldbyname('GYS').AsString);
|
||
SCDS_Sub.FieldByName('YLKC').Value:=Trim(ClientDataSet2.fieldbyname('QuantityKC').AsString);
|
||
//CDS_Sub.FieldByName('Qty').Value:=Trim(ClientDataSet2.fieldbyname('QtyKC').AsString);
|
||
SCDS_Sub.FieldByName('YLUnit').Value:=Trim(ClientDataSet2.fieldbyname('CRUnit').AsString);
|
||
SCDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString);
|
||
SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(ClientDataSet2.fieldbyname('YJKC').AsString);
|
||
//SCDS_Sub.FieldByName('YCLType').Value:=Trim(ClientDataSet2.fieldbyname('YCLType').AsString);
|
||
//SCDS_Sub.FieldByName('YCLPrice').Value:=Trim(ClientDataSet2.fieldbyname('YCLPrice').AsString);
|
||
//SCDS_Sub.FieldByName('KCPlace').Value:=Trim(ClientDataSet2.fieldbyname('KCPlace').AsString);
|
||
//CDS_Sub.FieldByName('DepotShow').Value:=Trim(ClientDataSet2.fieldbyname('DepotShow').AsString);
|
||
Post;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmGetPGJBInList.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.EditYCL(SCDS_Sub:TClientDataSet);
|
||
begin
|
||
try
|
||
frmGetPGJBInList:=TfrmGetPGJBInList.Create(Application);
|
||
with frmGetPGJBInList do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
with ClientDataSet2 do
|
||
begin
|
||
//First;
|
||
// while not Eof do
|
||
//begin
|
||
with SCDS_Sub do
|
||
begin
|
||
Edit;
|
||
SCDS_Sub.FieldByName('YCLCode').Value:=Trim(ClientDataSet2.fieldbyname('YCLCode').AsString);
|
||
SCDS_Sub.FieldByName('YCLName').Value:=Trim(ClientDataSet2.fieldbyname('YCLName').AsString);
|
||
SCDS_Sub.FieldByName('YCLSpec').Value:=Trim(ClientDataSet2.fieldbyname('YCLSpec').AsString);
|
||
//SCDS_Sub.FieldByName('GYSName').Value:=Trim(ClientDataSet2.fieldbyname('GYSName').AsString);
|
||
//SCDS_Sub.FieldByName('GYS').Value:=Trim(ClientDataSet2.fieldbyname('GYS').AsString);
|
||
SCDS_Sub.FieldByName('YLKC').Value:=Trim(ClientDataSet2.fieldbyname('QuantityKC').AsString);
|
||
//CDS_Sub.FieldByName('Qty').Value:=Trim(ClientDataSet2.fieldbyname('QtyKC').AsString);
|
||
SCDS_Sub.FieldByName('YLUnit').Value:=Trim(ClientDataSet2.fieldbyname('CRUnit').AsString);
|
||
SCDS_Sub.FieldByName('CRID').Value:=Trim(ClientDataSet2.fieldbyname('CRID').AsString);
|
||
SCDS_Sub.FieldByName('YCLYJKC').Value:=Trim(ClientDataSet2.fieldbyname('YJKC').AsString);
|
||
if SCDS_Sub.FieldByName('YLQty').Value-ClientDataSet2.fieldbyname('YJKC').Value>=0 then
|
||
SCDS_Sub.FieldByName('BZ').Value:=SCDS_Sub.FieldByName('YLQty').Value-
|
||
ClientDataSet2.fieldbyname('YJKC').Value
|
||
else
|
||
SCDS_Sub.FieldByName('BZ').Value:=null;
|
||
//SCDS_Sub.FieldByName('YCLType').Value:=Trim(ClientDataSet2.fieldbyname('YCLType').AsString);
|
||
//SCDS_Sub.FieldByName('YCLPrice').Value:=Trim(ClientDataSet2.fieldbyname('YCLPrice').AsString);
|
||
//SCDS_Sub.FieldByName('KCPlace').Value:=Trim(ClientDataSet2.fieldbyname('KCPlace').AsString);
|
||
//CDS_Sub.FieldByName('DepotShow').Value:=Trim(ClientDataSet2.fieldbyname('DepotShow').AsString);
|
||
//Post;
|
||
end;
|
||
// Next;
|
||
//end;
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmGetPGJBInList.Free;
|
||
end;
|
||
end;
|
||
procedure TfrmOrderInPutZP.ToolButton1Click(Sender: TObject);
|
||
begin
|
||
if MInt=1 then
|
||
begin
|
||
SELYCL(Order_SubZ);
|
||
end else
|
||
if MInt=2 then
|
||
begin
|
||
SELYCL(Order_SubF);
|
||
end else
|
||
if MInt=3 then
|
||
begin
|
||
SELYCL(Order_SubQ);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.ToolButton2Click(Sender: TObject);
|
||
begin
|
||
if MInt=1 then
|
||
begin
|
||
DelOrderSub(Order_SubZ);
|
||
end else
|
||
if MInt=2 then
|
||
begin
|
||
DelOrderSub(Order_SubF);
|
||
end else
|
||
if MInt=3 then
|
||
begin
|
||
DelOrderSub(Order_SubQ);
|
||
end;
|
||
end;
|
||
procedure TfrmOrderInPutZP.DelOrderSub(FOrder_Sub:TClientDataSet);
|
||
begin
|
||
if FOrder_Sub.IsEmpty then Exit;
|
||
if Trim(FOrder_Sub.fieldbyname('PBID').AsString)<>'' then
|
||
begin
|
||
if Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ڴ<EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>ѱ<EFBFBD><D1B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('delete WFBYCL_PB where PBID='''+Trim(FOrder_Sub.fieldbyname('PBID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
FOrder_Sub.Delete;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.CustomNoNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:=Trim('CustomNoName');
|
||
flagname:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.FXS:=99;
|
||
CustomNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
CustomNoName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.CustomNoNamePropertiesChange(Sender: TObject);
|
||
begin
|
||
if FXS=99 then
|
||
begin
|
||
PanZDY.Visible:=False;
|
||
FXS:=0;
|
||
Exit;
|
||
end;
|
||
ZDYHelp(CustomNoName,'CustomNoName');
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.ArrivalPortNamePropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:=Trim('ArrivalPort');
|
||
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.FXS:=99;
|
||
ArrivalPortName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
ArrivalPortName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.SCXNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:=Trim('SCXName');
|
||
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.FXS:=99;
|
||
SCXName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
SCXName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.WJGNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:=Trim('WJGName');
|
||
flagname:='<27><><EFBFBD>ṹ';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.FXS:=99;
|
||
WJGName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
WJGName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.WFBCodeNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:=Trim(WFBCodeName.Name);
|
||
flagname:='<27><><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.FXS:=99;
|
||
WFBCodeName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
WFBCodeName.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.WFBCodeNamePropertiesChange(Sender: TObject);
|
||
begin
|
||
if FXS=99 then
|
||
begin
|
||
PanZDY.Visible:=False;
|
||
FXS:=0;
|
||
Exit;
|
||
end;
|
||
ZDYHelp(WFBCodeName,Trim(WFBCodeName.Name));
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.ArrivalPortNamePropertiesChange(Sender: TObject);
|
||
begin
|
||
if FXS=99 then
|
||
begin
|
||
PanZDY.Visible:=False;
|
||
FXS:=0;
|
||
Exit;
|
||
end;
|
||
ZDYHelp(ArrivalPortName,'ArrivalPort');
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.SCXNamePropertiesChange(Sender: TObject);
|
||
begin
|
||
if FXS=99 then
|
||
begin
|
||
PanZDY.Visible:=False;
|
||
FXS:=0;
|
||
Exit;
|
||
end;
|
||
ZDYHelp(SCXName,Trim(SCXName.Name));
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.WJGNamePropertiesChange(Sender: TObject);
|
||
begin
|
||
if FXS=99 then
|
||
begin
|
||
PanZDY.Visible:=False;
|
||
FXS:=0;
|
||
Exit;
|
||
end;
|
||
ZDYHelp(WJGName,Trim(WJGName.Name));
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.N1Click(Sender: TObject);
|
||
begin
|
||
|
||
with CDS_DB do
|
||
begin
|
||
Append;
|
||
FieldByName('DBUnit').Value:='<27><>/<2F><>';
|
||
Post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.N2Click(Sender: TObject);
|
||
begin
|
||
if CDS_DB.IsEmpty then Exit;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('delete WFB_DB where DBID='''+Trim(CDS_DB.fieldbyname('DBID').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
CDS_DB.Delete;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.Day1Change(Sender: TObject);
|
||
var
|
||
DayL:string;
|
||
begin
|
||
if trim(Day1.Text)='' then DayL:='0'
|
||
else DayL:=Trim(Day1.Text);
|
||
ETDDate.DateTime:=ETADate.Date-strtoint(DayL);
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.OrdQtyKeyPress(Sender: TObject; var Key: Char);
|
||
begin
|
||
if not (Key in['0'..'9','.',#8,#13]) then
|
||
begin
|
||
key:=#0;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.Day2Change(Sender: TObject);
|
||
var
|
||
DayL:string;
|
||
begin
|
||
if trim(Day2.Text)='' then DayL:='0'
|
||
else DayL:=Trim(Day2.Text);
|
||
ZGDate.DateTime:=ETDDate.Date-strtoint(DayL);
|
||
end;
|
||
procedure TfrmOrderInPutZP.Day3Change(Sender: TObject);
|
||
var
|
||
DayL:string;
|
||
begin
|
||
if trim(Day3.Text)='' then DayL:='0'
|
||
else DayL:=Trim(Day3.Text);
|
||
BegSCDate.DateTime:=BegRKDate.Date-strtoint(DayL);
|
||
end;
|
||
procedure TfrmOrderInPutZP.ETADateChange(Sender: TObject);
|
||
begin
|
||
if Trim(Day1.Text)<>'' then
|
||
begin
|
||
ETDDate.DateTime:=ETADate.Date-strtoint(Day1.Text);
|
||
end;
|
||
if Trim(Day2.Text)<>'' then
|
||
begin
|
||
ZGDate.DateTime:=ETDDate.Date-strtoint(Day2.Text);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.BegRKDateChange(Sender: TObject);
|
||
begin
|
||
if Trim(Day3.Text)<>'' then
|
||
begin
|
||
BegSCDate.DateTime:=BegRKDate.Date-strtoint(Day3.Text);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.Tv1MouseDown(Sender: TObject;
|
||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
MInt:=1;
|
||
Tv1.Bands[0].Caption:='<27><>Ҫԭ<D2AA>ϡ<EFBFBD>';
|
||
Tv2.Bands[0].Caption:='<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>';
|
||
Tv3.Bands[0].Caption:='<27><><EFBFBD><EFBFBD>';
|
||
Tv1.Bands[0].Styles.Header.TextColor:=clBlue;
|
||
Tv2.Bands[0].Styles.Header.TextColor:=clBlack;
|
||
Tv3.Bands[0].Styles.Header.TextColor:=clBlack;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.Tv2MouseDown(Sender: TObject;
|
||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
MInt:=2;
|
||
Tv1.Bands[0].Caption:='<27><>Ҫԭ<D2AA><D4AD>';
|
||
Tv2.Bands[0].Caption:='<27><><EFBFBD><EFBFBD>ԭ<EFBFBD>ϡ<EFBFBD>';
|
||
Tv3.Bands[0].Caption:='<27><><EFBFBD><EFBFBD>';
|
||
Tv1.Bands[0].Styles.Header.TextColor:=clBlack;
|
||
Tv2.Bands[0].Styles.Header.TextColor:=clBlue;
|
||
Tv3.Bands[0].Styles.Header.TextColor:=clBlack;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.Tv3MouseDown(Sender: TObject;
|
||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
MInt:=3;
|
||
Tv1.Bands[0].Caption:='<27><>Ҫԭ<D2AA><D4AD>';
|
||
Tv2.Bands[0].Caption:='<27><><EFBFBD><EFBFBD>ԭ<EFBFBD><D4AD>';
|
||
Tv3.Bands[0].Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
Tv1.Bands[0].Styles.Header.TextColor:=clBlack;
|
||
Tv2.Bands[0].Styles.Header.TextColor:=clBlack;
|
||
Tv3.Bands[0].Styles.Header.TextColor:=clBlue;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.v1Column2PropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
mvalue,YLSH,DHSL:Double;
|
||
begin
|
||
if Trim(OrdQty.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
mvalue:=TcxTextEdit(Sender).EditingValue; //<2F>K<EFBFBD>O
|
||
if Trim(OrdUnit.Text)='<27>K' then
|
||
begin
|
||
if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then
|
||
begin
|
||
YLSH:=0;
|
||
end else
|
||
YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString);
|
||
with Order_SubZ do
|
||
begin
|
||
Edit;
|
||
FieldByName('YLQty').Value:=StrToFloat(OrdQty.Text)*mvalue/100*(1+YLSH/100);
|
||
if StrToFloat(OrdQty.Text)*mvalue/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value>=0 then
|
||
FieldByName('BZ').Value:=StrToFloat(OrdQty.Text)*mvalue/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value
|
||
else
|
||
FieldByName('BZ').Value:=null;
|
||
FieldByName('YLPB').Value:=mvalue;
|
||
Post;
|
||
end;
|
||
end else
|
||
if Trim(OrdUnit.Text)='<27>O' then
|
||
begin
|
||
if Trim(WFBKZ.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
{if Trim(WFBfk.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;}
|
||
DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000;
|
||
if Trim(Order_SubZ.fieldbyname('YLSH').AsString)='' then
|
||
begin
|
||
YLSH:=0;
|
||
end else
|
||
YLSH:=StrToFloat(Order_SubZ.fieldbyname('YLSH').AsString);
|
||
with Order_SubZ do
|
||
begin
|
||
Edit;
|
||
FieldByName('YLQty').Value:=DHSL*mvalue/100*(1+YLSH/100);
|
||
if DHSL*mvalue/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value>=0 then
|
||
FieldByName('BZ').Value:=DHSL*mvalue/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value
|
||
else
|
||
FieldByName('BZ').Value:=null;
|
||
FieldByName('YLPB').Value:=mvalue;
|
||
Post;
|
||
end;
|
||
|
||
end;
|
||
end;
|
||
|
||
|
||
procedure TfrmOrderInPutZP.v1Column3PropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
mvalue,YLPB,DHSL:Double;
|
||
begin
|
||
if Trim(OrdQty.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
mvalue:=TcxTextEdit(Sender).EditingValue; //<2F>K<EFBFBD>O
|
||
if Trim(OrdUnit.Text)='<27>K' then
|
||
begin
|
||
if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then
|
||
begin
|
||
YLPB:=0;
|
||
end else
|
||
YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString);
|
||
with Order_SubZ do
|
||
begin
|
||
Edit;
|
||
FieldByName('YLQty').Value:=StrToFloat(OrdQty.Text)*YLPB/100*(1+mvalue/100);
|
||
if StrToFloat(OrdQty.Text)*YLPB/100*(1+mvalue/100)-FieldByName('YCLYJKC').Value>=0 then
|
||
FieldByName('BZ').Value:=StrToFloat(OrdQty.Text)*YLPB/100*(1+mvalue/100)-FieldByName('YCLYJKC').Value
|
||
else
|
||
FieldByName('BZ').Value:=null;
|
||
FieldByName('YLSH').Value:=mvalue;
|
||
Post;
|
||
end;
|
||
end else
|
||
begin
|
||
if Trim(WFBKZ.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
{if Trim(WFBfk.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;}
|
||
DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000;
|
||
if Trim(Order_SubZ.fieldbyname('YLPB').AsString)='' then
|
||
begin
|
||
YLPB:=0;
|
||
end else
|
||
YLPB:=StrToFloat(Order_SubZ.fieldbyname('YLPB').AsString);
|
||
with Order_SubZ do
|
||
begin
|
||
Edit;
|
||
FieldByName('YLQty').Value:=DHSL*YLPB/100*(1+mvalue/100);
|
||
if DHSL*YLPB/100*(1+mvalue/100)-FieldByName('YCLYJKC').Value>=0 then
|
||
FieldByName('BZ').Value:=DHSL*YLPB/100*(1+mvalue/100)-FieldByName('YCLYJKC').Value
|
||
else
|
||
FieldByName('BZ').Value:=null;
|
||
FieldByName('YLSH').Value:=mvalue;
|
||
Post;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.v2Column2PropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
mvalue,DHSL:Double;
|
||
begin
|
||
if Trim(OrdQty.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
mvalue:=TcxTextEdit(Sender).EditingValue; //<2F>K<EFBFBD>O
|
||
if Trim(OrdUnit.Text)='<27>K' then
|
||
begin
|
||
with Order_SubF do
|
||
begin
|
||
Edit;
|
||
FieldByName('YLQty').Value:=StrToFloat(OrdQty.Text)*(mvalue/1000);
|
||
if StrToFloat(OrdQty.Text)*(mvalue/1000)-FieldByName('YCLYJKC').Value>=0 then
|
||
FieldByName('BZ').Value:=StrToFloat(OrdQty.Text)*(mvalue/1000)-FieldByName('YCLYJKC').Value
|
||
else
|
||
FieldByName('BZ').Value:=null;
|
||
FieldByName('YLSHQ').Value:=mvalue;
|
||
Post;
|
||
end;
|
||
end else
|
||
begin
|
||
if Trim(WFBKZ.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000;
|
||
with Order_SubF do
|
||
begin
|
||
Edit;
|
||
FieldByName('YLQty').Value:=DHSL*(mvalue/1000);
|
||
if DHSL*(mvalue/1000)-FieldByName('YCLYJKC').Value>=0 then
|
||
FieldByName('BZ').Value:=DHSL*(mvalue/1000)-FieldByName('YCLYJKC').Value
|
||
else
|
||
FieldByName('BZ').Value:=null;
|
||
FieldByName('YLSHQ').Value:=mvalue;
|
||
Post;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.OrdQtyChange(Sender: TObject);
|
||
var
|
||
YLPB,YLSH,DHSL:Double;
|
||
begin
|
||
if Trim(OrdQty.Text)='' then Exit;
|
||
if Trim(OrdUnit.Text)='<27>K' then
|
||
DHSL:=StrToFloat(OrdQty.Text)
|
||
else
|
||
if Trim(OrdUnit.Text)='<27>O' then
|
||
begin
|
||
if Trim(WFBKZ.Text)='' then Exit;
|
||
DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000;
|
||
end;
|
||
if not Order_SubZ.IsEmpty then
|
||
begin
|
||
with Order_SubZ do
|
||
begin
|
||
Order_SubZ.DisableControls;
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
if Trim(fieldbyname('YLPB').AsString)='' then
|
||
YLPB:=0
|
||
else
|
||
YLPB:=StrToFloat(fieldbyname('YLPB').AsString);
|
||
if Trim(fieldbyname('YLSH').AsString)='' then
|
||
YLSH:=0
|
||
else
|
||
YLSH:=StrToFloat(fieldbyname('YLSH').AsString);
|
||
FieldByName('YLQty').Value:=DHSL*YLPB/100*(1+YLSH/100);
|
||
if DHSL*YLPB/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value>=0 then
|
||
FieldByName('BZ').Value:=DHSL*YLPB/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value
|
||
else
|
||
FieldByName('BZ').Value:=null;
|
||
Post;
|
||
Next;
|
||
end;
|
||
Order_SubZ.EnableControls;
|
||
First;
|
||
end;
|
||
end;
|
||
if not Order_SubF.IsEmpty then
|
||
begin
|
||
with Order_SubF do
|
||
begin
|
||
Order_SubF.DisableControls;
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
if Trim(fieldbyname('YLSHQ').AsString)='' then
|
||
YLSH:=0
|
||
else
|
||
YLSH:=StrToFloat(fieldbyname('YLSHQ').AsString);
|
||
FieldByName('YLQty').Value:=DHSL*(YLSH/1000);
|
||
if DHSL*(YLSH/1000)-FieldByName('YCLYJKC').Value>=0 then
|
||
FieldByName('BZ').Value:=DHSL*(YLSH/1000)-FieldByName('YCLYJKC').Value
|
||
else
|
||
FieldByName('BZ').Value:=null;
|
||
Post;
|
||
Next;
|
||
end;
|
||
Order_SubF.EnableControls;
|
||
First;
|
||
end;
|
||
end;
|
||
end;
|
||
procedure TfrmOrderInPutZP.v3Column4PropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
mvalue:Double;
|
||
begin
|
||
mvalue:=TcxTextEdit(Sender).EditingValue;
|
||
with Order_SubQ do
|
||
begin
|
||
Edit;
|
||
FieldByName('YLQty').Value:=mvalue;
|
||
if mvalue-fieldbyname('YCLYJKC').Value>=0 then
|
||
FieldByName('BZ').Value:=mvalue-fieldbyname('YCLYJKC').Value
|
||
else
|
||
FieldByName('BZ').Value:=null;
|
||
Post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.TBPrintClick(Sender: TObject);
|
||
var
|
||
fPrintFile:String;
|
||
begin
|
||
with ADOQueryQG do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add(' exec P_Print_SGD :OrderNo');
|
||
Parameters.ParamByName('OrderNo').Value:=Trim(OrderNo.Text);
|
||
Open;
|
||
end;
|
||
if ADOQueryQG.IsEmpty then Exit;
|
||
fPrintFile:=ExtractFilePath(Application.ExeName)+'Report\<5C>빺<EFBFBD><EBB9BA>.rmf' ;
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
RM2.LoadFromFile(fPrintFile);
|
||
RMVariables['dyr']:=Trim(DName);
|
||
RM2.ShowReport;
|
||
end else
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\<5C>빺<EFBFBD><EBB9BA>.rmf'),'<27><>ʾ',0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.v1Column1PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
EditYCL(Order_SubZ);
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.v2Column1PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
EditYCL(Order_SubF);
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.v3Column1PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
EditYCL(Order_SubQ);
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.WFBBZUnit1PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:=Trim('WFBBZUnitD');
|
||
flagname:='<27><><EFBFBD><EFBFBD>װ';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.FXS:=99;
|
||
WFBBZUnit1.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
WFBBZUnit1.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.WFBBZUnit2PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:=Trim('WFBBZUnitZ');
|
||
flagname:='<27>а<EFBFBD>װ';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.FXS:=99;
|
||
WFBBZUnit2.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
WFBBZUnit2.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.WFBBZUnit3PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:=Trim('WFBBZUnitX');
|
||
flagname:='С<><D0A1>װ';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.FXS:=99;
|
||
WFBBZUnit3.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
WFBBZUnit3.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.WFBBZUnit1PropertiesChange(Sender: TObject);
|
||
begin
|
||
if FXS=99 then
|
||
begin
|
||
PanZDY.Visible:=False;
|
||
FXS:=0;
|
||
Exit;
|
||
end;
|
||
ZDYHelp(WFBBZUnit1,'WFBBZUnitD');
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.WFBBZUnit2PropertiesChange(Sender: TObject);
|
||
begin
|
||
if FXS=99 then
|
||
begin
|
||
PanZDY.Visible:=False;
|
||
FXS:=0;
|
||
Exit;
|
||
end;
|
||
ZDYHelp(WFBBZUnit2,'WFBBZUnitZ');
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.WFBBZUnit3PropertiesChange(Sender: TObject);
|
||
begin
|
||
if FXS=99 then
|
||
begin
|
||
PanZDY.Visible:=False;
|
||
FXS:=0;
|
||
Exit;
|
||
end;
|
||
ZDYHelp(WFBBZUnit3,'WFBBZUnitX');
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.BZPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:=Trim('BZ');
|
||
flagname:='<27><><EFBFBD>۵<EFBFBD>λ';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.FXS:=99;
|
||
BZ.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
BZ.Hint:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.BZPropertiesChange(Sender: TObject);
|
||
begin
|
||
if FXS=99 then
|
||
begin
|
||
PanZDY.Visible:=False;
|
||
FXS:=0;
|
||
Exit;
|
||
end;
|
||
ZDYHelp(BZ,'BZ');
|
||
end;
|
||
|
||
procedure TfrmOrderInPutZP.WFBBZQty1Change(Sender: TObject);
|
||
var
|
||
FQty1,FQty2,FQty3,FFK1,FFK2,FKZ1,YLPB,YLSH,DHSL:Double;
|
||
begin
|
||
if Trim(WFBBZQty1.Text)<>'' then
|
||
begin
|
||
FQty1:=StrToFloat(WFBBZQty1.Text);
|
||
end else
|
||
begin
|
||
FQty1:=1;
|
||
end;
|
||
if Trim(WFBBZQty2.Text)<>'' then
|
||
begin
|
||
FQty2:=StrToFloat(WFBBZQty2.Text);
|
||
end else
|
||
begin
|
||
FQty2:=1;
|
||
end;
|
||
if Trim(WFBBZQty3.Text)<>'' then
|
||
begin
|
||
FQty3:=StrToFloat(WFBBZQty3.Text);
|
||
end else
|
||
begin
|
||
FQty3:=1;
|
||
end;
|
||
if Trim(WFBFK1.Text)<>'' then
|
||
begin
|
||
FFK1:=StrToFloat(WFBFK1.Text);
|
||
end else
|
||
begin
|
||
FFK1:=0;
|
||
end;
|
||
if Trim(WFBFK2.Text)<>'' then
|
||
begin
|
||
FFK2:=StrToFloat(WFBFK2.Text);
|
||
end else
|
||
begin
|
||
FFK2:=0;
|
||
end;
|
||
if Trim(WFBKZ.Text)<>'' then
|
||
begin
|
||
FKZ1:=StrToFloat(WFBKZ.Text);
|
||
end else
|
||
begin
|
||
FKZ1:=0;
|
||
end;
|
||
if Trim(WFBKZ.Text)='' then
|
||
begin
|
||
OrdQty.Text:=FloatToStr(FQty1*FQty2*FQty3*FFK1*FFK2/10000);
|
||
OrdUnit.ItemIndex:=OrdUnit.Items.IndexOf('<27>O');
|
||
end else
|
||
begin
|
||
OrdQty.Text:=FloatToStr(FQty1*FQty2*FQty3*FFK1*FFK2/10000*FKZ1/1000);
|
||
OrdUnit.ItemIndex:=OrdUnit.Items.IndexOf('<27>K');
|
||
end;
|
||
if Trim(OrdQty.Text)='' then Exit;
|
||
if Trim(OrdUnit.Text)='<27>K' then
|
||
DHSL:=StrToFloat(OrdQty.Text)
|
||
else
|
||
if Trim(OrdUnit.Text)='<27>O' then
|
||
begin
|
||
if Trim(WFBKZ.Text)='' then Exit;
|
||
DHSL:=StrToFloat(OrdQty.Text)*strtofloat(WFBKZ.Text)/1000;
|
||
end;
|
||
if not Order_SubZ.IsEmpty then
|
||
begin
|
||
with Order_SubZ do
|
||
begin
|
||
Order_SubZ.DisableControls;
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
if Trim(fieldbyname('YLPB').AsString)='' then
|
||
YLPB:=0
|
||
else
|
||
YLPB:=StrToFloat(fieldbyname('YLPB').AsString);
|
||
if Trim(fieldbyname('YLSH').AsString)='' then
|
||
YLSH:=0
|
||
else
|
||
YLSH:=StrToFloat(fieldbyname('YLSH').AsString);
|
||
FieldByName('YLQty').Value:=DHSL*YLPB/100*(1+YLSH/100);
|
||
if DHSL*YLPB/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value>=0 then
|
||
FieldByName('BZ').Value:=DHSL*YLPB/100*(1+YLSH/100)-FieldByName('YCLYJKC').Value
|
||
else
|
||
FieldByName('BZ').Value:=null;
|
||
Post;
|
||
Next;
|
||
end;
|
||
Order_SubZ.EnableControls;
|
||
First;
|
||
end;
|
||
end;
|
||
if not Order_SubF.IsEmpty then
|
||
begin
|
||
with Order_SubF do
|
||
begin
|
||
Order_SubF.DisableControls;
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
if Trim(fieldbyname('YLSHQ').AsString)='' then
|
||
YLSH:=0
|
||
else
|
||
YLSH:=StrToFloat(fieldbyname('YLSHQ').AsString);
|
||
FieldByName('YLQty').Value:=DHSL*(YLSH/1000);
|
||
if DHSL*(YLSH/1000)-FieldByName('YCLYJKC').Value>=0 then
|
||
FieldByName('BZ').Value:=DHSL*(YLSH/1000)-FieldByName('YCLYJKC').Value
|
||
else
|
||
FieldByName('BZ').Value:=null;
|
||
Post;
|
||
Next;
|
||
end;
|
||
Order_SubF.EnableControls;
|
||
First;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
end.
|