cAFO10 ;Outputformaten; cAFO10 ; T0 ;Outputformaten; T1 ;D;DEM;M;MEM;DEC;MEC; T2 ;+C; T3 ;-W; ; T0F ;formats externes ; T1F ;J;JFM;M;MFM;JFC;MFC; T2F ;+D; T3F ;-T; ; T0E ;Outputformaten; T1E ;D;DEM;M;MEM;DEC;MEC; T2E ;+C; T3E ;-W; ; T0D ;Outputformaten; T1D ;T;TEM;M;MEM;TEC;MEC; T2D ;+C; T3D ;-W; ; YZ Q ; TERM(Q,UI1,INH,RQT) ; Bepalen outputformaat betalingstermijn N R,QT,QTU S $ZT="TRAP^cAN000" S QT=RQT D QT^cAFVBO01 I '$L($G(INH)) S INH=$$SIGN^cAFA1("CODE.9024",UI1,0) S R=$P(INH,D,3) S R=R_$P($T(@("T1"_QT)),U,2+$P(INH,D,4)) I $P(INH,D,6) S R=R_$P($T(@("T2"_QT)),U,2) I $P(INH,D,5) S R=R_$P($T(@("T3"_QT)),U,2) TERMZ Q R ; ZZ ; 25.04.06 - 15 u 44 * V8.07