=================================================================
PROCEDURE site_mostra_relacao(sSeleciona is string)
gsSQL = [
select
sites_uteis.id_empresa_site as sit_id_empresa_site,
sites_uteis.titulo as sit_titulo,
sites_uteis.titulo_link as sit_titulo_link,
sites_uteis.grupo as sit_grupo
from
sites_uteis
where
sites_uteis.id_empresa=%1
%2
]
nMostra is int
sFiltro is string
sFiltro = ""
gsSQL = StringBuild(gsSQL,gnEmpresaCodigo,sFiltro)
TableDeleteAll(TABLE_Sites_uteis)
IF HExecuteSQLQuery(gdsQry,hQueryDefault,gsSQL) THEN
HReadFirst(gdsQry)
WHILE NOT HOut()
nMostra=1
IF sSeleciona="Todos" THEN
ELSE
IF gdsQry.sit_grupo=sSeleciona THEN
ELSE
nMostra=0
END
END
IF nMostra=1 THEN
TableAddLine(TABLE_Sites_uteis,gdsQry.sit_id_empresa_site,gdsQry.sit_titulo,gdsQry.sit_titulo_link,gdsQry.sit_grupo)
END
HReadNext(gdsQry)
END
HFreeQuery(gdsQry)
END
TableDisplay(TABLE_Sites_uteis)
=========================================================
PROCEDURE site_combox_site()
ListDeleteAll(COMBO_Seleciona)
gsSQL = [
SELECT DISTINCT
sites_uteis.grupo as sit_grupo
FROM
sites_uteis
where
sites_uteis.id_empresa=%1
]
ListAdd(COMBO_Seleciona,"Todos Grupos"+TAB+gLink("Todos"))
gsSQL = StringBuild(gsSQL,gnEmpresaCodigo)
IF HExecuteSQLQuery(gdsQry,hQueryDefault,gsSQL) THEN
HReadFirst(gdsQry)
WHILE NOT HOut()
ListAdd(COMBO_Seleciona,gdsQry.sit_grupo+TAB+gLink(gdsQry.sit_grupo))
HReadNext(gdsQry)
END
HFreeQuery(gdsQry)
END
==========================================================
// Inclui novo SITE
HReset(sites_uteis)
// Va para pagina de inclusao de SITE
PageDisplay(PAGE_site_formulario)
//mostra os site
sSeleciona is string = COMBO_Seleciona..StoredValue
site_mostra_relacao(sSeleciona)
===========================================================
//verifica se esta selecionado um site
IF TableSelect(TABLE_Sites_uteis)=-1 THEN RETURN
//ler o arquivo de site, pois fiz a tabela via programação
HReadSeek(sites_uteis,sites_uteis.chave_empresa_site,[gnEmpresaCodigo,TABLE_Sites_uteis.COL_Id_empresa_site])
//entra no formulario de alteracao
PageDisplay(PAGE_site_formulario)
sSeleciona is string = COMBO_Seleciona..StoredValue
//mostra os sites
site_mostra_relacao(sSeleciona)
============================================================
//VERIFICA SE ESTA SELECIONADO UM SITE
IF TableSelect(TABLE_Sites_uteis)=-1 THEN RETURN
//LER O SITE, POIS A TABELA FOI FEITO POR PROGRAMACAO
HReadSeek(sites_uteis,sites_uteis.chave_empresa_site,[gnEmpresaCodigo,TABLE_Sites_uteis.COL_Id_empresa_site])
//FAZ PERGUNTA SE DESEJA EXCLUIR
IF HFound(sites_uteis) THEN
IF YesNo("Tem Certeza de que deseja excluir o Site?") THEN
//EXCLUI O SITE
HDelete(sites_uteis)
sSeleciona is string = COMBO_Seleciona..StoredValue
//MOSTRA OS SITES
site_mostra_relacao(sSeleciona)
END
END
//IF YesNo("Tem Certeza de que deseja excluir o Técnico?" + CR + "CONFIRME") THEN
============================================================
//Imprime Em pdf
// Generate a unique PDF file name
AFile is string
AFile = fWebDir() + "\" + DateSys() + TimeSys() + ".pdf"
// Configure the destination of the print
iDestination(iPDF, AFile)
// Print the RPT_InvoicePDF report
iPrintReport(RPT_sites_uteis)
// Send the file to the browser
FileDisplay(AFile, "application/pdf")
// Delete the file
fDelete(AFile)
==============================================================
