Index: FCINK.mac.rou =================================================================== diff -u -r34761 -r34787 --- FCINK.mac.rou (.../FCINK.mac.rou) (revision 34761) +++ FCINK.mac.rou (.../FCINK.mac.rou) (revision 34787) @@ -30,13 +30,11 @@ do AankoopFactuur.Boekingen.Insert(Boeking) do Repo.Bewaar(AankoopFactuur) - ;set AifGenerator = ##class(AX.Uitgaand.common.impl.AifGenerator).%New() - ;do AifGenerator.Generate("PurchaseInvoice/Create",AankoopFactuur.GeefID()) + set AifGenerator = ##class(AX.Uitgaand.common.impl.AifGenerator).%New() + do AifGenerator.Generate("PurchaseInvoice/Create",AankoopFactuur.GeefID()) } - - 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