PC Toledo

Código: Selecionar todos

#include <hmg.ch>

Function Main

        Load Window Main
        Main.Center
        Main.Activate

Return

Function manutForne()
   Private area_:="forne", aHeaders_:={'Código', 'Nome do Fornecedor'},;
           aFields_:={'codif', 'nomef'}, aWidths_:={50,600}
   load WINDOW fConsulta as ConsForne
   ConsForne.title := "Manutenção do Modulo de Fornecedores"
   ConsForne.lblTitulo.value := "Manutenção do Modulo de Fornecedores" 
   ConsForne.lblTitulo.FontSize := 20
   ConsForne.lblTitulo.FontBold := .t.
   
   ConsForne.center
   ConsForne.activate 
   
return

Function manutGrupo()
   Private area_:="grupo", aHeaders_:={'Código', 'Descrição do Grupo'},;
           aFields_:={'grupo', 'grupodesc'}, aWidths_:={60,600}
   load WINDOW fConsulta as ConsGrupo
   ConsGrupo.title := "Manutenção do Modulo de Grupo de Produtos"
   ConsGrupo.lblTitulo.value := "Manutenção do Modulo de Grupo de Produtos" 
   ConsGrupo.lblTitulo.FontSize := 20
   ConsGrupo.lblTitulo.FontBold := .t.   
   ConsGrupo.center
   ConsGrupo.activate 
   
return

Function Sair()
quit

Function AbrirArquivos()
request dbfcdx
rddsetdefault("dbfcdx")
dbsetdriver("dbfcdx")


//dbUseArea(.T., "DBFCDX", "ESTGRUPO", "GRUPO")
select 0
use estgrupo alias grupo 

if(!file("GRUPO.CDX"))
   index on grupo tag gcodigo to "grupo.cdx"
   index on grupodesc tag gdesc to "grupo.cdx"
ENDIF 
set index to GRUPO.CDX

select 0
use g00forne alias forne 

if(!file("FORNE.CDX"))
   index on CODIF tag Fcodigo to "FORNE.cdx"
   index on NOMEF tag FNOME to "FORNE.cdx"
ENDIF 
set index to FORNE.CDX


Function FecharArquivos()
   close databases 
   
Function SetaBotoes(lTipo)
   If ThisWindow.Name = "ConsForne"
      SetProperty( "Main", "tFornecedores", "Enabled", lTipo )
      SetProperty( "Main", "pFornecedores", "Enabled", lTipo )      
   Endif
   If ThisWindow.Name = "ConsGrupo"
      SetProperty( "Main", "tGruposProd", "Enabled", lTipo )   
      SetProperty( "Main", "pGrupos", "Enabled", lTipo )      
   Endif

Código: Selecionar todos

ON INIT SetaBotoes(.F.) ON RELEASE SetaBotoes(.T.)

Código: Selecionar todos

        WIDTHS aWidths_
        HEADERS aHeaders_
        WORKAREA &area_
        FIELDS aFields_