{include/i-prgvrs.i spMarcaDoctoPendente 2.00.00.001 } /*** 010021 ***/
{hdp/hdvarrel.i}
{hdp/hdlog.i}


def buffer b-docto-monit-ans           for docto-monit-ans .
def buffer c-docto-monit-ans           for docto-monit-ans .
def var CONTADOR                       as int              .

for each docto-monit-ans
   where docto-monit-ans.cod-mes-comptcia-reg = "12"   /* <-- INFORMAR A COMPETENCIA */
     and docto-monit-ans.cod-ano-comptcia-reg = "2017" /* <-- INFORMAR A COMPETENCIA */
     and docto-monit-ans.cod-lote-export      = ""
         no-lock:

    if docto-monit-ans.ind-tip-reg = "3" 
    then do:

        /* LOCALIXA MOVIMENTO DE INCLUSAO DA GUIA */
        for first c-docto-monit-ans                       
            where c-docto-monit-ans.cdn-unid               = docto-monit-ans.cdn-unid
              and c-docto-monit-ans.cdn-unid-prestdra      = docto-monit-ans.cdn-unid-prestdra
              and c-docto-monit-ans.cdn-trans              = docto-monit-ans.cdn-trans
              and c-docto-monit-ans.cod-ser-docto-origin   = docto-monit-ans.cod-ser-docto-origin
              and c-docto-monit-ans.num-docto-origin       = docto-monit-ans.num-docto-origin
              and c-docto-monit-ans.num-docto-sist         = docto-monit-ans.num-docto-sist
              and c-docto-monit-ans.cod-mes-comptcia-reg   = docto-monit-ans.cod-mes-comptcia-reg-refer  /* BUSCA PELA COMPETENCIA DE ORIGEM DA EXCLUSAO */
              and c-docto-monit-ans.cod-ano-comptcia-reg   = docto-monit-ans.cod-ano-comptcia-reg-refer  /* BUSCA PELA COMPETENCIA DE ORIGEM DA EXCLUSAO */
              and c-docto-monit-ans.ind-tip-reg            = docto-monit-ans.ind-tip-reg-refer /* BUSCA PELO TIPO DE REGISTRO DE ORIGEM DA EXCLUSAO */
              and c-docto-monit-ans.cdn-unid-prestdor-exec = docto-monit-ans.cdn-unid-prestdor-exec
              and c-docto-monit-ans.cdn-prestdor-exec      = docto-monit-ans.cdn-prestdor-exec
              and c-docto-monit-ans.cdn-ind-tip-reg-seq    = docto-monit-ans.cdn-ind-tip-reg-seq-refer /* BUSCA PLA SEQUENCIA DO REGISTRO DE ORIGEM DA EXCLUSAO */
              and c-docto-monit-ans.cod-lote-export       <> "" /* MOVIMENTO EXPORTADO */
              and c-docto-monit-ans.log-livre-1            = no /* MOVIMENTO SEM ERROS / ACEITO */
                  no-lock: end.

         /* DESCONSIDERA CASO TENHA INCLUSAO ACEITA / DEVERA ENVIAR A EXCLUSAO */
         if avail c-docto-monit-ans then next. 
    end.
    
    find b-docto-monit-ans
         where recid(b-docto-monit-ans) = recid(docto-monit-ans)
               exclusive-lock no-error.
    
    if available b-docto-monit-ans
    then do:

        /* MARCA REGISTRO PENDENTE PARA NAO ENVIAR NOVAMENTE */
        assign b-docto-monit-ans.cod-lote-export       = "spMarcaDoctoPendente"
               b-docto-monit-ans.cod-usuar-ult-atualiz = v_cod_usuar_corren
               b-docto-monit-ans.dat-ult-atualiz       = today
               CONTADOR = CONTADOR + 1 .
        release b-docto-monit-ans.
    end.
end.

MESSAGE "Processo finalizado!"    skip
        CONTADOR " registros marcado!"
    VIEW-AS ALERT-BOX INFO BUTTONS OK.