FCINK ;INKOMENDE FAKT/CREDITN [ 04/10/2001  1:45 PM ]
 ;
VERWERK(LEVNr,LevFANr,FaktDat,VervDat,Bedrag,MaatStaf,Btw,KontKort,Munt,Pariteit,BH,BJ,BM,BP,BX) 
 New B,R,BF,CE,FC,FNR,I1,KC,KN,OM1,COM,FDT,VVD,VM,MPAR,OK,SWAN,BPE,BPEC,BR,AFBTW,HIS,QD
 New LREF,BTWOH,BTWIC,BTWMC,BTWVL,NABTW,NETD,NETI,NETA,KKB,EXBA,HIS,MST,NETG,TTB,SRT,SWX,DVO,SWTOL
 New MPAR,MSTA,MSTD,MSTG,MSTI,Versie6                     
 Set Versie6=$$ISVERS6^vhRtn1
 If Versie6 Kill ^HULP(boot,$J)
 Else  Kill ^HULP($J)
 If '$G(BM) Do  Quit:'OK 0
 .Set OK=0,R=$$ASKL^vhINP("FCINK","VERWERK")
 .If R?.N,R>0,R<13 Do ^cT163
 Set BR=$S(LEVNr=5005:"604100 ",1:""),R=$$MNTC^cAFE1(Q,BJ),BF=$P(R,D),QD=$P(R,D,2)
 Quit:BR="" 0
 Set KC=LEVNr,FC="F",OM1="",COM=LevFANr,VM=Munt,MPAR=$J(Pariteit,0,4),SWTOL=0
 Set (LREF,BTWOH,BTWMC,BTWVL,NABTW,NETD,NETI,NETA,SRT,SWX,DVO)=""
 If Bedrag<0 Set FC="C",Bedrag=-Bedrag,MaatStaf=-MaatStaf,Btw=-Btw,KontKort=-KontKort
 Set (NETG,TTB)=Bedrag,MST=MaatStaf,KKB=KontKort,(BTWIC,AFBTW)=Btw
 Set:FaktDat?.N FaktDat=$$EXTDATE^vhDTyp(FaktDat) Set FDT=$TR(FaktDat,"-",".")
 Set:VervDat?.N VervDat=$$EXTDATE^vhDTyp(VervDat) Set VVD=$TR(VervDat,"-",".")
 Set I1=^KL1(LEVNr),R=^KLE(I1,0),KN=$P(R,D,2)
 For R=0:1:9 Set CE(R)=$P(^KBA(15,R),D)
 Set EXBA=$G(^KBA(79)),SWAN=$G(^KBA(300)) Set:SWAN'=1 SWAN=0
 Set BPE=$D(^KBA("SWBP")),BPEC="" Set:BPE BPEC=^KBA("SWBP") Do:BPE @BPEC
 Set HIS=$P(^KAR(BR,0),D,3)
 If Versie6 Set ^HULP(boot,$J,0,1)=BR_"###"_Bedrag_"###"_HIS
 Else  Set ^HULP($J,0,1)=BR_"###"_Bedrag_"###"_HIS
 Do ^KT643
 Quit FNR
 ;