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,BoekingDatum) 
 
 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                     
 Kill ^HULP(boot,$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

 if ( BP]"2016.06" ) && ( LEVNr=5005 ) {
	 new Repo,AankoopFactuur,AifGenerator
	 set Repo = ##class(DOM.AKP.AankoopFactuur.impl.AankoopFactuurRepository).%New()
	 #dim AankoopFactuur As DOM.AKP.AankoopFactuur.data.AankoopFactuur = Repo.Maak()
	 set AankoopFactuur.BoekingDatum = BoekingDatum
	 set AankoopFactuur.LeverancierID = "L||5005"
	 set AankoopFactuur.FactuurIdLeverancier = LevFANr
	 set AankoopFactuur.Datum = FaktDat
	 set AankoopFactuur.VervalDatum = VervDat
	 set AankoopFactuur.Totaal = Bedrag
	 set AankoopFactuur.MaatstafVanHeffing = MaatStaf
	 set AankoopFactuur.BTW = Btw
	 set AankoopFactuur.KortingKontant = KontKort
	 set AankoopFactuur.Munt = Munt
	 set AankoopFactuur.BoekingPeriode = BP
	 set Boeking = ##class(DOM.AKP.AankoopFactuur.data.BoekhoudBoeking).%New(MaatStaf,604100)
	  do AankoopFactuur.Boekingen.Insert(Boeking)
	 do Repo.Bewaar(AankoopFactuur)
	 
	 set AifGenerator = ##class(AXimpl.Generator).%New()
	 do AifGenerator.Generate(##class(AXimpl.Request).%New("PurchaseInvoice/Create",AankoopFactuur.GeefID()))
	 quit "999999"
 }

 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^vhLib.DataTypes(FaktDat) Set FDT=$TR(FaktDat,"-",".")
 Set:VervDat?.N VervDat=$$EXTDATE^vhLib.DataTypes(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)
 Set ^HULP(boot,$J,0,1)=BR_"###"_Bedrag_"###"_HIS
 Do ^KT643
  
 Quit FNR
 
 	
 
 ;