function drauft_datei_erstellen(v_IUsername, v_mandant, v_belegart, v_drauftnr :
string; v_GJ : integer; Sender: TObject) : boolean;
var
v_tempstring, v_batchn_username :
string;
E :
Exception;
begin
try
v_batchn_username := copy(v_IUsername+'
????????',0,8);
with form1
do
begin
IdRSH1.UseStdError := true;
IdRSH1.Host := '
192.168.5.100';
IdRSH1.HostUsername := '
benutzername';
IdRSH1.ClientUserName := '
benutzername';
v_tempstring:='
0000'+trim(v_drsauftnr);
v_drauftnr:=copy(v_tempstring,(length(v_tempstring)-3),4);
IdRSH1.Execute('
/usr/local/skripte/unix/dateiname uebergabewert');
if trim(IdRSH1.ErrorMessage) <> '
'
then
begin
inc(v_fehler_anzahl);
setlength(v_fehlerprotokoll,v_fehler_anzahl);
with v_fehlerprotokoll[v_fehler_anzahl-1]
do
begin
fehlerart := '
Fehler';
fehlerprocedure := '
drauft_datei_erstellen';
mandant := v_mandant;
belegart := v_belegart;
anzahl_uebergabewerte := 4;
SetLength(uebergabewerte_procedure,anzahl_uebergabewerte);
uebergabewerte_procedure[0].variablen_name := '
v_IUsername';
uebergabewerte_procedure[0].variablen_wert := v_IUsername;
uebergabewerte_procedure[1].variablen_name := '
v_mandant';
uebergabewerte_procedure[1].variablen_wert := v_mandant;
uebergabewerte_procedure[2].variablen_name := '
v_belegart';
uebergabewerte_procedure[2].variablen_wert := v_belegart;
uebergabewerte_procedure[3].variablen_name := '
v_drauftnr';
uebergabewerte_procedure[3].variablen_wert := v_drauftnr;
fehlertext := '
Druckdatei konnte nicht erstellt werden! IdRSH1.ErrorMessage= '+form1.IdRSH1.ErrorMessage;
fehlerdatum := v_fehler_datum;
fehleruhrzeit := fehlerprotokoll_uhrzeit_ermitteln;
end;
result := false;
end
else
begin
IdRSH1.Disconnect;
if v_GJ < 99999
then
begin
if druckauftrag_ist_unklar(v_drauftnr,v_mandant,v_IUsername) = false
then
begin
DRUCKDATEI_Status_schreiben(v_GJ,v_drauftnr,c_druckdatei_erstellt,v_mandant,v_belegart)
end
else
DRUCKDATEI_Status_schreiben(v_GJ,v_drauftnr,c_druckdatei_nicht_erstellt,v_mandant,v_belegart);
inc(v_anzahl_druckdateien);
end;
result := true;
end;
end;
except
inc(v_fehler_anzahl);
setlength(v_fehlerprotokoll,v_fehler_anzahl);
with v_fehlerprotokoll[v_fehler_anzahl-1]
do
begin
fehlerart := '
Exception';
fehlerprocedure := '
drauft_datei_erstellen';
mandant := v_mandant;
belegart := v_belegart;
anzahl_uebergabewerte := 4;
SetLength(uebergabewerte_procedure,anzahl_uebergabewerte);
uebergabewerte_procedure[0].variablen_name := '
v_IUsername';
uebergabewerte_procedure[0].variablen_wert := v_IUsername;
uebergabewerte_procedure[1].variablen_name := '
v_mandant';
uebergabewerte_procedure[1].variablen_wert := v_mandant;
uebergabewerte_procedure[2].variablen_name := '
v_belegart';
uebergabewerte_procedure[2].variablen_wert := v_belegart;
uebergabewerte_procedure[3].variablen_name := '
v_drauftnr';
uebergabewerte_procedure[3].variablen_wert := v_drauftnr;
fehlertext := copy('
ExceptionMeldung '+E.
Message,0,253);
fehlerdatum := v_fehler_datum;
fehleruhrzeit := fehlerprotokoll_uhrzeit_ermitteln;
result := false;
end;
end;
end;