segunda-feira, 29 de dezembro de 2014

WebDev Relacao Site

WebDev Relacao Site

=================================================================
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)

==============================================================























Teste

Teste
teste