;** XACFDUP*********************************************************************
;** Corroge Notav/Duplic                                                       *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 12/04/2018 por Anivel Augusto Rodrigues               
;Ultima Alteracao: 20/04/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes corre‡Æo conciliar 2

;*******************************************************************************
;* Rotina Principal Emissao Nota Fiscal ou Romaneio                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bibliot,"+
        "\\Sistemas\\Cadastro\\Bib_Show,"+
        "\\Sistemas\\Cadastro\\Bib_Parm,"+
        "\\Sistemas\\Cadastro\\Bib_Bloq,"+
        "\\Sistemas\\Vendas\\Bib_Fat,"+
        "\\Sistemas\\Vendas\\Bib_Vend"

sys_valor()

if ConfGeral("Corre‡Æo NotaV/Duplic atravez das OFïs//"+
             "Corre‡Æo tabela NotaV/Duplic concilia‡Æo CC//"+
             "Deseja Continuar?")
   then



        View "\\Sistemas\\vendas\\FaturaC"
        View "\\Sistemas\\vendas\\FaturaV"
        View "\\Sistemas\\vendas\\NotaC"
        View "\\Sistemas\\vendas\\NotaV"
        View "Duplic"
        View "Dupbaixa"
        View "Concct"
        CoEditKey

        moveto [Numero do Documento]
        locate "066956"
        
        while true

           EMPRESA          =[Codigo da Empresa  ]
           NOTAFISC         =[Numero do Documento]
           SERIEFISC        =[Serie do Documento ]
           CODFISC          =[Codigo do Documento]

           moveto "\\Sistemas\\vendas\\NotaC"
           moveto [Codigo da Empresa]
           locate EMPRESA,NOTAFISC,SERIEFISC
           if retval
              then NUMOF=[Numero da OF]
              
                   moveto "\\Sistemas\\vendas\\FaturaC"
                   moveto [Numero da OF]
                   locate NUMOF
                   if retval and [Numero Nota Gerada]=NOTAFISC and [Serie Nota Gerada]=SERIEFISC and [Codigo da Empresa]=EMPRESA 
                      then
                      
                           moveto "\\Sistemas\\vendas\\FaturaV"
                           moveto [Numero da OF]
                           locate NUMOF
                           if retval
                              then while [Numero da OF]= NUMOF
                                     seq  =[Sequencia]
                                     data =[Data     ]
                                     valor=[Valor    ]
                              
                              
                                     if [Forma de Pagamento]="CT" Or [Forma de Pagamento]="CD" Or [Forma de Pagamento]="CL"
                                        then
                                             moveto "\\Sistemas\\vendas\\NotaV"
                                             moveto [Codigo da Empresa]
                                             locate EMPRESA,NOTAFISC,SERIEFISC,seq
                                             if retval
                                                then
                                                     [Data ]=data
                                                     [Valor]=valor
                                                     unlockrecord
                                                     
                                                      Moveto "Duplic"
                                                      Moveto [Codigo da Empresa]
                                                      Locate IndexOrder by "Inddup30" EMPRESA,CODFISC,NOTAFISC,seq
                                                      If RetVal
                                                         Then While [Codigo da Empresa   ]=EMPRESA  and
                                                                    [Tipo Docto Gerador  ]=CODFISC  and
                                                                    [Numero Docto Gerador]=NOTAFISC and
                                                                    [Sequencia Gerador   ]=seq                   

                                                                while true                                                    
                                                                  If [Saldo do Documento]>0
                                                                     Then
                                                                          [Data de Vencimento     ]=data
                                                                          [Valor do Documento     ]=valor-Ndecimal(((valor*[Concct->TaxaDeComissao])/100),2)
                                                                          [Saldo do Documento     ]=[Valor do Documento]
                                                                          unlockrecord      
                                                                     else
                                                                          Moveto "Dupbaixa"
                                                                          Moveto [Numero do Lancamento]
                                                                          locate [Duplic->Numero do Lancamento]
                                                                          if retval
                                                                             then if [Tipo da Baixa]="CANCELADO"
                                                                                     then 
                                                                                          del
                                                                                          moveto "Duplic"
                                                                                          [Saldo do Documento]=[Valor do Documento     ]
                                                                                          loop
                                                                                  endif   
                                                                          endif
                                                                  EndIf
                                                                  
                                                                  quitloop
                                                                endwhile

                                                                quitloop
                                                             endwhile
                                                      endif
                                             endif   
                                     endif     
                              
                                     moveto "\\Sistemas\\vendas\\FaturaV"
                                     skip
                                     if eot() then quitloop endif
                                   endwhile
                           endif   
                   endif   
           endif
                     
           Moveto "Concct"
           skip
           if eot() then quitloop endif
        Endwhile
        Do_It!
        ClearAll
        
endif
