FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefRecenteOrdersResponse.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 38557 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/pxHistoriek.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefOpenstaandeFacturenResponse.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefOpenstaandeOrdersRequest.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml =================================================================== diff -u -r37881 -r38557 --- AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml (.../FacturenOphalen.cls.xml) (revision 37881) +++ AX/Uitgaand/EC/Data/impl/FacturenOphalen.cls.xml (.../FacturenOphalen.cls.xml) (revision 38557) @@ -4,59 +4,109 @@ BL.EC.Common,Prod.Product,BL.Derde.Kennis 1 -OpenstaandeOrdersOphalen +%RegisteredObject %Integer + +AX.Uitgaand.EC.Data.impl.HelperFacturenOphalen +1 + + + +AX.Uitgaand.EC.Data.impl.ProductValidator +1 + + + +%String +1 + + + +WS.Vhisie4.KlantDocument.dto.FactuurHoofding +list +1 + + + +%String + + + +%String + + + +WS.Vhisie4.KlantDocument.GeefFacturenRequest + + + +WS.Vhisie4.KlantDocument.GeefFacturenResponse + + d ##class(AX.Uitgaand.EC.Data.impl.FacturenOphalen).test(1736) SFS 12486 DuPont 1736 1 -KlantID:%String,Periode:%Integer +KlantID:%String -KlantID:%String,Taal:%String,GenerationID:%String,SessionID:%String,Periode:%Integer +Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest %Status - + +WS.Vhisie4.KlantDocument.GeefFacturenResponse + + + + Hoofding ^||ECCache("D",HoofdingVolgNr) = $LB(Type,OrderNr,BONNr,FAKNr,OrderHfdData, LeveringHfdData, FaktuurHfdData, LevAdresData) @@ -67,15 +117,134 @@ de lijnData kan van zowel KOD, KUL, KFA als KFAP komen Index ^||ECCache("IO",OrderNr,VolgNr)=HoofdingVolgNr - ^||ECCache("IF",FactuurNr,VolgNr)=HoofdingVolgNr + ^||ECCache("IF",FactuurNr,VolgNr)=HoofdingVolgNr +Hoofding + ^||ECCache("ORD",ORDNr) = $LB(Oorsprong,OrderDatum, HfdData, LevAdresData) + waar Oorsprong = O,L,F,P (order, levering, factuur, proforma) + waar HfdData oorsprong afhankelijk (Order hfdData '= Levering en Factuur +Lijn (product of tekst) + ^||ECCache("ORD",ORDNr,OLUNr,LijnVolgNr) = $LB(Oorsprong,Type,OrderlijnData, Tekst, VoorraadStatus, BONNr, BonHfdData, FAKNr, FakHfdData) + waar Type = P of T (Product of Tekst) + de lijnData kan van zowel KOD, KUL, KFA als KFAP komen +Index + ^||ECCache("IORD",OrderDatum,ORDNr)="" + + + +1 + + + +1 + + + + +FAKNr:%String +1 + + + + +lbHoofding:%List,lbLijn:%List +1 +WS.Vhisie4.KlantDocument.dto.FactuurLijn + + + + +lbHoofding:%List +1 +WS.Vhisie4.KlantDocument.dto.FactuurHoofding + + Index: WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/dto/LeveringHoofding.cls.xml (revision 38557) @@ -0,0 +1,153 @@ + + + +DocumentHoofding + + +WS.Vhisie4.KlantDocument.dto.FactuurLijn +list + + + + +%Date + + + +TECH.String + + + + +TECH.String + + + +%String + + + + +%Decimal + + + +%Date + + + +%Date + + + +%Decimal + + + +%Integer + + + +%Library.CacheSerialState + +listnode + + +OrderID + + +OrderDatum + + +LeveringsDatum + + +FactuurDatum + + +VervalDatum + + +OpenstaandBedrag + + +AantalRappels + + +DocType + + +LeveringID + + +TransportTraceURL + + +FactuurID + + +OrderReferentie + + +EDIReferentie + + +CommissieReferentie + + +InternMedewerker + + +ExterneMedewerker + + +VerzendWijze + + +LeverAdres + + +Lijnen + + +IngegevenDoorMedewerker + + +OorsprongDocType + + +DataFromDocs + + +MultipleDocTypes + + +ProductGroepen + + +arProductGroepen + + +TotaalPrijs + + +Munt + + +LeveringId + + +FactuurId + + +FactuurBedrag + + +AantalHerinneringen + + + + + + + Index: WS/Vhisie4/KlantDocument/GeefVerkoopHistoriekRequest.cls.xml =================================================================== diff -u -r38273 -r38557 --- WS/Vhisie4/KlantDocument/GeefVerkoopHistoriekRequest.cls.xml (.../GeefVerkoopHistoriekRequest.cls.xml) (revision 38273) +++ WS/Vhisie4/KlantDocument/GeefVerkoopHistoriekRequest.cls.xml (.../GeefVerkoopHistoriekRequest.cls.xml) (revision 38557) @@ -13,6 +13,11 @@ 1 + +%String + + + %Library.CacheSerialState GeefVerkoopHistoriekRequestState Index: WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/dto/OfferteLijn.cls.xml (revision 38557) @@ -0,0 +1,118 @@ + + + +BL.EC.Common,Prod.Product +DocumentLijn + + +%String + + + +%Library.CacheSerialState + + +Aantal + + +GevraagdeLeverDatum + + +ProductGroep + + +KortTekst + + +ProductCode + + +VerwachteLeverDatum + + +BackOrder + + +ProductOmschrijving + + +Commentaar + + +ProductID + + +Munt + + +NettoPrijs + + +GrootteOrde + + +TotaalPrijs + + +Status + + +InAssortiment + + +InConfigurator + + +Type + + +VoorzieneLeveringsDatum + + +LeveringsDatum + + +FactuurDatum + + +VervalDatum + + +OpenstaandBedrag + + +AantalRappels + + +DocType + + +LeveringID + + +TransportTraceURL + + +FactuurID + + +OorsprongDocType + + +FactuurBedrag + + +AantalHerinneringen + + +Levertermijn + + +LeveringsTermijn + + + + + + + Index: WS/Vhisie4/KlantDocument/enu/OrderStatus/Verwerker.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/enu/OrderStatus/Verwerker.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/enu/OrderStatus/Verwerker.cls.xml (revision 38557) @@ -0,0 +1,88 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration +1 +1 + + +1 +OrderStatus:WS.Vhisie4.KlantDocument.enu.OrderStatus + + + + +1 +1 + + + + +1 +1 + + + + +1 +1 + + + + +1 +1 + + + + +1 +1 + + + + +1 +1 + + + + +1 +1 + + + + +1 +1 + + + + + + Index: WS/Vhisie4/KlantDocument/enu/ProductGroep.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/enu/ProductGroep.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/enu/ProductGroep.cls.xml (revision 38557) @@ -0,0 +1,63 @@ + + + +datatype +1 +TECH.Enumeration + + +;TAX;LBX;TBX;KAD;MAATWERK;BSL;OL + + + +1 +WS.Vhisie4.KlantDocument.enu.ProductGroep + + + + +1 +WS.Vhisie4.KlantDocument.enu.ProductGroep + + + + +1 +WS.Vhisie4.KlantDocument.enu.ProductGroep + + + + +1 +WS.Vhisie4.KlantDocument.enu.ProductGroep + + + + +1 +WS.Vhisie4.KlantDocument.enu.ProductGroep + + + + +1 +WS.Vhisie4.KlantDocument.enu.ProductGroep + + + + +1 +WS.Vhisie4.KlantDocument.enu.ProductGroep + + + + + + FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefFacturenRequest.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 38557 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalen.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefOpenstaandeFacturenRequest.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml =================================================================== diff -u -r38343 -r38557 --- AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml (.../HistoriekOphalen.cls.xml) (revision 38343) +++ AX/Uitgaand/EC/Data/impl/HistoriekOphalen.cls.xml (.../HistoriekOphalen.cls.xml) (revision 38557) @@ -41,17 +41,15 @@ 1 KlantID:%String @@ -64,7 +62,8 @@ Set ..Request=Request Set ..KlantId=..Request.Header.KlantId - Set ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID() + Set ..GenerationId=..Request.GenerationId + Set:..GenerationId="" ..GenerationId=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID() Set ..AssortimentGroep=..GeefAssortimentGroep() Set ..ProductValidator=##class(AX.Uitgaand.EC.Data.impl.ProductValidator).%New(..KlantId,..GenerationId) Index: WS/Vhisie4/KlantDocument/dto/ProductGroepInfo.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/dto/ProductGroepInfo.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/dto/ProductGroepInfo.cls.xml (revision 38557) @@ -0,0 +1,82 @@ + + + +BL.EC.Common,Prod.Product +%SerialObject,%XML.Adaptor + + +%Integer + + + +%Integer + + + + +Maatwerk, Beslag, Orgalux, ... +WS.Vhisie4.KlantDocument.enu.ProductGroep + + + +%Decimal + + + +%Library.CacheSerialState +ProductGroepInfoState +^WS.Vhisie4F15E.ProductGroeA18BS + +listnode + + +Aantal + + +ProductGroep + + +KortTekst + + +ProductCode + + +ProductOmschrijving + + +Commentaar + + +ProductID + + +Munt + + +NettoPrijs + + +GrootteOrde + + +InAssortiment + + +InConfigurator + + +TotaalPrijs + + +AantalLijnen + + +AantalStuks + + + + + + + FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefOpenstaandeOrdersResponse.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: WS/Vhisie4/KlantDocument/GeefOrdersRequest.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/GeefOrdersRequest.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/GeefOrdersRequest.cls.xml (revision 38557) @@ -0,0 +1,47 @@ + + + +%SerialObject,%XML.Adaptor + + +STRING +1 + + + +WS.Vhisie4.RequestHeader +1 + + + +%String + + + + +%String + + + + +%Library.CacheSerialState +GeefOrdersRequestState +^WS.Vhisie4F4FA.GeefOrdersR9713S + +listnode + + +Header + + +GenerationId + + +Periode + + + + + + + Index: AX/Uitgaand/EC/Data/impl/HelperOrdersOphalen.cls.xml =================================================================== diff -u -r37881 -r38557 --- AX/Uitgaand/EC/Data/impl/HelperOrdersOphalen.cls.xml (.../HelperOrdersOphalen.cls.xml) (revision 37881) +++ AX/Uitgaand/EC/Data/impl/HelperOrdersOphalen.cls.xml (.../HelperOrdersOphalen.cls.xml) (revision 38557) @@ -37,25 +37,25 @@ pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List @@ -121,6 +122,7 @@ #dim ProdGrp As %String = "*" #dim LastGrpTijd As %String = "" #dim LastGrpOLUNr As %String = "" + #dim OrderDatum As %Date = "" Set HasProd="" Kill Sort,GrpTekst @@ -153,20 +155,29 @@ Quit:'HasProd Set LijnCnt=0 - Set HoofdingVolgNr=$I(^||ECCache("D")) - Set ^||ECCache("D",HoofdingVolgNr)=$LB("O",ORDNr,,,^KOD(..KlantID,"F",ORDNr,1),,,^KOD(..KlantID,"F",ORDNr,3)) - Set ^||ECCache("IO",ORDNr,$O(^||ECCache("IO",ORDNr,""),-1)+1)=HoofdingVolgNr + Set OrderDatum=..GeefOrderDatum(^KOD(..KlantID,"F",ORDNr,1)) + Set ^||ECCache("ORD",ORDNr)=$LB("O",ORDNr,^KOD(..KlantID,"F",ORDNr,1),^KOD(..KlantID,"F",ORDNr,3)) + Set ^||ECCache("IORD",OrderDatum,ORDNr)="" + Set (ProdGrp,OLNr)="" For Set ProdGrp=$O(Sort(ProdGrp)) Quit:ProdGrp="" Do . For Set OLNr=$O(Sort(ProdGrp,OLNr)) Quit:OLNr="" Do . . Set LijnType=$LI(Sort(ProdGrp,OLNr),1) . . Set OLRec=$LI(Sort(ProdGrp,OLNr),2) . . Set OLUNr=$P(OLRec,"\",15) - . . Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr)) - . . Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("P",OLRec,$G(GrpTekst(OLUNr)),$LI(Sort(ProdGrp,OLNr),3)) + . . Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("O","T",,GrpTekst(OLUNr)) + . . Set:LijnType="P" ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("O","P",OLRec,$G(GrpTekst(OLUNr)),$LI(Sort(ProdGrp,OLNr),3)) ]]> + +ORDRec + + + ORDNr:%String,BeperkOrderType:%String - -Voldoende voorraad - - - -Beperkte voorraad - - - -Geen voorraad - - - -In bestelling lev - - - -In productie - - - -Verwerking magazijn - - Index: WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/dto/OrderLijn.cls.xml (revision 38557) @@ -0,0 +1,174 @@ + + + +BL.EC.Common,Prod.Product +DocumentLijn + + +%Integer + + + + +Leverdatum geregistreerd bij ingave, slechts ingevuld als de verwachteleverdatum gewijzigd werd +%Date + + + + +Verwachte (of voorziene) leverdatum +%Date + + + +%Boolean + + + +WS.Vhisie4.KlantDocument.enu.OrderStatus + + + +%Boolean + + + +%Date + + + +%Date + + + +%Date + + + +%Decimal + + + +%Decimal + + + +%Integer + + + +TECH.String + + + + +TECH.String + + + +TECH.String + + + +%Library.CacheSerialState +OrderLijnState +^WS.Vhisie4.KlantF15E.OrderLijnS + +listnode + + +Aantal + + +GevraagdeLeverDatum + + +ProductGroep + + +KortTekst + + +ProductCode + + +VerwachteLeverDatum + + +BackOrder + + +ProductOmschrijving + + +Commentaar + + +ProductID + + +Munt + + +NettoPrijs + + +GrootteOrde + + +TotaalPrijs + + +Status + + +InAssortiment + + +InConfigurator + + +VoorzieneLeveringsDatum + + +LeveringsDatum + + +FactuurDatum + + +VervalDatum + + +FactuurBedrag + + +OpenstaandBedrag + + +AantalHerinneringen + + +LeveringID + + +TransportTraceURL + + +FactuurID + + +Type + + +OorsprongDocType + + +LeveringId + + + + + + + Index: WS/Vhisie4/KlantDocument/enu/ProductGroep/Verwerker.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/enu/ProductGroep/Verwerker.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/enu/ProductGroep/Verwerker.cls.xml (revision 38557) @@ -0,0 +1,80 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration +1 +1 + + +1 +ProductGroep:WS.Vhisie4.KlantDocument.enu.ProductGroep + + + + +1 +1 + + + + +1 +1 + + + + +1 +1 + + + + +1 +1 + + + + +1 +1 + + + + +1 +1 + + + + +1 +1 + + + + + + Index: WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/dto/FactuurLijn.cls.xml (revision 38557) @@ -0,0 +1,200 @@ + + + +BL.EC.Common,Prod.Product +DocumentLijn + + +%Integer + + + + +Leverdatum geregistreerd bij ingave, slechts ingevuld als de verwachteleverdatum gewijzigd werd +%Date + + + + +Verwachte (of voorziene) leverdatum +%Date + + + +%Boolean + + + +WS.Vhisie4.KlantDocument.enu.OrderStatus + + + +%Boolean + + + +%Date + + + +TECH.String + + + + +TECH.String + + + +TECH.String + + + + +%Date + + + +TECH.String + + + +TECH.String + + + +TECH.String + + + + +TECH.String + + + +%Library.CacheSerialState +FactuurLijnState +^WS.Vhisie4.KlaF15E.FactuurLijnS + +listnode + + +Aantal + + +GevraagdeLeverDatum + + +ProductGroep + + +KortTekst + + +ProductCode + + +VerwachteLeverDatum + + +BackOrder + + +ProductOmschrijving + + +Commentaar + + +ProductID + + +Munt + + +NettoPrijs + + +GrootteOrde + + +TotaalPrijs + + +Status + + +InAssortiment + + +InConfigurator + + +VoorzieneLeveringsDatum + + +LeveringsDatum + + +FactuurDatum + + +VervalDatum + + +FactuurBedrag + + +OpenstaandBedrag + + +AantalHerinneringen + + +LeveringID + + +TransportTraceURL + + +FactuurID + + +Type + + +OorsprongDocType + + +OrderID + + +OrderDatum + + +OrderReferentie + + +EDIReferentie + + +CommissieReferentie + + +IngegevenDoorMedewerker + + +VerzendWijze + + +OrderId + + +LeveringId + + + + + + + FishEye: Tag 38557 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/OpenstaandeFacturenOphalen.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: AX/Uitgaand/EC/Data/impl/HelperOffertesOphalen.cls.xml =================================================================== diff -u -r37881 -r38557 --- AX/Uitgaand/EC/Data/impl/HelperOffertesOphalen.cls.xml (.../HelperOffertesOphalen.cls.xml) (revision 37881) +++ AX/Uitgaand/EC/Data/impl/HelperOffertesOphalen.cls.xml (.../HelperOffertesOphalen.cls.xml) (revision 38557) @@ -14,6 +14,10 @@ AX.Uitgaand.EC.Data.impl.ProductValidator + +APPS.VKP.LeveringsTermijn + + %String @@ -36,22 +40,22 @@ Set ..Taal=Taal Set ..GenerationID=GenerationID Set ..ProductValidator=ProductValidator + Set ..LeveringsTermijnCalculator=..GeefLeveringsTermijnCalculator() Quit $$$OK ]]> pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List @@ -79,13 +83,14 @@ Set pxLijn.Munt=$P(OLRec,"\",22) Set pxLijn.GrootteOrde=$S($E($P(OLRec,"\",21))="H":"%",1:"") Set pxLijn.TotaalPrijs=+$P(OLRec,"\",16) - Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25) - Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29) + ;Set pxLijn.VerwachteLeverDatum=$P(OLRec,"\",25) + ;Set pxLijn.GevraagdeLeverDatum=$P(OLRec,"\",29) Set pxLijn.Type=$S(pxLijn.Aantal<0:"R",1:"L") ; Retour of Levering Set pxLijn.Commentaar=$LG(lbLijn,3) Set pxLijn.InAssortiment=..ProductValidator.InAssortiment(pxLijn.ProductID) Set pxLijn.InConfigurator=..ProductValidator.InConfigurator(pxLijn.ProductID) Do pxLijn.VulAanMetProduct(..Taal) + Do ..BepaalLeveringsTermijn(pxLijn) ]]> @@ -199,6 +204,36 @@ Set LijnType="P" ]]> + + + + + + +pxLijn:WS.Vhisie4.KlantDocument.dto.OfferteLijn + + Index: WS/Vhisie4/KlantDocument/enu/OrderStatus.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/enu/OrderStatus.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/enu/OrderStatus.cls.xml (revision 38557) @@ -0,0 +1,70 @@ + + + +datatype +1 +TECH.Enumeration + + +;VoldoendeVoorraad;BeperkteVoorraad;GeenVoorraad;InBestelling;InProductie;VerwerkingMagazijn;InLevering;Gefactureeerd + + + +1 +WS.Vhisie4.KlantDocument.enu.OrderStatus + + + + +1 +WS.Vhisie4.KlantDocument.enu.OrderStatus + + + + +1 +WS.Vhisie4.KlantDocument.enu.OrderStatus + + + + +1 +WS.Vhisie4.KlantDocument.enu.OrderStatus + + + + +1 +WS.Vhisie4.KlantDocument.enu.OrderStatus + + + + +1 +WS.Vhisie4.KlantDocument.enu.OrderStatus + + + + +1 +WS.Vhisie4.KlantDocument.enu.OrderStatus + + + + +1 +WS.Vhisie4.KlantDocument.enu.OrderStatus + + + + + + Index: WS/Vhisie4/KlantDocument/dto/OfferteHoofding.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/dto/OfferteHoofding.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/dto/OfferteHoofding.cls.xml (revision 38557) @@ -0,0 +1,136 @@ + + + +DocumentHoofding + + +TECH.String + + + + +%Date + + + +TECH.String + + + +TECH.String + + + +TECH.String + + + +TECH.String + + + + +TECH.String + + + +WS.Vhisie4.KlantDocument.dto.OrderLijn +list + + + + +%Library.CacheSerialState + +listnode + + +OrderID + + +OrderDatum + + +LeveringsDatum + + +FactuurDatum + + +VervalDatum + + +OpenstaandBedrag + + +AantalRappels + + +DocType + + +LeveringID + + +TransportTraceURL + + +FactuurID + + +OrderReferentie + + +EDIReferentie + + +CommissieReferentie + + +InternMedewerker + + +ExterneMedewerker + + +VerzendWijze + + +LeverAdres + + +Lijnen + + +IngegevenDoorMedewerker + + +OorsprongDocType + + +DataFromDocs + + +MultipleDocTypes + + +ProductGroepen + + +arProductGroepen + + +OrderId + + +Munt + + +TotaalPrijs + + + + + + + Index: AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml =================================================================== diff -u -r37905 -r38557 --- AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml (.../HelperFacturenOphalen.cls.xml) (revision 37905) +++ AX/Uitgaand/EC/Data/impl/HelperFacturenOphalen.cls.xml (.../HelperFacturenOphalen.cls.xml) (revision 38557) @@ -44,47 +44,133 @@ %String + +DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository + + + +APPS.OV.impl.TrackAndTraceService + + KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator %Status -pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List +pxHoofding:WS.Vhisie4.KlantDocument.dto.FactuurHoofding,lbHoofding:%List + - - ;Set pxHoofding.EDIReferentie=$P(OrderRec,"\",40) - ;Set pxHoofding.CommissieReferentie=$P(OrderRec,"\",19) - ;Set pxHoofding.InternMedewerker="" - ;Set pxHoofding.ExterneMedewerker="" + +pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List + - -pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List + +pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List +($H-150))&&(pxLijn.VerzendWijze="DI1") ;bon nummers worden herbruikt daarom beperken in tijd + { + try{ + Set pxLijn.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxLijn.LeveringID) + }Catch { + /// geen TrackAndTrace URL beschikbaar + } + } +]]> + +pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List + + + + +pxLijn:WS.Vhisie4.KlantDocument.dto.FactuurLijn,lbHoofding:%List,lbLijn:%List + + + FactuurProforma:%String - + + + + + FactuurProforma:%String,Periode:%Integer TotDatum Do . For Set FAKNr=$O(@..GlobalIndex@(..Node,..KlantID,Datum,FAKNr)) Quit:FAKNr="" Do @@ -177,32 +274,57 @@ Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ") Continue:ORDNr="" Continue:ORDNr=999999 ; dummy order voor plus/min bonnen - - Set HoofdingVolgNr=$I(^||ECCache("D")) - Set ^||ECCache("D",HoofdingVolgNr)=$LB(..FactuurProforma,ORDNr,$E(BONNr,2,9),FAKNr,$LG($G(Sort(ORDCnt))),@..GlobalData@(..Node,FAKNr,BONNr,1),@..GlobalData@(..Node,FAKNr,0,0),$G(@..GlobalData@(..Node,FAKNr,BONNr,3))) - Set ^||ECCache("IO",ORDNr,$O(^||ECCache("IO",ORDNr,""),-1)+1)=HoofdingVolgNr - Set ^||ECCache("IF",FAKNr,$O(^||ECCache("IF",FAKNr,""),-1)+1)=HoofdingVolgNr + If '$D(^||ECCache("FAK",FAKNr)) + { + Set FactuurRec=@..GlobalData@(..Node,FAKNr,0,0) + Set FactuurDatum=$$INTDATE^vhLib.DataTypes($P(FactuurRec,"\",6)) + + Set ^||ECCache("FAK",FAKNr)=$LB(..FactuurProforma,FAKNr,FactuurRec) + Set ^||ECCache("IFAK",FactuurDatum,FAKNr)="" + } + + Set ^||ECCache("FAK",FAKNr,BONNr,ORDNr,1,1)=$LB(..FactuurProforma,"O",Sort(ORDCnt),,ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0)) Set ProdGrp = "" for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" Set BLNr = "" for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1) Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2) #dim OLUNr As %String = $P(BLRec,"\",15) - Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr)) - Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,$I(LijnCnt))=$LB("P",BLRec,$G(GrpTekst(ORDCnt,OLUNr))) + Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"T",,GrpTekst(OLUNr),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0)) + Set:LijnType="P" ^||ECCache("FAK",FAKNr,BONNr,ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),ORDNr,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0)) } } } ]]> + +ORDRec +($H+5)) Datum=+$P($P(ORDRec,"\",4),"#",3) + Quit Datum +]]> + + + +ORDRec + + + FAKNr,Periode -0 ; alleen openstande - Quit 1 + FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefFacturenResponse.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: WS/Vhisie4/KlantDocument/GeefOffertesResponse.cls.xml =================================================================== diff -u -r37867 -r38557 --- WS/Vhisie4/KlantDocument/GeefOffertesResponse.cls.xml (.../GeefOffertesResponse.cls.xml) (revision 37867) +++ WS/Vhisie4/KlantDocument/GeefOffertesResponse.cls.xml (.../GeefOffertesResponse.cls.xml) (revision 38557) @@ -3,18 +3,30 @@ %SerialObject,%XML.Adaptor - -%String + +TECH.String +1 + - -%String + +TECH.String +1 + - -%String + +TECH.String +1 + + +TECH.String +1 + + + %Integer @@ -46,6 +58,18 @@ Lijst + +RequestId + + +SessieId + + +GenerationId + + +KlantId + Index: WS/Vhisie4/KlantDocument/GeefOrdersResponse.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/GeefOrdersResponse.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/GeefOrdersResponse.cls.xml (revision 38557) @@ -0,0 +1,48 @@ + + + +%SerialObject,%XML.Adaptor + + +STRING +1 + + + +TECH.String +1 + + + + +TECH.String +1 + + + + +TECH.String +1 + + + + +TECH.String +1 + + + + +%Integer + + + +WS.Vhisie4.KlantDocument.dto.HistoriekItem +list + + + + + + + FishEye: Tag 38557 refers to a dead (removed) revision in file `WS/Vhisie4/KlantDocument/GeefRecenteOrdersRequest.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: AX/Uitgaand/EC/Data/impl/LeveringenOphalen.cls.xml =================================================================== diff -u --- AX/Uitgaand/EC/Data/impl/LeveringenOphalen.cls.xml (revision 0) +++ AX/Uitgaand/EC/Data/impl/LeveringenOphalen.cls.xml (revision 38557) @@ -0,0 +1,248 @@ + + + + +BL.EC.Common,Prod.Product,BL.Derde.Kennis +1 +%RegisteredObject + + +%Integer + + + +AX.Uitgaand.EC.Data.impl.HelperLeveringenOphalen +1 + + + +AX.Uitgaand.EC.Data.impl.ProductValidator +1 + + + +%String +1 + + + +WS.Vhisie4.KlantDocument.dto.LeveringHoofding +list +1 + + + +%String + + + +%String + + + +WS.Vhisie4.KlantDocument.GeefLeveringenRequest + + + +WS.Vhisie4.KlantDocument.GeefLeveringenResponse + + + + +d ##class(AX.Uitgaand.EC.Data.impl.LeveringenOphalen).test(1736) +SFS 12486 +DuPont 1736 +1 +KlantID:%String + + + + +Request:WS.Vhisie4.KlantDocument.GeefLeveringenRequest +%Status + + + + +WS.Vhisie4.KlantDocument.GeefLeveringenResponse + + + + + +Hoofding + ^||ECCache("D",HoofdingVolgNr) = $LB(Type,OrderNr,BONNr,FAKNr,OrderHfdData, LeveringHfdData, FaktuurHfdData, LevAdresData) + waar Type = O,L,F,P (order, levering, factuur, proforma) +Lijn (product of tekst) + ^||ECCache("D",HoofdingVolgNr,LijnVolgNr) = $LB(Type,OrderlijnData, Tekst, VoorraadStatus) + waar Type = P of T (Product of Tekst) + de lijnData kan van zowel KOD, KUL, KFA als KFAP komen +Index + ^||ECCache("IO",OrderNr,VolgNr)=HoofdingVolgNr + ^||ECCache("IF",FactuurNr,VolgNr)=HoofdingVolgNr +Hoofding + ^||ECCache("ORD",ORDNr) = $LB(Oorsprong,OrderDatum, HfdData, LevAdresData) + waar Oorsprong = O,L,F,P (order, levering, factuur, proforma) + waar HfdData oorsprong afhankelijk (Order hfdData '= Levering en Factuur +Lijn (product of tekst) + ^||ECCache("ORD",ORDNr,OLUNr,LijnVolgNr) = $LB(Oorsprong,Type,OrderlijnData, Tekst, VoorraadStatus, BONNr, BonHfdData, FAKNr, FakHfdData) + waar Type = P of T (Product of Tekst) + de lijnData kan van zowel KOD, KUL, KFA als KFAP komen +Index + ^||ECCache("IORD",OrderDatum,ORDNr)="" + + + + +1 + + + + +1 + + + + +FAKNr:%String +1 + + + + +lbHoofding:%List,lbLijn:%List +1 +WS.Vhisie4.KlantDocument.dto.FactuurLijn + + + + +lbHoofding:%List +1 +WS.Vhisie4.KlantDocument.dto.FactuurHoofding + + + + + + Index: WS/Vhisie4/KlantDocument/dto/FactuurHoofding.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/dto/FactuurHoofding.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/dto/FactuurHoofding.cls.xml (revision 38557) @@ -0,0 +1,112 @@ + + + +DocumentHoofding + + +WS.Vhisie4.KlantDocument.dto.FactuurLijn +list + + + + +%String + + + + +%Decimal + + + +%Date + + + +%Date + + + +%Decimal + + + +%Integer + + + +%Library.CacheSerialState +FactuurHoofdingState +^WS.Vhisie4F15E.FactuurHoofB57ES + +listnode + + +OrderID + + +OrderDatum + + +OorsprongDocType + + +MultipleDocTypes + + +OrderReferentie + + +EDIReferentie + + +CommissieReferentie + + +IngegevenDoorMedewerker + + +VerzendWijze + + +LeverAdres + + +Lijnen + + +FactuurId + + +FactuurBedrag + + +FactuurDatum + + +VervalDatum + + +OpenstaandBedrag + + +AantalHerinneringen + + +Munt + + +ProductGroepen + + +arProductGroepen + + +TotaalPrijs + + + + + + + Index: WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/dto/OrderHoofding.cls.xml (revision 38557) @@ -0,0 +1,102 @@ + + + +DocumentHoofding + + +TECH.String + + + + +%Date + + + +TECH.String + + + +TECH.String + + + +TECH.String + + + +TECH.String + + + + +TECH.String + + + +WS.Vhisie4.KlantDocument.dto.OrderLijn +list + + + + +%Library.CacheSerialState +OrderHoofdingState +^WS.Vhisie4.KF15E.OrderHoofdingS + +listnode + + +OrderID + + +OrderDatum + + +OorsprongDocType + + +MultipleDocTypes + + +OrderReferentie + + +EDIReferentie + + +CommissieReferentie + + +IngegevenDoorMedewerker + + +VerzendWijze + + +LeverAdres + + +Lijnen + + +ProductGroepen + + +OrderId + + +arProductGroepen + + +TotaalPrijs + + +Munt + + + + + + + Index: AX/Uitgaand/EC/Data/impl/HelperFacturenOphalenAlsOrder.cls.xml =================================================================== diff -u --- AX/Uitgaand/EC/Data/impl/HelperFacturenOphalenAlsOrder.cls.xml (revision 0) +++ AX/Uitgaand/EC/Data/impl/HelperFacturenOphalenAlsOrder.cls.xml (revision 38557) @@ -0,0 +1,290 @@ + + + + +BL.EC.Common,Prod.Product,BL.Derde.Kennis +1 +TECH.RegisteredObject + + +%String + + + +AX.Uitgaand.EC.Data.impl.ProductValidator + + + +%String + + + +%String + + + +%String + + + +%String + + + +%String + + + +%String + + + + +Standaard of Contract +%String + + + +DOM.BKH.impl.OpenstaandeVerkoopFactuurRepository + + + +KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:AX.Uitgaand.EC.Data.impl.ProductValidator +%Status + + + + +pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List + + + + +pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List + + + + +FactuurProforma:%String + + + + +FactuurProforma:%String,Periode:%Integer +TotDatum Do + . For Set FAKNr=$O(@..GlobalIndex@(..Node,..KlantID,Datum,FAKNr)) Quit:FAKNr="" Do + . . Quit:'..CheckFactuur(FAKNr,Periode) + . . Do ..OphalenFactuur(FAKNr) +]]> + + + +FAKNr:%String + + + + +FAKNr:%String,BONNr:%String +",1:"")_$P(BLRec,"\",5) + Set LastGrpOLUNr=GrpOLUNr + } + } + } + } + Set BLNr=$O(@..GlobalData@(..Node,FAKNr,BONNr,BLNr)) + } + + Set ORDCnt = "" + For { set ORDCnt = $order(Sort(ORDCnt)) quit:ORDCnt="" + + Continue:'$D(Sort(ORDCnt))>1 // heeft Sort subnodes + Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ") + Continue:ORDNr="" + Continue:ORDNr=999999 ; dummy order voor plus/min bonnen + + If '$D(^||ECCache("ORD",ORDNr)) + { + Set OrderDatum=..GeefOrderDatum(Sort(ORDCnt)) + Set ^||ECCache("ORD",ORDNr)=$LB(..FactuurProforma,ORDNr,$LG($G(Sort(ORDCnt))),$G(@..GlobalData@(..Node,FAKNr,BONNr,3))) + Set ^||ECCache("IORD",OrderDatum,ORDNr)="" + } + + Set ProdGrp = "" + for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" + Set BLNr = "" + for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" + Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1) + Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2) + #dim OLUNr As %String = $P(BLRec,"\",15) + Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"T",,GrpTekst(OLUNr),,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0)) + Set:LijnType="P" ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB(..FactuurProforma,"P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),,$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1),FAKNr,@..GlobalData@(..Node,FAKNr,0,0)) + } + } + } + + /*Set HoofdingVolgNr=$I(^||ECCache("D")) + Set ^||ECCache("D",HoofdingVolgNr)=$LB(..FactuurProforma,,$E(BONNr,2,9),FAKNr,$LG($G(Sort(ORDCnt))),@..GlobalData@(..Node,FAKNr,BONNr,1),@..GlobalData@(..Node,FAKNr,0,0),$G(@..GlobalData@(..Node,FAKNr,BONNr,3))) + Set ^||ECCache("IO",ORDNr,$O(^||ECCache("IO",ORDNr,""),-1)+1)=HoofdingVolgNr + Set ^||ECCache("IF",FAKNr,$O(^||ECCache("IF",FAKNr,""),-1)+1)=HoofdingVolgNr + + Set ProdGrp = "" + for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" + Set BLNr = "" + for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" + Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1) + Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2) + #dim OLUNr As %String = $P(BLRec,"\",15) + Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("D",HoofdingVolgNr,OLUNr,$I(LijnCnt))=$LB("T",,GrpTekst(OLUNr)) + Set:LijnType="P" ^||ECCache("D",HoofdingVolgNr,OLUNr,$I(LijnCnt))=$LB("P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),$E(BONNr,2,9),@..GlobalData@(..Node,FAKNr,BONNr,1)) + } + } + } + */ +]]> + + + +ORDRec + + + + +FAKNr,Periode +0 ; alleen openstande + Quit 1 +]]> + + + +FAKNr,BONNr + + + + + + + + + + + Index: AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalenAlsOrder.cls.xml =================================================================== diff -u --- AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalenAlsOrder.cls.xml (revision 0) +++ AX/Uitgaand/EC/Data/impl/HelperLeveringenOphalenAlsOrder.cls.xml (revision 38557) @@ -0,0 +1,215 @@ + + + + +BL.EC.Common,Prod.Product,BL.Derde.Kennis +1 +%RegisteredObject + + +%String + + + +ProductValidator + + + +%String + + + +%String + + + +%String + + + + +Standaard of Contract +%String + + + +APPS.OV.impl.TrackAndTraceService + + + +KlantID:%String,Taal:%String,GenerationID:%String,ProductValidator:ProductValidator +%Status + + + + +pxHoofding:WS.Vhisie4.KlantDocument.dto.DocumentHoofding,lbHoofding:%List + + + + +pxLijn:WS.Vhisie4.KlantDocument.dto.DocumentLijn,lbHoofding:%List,lbLijn:%List +($H-150))&&($P($P(LeveringRec,"\",7)," #")="DI1") ;bon nummers worden herbruikt + { + try{ + Set pxHoofding.TransportTraceURL = ..TrackAndTraceService.GeefPubliekeTrackAndTraceURL(pxLijn.LeveringID) + }Catch E{ + /// geen TrackAndTrace URL beschikbaar + } + } + Set pxLijn.Status=##class(WS.Vhisie4.KlantDocument.enu.OrderStatus).InLevering() +]]> + + + + + + + +BONNr:%String +",1:"")_$P(BLRec,"\",5) + Set LastGrpOLUNr=GrpOLUNr + } + } + } + } + Set BLNr=$O(^KUL(..KlantID,..Node,BONNr,BLNr)) + } + + Set ORDCnt = "" + For { set ORDCnt = $order(Sort(ORDCnt)) quit:ORDCnt="" + + Continue:'$D(Sort(ORDCnt))>1 // heeft Sort subnodes + Set ORDNr=$P($P($LG($G(Sort(ORDCnt))),"\",5)," ") + Continue:ORDNr="" + Continue:ORDNr=999999 ; dummy order voor plus/min bonnen + If '$D(^||ECCache("ORD",ORDNr)) + { + Set OrderDatum=..GeefOrderDatum(Sort(ORDCnt)) + Set ^||ECCache("ORD",ORDNr)=$LB("L",ORDNr,Sort(ORDCnt),^KUL(..KlantID,..Node,BONNr,3),^KUL(..KlantID,..Node,BONNr,1)) + Set ^||ECCache("IORD",OrderDatum,ORDNr)="" + } + + Set ProdGrp = "" + for { set ProdGrp = $order(Sort(ORDCnt,ProdGrp)) quit:ProdGrp="" + Set BLNr = "" + for { set BLNr = $order(Sort(ORDCnt,ProdGrp,BLNr)) quit:BLNr="" + Set LijnType = $LI(Sort(ORDCnt,ProdGrp,BLNr),1) + Set BLRec = $LI(Sort(ORDCnt,ProdGrp,BLNr),2) + #dim OLUNr As %String = $P(BLRec,"\",15) + Set:LijnType="T"&&$D(GrpTekst(OLUNr)) ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("L","T",,GrpTekst(OLUNr),,BONNr,^KUL(..KlantID,..Node,BONNr,1)) + Set:LijnType="P" ^||ECCache("ORD",ORDNr,OLUNr,$I(LijnCnt))=$LB("L","P",BLRec,$G(GrpTekst(ORDCnt,OLUNr)),,BONNr,^KUL(..KlantID,..Node,BONNr,1)) + } + } + } +]]> + + + +ORDRec + + + + +BONNr + + + + + + + + + + + Index: WS/Vhisie4/KlantDocument/enu/OrderStatus/AutoComplete.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/enu/OrderStatus/AutoComplete.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/enu/OrderStatus/AutoComplete.cls.xml (revision 38557) @@ -0,0 +1,70 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration +serial +1 +%SerialObject + + +%String +"BeperteVoorraad" +1 +1 + + + +%String +"Gefactureeerd" +1 +1 + + + +%String +"InBestelling" +1 +1 + + + +%String +"InLevering" +1 +1 + + + +%String +"InProductie" +1 +1 + + + +%String +"NietInVoorraad" +1 +1 + + + +%String +"VerwerkingMagazijn" +1 +1 + + + +%String +"VoldoendeVoorraad" +1 +1 + + + + + Index: WS/Vhisie4/KlantDocument/enu/ProductGroep/AutoComplete.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/enu/ProductGroep/AutoComplete.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/enu/ProductGroep/AutoComplete.cls.xml (revision 38557) @@ -0,0 +1,63 @@ + + + + +Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig. +Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt +De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration +serial +1 +%SerialObject + + +%String +"BSL" +1 +1 + + + +%String +"KAD" +1 +1 + + + +%String +"LBX" +1 +1 + + + +%String +"MAATWERK" +1 +1 + + + +%String +"OL" +1 +1 + + + +%String +"TAX" +1 +1 + + + +%String +"TBX" +1 +1 + + + + + Index: WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml =================================================================== diff -u -r37881 -r38557 --- WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml (.../DocumentLijn.cls.xml) (revision 37881) +++ WS/Vhisie4/KlantDocument/dto/DocumentLijn.cls.xml (.../DocumentLijn.cls.xml) (revision 38557) @@ -8,16 +8,10 @@ %Integer - - -Leverdatum geregistreerd bij ingave, slechts ingevuld als de verwachteleverdatum gewijzigd werd -%Date - - Maatwerk, Beslag, Orgalux -TECH.String +WS.Vhisie4.KlantDocument.enu.ProductGroep @@ -28,16 +22,6 @@ TECH.String - - -Verwachte (of voorziene) leverdatum -%Date - - - -%Boolean - - TECH.String @@ -58,15 +42,11 @@ %Numeric - -TECH.String - - %Numeric - + TECH.String @@ -78,9 +58,13 @@ %Boolean + +TECH.String + + -Tekst, Levering, Retour +Tekst, Orderhoofding, Levering, Retour TECH.String @@ -121,18 +105,19 @@ -TECH.String +WS.Vhisie4.KlantDocument.enu.ProductGroep @@ -197,6 +182,45 @@ Type + +VoorzieneLeveringsDatum + + +LeveringsDatum + + +FactuurDatum + + +VervalDatum + + +OpenstaandBedrag + + +AantalRappels + + +DocType + + +LeveringID + + +TransportTraceURL + + +FactuurID + + +OorsprongDocType + + +FactuurBedrag + + +AantalHerinneringen + Index: WS/Vhisie4/KlantDocument/GeefLeveringenResponse.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/GeefLeveringenResponse.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/GeefLeveringenResponse.cls.xml (revision 38557) @@ -0,0 +1,48 @@ + + + +%SerialObject,%XML.Adaptor + + +STRING +1 + + + +TECH.String +1 + + + + +TECH.String +1 + + + + +TECH.String +1 + + + + +TECH.String +1 + + + + +%Integer + + + +WS.Vhisie4.KlantDocument.dto.HistoriekItem +list + + + + + + + Index: WS/Vhisie4/KlantDocument/dto/DocumentHoofding.cls.xml =================================================================== diff -u -r37881 -r38557 --- WS/Vhisie4/KlantDocument/dto/DocumentHoofding.cls.xml (.../DocumentHoofding.cls.xml) (revision 37881) +++ WS/Vhisie4/KlantDocument/dto/DocumentHoofding.cls.xml (.../DocumentHoofding.cls.xml) (revision 38557) @@ -3,89 +3,97 @@ %SerialObject,%XML.Adaptor - + + +Parameter XMLIGNORENULL As STRING = 1; STRING -1 +Hoofding - + TECH.String - -%Date - - - -%Date - - - -%Date - - - -%Date - - - -%Float - - - -%Integer - - - + TECH.String - -TECH.String + +WS.Vhisie4.KlantDocument.dto.ProductGroepInfo +array + - -TECH.String + +WS.Vhisie4.KlantDocument.dto.ProductGroepInfo +list - -TECH.String + +%Decimal - -TECH.String + +DOM.enu.Munt - -TECH.String + +WS.Vhisie4.KlantDocument.dto.DocumentLijn +list + - -TECH.String - - - -TECH.String - - - - -TECH.String - - - -TECH.String - - WS.Vhisie4.KlantDocument.dto.LeverAdres - -WS.Vhisie4.KlantDocument.dto.DocumentLijn -list - + + + + + +Op volgorde brengen van de productgroepen + + + + +ProductGroep:WS.Vhisie4.KlantDocument.enu.ProductGroep + + + %Library.CacheSerialState DocumentHoofdingState @@ -150,6 +158,30 @@ Lijnen + +IngegevenDoorMedewerker + + +OorsprongDocType + + +DataFromDocs + + +MultipleDocTypes + + +ProductGroepen + + +arProductGroepen + + +TotaalPrijs + + +Munt + Index: WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml =================================================================== diff -u -r38342 -r38557 --- WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml (.../KlantDocumentService.cls.xml) (revision 38342) +++ WS/Vhisie4/KlantDocument/KlantDocumentService.cls.xml (.../KlantDocumentService.cls.xml) (revision 38557) @@ -57,97 +57,78 @@ ]]> - + Parameter SessionID: security sleutel (onderling af te spreken) -
Parameter KlantID: Van welke klant de verkoopshistoriek moet opgehaald worden -
Parameter Taal: In welke taal (N,F,D,E) moet de lijst getoond worden
-
Het resultaat is hierarische structuur van hoofding met er onder product en tekstlijnen]]> -Request:WS.Vhisie4.KlantDocument.GeefRecenteOrdersRequest -WS.Vhisie4.KlantDocument.GeefRecenteOrdersResponse +
Het resultaat is hierarische structuur van orderhoofding met eronder product en tekstlijnen]]> +Request:WS.Vhisie4.KlantDocument.GeefOrdersRequest +WS.Vhisie4.KlantDocument.GeefOrdersResponse 1 - - Parameter SessionID: security sleutel (onderling af te spreken) -
Parameter KlantID: Van welke klant de verkoopshistoriek moet opgehaald worden -
Parameter Taal: In welke taal (N,F,D,E) moet de lijst getoond worden -
-
Het resultaat is hierarische structuur van hoofding met er onder product en tekstlijnen]]> -Request:WS.Vhisie4.KlantDocument.GeefRecenteOrdersRequest -WS.Vhisie4.KlantDocument.GeefRecenteOrdersResponse -1 - - - Parameter SessionID: security sleutel (onderling af te spreken) -
Parameter GenerationID: ID van de data generatie waarmee gewerkt wordt -
Parameter KlantID: Van welke klant de verkoopshistoriek moet opgehaald worden -
Parameter Taal: In welke taal (N,F,D,E) moet de lijst getoond worden -
Parameter Periode: Aantal dagen dat er factuurgegevens moeten opgehaald worden
-
Het resultaat is hierarische structuur van hoofding met er onder product en tekstlijnen]]> +
Het resultaat is hierarische structuur van factuurhoofding met eronder product en tekstlijnen]]> Request:WS.Vhisie4.KlantDocument.GeefFacturenRequest WS.Vhisie4.KlantDocument.GeefFacturenResponse 1 Parameter SessionID: security sleutel (onderling af te spreken) -
Parameter GenerationID: ID van de data generatie waarmee gewerkt wordt -
Parameter KlantID: Van welke klant de verkoopshistoriek moet opgehaald worden -
Parameter Taal: In welke taal (N,F,D,E) moet de lijst getoond worden -
Parameter Periode: Aantal dagen dat er offertes moeten opgehaald worden
-
Het resultaat is hierarische structuur van hoofding met er onder product en tekstlijnen]]> +
Het resultaat is hierarische structuur van offertehoofding met eronder product en tekstlijnen]]> Request:WS.Vhisie4.KlantDocument.GeefOffertesRequest WS.Vhisie4.KlantDocument.GeefOffertesResponse 1 - -Request:WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenRequest -WS.Vhisie4.KlantDocument.GeefOpenstaandeFacturenResponse + + +
Het resultaat is hierarische structuur van leveringhoofding met eronder product en tekstlijnen]]> +Request:WS.Vhisie4.KlantDocument.GeefLeveringenRequest +WS.Vhisie4.KlantDocument.GeefLeveringenResponse 1 @@ -162,12 +143,6 @@ quit bl.GeefResponse() ]]> - - -1 - - FishEye: Tag 38557 refers to a dead (removed) revision in file `AX/Uitgaand/EC/Data/impl/OpenstaandeOrdersOphalen.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: WS/Vhisie4/KlantDocument/GeefLeveringenRequest.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/GeefLeveringenRequest.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/GeefLeveringenRequest.cls.xml (revision 38557) @@ -0,0 +1,47 @@ + + + +%SerialObject,%XML.Adaptor + + +STRING +1 + + + +WS.Vhisie4.RequestHeader +1 + + + +%String + + + + +%String + + + + +%Library.CacheSerialState +GeefLeveringenRequestState +^WS.Vhisie4F4FA.GeefLeverin9838S + +listnode + + +Header + + +GenerationId + + +Periode + + + + + + + Index: AX/Uitgaand/EC/Data/impl/PakketRefOphalen.cls.xml =================================================================== diff -u -r38339 -r38557 --- AX/Uitgaand/EC/Data/impl/PakketRefOphalen.cls.xml (.../PakketRefOphalen.cls.xml) (revision 38339) +++ AX/Uitgaand/EC/Data/impl/PakketRefOphalen.cls.xml (.../PakketRefOphalen.cls.xml) (revision 38557) @@ -43,28 +43,29 @@ 1 KlantID:%String -Request +Request:WS.Vhisie4.KlantProduct.GeefKlantProductReferentiesRequest %Status 1 - -WS.Vhisie4.KlantDocument.GeefOffertesResponse -1 - - AX.Uitgaand.EC.Data.impl.HelperOffertesOphalen 1 - -%String + +WS.Vhisie4.KlantDocument.dto.DocumentHoofding +list +1 - + %String - + %String -%String +%Integer + +WS.Vhisie4.KlantDocument.GeefOffertesRequest + + + +WS.Vhisie4.KlantDocument.GeefOffertesResponse + + -d ##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).test(1736) -SFS 12486 -DuPont 1736 +d ##class(AX.Uitgaand.EC.Data.impl.OffertesOphalen).test(1736) 1 KlantID:%String -KlantID:%String,Taal:%String,GenerationID:%String,SessionID:%String,Periode:%Integer +Request:WS.Vhisie4.KlantDocument.GeefOffertesRequest %Status - + WS.Vhisie4.KlantDocument.GeefOffertesResponse - @@ -110,7 +123,6 @@ Kill ^||ECCache Do ..OffertesOphaler.OphalenNaarCache(..Periode) - ;zw ^||ECCache ]]> @@ -147,14 +159,15 @@ } Set LijnVolgNr=$O(^||ECCache("D",HoofdingVolgNr,LijnVolgNr)) } - Do ..Data.Lijst.Insert(pxHoofding) + Do pxHoofding.BepaalProductGroepen() + Do ..Offertes.Insert(pxHoofding) ]]> lbHoofding:%List lbHoofding:%List,lbLijn:%List + + + +BL.EC.Common,Prod.Product,BL.Derde.Kennis +1 +TECH.RegisteredObject + + +AX.Uitgaand.EC.Data.impl.HelperOrdersOphalen +1 + + + +AX.Uitgaand.EC.Data.impl.HelperLeveringenOphalenAlsOrder +1 + + + +AX.Uitgaand.EC.Data.impl.HelperFacturenOphalenAlsOrder +1 + + + +AX.Uitgaand.EC.Data.impl.ProductValidator +1 + + + +%String +1 + + + +WS.Vhisie4.KlantDocument.dto.OrderHoofding +list +1 + + + +%String + + + +%String + + + +%Integer + + + +WS.Vhisie4.KlantDocument.GeefOrdersRequest + + + +WS.Vhisie4.KlantDocument.GeefOrdersResponse + + + + +d ##class(AX.Uitgaand.EC.Data.impl.OrdersOphalen).test(1736) +SFS 12486 +DuPont 1736 +1 +KlantID:%String + + + + +Request:WS.Vhisie4.KlantDocument.GeefOrdersRequest +%Status + + + + +WS.Vhisie4.KlantDocument.GeefOrdersResponse + + + + + +Hoofding + ^||ECCache("ORD",ORDNr) = $LB(Oorsprong,OrderDatum, HfdData, LevAdresData) + waar Oorsprong = O,L,F,P (order, levering, factuur, proforma) + waar HfdData oorsprong afhankelijk (Order hfdData '= Levering en Factuur +Lijn (product of tekst) + ^||ECCache("ORD",ORDNr,OLUNr,LijnVolgNr) = $LB(Oorsprong,Type,OrderlijnData, Tekst, VoorraadStatus, BONNr, BonHfdData, FAKNr, FakHfdData) + waar Type = P of T (Product of Tekst) + de lijnData kan van zowel KOD, KUL, KFA als KFAP komen +Index + ^||ECCache("IORD",OrderDatum,ORDNr)="" + + + + +1 + + + + +1 + + + + +ORDNr:%String +1 + + + + +lbHoofding:%List +1 +WS.Vhisie4.KlantDocument.dto.OrderHoofding + + + + +lbHoofding:%List,lbLijn:%List +1 +WS.Vhisie4.KlantDocument.dto.OrderLijn + + + + +lbHoofding:%List +1 +WS.Vhisie4.KlantDocument.dto.OrderHoofding + + + + +lbHoofding:%List +1 +WS.Vhisie4.KlantDocument.dto.OrderHoofding + + + + + + + + +lbHoofding:%List,lbLijn:%List +1 +WS.Vhisie4.KlantDocument.dto.OrderLijn + + + + +lbHoofding:%List,lbLijn:%List +1 +WS.Vhisie4.KlantDocument.dto.OrderLijn + + + + +lbHoofding:%List,lbLijn:%List +1 +WS.Vhisie4.KlantDocument.dto.OrderLijn + + + + + + Index: WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml =================================================================== diff -u --- WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml (revision 0) +++ WS/Vhisie4/KlantDocument/dto/LeveringLijn.cls.xml (revision 38557) @@ -0,0 +1,180 @@ + + + +BL.EC.Common,Prod.Product +DocumentLijn + + +%Integer + + + + +Leverdatum geregistreerd bij ingave, slechts ingevuld als de verwachteleverdatum gewijzigd werd +%Date + + + + +Verwachte (of voorziene) leverdatum +%Date + + + +%Boolean + + + +WS.Vhisie4.KlantDocument.enu.OrderStatus + + + +%Boolean + + + +TECH.String + + + + +%Date + + + +TECH.String + + + +TECH.String + + + +TECH.String + + + + +TECH.String + + + +%Library.CacheSerialState + + +Aantal + + +GevraagdeLeverDatum + + +ProductGroep + + +KortTekst + + +ProductCode + + +VerwachteLeverDatum + + +BackOrder + + +ProductOmschrijving + + +Commentaar + + +ProductID + + +Munt + + +NettoPrijs + + +GrootteOrde + + +TotaalPrijs + + +Status + + +InAssortiment + + +InConfigurator + + +Type + + +VoorzieneLeveringsDatum + + +LeveringsDatum + + +FactuurDatum + + +VervalDatum + + +OpenstaandBedrag + + +AantalRappels + + +DocType + + +LeveringID + + +TransportTraceURL + + +FactuurID + + +OorsprongDocType + + +FactuurBedrag + + +AantalHerinneringen + + +OrderId + + +OrderDatum + + +OrderReferentie + + +CommissieReferentie + + +IngegevenDoorMedewerker + + +VerzendWijze + + + + + + +