Christian/d.velop
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

update JPL-Hook

Browse Source
This commit is contained in:
Christian Albers
2024-06-19 09:18:47 +02:00
parent f427ef5537
commit e20b006188
1 changed files with 31 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Kleeberg/30_hook.jpl Normal file
View File

@@ -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
//////////////////////////////////////
}