KF21CCC G 33 ;MODULE FAKTURATIE (FAKTURATIE) ;Quit naar KF20CC - Do naar KF21B, %T160 [ 03/09/2001  4:30 PM ]
 ;
S1 S TTB=-TTB,TTBF=-TTBF,NET=-NET,BTW=-BTW,EGA=-EGA,LXT=-LXT,KKB=-KKB,MST=-MST,UPT=-UPT
S1A F I=0:1:9 S:$D(MST(I)) MST(I)=-MST(I) S:$D(NET(I)) NET(I)=-NET(I) S:$D(BTW(I)) BTW(I)=-BTW(I) S:$D(PTXT(I)) LXT(I)=-LXT(I),MST(I+10)=-MST(I+10) S:$D(EGA(I)) EGA(I)=-EGA(I)
S1B S BR="" F X=1:1 S BR=$N(BR(BR)) Q:BR=-1  S BR(BR)=-BR(BR)
S1Z Q
 ;
S2 F I="NET","BTW","EGA","LXT","MST" S @I=$J(@I*UPAR,1,0)
S2A F I=0:1:9 I $D(PBTW(I)) S MST(I)=$J(MST(I)*UPAR,1,0),NET(I)=$J(NET(I)*UPAR,1,0),BTW(I)=$J(BTW(I)*UPAR,1,0),EGA(I)=$J(EGA(I)*UPAR,1,0)
S2B F I=0:1:9 I $D(PTXT(I)) S LXT(I)=$J(LXT(I)*UPAR,1,0),MST(I+10)=$J(MST(I+10)*UPAR,1,0)
S2C S BR="" F I=1:1 S BR=$N(BR(BR)) Q:BR=-1  S BR(BR)=$J(BR(BR)*UPAR,1,0)
S2Z Q
 ;
33 I '$L(VM) S UPAR=1 D S2 S UPAR=""
34 S TTB=NET+BTW+LXT+EGA,KKB=NET-MST,TTBF=TTB S:$L(VM) TTBF=TTBF*UPAR S TTBF=$J(TTBF,1,0) 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 ^(3)=$P(BS,D,1,21)_UPKK_D_UGW_"\1\\\\"_UNBP_"\\\\"
48 S UKIL=UKILS,@("^"_Q_"FB(US,FNR)")=""
 G 51:'$D(UD) S FP=UD+1*100+2 W @F,@F1 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,1,0)
53 D ^KF21B,^SFAKTBH S BF=$$FADEF^vhRtn1() D ^cT160 S @%Q1=1
 ;
YZ K NET,MST,BTW,EGA,TTB,KKB,KKBX,BR,VVD,KB,KK,KN,KX,LXT,U2,UG,UGK,UKILS,UR,VM,UPAR Q
 ;
Z X ^cZ Q
ZZ ; 25.03.91 - 13 u 20