Procedimiento para darle reversa a un recibo de una PO de XDOCK

Cuando nos solicitan dar reversa a un recibo PO de XDOCK (MDC) por motivos de que el PIX (recibo) se proceso incompleto aplicar la siguiente mitigacion capturando como dato de entrada el numero de la PO.

/*1.-Actualiza Itemreplen*/
UPDATE    ir   
SET 
ir.[DCOrdMin] = ir.[DCOrdMin] - (pd.[LastRecQty] - pd.[LastVisDamag] - pd.[LastConDamag])

 from podetail pd INNER JOIN ItemReplen  ir  ON pd.sku = ir.sku
AND pd.ponumber = '# PO' --Numero de  PO


/*2.-Actualiza Podetail*/

Update PODetail  SET 
	[ItemStatus] = 'O'
	,[ItemStatCode] = 'A'
       ,[LastRecQty] = 0
       ,[LastRecDate]= ''
       ,[TotQtyRecvd]= 0
       ,[TotQtyToday]= 0
       where  ponumber = '# PO' --Numero de  PO


/*3.-Actualiza Poheader*/

UPDATE POheader  SET 
        POStatus     = 'P',   
        LastReceiver =  NULL,     
        RecLogged    = 0,               
        RecAssigDate = '' ,            
        OrigRecdDate =  '',
        ReceivedTot  = 0,
		LastRecDate  = NULL
where   PONumber     = '# PO' --Numero de  PO

/*4.-Depura Recibos*/

delete Rcheader  where  ponumber = '# PO' --Numero de  PO
delete Rcdetail  where  ponumber = '# PO' --Numero de  PO