cA249 ;INGAVE TERMIJN ;%A249 ; [ 08/23/93  4:20 PM ]
 G 1
 ;
T0 ;Ingave termijn ;
T1 ;xxD,xM,xxDEM,xMEM = dagen/maanden fact. datum of einde maand   [] = contant     ;
T2 ;item gevolgd door '-W' betekent : wissel;
T3 ;"#d#d-w#m#m-w#dem#dem-w#mem#mem-w#"[("#"_$e(k,$l(+k)+1,99)_"#")&($e(k,1,$l(+k))?.n)!("-,"[k);
T4 ;"#d#m#dem#mem#"[("#"_$e(k,$l(+k)+1,99)_"#")&($e(k,1,$l(+k))?.n)!("-,"[k);
T5 ;xxD,xM,xxDEM,xMEM = dagen/maanden fact. datum of einde maand   [] = direct      ;
 ;
T0F ;Introduction délai ;
T1F ;xxJ,xM,xxJFM,xMFM = jours/mois date facture ou fin de mois   [] = comptant         ;
T2F ;item suivi par '-T' indique : traite;
T3F ;"#j#j-t#m#m-t#jfm#jfm-t#mfm#mfm-t#"[("#"_$e(k,$l(+k)+1,99)_"#")&($e(k,1,$l(+k))?.n)!("-,"[k);
T4F ;"#j#m#jfm#mfm#"[("#"_$e(k,$l(+k)+1,99)_"#")&($e(k,1,$l(+k))?.n)!("-,"[k);
T5F ;xxJ,xM,xxJFM,xMFM = jours/mois date facture ou fin de mois   [] = directement      ;
 ;
T0E ;Ingave termijn ;
T1E ;xxD,xM,xxDEM,xMEM = dagen/maanden fact. datum of einde maand   [] = contant     ;
T2E ;item gevolgd door '-W' betekent : wissel;
T3E ;"#d#d-w#m#m-w#dem#dem-w#mem#mem-w#"[("#"_$e(k,$l(+k)+1,99)_"#")&($e(k,1,$l(+k))?.n)!("-,"[k);
T4E ;"#d#m#dem#mem#"[("#"_$e(k,$l(+k)+1,99)_"#")&($e(k,1,$l(+k))?.n)!("-,"[k);
T5E ;xxD,xM,xxDEM,xMEM = dagen/maanden fact. datum of einde maand   [] = direct      ;
 ;
S1 I $L($G(QT)) S U3=$TR(U3,"DEW","JFT")
S1Z Q
 ;
1 S $P(U2,U,10)=$P($T(@("T1"_QT)),U,2)_$P($T(@("T2"_QT)),U,2),$P(U2,U,11)=$P($T(@("T3"_QT)),U,2)
11 D ^cA207 I $L($G(QT)) S K=$TR(K,"JFT","DEW")
13 G YZ
 ;
2 S $P(U2,U,10)=$P($T(@("T1"_QT)),U,2),$P(U2,U,11)=$P($T(@("T4"_QT)),U,2)
21 D ^cA207 I $L($G(QT)) S K=$TR(K,"JF","DE")
23 G YZ
 ;
3 S $P(U2,U,10)=$P($T(@("T5"_QT)),U,2),$P(U2,U,11)=$P($T(@("T4"_QT)),U,2)
31 D ^cA207 I $L($G(QT)) S K=$TR(K,"JF","DE")
33 G YZ
 ;
YZ Q
 ;
Z X ^cZ
ZZ ; 05.02.01 - 16 u 23 * V7.84