;** xacref  ********************************************************************
;*  Rotina para ajustar refo‡o de caixa acerto com a pessoa                    *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 17/09/2019 por Anivel Augusto Rodrigues
;Ultima Alteracao: 19/09/2019 por Anivel Augusto Rodrigues             
;Motivo Alteracao: Ajustes numero do lote/acerto refor‡o de caixa


;*******************************************************************************
;* Rotina Principal Emissao Nota Fiscal ou Romaneio                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bibliot,"+
        "\\Sistemas\\Cadastro\\Bib_Show"

sys_valor()

if ConfGeral("Corre‡Æo refor‡o de caixa de//"+
             "acerto financeiro com a pessoa.//"+
             "Deseja Continuar?")
   then
   
        View "Bxautc"
        View "movcont"  
        CoEditkey
        
        NR = NRecords("movcont")

        scan
        
          Barra(NR, RecNo())
          Aguarde("Aguarde, processando "+BARRA_STRING)

          if ( [Sistema Gerador       ]="AF" and [Tipo de Operacao      ]="08" and [Tipo do Lancamento    ]="M" ) or
             ( [Sistema Gerador       ]="AF" and [Tipo de Operacao      ]="09" and [Tipo do Lancamento    ]="M" ) 
             then           
                  moveto "Bxautc"
                  moveto [Numero do Lote      ]
                  locate [movcont->Lancamento Gerador    ]
                  if retval
                     then
                          moveto "movcont"
                          while islockrecord() endwhile
                          copytoarray regmovcont
                          
                          [Codigo do Documento   ]="AFIN"
                          [Numero do Documento   ]=[Bxautc->Numero do Lote]
                          [Codigo do EmitDest    ]=[Bxautc->Codigo       ]
                          [Codigo Plano_Conta    ]=""
                          [Descricao Plano_Conta ]=""
                          [Codigo CCusto         ]=""
                          [Descricao CCusto      ]=""
                          [Tipo do Lancamento    ]=regmovcont["Tipo do Lancamento"]
                          unlockrecord
                  endif
                  moveto "movcont"
          endif

        endscan
        do_it!
        clearall

        Mensagem("Fim do processo !") 
endif

release vars all
release procs all
