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) + } } }