w "Delete previous: "_##class(EWMS.ToReceive).DeleteReceptie(136922),!
 
	New Ref,Rec
	Set Ref="^TRSQLTMP"
	For  Set Ref=$Q(@Ref) Quit:(Ref="")  Do
	. Set Rec=@Ref
	. Do RecToObj(Rec)
 
	Do RCP
	Do KTO
	
	Quit
 
RecToObj(Rec)
	New Obj
	Set Obj=##class(EWMS.ToReceive).%New()
	Set Obj.OrderNr=$P(Rec,"`",1)
	Set Obj.Supplier=$P(Rec,"`",2)
	Set Obj.Product=$P(Rec,"`",3)
	Set Obj.Batch=$P(Rec,"`",4)
	Set Obj.Quality=$P(Rec,"`",5)
	Set Obj.Owner=$P(Rec,"`",6)
	Set Obj.LocID=$P(Rec,"`",7)
	Set Obj.Sectie=$P(Rec,"`",8)
	Set Obj.LocM=$P(Rec,"`",9)
	Set Obj.LocG=$P(Rec,"`",10)
	Set Obj.QtyToReceive=$P(Rec,"`",11)
	Set Obj.QtyReceived=$P(Rec,"`",12)
	Set Obj.QtyTransported=$P(Rec,"`",13)
	Set Obj.QtyTransportReq=$P(Rec,"`",14)
	Set Obj.QtyInBox=$P(Rec,"`",15)
	Set Obj.QtyBlock=$P(Rec,"`",16)
	Set Obj.ReasonBlock=$P(Rec,"`",17)
	Set Obj.CarrierType=$P(Rec,"`",18)
	Set Obj.CarrierDwh=$P(Rec,"`",19)
	Set Obj.UnitLoadType=$P(Rec,"`",20)
	Set Obj.CarrierTarra=$P(Rec,"`",21)
	Set Obj.CarrierWeight=$P(Rec,"`",22)
	Set Obj.Abc=$P(Rec,"`",23)
	Set Obj.ProductGroup=$P(Rec,"`",24)
	Set Obj.NrCarriers=$P(Rec,"`",25)
	Set Obj.PcsVol=$P(Rec,"`",26)
	Set Obj.PcsWeight=$P(Rec,"`",27)
	Set Obj.PcsPrice=$P(Rec,"`",28)
	Set Obj.BoxVol=$P(Rec,"`",29)
	Set Obj.BoxWeight=$P(Rec,"`",30)
	Set Obj.BoxPrice=$P(Rec,"`",31)
	Set Obj.ExpDay=$P(Rec,"`",32)
	Set Obj.OrderCancelled=$P(Rec,"`",33)
	Set Obj.OrderConfirmed=$P(Rec,"`",34)
	Set Obj.InsertTime=$P(Rec,"`",35)
	Set Obj.Sender=$P(Rec,"`",36)
	Set Obj.ExtraInt1=$P(Rec,"`",37)
	Set Obj.ExtraInt2=$P(Rec,"`",38)
	Set Obj.ExtraInt3=$P(Rec,"`",39)
	Set Obj.ExtraInt4=$P(Rec,"`",40)
	Set Obj.ExtraInt5=$P(Rec,"`",41)
	Set Obj.ExtraInt6=$P(Rec,"`",42)
	Set Obj.ExtraInt7=$P(Rec,"`",43)
	Set Obj.ExtraInt8=$P(Rec,"`",44)
	Set Obj.ExtraInt9=$P(Rec,"`",45)
	Set Obj.ExtraInt10=$P(Rec,"`",46)
	Set Obj.ExtraChar1=$P(Rec,"`",47)
	Set Obj.ExtraChar2=$P(Rec,"`",48)
	Set Obj.ExtraChar3=$P(Rec,"`",49)
	Set Obj.ExtraChar4=$P(Rec,"`",50)
	Set Obj.ExtraChar5=$P(Rec,"`",51)
	Set Obj.ExtraChar6=$P(Rec,"`",52)
	Set Obj.ExtraChar7=$P(Rec,"`",53)
	Set Obj.ExtraChar8=$P(Rec,"`",54)
	Set Obj.ExtraChar9=$P(Rec,"`",55)
	Set Obj.ExtraChar10=$P(Rec,"`",56)
	Set Obj.ExtraFloat1=$P(Rec,"`",57)
	Set Obj.ExtraFloat2=$P(Rec,"`",58)
	Set Obj.ExtraFloat3=$P(Rec,"`",59)
	Set Obj.ExtraFloat4=$P(Rec,"`",60)
	Set Obj.ExtraFloat5=$P(Rec,"`",61)
 
	w Obj.LocID_", "_Obj.Product_" - Save: "_Obj.%Save(),!
	
	Quit
	
RCP
  w "RCP..."
 
	;136922
	Kill ^RCP("D",136922)
	m ^RCP("D",136922)=^TRRCP("D",136922)
 
 	;136939
	Kill ^RCP("D",136939)
	m ^RCP("D",136939)=^TRRCP("D",136939)
 
	w "Ok.",!
 
	Quit
	
KTO
  w "KTO..."
	
	m ^KTO(5490)=^TRKTO(5490)
 
	w "Ok.",!
 
	Quit
 
TMP
	w "hi",!
	Quit
	
ggg
  n dos,prod,l
  s dos="", l=""
  f  s dos=$o(^KPR3("S",dos)) q:(dos="")  d
  . s prod=^KPR3("S",dos)
  . d ##class(BL.ProdHist.ChargeTrace).GetChargeHalfFabrArray(prod,.a)
  . f  s l=$o(a(l)) q:(l="")  d
  ..  w dos_": "_l,!