;** RM_0095A *******************************************************************
;*  Rela‡„o de Cheques Liquidados com destino                                  *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 20/05/2020 por Anivel Augustro Rodrigues
;Ultima Alteracao: 20/05/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao novo processo concetrador RM_0100, RM_0012, RM_0110, RM_0130

;*******************************************************************************
;* Rotina p/ Adcionar campos tabela                                            *
;*******************************************************************************
Proc RM_0095A_AdcionaCampos(Destino,TipoCH)
Private Destino,TipoCH,QuemDestino

If IsEmpty("Answer")
   Then Return
EndIf   

CoEdit Tabela, "Answer"
Scan

  Moveto Tabela
  End
  Down
  
  [Codigo da Empresa     ]=[Answer->Codigo da Empresa     ] 
  [Nome Fantasia Empresa ]=[Answer->Nome Fantasia Empresa ] 
  [Nome_Banco            ]=[Answer->Nome_Banco            ] 
  [Numero_Cheque         ]=[Answer->Numero_Cheque         ] 
  [Tipo_Emitente         ]=[Answer->Tipo_Emitente         ] 
  [Titular_Cheque        ]=[Answer->Titular_Cheque        ] 
  [CPF                   ]=[Answer->CPF                   ] 
  [Data Vencimento       ]=[Answer->Data Vencimento       ] 
  [Valor_Cheque          ]=[Answer->Valor Cheque          ] 
  [Data da Operacao      ]=[Answer->Data da Operacao      ] 
  [Sistema Destino       ]=DESTINO

  If Destino="BO"
     Then
          [Tipo de Destino       ]=[Answer->Tipo de Destino       ]
          QuemDestino=""
          Switch
            Case [Answer->Tipo de Destino]="DEPOSITADO"           : QuemDestino="CtaTrf" 
            Case [Answer->Tipo de Destino]="DESCONTADO_BANCO"     : QuemDestino="CtaTrf"
            Case [Answer->Tipo de Destino]="TRANSFERIDO"          : QuemDestino="CtaTrf"
            Case [Answer->Tipo de Destino]="DESCONTADO_OUTROS"    : QuemDestino="Dest"
            Case [Answer->Tipo de Destino]="PAGAMENTO"            : QuemDestino="Dest"
            Case [Answer->Tipo de Destino]="TROCADO"              : 
            Case [Answer->Tipo de Destino]="DEVOLVIDO_BCO_ABERTO" : QuemDestino="Cta"
            Case [Answer->Tipo de Destino]="DEVOLVIDO_BCO_SFUNDO" : QuemDestino="Cta"
            Case [Answer->Tipo de Destino]="DEVOLVIDO_BCO_TRANSF" : QuemDestino="Cta"
            Case [Answer->Tipo de Destino]="DEVOLVIDO_OUT_SFUNDO" : QuemDestino="Dest"
            Case [Answer->Tipo de Destino]="DEVOLVIDO_OUT_TRANSF" : QuemDestino="Dest"
            Case [Answer->Tipo de Destino]="PRORROGADO"           : 
            Case [Answer->Tipo de Destino]="SEM FUNDO"            : 
            Case [Answer->Tipo de Destino]="RETORNO"              : 
          EndSwitch

          Switch
            Case QuemDestino="Cta":
              [Codigo Destinatario   ]=[Answer->Codigo da Conta       ]
              [Nome Destinatario     ]=[Answer->Descricao da Conta    ]
            Case QuemDestino="CtaTrf":
              [Codigo Destinatario   ]=[Answer->Codigo da Conta Trf   ]
              [Nome Destinatario     ]=[Answer->Descricao da Conta Trf]
            Case QuemDestino="Dest":
              [Codigo Destinatario   ]=[Answer->Codigo Destinatario   ]
              [Nome Destinatario     ]=[Answer->Nome Destinatario     ]
            OtherWise:
              [Codigo Destinatario   ]=""
              [Nome Destinatario     ]=""
          EndSwitch

          [Numero do Lote Bordero]=[Answer->Numero do Lote Bordero] 

     Else 
          [Tipo de Destino       ]="PAGAMENTO"
          [Codigo Destinatario   ]=[Answer->Codigo Destinatario   ]
          [Nome Destinatario     ]=[Answer->Nome Destinatario     ]
          [Numero do Lote Bordero]=NumVal([Answer->Numero do Lote Bordero])
          [Numero do Documento   ]=[Answer->Numero do Documento   ]
          [Tipo do Documento     ]=[Answer->Tipo do Documento     ] 
  EndIf   

  If TipoCH="CHNC"
     Then [Nome_Cliente          ]="CH NAO CADASTRADO"
     Else [Codigo do Cliente     ]=[Answer->Codigo Cliente        ]
          [Nome_Cliente          ]=[Answer->Nome Cliente          ]
  EndIf
  UnLockRecord
  
  Moveto "Answer"
