;** RM_0260A *******************************************************************
;*  Emissao dos Titulos Emitidos por Representante                             *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 05/12/1995 por Anivel Augusto Rodrigues
;Ultima Alteracao: 25/05/2006 por Karen Lauar Nery
;Motivo Alteracao: Inclusao TG_NCARREG
;Ultima Alteracao: 06/09/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog                   
;Ultima Alteracao: 14/12/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog                   
;Ultima Alteracao: 26/12/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog                   
;Ultima Alteracao: 05/02/2020 por Bruno Carvalho                                     
;Motivo Alteracao: Adicionado scripts "RM_0270" (17), "RM_0271" (73), "RM_0275" (18) neste script "RM_0260" (16)
;Ultima Alteracao: 12/01/2021 por Bruno Carvalho                        
;Motivo Alteracao: Ajustes p/ chamar filtro padrao *RM_0260*  

;*******************************************************************************
;* Rotina p/ Selecionar e Ordernar Registros                                   *
;*******************************************************************************
Proc RM_0260A_Seleciona()
ClearAll

If IsTable("\\Sistemas\\CtaRec\\"+Dir_Trab+"Duplic") And
   IsTable("\\Sistemas\\CtaRec\\"+Dir_Trab+"DupBaixa")
   Then {Ask} TypeIn "\\Sistemas\\CtaRec\\"+Dir_Trab+"Duplic" Enter Check
        Moveto [Codigo da Empresa      ] TypeIn "~VSDGEMPRESA.."
        Moveto [Codigo do Representante] TypeIn "~VSDGREPRESEN.."
        Moveto [Tipo do Documento      ] TypeIn "~VSDGTPDOCTO.."
        If Not IsBlank(VSDGNCARREG)
           Then Moveto [Numero_Carregamento_Orig] TypeIn "~VSDGNCARREG.."
           Else If VSDGOPDTEMISVENC="2"
                   Then Moveto [Data de Emissao    ] TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM"
                   Else Moveto [Data de Vencimento ] TypeIn ">=~VSDGDTINI,<=~VSDGDTFIM"
                EndIf
        EndIf
        Moveto [Codigo do Destinatario ] TypeIn "~VSDGDESTINAT.."
        Switch
          Case ListaRegra_VSDGTPPAGTO_Ativo  : Moveto [Tipo do Pagamento] TypeIn ListaRegra_VSDGTPPAGTO
          Otherwise                          : Moveto [Tipo do Pagamento] TypeIn "~VSDGTPPAGTO.."
        EndSwitch                         
        Do_It!
        ClearAll    
EndIf   
                      
EndProc ;RM_0260A_Seleciona()

;*******************************************************************************
;* Rotina p/ processar Db temporaria                                           *
;*******************************************************************************
Proc RM_0260A_Processa()

Coedit Tabela
Scan
  If IsBlank([Valor da Comissao]) Then [Valor da Comissao]=0 EndIf
  If IsBlank([Saldo da Comissao]) Then [Saldo da Comissao]=0 EndIf
EndScan
Do_It!
ClearAll

EndProc   ; (RM_0260A_Processa)

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Proc RM_0260A_Principal()

AGUARDE("Aguarde, Selecionando registros")
Tabela=Cria_Temp(PrivDir())

Monta_Dir_Trab(VSDGDTINI,VSDGDTFIM)
While Novo_Dir_Trab()
  If IsTable("Answer")     Then Delete "Answer" EndIf
  RM_0260A_Seleciona()
  If Not IsTable("Answer") Then Loop EndIf
  If IsTable(Tabela)
     Then Add "Answer" Tabela
     Else Rename "Answer" Tabela
  EndIf
EndWhile

If IsEmpty(Tabela)
   Then MENSAGEM("N„o existem registros a processar")
        Return
EndIf
RM_0260A_Processa()
  
Switch
  Case VSDGCODMODELO="16A" Or VSDGCODMODELO="16B" : 
       If  VSDGCODMODELO="16A"
          Then CopyReport "\\Base\\Sistemas\\CtaRec\\RM_0200" "5" Tabela "R"
          Else CopyReport "\\Base\\Sistemas\\CtaRec\\RM_0200" "6" Tabela "R"
       EndIf
  Case VSDGCODMODELO="17A" Or VSDGCODMODELO="17B" : 
       If VSDGCODMODELO="17A"
          Then CopyReport "\\Base\\Sistemas\\CtaRec\\RM_0200" "9" Tabela "R"
          Else CopyReport "\\Base\\Sistemas\\CtaRec\\RM_0200" "10" Tabela "R"
       EndIf
  Case VSDGCODMODELO="73"  : 
       CopyReport "\\Base\\Sistemas\\CtaRec\\RM_0200" "2" Tabela "R"
  Case VSDGCODMODELO="18A" Or  VSDGCODMODELO="18B" :
       If VSDGCODMODELO="18A"
           Then CopyReport "\\Base\\Sistemas\\CtaRec\\RM_0200" "R" Tabela "R"
           Else CopyReport "\\Base\\Sistemas\\CtaRec\\RM_0200" "1" Tabela "R"
        EndIf
EndSwitch
IMPRIREL(Tabela,"R") 
  
Delete Tabela

EndProc

;-- Chamada principal ----------------------------------------------------------
RM_0260A_Principal()

Release Vars Tabela
Release Procs RM_0260A_Principal, RM_0260A_Seleciona,RM_0260A_Processa