Query chiusura ordine

-- Query per chiudere le testate degli ordini che hanno tutte le righe evase

UPDATE TESDOCUM
SET EVASO_SN='S'
WHERE NUMERO IN (
select TESDOCUM.NUMERO from TESDOCUM
WHERE ESERPROTOC >='2008'
AND TIPOPROTOC='OC'
AND EVASO_SN='N'
AND NOT EXISTS ( SELECT 1 FROM MOVIMAG M
WHERE TESDOCUM.NUMERO=M.NUMERO
AND EVASION_SN='N'
)
)