;Ultima Alteracao: 21/05/2011 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Visualiza‡Æo para Confec‡äes  
;Ultima Alteracao: 06/07/2011 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Lupus  
;Ultima Alteracao: 15/08/2011 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado nova configura‡Æo para D'Almeida                         
;Ultima Alteracao: 18/08/2011 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado nova configura‡Æo para D'Almeida                         
;Ultima Alteracao: 28/08/2011 por Anivel Augusto Rodrigues
;Motivo Alteracao: Inclusao VisualizaF1()                         
;Ultima Alteracao: 28/03/2013 por Bruno Carvalho
;Motivo Alteracao: InclusÆo de um modelo para empresa #0222#
;Ultima Alteracao: 07/05/2013 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes                                        
;Ultima Alteracao: 12/06/2013 por Bruno Carvalho
;Motivo Alteracao: InclusÆo de um modelo #0342#
;Ultima Alteracao: 10/07/2013 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes   
;Ultima Alteracao: 10/06/2014 por Luis Gustavo
;Motivo Alteracao: Ajustes para consulta no F1 do Re_0010  \\Estoque                                    
;Ultima Alteracao: 24/03/2014 por Bruno Carvalho
;Motivo Alteracao: InclusÆo de um modelo #0274#
;Ultima Alteracao: 23/05/2016 por Bruno Carvalho
;Motivo Alteracao: Altera‡Æo de LOC_POR -> LOCALIZA_CODIGO de acordo com a padroniza‡Æo realizada p/ localiza‡Æo 
;Ultima Alteracao: 23/05/2016 por Bruno Carvalho
;Motivo Alteracao: Adapta‡Æo com o VisualizaF1() para o SYS_CODIGO_CLIENTE="0296" e SYS_CLIENTE_CONFEC<>""  
;Ultima Alteracao: 14/06/2016 por Bruno Carvalho
;Motivo Alteracao: InclusÆo de um modelo #0059#
;Ultima Alteracao: 20/06/2016 por Bruno Carvalho
;Motivo Alteracao: Ajustado em um modelo existente p/ cliente #0346#
;Ultima Alteracao: 05/07/2016 por Bruno Carvalho
;Motivo Alteracao: Ajustado em um modelo existente p/ cliente #0154#
;Ultima Alteracao: 31/08/2016 por Kamila Gomes
;Motivo Alteracao: Ajustado em um modelo existente p/ cliente #0232# Zuggy-Zi
;Ultima Alteracao: 08/03/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes de um modelo #0059# invativo
;Ultima Alteracao: 17/10/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes de um modelo #0425#               
;Ultima Alteracao: 22/11/2018 por Bruno Carvalho
;Motivo Alteracao: Ajustes de um modelo #0356# e #0423#
;Ultima Alteracao: 04/12/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes de modelo #0423#
;Ultima Alteracao: 04/02/2020 por Bruno Carvalho
;Motivo Alteracao: Ajustes de um modelo #0428#

If Not IsAssigned(SYS_CLIENTE_CONFEC)  Then SYS_CLIENTE_CONFEC=""  EndIf
If Not IsAssigned(SYS_CODIGO_CLIENTE)  Then SYS_CODIGO_CLIENTE=""  EndIf
 
