1373 lines
41 KiB
ObjectPascal
1373 lines
41 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, cxLookAndFeels, cxLookAndFeelPainters,
|
||
cxNavigator;
|
||
|
||
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;
|
||
ToolButton11: TToolButton;
|
||
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);
|
||
procedure ToolButton11Click(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, U_ClothContractListSel;
|
||
|
||
{$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;
|
||
|
||
if Order_CBJG.IsEmpty then
|
||
begin
|
||
with Order_CBJG do
|
||
begin
|
||
Append;
|
||
fieldbyname('PrtCodeName').value := '<27><><EFBFBD>˷<EFBFBD>/<2F><><EFBFBD>˷<EFBFBD>';
|
||
Post;
|
||
Append;
|
||
fieldbyname('PrtCodeName').value := '<27><>½<EFBFBD>˷<EFBFBD>';
|
||
Post;
|
||
Append;
|
||
fieldbyname('PrtCodeName').value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
Post;
|
||
Append;
|
||
fieldbyname('PrtCodeName').value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
Post;
|
||
Append;
|
||
fieldbyname('PrtCodeName').value := 'Ӷ<><D3B6>';
|
||
Post;
|
||
end;
|
||
|
||
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;
|
||
|
||
procedure TfrmConInPut_CBYG.ToolButton11Click(Sender: TObject);
|
||
begin
|
||
try
|
||
frmClothContractListSel := TfrmClothContractListSel.create(self);
|
||
with frmClothContractListSel do
|
||
begin
|
||
// Fwhere := '';
|
||
// with Order_Sub do
|
||
// begin
|
||
// First;
|
||
// while not eof do
|
||
// begin
|
||
// if Fwhere = '' then
|
||
// fwere := ' and JYOrderNo in ('
|
||
// else
|
||
// fwere := fwere + ' '''+Order_Sub.fieldbyname+''' ';
|
||
// end;
|
||
// end;
|
||
|
||
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_ZL do
|
||
begin
|
||
Append;
|
||
FieldByName('PrtCodeName').Value := Trim(Order_Main.fieldbyname('C_CodeName').AsString);
|
||
FieldByName('OrderQty').Value := Order_Main.fieldbyname('Qty').AsFloat;
|
||
FieldByName('SunHao').Value := StrToFloatDef(Order_Main.fieldbyname('YGSH').AsString, 0) / 100;
|
||
FieldByName('XLQty').Value := StrToFloatDef(Order_Main.fieldbyname('YGSH').AsString, 0) * StrToFloatDef(Order_Main.fieldbyname('Qty').AsString, 0) / 100;
|
||
FieldByName('Qty').Value := Order_Main.fieldbyname('Qty').AsFloat + StrToFloatDef(Order_Main.fieldbyname('YGSH').AsString, 0) * StrToFloatDef(Order_Main.fieldbyname('Qty').AsString, 0) / 100;
|
||
FieldByName('PRTPrice').Value := Order_Main.fieldbyname('Price').AsFloat;
|
||
FieldByName('Money').Value := Order_Main.fieldbyname('Money').AsFloat;
|
||
FieldByName('JHDate').AsDateTime := Order_Main.fieldbyname('DeliveryDate').asdatetime;
|
||
post;
|
||
end;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
Order_Main.DisableControls;
|
||
Self.HJ();
|
||
end;
|
||
end;
|
||
finally
|
||
frmClothContractListSel.Free;
|
||
end;
|
||
end;
|
||
|
||
end.
|
||
|