32 lines
1.2 KiB
Plaintext
32 lines
1.2 KiB
Plaintext
|
|
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
|
|
//////////////////////////////////////
|
|
|
|
|
|
}
|
|
|
|
|
|
|