Switch
  Case SYS_CODIGO_CLIENTE="0059" Or
       SYS_CODIGO_CLIENTE="0000"  : 
    Window Move GetWindow() To 2, 1
    Window Resize GetWindow() To 21, 80
   
    VisualizaF1("Descricao do Item, Codigo do Item,Inativo,"+
               "Localizacao","Descricao do Item")
    OrderTable {Descricao}
    Home
    
  Case SYS_CODIGO_CLIENTE="0000" Or
       SYS_CODIGO_CLIENTE="0154"  : 
    Window Move GetWindow() To 2, 1
    Window Resize GetWindow() To 21, 70
   
    VisualizaF1("Descricao do Item, Codigo do Item,"+
               "Localizacao","Descricao do Item")
    OrderTable {Descricao}
    Home
    
  Case SYS_CODIGO_CLIENTE="0222":
    Window Move GetWindow() To 2, 1
    Window Resize GetWindow() To 21, 76
    
    VisualizaF1("Codigo do Item, Descricao do Item, Codigo Fornecedor, Unidade Fiscal"+
                "Localizacao, Descricao Tipo do Item","Codigo Fornecedor")
    
    OrderTable {CdFornDescr}
    Home
    
  Case SYS_CODIGO_CLIENTE="0232":
    Window Move GetWindow() To 2, 1
    Window Resize GetWindow() To 21, 76
    
    VisualizaF1("Codigo do Item, Descricao do Item, Codigo Fornecedor, Unidade Fiscal"+
                "Localizacao, Descricao Tipo do Item","Codigo Fornecedor")
    
    OrderTable {CdFornDescr}
    Home 

  Case SYS_CODIGO_CLIENTE="0342" or
       SYS_CODIGO_CLIENTE="0423"  : 
    Window Move GetWindow() To 2, 1
    Window Resize GetWindow() To 21, 76
    
    VisualizaF1("Codigo do Item, Descricao do Item, Referencia, Unidade Fiscal"+
                "Localizacao, Descricao Tipo do Item","Referencia")
    
    OrderTable {Referencia}
    Home
    
  Case SYS_CODIGO_CLIENTE="0274" Or
       SYS_CODIGO_CLIENTE="0425" Or
       SYS_CODIGO_CLIENTE="0428"  :
    Window Move GetWindow() To 2, 1
    Window Resize GetWindow() To 21, 76
    
    VisualizaF1("Referencia, Descricao do Item, Unidade Fiscal, Codigo do Item","Referencia")
    
    OrderTable {Referencia}
    Home    
    
  Case SYS_CODIGO_CLIENTE="0356":
    Window Move GetWindow() To 2, 1
    Window Resize GetWindow() To 21, 71

    VisualizaF1("Codigo do Item, Descricao do Item, Descricao da Marca","Descricao do Item")
    
    OrderTable {Descricao}
    Home
        
  Case SYS_CODIGO_CLIENTE="0296" Or 
       SYS_CODIGO_CLIENTE="0346"  : 
    Window Move GetWindow() To 2, 1
    Window Resize GetWindow() To 21, 71

    VisualizaF1("Codigo do Item, Descricao do Item, Localizacao, Codigo da Grade","Descricao do Item")
    
    OrderTable {Descricao}
    Home
  Case SYS_CODIGO_CLIENTE="0344" Or  
       SYS_CODIGO_CLIENTE="0334" Or 
       SYS_CODIGO_CLIENTE="0335" Or 
       SYS_CODIGO_CLIENTE="0339" Or 
       SYS_CODIGO_CLIENTE="0331" Or 
       SYS_CODIGO_CLIENTE="0329" Or 
       SYS_CODIGO_CLIENTE="0340" Or  
       SYS_CODIGO_CLIENTE="0319" :  
    Window Move GetWindow() To 2, 1
    Window Resize GetWindow() To 21, 79
    
    VisualizaF1("Codigo do Item, Descricao Complementar, Unidade Fiscal, Codigo Fornecedor,"+
                "Localizacao, Descricao Tipo do Item","Descricao Complementar")
    OrderTable {Descrcompl}
    Home    

  Case IsAssigned(LOCALIZA_CODIGO):   ;*** O Re_0010 do estoque utiliza esta fun‡Æo***   
       Switch
           Case LOCALIZA_CODIGO = "LOC_CODFOR" : 
                Window Move GetWindow() To 2, 1
                Window Resize GetWindow() To 21, 70
            
                VisualizaF1("Descricao do Item, Codigo Fornecedor,"+
                           "Localizacao","Descricao do Item")
                OrderTable {Descricao}
                Home
           Case LOCALIZA_CODIGO = "LOC_CODREF" : 
                Window Move GetWindow() To 2, 1
                Window Resize GetWindow() To 21, 70
    
                VisualizaF1("Descricao do Item, Referencia,"+
                           "Localizacao","Descricao do Item")
                OrderTable {Descricao}
                Home
           Case LOCALIZA_CODIGO = "LOC_CODBAR" :
                Window Move GetWindow() To 2, 1
                Window Resize GetWindow() To 21, 70
    
                VisualizaF1("Descricao do Item, Codigo de Barras,"+
                           "Localizacao, Descricao Tipo do Item","Descricao do Item")
                OrderTable {Descricao}
                Home   
           OtherWise :
                Window Move GetWindow() To 2, 1
                Window Resize GetWindow() To 21, 70
            
                VisualizaF1("Codigo do Item, Descricao do Item, Unidade Fiscal, Codigo Fornecedor,"+
                "Localizacao, Descricao Tipo do Item","Descricao do Item")
                OrderTable {Descricao}
                Home           
           
  EndSwitch    

; Case SYS_CLIENTE_CONFEC<>"":
;   Window Move GetWindow() To 2, 1
;   Window Resize GetWindow() To 21, 80
;
;   VisualizaF1("Codigo do Item, Descricao do Item, Localizacao, Codigo da Grade","Descricao do Item")
;
;   OrderTable {Descricao}
;   Home
        
  OtherWise:
    Window Move GetWindow() To 2, 1
    Window Resize GetWindow() To 21, 70
    
    VisualizaF1("Codigo do Item, Descricao do Item, Unidade Fiscal, Codigo Fornecedor,"+
                "Localizacao, Descricao Tipo do Item","Descricao do Item")
    OrderTable {Descricao}
    Home    
EndSwitch

Window GetAttributes GetWindow() To WinArray
WinArray["Title"]="** ITENS **"
Window SetAttributes GetWindow() From WinArray
