diff --git a/Kleeberg/30_hook.jpl b/Kleeberg/30_hook.jpl new file mode 100644 index 0000000..5936f20 --- /dev/null +++ b/Kleeberg/30_hook.jpl @@ -0,0 +1,31 @@ + +proc kle_hostimp_entry_10( user, doc_type_short ) +{ + ////////////////////////////////////// + // Falls "Oberregister" (DDF3) nicht gesetzt ist, setze das Feld auf "99 Nicht zugeordnete Dokumente" START + ////////////////////////////////////// + + vars dokarten1 = "DBETR;DDAUE;DABSC;DBERA;DSTEU;DFIBU;DLOHN;DDEBD;DLSTD;DKRED;ABPSA;ABESA;AFBSA;AJASA;ALOSA;ASTSA;AJAOB;ALBRE;AJAAB;ABERO;ABERA;ASTOR;ASTRA;ABEPA;ABEOR;AFIOR;AFIRA;ALBOR;ALBSO;AAURR;AKROR" + vars dokarten2 = "DUMMY;AOREG;AREGS;AUREG;AURG2;AURG3;AAURU;AAUR2;ABEUR;ABEU2;ABPUR;ABPU2;AFIUR;AFIU2;AJAUR;AJAU2;ALJUR;ALOUR;ALJR2;ALBU2;ASTU2;ASTUR;ADAUR;ABERB;ABETR;AFIBA;AJAAA;AKRED;ALOJA;ALBSA;ASTEU" + + vars ergebnis1 = api_function( "string_get_position", dokarten1, doc_type_short, 1, 1 ) + vars ergebnis2 = api_function( "string_get_position", dokarten2, doc_type_short, 1, 1 ) + + if ( ( ergebnis1 > 0 ) || ( ergebnis2 > 0 ) ) + { + if ( @length( dok_dat_feld[ 3 ] ) == 0 ) + { + dok_dat_feld[ 3 ] = "99 Nicht zugeordnete Dokumente" + } + + } + + ////////////////////////////////////// + // Falls "Oberregister" (DDF3) nicht gesetzt ist, setze das Feld auf "99 Nicht zugeordnete Dokumente" ENDE + ////////////////////////////////////// + + +} + + +