1272 lines
37 KiB
ObjectPascal
1272 lines
37 KiB
ObjectPascal
|
unit U_ConInPut_CBYG;
|
|||
|
|
|
|||
|
|
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, cxGridCustomPopupMenu,
|
|||
|
|
cxGridPopupMenu, cxCurrencyEdit, cxGridBandedTableView,
|
|||
|
|
cxGridDBBandedTableView, cxDropDownEdit;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmConInPut_CBYG = class(TForm)
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
TBSave: TToolButton;
|
|||
|
|
TBClose: TToolButton;
|
|||
|
|
ADOTemp: TADOQuery;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
Order_Sub: TClientDataSet;
|
|||
|
|
ADOQuery1: TADOQuery;
|
|||
|
|
Label9: TLabel;
|
|||
|
|
DEFStr7: TEdit;
|
|||
|
|
Label10: TLabel;
|
|||
|
|
YGNo: TEdit;
|
|||
|
|
Label14: TLabel;
|
|||
|
|
CustomerNoName: TBtnEditC;
|
|||
|
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
|||
|
|
ADOCmd: TADOQuery;
|
|||
|
|
ScrollBox1: TScrollBox;
|
|||
|
|
cxStyleRepository1: TcxStyleRepository;
|
|||
|
|
cxStyle1: TcxStyle;
|
|||
|
|
Panel5: TPanel;
|
|||
|
|
Panel3: TPanel;
|
|||
|
|
ToolBar4: TToolBar;
|
|||
|
|
ToolButton5: TToolButton;
|
|||
|
|
ToolButton6: TToolButton;
|
|||
|
|
cxGrid3: TcxGrid;
|
|||
|
|
TV3: TcxGridDBBandedTableView;
|
|||
|
|
TV3PrtCodeName: TcxGridDBBandedColumn;
|
|||
|
|
TV3Qty: TcxGridDBBandedColumn;
|
|||
|
|
TV3PRTPrice: TcxGridDBBandedColumn;
|
|||
|
|
TV3Money: TcxGridDBBandedColumn;
|
|||
|
|
cxGridLevel2: TcxGridLevel;
|
|||
|
|
Panel2: TPanel;
|
|||
|
|
ToolBar3: TToolBar;
|
|||
|
|
ToolButton3: TToolButton;
|
|||
|
|
ToolButton4: TToolButton;
|
|||
|
|
cxGrid2: TcxGrid;
|
|||
|
|
TV4: TcxGridDBBandedTableView;
|
|||
|
|
TV4PrtCodeName: TcxGridDBBandedColumn;
|
|||
|
|
TV4XLQty: TcxGridDBBandedColumn;
|
|||
|
|
TV4PRTPrice: TcxGridDBBandedColumn;
|
|||
|
|
TV4Money: TcxGridDBBandedColumn;
|
|||
|
|
cxGridLevel1: TcxGridLevel;
|
|||
|
|
Panel7: TPanel;
|
|||
|
|
Panel4: TPanel;
|
|||
|
|
ToolBar5: TToolBar;
|
|||
|
|
ToolButton7: TToolButton;
|
|||
|
|
ToolButton8: TToolButton;
|
|||
|
|
cxGrid4: TcxGrid;
|
|||
|
|
TV2: TcxGridDBBandedTableView;
|
|||
|
|
cxGridDBBandedColumn20: TcxGridDBBandedColumn;
|
|||
|
|
TV2Qty: TcxGridDBBandedColumn;
|
|||
|
|
TV2SunHao: TcxGridDBBandedColumn;
|
|||
|
|
TV2XLQty: TcxGridDBBandedColumn;
|
|||
|
|
TV2PRTPrice: TcxGridDBBandedColumn;
|
|||
|
|
TV2Money: TcxGridDBBandedColumn;
|
|||
|
|
cxGridLevel3: TcxGridLevel;
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
TV1: TcxGridDBBandedTableView;
|
|||
|
|
V1PrtCode: TcxGridDBBandedColumn;
|
|||
|
|
V1PrtCodeName: TcxGridDBBandedColumn;
|
|||
|
|
V1Column3: TcxGridDBBandedColumn;
|
|||
|
|
V1PRTOrderQty: TcxGridDBBandedColumn;
|
|||
|
|
V1PRTPrice: TcxGridDBBandedColumn;
|
|||
|
|
V1ConMXMoney: TcxGridDBBandedColumn;
|
|||
|
|
V1Huilv: TcxGridDBBandedColumn;
|
|||
|
|
V1RMBMoney: TcxGridDBBandedColumn;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
DataSource2: TDataSource;
|
|||
|
|
Order_ZL: TClientDataSet;
|
|||
|
|
DataSource3: TDataSource;
|
|||
|
|
Order_MLJG: TClientDataSet;
|
|||
|
|
DataSource4: TDataSource;
|
|||
|
|
Order_FL: TClientDataSet;
|
|||
|
|
DataSource5: TDataSource;
|
|||
|
|
Order_CBJG: TClientDataSet;
|
|||
|
|
cxStyle2: TcxStyle;
|
|||
|
|
V2JHDate: TcxGridDBBandedColumn;
|
|||
|
|
V3JHDate: TcxGridDBBandedColumn;
|
|||
|
|
V4JHDate: TcxGridDBBandedColumn;
|
|||
|
|
Panel6: TPanel;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
Label5: TLabel;
|
|||
|
|
Label6: TLabel;
|
|||
|
|
Label7: TLabel;
|
|||
|
|
Label8: TLabel;
|
|||
|
|
Label11: TLabel;
|
|||
|
|
Label15: TLabel;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
Label16: TLabel;
|
|||
|
|
Label17: TLabel;
|
|||
|
|
Panel8: TPanel;
|
|||
|
|
ToolBar6: TToolBar;
|
|||
|
|
ToolButton9: TToolButton;
|
|||
|
|
ToolButton10: TToolButton;
|
|||
|
|
cxGrid5: TcxGrid;
|
|||
|
|
TV5: TcxGridDBBandedTableView;
|
|||
|
|
TV5PrtCodeName: TcxGridDBBandedColumn;
|
|||
|
|
tv5Money: TcxGridDBBandedColumn;
|
|||
|
|
V5JHDate: TcxGridDBBandedColumn;
|
|||
|
|
cxGridLevel4: TcxGridLevel;
|
|||
|
|
YLYGMoney: TcxCurrencyEdit;
|
|||
|
|
MLJGMoney: TcxCurrencyEdit;
|
|||
|
|
FLMoney: TcxCurrencyEdit;
|
|||
|
|
JGMoney: TcxCurrencyEdit;
|
|||
|
|
YGLiRun: TcxCurrencyEdit;
|
|||
|
|
BGYSFee: TcxCurrencyEdit;
|
|||
|
|
OtherMoney: TcxCurrencyEdit;
|
|||
|
|
ZJYGMoney: TcxCurrencyEdit;
|
|||
|
|
KPYGMoney: TcxCurrencyEdit;
|
|||
|
|
GLMoney: TcxCurrencyEdit;
|
|||
|
|
SOrdQty8: TcxCurrencyEdit;
|
|||
|
|
Label18: TLabel;
|
|||
|
|
KPFeeLV: TcxCurrencyEdit;
|
|||
|
|
ToolBar2: TToolBar;
|
|||
|
|
ToolButton1: TToolButton;
|
|||
|
|
ToolButton2: TToolButton;
|
|||
|
|
Label19: TLabel;
|
|||
|
|
SKType: TBtnEditA;
|
|||
|
|
Label20: TLabel;
|
|||
|
|
JQDate: TDateTimePicker;
|
|||
|
|
V1PriceUnit: TcxGridDBBandedColumn;
|
|||
|
|
V1OrderUnit: TcxGridDBBandedColumn;
|
|||
|
|
TBDYZH: TToolButton;
|
|||
|
|
V1Column1: TcxGridDBBandedColumn;
|
|||
|
|
V1Column2: TcxGridDBBandedColumn;
|
|||
|
|
V2Column1: TcxGridDBBandedColumn;
|
|||
|
|
procedure TBCloseClick(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure TBSaveClick(Sender: TObject);
|
|||
|
|
procedure v1PRTColorPropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
procedure v1OrderUnitPropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
procedure v1PriceUnitPropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
procedure v1PRTPricePropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure V1HuilvPropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure ToolButton7Click(Sender: TObject);
|
|||
|
|
procedure ToolButton5Click(Sender: TObject);
|
|||
|
|
procedure ToolButton3Click(Sender: TObject);
|
|||
|
|
procedure ToolButton9Click(Sender: TObject);
|
|||
|
|
procedure TV2QtyPropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure TV3QtyPropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure TV4XLQtyPropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure TV5QtyPropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure BGYSFeePropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure OtherMoneyPropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure KPYGMoneyPropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure ToolButton6Click(Sender: TObject);
|
|||
|
|
procedure ToolButton4Click(Sender: TObject);
|
|||
|
|
procedure ToolButton8Click(Sender: TObject);
|
|||
|
|
procedure ToolButton10Click(Sender: TObject);
|
|||
|
|
procedure SOrdQty8PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure KPFeeLVPropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure ToolButton1Click(Sender: TObject);
|
|||
|
|
procedure ToolButton2Click(Sender: TObject);
|
|||
|
|
procedure SKTypeBtnClick(Sender: TObject);
|
|||
|
|
procedure V1PRTOrderQtyPropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure CustomerNoNameBtnUpClick(Sender: TObject);
|
|||
|
|
procedure TBDYZHClick(Sender: TObject);
|
|||
|
|
procedure tv5MoneyPropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure V2Column1PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
private
|
|||
|
|
procedure InitData();
|
|||
|
|
function SaveData():Boolean;
|
|||
|
|
procedure HJ();
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
PState,CopyInt:Integer;
|
|||
|
|
FMainId,FSubid,FFMainId,FYGNO,FST,FZT:String;
|
|||
|
|
FXS:Integer;
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmConInPut_CBYG: TfrmConInPut_CBYG;
|
|||
|
|
newh:hwnd;
|
|||
|
|
implementation
|
|||
|
|
uses
|
|||
|
|
U_DataLink,U_ZDYHelp,U_Fun,U_ZDYHelpSel,U_ZdyAttachment,U_CPManageSel,U_ProductOrderListSel;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
procedure TfrmConInPut_CBYG.HJ();
|
|||
|
|
begin
|
|||
|
|
if BGYSFee.Text='' then BGYSFee.Text:='0';
|
|||
|
|
if OtherMoney.Text='' then OtherMoney.Text:='0';
|
|||
|
|
if KPYGMoney.Text='' then KPYGMoney.Text:='0';
|
|||
|
|
if SOrdQty8.Text='' then SOrdQty8.Text:='0';
|
|||
|
|
if KPFeeLV.Text='' then KPFeeLV.Text:='0';
|
|||
|
|
if TV2.DataController.Summary.FooterSummaryValues[2]<>NULL then
|
|||
|
|
YLYGMoney.Text:=FloatToStr(TV2.DataController.Summary.FooterSummaryValues[2])
|
|||
|
|
else
|
|||
|
|
YLYGMoney.Text:='0';
|
|||
|
|
if TV3.DataController.Summary.FooterSummaryValues[1]<>NULL then
|
|||
|
|
MLJGMoney.Text:=FloatToStr(TV3.DataController.Summary.FooterSummaryValues[1])
|
|||
|
|
else
|
|||
|
|
MLJGMoney.Text:='0';
|
|||
|
|
if TV4.DataController.Summary.FooterSummaryValues[1]<>NULL then
|
|||
|
|
FLMoney.Text:=FloatToStr(TV4.DataController.Summary.FooterSummaryValues[1])
|
|||
|
|
else
|
|||
|
|
FLMoney.Text:='0';
|
|||
|
|
if TV5.DataController.Summary.FooterSummaryValues[1]<>NULL then
|
|||
|
|
JGMoney.Text:=FloatToStr(TV5.DataController.Summary.FooterSummaryValues[1])
|
|||
|
|
else
|
|||
|
|
JGMoney.Text:='0';
|
|||
|
|
if TV1.DataController.Summary.FooterSummaryValues[2]<>NULL then
|
|||
|
|
begin
|
|||
|
|
GLMoney.Text:=FloatToStr(TV1.DataController.Summary.FooterSummaryValues[2]*strtofloat(SOrdQty8.Text));
|
|||
|
|
KPYGMoney.Text:=FloatToStr(TV1.DataController.Summary.FooterSummaryValues[2]*strtofloat(KPFeeLV.Text));
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
GLMoney.Text:='0';
|
|||
|
|
KPYGMoney.Text:='0';
|
|||
|
|
end;
|
|||
|
|
ZJYGMoney.Text:=floattostr(strtofloat(YLYGMoney.Text)+strtofloat(MLJGMoney.Text)+strtofloat(FLMoney.Text)+strtofloat(JGMoney.Text));
|
|||
|
|
if TV1.DataController.Summary.FooterSummaryValues[2]<>NULL then
|
|||
|
|
begin
|
|||
|
|
YGLiRun.Text:=floattostr(TV1.DataController.Summary.FooterSummaryValues[2]-strtofloat(ZJYGMoney.Text)-strtofloat(BGYSFee.Text)
|
|||
|
|
-strtofloat(OtherMoney.Text)-strtofloat(KPYGMoney.Text)-strtofloat(GLMoney.Text));
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
YGLiRun.Text:=floattostr(0-strtofloat(ZJYGMoney.Text)-strtofloat(BGYSFee.Text)
|
|||
|
|
-strtofloat(OtherMoney.Text)-strtofloat(KPYGMoney.Text)-strtofloat(GLMoney.Text));
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.TBCloseClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
// WriteCxBandedGrid('Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>11',Tv1,'Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
// WriteCxBandedGrid('Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>21',Tv2,'Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
// WriteCxBandedGrid('Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>31',Tv3,'Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
// WriteCxBandedGrid('Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>41',Tv4,'Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
// WriteCxBandedGrid('Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>51',Tv5,'Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
Close;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.InitData();
|
|||
|
|
begin
|
|||
|
|
with ADOQuery1 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select A.* ');
|
|||
|
|
sql.Add('from JYOrderCon_YGCB A ');
|
|||
|
|
sql.Add('where A.MainId='''+Trim(FMainId)+'''');
|
|||
|
|
sql.add(' and A.CBType=''<27>ɹ<EFBFBD>''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQuery1,Order_ZL);
|
|||
|
|
SInitCDSData20(ADOQuery1,Order_ZL);
|
|||
|
|
with ADOQuery1 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select A.* ');
|
|||
|
|
sql.Add('from JYOrderCon_YGCB A ');
|
|||
|
|
sql.Add('where A.MainId='''+Trim(FMainId)+'''');
|
|||
|
|
sql.add(' and A.CBType=''<27>ӹ<EFBFBD>''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQuery1,Order_MLJG);
|
|||
|
|
SInitCDSData20(ADOQuery1,Order_MLJG);
|
|||
|
|
with ADOQuery1 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select A.* ');
|
|||
|
|
sql.Add('from JYOrderCon_YGCB A ');
|
|||
|
|
sql.Add('where A.MainId='''+Trim(FMainId)+'''');
|
|||
|
|
sql.add(' and A.CBType=''<27><><EFBFBD><EFBFBD>''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQuery1,Order_FL);
|
|||
|
|
SInitCDSData20(ADOQuery1,Order_FL);
|
|||
|
|
with ADOQuery1 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select A.* ');
|
|||
|
|
sql.Add('from JYOrderCon_YGCB A ');
|
|||
|
|
sql.Add('where A.MainId='''+Trim(FMainId)+'''');
|
|||
|
|
sql.add(' and A.CBType=''<27><><EFBFBD><EFBFBD>''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQuery1,Order_CBJG);
|
|||
|
|
SInitCDSData20(ADOQuery1,Order_CBJG);
|
|||
|
|
with ADOQuery1 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select *,RMBMoney=ConMXMoney*Huilv from JYOrderCon_Sub_JG ');
|
|||
|
|
sql.Add('where MainId='''+Trim(FMainId)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOQuery1,Order_Sub);
|
|||
|
|
SInitCDSData20(ADOQuery1,Order_Sub);
|
|||
|
|
with ADOQuery1 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select A.* ');
|
|||
|
|
sql.add(' from JYOrderCon_Main_JG A where A.MainId='''+Trim(FMainId)+'''');
|
|||
|
|
//ShowMessage(sql.Text);
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCSHDataNew(ADOQuery1,ScrollBox1,2);
|
|||
|
|
CustomerNoName.TxtCode:=Trim(ADOQuery1.fieldbyname('CustomerNo').AsString);
|
|||
|
|
if ADOQuery1.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
YLYGMoney.Text:='0';
|
|||
|
|
FLMoney.Text:='0';
|
|||
|
|
MLJGMoney.Text:='0';
|
|||
|
|
BGYSFee.Text:='0';
|
|||
|
|
JGMoney.Text:='0';
|
|||
|
|
OtherMoney.Text:='0';
|
|||
|
|
ZJYGMoney.Text:='0';
|
|||
|
|
KPYGMoney.Text:='0';
|
|||
|
|
GLMoney.Text:='0';
|
|||
|
|
YGLiRun.Text:='0';
|
|||
|
|
SOrdQty8.Text:='0';
|
|||
|
|
KPFeeLV.Text:='0';
|
|||
|
|
// YGNo.Text:='<27>Զ<EFBFBD><D4B6><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
SCSHDataNew(ADOQuery1,panel6,2);
|
|||
|
|
YGNo.Text:=Trim(ADOQuery1.fieldbyname('YGNo').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
// ReadCxBandedGrid('Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>11',Tv1,'Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
// ReadCxBandedGrid('Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>21',Tv2,'Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
// ReadCxBandedGrid('Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>31',Tv3,'Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
// ReadCxBandedGrid('Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>41',Tv4,'Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
// ReadCxBandedGrid('Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD>51',Tv5,'Ԥ<><D4A4><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD>');
|
|||
|
|
InitData();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TfrmConInPut_CBYG.SaveData():Boolean;
|
|||
|
|
var
|
|||
|
|
maxno,Smaxno,Zmaxno,Fmaxno,Jmaxno,Xmaxno:String;
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
ADOCmd.Connection.BeginTrans;
|
|||
|
|
if Trim(FMainId)='' then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOTemp,maxno,'GM','JYOrderCon_Main_JG',3,1)=False then
|
|||
|
|
begin
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
maxno:=Trim(FMainId);
|
|||
|
|
end;
|
|||
|
|
if ( Trim(YGNo.Text)='' ) then
|
|||
|
|
FYGNo:=Trim(maxno)
|
|||
|
|
else
|
|||
|
|
FYGNo:=Trim(YGNo.Text);
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
SQL.Add('select * from JYOrderCon_Main_JG where MainId='''+Trim(FMainId)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
if Trim(FMainId)='' then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('Filler').Value:=Trim(DName);
|
|||
|
|
FieldByName('Status').Value:='0';
|
|||
|
|
FieldByName('MainId').Value:=Trim(maxno);
|
|||
|
|
FieldByName('YGNo').Value:=Trim(FYGNo);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('Editer').Value:=Trim(DName);
|
|||
|
|
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
|||
|
|
end;
|
|||
|
|
SSetsaveSqlNew(ADOCmd,'JYOrderCon_Main_JG',ScrollBox1,2);
|
|||
|
|
FieldByName('CustomerNo').Value:=Trim(CustomerNoName.TxtCode);
|
|||
|
|
fieldbyname('YLYGMoney').Value:=StrToFloat(YLYGMoney.Text);
|
|||
|
|
fieldbyname('FLMoney').Value:=StrToFloat(FLMoney.Text);
|
|||
|
|
fieldbyname('MLJGMoney').Value:=StrToFloat(MLJGMoney.Text);
|
|||
|
|
fieldbyname('BGYSFee').Value:=StrToFloat(BGYSFee.Text);
|
|||
|
|
fieldbyname('JGMoney').Value:=StrToFloat(JGMoney.Text);
|
|||
|
|
fieldbyname('OtherMoney').Value:=StrToFloat(OtherMoney.Text);
|
|||
|
|
fieldbyname('ZJYGMoney').Value:=StrToFloat(ZJYGMoney.Text);
|
|||
|
|
fieldbyname('KPYGMoney').Value:=StrToFloat(KPYGMoney.Text);
|
|||
|
|
fieldbyname('GLMoney').Value:=StrToFloat(GLMoney.Text);
|
|||
|
|
fieldbyname('YGLiRun').Value:=StrToFloat(YGLiRun.Text);
|
|||
|
|
FieldByName('SOrdQty8').Value:=StrToFloat(SOrdQty8.Text);
|
|||
|
|
FieldByName('KPFeeLV').Value:=StrToFloat(KPFeeLV.Text);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from JYOrderCon_Main_JG where YGNo='''+Trim(YGNo.Text)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOCmd.RecordCount>1 then
|
|||
|
|
begin
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('Ԥ<><D4A4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
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,Smaxno,'GS','JYOrderCon_Sub_JG',4,1)=False then
|
|||
|
|
begin
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
Smaxno:=Trim(Order_Sub.fieldbyname('SubId').AsString);
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add(' select * from JYOrderCon_Sub_JG where MainId='''+Trim(maxno)+''' ');
|
|||
|
|
sql.Add(' and SubId='''+Trim(Smaxno)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
if Trim(Order_Sub.fieldbyname('SubId').AsString)='' then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('MainId').Value:=Trim(maxno);
|
|||
|
|
FieldByName('SubId').Value:=Trim(Smaxno);
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('editer').Value:=Trim(DName);
|
|||
|
|
FieldByName('editDate').Value:=SGetServerDate(ADOQuery1);
|
|||
|
|
end;
|
|||
|
|
FieldByName('PRTCodeNameEng').Value:=Trim(Order_Sub.Fieldbyname('PRTCodeNameEng').AsString);
|
|||
|
|
FieldByName('PRTspec').Value:=Trim(Order_Sub.fieldbyname('PRTspec').AsString);
|
|||
|
|
FieldByName('PRTMF').Value:=Trim(Order_Sub.fieldbyname('PRTMF').AsString);
|
|||
|
|
FieldByName('PRTKZ').Value:=Trim(Order_Sub.fieldbyname('PRTKZ').AsString);
|
|||
|
|
RTSetSaveDataCDSBand(ADOCmd,Tv1,Order_Sub,'JYOrderCon_Sub_JG',0);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
with Order_ZL do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
if Trim(Order_ZL.fieldbyname('YGID').AsString)='' then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOTemp,Zmaxno,'CG','JYOrderCon_YGCB',4,1)=False then
|
|||
|
|
begin
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
Zmaxno:=Trim(Order_ZL.fieldbyname('YGID').AsString);
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select * from JYOrderCon_YGCB where YGID='''+Trim(Zmaxno)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
if isempty then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('MainId').Value:=Trim(maxno);
|
|||
|
|
fieldbyname('YGID').Value:=Trim(Zmaxno);
|
|||
|
|
FieldByName('CBType').Value:='<27>ɹ<EFBFBD>';
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
Edit;
|
|||
|
|
SSetSaveDataCDSBandNew(ADOCmd,Tv2,Order_ZL,'JYOrderCon_YGCB',0);
|
|||
|
|
fieldbyname('OrderQty').Value:=Order_ZL.Fieldbyname('OrderQty').AsFloat;
|
|||
|
|
fieldbyname('Qty').Value:=Order_ZL.Fieldbyname('Qty').AsFloat;
|
|||
|
|
fieldbyname('SunHao').Value:=Order_ZL.Fieldbyname('SunHao').AsFloat;
|
|||
|
|
fieldbyname('XLQty').Value:=Order_ZL.Fieldbyname('XLQty').AsFloat;
|
|||
|
|
fieldbyname('PRTPrice').Value:=Order_ZL.Fieldbyname('PRTPrice').AsFloat;
|
|||
|
|
fieldbyname('Money').Value:=Order_ZL.Fieldbyname('Money').AsFloat;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
with Order_MLJG do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
if Trim(Order_MLJG.fieldbyname('YGID').AsString)='' then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOTemp,Jmaxno,'JG','JYOrderCon_YGCB',4,1)=False then
|
|||
|
|
begin
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
Jmaxno:=Trim(Order_MLJG.fieldbyname('YGID').AsString);
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select * from JYOrderCon_YGCB where YGID='''+Trim(Jmaxno)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
if isempty then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('MainId').Value:=Trim(maxno);
|
|||
|
|
fieldbyname('YGID').Value:=Trim(Jmaxno);
|
|||
|
|
FieldByName('CBType').Value:='<27>ӹ<EFBFBD>';
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
Edit;
|
|||
|
|
SSetSaveDataCDSBandNew(ADOCmd,Tv3,Order_MLJG,'JYOrderCon_YGCB',0);
|
|||
|
|
fieldbyname('Qty').Value:=Order_MLJG.Fieldbyname('Qty').AsFloat;
|
|||
|
|
fieldbyname('PRTPrice').Value:=Order_MLJG.Fieldbyname('PRTPrice').AsFloat;
|
|||
|
|
fieldbyname('Money').Value:=Order_MLJG.Fieldbyname('Money').AsFloat;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
with Order_FL do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
if Trim(Order_FL.fieldbyname('YGID').AsString)='' then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOTemp,Fmaxno,'FL','JYOrderCon_YGCB',4,1)=False then
|
|||
|
|
begin
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
Fmaxno:=Trim(Order_FL.fieldbyname('YGID').AsString);
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select * from JYOrderCon_YGCB where YGID='''+Trim(Fmaxno)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
if isempty then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('MainId').Value:=Trim(maxno);
|
|||
|
|
fieldbyname('YGID').Value:=Trim(Fmaxno);
|
|||
|
|
FieldByName('CBType').Value:='<27><><EFBFBD><EFBFBD>';
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
Edit;
|
|||
|
|
SSetSaveDataCDSBandNew(ADOCmd,Tv4,Order_FL,'JYOrderCon_YGCB',0);
|
|||
|
|
fieldbyname('XLQty').Value:=Order_FL.Fieldbyname('XLQty').AsFloat;
|
|||
|
|
fieldbyname('PRTPrice').Value:=Order_FL.Fieldbyname('PRTPrice').AsFloat;
|
|||
|
|
fieldbyname('Money').Value:=Order_FL.Fieldbyname('Money').AsFloat;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
with Order_CBJG do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
if Trim(Order_CBJG.fieldbyname('YGID').AsString)='' then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOTemp,Xmaxno,'FY','JYOrderCon_YGCB',4,1)=False then
|
|||
|
|
begin
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
Xmaxno:=Trim(Order_CBJG.fieldbyname('YGID').AsString);
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add('select * from JYOrderCon_YGCB where YGID='''+Trim(Xmaxno)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
if isempty then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('MainId').Value:=Trim(maxno);
|
|||
|
|
fieldbyname('YGID').Value:=Trim(Xmaxno);
|
|||
|
|
FieldByName('CBType').Value:='<27><><EFBFBD><EFBFBD>';
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
Edit;
|
|||
|
|
SSetSaveDataCDSBandNew(ADOCmd,Tv5,Order_CBJG,'JYOrderCon_YGCB',0);
|
|||
|
|
// fieldbyname('Qty').Value:=Order_CBJG.Fieldbyname('Qty').AsFloat;
|
|||
|
|
// fieldbyname('PRTPrice').Value:=Order_CBJG.Fieldbyname('PRTPrice').AsFloat;
|
|||
|
|
fieldbyname('Money').Value:=Order_CBJG.Fieldbyname('Money').AsFloat;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
ADOCmd.Connection.CommitTrans;
|
|||
|
|
Result:=True;
|
|||
|
|
except;
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Result:=False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.TBSaveClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Toolbar1.SetFocus;
|
|||
|
|
|
|||
|
|
if SaveData() then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
|
|||
|
|
ModalResult:=1;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.v1PRTColorPropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
|||
|
|
with frmZDYHelp do
|
|||
|
|
begin
|
|||
|
|
flag:='OrdColor';
|
|||
|
|
flagname:='<27><>ɫ';
|
|||
|
|
V1Name.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
V1Note.Caption:='Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
|||
|
|
fnote:=True;
|
|||
|
|
MainType:=Trim(DName);
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
Self.Order_Sub.Edit;
|
|||
|
|
Self.Order_Sub.FieldByName('PRTColor').Value:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
|||
|
|
Self.Order_Sub.FieldByName('SOrdDefStr4').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmZDYHelp.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.v1OrderUnitPropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
|||
|
|
with frmZDYHelp do
|
|||
|
|
begin
|
|||
|
|
flag:='OrderUnit';
|
|||
|
|
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
Self.Order_Sub.Edit;
|
|||
|
|
Self.Order_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
|||
|
|
//FOrdUnit:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmZDYHelp.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.v1PriceUnitPropertiesButtonClick(Sender: TObject;
|
|||
|
|
AButtonIndex: Integer);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
|||
|
|
with frmZDYHelp do
|
|||
|
|
begin
|
|||
|
|
flag:='PriceUnit';
|
|||
|
|
flagname:='<27>۸<EFBFBD><DBB8><EFBFBD>λ';
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
Self.Order_Sub.Edit;
|
|||
|
|
Self.Order_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmZDYHelp.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.v1PRTPricePropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxTextEdit(Sender).EditingText;
|
|||
|
|
if mavlue='' then
|
|||
|
|
mavlue:='0';
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('PRTPrice').Value:=mavlue;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('ConMXMoney').Value:=FieldByName('PRTOrderQty').AsFloat*FieldByName('PRTPrice').AsFloat;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('RMBMoney').Value:=FieldByName('Huilv').AsFloat*FieldByName('ConMXMoney').AsFloat;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.V1HuilvPropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxTextEdit(Sender).EditingText;
|
|||
|
|
if mavlue='' then
|
|||
|
|
mavlue:='0';
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('Huilv').Value:=mavlue;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('RMBMoney').Value:=FieldByName('Huilv').AsFloat*FieldByName('ConMXMoney').AsFloat;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.ToolButton7Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
with Order_ZL do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.ToolButton5Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
with Order_MLJG do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.ToolButton3Click(Sender: TObject);
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
with Order_FL do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.ToolButton9Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
with Order_CBJG do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.TV2QtyPropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue,FFieldName:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxTextEdit(Sender).EditingText;
|
|||
|
|
FFieldName:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
|||
|
|
if mavlue='' then
|
|||
|
|
mavlue:='0';
|
|||
|
|
with Order_ZL do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName(FFieldName).Value:=mavlue;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
with Order_ZL do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('XLQty').Value:=FieldByName('Qty').AsFloat*FieldByName('SunHao').AsFloat;
|
|||
|
|
FieldByName('Money').Value:=FieldByName('Qty').AsFloat*FieldByName('PRTPrice').AsFloat;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
tv2.Controller.EditingController.ShowEdit();
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.TV3QtyPropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue,FFieldName:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxTextEdit(Sender).EditingText;
|
|||
|
|
FFieldName:=Tv3.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
|||
|
|
if mavlue='' then
|
|||
|
|
mavlue:='0';
|
|||
|
|
with Order_MLJG do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName(FFieldName).Value:=mavlue;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
with Order_MLJG do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('Money').Value:=FieldByName('Qty').AsFloat*FieldByName('PRTPrice').AsFloat;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
tv3.Controller.EditingController.ShowEdit();
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.TV4XLQtyPropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue,FFieldName:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxTextEdit(Sender).EditingText;
|
|||
|
|
FFieldName:=Tv4.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
|||
|
|
if mavlue='' then
|
|||
|
|
mavlue:='0';
|
|||
|
|
with Order_FL do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName(FFieldName).Value:=mavlue;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
with Order_FL do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('Money').Value:=FieldByName('XLQty').AsFloat*FieldByName('PRTPrice').AsFloat;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
tv4.Controller.EditingController.ShowEdit();
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.TV5QtyPropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue,FFieldName:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxTextEdit(Sender).EditingText;
|
|||
|
|
FFieldName:=Tv5.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
|||
|
|
if mavlue='' then
|
|||
|
|
mavlue:='0';
|
|||
|
|
with Order_CBJG do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName(FFieldName).Value:=mavlue;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
with Order_CBJG do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('Money').Value:=FieldByName('Qty').AsFloat*FieldByName('PRTPrice').AsFloat;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
tv5.Controller.EditingController.ShowEdit();
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.BGYSFeePropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxCurrencyEdit(Sender).EditingText;
|
|||
|
|
if mavlue='' then mavlue:='0';
|
|||
|
|
BGYSFee.Text:=mavlue;
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.OtherMoneyPropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxCurrencyEdit(Sender).EditingText;
|
|||
|
|
if mavlue='' then mavlue:='0';
|
|||
|
|
OtherMoney.Text:=mavlue;
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.KPYGMoneyPropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxCurrencyEdit(Sender).EditingText;
|
|||
|
|
if mavlue='' then mavlue:='0';
|
|||
|
|
KPYGMoney.Text:=mavlue;
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.ToolButton6Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Order_MLJG.IsEmpty then Exit;
|
|||
|
|
if Trim(Order_MLJG.fieldbyname('YGID').AsString)<>'' then
|
|||
|
|
begin
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete JYOrderCon_YGCB where YGID='''+Trim(Order_MLJG.fieldbyname('YGID').AsString)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_MLJG.Delete;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.ToolButton4Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Order_FL.IsEmpty then Exit;
|
|||
|
|
if Trim(Order_FL.fieldbyname('YGID').AsString)<>'' then
|
|||
|
|
begin
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete JYOrderCon_YGCB where YGID='''+Trim(Order_FL.fieldbyname('YGID').AsString)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_FL.Delete;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.ToolButton8Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Order_ZL.IsEmpty then Exit;
|
|||
|
|
if Trim(Order_ZL.fieldbyname('YGID').AsString)<>'' then
|
|||
|
|
begin
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete JYOrderCon_YGCB where YGID='''+Trim(Order_ZL.fieldbyname('YGID').AsString)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_ZL.Delete;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.ToolButton10Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Order_CBJG.IsEmpty then Exit;
|
|||
|
|
if Trim(Order_CBJG.fieldbyname('YGID').AsString)<>'' then
|
|||
|
|
begin
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete JYOrderCon_YGCB where YGID='''+Trim(Order_CBJG.fieldbyname('YGID').AsString)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_CBJG.Delete;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.SOrdQty8PropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxCurrencyEdit(Sender).EditingText;
|
|||
|
|
if mavlue='' then mavlue:='0';
|
|||
|
|
SOrdQty8.Text:=mavlue;
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.KPFeeLVPropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxCurrencyEdit(Sender).EditingText;
|
|||
|
|
if mavlue='' then mavlue:='0';
|
|||
|
|
KPFeeLV.Text:=mavlue;
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.ToolButton1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
frmCPManageSel:=TfrmCPManageSel.create(self);
|
|||
|
|
with frmCPManageSel do
|
|||
|
|
begin
|
|||
|
|
if showmodal=1 then
|
|||
|
|
begin
|
|||
|
|
CDS_Main.DisableControls;
|
|||
|
|
with CDS_Main do
|
|||
|
|
begin
|
|||
|
|
first;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
if FieldByName('Ssel').AsBoolean=true then
|
|||
|
|
begin
|
|||
|
|
with Self.Order_Sub do
|
|||
|
|
begin
|
|||
|
|
append;
|
|||
|
|
FieldByName('PrtCode').Value:=Trim(CDS_Main.fieldbyname('CYNo').AsString);
|
|||
|
|
FieldByName('PrtCodeName').Value:=Trim(CDS_Main.fieldbyname('CYName').AsString);
|
|||
|
|
FieldByName('PRTCodeNameEng').Value:=Trim(CDS_Main.fieldbyname('CYEName').AsString);
|
|||
|
|
FieldByName('PRTspec').Value:=Trim(CDS_Main.fieldbyname('CYSpec').AsString);
|
|||
|
|
FieldByName('PRTMF').Value:=Trim(CDS_Main.fieldbyname('CYMF').AsString);
|
|||
|
|
FieldByName('PRTKZ').Value:=Trim(CDS_Main.fieldbyname('CYKZ').AsString);
|
|||
|
|
FieldByName('PriceUnit').Value:='RMB';
|
|||
|
|
FieldByName('OrderUnit').Value:='M';
|
|||
|
|
FieldByName('Huilv').Value:='1.0';
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
CDS_Main.DisableControls;
|
|||
|
|
end;
|
|||
|
|
free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.ToolButton2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Order_Sub.IsEmpty then Exit;
|
|||
|
|
if ( Trim(Order_Sub.fieldbyname('Subid').AsString)<>'' ) then
|
|||
|
|
begin
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('delete JYOrderCon_Sub_JG where Subid='''+Trim(Order_Sub.fieldbyname('Subid').AsString)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.Delete;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.SKTypeBtnClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
frmZDYHelp:=TfrmZDYHelp.Create(self);
|
|||
|
|
with frmZDYHelp do
|
|||
|
|
begin
|
|||
|
|
flag:='SKType';
|
|||
|
|
flagname:='<27>տʽ';
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
SKType.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
|||
|
|
end;
|
|||
|
|
free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.V1PRTOrderQtyPropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxTextEdit(Sender).EditingText;
|
|||
|
|
if mavlue='' then
|
|||
|
|
mavlue:='0';
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('PRTOrderQty').Value:=mavlue;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('ConMXMoney').Value:=FieldByName('PRTOrderQty').AsFloat*FieldByName('PRTPrice').AsFloat;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('RMBMoney').Value:=FieldByName('Huilv').AsFloat*FieldByName('ConMXMoney').AsFloat;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
tv1.Controller.EditingController.ShowEdit();
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.CustomerNoNameBtnUpClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmZdyAttachment:=TfrmZdyAttachment.Create(Application);
|
|||
|
|
with frmZdyAttachment do
|
|||
|
|
begin
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
CustomerNoName.Text:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
|
|||
|
|
CustomerNoName.TxtCode:=Trim(CDS_HZ.fieldbyname('ZdyCode').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmZdyAttachment.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.TBDYZHClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmProductOrderListSel:=TfrmProductOrderListSel.create(self);
|
|||
|
|
with frmProductOrderListSel do
|
|||
|
|
begin
|
|||
|
|
if showmodal=1 then
|
|||
|
|
begin
|
|||
|
|
Order_Main.DisableControls;
|
|||
|
|
with Order_Main do
|
|||
|
|
begin
|
|||
|
|
first;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
if ( FieldByName('SSel').AsBoolean=true ) then
|
|||
|
|
begin
|
|||
|
|
with Self.Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('PrtCode').Value:=Trim(Order_Main.fieldbyname('MPRTCode').AsString);
|
|||
|
|
FieldByName('PrtCodeName').Value:=Trim(Order_Main.fieldbyname('MPRTCodeName').AsString);
|
|||
|
|
FieldByName('PRTCodeNameEng').Value:=Trim(Order_Main.fieldbyname('PRTEName').AsString);
|
|||
|
|
FieldByName('PRTspec').Value:=Trim(Order_Main.fieldbyname('MPRTSpec').AsString);
|
|||
|
|
FieldByName('PRTMF').Value:=Trim(Order_Main.fieldbyname('MPRTMF').AsString);
|
|||
|
|
FieldByName('PRTKZ').Value:=Trim(Order_Main.fieldbyname('MPRTKZ').AsString);
|
|||
|
|
FieldByName('PRTColor').Value:=Trim(Order_Main.fieldbyname('PRTColor').AsString);
|
|||
|
|
FieldByName('PRTHX').Value:=Trim(Order_Main.fieldbyname('PRTHX').AsString);
|
|||
|
|
FieldByName('PRTOrderQty').Value:=Order_Main.fieldbyname('PRTOrderQty').AsFloat;
|
|||
|
|
FieldByName('OrderUnit').Value:=Trim(Order_Main.fieldbyname('OrderUnit').AsString);
|
|||
|
|
FieldByName('PriceUnit').Value:=Trim(Order_Main.fieldbyname('PriceUnit1').AsString);
|
|||
|
|
FieldByName('PRTPrice').Value:=Order_Main.fieldbyname('PRTPrice').AsFloat;
|
|||
|
|
FieldByName('ConMXMoney').Value:=RoundFloat((Order_Main.fieldbyname('PRTOrderQty').AsFloat * Order_Main.fieldbyname('PRTPrice').AsFloat),2);
|
|||
|
|
FieldByName('RMBMoney').Value:=RoundFloat((Order_Main.fieldbyname('PRTOrderQty').AsFloat * Order_Main.fieldbyname('PRTPrice').AsFloat),2);
|
|||
|
|
FieldByName('Huilv').Value:='1.0';
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Main.DisableControls;
|
|||
|
|
Self.HJ();
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmProductOrderListSel.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.tv5MoneyPropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue,FFieldName:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxTextEdit(Sender).EditingText;
|
|||
|
|
FFieldName:=Tv5.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
|||
|
|
if mavlue='' then
|
|||
|
|
mavlue:='0';
|
|||
|
|
with Order_CBJG do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName(FFieldName).Value:=mavlue;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
tv5.Controller.EditingController.ShowEdit();
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmConInPut_CBYG.V2Column1PropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var mavlue,FFieldName:string;
|
|||
|
|
begin
|
|||
|
|
mavlue:=TcxTextEdit(Sender).EditingText;
|
|||
|
|
FFieldName:=Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
|||
|
|
if mavlue='' then
|
|||
|
|
mavlue:='0';
|
|||
|
|
if ( (FFieldName='SunHao') and (StrToFloatDef(mavlue,0)>=1) ) then
|
|||
|
|
begin
|
|||
|
|
mavlue:='0';
|
|||
|
|
Application.MessageBox('<27><><EFBFBD>IJ<EFBFBD><C4B2>ܴ<EFBFBD><DCB4>ڵ<EFBFBD><DAB5><EFBFBD>1<EFBFBD><31>','<27><>ʾ',0);
|
|||
|
|
end;
|
|||
|
|
with Order_ZL do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName(FFieldName).Value:=mavlue;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
with Order_ZL do
|
|||
|
|
begin
|
|||
|
|
edit;
|
|||
|
|
FieldByName('Qty').Value:=RoundFloat((FieldByName('OrderQty').AsFloat/(1-FieldByName('SunHao').AsFloat)),2);
|
|||
|
|
FieldByName('XLQty').Value:=RoundFloat((FieldByName('Qty').AsFloat - FieldByName('OrderQty').AsFloat),2);
|
|||
|
|
FieldByName('Money').Value:=RoundFloat((FieldByName('Qty').AsFloat*FieldByName('PRTPrice').AsFloat),2);
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
tv2.Controller.EditingController.ShowEdit();
|
|||
|
|
HJ();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|