Group_01/D7YPDJlingyao
5
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
main
D7YPDJlingyao/贸易管理(TradeManage.dll)/U_ConInPut_CBYG.pas
DESKTOP-E401PHE\Administrator 43fbfa8db2 ~
2025-07-19 16:53:04 +08:00

1272 lines
37 KiB
ObjectPascal
Raw Permalink Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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.
Reference in New Issue View Git Blame Copy Permalink