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.
82 lines
2.0 KiB
Plaintext
82 lines
2.0 KiB
Plaintext
unit u_op_local_truck;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, bsSkinCtrls, StdCtrls, wwdbdatetimepicker, RxLookup, Mask,
|
|
bsSkinBoxCtrls, bsdbctrls;
|
|
|
|
type
|
|
Tfrm_op_local_truck = class(TForm)
|
|
bsSkinButton4: TbsSkinButton;
|
|
bsSkinButton2: TbsSkinButton;
|
|
Label8: TLabel;
|
|
RxDBLookupCombo10: TRxDBLookupCombo;
|
|
Label90: TLabel;
|
|
bsSkinDBDateEdit1: TbsSkinDBDateEdit;
|
|
procedure bsSkinButton4Click(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
ComeOut:boolean;
|
|
end;
|
|
|
|
var
|
|
frm_op_local_truck: Tfrm_op_local_truck;
|
|
|
|
implementation
|
|
|
|
uses u_op_sealocal;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure Tfrm_op_local_truck.bsSkinButton4Click(Sender: TObject);
|
|
var i:integer;
|
|
begin
|
|
if RxDBLookupCombo10.DisplayValues[1]='' then
|
|
begin
|
|
showmessage('请选择车队');
|
|
Exit;
|
|
end;
|
|
if bsSkinDBDateEdit1.Text='' then
|
|
begin
|
|
showmessage('请选择日期');
|
|
Exit;
|
|
end;
|
|
|
|
if frm_op_sealocal.t_op_seae.IsEmpty then
|
|
exit;
|
|
if frm_op_sealocal.dxDBGrid1.SelectedCount<1 then
|
|
begin
|
|
showmessage('请选择要打印的业务帐单！！');
|
|
exit;
|
|
end;
|
|
for i:=0 to frm_op_sealocal.dxDBGrid1.SelectedCount-1 do
|
|
begin
|
|
frm_op_sealocal.t_op_seae.GotoBookmark(pointer(frm_op_sealocal.dxDBGrid1.selectedrows[i]));
|
|
frm_op_sealocal.t_op_seae.Edit;
|
|
if ComeOut then
|
|
begin
|
|
frm_op_sealocal.t_op_seae.FieldByName('装运车队').AsString:=RxDBLookupCombo10.DisplayValues[1];
|
|
frm_op_sealocal.t_op_seae.FieldByName('装箱日期').Value:=bsSkinDBDateEdit1.Date;
|
|
end
|
|
else
|
|
begin
|
|
frm_op_sealocal.t_op_seae.FieldByName('送货车队').AsString:=RxDBLookupCombo10.DisplayValues[1];
|
|
frm_op_sealocal.t_op_seae.FieldByName('送货日期').Value:=bsSkinDBDateEdit1.Date;
|
|
end;
|
|
frm_op_sealocal.t_op_seae.Post;
|
|
end;
|
|
Close;
|
|
end;
|
|
|
|
procedure Tfrm_op_local_truck.FormShow(Sender: TObject);
|
|
begin
|
|
bsSkinDBDateEdit1.Date:=date;
|
|
end;
|
|
|
|
end.
|