cAFA4 ;Standaardfuncties ;%AFA4 ; [ 12/15/00  3:43 PM ]
 ;
T0 ;Standaardfuncties ;
 ;
T0F ;Fonctions standards ;
 ;
T0E ;Standaardfuncties ;
 ;
SUB(DMS,UI1,ZMBTW) ; berekenen subtotaal via module subtotaal
 N R,UQC,USC
 S R=0 D DMS^cAN000("UQC","USC",DMS) I $L(UQC),$L(USC) D
 . S $ZT="TRAP^cAN000"
 . N UGL,US,UR
 . S UGL=$$SIG^cAFA1(DMS,UI1,321),US=$P(^(2),D,22),UR=$P(^(2),D,23)
 . N KC,U5 S U5=^(0),KC=$P(U5,D)
 . N I,SW12,TTB,MST,NET,BTW,LXT,EGA,INCL,KBT,BRUT,UZ,U2,UB,HQD,UCO
 . S UCO=@("^"_Q_UGL)@(0,US,"UCO") D W^cFNA27
 . S R=TTB S:'$G(ZMBTW) R=R-BTW S R=$j(R,0,HQD)
SUBZ Q R
 ;
LA(DMS,UI1) ; tonen gegevens leveringsadres
 N NUL,VELD,I
 S OUT="" G LAZ:'$L(UI1)
 S NUL=$$SIGN^cAFA1(DMS,UI1,0)
 F I=2:1:8 S VELD(I)=$P(NUL,D,I)
 S OUT=VELD(4)_$S($L(VELD(4)):" ",1:"") S OUT=OUT_VELD(2) 
 F I=3,5,6,7 S OUT=OUT_$S($L(VELD(I)):", "_VELD(I),1:"")
 S:$L(VELD(8)) OUT=OUT_", "_$$LAND^cAFO1(VELD(8))
 S OUT=$E(OUT,1,68)
LAZ Q OUT
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84