Index: EWPAL2.mac.rou =================================================================== diff -u -r45457 -r45610 --- EWPAL2.mac.rou (.../EWPAL2.mac.rou) (revision 45457) +++ EWPAL2.mac.rou (.../EWPAL2.mac.rou) (revision 45610) @@ -73,6 +73,25 @@ ...If $L($G(PalId)) Quit:$P(Rec,"\",5)'=PalId ...Set Qty=Qty+$P(Rec,"\",4) Quit Qty + +CORRTOEAX(MPRNr,KPRNr,PalId) + New RCPNr,TOENr,LUNr,SubLNr,Rec,Qty + Set Qty=0 + Set TOENr="" + For Set TOENr=$O(^TO("IP",MPRNr,TOENr)) Quit:TOENr="" Do:$D(^RCP("IT",TOENr)) + .Set LUNr="" + .For Set LUNr=$O(^TO("IP",MPRNr,TOENr,LUNr)) Quit:LUNr="" Do:$D(^RCP("IT",TOENr,LUNr)) + ..Set RCPNr=^RCP("IT",TOENr,LUNr) + ..Quit:'$D(^RCP("D",RCPNr,"D",TOENr,LUNr)) + ..Quit:$P(^RCP("D",RCPNr,"D",TOENr,LUNr),"\",2)="I" ; Reeds ingeboekt + ..Set SubLNr="" + ..For Set SubLNr=$O(^RCP("D",RCPNr,"D",TOENr,LUNr,SubLNr)) Quit:SubLNr="" Do + ...Set Rec=^RCP("D",RCPNr,"D",TOENr,LUNr,SubLNr) + ...Quit:$P(Rec,"\",1)'=KPRNr + ...;Quit:'$P(Rec,"\",7) ; als ze van Ax komen zijn ze nog niet gestockeerd, maar moeten wel in de blocked + ...If $L($G(PalId)) Quit:$P(Rec,"\",5)'=PalId + ...Set Qty=Qty+$P(Rec,"\",3) ; ipv piece 4 + Quit Qty BLDKUP New KLNr,BONNr,LNr,PRNr Kill ^KUP @@ -85,4 +104,3 @@ ...Quit:'PRNr ...Set ^KUP(PRNr,BONNr,LNr)=KLNr Quit - Index: AXimpl/Dynamics/InventoryOut/Converter/ReceptieStockNiveauService.cls.xml =================================================================== diff -u -r45461 -r45610 --- AXimpl/Dynamics/InventoryOut/Converter/ReceptieStockNiveauService.cls.xml (.../ReceptieStockNiveauService.cls.xml) (revision 45461) +++ AXimpl/Dynamics/InventoryOut/Converter/ReceptieStockNiveauService.cls.xml (.../ReceptieStockNiveauService.cls.xml) (revision 45610) @@ -6,7 +6,7 @@ MPRNr:%String,KPRNr:%String %Decimal -