;** Rc_0010 ********************************************************************
;*  Opcao de Relatorio para Clientes                                           *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 22/10/1997 por Anivel Augusto Rodrigues
;Ultima Alteracao: 24/01/2006 por Anivel Augusto Rodrigues
;Motivo Alteracao: Quantidade de Clientes por Representante/Cidade
;Ultima Alteracao: 02/04/2008 por Nikolas
;Motivo Alteracao: Acrescentado a relacao de clientes obs (venda)
;Ultima Alteracao: 11/02/2009 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes
;Ultima Alteracao: 11/09/2009 por Cleber Alves.
;Motivo Alteracao: Modelo 15
;Ultima Alteracao: 06/06/2011 por Karina Andrade
;Motivo Alteracao: Modelo Rc_0045c
;Ultima Alteracao: 23/08/2011 por Bruno Carvalho
;Motivo Alteracao: Modelo 18

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc SD_Dialog(Disparo,Campo,Evento,Elemento)
Temp=True
If Disparo="OPEN"  Then AoCriarShowDialog() EndIf
If Disparo="EVENT" And Evento["Type"]="KEY" Then
   Switch
     Case Evento["KeyCode"] = -59: Dialog_F1()
     Case Evento["KeyCode"] =  27:
          Temp=False
          Switch
            Case Campo="TG_RELATORIO"     : Campo="NO"
            Case Campo="YES" Or Campo="NO": Campo="TG_RELATORIO"
          EndSwitch
     Case (Evento["KeyCode"] <= -104 And Evento["KeyCode"] >= -113) Or 
           Evento["KeyCode"]  = -139 Or  Evento["KeyCode"]  = -140:
           SYS_TECLA_ACIONADA=Evento["KeyCode"]
           Seta_Tecla_Acionada()
           CancelDialog
     Case Evento["KeyCode"] = 14:
          Temp=False
          If Checa_TAG()
             Then Switch
                    Case Campo="TG_RELATORIO": Campo="YES"
                  EndSwitch
          EndIf
          RefreshDialog
   EndSwitch
EndIf
TECLA=""
MSG_CAMPO=""
Monta_Prompt(MSG_CAMPO,TECLA)
Return Temp
EndProc
;*******************************************************************************
;* ROTINA PRINCIPAL                                                            *
;*******************************************************************************
AutoLib="\\Sistemas\\Cadastro\\Bib_Show,\\Sistemas\\Cadastro\\Bibliot"
LimpAguarde()

While True
 ShowDialog "Menu de Opcao p/ Relat˘rios" Proc "SD_Dialog"
   Trigger "OPEN","ARRIVE"
    Key "TAB","ReverseTab","ENTER","ESC","F1",
      -104, -105, -106, -107, -108, -109, -110, -111, -112, -113, -139, -140    
     @ 05,12 Height 20 Width 78

   Label  @ 01,01 "Op‡”es: "  For "TG_RELATORIO"
   RadioButtons @ 02,01 Height 13 Width 75
     "~C~lientes",
     "Clientes por ~E~stado/Cidade",
     "Clientes por ~R~epresentante",
     "Clientes por Rep./Estado/Cidade",
     "Clientes por Rep./Estado/Cidade II",
     "Clientes por Rep./Estado/Cidade III",   
     "Clientes por Rep./Cidade/Ati~v~idade",
     "Clientes por Rep./Rota/Cidade",
     "~Q~uantidade de Clientes por Rep./Cidade",
     "Clientes por ~A~rea",
     "Clientes por A~t~ividade",
     "Clientes por Atividade/Ci~d~ade",
     "Listagem de Clientes Simples",
     "Clientes com Observacao",
     "Clientes Inati~v~os",
     "~F~icha Cadastral I",
     "F~i~cha Cadastral II",
     "Ficha Financeira",
     "Clientes por Contato"

     Tag "TG_RELATORIO"
     To VSDGRELATORIO

    Pushbutton @ 16,24 width 15 "~O~k"      OK     Default Value "Ok" Tag "YES" To BottonValue
    Pushbutton @ 16,40 width 15 "~C~ancela" CANCEL                    Tag "NO"  To BottonValue

  EndDialog
  If Not RetVal Then QuitLoop EndIf
  If VSDGRELATORIO = 1  Then Play "Rc_0020"  QuitLoop EndIf
  If VSDGRELATORIO = 2  Then Play "Rc_0030"  QuitLoop EndIf
  If VSDGRELATORIO = 3  Then Play "Rc_0040"  QuitLoop EndIf
  If VSDGRELATORIO = 4  Then Play "Rc_0045"  QuitLoop EndIf
  If VSDGRELATORIO = 5  Then Play "Rc_0045b" QuitLoop EndIf 
  If VSDGRELATORIO = 6  Then Play "Rc_0045c" QuitLoop EndIf 
  If VSDGRELATORIO = 7  Then Play "Rc_0046"  QuitLoop EndIf
  If VSDGRELATORIO = 8  Then Play "Rc_0041"  QuitLoop EndIf 
  If VSDGRELATORIO = 9  Then Play "Rc_0047"  QuitLoop EndIf
  If VSDGRELATORIO = 10 Then Play "Rc_0060"  QuitLoop EndIf
  If VSDGRELATORIO = 11 Then Play "Rc_0065"  QuitLoop EndIf
  If VSDGRELATORIO = 12 Then Play "Rc_0067"  QuitLoop EndIf
  If VSDGRELATORIO = 13 Then Play "Rc_0021"  QuitLoop EndIf
  If VSDGRELATORIO = 14 Then Play "Rc_0022"  QuitLoop EndIf
  If VSDGRELATORIO = 15 Then Play "Rc_0061"  QuitLoop EndIf
  If VSDGRELATORIO = 16 Then Play "Rc_0050"  QuitLoop EndIf
  If VSDGRELATORIO = 17 Then Play "Rc_0051"  QuitLoop EndIf
  If VSDGRELATORIO = 18 Then Play "Rc_0052"  QuitLoop EndIf
  If VSDGRELATORIO = 19 Then Play "Rc_0053"  QuitLoop EndIf
EndWhile
ClearAll
Release Vars All
Release Procs All
