def var aux-cd-unidade-prestador like notapres.cd-unidade-prestador no-undo.
def var aux-cd-prestador         like notapres.cd-prestador         no-undo.
def var aux-aa-fatura            like notapres.aa-fatura            no-undo.
def var aux-cd-serie-nf          like notapres.cd-serie-nf          no-undo.
def var aux-cod-fatur-ap         like notapres.cod-fatur-ap         no-undo.

update aux-cd-unidade-prestador
       aux-cd-prestador        
       aux-aa-fatura           
       aux-cd-serie-nf         
       aux-cod-fatur-ap.

find first paramecp no-lock no-error.
if not avail paramecp then return.

for each notapres
    where notapres.cd-unidade            = paramecp.cd-unimed                    
      and notapres.cd-unidade-prestador  = aux-cd-unidade-prestador
      and notapres.cd-prestador          = aux-cd-prestador         
      and notapres.aa-fatura             = aux-aa-fatura                                
      and notapres.cd-serie-nf           = aux-cd-serie-nf                              
      and notapres.cod-fatur-ap          = aux-cod-fatur-ap                             
          exclusive-lock:  

    if notapres.dt-pagto-prestador <> ?
    then assign notapres.dt-pagto-prestador = ?.

end.