Actualitzar albarans tancats de factures obertes de clients amb enviament via Integra2

select A.DocStatus, A.DocDate,A.CardCode, A.CardName, A.U_INTRX_I2_ESTAT,A.U_INTRX_I2_ENVIAT, A.TrnspCode
--update A set A.TrnspCode=AF.TrnspCode
from ODLN A
join 
(
select D.DocEntry DocEntryFactura, L.BaseEntry DocEntryAlbara, D.TrnspCode
from OINV D
join INV1 L on L.DocEntry=D.DocEntry and L.BaseType='15'
where D.TrnspCode in (5,9,14,41) and D.DocStatus='O'
group By D.DocEntry,L.BaseEntry, D.TrnspCode
) AF on AF.DocEntryAlbara=A.DocEntry
where A.DocStatus='C' and A.U_INTRX_I2_ESTAT='X'