750 lines
26 KiB
ObjectPascal
750 lines
26 KiB
ObjectPascal
unit U_CP_YDang_BJ_Sub;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, ComCtrls, ToolWin, ExtCtrls, cxStyles, cxCustomData, cxGraphics,
|
||
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxButtonEdit,
|
||
DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, cxGridLevel,
|
||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
|
||
cxControls, cxGridCustomView, cxGrid, StdCtrls, BtnEdit, cxDropDownEdit,
|
||
cxCurrencyEdit, cxTextEdit, cxContainer, cxImage, cxImageComboBox;
|
||
|
||
type
|
||
TfrmCP_YDang_BJ_Sub = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
Tsave: TToolButton;
|
||
TClose: TToolButton;
|
||
Panel1: TPanel;
|
||
ToolBar2: TToolBar;
|
||
TAdd: TToolButton;
|
||
TDel: TToolButton;
|
||
ADOQueryTmp: TADOQuery;
|
||
ADOQueryCMD: TADOQuery;
|
||
DataSource1: TDataSource;
|
||
contract_Sub: TClientDataSet;
|
||
Label4: TLabel;
|
||
SQdate: TDateTimePicker;
|
||
Label6: TLabel;
|
||
SQ: TBtnEditA;
|
||
Label8: TLabel;
|
||
ConPerson1: TBtnEditA;
|
||
JGprice: TEdit;
|
||
afterprice: TEdit;
|
||
JGafter: TEdit;
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
Label15: TLabel;
|
||
CustomerNoName: TBtnEditA;
|
||
Label1: TLabel;
|
||
BJNote: TMemo;
|
||
cxGrid1: TcxGrid;
|
||
TV1: TcxGridDBTableView;
|
||
V1PRTCodeName: TcxGridDBColumn;
|
||
V1PRTSpec: TcxGridDBColumn;
|
||
V1PriceUnit: TcxGridDBColumn;
|
||
V1PRTCF: TcxGridDBColumn;
|
||
V1PRTOrderQty: TcxGridDBColumn;
|
||
V1OrderUnit: TcxGridDBColumn;
|
||
V1MFQty: TcxGridDBColumn;
|
||
V1KZQty: TcxGridDBColumn;
|
||
V1SOrdQty1: TcxGridDBColumn;
|
||
V1SOrdQty5: TcxGridDBColumn;
|
||
V1SOrdQty6: TcxGridDBColumn;
|
||
V1SOrdQty7: TcxGridDBColumn;
|
||
V1SOrdQty8: TcxGridDBColumn;
|
||
V1SOrdQty9: TcxGridDBColumn;
|
||
V1SOrdQty10: TcxGridDBColumn;
|
||
V1SOrdQty11: TcxGridDBColumn;
|
||
V1SOrdQty12: TcxGridDBColumn;
|
||
V1SOrdQty13: TcxGridDBColumn;
|
||
V1Note: TcxGridDBColumn;
|
||
cxGridLevel1: TcxGridLevel;
|
||
V1SOrdQty2: TcxGridDBColumn;
|
||
Label2: TLabel;
|
||
BJtime: TDateTimePicker;
|
||
V1BJXS: TcxGridDBColumn;
|
||
V1PBMF: TcxGridDBColumn;
|
||
V1PBKZ: TcxGridDBColumn;
|
||
V1PBSPEC: TcxGridDBColumn;
|
||
V1PRTCode: TcxGridDBColumn;
|
||
V1BJPrice: TcxGridDBColumn;
|
||
CustomerNo: TEdit;
|
||
V1SOrddefstr1: TcxGridDBColumn;
|
||
V1CBPrice: TcxGridDBColumn;
|
||
V1HuiLv: TcxGridDBColumn;
|
||
V1BJEPrice: TcxGridDBColumn;
|
||
V1QDLQty: TcxGridDBColumn;
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure TCloseClick(Sender: TObject);
|
||
procedure TAddClick(Sender: TObject);
|
||
procedure TDelClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TsaveClick(Sender: TObject);
|
||
procedure TVOrderUnitPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure ConPerson1BtnClick(Sender: TObject);
|
||
procedure CustomerNoNameBtnClick(Sender: TObject);
|
||
procedure V1PRTCodePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure V1YPNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure V1PRTSpecPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure V1PRTCodeNamePropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure V1OrderUnitPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure V1BJXSPropertiesEditValueChanged(Sender: TObject);
|
||
procedure V1SOrddefstr1PropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure V1SOrdQty1PropertiesEditValueChanged(Sender: TObject);
|
||
procedure V1SOrdQty2PropertiesEditValueChanged(Sender: TObject);
|
||
procedure V1PriceUnitPropertiesButtonClick(Sender: TObject;
|
||
AButtonIndex: Integer);
|
||
procedure V1PriceUnitPropertiesEditValueChanged(Sender: TObject);
|
||
private
|
||
procedure InitData();
|
||
function SaveData():Boolean;
|
||
{ Private declarations }
|
||
public
|
||
formid: integer;
|
||
Fint: integer;
|
||
FMainid: string;
|
||
fTYPE: string;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmCP_YDang_BJ_Sub: TfrmCP_YDang_BJ_Sub;
|
||
|
||
implementation
|
||
|
||
uses U_fun, U_ZDYHelp,U_DataLink,U_ZDYHelpSel,U_CPManage_BJ, U_FileUp_SQ;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.Initdata();
|
||
begin
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from CP_YDang_BJ_Main where Mainid='''+trim(FMainid)+'''');
|
||
open;
|
||
if not isempty then
|
||
begin
|
||
BJTIME.DateTime:=fieldbyname('BJTIME').AsDateTime;
|
||
BJNOTE.Text:=trim(fieldbyname('BJnote').AsString);
|
||
CustomerNoName.Text:=trim(fieldbyname('CustomerNoName').asstring);
|
||
ConPerson1.Text:=trim(fieldbyname('ConPerson1').asstring);
|
||
end;
|
||
end;
|
||
with ADOQueryCmd do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.Add('select * from CP_YDang_BJ_Sub ');
|
||
//sql.add('left join TP_File TP on TP.WBID=A.SOrddefstr1 ');
|
||
sql.Add(' where Mainid='''+trim(FMainid)+'''');
|
||
open;
|
||
end;
|
||
SCreateCDS20(ADOQuerycmd,contract_Sub);
|
||
SInitCDSData20(ADOQuerycmd,contract_Sub);
|
||
end;
|
||
|
||
function TfrmCP_YDang_BJ_Sub.SaveData(): boolean;
|
||
var FSubid: string;
|
||
begin
|
||
try
|
||
ADOQueryCmd.Connection.BeginTrans;
|
||
if Trim(FMainId)='' then
|
||
begin
|
||
if GetLSNo(ADOQueryCmd,FMainId,'BJ','CP_YDang_BJ_Main',3,1)=False then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
with ADOQuerycmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.add('select * from CP_YDang_BJ_Main where Mainid='''+trim(Fmainid)+'''');
|
||
open;
|
||
if isempty then
|
||
begin
|
||
append;
|
||
fieldbyname('filltime').AsDateTime:=SGetServerDateTime(ADOQueryTmp);
|
||
fieldbyname('filler').asstring:=trim(DName);
|
||
end
|
||
else
|
||
begin
|
||
edit;
|
||
end;
|
||
SSetsaveSqlNew(ADOQuerycmd,'CP_YDang_BJ_Main',Panel1,2);
|
||
fieldbyname('Mainid').AsString:=trim(Fmainid);
|
||
if formid<>99 then
|
||
fieldbyname('status').AsString:='0'
|
||
else
|
||
fieldbyname('status').AsString:='1';
|
||
post;
|
||
end;
|
||
with contract_Sub do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(contract_sub.fieldbyname('SubId').AsString)='' then
|
||
begin
|
||
if GetLSNo(ADOQueryCmd,FSubid,'B','CP_YDang_BJ_Sub',3,1)=False then
|
||
begin
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
Fsubid:=trim(contract_sub.fieldbyname('subID').asstring);
|
||
end;
|
||
with ADOQuerycmd do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from CP_YDang_BJ_Sub where Mainid='''+trim(Fmainid)+''' ');
|
||
sql.Add('and Subid='''+trim(FSubid)+'''');
|
||
open;
|
||
if isempty then
|
||
begin
|
||
append;
|
||
end
|
||
else
|
||
begin
|
||
edit;
|
||
end;
|
||
fieldbyname('Mainid').AsString:=trim(Fmainid);
|
||
fieldbyname('Subid').asstring:=trim(Fsubid);
|
||
RTSetSaveDataCDS(ADOQueryCmd,Tv1,contract_Sub,'CP_YDang_BJ_Sub',0);
|
||
fieldbyname('PRTOrderQty').Value:=contract_sub.fieldbyname('PRTOrderQty').AsFloat;
|
||
fieldbyname('SOrdQty1').Value:=contract_sub.fieldbyname('SOrdQty1').AsFloat;
|
||
fieldbyname('BJEPrice').Value:=contract_sub.fieldbyname('BJEPrice').AsFloat;
|
||
fieldbyname('SOrdQty2').Value:=contract_sub.fieldbyname('SOrdQty2').AsFloat;
|
||
fieldbyname('SOrdQty3').Value:=contract_sub.fieldbyname('SOrdQty3').AsFloat;
|
||
fieldbyname('SOrdQty4').Value:=contract_sub.fieldbyname('SOrdQty4').AsFloat;
|
||
fieldbyname('SOrdQty5').Value:=contract_sub.fieldbyname('SOrdQty5').AsFloat;
|
||
fieldbyname('SOrdQty6').Value:=contract_sub.fieldbyname('SOrdQty6').AsFloat;
|
||
fieldbyname('SOrdQty7').Value:=contract_sub.fieldbyname('SOrdQty7').AsFloat;
|
||
fieldbyname('SOrdQty8').Value:=contract_sub.fieldbyname('SOrdQty8').AsFloat;
|
||
fieldbyname('SOrdQty9').Value:=contract_sub.fieldbyname('SOrdQty9').AsFloat;
|
||
fieldbyname('SOrdQty10').Value:=contract_sub.fieldbyname('SOrdQty10').AsFloat;
|
||
fieldbyname('SOrdQty11').Value:=contract_sub.fieldbyname('SOrdQty11').AsFloat;
|
||
fieldbyname('SOrdQty12').Value:=contract_sub.fieldbyname('SOrdQty12').AsFloat;
|
||
fieldbyname('SOrdQty13').Value:=contract_sub.fieldbyname('SOrdQty13').AsFloat;
|
||
fieldbyname('SOrdQty14').Value:=contract_sub.fieldbyname('SOrdQty14').AsFloat;
|
||
fieldbyname('SOrdQty15').Value:=contract_sub.fieldbyname('SOrdQty15').AsFloat;
|
||
fieldbyname('QDLQty').Value:=contract_sub.fieldbyname('QDLQty').AsFloat;
|
||
fieldbyname('PBMF').Value:=contract_sub.fieldbyname('PBMF').AsFloat;
|
||
fieldbyname('PBKZ').Value:=contract_sub.fieldbyname('PBKZ').AsFloat;
|
||
fieldbyname('BJXS').Value:=contract_sub.fieldbyname('BJXS').AsFloat;
|
||
fieldbyname('Huilv').Value:=contract_sub.fieldbyname('Huilv').AsFloat;
|
||
fieldbyname('CBPrice').Value:=contract_sub.fieldbyname('SOrdQty2').AsFloat/(1-contract_sub.fieldbyname('SOrdQty1').AsFloat/100)
|
||
+contract_sub.fieldbyname('SOrdQty5').AsFloat+contract_sub.fieldbyname('SOrdQty6').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty7').AsFloat+contract_sub.fieldbyname('SOrdQty8').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty9').AsFloat+contract_sub.fieldbyname('SOrdQty10').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty11').AsFloat+contract_sub.fieldbyname('SOrdQty12').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty13').AsFloat;
|
||
if contract_sub.fieldbyname('Huilv').AsFloat<>0 then
|
||
fieldbyname('BJPrice').Value:=fieldbyname('CBPrice').AsFloat*contract_sub.fieldbyname('BJXS').AsFloat/contract_sub.FieldByName('Huilv').AsFloat
|
||
else
|
||
fieldbyname('BJPrice').Value:=contract_sub.fieldbyname('BJPrice').AsFloat;
|
||
post;
|
||
end;
|
||
contract_sub.Edit;
|
||
contract_sub.FieldByName('SubId').Value:=Trim(FSubid);
|
||
Next;
|
||
end;
|
||
end;
|
||
ADOQueryCmd.Connection.CommitTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ');
|
||
ModalResult:=1;
|
||
except
|
||
ADOQueryCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ');
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.FormCreate(Sender: TObject);
|
||
begin
|
||
cxgrid1.Align:=alclient;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.TCloseClick(Sender: TObject);
|
||
begin
|
||
close;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.TAddClick(Sender: TObject);
|
||
begin
|
||
with contract_Sub do
|
||
begin
|
||
append;
|
||
post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.TDelClick(Sender: TObject);
|
||
begin
|
||
IF Contract_Sub.IsEmpty then exit;
|
||
with ADOQueryTmp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.add('delete from CP_YDang_BJ_Sub where Subid='+quotedstr(trim(contract_Sub.fieldbyname('Subid').AsString)));
|
||
execsql;
|
||
end;
|
||
contract_Sub.delete;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.FormShow(Sender: TObject);
|
||
begin
|
||
ReadCxGrid(self.Caption+tv1.Name,Tv1);
|
||
SQdate.DateTime:=SGetServerDateTime(ADOQueryTmp);
|
||
BJtime.DateTime:=SGetServerDateTime(ADOQueryTmp);
|
||
ConPerson1.Text:=trim(DName);
|
||
if Formid<>99 then
|
||
begin
|
||
V1PriceUnit.Visible:=False;
|
||
V1BJPrice.Options.Editing:=False;
|
||
V1CBPrice.Visible:=False;
|
||
//2V1BJEPrice.Visible:=False;
|
||
V1HuiLv.Visible:=False;
|
||
V1BJXS.Visible:=False;
|
||
V1PBMF.Visible:=False;
|
||
V1PBKZ.Visible:=False;
|
||
V1BJPrice.visible:=False;
|
||
V1PBSPEC.Visible:=False;
|
||
V1SOrdQty1.Visible:=False;
|
||
V1SOrdQty2.Visible:=False;
|
||
V1SOrdQty5.Visible:=False;
|
||
V1SOrdQty6.Visible:=False;
|
||
V1SOrdQty7.Visible:=False;
|
||
V1SOrdQty8.Visible:=False;
|
||
V1SOrdQty9.Visible:=False;
|
||
V1SOrdQty10.Visible:=False;
|
||
V1SOrdQty11.Visible:=False;
|
||
V1SOrdQty12.Visible:=False;
|
||
V1SOrdQty13.Visible:=False;
|
||
end;
|
||
Initdata();
|
||
if Formid=99 then
|
||
begin
|
||
BJtime.DateTime:=SGetServerDateTime(ADOQueryTmp);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.TsaveClick(Sender: TObject);
|
||
begin
|
||
writeCxGrid(ftype,Tv1,'<27><><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>');
|
||
if CustomerNoName.Text='' then
|
||
begin
|
||
application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>','');
|
||
exit;
|
||
end;
|
||
if contract_sub.IsEmpty then
|
||
begin
|
||
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
SaveData();
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.TVOrderUnitPropertiesButtonClick(
|
||
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.contract_Sub.Edit;
|
||
Self.contract_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.FormClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
writeCxGrid(self.Caption+tv1.Name,Tv1);
|
||
Action:=cafree;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmCP_YDang_BJ_Sub:=nil;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.ConPerson1BtnClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flagname:='ҵ<><D2B5>Ա';
|
||
flag:='ConPerson1';
|
||
if ShowModal=1 then
|
||
begin
|
||
ConPerson1.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.CustomerNoNameBtnClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flagname:='<27>ͻ<EFBFBD>';
|
||
flag:='CustomerNoName';
|
||
if Trim(DParameters1)<>'<27><>Ȩ<EFBFBD><C8A8>' then
|
||
MainType:=Trim(DName);
|
||
fnote:=True;
|
||
V1Name.Caption:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
|
||
V1Note.Caption:='<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
CustomerNoName.Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
CustomerNoName.TxtCode:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||
CustomerNo.Text:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.V1PRTCodePropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flagname:='<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
|
||
flag:='PRTCode';
|
||
fnote:=true;
|
||
V1Note.Caption:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
V1Name.Caption:='<27><><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.contract_Sub.Edit;
|
||
Self.contract_Sub.FieldByName('PRTCode').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
Self.contract_Sub.FieldByName('PRTCodeName').Value:=Trim(ClientDataSet1.fieldbyname('Note').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.V1YPNamePropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flagname:='<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>';
|
||
flag:='YPName';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.contract_Sub.Edit;
|
||
Self.contract_Sub.FieldByName('YPName').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.V1PRTSpecPropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='PRTSpec';
|
||
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD>ͺ<EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.contract_Sub.Edit;
|
||
Self.contract_Sub.FieldByName('PRTSpec').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.V1PRTCodeNamePropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
FrmCPManage_BJ:=TFrmCPManage_BJ.create(Self);
|
||
with FrmCPManage_BJ do
|
||
begin
|
||
if showmodal=1 then
|
||
begin
|
||
with ADOQueryTmp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select Top 1 A.* from CP_YDang_BJ_Sub A ');
|
||
Sql.add('inner join CP_YDang_BJ_Main B on B.Mainid=A.Mainid ');
|
||
sql.add('where A.PRTCode='''+trim(FrmCPManage_BJ.CDS_Main.fieldbyname('CYNo').AsString)+'''');
|
||
sql.add(' and B.status<>0');
|
||
sql.add(' order by B.Filltime desc');
|
||
open;
|
||
end;
|
||
if ADOqueryTmp.IsEmpty=false then
|
||
begin
|
||
with contract_Sub do
|
||
begin
|
||
Edit;
|
||
Fieldbyname('PRTCodeName').Value:=ADOQueryTmp.fieldbyname('PRTCodeName').asstring;
|
||
Fieldbyname('SOrddefstr1').Value:=ADOQueryTmp.fieldbyname('SOrddefstr1').asstring;
|
||
Fieldbyname('PRTCode').Value:=ADOQueryTmp.fieldbyname('PRTCode').asstring;
|
||
Fieldbyname('PRTSpec').Value:=ADOQueryTmp.fieldbyname('PRTSpec').asstring;
|
||
Fieldbyname('PRTCF').Value:=ADOQueryTmp.fieldbyname('PRTCF').asstring;
|
||
Fieldbyname('PRTMF').Value:=ADOQueryTmp.fieldbyname('PRTMF').asstring;
|
||
Fieldbyname('PRTKZ').Value:=ADOQueryTmp.fieldbyname('PRTKZ').asstring;
|
||
Fieldbyname('SOrdQty1').Value:=ADOQueryTmp.fieldbyname('SOrdQty1').AsFloat;
|
||
Fieldbyname('SOrdQty2').Value:=ADOQueryTmp.fieldbyname('SOrdQty2').AsFloat;
|
||
Fieldbyname('OrderUnit').Value:=ADOQueryTmp.fieldbyname('OrderUnit').asstring;
|
||
Fieldbyname('PBSPEC').Value:=ADOQueryTmp.fieldbyname('PBSPEC').asstring;
|
||
Fieldbyname('PBMF').Value:=ADOQueryTmp.fieldbyname('PBMF').asstring;
|
||
Fieldbyname('PBKZ').Value:=ADOQueryTmp.fieldbyname('PBKZ').asstring;
|
||
Fieldbyname('BJXS').Value:=ADOQueryTmp.fieldbyname('BJXS').AsFloat;
|
||
Fieldbyname('BJPrice').Value:=ADOQueryTmp.fieldbyname('BJPrice').AsFloat;
|
||
Fieldbyname('PriceUnit').Value:=ADOQueryTmp.fieldbyname('PriceUnit').asstring;
|
||
Fieldbyname('HuiLv').Value:=ADOQueryTmp.fieldbyname('HuiLv').AsFloat;
|
||
Fieldbyname('CBPrice').Value:=ADOQueryTmp.fieldbyname('CBPrice').AsFloat;
|
||
Fieldbyname('SOrdQty5').Value:=ADOQueryTmp.fieldbyname('SOrdQty5').AsFloat;
|
||
Fieldbyname('SOrdQty6').Value:=ADOQueryTmp.fieldbyname('SOrdQty6').AsFloat;
|
||
Fieldbyname('SOrdQty7').Value:=ADOQueryTmp.fieldbyname('SOrdQty7').AsFloat;
|
||
Fieldbyname('SOrdQty8').Value:=ADOQueryTmp.fieldbyname('SOrdQty8').AsFloat;
|
||
Fieldbyname('SOrdQty9').Value:=ADOQueryTmp.fieldbyname('SOrdQty9').AsFloat;
|
||
Fieldbyname('SOrdQty10').Value:=ADOQueryTmp.fieldbyname('SOrdQty10').AsFloat;
|
||
Fieldbyname('SOrdQty11').Value:=ADOQueryTmp.fieldbyname('SOrdQty11').AsFloat;
|
||
Fieldbyname('SOrdQty12').Value:=ADOQueryTmp.fieldbyname('SOrdQty12').AsFloat;
|
||
Fieldbyname('SOrddefstr1').Value:=ADOQueryTmp.fieldbyname('SOrddefstr1').asstring;
|
||
Fieldbyname('SOrdQty13').Value:=ADOQueryTmp.fieldbyname('SOrdQty13').AsFloat;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
with contract_Sub do
|
||
begin
|
||
Edit;
|
||
Fieldbyname('PRTCodeName').Value:=CDS_Main.fieldbyname('CYName').asstring;
|
||
Fieldbyname('SOrddefstr1').Value:=CDS_Main.fieldbyname('WBID').asstring;
|
||
Fieldbyname('PRTCode').Value:=CDS_Main.fieldbyname('CYNo').asstring;
|
||
Fieldbyname('PRTSpec').Value:=CDS_Main.fieldbyname('CYSpec').asstring;
|
||
Fieldbyname('PRTCF').Value:=CDS_Main.fieldbyname('CYCF').asstring;
|
||
Fieldbyname('PRTMF').Value:=CDS_Main.fieldbyname('CYMF').asstring;
|
||
Fieldbyname('PRTKZ').Value:=CDS_Main.fieldbyname('CYKZ').asstring;
|
||
Fieldbyname('SOrdQty1').Value:=CDS_Main.fieldbyname('price1').AsFloat;
|
||
Fieldbyname('SOrdQty2').Value:=CDS_Main.fieldbyname('Price2').AsFloat;
|
||
end;
|
||
end;
|
||
end;
|
||
Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.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.contract_Sub.Edit;
|
||
Self.contract_Sub.FieldByName('OrderUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.V1BJXSPropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
Fieldname:string;
|
||
FXS:String;
|
||
begin
|
||
FXS:=floattostr(contract_sub.fieldbyname('SOrdQty2').AsFloat/(1-contract_sub.fieldbyname('SOrdQty1').AsFloat/100)
|
||
+contract_sub.fieldbyname('SOrdQty5').AsFloat+contract_sub.fieldbyname('SOrdQty6').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty7').AsFloat+contract_sub.fieldbyname('SOrdQty8').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty9').AsFloat+contract_sub.fieldbyname('SOrdQty10').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty11').AsFloat+contract_sub.fieldbyname('SOrdQty12').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty13').AsFloat);
|
||
Fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
||
|
||
with contract_Sub do
|
||
begin
|
||
edit;
|
||
fieldbyname(Fieldname).Value:=TcxTextEdit(Sender).EditingText;
|
||
FieldByName('CBPrice').Value:=strtofloat(format('%.2f',[strtofloat(FXS)]));
|
||
FieldByName('BJPrice').Value:=strtofloat(format('%.2f',[strtofloat(FXS)*Fieldbyname('BJXS').AsFloat]));
|
||
end;
|
||
//Tv1.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.V1SOrddefstr1PropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmFileUp_SQ:=TfrmFileUp_SQ.Create(Application);
|
||
with frmFileUp_SQ do
|
||
begin
|
||
Code.Text:=Trim(Self.contract_Sub.fieldbyname('PRTCode').AsString);
|
||
CYID:=Trim(Self.contract_Sub.fieldbyname('SOrddefstr1').AsString);
|
||
if ShowModal=1 then
|
||
begin
|
||
with contract_Sub do
|
||
begin
|
||
edit;
|
||
fieldbyname('SOrddefstr1').AsString:=Trim(ADOQueryFile.fieldbyname('CYID').asstring);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmFileUp_SQ.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.V1SOrdQty1PropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
Fieldname:string;
|
||
FXS:String;
|
||
begin
|
||
if trim(TcxTextEdit(Sender).EditingText)='' then
|
||
TcxTextEdit(Sender).EditingText:='0';
|
||
FXS:=floattostr(contract_sub.fieldbyname('SOrdQty2').AsFloat/(1-contract_sub.fieldbyname('SOrdQty1').AsFloat/100)
|
||
+contract_sub.fieldbyname('SOrdQty5').AsFloat+contract_sub.fieldbyname('SOrdQty6').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty7').AsFloat+contract_sub.fieldbyname('SOrdQty8').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty9').AsFloat+contract_sub.fieldbyname('SOrdQty10').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty11').AsFloat+contract_sub.fieldbyname('SOrdQty12').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty13').AsFloat);
|
||
Fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
||
|
||
with contract_Sub do
|
||
begin
|
||
edit;
|
||
fieldbyname(Fieldname).Value:=TcxTextEdit(Sender).EditingText;
|
||
FieldByName('CBPrice').Value:=strtofloat(format('%.2f',[strtofloat(FXS)]));
|
||
FieldByName('BJPrice').Value:=strtofloat(format('%.2f',[strtofloat(FXS)*Fieldbyname('BJXS').AsFloat]));
|
||
end;
|
||
Tv1.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.V1SOrdQty2PropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
Fieldname:string;
|
||
FXS:String;
|
||
begin
|
||
if TcxTextEdit(Sender).EditingText='' then
|
||
TcxTextEdit(Sender).EditingText:='0';
|
||
if contract_sub.fieldbyname('PriceUnit').AsString='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',0);
|
||
TcxTextEdit(Sender).EditingText:='0';
|
||
exit;
|
||
end;
|
||
Fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
||
with contract_Sub do
|
||
begin
|
||
edit;
|
||
fieldbyname(Fieldname).Value:=TcxTextEdit(Sender).EditingText;
|
||
FXS:=floattostr(contract_sub.fieldbyname('SOrdQty2').AsFloat/(1-contract_sub.fieldbyname('SOrdQty1').AsFloat/100)
|
||
+contract_sub.fieldbyname('SOrdQty5').AsFloat+contract_sub.fieldbyname('SOrdQty6').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty7').AsFloat+contract_sub.fieldbyname('SOrdQty8').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty9').AsFloat+contract_sub.fieldbyname('SOrdQty10').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty11').AsFloat+contract_sub.fieldbyname('SOrdQty12').AsFloat
|
||
+contract_sub.fieldbyname('SOrdQty13').AsFloat);
|
||
FieldByName('CBPrice').Value:=strtofloat(format('%.2f',[strtofloat(FXS)]));
|
||
if fieldbyname('Huilv').AsFloat<>0 then
|
||
FieldByName('BJPrice').Value:=strtofloat(format('%.2f',[strtofloat(FXS)*Fieldbyname('BJXS').AsFloat/FieldByName('Huilv').AsFloat]))
|
||
else
|
||
begin
|
||
FieldByName('BJPrice').Value:=0;
|
||
application.MessageBox('<27><><EFBFBD>ʲ<EFBFBD><CAB2><EFBFBD>Ϊ0','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
//FieldByName('BJEPrice').Value:=strtofloat(format('%.2f',[FieldByName('BJPrice').AsFloat*FieldByName('Huilv').AsFloat]));
|
||
end;
|
||
Tv1.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.V1PriceUnitPropertiesButtonClick(
|
||
Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='PriceUnit';
|
||
flagname:='<27><><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
Self.contract_Sub.Edit;
|
||
Self.contract_Sub.FieldByName('PriceUnit').Value:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCP_YDang_BJ_Sub.V1PriceUnitPropertiesEditValueChanged(
|
||
Sender: TObject);
|
||
var
|
||
Fieldname:string;
|
||
begin
|
||
Fieldname:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
||
with contract_Sub do
|
||
begin
|
||
edit;
|
||
fieldbyname(Fieldname).Value:=TcxTextEdit(Sender).EditingText;
|
||
if TcxTextEdit(Sender).EditingText='<27><>' then
|
||
begin
|
||
fieldbyname('Huilv').AsFloat:=1;
|
||
end;
|
||
end;
|
||
Tv1.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
end.
|