hanxuntao
/
DS6JIEFENG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
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.
master
Branches Tags
${ item.name }
Create tag ${ searchTerm }
Create branch ${ searchTerm }
from 'ff70d5d010'
${ noResults }
DS6JIEFENG/海运业务/u_op_seae_truck_to.pas

492 lines
14 KiB
Plaintext
Raw Blame History Unescape Escape

This file contains ambiguous Unicode characters!

This file contains ambiguous Unicode characters that may be confused with others in your current locale. If your use case is intentional and legitimate, you can safely ignore this warning. Use the Escape button to highlight these characters.

unit u_op_seae_truck_to;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, BusinessSkinForm, bsSkinCtrls, StdCtrls, wwdbdatetimepicker, DB,
RxLookup, Mask, wwdbedit, Wwdotdot, Wwdbcomb,inifiles, ADODB;
type
Tfrm_op_seae_truck_to = class(TForm)
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinCheckRadioBox1: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox2: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox3: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox4: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox5: TbsSkinCheckRadioBox;
bsSkinCheckRadioBox6: TbsSkinCheckRadioBox;
bsSkinButton1: TbsSkinButton;
bsSkinButton2: TbsSkinButton;
data1: TDataSource;
bsSkinButton3: TbsSkinButton;
bsSkinCheckRadioBox7: TbsSkinCheckRadioBox;
bsSkinButton4: TbsSkinButton;
OpenDialog1: TOpenDialog;
bsSkinCheckRadioBox8: TbsSkinCheckRadioBox;
bsSkinGroupBox2: TbsSkinGroupBox;
Label19: TLabel;
RxDBLookupCombo29: TRxDBLookupCombo;
dataseae: TDataSource;
t_op_apply: TADOQuery;
t_sys_employee: TADOQuery;
t_sys_employee1: TDataSource;
procedure bsSkinButton2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure bsSkinButton3Click(Sender: TObject);
procedure bsSkinCheckRadioBox7Click(Sender: TObject);
procedure RxDBLookupCombo14Change(Sender: TObject);
procedure RxDBLookupCombo29Change(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure t_op_applyBeforePost(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frm_op_seae_truck_to: Tfrm_op_seae_truck_to;
frm_op_seae_add_num:integer;
implementation
uses u_main, u_op_seae, my_sys_function, u_data_share;
{$R *.dfm}
procedure Tfrm_op_seae_truck_to.bsSkinButton2Click(Sender: TObject);
begin
close;
end;
procedure Tfrm_op_seae_truck_to.FormShow(Sender: TObject);
var
inifile1:Tinifile;
begin
t_sys_employee.open;
{
wwDBDateTimePicker1.MinDate:=Logininfo.endday+1;
wwDBDateTimePicker1.Date:=date;
}
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
// RxDBLookupCombo14.DisplayValue:=inifile1.ReadString('applyorder','op','');
RxDBLookupCombo29.DisplayValue:=inifile1.ReadString('truckorder','sales','');
{
RxDBLookupCombo30.DisplayValue:=inifile1.ReadString('applyorder','opdept','');
RxDBLookupCombo13.DisplayValue:=inifile1.ReadString('applyorder','kf','');
RxDBLookupCombo12.DisplayValue:=inifile1.ReadString('applyorder','salesdept','');
RxDBLookupCombo16.DisplayValue:=inifile1.ReadString('applyorder','ywly','');
RxDBLookupCombo17.DisplayValue:=inifile1.ReadString('applyorder','ywlyitems','');
}
inifile1.free;
end;
procedure Tfrm_op_seae_truck_to.bsSkinButton3Click(Sender: TObject);
var
afield : variant;
i: Integer;
PNO:string;
begin
if (RxDBLookupCombo29.DisplayValue='') //<2F><><EFBFBD><EFBFBD>Ա
then begin
MessageDlg('<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', mtConfirmation, [mbYes],0);
exit;
end;
dataseae.DataSet.Edit;
dataseae.DataSet.FieldByName('<27>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD>').AsBoolean:=true;
// dataseae.DataSet['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=RxDBLookupCombo14.DisplayValue;
dataseae.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=RxDBLookupCombo29.DisplayValue;
dataseae.DataSet.FieldByName('<27><>֤<EFBFBD><D6A4>Ϣ').AsString:='<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>';
if (dataseae.DataSet.State=dsinsert)or(dataseae.DataSet.State=dsedit) then
dataseae.DataSet.post;
{
if dataseae.DataSet.IsEmpty then
begin
showmessage('û<>и<EFBFBD><D0B8><EFBFBD>ĸ<EFBFBD>壬<EFBFBD><E5A3AC><EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD>½<EFBFBD><C2BD><EFBFBD>');
exit;
end;
t_op_apply.open;
afield := vararraycreate([0,dataseae.DataSet.fieldcount-1],varvariant);
for i := 0 to (dataseae.DataSet.fieldcount-1) do
begin
afield[i] :=dataseae.DataSet.fields[i].value ;
end;
data1.DataSet.append;
for i := 0 to (data1.DataSet.fieldcount-1) do
begin
data1.DataSet.fields[i].value := afield[i] ;
end;
data1.DataSet['<27>ܴ<EFBFBD>']:=WeekofYear(wwDBDateTimePicker1.date);
data1.DataSet['װ<>˷<EFBFBD>ʽ']:='<27><><EFBFBD><EFBFBD>';
if bsSkinCheckRadioBox7.Checked then
begin
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><><EFBFBD>ĵ<EFBFBD>';
PNO:=Trim(data1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString);
end
else
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='<27><>ͨ<EFBFBD><CDA8>';
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>յ<EFBFBD><D5B5><EFBFBD>']:='';
// if not (Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>ֶ<EFBFBD><D6B6>༭') then
data1.DataSet['ί<>б<EFBFBD><D0B1><EFBFBD>']:='';
if bsSkinCheckRadioBox7.Checked then
begin
if Trim(PNO)<>'' then
data1.DataSet.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString:=PNO+'*';
end;
data1.DataSet['<27><><EFBFBD><EFBFBD>1']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>2']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>3']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>4']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>5']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>6']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>7']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>8']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>9']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>10']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><>TEU']:=0;
// data1.DataSet['<27><>װ<EFBFBD><D7B0>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>д']:='';
data1.DataSet['<27>Ʒѱ<C6B7>׼']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:='';
data1.DataSet['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD>']:='';
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['ͨ<><CDA8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:='';
data1.DataSet['Σ<><CEA3>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD>ͨ<EFBFBD><CDA8><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>¶ȵ<C2B6>λ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
// data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʶ']:='';
data1.DataSet['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD>̿<EFBFBD><CCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD≯ۿ<CCB8>']:='';
data1.DataSet['<27><><EFBFBD>̴<EFBFBD><CCB4><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>̺<EFBFBD><CCBA><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD>ŷ<EFBFBD><C5B7><EFBFBD>']:='';
// data1.DataSet['<27><>ע']:='';
data1.DataSet['<27>ֵ<EFBFBD><D6B5>б<EFBFBD>']:='';
data1.DataSet['<27><>Ʊ<EFBFBD><C6B1>']:='';
data1.DataSet['<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ɳ<EFBFBD>']:=0;
data1.DataSet['<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['Ӧ<><D3A6>½<EFBFBD><C2BD>']:=0;
data1.DataSet['½<><C2BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>˰']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ͨ<EFBFBD><CDA8>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD>ǩ<EFBFBD><C7A9>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>˲<EFBFBD>']:=0;
data1.DataSet['<27><>˰<EFBFBD><CBB0><EFBFBD><EFBFBD>']:=null;
data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ɳ<EFBFBD><C9B3><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ĵ<EFBFBD><C4B5><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7>ĵ<EFBFBD>']:=0;
data1.DataSet['FEE']:=0;
data1.DataSet['FEE2']:=0;
data1.DataSet['ҵ<><D2B5>״̬']:='<27><><EFBFBD>뱨<EFBFBD><EBB1A8>';
data1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['¼<><C2BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=date;
data1.DataSet['<27>ֲ<EFBFBD><D6B2><EFBFBD><EFBFBD><EFBFBD>']:=subComp;
data1.DataSet['<27><><EFBFBD><EFBFBD>Ա']:=RxDBLookupCombo14.DisplayValue;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=RxDBLookupCombo30.DisplayValue;
data1.DataSet['<27>ͷ<EFBFBD>Ա']:=RxDBLookupCombo13.DisplayValue;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=RxDBLookupCombo29.DisplayValue;
data1.DataSet['<27><><EFBFBD>۲<EFBFBD><DBB2><EFBFBD>']:=RxDBLookupCombo12.DisplayValue;
data1.DataSet['ҵ<><D2B5><EFBFBD><EFBFBD>Դ']:=RxDBLookupCombo16.DisplayValue;
data1.DataSet['<27><>Դ<EFBFBD><D4B4>ϸ']:=RxDBLookupCombo17.DisplayValue;
data1.DataSet['<27><><EFBFBD>ز<EFBFBD><D8B2><EFBFBD>']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=employee;
if data1.DataSet['<27><><EFBFBD><EFBFBD>˾']<>'CMA' THEN
data1.DataSet['<27><><EFBFBD>䷽ʽ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ᵥǩ<E1B5A5><C7A9>״̬']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>']:=wwDBDateTimePicker1.date;
if (strtoint(get_parameters_value(158,'0'))=1) and bsSkinCheckRadioBox7.Checked then
AmendAccDate('T_OP_SEAE',data1);
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>˵ֹ<CBB5>']:='';
data1.DataSet['<27><><EFBFBD>ڻ<EFBFBD>Դ<EFBFBD><D4B4>']:='';
data1.DataSet['<27><>׼<EFBFBD>ĺ<EFBFBD>']:='';
data1.DataSet['<27>ɽ<EFBFBD><C9BD><EFBFBD>ʽ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ܼ<EFBFBD>']:='';
data1.DataSet['<27><>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>λ']:='';
data1.DataSet['<27>ӵ<EFBFBD><D3B5><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['ʵ<><CAB5>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['Ѭ<><D1AC>ʱ<EFBFBD><CAB1>']:=null;
data1.DataSet['<27><>֤ʱ<D6A4><CAB1>']:=null;
data1.DataSet['ʵ<><CAB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>ƾ֤2']:='';
// data1.DataSet['ǩ<><C7A9><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>Ƿ<EFBFBD><C7B7><EFBFBD>ӡ']:=0;
data1.DataSet['<27><><EFBFBD>۶<EFBFBD><DBB6><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD>÷<EFBFBD><C3B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ܼ<EFBFBD>']:='0';
data1.DataSet['<27>ڶ<EFBFBD>֪ͨ<CDA8><D6AA>']:='';
data1.DataSet['<27>ڲ<EFBFBD><DAB2><EFBFBD><EFBFBD>κ<EFBFBD>']:='';
data1.DataSet['DOOR<4F><52>ַ']:='';
data1.DataSet['<27>𵥲<EFBFBD><F0B5A5B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD>ᵥ<EFBFBD><E1B5A5><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>״̬']:='';
data1.DataSet['ȷ<><C8B7>״̬']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƾ֤']:='';
data1.DataSet['<27><><EFBFBD>۸<EFBFBD><DBB8>Ѷ<EFBFBD><D1B6><EFBFBD>']:='';
data1.DataSet['<27><>ͬ<EFBFBD><CDAC>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ϼ<EFBFBD>20']:=0;
data1.DataSet['<27>ϼ<EFBFBD>40']:=0;
data1.DataSet['<27>ϼ<EFBFBD>40H']:=0;
data1.DataSet['<27>ϼ<EFBFBD>45']:=0;
data1.DataSet['<27><><EFBFBD>ųɱ<C5B3>']:=0;
data1.DataSet['ƾ֤<C6BE><D6A4><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27>ύ<EFBFBD><E1BDBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=null;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='0';
data1.DataSet['Ӧ<>պ<EFBFBD><D5BA>˷<EFBFBD>']:=0;
data1.DataSet['Ӧ<><D3A6><EFBFBD><EFBFBD><EFBFBD>˷<EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD>˾<EFBFBD><CBBE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>ݷ<EFBFBD><DDB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD>۸<EFBFBD><DBB8><EFBFBD>']:=0;
data1.DataSet['<27>ϳ<EFBFBD><CFB3><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['ƴ<><C6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=0;
data1.DataSet['<27>յ<EFBFBD><D5B5>걨']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=getzqlx(data1.DataSet['ί<>е<EFBFBD>λ']);
if copy(data1.DataSet.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring,1,4)='ƴ<><C6B4>'then
begin
if not strtobool(get_parameters_value(52,'false')) then
begin
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ֵ<EFBFBD><D6B5>б<EFBFBD>']:='';
end;
end
else
begin
if not strtobool(get_parameters_value(51,'false')) then
begin
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>װ']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:='';
data1.DataSet['<27>ֵ<EFBFBD><D6B5>б<EFBFBD>']:='';
end;
end;
data1.DataSet.Post;
}
close;
end;
procedure Tfrm_op_seae_truck_to.bsSkinCheckRadioBox7Click(Sender: TObject);
begin
bsSkinCheckRadioBox3.Checked:=True;
end;
procedure Tfrm_op_seae_truck_to.RxDBLookupCombo14Change(Sender: TObject);
begin
{
if RxDBLookupCombo14.DisplayValue='' then
exit;
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo14.DisplayValue,[]) then
RxDBLookupCombo30.DisplayValue:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
}
end;
procedure Tfrm_op_seae_truck_to.RxDBLookupCombo29Change(Sender: TObject);
begin
{
if RxDBLookupCombo29.DisplayValue='' then
exit;
if frm_data_share.t_sys_employee.locate('<27><><EFBFBD><EFBFBD>',RxDBLookupCombo29.DisplayValue,[]) then
RxDBLookupCombo12.DisplayValue:=frm_data_share.t_sys_employee['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'];
}
end;
procedure Tfrm_op_seae_truck_to.FormClose(Sender: TObject;
var Action: TCloseAction);
var
inifile1:Tinifile;
begin
inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
// inifile1.WriteString('applyorder','op',RxDBLookupCombo14.DisplayValue);
inifile1.WriteString('truckorder','sales',RxDBLookupCombo29.DisplayValue);
{
inifile1.WriteString('applyorder','opdept',RxDBLookupCombo30.DisplayValue);
inifile1.WriteString('applyorder','kf',RxDBLookupCombo13.DisplayValue);
inifile1.WriteString('applyorder','salesdept',RxDBLookupCombo12.DisplayValue);
inifile1.WriteString('applyorder','ywly',RxDBLookupCombo16.DisplayValue);
inifile1.WriteString('applyorder','ywlyitems',RxDBLookupCombo17.DisplayValue);
}
inifile1.free;
end;
procedure Tfrm_op_seae_truck_to.t_op_applyBeforePost(DataSet: TDataSet);
var
aQuery:TAdoQuery;
begin
//ί<>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>Ź<EFBFBD><C5B9><EFBFBD>').Asstring)='<27>Զ<EFBFBD>ȡ<EFBFBD><C8A1>' then
if t_op_apply.FieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').IsNull or (trim(t_op_apply.fieldByName('ί<>б<EFBFBD><D0B1><EFBFBD>').AsString)='') then
if Trim(frm_data_share.t_sys_noset.fieldbyname('<27><><EFBFBD>ڹ<EFBFBD><DAB9><EFBFBD>').Asstring)='<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>' then
t_op_apply['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_apply['<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>'])
else
t_op_apply['ί<>б<EFBFBD><D0B1><EFBFBD>']:=getwtno(1,subComp,department,employee,t_op_apply['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']);
if t_op_apply.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring=''then
begin
t_op_apply['ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=get_no(t_op_apply.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD>').AsDateTime,getbsno(Logininfo.SeaExpBsNo,'SE'));
t_op_apply['<27><><EFBFBD><EFBFBD>']:=get_id;
//showmessage(t_op_seae['<27><><EFBFBD><EFBFBD>']);
end;
t_op_apply['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>']:=dataseae.DataSet['<27><><EFBFBD><EFBFBD>'];
t_op_apply['ҵ<><D2B5>״̬']:='<27><><EFBFBD>뱨<EFBFBD><EBB1A8>';
t_op_apply['<27><><EFBFBD><EFBFBD>ǰ״̬']:='<27><><EFBFBD><EFBFBD>ί<EFBFBD><CEAF>';
t_op_apply['<27><><EFBFBD><EFBFBD>״̬']:='¼<><C2BC>״̬';
table_before_post(t_op_apply,'<27><><EFBFBD><EFBFBD>');
t_op_apply['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_apply['<27><><EFBFBD><EFBFBD>'];
t_op_apply['<27><><EFBFBD>ᵥ<EFBFBD><E1B5A5>׼']:=t_op_apply['<27><><EFBFBD><EFBFBD>'];
t_op_apply['ί<>б<EFBFBD>׼']:=t_op_apply['<27><><EFBFBD><EFBFBD>'];
t_op_apply['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']:=t_op_apply['<27><><EFBFBD><EFBFBD>'];
if strtobool(get_parameters_value(58,'false')) then
begin
if (trim(t_op_apply.fieldbyname('<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>').asstring)='') or (Trim(t_op_apply.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>')or (t_op_apply.fieldbyname('װ<>˷<EFBFBD>ʽ').asstring='<27><><EFBFBD><EFBFBD>') then
begin
t_op_apply['<27><><EFBFBD>ر<EFBFBD>׼']:=t_op_apply['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_apply['<27><><EFBFBD>ر<EFBFBD>׼']:=t_op_apply['<27><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD>'];
end;
end
else
begin
t_op_apply['<27><><EFBFBD>ر<EFBFBD>׼']:=t_op_apply['<27><><EFBFBD><EFBFBD>'];
end;
if (trim(t_op_apply.fieldbyname('<27><><EFBFBD>쵥<EFBFBD><ECB5A5>').asstring)='') or (Trim(t_op_apply.fieldbyname('ҵ<><D2B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').asstring)='<27><><EFBFBD>ĵ<EFBFBD>') then
begin
t_op_apply['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']:=t_op_apply['<27><><EFBFBD><EFBFBD>'];
end
else
begin
t_op_apply['<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>׼']:=t_op_apply['<27><><EFBFBD>쵥<EFBFBD><ECB5A5>'];
end;
end;
end.
Reference in New Issue View Git Blame Copy Permalink