EndScan
Do_It!
ClearAll
EndProc


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

ClearAll
If IsTable("\\Sistemas\\CheqRec\\"+Dir_Trab+"BordChc") And
   IsTable("\\Sistemas\\Cheqrec\\"+Dir_Trab+"ChequeC") And
   IsTable("\\Sistemas\\Cheqrec\\"+Dir_Trab+"ChequeI")
   Then
        ; ** Cheques Cadastrados **
        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"BordChc" Enter
        Moveto [Numero do Lote        ] Example "b"
        Moveto [Codigo da Empresa     ] CheckPlus TypeIn "~VSDGEMPRESA2.."
        Moveto [Nome Fantasia Empresa ] CheckPlus
        Moveto [Codigo                ] CheckPlus
        Moveto [Razao Social          ] CheckPlus TypeIn "as Nome Destinatario"
        Moveto [Data do Lote          ] CheckPlus 
        Moveto [Codigo da Conta       ] CheckPlus
        Moveto [Descricao da Conta    ] CheckPlus
        Moveto [Codigo da Conta Trf   ] CheckPlus
        Moveto [Descricao da Conta Trf] CheckPlus
        Moveto [Tipo de Destino       ] CheckPlus

        Moveto [Codigo                ]           TypeIn "~VSDGDESTINAT.., as Codigo Destinatario"
        Moveto [Observacao do Lote    ]           TypeIn VSDGOBS
        switch
          case VSDGOPDTCHVL="2" : 
            Moveto [Data do Lote      ]           TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM, as Data da Operacao" 
          otherwise             : 
            Moveto [Data do Lote      ]           TypeIn                              "as Data da Operacao" 
        endswitch

        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"ChequeC" Enter
        Moveto [Numero do Lancamento  ] Example "a"
        Moveto [Codigo                ] CheckPlus 
        Moveto [Razao Social          ] CheckPlus TypeIn "as Nome Cliente"

        Moveto [Codigo                ]           TypeIn "~VSDGCLIENTE.., as Codigo Cliente"

        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"ChequeI" Enter
        Moveto [Numero do Lancamento  ] Example "a"
        Moveto [Nome_Banco            ] CheckPlus
        Moveto [Numero_Cheque         ] CheckPlus
        Moveto [Tipo_Emitente         ] CheckPlus
        Moveto [Titular_Cheque        ] CheckPlus
        Moveto [CPF                   ] CheckPlus
        Moveto [Data Vencimento       ] CheckPlus 
        Moveto [Valor                 ] CheckPlus TypeIn "as Valor Cheque"
        Moveto [Situacao              ] TypeIn "Not EM ABERTO, Not PRORROGADO"
        Moveto [Sistema Destino       ] TypeIn "BO"
        Moveto [Numero do Lote Bordero] CheckPlus Example "b"

        switch
          case VSDGOPDTCHVL="1" : Moveto [Data Vencimento     ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
        endswitch
        if not isblank(VSDGCPFCGCTIT)  then  Moveto [CPF           ] TypeIn VSDGCPFCGCTIT    endif
        if not isblank(VSDGNOMETIT)    then  Moveto [Titular_Cheque] TypeIn VSDGNOMETIT      endif
        if not isblank(VSDGNUMCHEQ)    then  Moveto [Numero_Cheque ] TypeIn VSDGNUMCHEQ      endif
        if VSDGVALOR>0                 then  Moveto [Valor         ] TypeIn VSDGVALOR        endif
        
        Do_It!
        ClearAll
        RM_0095A_AdcionaCampos("BO","")


        if isblank(VSDGCLIENTE)
           then
                ; ** Cheques Nao Cadastrados **
                {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"BordChc" Enter
                Moveto [Numero do Lote        ] Example "b"
                Moveto [Codigo da Empresa     ] CheckPlus TypeIn "~VSDGEMPRESA2.."
                Moveto [Nome Fantasia Empresa ] CheckPlus
                Moveto [Codigo                ] CheckPlus 
                Moveto [Razao Social          ] CheckPlus TypeIn "as Nome Destinatario"
                Moveto [Data do Lote          ] CheckPlus 
                Moveto [Codigo da Conta       ] CheckPlus
                Moveto [Descricao da Conta    ] CheckPlus
                Moveto [Codigo da Conta Trf   ] CheckPlus
                Moveto [Descricao da Conta Trf] CheckPlus
                Moveto [Tipo de Destino       ] CheckPlus
        
                Moveto [Codigo                ]           TypeIn "~VSDGDESTINAT.., as Codigo Destinatario"
                Moveto [Observacao do Lote    ]           TypeIn VSDGOBS
                switch
                  case VSDGOPDTCHVL="2" : 
                    Moveto [Data do Lote      ]           TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM, as Data da Operacao" 
                  otherwise             : 
                    Moveto [Data do Lote      ]           TypeIn                              "as Data da Operacao" 
                endswitch
        
                {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"BordChI" Enter
                Moveto [Numero do Lote        ] CheckPlus Example "b" TypeIn ",as Numero do Lote Bordero"
                Moveto [Numero do Lancamento  ] TypeIn "Blank"
                Moveto [Nome_Banco            ] CheckPlus
                Moveto [Numero_Cheque         ] CheckPlus
                Moveto [Tipo_Emitente         ] CheckPlus
                Moveto [Titular_Cheque        ] CheckPlus
                Moveto [CPF                   ] CheckPlus
                Moveto [Data Vencimento       ] CheckPlus 
                Moveto [Valor                 ] CheckPlus TypeIn "as Valor Cheque"
        
                switch
                  case VSDGOPDTCHVL="1" : Moveto [Data Vencimento     ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
                endswitch
                if not isblank(VSDGCPFCGCTIT)  then  Moveto [CPF           ] TypeIn VSDGCPFCGCTIT    endif
                if not isblank(VSDGNOMETIT)    then  Moveto [Titular_Cheque] TypeIn VSDGNOMETIT      endif
                if not isblank(VSDGNUMCHEQ)    then  Moveto [Numero_Cheque ] TypeIn VSDGNUMCHEQ      endif
                if VSDGVALOR>0                 then  Moveto [Valor         ] TypeIn VSDGVALOR        endif
                Do_It!
                ClearAll
                RM_0095A_AdcionaCampos("BO","CHNC")
        endif
EndIf



If Not IsBlank(Dir_Trab) And
   IsTable("\\Sistemas\\CheqRec\\"+Dir_Trab+"BordChc") And
   IsTable("\\Sistemas\\Cheqrec\\ChequeC") And
   IsTable("\\Sistemas\\Cheqrec\\ChequeI")
   Then
        ; ** Cheques Cadastrados **
        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"BordChc" Enter
        Moveto [Numero do Lote        ] Example "b"
        Moveto [Codigo da Empresa     ] CheckPlus TypeIn "~VSDGEMPRESA2.."
        Moveto [Nome Fantasia Empresa ] CheckPlus
        Moveto [Codigo                ] CheckPlus 
        Moveto [Razao Social          ] CheckPlus TypeIn "as Nome Destinatario"
        Moveto [Data do Lote          ] CheckPlus TypeIn "as Data da Operacao"
        Moveto [Codigo da Conta       ] CheckPlus
        Moveto [Descricao da Conta    ] CheckPlus
        Moveto [Codigo da Conta Trf   ] CheckPlus
        Moveto [Descricao da Conta Trf] CheckPlus
        Moveto [Tipo de Destino       ] CheckPlus

        Moveto [Codigo                ]           TypeIn "~VSDGDESTINAT.., as Codigo Destinatario"
        Moveto [Observacao do Lote    ]           TypeIn VSDGOBS
        switch
          case VSDGOPDTCHVL="2" : 
            Moveto [Data do Lote      ]           TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM, as Data da Operacao" 
          otherwise             : 
            Moveto [Data do Lote      ]           TypeIn                              "as Data da Operacao" 
        endswitch

        {Ask} TypeIn "\\Sistemas\\CheqRec\\ChequeC" Enter
        Moveto [Numero do Lancamento  ] Example "a"
        Moveto [Codigo                ] CheckPlus 
        Moveto [Razao Social          ] CheckPlus TypeIn "as Nome Cliente"

        Moveto [Codigo                ]           TypeIn "~VSDGCLIENTE.., as Codigo Cliente"

        {Ask} TypeIn "\\Sistemas\\CheqRec\\ChequeI" Enter
        Moveto [Numero do Lancamento  ] Example "a"
        Moveto [Nome_Banco            ] CheckPlus
        Moveto [Numero_Cheque         ] CheckPlus
        Moveto [Tipo_Emitente         ] CheckPlus
        Moveto [Titular_Cheque        ] CheckPlus
        Moveto [CPF                   ] CheckPlus
        Moveto [Data Vencimento       ] CheckPlus 
        Moveto [Valor                 ] CheckPlus TypeIn "as Valor Cheque"
        Moveto [Situacao              ] TypeIn "Not EM ABERTO, Not PRORROGADO"
        Moveto [Sistema Destino       ] TypeIn "BO"
        Moveto [Numero do Lote Bordero] CheckPlus Example "b" 

        switch
          case VSDGOPDTCHVL="1" : Moveto [Data Vencimento     ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
        endswitch
        if not isblank(VSDGCPFCGCTIT)  then  Moveto [CPF           ] TypeIn VSDGCPFCGCTIT    endif
        if not isblank(VSDGNOMETIT)    then  Moveto [Titular_Cheque] TypeIn VSDGNOMETIT      endif
        if not isblank(VSDGNUMCHEQ)    then  Moveto [Numero_Cheque ] TypeIn VSDGNUMCHEQ      endif
        if VSDGVALOR>0                 then  Moveto [Valor         ] TypeIn VSDGVALOR        endif

        Do_It!
        ClearAll
        RM_0095A_AdcionaCampos("BO","")
EndIf




;--- Contas a Pagar ------------------------------------------------------------

If IsTable("\\Sistemas\\CtaPag\\"+Dir_Trab+"Titulos")  And
   IsTable("\\Sistemas\\CtaPag\\"+Dir_Trab+"TitBaixa") And
   IsTable("\\Sistemas\\CtaPag\\"+Dir_Trab+"TitCheq")  And
   IsTable("\\Sistemas\\Cheqrec\\"+Dir_Trab+"ChequeC") And
   IsTable("\\Sistemas\\Cheqrec\\"+Dir_Trab+"ChequeI")
   Then
        ; ** Cheques Cadastrados **
        {Ask} TypeIn "\\Sistemas\\CtaPag\\"+Dir_Trab+"Titulos" Enter
        Moveto [Numero do Lancamento    ] Example "NL"
        Moveto [Codigo da Empresa       ] CheckPlus TypeIn "~VSDGEMPRESA2.."
        Moveto [Nome Fantasia Empresa   ] CheckPlus
        Moveto [Codigo do Emitente      ] CheckPlus 
        Moveto [Razao Social            ] CheckPlus TypeIn "as Nome Destinatario"
        Moveto [Numero do Documento     ] CheckPlus
        Moveto [Tipo do Documento       ] CheckPlus

        Moveto [Codigo do Emitente      ]           TypeIn "~VSDGDESTINAT.., as Codigo Destinatario"
 
        {Ask} TypeIn "\\Sistemas\\CtaPag\\"+Dir_Trab+"TitCheq" Enter
        Moveto [Numero do Lancamento    ] CheckPlus Example "NL" TypeIn ",as Numero do Lote Bordero"
        Moveto [Numero Lancamento Cheque] CheckPlus TypeIn "Not Blank"
        Moveto [Sequencia do Cheque     ] CheckPlus
        Moveto [Data_Liquidado          ] CheckPlus 

        switch
          case VSDGOPDTCHVL="2" : 
            Moveto [Data_Liquidado    ]           TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM, as Data da Operacao" 
          case VSDGOPDTCHVL="1" : 
            Moveto [Data_Liquidado    ]           TypeIn                              "as Data da Operacao" 
        endswitch

        Do_It!
        ClearAll

        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"ChequeC" Enter
        Moveto [Numero do Lancamento    ] Example "a"
        Moveto [Codigo                  ] CheckPlus 
        Moveto [Razao Social            ] CheckPlus TypeIn "as Nome Cliente"

        Moveto [Codigo                  ]           TypeIn "~VSDGCLIENTE.., as Codigo Cliente"

        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"ChequeI" Enter
        Moveto [Numero do Lancamento    ] Example "a"
        Moveto [Sequencia do Cheque     ] Example "sq"
        Moveto [Nome_Banco              ] CheckPlus
        Moveto [Numero_Cheque           ] CheckPlus
        Moveto [Tipo_Emitente           ] CheckPlus
        Moveto [Data Vencimento         ] CheckPlus
        Moveto [Valor                   ] CheckPlus TypeIn "as Valor Cheque"
        Moveto [Situacao                ] TypeIn "Not EM ABERTO, Not PRORROGADO"
        Moveto [Sistema Destino         ] TypeIn "CP"
        Moveto [Titular_Cheque          ] CheckPlus
        Moveto [CPF                     ] CheckPlus

        switch
          case VSDGOPDTCHVL="1" : Moveto [Data Vencimento     ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
        endswitch
        if not isblank(VSDGCPFCGCTIT)  then  Moveto [CPF           ] TypeIn VSDGCPFCGCTIT    endif
        if not isblank(VSDGNOMETIT)    then  Moveto [Titular_Cheque] TypeIn VSDGNOMETIT      endif
        if not isblank(VSDGNUMCHEQ)    then  Moveto [Numero_Cheque ] TypeIn VSDGNUMCHEQ      endif
        if VSDGVALOR>0                 then  Moveto [Valor         ] TypeIn VSDGVALOR        endif

        {Ask} {Answer} CheckPlus
        Moveto [Numero Lancamento Cheque] Example "a"
        Moveto [Sequencia do Cheque     ] Example "sq"
        Do_It!
        ClearAll
        RM_0095A_AdcionaCampos("CP","")
EndIf

If Not IsBlank(Dir_Trab) And
   IsTable("\\Sistemas\\CtaPag\\"+Dir_Trab+"Titulos")  And
   IsTable("\\Sistemas\\CtaPag\\"+Dir_Trab+"TitBaixa") And
   IsTable("\\Sistemas\\CtaPag\\"+Dir_Trab+"TitCheq")  And
   IsTable("\\Sistemas\\Cheqrec\\ChequeC")             And
   IsTable("\\Sistemas\\Cheqrec\\ChequeI")             And
   Search("PAGAMENT",VSDGTIPODESTINO)>0
   Then
        ; ** Cheques Cadastrados **
        {Ask} TypeIn "\\Sistemas\\CtaPag\\"+Dir_Trab+"Titulos" Enter
        Moveto [Numero do Lancamento    ] Example "NL"
        Moveto [Codigo da Empresa       ] CheckPlus TypeIn "~VSDGEMPRESA2.."
        Moveto [Nome Fantasia Empresa   ] CheckPlus
        Moveto [Codigo do Emitente      ] CheckPlus 
        Moveto [Razao Social            ] CheckPlus TypeIn "as Nome Destinatario"
        Moveto [Numero do Documento     ] CheckPlus
        Moveto [Tipo do Documento       ] CheckPlus

        Moveto [Codigo do Emitente      ]           TypeIn "~VSDGDESTINAT.., as Codigo Destinatario"

        {Ask} TypeIn "\\Sistemas\\CtaPag\\"+Dir_Trab+"TitCheq" Enter
        Moveto [Numero do Lancamento    ] CheckPlus Example "NL" TypeIn ",as Numero do Lote Bordero"
        Moveto [Numero Lancamento Cheque] CheckPlus TypeIn "Not Blank"
        Moveto [Sequencia do Cheque     ] CheckPlus
        Moveto [Data_Liquidado          ] CheckPlus 

        switch
          case VSDGOPDTCHVL="2" : 
            Moveto [Data_Liquidado    ]           TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM, as Data da Operacao" 
          case VSDGOPDTCHVL="1" : 
            Moveto [Data_Liquidado    ]           TypeIn                              "as Data da Operacao" 
        endswitch

        Do_It!
        ClearAll

        {Ask} TypeIn "\\Sistemas\\CheqRec\\ChequeC" Enter
        Moveto [Numero do Lancamento    ] Example "a"
        Moveto [Codigo                  ] CheckPlus 
        Moveto [Razao Social            ] CheckPlus TypeIn "as Nome Cliente"

        Moveto [Codigo                  ]           TypeIn "~VSDGCLIENTE.., as Codigo Cliente"

        {Ask} TypeIn "\\Sistemas\\CheqRec\\ChequeI" Enter
        Moveto [Numero do Lancamento    ] Example "a"
        Moveto [Sequencia do Cheque     ] Example "sq"
        Moveto [Nome_Banco              ] CheckPlus
        Moveto [Numero_Cheque           ] CheckPlus
        Moveto [Tipo_Emitente           ] CheckPlus
        Moveto [Titular_Cheque          ] CheckPlus
        Moveto [CPF                     ] CheckPlus
        Moveto [Data Vencimento         ] CheckPlus
        Moveto [Valor                   ] CheckPlus TypeIn "as Valor Cheque"
        Moveto [Situacao                ] TypeIn "Not EM ABERTO, Not PRORROGADO"
        Moveto [Sistema Destino         ] TypeIn "CP"

        switch
          case VSDGOPDTCHVL="1" : Moveto [Data Vencimento     ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
        endswitch
        if not isblank(VSDGCPFCGCTIT)  then  Moveto [CPF           ] TypeIn VSDGCPFCGCTIT    endif
        if not isblank(VSDGNOMETIT)    then  Moveto [Titular_Cheque] TypeIn VSDGNOMETIT      endif
        if not isblank(VSDGNUMCHEQ)    then  Moveto [Numero_Cheque ] TypeIn VSDGNUMCHEQ      endif
        if VSDGVALOR>0                 then  Moveto [Valor         ] TypeIn VSDGVALOR        endif

        {Ask} {Answer} CheckPLus
        Moveto [Numero Lancamento Cheque] Example "a"
        Moveto [Sequencia do Cheque     ] Example "sq"
        Do_It!
        ClearAll

        RM_0095A_AdcionaCampos("CP","")
EndIf
EndProc        ;(Seleciona)

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

;***** Ajusta Dados ************************************
If VSDGEMPRESA="0000"
   Then {Ask} TypeIn Tabela Enter TypeIn "Fast"
        Moveto [Codigo da Empresa      ] TypeIn "changeto 0000"
        Moveto [Nome Fantasia Empresa  ] TypeIn "changeto TOTALIZA EMPRESAS"
        Do_It!
        ClearAll
EndIf
EndProc

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
Proc RM_0095A_Principal()

AGUARDE("Aguarde, Gerando o Relat¢rio")
Tabela=Cria_Temp(PrivDir())
Copy "\\Base\\Sistemas\\CheqRec\\Rm_0100" Tabela
Empty Tabela

Monta_Dir_Trab(VSDGDTINI,VSDGDTFIM)
While Novo_Dir_Trab()
  RM_0095A_Seleciona()
EndWhile

If not IsEmpty(Tabela)
   then
        RM_0095A_Processa()
        
         switch
           case VSDGCODMODELO="11"  : CopyReport "\\Base\\Sistemas\\CheqRec\\Rm_0100" "R" Tabela "R"  
           case VSDGCODMODELO="19"  : CopyReport "\\Base\\Sistemas\\CheqRec\\Rm_0100" "4" Tabela "R"  
           case VSDGCODMODELO="13"  : CopyReport "\\Base\\Sistemas\\CheqRec\\Rm_0100" "1" Tabela "R"  
           case VSDGCODMODELO="17"  : CopyReport "\\Base\\Sistemas\\CheqRec\\Rm_0100" "3" Tabela "R"  
             
         endswitch
        IMPRIREL(Tabela,"R")
   else 
        MENSAGEM("N„o existem registros a processar")
EndIf

Delete Tabela

EndProc

;-- Chamada principal ----------------------------------------------------------
RM_0095A_Principal()

Release Vars Tabela
Release Procs RM_0095A_Principal, RM_0095A_Seleciona, RM_0095A_Processa, RM_0095A_AdcionaCampos
