;Ultima Alteracao: 05/12/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes 0382
;Ultima Alteracao: 28/12/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes padronizar VisualizarF1()
;Ultima Alteracao: 14/05/2018 por Bruno Carvalho
;Motivo Alteracao: Adicionado visualiza‡Æo para #0381#
;Ultima Alteracao: 13/07/2018 por Bruno Carvalho
;Motivo Alteracao: Adicionado visualiza‡Æo para #0418#
;Ultima Alteracao: 10/08/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado visualiza‡Æo para #0419#
;Ultima Alteracao: 17/10/2018 por Bruno Carvalho
;Motivo Alteracao: Adicionado visualiza‡Æo para #0422#
;Ultima Alteracao: 21/08/2019 por Bruno Carvalho
;Motivo Alteracao: Adicionado visualiza‡Æo para #0438#
;Ultima Alteracao: 02/10/2019 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado visualiza‡Æo para #0438#

If Not IsAssigned(SYS_CODIGO_CLIENTE)  Then SYS_CODIGO_CLIENTE=""  EndIf

Switch
 Case SYS_CODIGO_CLIENTE="0117":
      Window Resize GetWindow() To 21, 70
      Window Move GetWindow() To 2, 1

      VisualizaF1("Codigo, Razao Social, Conta Contabil, Tipo, CGC, Endereco, Cidade, UF","Razao Social")

      OrderTable {Razao Social}
      Home

 Case SYS_CODIGO_CLIENTE="0092"  or
      SYS_CODIGO_CLIENTE="0438" :
      Window Resize GetWindow() To 21, 79
      Window Move GetWindow() To 2, 1

      VisualizaF1("Codigo, Nome Fantasia EmitDest, Razao Social, CGC, IE, Telefone","Nome Fantasia EmitDest")

      OrderTable {Nome Fantasia EmitDest}
      Home
 
 Case SYS_CODIGO_CLIENTE="0381" :
      Window Resize GetWindow() To 21, 79
      Window Move GetWindow() To 2, 1

      VisualizaF1("Codigo, Razao Social, Nome Fantasia EmitDest, CGC, Endereco, Cidade, UF","Razao Social")

      OrderTable {Razao Social}
      Home
 
 Case SYS_CODIGO_CLIENTE="0148":
      Window Resize GetWindow() To 21, 77
      Window Move GetWindow() To 2, 1

      VisualizaF1("Codigo, Nome Fantasia EmitDest, CGC, Celular, RG, Endereco","Nome Fantasia EmitDest")

      OrderTable {Nome Fantasia EmitDest}
      Home

  Case SYS_CODIGO_CLIENTE="0344":
       Window Resize GetWindow() To 20, 80
       Window Move GetWindow() To 2, 0
    
       VisualizaF1("Codigo, Razao Social, Tipo, CGC, Endereco, Cidade, UF","Razao Social")
    
       OrderTable {Razao Social}
       Home

  Case SYS_CODIGO_CLIENTE="0319" Or   
       SYS_CODIGO_CLIENTE="0422"  :
       Window Resize GetWindow() To 20, 77
       Window Move GetWindow() To 2, 0
    
       VisualizaF1("Codigo, Razao Social, Cidade, UF","Razao Social")
    
       OrderTable {Razao Social}
       Home

  Case SYS_CODIGO_CLIENTE="0438"  :
       Window Resize GetWindow() To 20, 77
       Window Move GetWindow() To 2, 0
    
       VisualizaF1("Codigo, Razao Social, Cidade, Bairro, UF","Razao Social")
    
       OrderTable {Razao Social}
       Home
   
  Case SYS_CODIGO_CLIENTE="0222" Or  
       SYS_CODIGO_CLIENTE="0418"  :
       Window Resize GetWindow() To 21, 70
       Window Move GetWindow() To 2, 1

       VisualizaF1("Codigo, Razao Social, Cidade, CGC", "Razao Social")
       
       OrderTable {Razao Social}
       Home
  Case SYS_CODIGO_CLIENTE="0382":
       Window Resize GetWindow() To 21, 79
       Window Move GetWindow() To 2, 1

       VisualizaF1("Codigo, Razao Social, Cidade, CGC", "Razao Social")
       
       OrderTable {Razao Social}
       Home      
       
  Case SYS_CODIGO_CLIENTE="0185":
       Window Resize GetWindow() To 21, 79
       Window Move GetWindow() To 2, 1

       VisualizaF1("Codigo, Razao Social, CGC, Nome Fantasia EmitDest", "Razao Social")
       
       OrderTable {Razao Social}
       Home      
  Case SYS_CODIGO_CLIENTE="0419":
       Window Resize GetWindow() To 21, 79
       Window Move GetWindow() To 2, 1

       VisualizaF1("Codigo, Razao Social, Cidade, UF, CGC, Nome Fantasia EmitDest", "Razao Social")
       
       OrderTable {Razao Social}
       Home      
OtherWise:
      Window Resize GetWindow() To 20, 77
      Window Move GetWindow() To 2, 0

      VisualizaF1("Codigo, Razao Social, CGC, Endereco, Cidade, UF","Razao Social")

      OrderTable {Razao Social}
      Home

EndSwitch

Window GetAttributes GetWindow() To WinArray
WinArray["Title"]="** EMPRESAS/CLIENTES/FORNECEDORES/OUTROS **"
Window SetAttributes GetWindow() From WinArray
