📄 frm_allimportbilledit.pas
字号:
FrmMain.UseDB.RollbackTrans;
exit;
end;
FrmMain.UseDB.CommitTrans;
lvhw.Selected.Delete;
end;
LVFare.Items.clear;
except
ShowMessage('删除分单操作有误,记录未删除,请检查!');
FrmMain.UseDB.RollbackTrans;
end;
end;
procedure TFrmAllImportBillEdit.BitBtn3Click(Sender: TObject);
var
ValueArray: array[0..20] of string;
ArrayCount: integer;
sqlstr: string;
ModiOper: string;
begin
inherited;
if FrmMain.IncludeValue('进口业务操作') then
else
begin
ShowMessage('Sorry,You have no right to do it!');
exit;
end;
if chkkeydown.Enabled then
else
begin
ShowMessage('该进口所属于的主单已确认,您所具有的权限已操作不了该进口记录!');
exit;
end;
if cchkkeydown.Enabled then
else
begin
ShowMessage('该进口已确认,您所具有的权限已操作修改不了该进口记录!');
exit;
end;
if isedit then
else
begin
ShowMessage('请输入主单,并先保存主单数据');
exit;
end;
if (cEdtPPD.text = 'PP') or (cEdtCOLL.text = 'CC') then
else
begin
ShowMessage('请在分单的PPD或COLL中输入正确数据');
exit;
end;
if (cEdtOPPD.text = 'PP') or (cEdtOCOLL.text = 'CC') then
else
begin
ShowMessage('请在分单的O.PPD或O.COLL中输入正确数据');
exit;
end;
{修改保存人}
modioper := FrmMain.LoginName + '---' + cedtmodioper.text;
modioper := copy(modioper, 1, 240);
if cIsEdit then
begin
try
if lvhw.SelCount = 0 then
exit;
sqlstr := '';
FrmMain.UpStr(sqlstr, 'filetable ');
{Maincode 主单号}
FrmMain.UpStr(sqlstr, 'Hawb', cedtfileno.text, ',');
{fileno}
FrmMain.UpStr(sqlstr, 'fileno', cedtrfileno.text, ',');
{quotecode}
if cComPrice.Text = '' then
FrmMain.UpStr(sqlstr, 'QuoteCode', 'null', ',')
else
FrmMain.UpStr(sqlstr, 'QuoteCode', FrmMain.getfieldtext(cComPrice.Text),
',');
{trusttype}
FrmMain.UpStr(sqlstr, 'trusttype', FrmMain.getfieldtext(ctrusttype.Text),
',');
{trustsource}
FrmMain.UpStr(sqlstr, 'trustsource',
FrmMain.getfieldtext(cComtrustsource.Text), ',');
{cztype}
FrmMain.UpStr(sqlstr, 'cztype', ccomcztype.Text, ',');
{agentcode}
FrmMain.UpStr(sqlstr, 'agentcode', FrmMain.getfieldtext(ccomagent.Text),
',');
{cuscode}
if ccomcuscode.text = '' then
FrmMain.UpStr(sqlstr, 'cuscode', 'null', ',')
else
FrmMain.UpStr(sqlstr, 'cuscode', FrmMain.getfieldtext(ccomcuscode.Text),
',');
FrmMain.UpStr(sqlstr, 'Cuscodename', cedtcuscodename.text, ',');
{收货人}
FrmMain.UpStr(sqlstr, 'shouhuoren', FrmMain.getfieldtext(ccomconsign.Text),
',');
{收货人名称}
FrmMain.UpStr(sqlstr, 'consignname', cedtconsignname.text, ',');
{Agent 通知方}
FrmMain.UpStr(sqlstr, 'Agent', cinform.lines.Text, ',');
{djnumber}
FrmMain.UpStr(sqlstr, 'djnumber', cedtnumber.Text, ',');
{kjkm}
FrmMain.UpStr(sqlstr, 'kjkm', FrmMain.getfieldtext(ccomkmdm.Text), ',');
{zcdjnumber}
FrmMain.UpStr(sqlstr, 'zcdjnumber', cedtzcnumber.Text, ',');
{zckjkm}
FrmMain.UpStr(sqlstr, 'zckjkm', FrmMain.getfieldtext(ccomzckmdm.Text),
',');
{Carrier 航空公司}
FrmMain.UpStr(sqlstr, 'Carrier', FrmMain.getfieldtext(cComShipCom.Text),
',');
{AirPort 装货港}
FrmMain.UpStr(sqlstr, 'Airport', FrmMain.getfieldtext(cComLoad.Text),
',');
{AirPortTo 卸货港}
FrmMain.UpStr(sqlstr, 'Airportto', FrmMain.getfieldtext(cComUnLoad.Text),
',');
{dest 目的地}
FrmMain.UpStr(sqlstr, 'destination', cedtdest.Text, ',');
{一乘航班 经停 出运日期}
FrmMain.UpStr(sqlstr, 'BY1', cEdtBy.Text, ',');
FrmMain.UpStr(sqlstr, 'FDate1', DateTimeTOStr(int(cVoyageDate.Date)),
',');
{Handing}
FrmMain.UpStr(sqlstr, 'Handling', cHi.lines.Text, ',');
{Curr}
FrmMain.UpStr(sqlstr, 'Curr', FrmMain.getfieldtext(cEdtCurr.Text), ',');
{CHGS}
FrmMain.UpStr(sqlstr, 'Chgs', cEdtCHGS.Text, ',');
{PPD}
FrmMain.UpStr(sqlstr, 'PPD', cEdtPpd.Text, ',');
{COLL}
FrmMain.UpStr(sqlstr, 'COLL', cEdtColl.Text, ',');
{OPPD}
FrmMain.UpStr(sqlstr, 'OPPD', cEdtOppd.Text, ',');
{OCOLL}
FrmMain.UpStr(sqlstr, 'OCOLL', cEdtOcoll.Text, ',');
{DCV}
FrmMain.UpStr(sqlstr, 'DVC', cEdtDvc.Text, ',');
{DVCus}
FrmMain.UpStr(sqlstr, 'DVCus', CEdtDvc2.Text, ',');
{货物描述}
FrmMain.UpStr(sqlstr, 'goodsdesc', CEdtgoods.Text, ',');
if chkcommon.Checked then
FrmMain.UpStr(sqlstr, 'goodstype', 'COMMON', ',')
else
FrmMain.UpStr(sqlstr, 'goodstype', 'DANGER', ',');
{件数}
FrmMain.UpStr(sqlstr, 'Goodsnumber', StrToFloat(cEdtJianShu.text), ',');
{毛重}
FrmMain.UpStr(sqlstr, 'GoodsWeight', StrToFloat(cEdtMaoZ.text), ',');
{包装}
FrmMain.UpStr(sqlstr, 'BaoZhuang', ccomBaoz.text, ',');
{体积}
FrmMain.UpStr(sqlstr, 'GoodsSIZE', StrToFloat(cEdtTiJi.text), ',');
{计费重量}
FrmMain.UpStr(sqlstr, 'Goodschargeweight', StrToFloat(cEdtjfzl.text),
',');
{Execdate}
FrmMain.UpStr(sqlstr, 'Execdate', DatetoStr(cExecDate.Date), ',');
FrmMain.UpStr(sqlstr, 'dExecdate', DatetimeTOStr(int(cExecDate.Date)),
',');
{execplace}
FrmMain.UpStr(sqlstr, 'execplace', cEdtPlace.text, ',');
{业务员}
FrmMain.UpStr(sqlstr, 'Bussiness', FrmMain.getfieldtext(cBussiness.Text),
',');
{操作人}
FrmMain.UpStr(sqlstr, 'operate', cEdtczr.Text, ',');
{修改保存人}
FrmMain.UpStr(sqlstr, 'modioper', modioper, ',');
{befinish 是否完成}
if cchkfinish.Checked then
FrmMain.UpStr(sqlstr, 'befinish', 1, ',')
else
FrmMain.UpStr(sqlstr, 'befinish', 0, ',');
FrmMain.UpStr(sqlstr, 'ifdiscard', 0, ',');
FrmMain.UpStr(sqlstr, 'ifzhidan', 0, ',');
if cchkkeydown.Checked then
FrmMain.UpStr(sqlstr, 'keydown', 1, '')
else
FrmMain.UpStr(sqlstr, 'keydown', 0, '');
FrmMain.UpStr(sqlstr, 'FileCode =', LVHW.SELECTED.CAPTION, 'w');
if FrmMain.execsql(sqlstr) then
else
begin
ShowMessage('分单记录操作有失误,记录不能够进行保存,请检查!');
exit;
end;
CEdtmodioper.Text := modioper;
ValueArray[0] := lvhw.selected.caption;
ValueArray[1] := cedtRfileno.text;
ValueArray[2] := cedtfileNO.text;
ValueArray[3] := cedtcuscodename.text;
ValueArray[4] := cedtgoods.text;
ValueArray[5] := cedtjianshu.text;
ValueArray[6] := cedtmaoz.text;
ValueArray[7] := cedttiji.text;
ValueArray[8] := FrmMain.getfieldtext(cbussiness.text);
ArrayCount := 8;
FrmMain.RefeshOne(ValueArray, ArrayCount, lvhw);
{把修改标记值为真}
cIsEdit := true;
{修改报价号，如果改变进行一定的操作}
except
ShowMessage('分单操作有失误,记录不能够进行保存,请检查!');
end;
end
else
begin
try
sqlstr := 'insert into FileTable(FileCode,MainCode,hawb,' +
'Fileno,quotecode,Trusttype,trustsource,cztype,djnumber,kjkm,zcdjnumber,zckjkm,' +
'Cuscode,cuscodename,shouhuoren,consignname,AgentCode,Agent,' +
'AirPort,AirPortTo,Destination,Carrier,BY1,Fdate1,Handling,Curr,CHGS,' +
'PPD,COLL,OPPD,OCOLL,DVC,DVCus,goodsdesc,goodstype,' +
'GoodsNumber,baozhuang,goodssize,goodsweight,goodschargeweight,' +
'Execdate,Dexecdate,Execplace,bussiness,' +
'befinish,keydown,ifzhidan,Ifdiscard,' +
'inout,modioper,operate) values(';
{FileCode}
Varhawb := FrmMain.GetCode('H');
FrmMain.InsStr(SqlStr, VarHAWB, ',');
{Maincode}
FrmMain.InsStr(SqlStr, VarMain, ',');
{HAWB}
FrmMain.InsStr(sqlstr, CEdtFileno.text, ',');
{FileNo}
FrmMain.InsStr(sqlstr, CEdtRFileno.text, ',');
{quotecode}
if ccomprice.text = '' then
FrmMain.InsStr(sqlstr, 'null', ',')
else
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(cComprice.Text), ',');
{trusttype}
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(Ctrusttype.Text), ',');
{trustsource}
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(Ccomtrustsource.Text), ',');
{cztype}
FrmMain.InsStr(sqlstr, Ccomcztype.Text, ',');
{djnumber}
FrmMain.InsStr(sqlstr, CEdtNumber.Text, ',');
{kjkm}
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(CComKmdm.Text), ',');
{zcdjnumber}
FrmMain.InsStr(sqlstr, CEdtzcNumber.Text, ',');
{zckjkm}
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(CComzcKmdm.Text), ',');
{cuscode}
if Ccomcuscode.text = '' then
FrmMain.InsStr(sqlstr, 'null', ',')
else
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(CComcuscode.Text), ',');
FrmMain.InsStr(sqlstr, Cedtcuscodename.Text, ',');
{收货人}
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(CComconsign.Text), ',');
FrmMain.InsStr(sqlstr, Cedtconsignname.Text, ',');
{代理商}
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(CComagent.Text), ',');
{Agent 通知方}
FrmMain.InsStr(sqlstr, Cinform.lines.Text, ',');
{AirPort 装货港}
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(CComLoad.Text), ',');
{AirPortTo 卸货港}
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(CComUnLoad.Text), ',');
{destination 目的地}
FrmMain.InsStr(sqlstr, Cedtdest.Text, ',');
{Carrier 航空公司}
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(CComShipCom.Text), ',');
{一乘航班，经停，出运日期}
FrmMain.InsStr(sqlstr, CEdtBy.Text, ',');
FrmMain.InsStr(sqlstr, DatetimeTOstr(int(CVoyageDate.Date)), ',');
{Handing}
FrmMain.InsStr(sqlstr, CHi.lines.Text, ',');
{Curr}
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(CEdtCurr.Text), ',');
{CHGS}
FrmMain.InsStr(sqlstr, CEdtCHGS.Text, ',');
{PPD}
FrmMain.InsStr(sqlstr, CEdtPpd.Text, ',');
{COLL}
FrmMain.InsStr(sqlstr, CEdtColl.Text, ',');
{OPPD}
FrmMain.InsStr(sqlstr, CEdtOppd.Text, ',');
{OCOLL}
FrmMain.InsStr(sqlstr, CEdtOcoll.Text, ',');
{DCV}
FrmMain.InsStr(sqlstr, CEdtDvc.Text, ',');
{DVCus}
FrmMain.InsStr(sqlstr, CEdtDvc2.Text, ',');
{货物}
FrmMain.InsStr(sqlstr, CEdtgoods.Text, ',');
if chkcommon.Checked then
FrmMain.InsStr(sqlstr, 'COMMON', ',')
else
FrmMain.InsStr(sqlstr, 'DANGER', ',');
{件数}
FrmMain.InsStr(sqlstr, strtoint(cEdtjianshu.Text), ',');
{包装}
FrmMain.InsStr(sqlstr, ccombaoz.text, ',');
{体积}
FrmMain.InsStr(sqlstr, strtofloat(cEdttiji.Text), ',');
{重量}
FrmMain.InsStr(sqlstr, strtofloat(cEdtmaoz.Text), ',');
{计费重量}
FrmMain.InsStr(sqlstr, strtofloat(cEdtjfzl.Text), ',');
{签定日期}
FrmMain.InsStr(sqlstr, DatetimeTOStr(CExecDate.DateTime), ',');
FrmMain.InsStr(sqlstr, DatetimeTOStr(int(CExecDate.DateTime)), ',');
{签定地点}
FrmMain.InsStr(sqlstr, CEdtPlace.Text, ',');
{业务员}
FrmMain.InsStr(sqlstr, FrmMain.getfieldtext(CBussiness.Text), ',');
{Befinish 是否完成标记}
if Cchkfinish.Checked then
FrmMain.InsStr(sqlstr, 1, ',')
else
FrmMain.InsStr(sqlstr, 0, ',');
if Cchkkeydown.Checked then
FrmMain.InsStr(sqlstr, 1, ',')
else
FrmMain.InsStr(sqlstr, 0, ',');
FrmMain.InsStr(sqlstr, 0, ',');
FrmMain.InsStr(sqlstr, 0, ',');
{进出口标记 出口为1}
FrmMain.InsStr(sqlstr, 0, ',');
{修改保存人}
FrmMain.InsStr(sqlstr, Modioper, ',');
{操作人}
FrmMain.InsStr(sqlstr, CEdtczr.Text, '');
if FrmMain.execsql(sqlstr) then
else
begin
ShowMessage('分单记录插入失败,记录不能够进行保存,请检查!');
exit;
end;
{把增加按钮置为真 同时修改编辑状态}
cedtmodioper.text := modioper;
BitBtn1.enabled := true;
CIsEdit := true;
ValueArray[0] := VarHawb;
ValueArray[1] := cedtRfileno.text;
ValueArray[2] := cedtfileNO.text;
ValueArray[3] := cedtcuscodename.text;
ValueArray[4] := cedtgoods.text;
ValueArray[5] := cedtjianshu.text;
ValueArray[6] := cedtmaoz.text;
ValueArray[7] := cedttiji.text;
ValueArray[8] := FrmMain.getfieldtext(cbussiness.text);
ArrayCount := 8;
FrmMain.AddListView(ValueArray, ArrayCount, lvhw);
except
ShowMessage('分单记录操作有失误,不能够进行保存,请检查!');
end;
end;
end;
procedure TFrmAllImportBillEdit.SpeedButton2Click(Sender: TObject);
begin
inherited;
if lvhw.SelCount = 0 then
begin
ShowMessage('请选中一条分单记录再进行操作!！');
exit;
end;
lblmess.Caption := '标志:分单的费用记录,分单号为:' + cEdtFileno.text;
CHARGE.TabVisible := true;
Page.ActivePage := charge;
Groupfare.Visible := true;
BeConfirm := FrmMain.GetCustomerValue('Filecode', varHawb, 'ifprint',
'FileTable');
showFare(varHawb);
showhanding(varhawb);
{先预先把费用的增加、保存、删除按钮值为真}
BitBtn4.Enabled := True;
BitBtn6.Enabled := True⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -