1222 lines
33 KiB
ObjectPascal
1222 lines
33 KiB
ObjectPascal
unit U_frmCgBjPut;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, strutils, Variants, Classes, Graphics, Controls,
|
||
Forms, Dialogs, ComCtrls, ToolWin, StdCtrls, ExtCtrls, cxStyles, cxCustomData,
|
||
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxGridLevel,
|
||
cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
|
||
cxGridTableView, cxGridDBTableView, cxGrid, ADODB, cxGridCustomPopupMenu,
|
||
cxGridPopupMenu, DBClient, BtnEdit, cxBlobEdit, cxShellComboBox,
|
||
cxDropDownEdit, cxFontNameComboBox, cxButtonEdit, cxCurrencyEdit,
|
||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxScrollBox, cxTextEdit,
|
||
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
|
||
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
|
||
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
|
||
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
|
||
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
||
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
||
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||
dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||
|
||
type
|
||
TfrmCgBjPut = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TSave: TToolButton;
|
||
TClose: TToolButton;
|
||
TV1: TcxGridDBTableView;
|
||
cxGrid1Level1: TcxGridLevel;
|
||
cxGrid1: TcxGrid;
|
||
ToolBar2: TToolBar;
|
||
TAdd: TToolButton;
|
||
TDel: TToolButton;
|
||
ADOQueryTmp: TADOQuery;
|
||
ADOcmd: TADOQuery;
|
||
DataSource1: TDataSource;
|
||
Cds_Sub: TClientDataSet;
|
||
cxGridPopupMenu1: TcxGridPopupMenu;
|
||
V1Column6: TcxGridDBColumn;
|
||
Label6: TLabel;
|
||
Label7: TLabel;
|
||
Label15: TLabel;
|
||
Label17: TLabel;
|
||
Label18: TLabel;
|
||
ScrollBox1: TcxScrollBox;
|
||
Label26: TLabel;
|
||
Label27: TLabel;
|
||
Label28: TLabel;
|
||
Label29: TLabel;
|
||
Label30: TLabel;
|
||
OrderDate: TDateTimePicker;
|
||
OrderNum: TEdit;
|
||
CPSH: TEdit;
|
||
Label31: TLabel;
|
||
NJZB: TEdit;
|
||
Label34: TLabel;
|
||
Label35: TLabel;
|
||
Label36: TLabel;
|
||
Label39: TLabel;
|
||
JGPrice: TEdit;
|
||
PBNum: TEdit;
|
||
NJPrice: TEdit;
|
||
PBPrice: TEdit;
|
||
NJSH: TEdit;
|
||
Label43: TLabel;
|
||
Note1: TEdit;
|
||
JFdate: TDateTimePicker;
|
||
YWZ: TEdit;
|
||
Label1: TLabel;
|
||
Label2: TLabel;
|
||
Label3: TLabel;
|
||
TV1Column1: TcxGridDBColumn;
|
||
TV1Column2: TcxGridDBColumn;
|
||
TV1Column3: TcxGridDBColumn;
|
||
TV1Column4: TcxGridDBColumn;
|
||
TV1Column5: TcxGridDBColumn;
|
||
TV1Column6: TcxGridDBColumn;
|
||
ToolBar3: TToolBar;
|
||
ToolButton1: TToolButton;
|
||
ToolButton2: TToolButton;
|
||
TV2: TcxGridDBTableView;
|
||
cxGrid2Level1: TcxGridLevel;
|
||
cxGrid2: TcxGrid;
|
||
DataSource2: TDataSource;
|
||
CDS_ZB: TClientDataSet;
|
||
TV2Column1: TcxGridDBColumn;
|
||
TV2Column2: TcxGridDBColumn;
|
||
TV2Column3: TcxGridDBColumn;
|
||
TV2Column4: TcxGridDBColumn;
|
||
cxStyleRepository1: TcxStyleRepository;
|
||
cxStyle1: TcxStyle;
|
||
ADOQueryTemp: TADOQuery;
|
||
TV2Column5: TcxGridDBColumn;
|
||
CDS_Main: TClientDataSet;
|
||
PBName: TBtnEditC;
|
||
GYSName: TBtnEditA;
|
||
Label4: TLabel;
|
||
Note2: TEdit;
|
||
Label5: TLabel;
|
||
orderno: TBtnEditC;
|
||
TV1Column7: TcxGridDBColumn;
|
||
ToolButton3: TToolButton;
|
||
procedure TCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure FormCreate(Sender: TObject);
|
||
procedure TSaveClick(Sender: TObject);
|
||
procedure TAddClick(Sender: TObject);
|
||
procedure TDelClick(Sender: TObject);
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure TVC_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
// procedure NoteDblClick(Sender: TObject);
|
||
// procedure SQNameBtnClick(Sender: TObject);
|
||
procedure TVC_Unit2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure TVC_UnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure V1JGafterPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure NJZBChange(Sender: TObject);
|
||
procedure V1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure TV2Column1PropertiesEditValueChanged(Sender: TObject);
|
||
procedure TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
procedure PBNameBtnDnClick(Sender: TObject);
|
||
procedure PBNameBtnUpClick(Sender: TObject);
|
||
procedure GYSNameBtnClick(Sender: TObject);
|
||
procedure ordernoBtnUpClick(Sender: TObject);
|
||
procedure TV1Column6PropertiesEditValueChanged(Sender: TObject);
|
||
procedure ToolButton3Click(Sender: TObject);
|
||
procedure TV1Column6PropertiesChange(Sender: TObject);
|
||
procedure TV1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
// procedure ConNoBtnClick(Sender: TObject);
|
||
// procedure defstr1BtnClick(Sender: TObject);
|
||
// procedure defstr5BtnClick(Sender: TObject);
|
||
// procedure defstr6BtnClick(Sender: TObject);
|
||
// procedure defstr7BtnClick(Sender: TObject);
|
||
// procedure factoryNameBtnClick(Sender: TObject);
|
||
// procedure FYNOBtnClick(Sender: TObject);
|
||
private
|
||
function savedata(): Boolean;
|
||
procedure initdata();
|
||
{ Private declarations }
|
||
public
|
||
formid, PState, CopyInt: integer;
|
||
FMainid, Fzbid: string;
|
||
A: Double;
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmCgBjPut: TfrmCgBjPut;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_Fun, U_ZDYHelp, U_ZDYHelpSel, U_ContractList_CX, U_DataLink, U_ZdyAttachGYS,
|
||
U_ProductOrderListSel, U_FanYangList_sel;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmCgBjPut.initdata();
|
||
begin
|
||
// with ADOQueryTmp do
|
||
// begin
|
||
// close;
|
||
// sql.Clear;
|
||
// sql.Add('select * from contract_Main_Sh ');
|
||
// sql.Add('where Mainid='''+trim(Fmainid)+'''');
|
||
// open;
|
||
// if not isempty then
|
||
// begin
|
||
// SCSHDataNew(adoqueryTmp,Panel1,0);
|
||
// end;
|
||
// end;
|
||
// with ADOQueryTmp do
|
||
// begin
|
||
// close;
|
||
// sql.Clear;
|
||
// sql.add('select * from contract_Sub_Sh ');
|
||
// sql.Add('where Mainid='''+trim(Fmainid)+'''');
|
||
// open;
|
||
// SCreateCDS20(ADOQueryTmp,Cds_Sub);
|
||
// SInitCDSData20(ADOQueryTmp,Cds_Sub);
|
||
with ADOQueryTmp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' select * from CGBJ_Sub where 1=1 ');
|
||
if PState = 1 then
|
||
begin
|
||
sql.Add(' and MainId=''' + Trim(FMainId) + '''');
|
||
end;
|
||
if PState = 0 then
|
||
begin
|
||
sql.Add(' and 1<>1');
|
||
end;
|
||
// ShowMessage(SQL.text);
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTmp, Cds_Sub);
|
||
SInitCDSData20(ADOQueryTmp, Cds_Sub);
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' select * from CGBJ_ZB where 1=1 ');
|
||
if PState = 1 then
|
||
begin
|
||
sql.Add(' and MainId=''' + Trim(FMainId) + '''');
|
||
end;
|
||
if PState = 0 then
|
||
begin
|
||
sql.Add(' and 1<>1');
|
||
end;
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTemp, CDS_ZB);
|
||
SInitCDSData20(ADOQueryTemp, CDS_ZB);
|
||
with ADOQueryTmp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from CGBJ_Main where MainId=''' + Trim(FMainId) + '''');
|
||
// ShowMessage(SQL.Text);
|
||
Open;
|
||
end;
|
||
SCSHDataNew(ADOQueryTmp, ScrollBox1, 2);
|
||
if PState = 0 then
|
||
begin
|
||
YWZ.Text := trim(dName);
|
||
end
|
||
else
|
||
begin
|
||
end;
|
||
if CopyInt = 99 then
|
||
begin
|
||
FMainId := '';
|
||
PState := 0;
|
||
with Cds_Sub do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('MainId').Value := '';
|
||
FieldByName('SubId').Value := '';
|
||
Post;
|
||
Next;
|
||
end;
|
||
with CDS_ZB do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
Edit;
|
||
FieldByName('MainId').Value := '';
|
||
FieldByName('ZBId').Value := '';
|
||
Post;
|
||
Next;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
|
||
function TfrmCgBjPut.savedata(): Boolean;
|
||
var
|
||
maxNo: string;
|
||
begin
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
if Trim(FMainId) = '' then
|
||
begin
|
||
if GetLSNo(ADOCmd, maxNo, 'CM', 'CGBJ_Main', 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;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from CGBJ_Main where MainId=''' + Trim(FMainId) + '''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(FMainId) = '' then
|
||
begin
|
||
Append;
|
||
end
|
||
else
|
||
begin
|
||
Edit;
|
||
end;
|
||
FieldByName('MainId').Value := Trim(maxNo);
|
||
SSetsaveSqlNew(ADOCmd, 'CGBJ_Main', ScrollBox1, 2);
|
||
if Trim(FMainId) = '' then
|
||
begin
|
||
FieldByName('Filler').Value := Trim(DName);
|
||
FieldByName('Filltime').Value := SGetServerDateTime(ADOQueryTmp);
|
||
FieldByName('SQDate').Value := SGetServerDateTime(ADOQueryTmp);
|
||
FieldByName('SQName').Value := Trim(DName);
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('Editer').Value := Trim(DName);
|
||
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTmp);
|
||
end;
|
||
Post;
|
||
end;
|
||
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from CGBJ_Main where PBName=''' + Trim(PBName.Text) + ''' and orderno=''' + Trim(orderno.Text) + '''');
|
||
Open;
|
||
end;
|
||
if ADOCmd.RecordCount > 1 then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
FMainId := Trim(maxNo);
|
||
|
||
// if PState = 0 then
|
||
// begin
|
||
// ffacction := 'ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
// OpEvent:=trim('ָʾ<D6B8><CABE><EFBFBD>ţ<EFBFBD>' + Trim(OrderNo.Text));
|
||
// end
|
||
// else
|
||
// begin
|
||
// ffacction := 'ָʾ<D6B8><CABE><EFBFBD><EFBFBD>';
|
||
// OpEvent:=OpEvent+trim('<27>ĺ<DEB8>ָʾ<D6B8><CABE><EFBFBD>ţ<EFBFBD>' + Trim(OrderNo.Text));
|
||
// end;
|
||
// with ADOCmd do
|
||
// begin
|
||
// Close;
|
||
// sql.Clear;
|
||
// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||
// sql.Add(' ' + quotedstr(trim(DName)));
|
||
// sql.Add(',getdate() ');
|
||
// sql.Add(',' + quotedstr(trim(self.Caption)));
|
||
// sql.Add(',' + quotedstr(trim(ffacction)));
|
||
// sql.Add(',' + quotedstr(OpEvent));
|
||
// sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
|
||
// sql.Add(')');
|
||
// ExecSQL;
|
||
// end;
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD>м<EFBFBD><D0BC><EFBFBD>
|
||
with CDS_ZB do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(CDS_ZB.fieldbyname('ZBId').AsString) = '' then
|
||
begin
|
||
if GetLSNo(ADOCmd, maxNo, 'Czb', 'CGBJ_zb', 4, 1) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡռ<C8A1><D5BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
maxNo := Trim(Cds_zb.fieldbyname('zbId').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from CGBJ_zb where MainId=''' + Trim(FMainId) + '''');
|
||
sql.Add('and zbId=''' + Trim(maxNo) + '''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(CDS_ZB.fieldbyname('zbId').AsString) = '' then
|
||
begin
|
||
Append;
|
||
end
|
||
else
|
||
Edit;
|
||
FieldByName('MainId').Value := Trim(FMainId);
|
||
FieldByName('zbId').Value := Trim(maxNo);
|
||
RTSetSaveDataCDS(ADOCmd, Tv2, CDS_ZB, 'CGBJ_ZB', 0);
|
||
Post;
|
||
end;
|
||
CDS_ZB.Edit;
|
||
CDS_ZB.FieldByName('zbId').Value := Trim(maxNo);
|
||
CDS_ZB.FieldByName('Mainid').Value := Trim(FMainId);
|
||
Next;
|
||
end;
|
||
end;
|
||
FzbId := Trim(maxNo);
|
||
ADOCmd.Connection.CommitTrans;
|
||
Result := True;
|
||
except
|
||
Result := False;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
end;
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
|
||
with Cds_Sub do
|
||
begin
|
||
with ADOQueryTmp do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.Add('delete from CGBJ_Sub where ');
|
||
if PState = 1 then
|
||
begin
|
||
sql.Add(' MainId=''' + Trim(FMainId) + '''');
|
||
end;
|
||
if PState = 0 then
|
||
begin
|
||
sql.Add(' 1<>1');
|
||
end;
|
||
// ShowMessage(sql.text);
|
||
execsql;
|
||
end;
|
||
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if Trim(Cds_Sub.fieldbyname('SubId').AsString) = '' then
|
||
begin
|
||
if GetLSNo(ADOCmd, maxNo, 'CS', 'CGBJ_Sub', 4, 1) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
Exit;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
maxNo := Trim(Cds_Sub.fieldbyname('SubId').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from CGBJ_Sub where MainId=''' + Trim(FMainId) + '''');
|
||
// sql.Add(' and ZBid=''' + Trim(Fzbid) + '''');
|
||
sql.Add(' and SubId=''' + Trim(maxNo) + '''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(Cds_Sub.fieldbyname('SubId').AsString) = '' then
|
||
begin
|
||
Append;
|
||
end
|
||
else
|
||
Edit;
|
||
FieldByName('MainId').Value := Trim(FMainId);
|
||
// FieldByName('zbid').Value := Trim(Fzbid);
|
||
FieldByName('SubId').Value := Trim(maxNo);
|
||
RTSetSaveDataCDS(ADOCmd, Tv1, Cds_Sub, 'CGBJ_Sub', 0);
|
||
if Trim(fieldbyname('PRTOrderQty').AsString) = '' then
|
||
begin
|
||
fieldbyname('PRTOrderQty').Value := 0
|
||
end;
|
||
if Trim(fieldbyname('PRTRoll').AsString) = '' then
|
||
begin
|
||
fieldbyname('PRTRoll').Value := 0
|
||
end;
|
||
// fieldbyname('SordQty1').Value := Order_Sub.fieldbyname('SordQty1').AsFloat;
|
||
// fieldbyname('SordQty2').Value := Order_Sub.fieldbyname('SordQty2').AsFloat;
|
||
// fieldbyname('SordQty3').Value := Order_Sub.fieldbyname('SordQty3').AsFloat;
|
||
// FieldByName('Sorddefstr10').Value := Order_Sub.FieldByName('Sorddefstr10').AsString;
|
||
// FieldByName('khOrderNO').Value := trim(Order_Sub.FieldByName('khOrderNO').AsString);
|
||
Post;
|
||
end;
|
||
Cds_Sub.Edit;
|
||
Cds_Sub.FieldByName('SubId').Value := Trim(maxNo);
|
||
Cds_Sub.FieldByName('Mainid').Value := Trim(FMainId);
|
||
// Cds_Sub.FieldByName('zbid').Value := Trim(Fzbid);
|
||
// CJEWM();
|
||
Next;
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.TCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.FormShow(Sender: TObject);
|
||
begin
|
||
ReadCxGrid(self.Caption + tv1.Name + '41', Tv1);
|
||
ReadCxGrid(self.Caption + tv2.Name + '41', Tv2);
|
||
// if formid=2 then
|
||
// begin
|
||
// TSave.Enabled:=False;
|
||
// ToolBar2.Visible:=false;
|
||
// end;
|
||
// SQDate.datetime:=SGetServerDateTime(ADOQueryTmp);
|
||
// SQName.Text:=trim(DName);
|
||
OrderDate.datetime := SGetServerDateTime(ADOQueryTmp);
|
||
JFDate.datetime := SGetServerDateTime(ADOQueryTmp);
|
||
initdata();
|
||
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.FormCreate(Sender: TObject);
|
||
begin
|
||
cxGrid1.Align := alclient;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.TSaveClick(Sender: TObject);
|
||
begin
|
||
if trim(PBName.Text) = '' then
|
||
begin
|
||
application.MessageBox('<27><><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
if Cds_Sub.IsEmpty then
|
||
begin
|
||
application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
if SaveData() then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
|
||
ModalResult := 1;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.TAddClick(Sender: TObject);
|
||
begin
|
||
with Cds_Sub do
|
||
begin
|
||
append;
|
||
post;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.TDelClick(Sender: TObject);
|
||
begin
|
||
if Cds_Sub.IsEmpty then
|
||
Exit;
|
||
with ADOQueryTmp do
|
||
begin
|
||
close;
|
||
sql.Clear;
|
||
sql.Add('select * from contract_Sub ');
|
||
sql.add('where Sdefstr7=''' + trim(Cds_Sub.fieldbyname('subid').asstring) + '''');
|
||
open;
|
||
if not isempty then
|
||
begin
|
||
application.MessageBox('<27>Ѳɹ<D1B2><C9B9><EFBFBD><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD>', '<27><>ʾ');
|
||
exit;
|
||
end;
|
||
end;
|
||
with ADOQueryTmp do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.Add('delete from contract_sub_Sh where subID=''' + trim(cds_sub.fieldbyname('subID').AsString + ''''));
|
||
execsql;
|
||
end;
|
||
cds_sub.Delete;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmCgBjPut := nil;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
writeCxGrid(self.Caption + tv1.Name + '41', Tv1);
|
||
WriteCxGrid(self.Caption + tv2.Name + '41', Tv2);
|
||
Action := cafree;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.TVC_CodeNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.create(self);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := 'Cloth';
|
||
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
if showmodal = 1 then
|
||
begin
|
||
with cds_sub do
|
||
begin
|
||
edit;
|
||
FieldByName('C_CodeName').AsString := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.TVC_Unit2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.create(self);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := 'c_Unit2';
|
||
flagname := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
|
||
if showmodal = 1 then
|
||
begin
|
||
with cds_sub do
|
||
begin
|
||
edit;
|
||
FieldByName('C_unit2').AsString := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.TVC_UnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
{try
|
||
frmZDYHelp:=TfrmZDYHelp.create(self);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='c_Unit2';
|
||
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ';
|
||
if showmodal=1 then
|
||
begin
|
||
with cds_sub do
|
||
begin
|
||
edit;
|
||
FieldByName('C_unit').AsString:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.free;
|
||
end;}
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.V1JGafterPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := 'Factory';
|
||
flagname := '<27><><EFBFBD>ӹ<EFBFBD>';
|
||
MainType := 'PBFactory';
|
||
if ShowModal = 1 then
|
||
begin
|
||
with Cds_Sub do
|
||
begin
|
||
Edit;
|
||
FieldByName('JGafter').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.NJZBChange(Sender: TObject);
|
||
var
|
||
sumPrice: double;
|
||
begin
|
||
|
||
if CDS_ZB.IsEmpty then
|
||
exit;
|
||
try
|
||
sumPrice := 0;
|
||
|
||
with CDS_ZB do
|
||
begin
|
||
DisableControls;
|
||
First;
|
||
while not eof do
|
||
begin
|
||
|
||
// sumPrice := RoundFloat(sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat, 2);
|
||
sumPrice := sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat;
|
||
next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
|
||
except
|
||
|
||
end;
|
||
|
||
// PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[4] + StrToFloatDef(Trim(JGPrice.Text), 0));
|
||
PBPrice.Text := FloatToStr((sumPrice) + StrToFloatDef(Trim(JGPrice.Text), 0));
|
||
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.V1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
frmProductOrderListSel := TfrmProductOrderListSel.create(self);
|
||
with frmProductOrderListSel do
|
||
begin
|
||
FFInt := 1;
|
||
if showmodal = 1 then
|
||
begin
|
||
// ConMainId:=trim(Order_Main.fieldbyname('mainID').asstring);
|
||
Cds_Sub.Edit;
|
||
Cds_Sub.fieldbyname('orderno').Value := trim(Order_Main.fieldbyname('OrderNo').asstring);
|
||
Cds_Sub.fieldbyname('PRTCodeName').Value := trim(Order_Main.fieldbyname('MPRTCodeName').asstring);
|
||
Cds_Sub.fieldbyname('PRTColor').Value := trim(Order_Main.fieldbyname('PRTColor').asstring);
|
||
Cds_Sub.fieldbyname('PRTOrderQty').Value := trim(Order_Main.fieldbyname('PRTOrderQty').asstring);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
//procedure TfrmCgBjPut.TV1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
//begin
|
||
// try
|
||
// frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
// with frmZDYHelp do
|
||
// begin
|
||
// flag := 'CGPRTcolor';
|
||
// flagname := '<27><>ɫ';
|
||
// V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
// V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
// // MainType:=Trim(DName);
|
||
// fnote := True;
|
||
// if ShowModal = 1 then
|
||
// begin
|
||
// Self.Cds_Sub.Edit;
|
||
// Self.Cds_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 TfrmCgBjPut.ToolButton1Click(Sender: TObject);
|
||
// var
|
||
// i:Integer;
|
||
// a:Integer;
|
||
begin
|
||
// i:=CDS_ZB.RecordCount;
|
||
// i:=i+1;
|
||
// a:=order_sub.fieldbyname('SOrddefstr1').Value;
|
||
// if TryStrToInt(a) then
|
||
// begin
|
||
// a:=a+1
|
||
// end;
|
||
// CopyAddRow(Tv2,CDS_ZB);
|
||
// with CDS_ZB do
|
||
// begin
|
||
// Edit;
|
||
// FieldByName('zbid').Value:=IntToStr(i);
|
||
// Post;
|
||
// end;
|
||
with CDS_ZB do
|
||
begin
|
||
append;
|
||
post;
|
||
end;
|
||
// with Cds_Sub do
|
||
// begin
|
||
// append;
|
||
// post;
|
||
// end;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.ToolButton2Click(Sender: TObject);
|
||
begin
|
||
//if CDS_ZB.IsEmpty then
|
||
// Exit;
|
||
// with ADOQueryTmp do
|
||
// begin
|
||
// close;
|
||
// sql.Clear;
|
||
// sql.Add('select * from contract_Sub ');
|
||
// sql.add('where Sdefstr7=''' + trim(Cds_Sub.fieldbyname('subid').asstring) + '''');
|
||
// open;
|
||
// if not isempty then
|
||
// begin
|
||
// application.MessageBox('<27>Ѳɹ<D1B2><C9B9><EFBFBD><EFBFBD>ܳ<EFBFBD><DCB3><EFBFBD>', '<27><>ʾ');
|
||
// exit;
|
||
// end;
|
||
// end;
|
||
with ADOQueryTemp do
|
||
begin
|
||
close;
|
||
sql.clear;
|
||
sql.Add('delete from CGBJ_ZB where zbID=''' + trim(CDS_ZB.fieldbyname('zbID').AsString + ''''));
|
||
execsql;
|
||
end;
|
||
CDS_ZB.Delete;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.TV2Column1PropertiesEditValueChanged(Sender: TObject);
|
||
var
|
||
mvalue, FFieldName: string;
|
||
Fzb, Fsj, FzbPrice, Fsh: Double;
|
||
sumPrice: double;
|
||
i: Integer;
|
||
begin
|
||
mvalue := TcxTextEdit(Sender).EditingText;
|
||
FFieldName := Trim(Tv2.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
FzbPrice := 0;
|
||
if Trim(mvalue) = '' then
|
||
begin
|
||
mvalue := '0';
|
||
end;
|
||
|
||
with CDS_ZB do
|
||
begin
|
||
Edit;
|
||
FieldByName(FFieldName).Value := mvalue;
|
||
Post;
|
||
// FSXMC:=CDS_ZB.fieldbyname('SXMC').AsFloat;
|
||
Fsj := CDS_ZB.fieldbyname('sj').AsFloat;
|
||
Fzb := CDS_ZB.fieldbyname('zb').AsFloat / 100;
|
||
Fsh := CDS_ZB.fieldbyname('sh').AsFloat / 100;
|
||
FzbPrice := CDS_ZB.fieldbyname('zbPrice').AsFloat;
|
||
end;
|
||
|
||
if Trim(FFieldName) <> 'zbPrice' then
|
||
begin
|
||
FzbPrice := (Fzb * Fsj) * (1 + Fsh);
|
||
end;
|
||
// with CDS_ZB do
|
||
// begin
|
||
//// CDSTM.Last;
|
||
//// CDSTM.Append;
|
||
// A:=0;
|
||
// for i:=0 to FieldCount-1 do
|
||
// begin
|
||
// CDSTM.fields[i].value:=Fields[i].Value ;
|
||
// A:= A+FzbPrice;
|
||
// end;
|
||
// CDS_ZB.Post;
|
||
// end;
|
||
// end;
|
||
|
||
with CDS_ZB do
|
||
begin
|
||
Edit;
|
||
FieldByName('zbPrice').Value := FzbPrice;
|
||
Post;
|
||
end;
|
||
if CDS_ZB.IsEmpty then
|
||
exit;
|
||
try
|
||
sumPrice := 0;
|
||
|
||
with CDS_ZB do
|
||
begin
|
||
DisableControls;
|
||
First;
|
||
while not eof do
|
||
begin
|
||
|
||
// sumPrice := RoundFloat(sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat, 2);
|
||
sumPrice := sumPrice + CDS_ZB.fieldbyname('ZbPrice').AsFloat;
|
||
next;
|
||
end;
|
||
EnableControls;
|
||
end;
|
||
|
||
except
|
||
|
||
end;
|
||
|
||
PBPrice.Text := FloatToStr((sumPrice) + StrToFloatDef(Trim(JGPrice.Text), 0));
|
||
// PBPrice.Text := FloatToStr(TV2.DataController.Summary.FooterSummaryValues[1] + StrToFloatDef(Trim(JGPrice.Text), 0));
|
||
// with ADOQueryCmd do
|
||
// begin
|
||
// Close;
|
||
// SQL.Clear;
|
||
// sql.Add('update CGBJ_ZB set ' + FFieldName + '=' + quotedstr(Trim(mvalue)));
|
||
// if Trim(FFieldName) <> 'ZBPrice' then
|
||
// sql.Add(' ,ZBPrice=' + FloatToStr(FZBPrice));
|
||
// sql.Add('where ZBid=' + quotedstr(Trim(CDS_ZB.fieldbyname('ZBid').AsString)));
|
||
// ExecSQL;
|
||
// end;
|
||
tv1.Controller.EditingController.ShowEdit();
|
||
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.TV2Column5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := 'OrdSXMC';
|
||
flagname := 'ɴ<><C9B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
// V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
// MainType:=Trim(DName);
|
||
// fnote := True;
|
||
if ShowModal = 1 then
|
||
begin
|
||
Self.CDS_ZB.Edit;
|
||
Self.CDS_ZB.FieldByName('SXMC').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
// Self.Order_ZB.FieldByName('SOrddefstr4').Value := Trim(ClientDataSet1.fieldbyname('Note').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
//procedure TfrmCgBjPut.PBNameBtnClick(Sender: TObject);
|
||
//begin
|
||
// try
|
||
// frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
// with frmZDYHelp do
|
||
// begin
|
||
// flag := 'CustomerNoName';
|
||
// flagname := '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>';
|
||
// if Trim(DParameters1) <> '<27><>Ȩ<EFBFBD><C8A8>' then
|
||
// MainType := Trim(DName);
|
||
// if ShowModal = 1 then
|
||
// begin
|
||
// CustomerNoName.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
// CustomerNoName.TxtCode := Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
|
||
// end;
|
||
// end;
|
||
// finally
|
||
// frmZDYHelp.Free;
|
||
// end;
|
||
//end;
|
||
|
||
procedure TfrmCgBjPut.PBNameBtnDnClick(Sender: TObject);
|
||
begin
|
||
TBtnEditC(Sender).Text := '';
|
||
TBtnEditC(Sender).TxtCode := '';
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.PBNameBtnUpClick(Sender: TObject);
|
||
var
|
||
fsj: string;
|
||
FWZ: Integer;
|
||
begin
|
||
fsj := Trim(TEdit(Sender).Hint);
|
||
FWZ := Pos('/', fsj);
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := Copy(fsj, 1, FWZ - 1);
|
||
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
|
||
if Trim(flag) = 'OrdPBName' then
|
||
begin
|
||
V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
fnote := True;
|
||
end;
|
||
if ShowModal = 1 then
|
||
begin
|
||
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
if Trim(flag) = 'PBName' then
|
||
begin
|
||
with ADOcmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select Top 1 * from CGBJ_Main where PBName=''' + Trim(ClientDataSet1.fieldbyname('ZDYName').AsString) + '''');
|
||
sql.Add(' order by FillTime desc');
|
||
Open;
|
||
end;
|
||
PBName.Text := ADOcmd.fieldbyname('PBName').AsString;
|
||
// MPRTMF.Text := ADOTemp.fieldbyname('MPRTMF').AsString;
|
||
// MPRTKZ.Text := ADOTemp.fieldbyname('MPRTKZ').AsString;
|
||
// MPRTSpec.Text := ADOTemp.fieldbyname('MPRTSpec').AsString;
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.GYSNameBtnClick(Sender: TObject);
|
||
begin
|
||
frmZdyAttachGYS := TfrmZdyAttachGYS.create(self);
|
||
with frmZdyAttachGYS do
|
||
begin
|
||
// fType := '';
|
||
if showmodal = 1 then
|
||
begin
|
||
GYSName.Text := trim(cds_hz.fieldbyname('ZdyName').AsString);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.ordernoBtnUpClick(Sender: TObject);
|
||
begin
|
||
frmProductOrderListSel := TfrmProductOrderListSel.create(self);
|
||
with frmProductOrderListSel do
|
||
begin
|
||
FFInt := 1;
|
||
if showmodal = 1 then
|
||
begin
|
||
orderno.Text := trim(Order_Main.fieldbyname('OrderNo').asstring);
|
||
// ConMainId:=trim(Order_Main.fieldbyname('mainID').asstring);
|
||
// Cds_Sub.Edit;
|
||
// Cds_Sub.fieldbyname('orderno').Value := trim(Order_Main.fieldbyname('OrderNo').asstring);
|
||
// Cds_Sub.fieldbyname('PRTCodeName').Value := trim(Order_Main.fieldbyname('MPRTCodeName').asstring);
|
||
// Cds_Sub.fieldbyname('PRTColor').Value := trim(Order_Main.fieldbyname('PRTColor').asstring);
|
||
// Cds_Sub.fieldbyname('PRTOrderQty').Value := trim(Order_Main.fieldbyname('PRTOrderQty').asstring);
|
||
end;
|
||
free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.TV1Column6PropertiesEditValueChanged(Sender: TObject);
|
||
var
|
||
mvalue, FFieldName: string;
|
||
Fzb, FSPbsl, FSYJsl, Fsh: Double;
|
||
i: Integer;
|
||
begin
|
||
mvalue := TcxTextEdit(Sender).EditingText;
|
||
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
FSYJsl := 0;
|
||
if Trim(mvalue) = '' then
|
||
begin
|
||
mvalue := '0';
|
||
end;
|
||
|
||
with Cds_Sub do
|
||
begin
|
||
Edit;
|
||
FieldByName(FFieldName).Value := mvalue;
|
||
Post;
|
||
FSPbsl := Cds_Sub.fieldbyname('SPbsl').AsFloat;
|
||
Fzb := Cds_Sub.fieldbyname('Szb').AsFloat / 100;
|
||
Fsh := Cds_Sub.fieldbyname('Ssh').AsFloat / 100;
|
||
FSYJsl := Cds_Sub.fieldbyname('Syjsl').AsFloat;
|
||
end;
|
||
|
||
if Trim(FFieldName) <> 'Syjsl' then
|
||
begin
|
||
FSYJsl := (Fzb * FSPbsl) * (1 + Fsh);
|
||
end;
|
||
with Cds_Sub do
|
||
begin
|
||
Edit;
|
||
FieldByName('Syjsl').Value := FSYJsl;
|
||
Post;
|
||
end;
|
||
tv1.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.ToolButton3Click(Sender: TObject);
|
||
var
|
||
mvalue, FFieldName: string;
|
||
Fzb, FSPbsl, FSYJsl, Fsh: Double;
|
||
i: Integer;
|
||
begin
|
||
if CDS_ZB.IsEmpty then
|
||
begin
|
||
Exit;
|
||
|
||
end
|
||
else
|
||
begin
|
||
with CDS_ZB do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
with Cds_Sub do
|
||
begin
|
||
append;
|
||
Edit;
|
||
FieldByName('Spbsl').Value := StrToFloatDef((PBNum.text), 0);
|
||
FieldByName('SSxmc').Value := CDS_ZB.fieldbyname('SXmc').asstring;
|
||
FieldByName('Szb').Value := CDS_ZB.fieldbyname('zb').asstring;
|
||
FieldByName('Ssh').Value := CDS_ZB.fieldbyname('sh').asstring;
|
||
Post;
|
||
end;
|
||
mvalue := TcxTextEdit(Sender).EditingText;
|
||
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
FSYJsl := 0;
|
||
if Trim(mvalue) = '' then
|
||
begin
|
||
mvalue := '0';
|
||
end;
|
||
if mvalue = '<27><><EFBFBD><EFBFBD>' then
|
||
begin
|
||
mvalue := CDS_ZB.fieldbyname('SXmc').asstring;
|
||
end;
|
||
with Cds_Sub do
|
||
begin
|
||
|
||
Edit;
|
||
|
||
FieldByName(FFieldName).Value := mvalue;
|
||
Post;
|
||
// FSPbsl := Cds_Sub.fieldbyname('SPbsl').AsFloat;
|
||
// Fzb := Cds_Sub.fieldbyname('Szb').AsFloat / 100;
|
||
// Fsh := Cds_Sub.fieldbyname('Ssh').AsFloat / 100;
|
||
FSPbsl := Cds_Sub.fieldbyname('SPbsl').AsFloat;
|
||
Fzb := strtofloatdef((Cds_Sub.fieldbyname('Szb').Asstring), 0); //Cds_Sub.fieldbyname('Szb').AsFloat / 100;
|
||
Fsh := strtofloatdef((Cds_Sub.fieldbyname('Ssh').Asstring), 0); // Cds_Sub.fieldbyname('Ssh').AsFloat / 100;
|
||
if Trim(PBNum.text) <> '' then
|
||
begin
|
||
FSYJsl := Cds_Sub.fieldbyname('Syjsl').AsFloat;
|
||
end
|
||
else
|
||
begin
|
||
FSYJsl := 0;
|
||
end;
|
||
|
||
end;
|
||
|
||
if Trim(FFieldName) <> 'Syjsl' then
|
||
begin
|
||
FSYJsl := (Fzb * FSPbsl) * (1 + Fsh);
|
||
end;
|
||
with Cds_Sub do
|
||
begin
|
||
Edit;
|
||
FieldByName('Syjsl').Value := FSYJsl;
|
||
Post;
|
||
end;
|
||
tv1.Controller.EditingController.ShowEdit();
|
||
|
||
Next;
|
||
|
||
end;
|
||
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.TV1Column6PropertiesChange(Sender: TObject);
|
||
var
|
||
mvalue, FFieldName: string;
|
||
Fzb, FSPbsl, FSYJsl, Fsh: Double;
|
||
i: Integer;
|
||
begin
|
||
mvalue := TcxTextEdit(Sender).EditingText;
|
||
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
|
||
FSYJsl := 0;
|
||
if Trim(mvalue) = '' then
|
||
begin
|
||
mvalue := '0';
|
||
end;
|
||
|
||
with Cds_Sub do
|
||
begin
|
||
Edit;
|
||
FieldByName(FFieldName).Value := mvalue;
|
||
Post;
|
||
FSPbsl := Cds_Sub.fieldbyname('SPbsl').AsFloat;
|
||
Fzb := Cds_Sub.fieldbyname('Szb').AsFloat / 100;
|
||
Fsh := Cds_Sub.fieldbyname('Ssh').AsFloat / 100;
|
||
FSYJsl := Cds_Sub.fieldbyname('Syjsl').AsFloat;
|
||
end;
|
||
|
||
if Trim(FFieldName) <> 'Syjsl' then
|
||
begin
|
||
FSYJsl := (Fzb * FSPbsl) * (1 + Fsh);
|
||
end;
|
||
with Cds_Sub do
|
||
begin
|
||
Edit;
|
||
FieldByName('Syjsl').Value := FSYJsl;
|
||
Post;
|
||
end;
|
||
tv1.Controller.EditingController.ShowEdit();
|
||
end;
|
||
|
||
procedure TfrmCgBjPut.TV1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
|
||
begin
|
||
try
|
||
frmZDYHelp := TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag := 'PRTColor';
|
||
flagname := 'ɴ<><C9B4><EFBFBD><EFBFBD>ɫ';
|
||
V1Name.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
// V1Note.Caption := 'Ӣ<><D3A2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
// MainType:=Trim(DName);
|
||
// fnote := True;
|
||
if ShowModal = 1 then
|
||
begin
|
||
Self.CDS_ZB.Edit;
|
||
Self.CDS_ZB.FieldByName('PRTColor').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
|
||
// Self.Order_ZB.FieldByName('SOrddefstr4').Value := Trim(ClientDataSet1.fieldbyname('Note').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
end.
|
||
|