def var cdn-unid-aux             as int format "9999"     no-undo.
def var cdn-unid-prestdra-aux    as int format "9999"     no-undo.
def var cdn-trans-aux            as int format "9999"     no-undo.
def var cod-ser-docto-origin-aux as char format "x(04)"   no-undo.
def var num-docto-origin-aux     as int format "99999999" no-undo.
def var num-docto-sist-aux       as int format "99999999" no-undo.


def frame guia
  cdn-unid-aux             VIEW-AS FILL-IN NATIVE SIZE 6 BY 1.0 LABEL "Unid " skip
  cdn-unid-prestdra-aux    VIEW-AS FILL-IN NATIVE SIZE 6 BY 1.0 LABEL "Unid Prest" skip
  cdn-trans-aux            VIEW-AS FILL-IN NATIVE SIZE 6 BY 1.0 LABEL "Trans" skip
  cod-ser-docto-origin-aux VIEW-AS FILL-IN NATIVE SIZE 6 BY 1.0 LABEL "Serie" skip 
  num-docto-origin-aux     VIEW-AS FILL-IN NATIVE SIZE 12 BY 1.0 LABEL "Documento" skip
  num-docto-sist-aux       VIEW-AS FILL-IN NATIVE SIZE 12 BY 1.0 LABEL "Sequencia"
  with side-labels column 80 row 100 size 30 by 8 overlay view-as dialog-box three-d
       title "Selecao".
 
UPDATE  cdn-unid-aux            
        cdn-unid-prestdra-aux   
        cdn-trans-aux           
        cod-ser-docto-origin-aux
        num-docto-origin-aux    
        num-docto-sist-aux      
        WITH FRAME guia.

for each docto-monit-ans 
   where docto-monit-ans.cdn-unid                = cdn-unid-aux            
     and docto-monit-ans.cdn-unid-prestdra       = cdn-unid-prestdra-aux   
     and docto-monit-ans.cdn-trans               = cdn-trans-aux           
     and docto-monit-ans.cod-ser-docto-origin    = cod-ser-docto-origin-aux
     and docto-monit-ans.num-docto-origin        = num-docto-origin-aux    
     and docto-monit-ans.num-docto-sist          = num-docto-sist-aux      
     no-lock:

    for first docrecon
        where docrecon.cd-unidade            = docto-monit-ans.cdn-unid            
          and docrecon.cd-unidade-prestadora = docto-monit-ans.cdn-unid-prestdra   
          and docrecon.cd-transacao          = docto-monit-ans.cdn-trans           
          and docrecon.nr-serie-doc-original = docto-monit-ans.cod-ser-docto-origin
          and docrecon.nr-doc-original       = docto-monit-ans.num-docto-origin    
          and docrecon.nr-doc-sistema        = docto-monit-ans.num-docto-sist:
    
        for each contrat-estabdo-monit-ans
           where contrat-estabdo-monit-ans.cdn-modalid    = docrecon.cd-modalidade
             and contrat-estabdo-monit-ans.num-ter-adesao = docrecon.nr-ter-adesao
             and contrat-estabdo-monit-ans.cdn-operdra    = docrecon.cd-unidade-prestadora
             no-lock:
        
            output to c:\temp\contrat-estabdo-monit-ans.d append.
            export contrat-estabdo-monit-ans.
            output close.

        end.

        for each notacred
            where notacred.cd-modalidade        = docrecon.cd-modalidade
              and notacred.cd-unimed-prestadora = docrecon.cd-unidade-prestadora
              and notacred.nr-ter-adesao        = docrecon.nr-ter-adesao:

            output to c:\temp\notacred.d append.
            export notacred.
            output close.

        end.
    end.

    for each histor-docto-revis-ctas
       where histor-docto-revis-ctas.cd-unidade            = docto-monit-ans.cdn-unid
         and histor-docto-revis-ctas.cd-unidade-prestadora = docto-monit-ans.cdn-unid-prestdra
         and histor-docto-revis-ctas.cd-transacao          = docto-monit-ans.cdn-trans
         and histor-docto-revis-ctas.nr-serie-doc-original = docto-monit-ans.cod-ser-docto-origin
         and histor-docto-revis-ctas.nr-doc-original       = docto-monit-ans.num-docto-origin
         and histor-docto-revis-ctas.nr-doc-sistema        = docto-monit-ans.num-docto-sist
         no-lock:
                                                            
        output to c:\temp\histor-docto-revis-ctas.d append.
        export histor-docto-revis-ctas.
        output close.
                 
        if histor-docto-revis-ctas.nr-lote-imp       <> 0
        and histor-docto-revis-ctas.nr-sequencia-imp <> 0
        then do:
            find loteimp 
            where loteimp.cd-unidade    = histor-docto-revis-ctas.cd-unidade-imp   
              and loteimp.cd-prestador  = histor-docto-revis-ctas.cd-prestador-imp 
              and loteimp.nr-lote       = histor-docto-revis-ctas.nr-lote-imp      
              and loteimp.nr-sequencia  = histor-docto-revis-ctas.nr-sequencia-imp 
                  no-lock no-error.
    
            if avail loteimp 
            then do:
                output to c:\temp\loteimp.d append.
                export loteimp.
                output close.
            end.
        end.
            
         for each histor-movimen-proced
             where histor-movimen-proced.cd-unidade            = histor-docto-revis-ctas.cd-unidade           
               and histor-movimen-proced.cd-unidade-prestadora = histor-docto-revis-ctas.cd-unidade-prestadora
               and histor-movimen-proced.cd-transacao          = histor-docto-revis-ctas.cd-transacao         
               and histor-movimen-proced.nr-serie-doc-original = histor-docto-revis-ctas.nr-serie-doc-original
               and histor-movimen-proced.nr-doc-original       = histor-docto-revis-ctas.nr-doc-original      
               and histor-movimen-proced.nr-doc-sistema        = histor-docto-revis-ctas.nr-doc-sistema       
               no-lock:
    
                output to c:\temp\histor-movimen-proced.d append.
                export histor-movimen-proced.
                output close.
    
         end.
    
    
         for each histor-movimen-insumo
             where histor-movimen-insumo.cd-unidade            = histor-docto-revis-ctas.cd-unidade           
               and histor-movimen-insumo.cd-unidade-prestadora = histor-docto-revis-ctas.cd-unidade-prestadora
               and histor-movimen-insumo.cd-transacao          = histor-docto-revis-ctas.cd-transacao         
               and histor-movimen-insumo.nr-serie-doc-original = histor-docto-revis-ctas.nr-serie-doc-original
               and histor-movimen-insumo.nr-doc-original       = histor-docto-revis-ctas.nr-doc-original      
               and histor-movimen-insumo.nr-doc-sistema        = histor-docto-revis-ctas.nr-doc-sistema       
               no-lock:
    
                output to c:\temp\histor-movimen-insumo.d append.
                export histor-movimen-insumo.
                output close.
    
         end.
    end.
end.