;** Rm_0005A *******************************************************************
;*  Relacao de Cheques por Cliente                                             *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 30/06/2008 por Anivel Augusto Rodrigues
;Ultima Alteracao: 15/12/2008 por Anivel Augusto Rodrigues
;Motivo Alteracao: TOTALIZA EMPRESAS
;Ultima Alteracao: 26/09/2012 por Kamila Gomes  
;Motivo Alteracao: Ajustes pesquisa por data de inclusao
;Ultima Alteracao: 09/09/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog                   
;Ultima Alteracao: 05/10/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Opcao de Data, Filtro Titular
;Ultima Alteracao: 07/10/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes nova lĒgica e novo report        
;Ultima Alteracao: 17/12/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes TG_EMPRESATE                 
;Ultima Alteracao: 26/12/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes showdialog                   
;Ultima Alteracao: 28/12/2016 por Rafael Matos
;Motivo Alteracao: Ajustes showdialog TG_DESTINAT
;Ultima Alteracao: 27/01/2020 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao novo processo concetrador RM_0005, substitudo do RM_0320, RM_0321

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

ClearAll

;---- Cheques ------------------------------------------------------------------
If IsTable("\\Sistemas\\Cheqrec\\"+Dir_Trab+"ChequeC") And
   IsTable("\\Sistemas\\Cheqrec\\"+Dir_Trab+"ChequeI")
   Then
        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"ChequeC" Enter
        if VSDGNCHT>0
           then Moveto [Numero do Lancamento] Check Example "NUM" TypeIn ", ~VSDGNCHT"
           else Moveto [Numero do Lancamento] Check Example "NUM" 
        endif
        Moveto [Codigo da Empresa       ] Check TypeIn "~VSDGEMPRESA2.."
        Moveto [Nome Fantasia Empresa   ] Check
        Moveto [Codigo                  ] Check TypeIn "~VSDGDESTINAT.."
        Moveto [Razao Social            ] Check 
        Moveto [Codigo do Representante ] TypeIn "~VSDGREPRESEN.."
        Moveto [Numero_Carregamento_Orig] TypeIn "~VSDGNCARREG.."

        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"ChequeI" Enter Check
        Moveto [Numero do Lancamento    ] Example "NUM"
        Moveto [Codigo da Conta         ] Typein "~VSDGCONTA.."
        switch
          case VSDGOPDTCHVLI="1" : Moveto [Data Vencimento     ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="2" : Moveto [Data_Liquidado      ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="3" : Moveto [Data_Inclusao       ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="4" : Moveto [Data_Entrada        ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
        endswitch
        switch
          case VSDGSITUACAOCHEQUE="EM ABERTO": moveto [Situacao ] TypeIn "\"EM ABERTO\" or \"PRORROGADO\""
          case VSDGSITUACAOCHEQUE<>"TODAS"   : moveto [Situacao ] TypeIn "~VSDGSITUACAOCHEQUE.."
        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
        Moveto [Sistema Destino       ] TypeIn "not BO, not CP"      
        Do_It!
        ClearAll
        
        RM_0005A_AdcionaCampos("","")
EndIf

;---- Cheques com Bordero ------------------------------------------------------
If IsTable("\\Sistemas\\CheqRec\\"+Dir_Trab+"BordChc") And
   IsTable("\\Sistemas\\Cheqrec\\"+Dir_Trab+"ChequeC") And
   IsTable("\\Sistemas\\Cheqrec\\"+Dir_Trab+"ChequeI")
   Then
        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"BordChc" Enter
        Moveto [Numero do Lote        ] Example "b"
        Moveto [Codigo                ] Check TypeIn "as Codigo Destinatario"
        Moveto [Razao Social          ] Check TypeIn "as Nome Destinatario"
        Moveto [Data do Lote          ] Check 
        Moveto [Codigo da Conta       ] Check
        Moveto [Descricao da Conta    ] Check
        Moveto [Codigo da Conta Trf   ] Check
        Moveto [Descricao da Conta Trf] Check
        Moveto [Tipo de Destino       ] Check

        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"ChequeC" Enter
        if VSDGNCHT>0
           then Moveto [Numero do Lancamento] Check Example "NUM" TypeIn ", ~VSDGNCHT"
           else Moveto [Numero do Lancamento] Check Example "NUM" 
        endif
        Moveto [Codigo da Empresa       ] Check TypeIn "~VSDGEMPRESA2.."
        Moveto [Nome Fantasia Empresa   ] Check
        Moveto [Codigo                  ] Check TypeIn "~VSDGDESTINAT.."
        Moveto [Razao Social            ] Check 
        Moveto [Codigo do Representante ] TypeIn "~VSDGREPRESEN.."
        Moveto [Numero_Carregamento_Orig] TypeIn "~VSDGNCARREG.."

        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"ChequeI" Enter Check
        Moveto [Numero do Lancamento    ] Example "NUM"
        Moveto [Codigo da Conta         ] Typein "~VSDGCONTA.."
        switch
          case VSDGOPDTCHVLI="1" : Moveto [Data Vencimento     ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="2" : Moveto [Data_Liquidado      ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="3" : Moveto [Data_Inclusao       ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="4" : Moveto [Data_Entrada        ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
        endswitch
        switch
          case VSDGSITUACAOCHEQUE="EM ABERTO": moveto [Situacao ] TypeIn "\"EM ABERTO\" or \"PRORROGADO\""
          case VSDGSITUACAOCHEQUE<>"TODAS"   : moveto [Situacao ] TypeIn "~VSDGSITUACAOCHEQUE.."
        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
        Moveto [Sistema Destino       ] TypeIn "BO"
        Moveto [Numero do Lote Bordero] Example "b"
        Do_It!
        ClearAll
        
        RM_0005A_AdcionaCampos("BO","")
EndIf

If Not IsBlank(Dir_Trab) And
   IsTable("\\Sistemas\\CheqRec\\"+Dir_Trab+"BordChc") And
   IsTable("\\Sistemas\\Cheqrec\\ChequeC") And
   IsTable("\\Sistemas\\Cheqrec\\ChequeI")
   Then
        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"BordChc" Enter
        Moveto [Numero do Lote        ] Example "b"
        Moveto [Codigo                ] Check TypeIn "as Codigo Destinatario"
        Moveto [Razao Social          ] Check TypeIn "as Nome Destinatario"
        Moveto [Data do Lote          ] Check 
        Moveto [Codigo da Conta       ] Check
        Moveto [Descricao da Conta    ] Check
        Moveto [Codigo da Conta Trf   ] Check
        Moveto [Descricao da Conta Trf] Check
        Moveto [Tipo de Destino       ] Check

        {Ask} TypeIn "\\Sistemas\\CheqRec\\ChequeC" Enter
        if VSDGNCHT>0
           then Moveto [Numero do Lancamento] Check Example "NUM" TypeIn ", ~VSDGNCHT"
           else Moveto [Numero do Lancamento] Check Example "NUM" 
        endif
        Moveto [Codigo da Empresa       ] Check TypeIn "~VSDGEMPRESA2.."
        Moveto [Nome Fantasia Empresa   ] Check
        Moveto [Codigo                  ] Check TypeIn "~VSDGDESTINAT.."
        Moveto [Razao Social            ] Check 
        Moveto [Codigo do Representante ] TypeIn "~VSDGREPRESEN.."
        Moveto [Numero_Carregamento_Orig] TypeIn "~VSDGNCARREG.."

        {Ask} TypeIn "\\Sistemas\\CheqRec\\ChequeI" Enter Check
        Moveto [Numero do Lancamento    ] Example "NUM"
        Moveto [Codigo da Conta         ] Typein "~VSDGCONTA.."
        switch
          case VSDGOPDTCHVLI="1" : Moveto [Data Vencimento     ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="2" : Moveto [Data_Liquidado      ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="3" : Moveto [Data_Inclusao       ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="4" : Moveto [Data_Entrada        ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
        endswitch
        switch
          case VSDGSITUACAOCHEQUE="EM ABERTO": moveto [Situacao ] TypeIn "\"EM ABERTO\" or \"PRORROGADO\""
          case VSDGSITUACAOCHEQUE<>"TODAS"   : moveto [Situacao ] TypeIn "~VSDGSITUACAOCHEQUE.."
        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
        Moveto [Sistema Destino       ] TypeIn "BO"
        Moveto [Numero do Lote Bordero] Example "b"
        Do_It!
        ClearAll

        RM_0005A_AdcionaCampos("BO","")
EndIf


;---- Cheques com Titulos ------------------------------------------------------
If IsTable("\\Sistemas\\CtaPag\\"+Dir_Trab+"Titulos")  And
   IsTable("\\Sistemas\\Cheqrec\\"+Dir_Trab+"ChequeC") And
   IsTable("\\Sistemas\\Cheqrec\\"+Dir_Trab+"ChequeI")
   Then
        {Ask} TypeIn "\\Sistemas\\CtaPag\\"+Dir_Trab+"Titulos" Enter
        Moveto [Numero do Lancamento    ] Example "b"
        Moveto [Codigo do Emitente      ] Check TypeIn "as Codigo Destinatario"
        Moveto [Razao Social            ] Check TypeIn "as Nome Destinatario"
        Moveto [Numero do Documento     ] Check
        Moveto [Tipo do Documento       ] Check

        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"ChequeC" Enter
        if VSDGNCHT>0
           then Moveto [Numero do Lancamento] Check Example "NUM" TypeIn ", ~VSDGNCHT"
           else Moveto [Numero do Lancamento] Check Example "NUM" 
        endif
        Moveto [Codigo da Empresa       ] Check TypeIn "~VSDGEMPRESA2.."
        Moveto [Nome Fantasia Empresa   ] Check
        Moveto [Codigo                  ] Check TypeIn "~VSDGDESTINAT.."
        Moveto [Razao Social            ] Check 
        Moveto [Codigo do Representante ] TypeIn "~VSDGREPRESEN.."
        Moveto [Numero_Carregamento_Orig] TypeIn "~VSDGNCARREG.."

        {Ask} TypeIn "\\Sistemas\\CheqRec\\"+Dir_Trab+"ChequeI" Enter Check
        Moveto [Numero do Lancamento    ] Example "NUM"
        Moveto [Codigo da Conta         ] Typein "~VSDGCONTA.."
        switch
          case VSDGOPDTCHVLI="1" : Moveto [Data Vencimento     ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="2" : Moveto [Data_Liquidado      ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="3" : Moveto [Data_Inclusao       ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="4" : Moveto [Data_Entrada        ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
        endswitch
        switch
          case VSDGSITUACAOCHEQUE="EM ABERTO": moveto [Situacao ] TypeIn "\"EM ABERTO\" or \"PRORROGADO\""
          case VSDGSITUACAOCHEQUE<>"TODAS"   : moveto [Situacao ] TypeIn "~VSDGSITUACAOCHEQUE.."
        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
        Moveto [Sistema Destino       ] TypeIn "CP"
        Moveto [Lancamento Destino    ] Example "b"
        Do_It!
        ClearAll

        RM_0005A_AdcionaCampos("CP","")
EndIf

If Not IsBlank(Dir_Trab) And
   IsTable("\\Sistemas\\CtaPag\\"+Dir_Trab+"Titulos")  And
   IsTable("\\Sistemas\\Cheqrec\\ChequeC") And
   IsTable("\\Sistemas\\Cheqrec\\ChequeI")
   Then
        {Ask} TypeIn "\\Sistemas\\CtaPag\\"+Dir_Trab+"Titulos" Enter
        Moveto [Numero do Lancamento    ] Example "b"
        Moveto [Codigo do Emitente      ] Check TypeIn "as Codigo Destinatario"
        Moveto [Razao Social            ] Check TypeIn "as Nome Destinatario"
        Moveto [Numero do Documento     ] Check
        Moveto [Tipo do Documento       ] Check

        {Ask} TypeIn "\\Sistemas\\CheqRec\\ChequeC" Enter
        if VSDGNCHT>0
           then Moveto [Numero do Lancamento] Check Example "NUM" TypeIn ", ~VSDGNCHT"
           else Moveto [Numero do Lancamento] Check Example "NUM" 
        endif
        Moveto [Codigo da Empresa       ] Check TypeIn "~VSDGEMPRESA2.."
        Moveto [Nome Fantasia Empresa   ] Check
        Moveto [Codigo                  ] Check TypeIn "~VSDGDESTINAT.."
        Moveto [Razao Social            ] Check 
        Moveto [Codigo do Representante ] TypeIn "~VSDGREPRESEN.."
        Moveto [Numero_Carregamento_Orig] TypeIn "~VSDGNCARREG.."

        {Ask} TypeIn "\\Sistemas\\CheqRec\\ChequeI" Enter Check
        Moveto [Numero do Lancamento    ] Example "NUM"
        Moveto [Codigo da Conta         ] Typein "~VSDGCONTA.."
        switch
          case VSDGOPDTCHVLI="1" : Moveto [Data Vencimento     ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="2" : Moveto [Data_Liquidado      ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="3" : Moveto [Data_Inclusao       ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
          case VSDGOPDTCHVLI="4" : Moveto [Data_Entrada        ] TypeIn  ">=~VSDGDTINI ,<=~VSDGDTFIM" 
        endswitch
        switch
          case VSDGSITUACAOCHEQUE="EM ABERTO": moveto [Situacao ] TypeIn "\"EM ABERTO\" or \"PRORROGADO\""
          case VSDGSITUACAOCHEQUE<>"TODAS"   : moveto [Situacao ] TypeIn "~VSDGSITUACAOCHEQUE.."
        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
        Moveto [Sistema Destino       ] TypeIn "CP"
        Moveto [Lancamento Destino    ] Example "b"
        Do_It!
        ClearAll

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

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

If IsEmpty("Answer")
   Then Return
EndIf   

CoEdit Tabela, "Answer"
Scan

  Moveto Tabela
  End
  Down
  
  [Numero do Lancamento  ]=[Answer->Numero do Lancamento  ] 
  [Codigo da Empresa     ]=[Answer->Codigo da Empresa     ] 
  [Nome Fantasia Empresa ]=[Answer->Nome Fantasia Empresa ] 
  [Codigo                ]=[Answer->Codigo                ]
  [Razao Social          ]=[Answer->Razao Social          ]
  [Codigo_Banco          ]=[Answer->Codigo_Banco          ] 
  [Nome_Banco            ]=[Answer->Nome_Banco            ] 
  [Agencia               ]=[Answer->Agencia               ] 
  [Numero_Conta          ]=[Answer->Numero_Conta          ] 
  [Numero_Cheque         ]=[Answer->Numero_Cheque         ] 
  [CPF                   ]=[Answer->CPF                   ] 
  [Tipo_Emitente         ]=[Answer->Tipo_Emitente         ] 
  [Titular_Cheque        ]=[Answer->Titular_Cheque        ] 
  [Cidade                ]=[Answer->Cidade                ] 
  [UF                    ]=[Answer->UF                    ] 
  [Data Vencimento       ]=[Answer->Data Vencimento       ] 
  [Valor                 ]=[Answer->Valor                 ]
  [Observacao do Cheque  ]=[Answer->Observacao do Cheque  ] 
  [Data_Entrada          ]=[Answer->Data_Entrada          ] 
  [Data_Liquidado        ]=[Answer->Data_Liquidado        ] 
  [Situacao              ]=[Answer->Situacao              ] 
  [Codigo_Usuario        ]=[Answer->Codigo_Usuario        ] 
  [Data_Inclusao         ]=[Answer->Data_Inclusao         ] 
  [Hora_Inclusao         ]=[Answer->Hora_Inclusao         ] 
  [Numero_Controle_Dia   ]=[Answer->Numero_Controle_Dia   ] 
  [Sistema Destino       ]=[Answer->Sistema Destino       ]
  [Tipo de Destino       ]=[Answer->Tipo de Destino       ]
  [Lancamento Destino    ]=[Answer->Lancamento Destino    ]
  [Numero do Lote Bordero]=[Answer->Numero do Lote Bordero] 

  If Destino="BO"
     Then
          [Lancamento Destino    ]=strval([Answer->Numero do Lote Bordero]) 
          [Data da Operacao      ]=[Answer->Data do Lote          ] 
          QuemDestino=""
          Switch
            Case [Answer->Tipo de Destino]="DEPOSITADO"           : QuemDestino="CtaTrf" 
            Case [Answer->Tipo de Destino]="DESCONTADO_BANCO"     : 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]="TRANSFERIDO"          : QuemDestino="CtaTrf"
            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]="COBRANCAPGTO"         : 
            Case [Answer->Tipo de Destino]="PRORROGADO"           : 
            Case [Answer->Tipo de Destino]="SEM FUNDO"            : 
            Case [Answer->Tipo de Destino]="RETORNO"              : 
          EndSwitch
          
          posini=searchfrom("_",[Answer->Tipo de Destino],1)
          if posini>0
             then [Tipo de Destino]=substr([Answer->Tipo de Destino],1,posini-1)
          endif   

          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

  EndIf   

  If Destino="CP"
     Then
         ;[Tipo de Destino       ]=[Answer->Tipo do Documento     ]+"/"+[Answer->Numero do Documento   ]
          [Tipo de Destino       ]="PAGAMENTO"
          [Codigo Destinatario   ]=[Answer->Codigo Destinatario   ]
          [Nome Destinatario     ]=[Answer->Nome Destinatario     ]
  EndIf   

  UnLockRecord
  
  Moveto "Answer"
EndScan
Do_It!
ClearAll
EndProc



;*******************************************************************************
;* Rotina para Processar  Registros                                            *
;*******************************************************************************
Proc RM_0005A_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_0005A_Principal()

AGUARDE("Aguarde, Gerando o RelatĒrio")
Tabela=Cria_Temp(PrivDir())
Copy "\\Base\\Sistemas\\Cheqrec\\RM_0320" Tabela
Empty Tabela

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

If not IsEmpty(Tabela)
   then
        RM_0005A_Processa()
        
       ;switch
       ;  case VSDGOPRELCODALFRANK2="2"  : Seta_Ordem_Report(Tabela,"8","Codigo do Item","Descricao do Item"  ,"")
       ;  case VSDGOPRELCODALFRANK2="3"  : Seta_Ordem_Report(Tabela,"8","Codigo do Item","Compras_Quantidade" ,"D")
       ;  case VSDGOPRELCODALFRANK2="4"  : Seta_Ordem_Report(Tabela,"8","Codigo do Item","Compras_Preco Total","D")
       ;endswitch

        switch
          case VSDGCODMODELO="22"  :
            Impressao_Orientacao="Paisagem"
            IMPRIREL(Tabela,"R")
             
          case VSDGCODMODELO="34"  :
            Impressao_Orientacao="Paisagem"
            IMPRIREL(Tabela,"1")
             
        endswitch
   else 
        MENSAGEM("No existem registros a processar")
EndIf

If IsTable(Tabela)   Then Delete Tabela   EndIf
If IsTable("Answer") Then Delete "Answer" EndIf

EndProc

;-- Chamada principal ----------------------------------------------------------
RM_0005A_Principal()

Release Vars Tabela
Release Procs RM_0005A_Principal, RM_0005A_Seleciona, RM_0005A_Processa, RM_0005A_AdcionaCampos
