Index: vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml
===================================================================
diff -u -r34868 -r34911
--- vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml (.../Test.cls.xml) (revision 34868)
+++ vhUnitTest/AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter/Test.cls.xml (.../Test.cls.xml) (revision 34911)
@@ -95,23 +95,6 @@
]]>
-
-
-
-
@@ -204,8 +187,8 @@
do $$$AssertEquals(Transactie.TaxGroup,"BDOM")
do $$$AssertEquals(Transactie.TaxItemGroup,"G3")
do $$$AssertEquals(Transactie.TransDate,$$INTDATE^vhLib.DataTypes("2011-06-30"))
- do $$$AssertEquals(Transactie.Invoice,"F123456")
- do $$$AssertEquals(Transactie.Voucher,"F123456")
+ do $$$AssertEquals(Transactie.Invoice,"123456")
+ do $$$AssertEquals(Transactie.Voucher,"123456")
]]>
Index: vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestVerkoopfactuur-export/AIF/Inbound/SalesInvoice-Create 300500 - VHBE - 20160501_091500.xml
===================================================================
diff -u -r34870 -r34911
--- vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestVerkoopfactuur-export/AIF/Inbound/SalesInvoice-Create 300500 - VHBE - 20160501_091500.xml (.../SalesInvoice-Create 300500 - VHBE - 20160501_091500.xml) (revision 34870)
+++ vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestVerkoopfactuur-export/AIF/Inbound/SalesInvoice-Create 300500 - VHBE - 20160501_091500.xml (.../SalesInvoice-Create 300500 - VHBE - 20160501_091500.xml) (revision 34911)
@@ -19,9 +19,9 @@
VHBE
EUR
2016-05-21
- F300.500
+ 300500
2016-06-13
- F300500
+ 300500
01313 - HEREMANS KEUKENS
01313
@@ -40,7 +40,7 @@
G3
2016-05-13
HEREMANS KEUKENS
- F300500
+ 300500
Ledger
@@ -51,9 +51,9 @@
VHBE
EUR
2016-05-21
- F300.500
+ 300500
2016-06-13
- F300500
+ 300500
703100
703100
@@ -71,7 +71,7 @@
G3
2016-05-13
HEREMANS KEUKENS
- F300500
+ 300500
Index: vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestVerkoopcreditnota-export/AIF/Inbound/SalesInvoice-Create 586689 - VHBE - 20160501_091500.xml
===================================================================
diff -u -r34870 -r34911
--- vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestVerkoopcreditnota-export/AIF/Inbound/SalesInvoice-Create 586689 - VHBE - 20160501_091500.xml (.../SalesInvoice-Create 586689 - VHBE - 20160501_091500.xml) (revision 34870)
+++ vhTestFiles/UnitTests/AX.Uitgaand.common.impl.AifGenerator.Generate/Test/TestVerkoopcreditnota-export/AIF/Inbound/SalesInvoice-Create 586689 - VHBE - 20160501_091500.xml (.../SalesInvoice-Create 586689 - VHBE - 20160501_091500.xml) (revision 34911)
@@ -19,9 +19,9 @@
VHBE
EUR
2016-03-30
- F586.689
+ 586689
2016-04-22
- F586689
+ 586689
09283
@@ -40,7 +40,7 @@
G3
2016-03-22
- F586689
+ 586689
Ledger
@@ -51,9 +51,9 @@
VHBE
EUR
2016-03-30
- F586.689
+ 586689
2016-04-22
- F586689
+ 586689
703000
703000
@@ -71,7 +71,7 @@
G3
2016-03-22
- F586689
+ 586689
Index: AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml
===================================================================
diff -u -r34868 -r34911
--- AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml (.../AifConverter.cls.xml) (revision 34868)
+++ AX/Uitgaand/VKP/VerkoopFactuur/impl/AifConverter.cls.xml (.../AifConverter.cls.xml) (revision 34911)
@@ -159,12 +159,10 @@
set Transaction.Txt = Factuur.GeefKlant().GeefNaam()
- #dim DocumentPrefix As %String = $$$If(Factuur.GeefFactuurCode()="F","F","CN")
+ set Transaction.DocumentNum = Factuur.GeefID()
+ set Transaction.Invoice = Factuur.GeefID()
+ set Transaction.Voucher = Factuur.GeefID()
- set Transaction.DocumentNum = DocumentPrefix_$extract(Factuur.GeefID(),1,3)_"."_$extract(Factuur.GeefID(),4,6)
- set Transaction.Invoice = DocumentPrefix_Factuur.GeefID()
- set Transaction.Voucher = "F"_Factuur.GeefID()
-
set LedgerDimension = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalDimension).%New()
set LedgerDimensionValues = ##class(AXaif.LedgerGeneralJournal.AxdEntityLedgerJournalDimensionAttributeValue).%New()
set LedgerDimensionValues.Name = "Klant"