KF21P2 G 33 ;MODULE FAKTURATIE PROFORMA ;Quit naar KF20 - Do naar KF21B [ 04/19/2001  11:56 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
 ;
S3 F I="NET","BTW","EGA","LXT","MST" S @I=0
S3A F I=0:1:9 I $D(PBTW(I)) S MST(I)=0,NET(I)=0,BTW(I)=0,EGA(I)=0
S3B F I=0:1:9 I $D(PTXT(I)) S LXT(I)=0,MST(I+10)=0
S3C S BR="" F I=1:1 S BR=$N(BR(BR)) Q:BR=-1  S BR(BR)=0
S3Z Q
 ;
33 D
 .N UPAR
 .S UPAR=1,UDEC=$$MUNT^vhRtn1(VM,4)
 .D S2
 S UDEC=$$MUNT^vhRtn1(,4)
 D:$G(NulFakt) S3
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_"FAP(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_"FAP(US,FNR,""U""_$E(""000000"",1,6-$L(UR))_UR,2)")) S U2=^(2),@("^"_Q_"FAP(US,FNR,0,2)")=U2 G 47
45 S @("^"_Q_"FAP(US,FNR,0,2)")=BS
47 S @("^"_Q_"FAP(US,FNR,0,3)")=$P(BS,D,1,21)_UPKK_D_UGW_"\\\\\"_UNBP_"\\\\"
 S $P(@("^"_Q_"FAP(US,FNR,0,3)"),D,6)=$G(BonKLNr)
48 I CHKFAKT S @("^"_Q_"FBP(US,FNR)")=""
 S UKIL=UKILS I $D(UD) S FP=UD+1*100+2 W @F,@F1
 ;
51 I $L(VM) D S2 S KKBX=$J(NET-MST,1,0)
53 D KC^KF21P3($S($G(BonKLNr):BonKLNr,1:KC),KC) 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,NulFakt,CHKFAKT,UDEC,BonKLNr Q
 ;
Z X ^cZ Q
ZZ ; 25.03.91 - 13 u 20