def var cd-unidade-aux            like docrecon.cd-unidade              no-undo.
def var cd-unidade-prestadora-aux like docrecon.cd-unidade-prestadora   no-undo.
def var cd-transacao-aux          like docrecon.cd-transacao            no-undo.
def var nr-serie-doc-original-aux like docrecon.nr-serie-doc-original   no-undo.
def var nr-doc-original-aux       like docrecon.nr-doc-original         no-undo.
def var nr-doc-sistema-aux        like docrecon.nr-doc-sistema          no-undo.

update cd-unidade-aux.
update cd-unidade-prestadora-aux. 
update cd-transacao-aux         . 
update nr-serie-doc-original-aux.
update nr-doc-original-aux      .
update nr-doc-sistema-aux       .


for first docrecon
    where docrecon.cd-unidade            = cd-unidade-aux           
      and docrecon.cd-unidade-prestadora = cd-unidade-prestadora-aux
      and docrecon.cd-transacao          = cd-transacao-aux         
      and docrecon.nr-serie-doc-original = nr-serie-doc-original-aux
      and docrecon.nr-doc-original       = nr-doc-original-aux      
      and docrecon.nr-doc-sistema        = nr-doc-sistema-aux       no-lock:

    MESSAGE "Guia Principal            = " docrecon.dec-2 skip
            "Guia Operadora            = " docrecon.dec-3 skip
            "Guia de Autorizacao do AT = " docrecon.aa-guia-atendimento + docrecon.nr-guia-atendimento
        VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.

end.