--Verificação
Select MovObra.NumRegisto, MovObra.Produto, MovObra.DescProduto, MovObra.Tipo, MovObra.Numero, MovObra.Data, MovObra.IvaTab as IvaObra, MovProduto.IvaTabela as IvaMovPro,
MovObra.IvaTaxa as TxObra, MovProduto.IvaTaxa as TxMorpo

from MovObra
Inner Join MovProduto 
    on  MovProduto.Tipo = MovObra.Tipo 
    and MovProduto.Numero = MovObra.Numero 
    and MovProduto.Data = MovObra.Data 
    and MovProduto.Codigo = MovObra.Produto 
    and MovProduto.Identifica = MovObra.Identifica 
    
Where MovObra.NumRegisto >= 0  and MovProduto.IvaTaxa=18

and MovObra.IvaTab <> MovProduto.IvaTabela 

Order By MovObra.NumRegisto

--Update

Update MovProduto
Set 
IvaTabela = (Select MovObra.IvaTab from MovObra
Where MovObra.Tipo  = MovProduto.Tipo 
    and MovObra.Numero  =MovProduto.Numero 
    and MovObra.Data  = MovProduto.Data 
    and MovObra.Produto  =MovProduto.Codigo 
    and MovObra.Identifica  = MovProduto.Identifica )
,IvaTaxa = (Select MovObra.IvaTaxa from MovObra
Where MovObra.Tipo  = MovProduto.Tipo 
    and MovObra.Numero  =MovProduto.Numero 
    and MovObra.Data  = MovProduto.Data 
    and MovObra.Produto  =MovProduto.Codigo 
    and MovObra.Identifica  = MovProduto.Identifica )
,ValorIva = (Select MovObra.ValorIva from MovObra
Where MovObra.Tipo  = MovProduto.Tipo 
    and MovObra.Numero  =MovProduto.Numero 
    and MovObra.Data  = MovProduto.Data 
    and MovObra.Produto  =MovProduto.Codigo 
    and MovObra.Identifica  = MovProduto.Identifica )
, ConfPassa=85
Where 
MovProduto.NumRegisto in 
(Select MovPro.NumRegisto from MovObra 
    Inner Join MovProduto  as MovPro
    on  MovPro.Tipo = MovObra.Tipo 
    and MovPro.Numero = MovObra.Numero 
    and MovPro.Data = MovObra.Data 
    and MovPro.Codigo = MovObra.Produto 
    and MovPro.Identifica = MovObra.Identifica 
    Where MovObra.NumRegisto >= 0  and MovPro.IvaTaxa=18
    and MovObra.IvaTab <> MovProduto.IvaTabela 
    )


-- Verificação Regs Actualizacos
Select MovObra.NumRegisto, MovObra.Produto, MovObra.DescProduto, MovObra.Tipo, MovObra.Numero, MovObra.Data, MovObra.IvaTab as IvaObra, MovProduto.IvaTabela as IvaMovPro,
MovObra.ValorIva as valivaobra, MovProduto.Valoriva as valivapro,
MovObra.IvaTaxa as TxObra, MovProduto.IvaTaxa as TxMorpo

from MovObra
Inner Join MovProduto 
    on  MovProduto.Tipo = MovObra.Tipo 
    and MovProduto.Numero = MovObra.Numero 
    and MovProduto.Data = MovObra.Data 
    and MovProduto.Codigo = MovObra.Produto 
    and MovProduto.Identifica = MovObra.Identifica 
Where MovProduto.ConfPassa=85
Order By MovObra.NumRegisto