478 lines
15 KiB
ObjectPascal
478 lines
15 KiB
ObjectPascal
unit U_CIInPut;
|
||
|
||
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, cxDropDownEdit;
|
||
|
||
type
|
||
TfrmCIInPut = class(TForm)
|
||
ToolBar1: TToolBar;
|
||
TBSave: TToolButton;
|
||
TBClose: TToolButton;
|
||
ScrollBox1: TScrollBox;
|
||
Label1: TLabel;
|
||
CINO: TEdit;
|
||
ToolBar2: TToolBar;
|
||
ToolButton1: TToolButton;
|
||
ToolButton2: TToolButton;
|
||
ADOTemp: TADOQuery;
|
||
ADOCmd: TADOQuery;
|
||
DataSource1: TDataSource;
|
||
Order_Sub: TClientDataSet;
|
||
DataSource2: TDataSource;
|
||
ADOZDY: TADOQuery;
|
||
CDS_ZDY: TClientDataSet;
|
||
ADOQuery1: TADOQuery;
|
||
Label2: TLabel;
|
||
CIDate: TDateTimePicker;
|
||
Label11: TLabel;
|
||
Label15: TLabel;
|
||
OtherFeeName: TBtnEditA;
|
||
CustomerNoName: TEdit;
|
||
Label7: TLabel;
|
||
OtherFee: TEdit;
|
||
cxGrid2: TcxGrid;
|
||
Tv2: TcxGridDBTableView;
|
||
v1Column6: TcxGridDBColumn;
|
||
v1Column18: TcxGridDBColumn;
|
||
v1Column1: TcxGridDBColumn;
|
||
v1Column9: TcxGridDBColumn;
|
||
v1Column20: TcxGridDBColumn;
|
||
v1Column8: TcxGridDBColumn;
|
||
v1Column4: TcxGridDBColumn;
|
||
v1Column11: TcxGridDBColumn;
|
||
v1ShipDate: TcxGridDBColumn;
|
||
v2Column1: TcxGridDBColumn;
|
||
v2Column2: TcxGridDBColumn;
|
||
v2Column3: TcxGridDBColumn;
|
||
cxGrid2Level1: TcxGridLevel;
|
||
v2Column4: TcxGridDBColumn;
|
||
v2Column5: TcxGridDBColumn;
|
||
v2Column6: TcxGridDBColumn;
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure TBSaveClick(Sender: TObject);
|
||
procedure ToolButton2Click(Sender: TObject);
|
||
procedure OtherFeeNameBtnClick(Sender: TObject);
|
||
procedure ToolButton1Click(Sender: TObject);
|
||
procedure v2Column1PropertiesEditValueChanged(Sender: TObject);
|
||
procedure Tv2MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
private
|
||
FXS:Integer;
|
||
procedure InitData();
|
||
procedure ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||
function SaveData():Boolean;
|
||
{ Private declarations }
|
||
public
|
||
PState,PCopyInt:Integer;
|
||
FMainId,FConNo,FConType:String;
|
||
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmCIInPut: TfrmCIInPut;
|
||
|
||
implementation
|
||
uses
|
||
U_DataLink,U_ZDYHelp,U_RTFun,U_GYSList,U_ZDYHelpSel,U_FHOKSelList;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmCIInPut.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmCIInPut.InitData();
|
||
begin
|
||
with ADOQuery1 do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' select A.CIID,A.CINO,A.CIDate,A.OtherFeeName,A.OtherFee, ');
|
||
sql.Add(' B.CSID,C.ConNo,C.CustomerNoName,C.CustomerNo,D.FHQty,D.FHPS,D.FHDate,D.FHType,D.QtyUnit,');
|
||
sql.Add(' E.OrderNo,PRTCode=isnull(E.MPRTCode,'''')+isnull(E.MPRTGY,''''),');
|
||
sql.Add(' PRTColor=isnull(F.PRTColorNo,'''')+'' ''+isnull(F.PRTColor,'''')+'' ''+isnull(F.PRTColorEng,''''), ');
|
||
sql.Add(' F.PRTHX,G.PriceUnit,G.PRTPrice,FHMoney=G.PRTPrice*D.FHQty,PIMainId=G.MainId,PISubId=G.SubId,');
|
||
sql.Add(' F.MainId,F.SubId,D.FHID,B.CSPrice,B.CSMoney,B.SKKMoney');
|
||
sql.Add(' from JYOrder_CI A');
|
||
sql.Add(' inner join JYOrder_CI_Sub B on A.CIId=B.CIId');
|
||
sql.Add(' inner join JYOrder_FH D on B.FHID=D.FHID');
|
||
sql.Add(' inner join JYOrder_Main E on D.MainId=E.MainId');
|
||
sql.Add(' inner join JYOrder_Sub F on D.SubId=F.SubId');
|
||
sql.Add(' inner join JYOrderCon_Sub G on F.PISubId=G.SubId');
|
||
sql.Add(' inner join JYOrderCon_Main C on G.Mainid=C.MainId');
|
||
sql.Add(' where A.CIID='''+Trim(FMainId)+'''');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQuery1,Order_Sub);
|
||
SInitCDSData20(ADOQuery1,Order_Sub);
|
||
SCSHDataNew(ADOQuery1,ScrollBox1,0);
|
||
if PState=0 then
|
||
begin
|
||
CIDate.DateTime:=Now;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCIInPut.ZDYHelp(FButn:TcxButtonEdit;LType:string);
|
||
begin
|
||
end;
|
||
|
||
procedure TfrmCIInPut.FormShow(Sender: TObject);
|
||
begin
|
||
InitData();
|
||
end;
|
||
|
||
function TfrmCIInPut.SaveData():Boolean;
|
||
var
|
||
maxno,maxSubNo:String;
|
||
begin
|
||
try
|
||
Result:=False;
|
||
ADOCmd.Connection.BeginTrans;
|
||
//<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
if Trim(FMainId)='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,maxno,'CI','JYOrder_CI',3,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('ȡ<><C8A1>ˮ<EFBFBD><CBAE>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxno:=Trim(FMainId);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from JYOrder_CI where CIID='''+Trim(FMainId)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(FMainId)='' then
|
||
begin
|
||
Append;
|
||
end
|
||
else begin
|
||
Edit;
|
||
end;
|
||
FieldByName('CIID').Value:=Trim(maxno);
|
||
FieldByName('CINO').Value:=Trim(CINO.Text);
|
||
FieldByName('CIDate').Value:=Trim(FormatDateTime('yyyy-MM-dd',CIDate.Date));
|
||
FieldByName('OtherFeeName').Value:=Trim(OtherFeeName.Text);
|
||
if Trim(OtherFee.Text)<>'' then
|
||
FieldByName('OtherFee').Value:=Trim(OtherFee.Text)
|
||
else
|
||
FieldByName('OtherFee').Value:=Null;
|
||
if Trim(FMainId)='' then
|
||
begin
|
||
FieldByName('Filler').Value:=Trim(DName);
|
||
end else
|
||
begin
|
||
FieldByName('Editer').Value:=Trim(DName);
|
||
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
||
end;
|
||
Post;
|
||
end;
|
||
with ADOTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from JYOrder_CI where CINO='''+Trim(CINO.Text)+'''');
|
||
Open;
|
||
end;
|
||
if ADOTemp.RecordCount>1 then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD>۷<EFBFBD>Ʊ<EFBFBD><C6B1><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('CSId').AsString)='' then
|
||
begin
|
||
if GetLSNo(ADOCmd,maxSubNo,'CS','JYOrder_CI_Sub',4,1)=False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
end else
|
||
begin
|
||
maxSubNo:=Trim(Order_Sub.fieldbyname('CSId').AsString);
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add('select * from JYOrder_CI_Sub where ');
|
||
sql.Add(' CSId='''+Trim(maxSubNo)+'''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
if Trim(Order_Sub.fieldbyname('CSId').AsString)='' then
|
||
Append
|
||
else
|
||
Edit;
|
||
FieldByName('CIID').Value:=Trim(maxno);
|
||
FieldByName('CSId').Value:=Trim(maxSubNo);
|
||
FieldByName('PIMainId').Value:=Order_Sub.fieldbyname('PIMainId').Value;
|
||
FieldByName('PISubId').Value:=Order_Sub.fieldbyname('PISubId').Value;
|
||
FieldByName('FHID').Value:=Order_Sub.fieldbyname('FHID').Value;
|
||
FieldByName('CSBZType').Value:=Order_Sub.fieldbyname('PriceUnit').Value;
|
||
FieldByName('CSQtyUnit').Value:=Order_Sub.fieldbyname('QtyUnit').Value;
|
||
FieldByName('CSPrice').Value:=Order_Sub.fieldbyname('CSPrice').Value;
|
||
FieldByName('CSPS').Value:=Order_Sub.fieldbyname('FHPS').Value;
|
||
FieldByName('CSQty').Value:=Order_Sub.fieldbyname('FHQty').Value;
|
||
FieldByName('CSMoney').Value:=Order_Sub.fieldbyname('CSMoney').Value;
|
||
FieldByName('SKKMoney').Value:=Order_Sub.fieldbyname('SKKMoney').Value;
|
||
Post;
|
||
end;
|
||
|
||
Order_Sub.Edit;
|
||
Order_Sub.FieldByName('CSId').Value:=Trim(maxSubNo);
|
||
Next;
|
||
end;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update JYOrder_CI Set CustomerNoName='''+Trim(Order_Sub.fieldbyname('CustomerNoName').AsString)+''''); //
|
||
sql.Add(',CustomerNo='''+Trim(Order_Sub.fieldbyname('CustomerNo').AsString)+''''); //
|
||
sql.Add(',FHMoney=(select Sum(CSMoney) from JYOrder_CI_Sub CS where CS.CIID=JYOrder_CI.CIID)');
|
||
sql.Add(',KKMoney=(select Sum(SKKMoney) from JYOrder_CI_Sub CS where CS.CIID=JYOrder_CI.CIID)');
|
||
sql.Add(',BZType='''+Trim(Order_Sub.fieldbyname('PriceUnit').AsString)+'''');
|
||
sql.Add(' where CIID='''+Trim(maxno)+'''');
|
||
ExecSQL;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)+isnull(KKMoney,0)-isnull(DJMoney,0)');
|
||
sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)');
|
||
sql.Add(' where CIID='''+Trim(maxno)+'''');
|
||
ExecSQL;
|
||
end;
|
||
ADOCmd.Connection.CommitTrans;
|
||
FMainId:=Trim(maxno);
|
||
Result:=True;
|
||
except
|
||
Result:=False;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCIInPut.TBSaveClick(Sender: TObject);
|
||
var
|
||
PIMainId:String;
|
||
begin
|
||
CINO.SetFocus;
|
||
if Trim(CINO.Text)='' then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD>۷<EFBFBD>Ʊ<EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
if Order_Sub.IsEmpty then
|
||
begin
|
||
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>','<27><>ʾ',0);
|
||
exit;
|
||
end;
|
||
PIMainId:='';
|
||
Order_Sub.DisableControls;
|
||
with Order_Sub do
|
||
begin
|
||
First;
|
||
while not eof do
|
||
begin
|
||
if PIMainId='' then
|
||
begin
|
||
PIMainId:=Trim(Order_Sub.fieldbyname('CustomerNoName').AsString);
|
||
end else
|
||
begin
|
||
if Trim(PIMainId)<>Trim(Order_Sub.fieldbyname('CustomerNoName').AsString) then
|
||
begin
|
||
Order_Sub.EnableControls;
|
||
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD>ͬ<EFBFBD><CDAC><EFBFBD>ܱ<EFBFBD><DCB1><EFBFBD>!','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
if Trim(Order_Sub.fieldbyname('SKKMoney').AsString)<>'' then
|
||
begin
|
||
if Order_Sub.fieldbyname('SKKMoney').Value>0 then
|
||
begin
|
||
Order_Sub.EnableControls;
|
||
Application.MessageBox('<27>ۿ<EFBFBD><DBBF><EFBFBD><EFBFBD><EFBFBD><EEB2BB>Ϊ<EFBFBD><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',0);
|
||
Exit;
|
||
end;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
Order_Sub.EnableControls;
|
||
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
||
if SaveData() then
|
||
begin
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
|
||
ModalResult:=1;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmCIInPut.ToolButton2Click(Sender: TObject);
|
||
begin
|
||
if Order_Sub.IsEmpty then Exit;
|
||
if Trim(Order_Sub.fieldbyname('CSId').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 JYOrder_CI_Sub where CSId='''+Trim(Order_Sub.fieldbyname('CSId').AsString)+'''');
|
||
ExecSQL;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update JYOrder_CI Set ');
|
||
sql.Add(' FHMoney=(select Sum(CSMoney) from JYOrder_CI_Sub CS where CS.CIID=JYOrder_CI.CIID)');
|
||
sql.Add(' where CIID='''+Trim(FMainId)+'''');
|
||
ExecSQL;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('Update JYOrder_CI Set YSMoney=isnull(FHMoney,0)+isnull(OtherFee,0)-isnull(DJMoney,0)');
|
||
sql.Add('-isnull(YKMoney,0)-isnull(QKMoney,0)-isnull(YJMoney,0)+isnull(KKMoney,0)');
|
||
sql.Add(' where CIID='''+Trim(FMainId)+'''');
|
||
ExecSQL;
|
||
end;
|
||
end;
|
||
Order_Sub.Delete;
|
||
end;
|
||
|
||
procedure TfrmCIInPut.OtherFeeNameBtnClick(Sender: TObject);
|
||
begin
|
||
try
|
||
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
||
with frmZDYHelp do
|
||
begin
|
||
flag:='CIOtherFeeName';
|
||
flagname:='<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
if ShowModal=1 then
|
||
begin
|
||
OtherFeeName.Text:=Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
|
||
end;
|
||
end;
|
||
finally
|
||
frmZDYHelp.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCIInPut.ToolButton1Click(Sender: TObject);
|
||
begin
|
||
try
|
||
frmFHOKSelList:=TfrmFHOKSelList.Create(Application);
|
||
with frmFHOKSelList do
|
||
begin
|
||
if ShowModal=1 then
|
||
begin
|
||
with frmFHOKSelList.Order_Main do
|
||
begin
|
||
First;
|
||
while Locate('SSel',True,[]) do
|
||
begin
|
||
with Self.Order_Sub do
|
||
begin
|
||
Append;
|
||
FieldByName('PIMainId').Value:=frmFHOKSelList.Order_Main.fieldbyname('PIMainId').Value;
|
||
FieldByName('PISubId').Value:=frmFHOKSelList.Order_Main.fieldbyname('PISubId').Value;
|
||
FieldByName('MainId').Value:=frmFHOKSelList.Order_Main.fieldbyname('MainId').Value;
|
||
FieldByName('SubId').Value:=frmFHOKSelList.Order_Main.fieldbyname('SubId').Value;
|
||
FieldByName('FHID').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHID').Value;
|
||
FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value;
|
||
FieldByName('PRTCode').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTCode').Value;
|
||
FieldByName('PRTColor').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTColor').Value;
|
||
FieldByName('PRTHX').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTHX').Value;
|
||
FieldByName('QtyUnit').Value:=frmFHOKSelList.Order_Main.fieldbyname('QtyUnit').Value;
|
||
FieldByName('FHType').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHType').Value;
|
||
FieldByName('FHDate').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHDate').Value;
|
||
FieldByName('FHPS').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHPS').Value;
|
||
FieldByName('FHQty').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHQty').Value;
|
||
FieldByName('PriceUnit').Value:=frmFHOKSelList.Order_Main.fieldbyname('PriceUnit').Value;
|
||
FieldByName('CSPrice').Value:=frmFHOKSelList.Order_Main.fieldbyname('PRTPrice').Value;
|
||
FieldByName('CSMoney').Value:=frmFHOKSelList.Order_Main.fieldbyname('FHMoney').Value;
|
||
FieldByName('ConNO').Value:=frmFHOKSelList.Order_Main.fieldbyname('ConNO').Value;
|
||
FieldByName('CustomerNoName').Value:=frmFHOKSelList.Order_Main.fieldbyname('CustomerNoName').Value;
|
||
FieldByName('CustomerNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('CustomerNo').Value;
|
||
//FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value;
|
||
//FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value;
|
||
//FieldByName('OrderNo').Value:=frmFHOKSelList.Order_Main.fieldbyname('OrderNo').Value;
|
||
Post;
|
||
end;
|
||
frmFHOKSelList.Order_Main.Delete;
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmFHOKSelList.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCIInPut.v2Column1PropertiesEditValueChanged(Sender: TObject);
|
||
var
|
||
mvalue:string;
|
||
begin
|
||
mvalue:=TcxTextEdit(Sender).EditingText;
|
||
if Trim(mvalue)='' then mvalue:='0';
|
||
with Order_Sub do
|
||
begin
|
||
Edit;
|
||
FieldByName('CSPrice').Value:=mvalue;
|
||
Post;
|
||
end;
|
||
with Order_Sub do
|
||
begin
|
||
Edit;
|
||
FieldByName('CSMoney').Value:=FieldByName('CSPrice').Value*FieldByName('FHQty').Value;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmCIInPut.Tv2MouseDown(Sender: TObject; Button: TMouseButton;
|
||
Shift: TShiftState; X, Y: Integer);
|
||
begin
|
||
if Trim(DParameters1)='<27><>Ȩ<EFBFBD><C8A8>' then
|
||
begin
|
||
v2Column1.Options.Editing:=True;
|
||
end else
|
||
begin
|
||
v2Column1.Options.Editing:=False;
|
||
end;
|
||
end;
|
||
|
||
end.
|