Либо этот
procedure TForm1.Button1Click(Sender: TObject);
Var Axapta : Taxapta2;
begin
Axapta := TAxapta2.Create(NIL);
Axapta.Logon2('','','cor','ru','','','WORK_DIRECT');
Axapta.CallJob(WideString('CORI01_FillCASnapshot_Job'));
Axapta.Logoff();
end;
|