Index: vhTest/Mock/Blum/FacturenRepository.cls.xml
===================================================================
diff -u
--- vhTest/Mock/Blum/FacturenRepository.cls.xml (revision 0)
+++ vhTest/Mock/Blum/FacturenRepository.cls.xml (revision 36475)
@@ -0,0 +1,14 @@
+
+
+
+vhTest.Mock.TECH.Persistentie.Repository
+
+
+LeverancierNr:%String,FaktuurNr:%String
+
+
+
+
+
+
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml
===================================================================
diff -u -r36442 -r36475
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml (.../Test.cls.xml) (revision 36442)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker/Test.cls.xml (.../Test.cls.xml) (revision 36475)
@@ -14,6 +14,38 @@
Do $$$AssertEquals(INVOIC02Verwerker.GeefBlumKlantNummer(INVOIC02Double),"271250")
]]>
+
+
+
+
Index: Blum/FacturenRepository.cls.xml
===================================================================
diff -u
--- Blum/FacturenRepository.cls.xml (revision 0)
+++ Blum/FacturenRepository.cls.xml (revision 36475)
@@ -0,0 +1,19 @@
+
+
+
+TECH.Persistentie.impl.Repository
+
+
+%String
+Blum.Facturen
+
+
+
+LeverancierNr:%String,FaktuurNr:%String
+
+
+
+
+
+
FishEye: Tag 36475 refers to a dead (removed) revision in file `vhTest/Fake/APPS/AKP/Zending/impl/ZendingService.cls.xml'.
FishEye: No comparison available. Pass `N' to diff?
Index: APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36442 -r36475
--- APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml (.../INVOIC02Verwerker.cls.xml) (revision 36442)
+++ APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml (.../INVOIC02Verwerker.cls.xml) (revision 36475)
@@ -4,7 +4,7 @@
TECH.Mockable
-%Integer
+%String
5005
@@ -13,14 +13,26 @@
1
+
+APPS.AKP.Receptie.impl.ReceptieService
+1
+
+
+
+Blum.FacturenRepository
+1
+
+
-ZendingService:APPS.AKP.Zending.impl.ZendingService
+ZendingService:APPS.AKP.Zending.impl.ZendingService,ReceptieService:APPS.AKP.Receptie.impl.ReceptieService,BlumFacturenRepository:Blum.FacturenRepository
1
1
%Status
1
@@ -35,26 +47,26 @@
// zoekt de factuur , maar onafhankelijk van de zending( die voor 1/1/2017 gelinkt is één factuur, daarna mogelijk meerdere)
// moet dus aangepast worden
#dim BlumFaktuurNr as %String = ..GeefBlumFaktuurNummer(INVOIC02)
- #dim BlumFaktuur as Blum.Facturen = ##class(BL.Blum.Facturatie).%New().OpenViaNrLev(..#BlumLevNr,BlumFaktuurNr)
+ #dim BlumFaktuur as Blum.Facturen = ..BlumFacturenRepository.GeefViaLeverancierEnFactuur(..#BlumLevNr,BlumFaktuurNr)
if '$isObject(BlumFaktuur){
set BlumFaktuur = ..MaakBlumFaktuur(INVOIC02,E1EDP01)
}
- ; Zoek/Maak factuur subscript met echte blumfactuurnummer in ^Verv
- Do ..ZendingService.MaakZendingFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuur)
- ; zoek transport lijnen voor zending van dummyfactuur in ^Verv
- ; verplaats deze lijnen onder de echte factuur subscript in ^Verv
- do ..ZendingService.VerplaatsLijnDummyFaktuurLijn(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,..GeefToelevingInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))
-
-
- ;TODO indien aanwezig, update de referentie naar de blum factuurnummer in ^RCP
+ Do ..ZendingService.MaakZendingFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01),..GeefBlumFaktuurNummer(INVOIC02),BlumFaktuur)
+ Do ..ZendingService.VerplaatsDummyFaktuurLijn(..#BlumLevNr,..GeefZendingID(E1EDP01),BlumFaktuurNr,..GeefToelevingInfo(E1EDP01),..GeefIdentNummer(E1EDP01),..GeefAantalGefaktureerd(E1EDP01))
+ Do ..ZendingService.HerrekenDummyFaktuur(..#BlumLevNr,..GeefZendingID(E1EDP01))
+
+ if ..ZendingService.GeefReceptieNummerZending(..#BlumLevNr,..GeefZendingID(E1EDP01)){
+ ;TODO indien aanwezig, update de referentie naar de blum factuurnummer in ^RCP
+ }
}
]]>
INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02,E1EDP01:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.E1EDP01
@@ -119,6 +132,7 @@
set E1EDP02 = E1EDP02Iterator.Next()
set:E1EDP02.QUALF="016" ZendingId = E1EDP02.BELNR
}
+ quit ZendingId
]]>
Index: vhTest/Mock/APPS/AKP/Zending/impl/ZendingService.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/AKP/Zending/impl/ZendingService.cls.xml (revision 0)
+++ vhTest/Mock/APPS/AKP/Zending/impl/ZendingService.cls.xml (revision 36475)
@@ -0,0 +1,76 @@
+
+
+
+
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.
+1
+APPS.AKP.Zending.impl.ZendingService,Tools.Mock.MockClassBase
+right
+
+
+%String
+..MultiDim
+
+
+
+%String
+1
+
+
+
+Levnr:%String,ZendingId:%String,FaktuurNr:%String,Lijnnr:%Integer
+%String
+
+
+
+
+Levnr:%String,ZendingId:%String,FaktuurNr:%String
+
+
+
+
+Levnr:%String,ZendingId:%String,FaktuurNr:%String,Lijnnr:%Integer
+%String
+
+
+
+
+BlumLevNr:%String,ZendingID:%String
+%String
+
+
+
+
+LeverancierID:%String,ZendingNr:%String,BlumFaktuurNr:%String
+%String
+
+
+
+
+BlumLevNr:%String,ZendingID:%String
+
+
+
+
+BlumLevNr:%String,ZendingID:%String,FaktuurNr:%String,BlumFaktuur:Blum.Facturen
+
+
+
+
+BlumLevNr:%Integer,ZendingID:%String,BlumFaktuurNr:%String,ToeleveringInfo:%String,IdentNummer:%String,AantalGefaktureerd:%Integer
+
+
+
+
+
+
Index: vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml
===================================================================
diff -u -r36442 -r36475
--- vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml (.../INVOIC02Verwerker.cls.xml) (revision 36442)
+++ vhTest/Fake/APPS/AKP/AankoopControle/BLUM/impl/INVOIC02Verwerker.cls.xml (.../INVOIC02Verwerker.cls.xml) (revision 36475)
@@ -62,6 +62,12 @@
]]>
+
+BlumLevNr:%String,ZendingID:%String,FaktuurNr:%String,BlumFaktuur:Blum.Facturen
+
+
+
INVOIC02:APPS.AKP.AankoopControle.BLUM.XML.Faktuur.Invoice.INVOIC02
%String
Index: vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml
===================================================================
diff -u -r36442 -r36475
--- vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml (.../INVOICE02.cls.xml) (revision 36442)
+++ vhTest/Utils/APPS/AKP/AankoopControle/BLUM/XML/Faktuur/Invoice/INVOICE02.cls.xml (.../INVOICE02.cls.xml) (revision 36475)
@@ -143,7 +143,6 @@
Set xmlstring = xmlstring _ " "
Set xmlstring = xmlstring _ " "
Set xmlstring = xmlstring _ ""
- w xmlstring
quit xmlcorrelator.FromString(xmlstring, ClassName, "INVOIC02")
]]>
Index: APPS/AKP/Zending/impl/ZendingService.cls.xml
===================================================================
diff -u -r36442 -r36475
--- APPS/AKP/Zending/impl/ZendingService.cls.xml (.../ZendingService.cls.xml) (revision 36442)
+++ APPS/AKP/Zending/impl/ZendingService.cls.xml (.../ZendingService.cls.xml) (revision 36475)
@@ -53,6 +53,22 @@
9
+
+10
+
+
+
+5
+
+
+
+14
+
+
+
+16
+
+
LeverancierID:%String,ZendingNr:%String,BlumFaktuurNr:%String
%String
@@ -61,17 +77,21 @@
-LeverancierNummer:%String,ZendingNr:%String,BlumFaktuur:Blum.Facturen
+BlumLevNr:%String,ZendingID:%String,FaktuurNr:%String,BlumFaktuur:Blum.Facturen
@@ -83,7 +103,7 @@
set index = $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",index))
While ((index '= "")){
set rec = @..#Global(BlumLevNr,"D",ZendingID,"999999",index)
- if (($Piece(rec,"\",5) = ToeleveringInfo) && ($Piece(rec,"\",10) = AantalGefaktureerd)){
+ if (($Piece(rec,"\",..#VervFaktuurLijnToeleveringInfo) = ToeleveringInfo) && ($Piece(rec,"\",..#VervFaktuurLijnAantalGefaktureerd) = AantalGefaktureerd)){
#dim nieuweindex as %Integer = $Order(@..#Global(BlumLevNr,"D",ZendingID,BlumFaktuurNr,100),-1) + 1
Merge @..#Global(BlumLevNr,"D",ZendingID,BlumFaktuurNr,nieuweindex) = @..#Global(BlumLevNr,"D",ZendingID,"999999",index)
kill @..#Global(BlumLevNr,"D",ZendingID,"999999",index)
@@ -102,13 +122,20 @@
#dim totaal as %Numeric = 0
set index = $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",index))
While ((index '= "")){
- set totaal = totaal + $Piece(@..#Global(BlumLevNr,"D",ZendingID,"999999",index),"\",14)
+ set totaal = totaal + $Piece(@..#Global(BlumLevNr,"D",ZendingID,"999999",index),"\",..#VervFaktuurLijnWaarde)
set index = $Order(@..#Global(BlumLevNr,"D",ZendingID,"999999",index))
}
- set $Piece(@..#Global(BlumLevNr,"D",ZendingID,999999),"\",5) = totaal
+ set $Piece(@..#Global(BlumLevNr,"D",ZendingID,999999),"\",..#VervFaktuurNetto) = totaal
]]>
+
+BlumLevNr:%String,ZendingID:%String
+%String
+
+
+
Levnr:%String,ZendingId:%String,FaktuurNr:%String