KF21C G 33 ;MODULE FAKTURATIE (FAKTURATIE) ;Quit naar KF20 - Do naar KF21B, %T160 [ 03/27/2002  10:11 AM ]
 ;
S1 F I="TTB","TTBF","NET","BTW","EGA","LXT","KKB","MST","UPT" S @I=-$J(@I,0,$L($P(@I,".",2)))
S1A F I=0:1:9 D
 .S:$D(MST(I)) MST(I)=-$J(MST(I),0,$L($P(MST(I),".",2)))
 .S:$D(NET(I)) NET(I)=-$J(NET(I),0,$L($P(NET(I),".",2)))
 .S:$D(BTW(I)) BTW(I)=-$J(BTW(I),0,$L($P(BTW(I),".",2)))
 .S:$D(PTXT(I)) LXT(I)=-$J(LXT(I),0,$L($P(LXT(I),".",2))),MST(I+10)=-$J(MST(I+10),0,$L($P(MST(I+10),".",2)))
 .S:$D(EGA(I)) EGA(I)=-$J(EGA(I),0,$L($P(EGA(I),".",2)))
S1B S BR="" F X=1:1 S BR=$N(BR(BR)) Q:BR=-1  S BR(BR)=-$J(BR(BR),0,$L($P(BR(BR),".",2)))
S1Z Q
 ;
S2 F I="NET","BTW","EGA","LXT","MST","UPT" S @I=$J(@I*UPAR,0,UDEC)
S2A F I=0:1:9 D
 .Q:'$D(PBTW(I))
 .S MST(I)=$J(MST(I)*UPAR,0,UDEC)
 .S NET(I)=$J(NET(I)*UPAR,0,UDEC)
 .S BTW(I)=$J(BTW(I)*UPAR,0,UDEC)
 .S EGA(I)=$J(EGA(I)*UPAR,0,UDEC)
S2B F I=0:1:9 D
 .Q:'$D(PTXT(I))
 .S LXT(I)=$J(LXT(I)*UPAR,0,UDEC)
 .S MST(I+10)=$J(MST(I+10)*UPAR,0,UDEC)
S2C S BR="" F I=1:1 S BR=$N(BR(BR)) Q:BR=-1  S BR(BR)=$J(BR(BR)*UPAR,0,UDEC)
S2Z Q
 ;
33 D
 .N UPAR
 .S UPAR=1,UDEC=$$MUNT^vhRtn1(VM,4)
 .D S2
 S UDEC=$$MUNT^vhRtn1(,4)
34 S TTB=NET+BTW+LXT+EGA,KKB=NET-MST,TTBF=TTB S:$L(VM) TTBF=TTBF*UPAR S TTBF=$J(TTBF,0,UDEC) I TTB<0 S FC="C" D S1
35 S @("^"_Q_"FA(US,FNR,0,0)")=KC_D_FC_D_VVD_D_UPAR_D_VM_D_FDT_D_NET_D_MST_D_BTW_D_LXT_D_EGA_D_TTB_D_KKB_D_TTBF_D_D_UEB_D_BTWK_"#"_UPT_$E(BS,1,10)
37 S U2=BS F I=0:1:9 I $D(MST(I)),MST(I) S X=$P(U2,D,1)_I_"#"_NET(I)_"#",U2=X_D_$P(U2,D,2,99),X=$P(U2,D,2)_I_"#"_MST(I)_"#",U2=$P(U2,D,1)_D_X_D_$P(U2,D,3,99) I KB>0 S X=$P(U2,D,3)_I_"#"_BTW(I)_"#",U2=$P(U2,D,1,2)_D_X_D_$P(U2,D,4,99)
39 I KB=2 F I=0:1:9 I $D(MST(I)),MST(I) S X=$P(U2,D,4)_I_"#"_EGA(I)_"#",U2=$P(U2,D,1,3)_D_X_D_$P(U2,D,5,99)
41 F I=10:1:19 I $D(MST(I)),MST(I) S X=$P(U2,D,5)_(I-10)_"#"_MST(I)_"#",U2=$P(U2,D,1,4)_D_X_D_$P(U2,D,6,99),X=$P(U2,D,6)_(I-10)_"#"_LXT(I-10)_"#",U2=$P(U2,D,1,5)_D_X_D_$P(U2,D,7,99)
43 S ^(1)=U2,UR=$N(UTF(UR))
44 I $D(@("^"_Q_"FA(US,FNR,""U""_$E(""000000"",1,6-$L(UR))_UR,2)")) S U2=^(2),@("^"_Q_"FA(US,FNR,0,2)")=U2 G 47
45 S @("^"_Q_"FA(US,FNR,0,2)")=BS
47 S @("^"_Q_"FA(US,FNR,0,3)")=$P(BS,D,1,21)_UPKK_D_UGW_D_$G(UCAECE)_"\\\\"_UNBP_"\\\\"
 S $P(@("^"_Q_"FA(US,FNR,0,3)"),D,6)=$G(BonKLNr)
48 S UKIL=UKILS,@("^"_Q_"FB(US,FNR)")=""
 G 51:'$D(UD)
 S FP=UD+1*100+2 W @F,@F1
 I $G(IsBulk) S FP=2202 W @F,"Klant   : ",KC," ",$P(^KKL(^KK1(KC),0),D,2) S FP=2302 W @F,"Factuur : ",FNR G 51
 W:FC="F" "TE BETALEN" W:FC="C" "UW TEGOED" W " : ",TTB," ",VM
49 G 51:'KKB S FP=FP+200 W @F,"KORTING KONTANT          : ",KKB," ",VM
50 S FP=FP+100 W @F W:FC="F" "TE BETALEN" W:FC="C" "UW TEGOED " W " - KORT. KONT. : ",TTB-KKB," ",VM
 ;
51 S KKBX=KKB I $L(VM) D S2 S KKBX=$J(NET-MST,0,UDEC)
53 D KC^KF21B($S($G(BonKLNr):BonKLNr,1:KC),KC),^SFAKTBH S BF=$$FADEF^vhRtn1() D ^cT160 S @%Q1=1
 ;
YZ K NET,MST,BTW,EGA,TTB,KKB,KKBX,BR,VVD,KCF,KB,KK,KN,KX,LXT,U2,UG,UGK,UKILS,UR,VM,UPAR,UDEC,UCAECE,BonKLNr Q
 ;