Index: AX/Uitgaand/BKH/AankoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u -r35457 -r35582
--- AX/Uitgaand/BKH/AankoopFactuur/impl/AifConverter.cls.xml (.../AifConverter.cls.xml) (revision 35457)
+++ AX/Uitgaand/BKH/AankoopFactuur/impl/AifConverter.cls.xml (.../AifConverter.cls.xml) (revision 35582)
@@ -165,7 +165,8 @@
set Transaction.LineNum = ..Formatter.FormatNumber(ItemIndex,10)
- set Transaction.TransDate = Factuur.Datum
+ set Transaction.TransDate = Factuur.BoekingDatum
+ set Transaction.DocumentDate = Factuur.Datum
set Transaction.Due = Factuur.VervalDatum
set Transaction.Txt = ..AankoopAPI.GeefLeverancier(Factuur.LeverancierID).GeefNaam()
Index: vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestPurchaseInvoice-Create/AIF/PurchaseInvoice/Create/PurchaseInvoice-Create 1 - VHBE - 20160501_091500.xml
===================================================================
diff -u -r35214 -r35582
--- vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestPurchaseInvoice-Create/AIF/PurchaseInvoice/Create/PurchaseInvoice-Create 1 - VHBE - 20160501_091500.xml (.../PurchaseInvoice-Create 1 - VHBE - 20160501_091500.xml) (revision 35214)
+++ vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestPurchaseInvoice-Create/AIF/PurchaseInvoice/Create/PurchaseInvoice-Create 1 - VHBE - 20160501_091500.xml (.../PurchaseInvoice-Create 1 - VHBE - 20160501_091500.xml) (revision 35582)
@@ -18,6 +18,7 @@
20EOM3%
VHBE
2016-05-04
+ 2016-05-01
2016-05-21
848153
@@ -32,7 +33,7 @@
BIC
G3
GeneralJournal
- 2016-05-01
+ 2016-04-29
BLUM JULIUS GMBH
000000001
@@ -43,6 +44,7 @@
20EOM3%
VHBE
2016-05-04
+ 2016-05-01
2016-05-21
848153
@@ -63,7 +65,7 @@
BIC
G3
GeneralJournal
- 2016-05-01
+ 2016-04-29
BLUM JULIUS GMBH
000000001
Index: Blum/VerwerkInkomendeFacturen.mac.rou
===================================================================
diff -u -r29059 -r35582
--- Blum/VerwerkInkomendeFacturen.mac.rou (.../VerwerkInkomendeFacturen.mac.rou) (revision 29059)
+++ Blum/VerwerkInkomendeFacturen.mac.rou (.../VerwerkInkomendeFacturen.mac.rou) (revision 35582)
@@ -179,15 +179,16 @@
Quit
VerwerkEenFactuur(LevFANr)
- New LvhFANr,Rec
+ New LvhFANr,Rec,BoekingDatum
Set Rec=^Verv(LEVNr,"D",VervRef,LevFANr)
If $P(Rec,D,8)!($P(Rec,D,9)) Quit
If $P(Rec,D,2)'=TFaktDat Do
.Set FaktDat=$$GeefFactuurDatum(LevFANr)
.Do BepaalVervalDatum(FaktDat),DISPLAY^vhScherm("BLCSBAF")
.Set TFaktDat=$P(Rec,D,2)
Set Bedrag=$P(Rec,D,5),MaatStaf=Bedrag,Btw=$J(Bedrag*%Btw/100,0,2),KontKort=$J(Bedrag*%KKort/100,0,2)
- Set LvhFANr=$$VERWERK^FCINK(LEVNr,LevFANr,FaktDat,VervDat,Bedrag,MaatStaf,Btw,KontKort,LevMunt,Pariteit,BH,BJ,BM,BP,BX)
+ Set BoekingDatum = $$INTDATE^vhLib.DataTypes($piece(^Verv(LEVNr,"D",VervRef),"\",3))
+ Set LvhFANr=$$VERWERK^FCINK(LEVNr,LevFANr,FaktDat,VervDat,Bedrag,MaatStaf,Btw,KontKort,LevMunt,Pariteit,BH,BJ,BM,BP,BX,BoekingDatum)
Set $P(Rec,D,8,9)="2\"_LvhFANr,^Verv(LEVNr,"D",VervRef,LevFANr)=Rec
Quit
@@ -229,3 +230,4 @@
Do ADD^vhScherm(3,24)
Quit
+
Index: DOM/AKP/AankoopFactuur/data/AankoopFactuur.cls.xml
===================================================================
diff -u -r34767 -r35582
--- DOM/AKP/AankoopFactuur/data/AankoopFactuur.cls.xml (.../AankoopFactuur.cls.xml) (revision 34767)
+++ DOM/AKP/AankoopFactuur/data/AankoopFactuur.cls.xml (.../AankoopFactuur.cls.xml) (revision 35582)
@@ -4,6 +4,10 @@
persistent
TECH.Persistent
+
+%Date
+
+
%String
@@ -90,6 +94,9 @@
LeverancierID
+
+BoekingDatum
+
Boekingen
Index: vhUnitTest/AX/Uitgaand/common/impl/AifGenerator/Generate/Test.cls.xml
===================================================================
diff -u -r35542 -r35582
--- vhUnitTest/AX/Uitgaand/common/impl/AifGenerator/Generate/Test.cls.xml (.../Test.cls.xml) (revision 35542)
+++ vhUnitTest/AX/Uitgaand/common/impl/AifGenerator/Generate/Test.cls.xml (.../Test.cls.xml) (revision 35582)
@@ -147,6 +147,7 @@
set AankoopFactuur = ##class(DOM.AKP.AankoopFactuur.data.AankoopFactuur).%New()
set AankoopFactuur.LeverancierID = ##class(DOM.AKP.enu.Leverancier).Blum()
+ set AankoopFactuur.BoekingDatum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate() - 2
set AankoopFactuur.Datum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()
set AankoopFactuur.VervalDatum = ##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentDate()+20
set AankoopFactuur.FactuurIdLeverancier = 848153
Index: FCINK.mac.rou
===================================================================
diff -u -r35499 -r35582
--- FCINK.mac.rou (.../FCINK.mac.rou) (revision 35499)
+++ FCINK.mac.rou (.../FCINK.mac.rou) (revision 35582)
@@ -1,6 +1,6 @@
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)
+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
@@ -16,6 +16,7 @@
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