You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
261 lines
9.5 KiB
Plaintext
261 lines
9.5 KiB
Plaintext
unit u_op_vesselvoy_change;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, wwdbdatetimepicker, bsSkinCtrls, BusinessSkinForm, DB,ADODB,
|
|
Mask, DBCtrls, wwdblook, RxLookup;
|
|
|
|
type
|
|
Tfrm_op_vesselvoy_change = class(TForm)
|
|
Label1: TLabel;
|
|
bsBusinessSkinForm1: TbsBusinessSkinForm;
|
|
bsSkinButton1: TbsSkinButton;
|
|
bsSkinButton5: TbsSkinButton;
|
|
DataSource1: TDataSource;
|
|
wwDBLookupCombo49: TwwDBLookupCombo;
|
|
Label125: TLabel;
|
|
Label126: TLabel;
|
|
Button1: TButton;
|
|
Label2: TLabel;
|
|
wwDBDateTimePicker2: TwwDBDateTimePicker;
|
|
DBEdit63: TEdit;
|
|
Label3: TLabel;
|
|
Edit1: TEdit;
|
|
wwDBLookupCombo52: TwwDBLookupCombo;
|
|
Label124: TLabel;
|
|
Label145: TLabel;
|
|
wwDBLookupCombo17: TwwDBLookupCombo;
|
|
wwDBDateTimePicker17: TwwDBDateTimePicker;
|
|
Label197: TLabel;
|
|
Label25: TLabel;
|
|
wwDBDateTimePicker6: TwwDBDateTimePicker;
|
|
wwDBLookupCombo27: TwwDBLookupCombo;
|
|
Label176: TLabel;
|
|
RxDBLookupCombo48: TRxDBLookupCombo;
|
|
Label128: TLabel;
|
|
procedure bsSkinButton5Click(Sender: TObject);
|
|
procedure bsSkinButton1Click(Sender: TObject);
|
|
procedure Button1Click(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
BSTYPE:string;
|
|
end;
|
|
|
|
var
|
|
frm_op_vesselvoy_change: Tfrm_op_vesselvoy_change;
|
|
|
|
implementation
|
|
|
|
uses my_sys_function, u_op_seae_vessel, u_op_seae, u_data_share;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_op_vesselvoy_change.bsSkinButton5Click(Sender: TObject);
|
|
begin
|
|
close;
|
|
end;
|
|
|
|
procedure Tfrm_op_vesselvoy_change.bsSkinButton1Click(Sender: TObject);
|
|
var
|
|
aQuery:TAdoQuery;
|
|
i:Integer;
|
|
book1:Tbookmark;
|
|
dsstr,PostUrl:string;
|
|
begin
|
|
if wwDBLookupCombo49.text='' then
|
|
begin
|
|
showmessage('请输入新的船名！！');
|
|
exit;
|
|
end;
|
|
if DBEdit63.text='' then
|
|
begin
|
|
showmessage('请输入新的航次！！');
|
|
exit;
|
|
end;
|
|
|
|
try
|
|
frm_op_seae.t_op_seae.DisableControls;
|
|
aQuery:=createAdoQuery;
|
|
try
|
|
with aQuery do begin
|
|
for i:=0 to frm_op_seae.dxDBGrid1.SelectedCount-1 do
|
|
begin
|
|
frm_op_seae.t_op_seae.GotoBookmark(pointer(frm_op_seae.dxDBGrid1.selectedrows[i]));
|
|
// Close;sql.Clear;
|
|
frm_op_seae.t_op_seae.Edit;
|
|
|
|
if (frm_op_seae.t_op_seae.FieldByName('费用状态').AsString<>'费用封帐') and (frm_op_seae.t_op_seae.FieldByName('费用状态').AsString<>'提交财务') then begin
|
|
frm_op_seae.t_op_seae['开船日期']:=FormatDateTime('YYYY-MM-DD',wwDBDateTimePicker2.Date);
|
|
frm_op_seae.t_op_seae['会计期间']:=FormatDateTime('YYYY-MM-DD',wwDBDateTimePicker2.Date);
|
|
frm_op_seae.t_op_seae['船名']:=wwDBLookupCombo49.Text;
|
|
frm_op_seae.t_op_seae['航次']:=DBEdit63.text;
|
|
if (trim(Edit1.Text)<>'') then
|
|
frm_op_seae.t_op_seae['内部航次号']:=Edit1.text;
|
|
if (trim(wwDBLookupCombo52.Text)<>'') then begin
|
|
frm_op_seae.t_op_seae['卸货港']:=wwDBLookupCombo52.Text;
|
|
if frm_data_share.t_code_disport.Locate('英文名',wwDBLookupCombo52.text,[]) then
|
|
begin
|
|
frm_op_seae.t_op_seae['卸货代码']:=frm_data_share.t_code_disport['EDI代码'];
|
|
end else begin
|
|
frm_op_seae.t_op_seae['卸货代码']:='';
|
|
end;
|
|
end;
|
|
if (trim(wwDBLookupCombo17.Text)<>'') then begin
|
|
frm_op_seae.t_op_seae['目的地']:=wwDBLookupCombo17.Text;
|
|
if frm_data_share.t_code_disport.Locate('英文名',wwDBLookupCombo17.text,[]) then
|
|
begin
|
|
frm_op_seae.t_op_seae['目的地代码']:=frm_data_share.t_code_disport['EDI代码'];
|
|
end else begin
|
|
frm_op_seae.t_op_seae['目的地代码']:='';
|
|
end;
|
|
end;
|
|
if (trim(wwDBLookupCombo27.Text)<>'') then begin
|
|
frm_op_seae.t_op_seae['二程港口']:=wwDBLookupCombo27.Text;
|
|
end;
|
|
if (trim(wwDBDateTimePicker6.Text)<>'') then begin
|
|
frm_op_seae.t_op_seae['截单日期']:=wwDBDateTimePicker6.Text;
|
|
end;
|
|
if (trim(wwDBDateTimePicker17.Text)<>'') then begin
|
|
frm_op_seae.t_op_seae['截港日期']:=wwDBDateTimePicker17.Text;
|
|
end;
|
|
|
|
if (RxDBLookupCombo48.DisplayValues[0]<>'') then begin
|
|
frm_op_seae.t_op_seae['发货人编号']:=RxDBLookupCombo48.DisplayValues[0];
|
|
end;
|
|
|
|
end;
|
|
frm_op_seae.t_op_seae.Post;
|
|
{
|
|
sql.Add('Update t_op_seae set 开船日期=:开船日期,会计期间=:会计期间,船名=:vsl,航次=:voy');
|
|
if (trim(Edit1.Text)<>'') then
|
|
sql.Add(',内部航次号=:voy2');
|
|
if (trim(wwDBLookupCombo52.Text)<>'') then begin
|
|
sql.Add(',卸货港=:portdischarge');
|
|
sql.Add(',卸货代码=:portdischargeid');
|
|
end;
|
|
if (trim(wwDBLookupCombo17.Text)<>'') then begin
|
|
sql.Add(',目的地=:destination');
|
|
sql.Add(',目的地代码=:destinationid');
|
|
end;
|
|
if (trim(wwDBDateTimePicker6.Text)<>'') then begin
|
|
sql.Add(',截单日期=:closedocdate');
|
|
end;
|
|
if (trim(wwDBDateTimePicker17.Text)<>'') then begin
|
|
sql.Add(',截港日期=:closedate');
|
|
end;
|
|
|
|
sql.Add(' where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+''' and 业务类型=''普通货'' and 费用状态<>''费用封帐'' and 费用状态<>''提交财务'' ');
|
|
Parameters.ParamByName('vsl').Value:=wwDBLookupCombo49.Text;
|
|
Parameters.ParamByName('voy').Value:=DBEdit63.text;
|
|
Parameters.ParamByName('开船日期').Value:=FormatDateTime('YYYY-MM-DD',wwDBDateTimePicker2.Date);
|
|
Parameters.ParamByName('会计期间').Value:=FormatDateTime('YYYY-MM-DD',wwDBDateTimePicker2.Date);
|
|
if (trim(Edit1.Text)<>'') then
|
|
Parameters.ParamByName('voy2').Value:=Edit1.text;
|
|
if (trim(wwDBLookupCombo52.Text)<>'') then begin
|
|
Parameters.ParamByName('portdischarge').Value:=wwDBLookupCombo52.Text;
|
|
if frm_data_share.t_code_disport.Locate('英文名',wwDBLookupCombo52.text,[]) then
|
|
begin
|
|
Parameters.ParamByName('portdischargeid').Value:=frm_data_share.t_code_disport['EDI代码'];
|
|
end else begin
|
|
Parameters.ParamByName('portdischargeid').Value:='';
|
|
end;
|
|
end;
|
|
if (trim(wwDBLookupCombo17.Text)<>'') then begin
|
|
Parameters.ParamByName('destination').Value:=wwDBLookupCombo17.Text;
|
|
if frm_data_share.t_code_disport.Locate('英文名',wwDBLookupCombo17.text,[]) then
|
|
begin
|
|
Parameters.ParamByName('destinationid').Value:=frm_data_share.t_code_disport['EDI代码'];
|
|
end else begin
|
|
Parameters.ParamByName('destinationid').Value:='';
|
|
end;
|
|
end;
|
|
if (trim(wwDBDateTimePicker6.Text)<>'') then begin
|
|
Parameters.ParamByName('closedocdate').Value:=wwDBDateTimePicker6.Text;
|
|
end;
|
|
if (trim(wwDBDateTimePicker17.Text)<>'') then begin
|
|
Parameters.ParamByName('closedate').Value:=wwDBDateTimePicker17.Text;
|
|
end;
|
|
|
|
|
|
ExecSQL;
|
|
|
|
}
|
|
|
|
|
|
Close;sql.Clear;
|
|
sql.Add('Update t_op_seae_assistant set 开船日期=:开船日期,船名=:vsl,航次=:voy');
|
|
if (trim(wwDBLookupCombo52.Text)<>'') then begin
|
|
sql.Add(',卸货港=:portdischarge');
|
|
end;
|
|
if (trim(wwDBLookupCombo17.Text)<>'') then begin
|
|
sql.Add(',目的地=:destination');
|
|
end;
|
|
|
|
|
|
sql.Add(' where 编号='''+frm_op_seae.t_op_seae.fieldbyname('编号').AsString+'''');
|
|
Parameters.ParamByName('vsl').Value:=wwDBLookupCombo49.Text;
|
|
Parameters.ParamByName('voy').Value:=DBEdit63.text;
|
|
Parameters.ParamByName('开船日期').Value:=FormatDateTime('YYYY-MM-DD',wwDBDateTimePicker2.Date);
|
|
if (trim(wwDBLookupCombo52.Text)<>'') then begin
|
|
Parameters.ParamByName('portdischarge').Value:=wwDBLookupCombo52.Text;
|
|
end;
|
|
if (trim(wwDBLookupCombo17.Text)<>'') then begin
|
|
Parameters.ParamByName('destination').Value:=wwDBLookupCombo17.Text;
|
|
end;
|
|
ExecSQL;
|
|
|
|
if (frm_op_seae.t_op_seae.FieldByName('船公司').AsString='CMA') and ((frm_op_seae.t_op_seae.FieldByName('订舱状态').AsString='已订舱') or (frm_op_seae.t_op_seae.FieldByName('订舱状态').AsString='已接收')
|
|
or (frm_op_seae.t_op_seae.FieldByName('确认状态').AsString='已确认')) and (frm_op_seae.t_op_seae.FieldByName('业务类型').AsString<>'更改单') THEN begin
|
|
dsstr:=frm_op_seae.CreateDjyStr;
|
|
PostUrl:=get_parameters_value(2121,'http://123.234.225.158:8901')+'/booking/ReceiveBookingData';
|
|
if (frm_op_seae.t_op_seae.FieldByName('船公司').asstring<>'东方海外') then begin
|
|
|
|
TDsDjyThread.create(PostUrl,dsstr,'');
|
|
InsertSysLog('上传大简云',frm_op_seae.t_op_seae.FieldByName('业务编号').asstring);
|
|
end;
|
|
END;
|
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
end;
|
|
finally
|
|
FreeAndNil(aQuery);
|
|
end;
|
|
|
|
finally
|
|
frm_op_seae.t_op_seae.EnableControls;
|
|
end;
|
|
|
|
|
|
book1:=frm_op_seae.t_op_seae.GetBookmark;
|
|
frm_op_seae.t_op_seae.Refresh;
|
|
frm_op_seae.t_op_seae.GotoBookmark(book1);
|
|
|
|
showmessage('更改成功！！');
|
|
close;
|
|
end;
|
|
|
|
procedure Tfrm_op_vesselvoy_change.Button1Click(Sender: TObject);
|
|
begin
|
|
try
|
|
frm_op_seae_vessel:=tfrm_op_seae_vessel.Create (self);
|
|
frm_op_seae_vessel.v_vessel_voyage.open;
|
|
frm_op_seae_vessel.wwIncrementalSearch1.Text:=wwDBLookupCombo49.text;
|
|
op_seae_vessel_num:=4;
|
|
frm_op_seae_vessel.ShowModal;
|
|
finally
|
|
frm_op_seae_vessel.Free;
|
|
frm_op_seae_vessel:=nil;
|
|
end;
|
|
end;
|
|
|
|
end.
|