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)

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























sexta-feira, 26 de dezembro de 2014

Windev Moblie Inclui e Atualiza

Windev Moblie Inclui e Atualiza

SWITCH YesNo("Gravar as Inforrmações")
    CASE Yes
        IF EDT_id_empresa="" THEN
            Error("voce nao digitou codigo da empresa")
            RETURN           
        END
        IF EDT_id_empresa_tecnico="" THEN
            Error("voce nao digitou codigo do tecnico")
            RETURN           
        END
        IF EDT_nome="" THEN
            Error("voce nao digitou nome do técnico")
            RETURN           
        END
       
        ScreenToFile() // As Informações sao Lidas
       
        IF tecnico..NewRecord=True THEN // se for inclusão
            //Adiciona
            tecnico.id_tecnico=EDT_id_empresa_tecnico
            tecnico.id_empresa=EDT_id_empresa
            tecnico.id_empresa_tecnico=EDT_id_empresa_tecnico
            tecnico.nome=EDT_nome
            HAdd(tecnico)
        ELSE
            // Altera
            HModify(tecnico)
        END
      
        LooperDisplay(win_tecnico_lista.Looper_tecnico,taCurrentFirst) // Atualiza o Looper ou tabela
       
        Close()
    OTHER CASE
        Close()
END





Windev Mobile Cancelar Fechar

Windev Mobile Cancelar Fechar





quinta-feira, 25 de dezembro de 2014

Android Primeiro programa

Android Primeiro programa

Meu Primeiro programa teste em android

entrar em criar novo projeto

Escolha Android Application

coloque o caminho sdk
  
escolha o aparelho

siga os proximos passos

quando abrir a tela para escolher
  create a windows
  windev mobile editor
 
  escolha editor
 
VAmos criar primeira windows

fique em cima do windows,
  botao direito, e new windows
 
Escolha tipo blank

coloque a vontade, botao,static,imagem

mande executar que vai aparecer o programa no celular

Agora crie outra janela

win_tecnico

e no botao da primeira tela
no botao direito do mouse
escolha prese action

escolha open a window e win_Tecnico


Pronto e funcionando

 























Teste

Teste
teste