Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/Registratie.cls.xml
===================================================================
diff -u -r52358 -r53243
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/Registratie.cls.xml (.../Registratie.cls.xml) (revision 52358)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/Registratie.cls.xml (.../Registratie.cls.xml) (revision 53243)
@@ -64,6 +64,18 @@
%String
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
RegistratieCode
@@ -136,6 +148,15 @@
Familie
+
+AxInventTransId
+
+
+AxConfigId
+
+
+AxMaatwerkGenerischItemId
+
Index: APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml
===================================================================
diff -u -r50298 -r53243
--- APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml (.../IDataOphaler.cls.xml) (revision 50298)
+++ APPS/VKP/Maatwerk/LadeRegistratie/impl/IDataOphaler.cls.xml (.../IDataOphaler.cls.xml) (revision 53243)
@@ -91,11 +91,23 @@
If TLUNr
{
Set TLNr=$G(^TO("IU",TOENr,TLUNr),"*")
+ If TLNr="*" ; Principale werkt niet, proberen met backorder lijn
+ {
+ Set BackTLUNr=$O(^TO("IU",TOENr,TLUNr))
+ If $E($Reverse(TLUNr),2,99)=$E($Reverse(BackTLUNr),2,99) ; is hetzelfde principale lijnnr
+ {
+ Set TLNr=$G(^TO("IU",TOENr,BackTLUNr),"*")
+ }
+ }
Set TLRec=$G(^KTO(LEVNr,TOENr,TLNr))
If TLRec'=""
{
Set ORDNr=$P(TLRec,"\",27)
Set OLNr=$P(TLRec,"\",28)
+ Set ..Registratie.AxInventTransId=$P(TLRec,"\",55)
+ Set ..Registratie.AxMaatwerkGenerischItemId=$P(TLRec,"\",57)
+ Set ..Registratie.AxConfigId=$P(TLRec,"\",56)
+
If ORDNr,OLNr
{
Set KLNr=$P($G(^KO1(ORDNr,"F")),"\")
@@ -105,6 +117,11 @@
Set ..Registratie.KlantID=KLNr
Set ..Registratie.OrderID=ORDNr
Set ..Registratie.CommissieRef=$P(ORDRec,"\",19)
+ Set OLRec=$G(^KOD(KLNr,"F",ORDNr,OLNr))
+ Set:..Registratie.AxInventTransId="" ..Registratie.AxInventTransId=$P(OLRec,"\",55)
+ Set:..Registratie.AxMaatwerkGenerischItemId="" ..Registratie.AxMaatwerkGenerischItemId=$P(OLRec,"\",57)
+ Set:..Registratie.AxConfigId="" ..Registratie.AxConfigId=$P(OLRec,"\",56)
+
}
}
}