Windev21 Aulas,Estudos e Desenvolvimento

sábado, 27 de dezembro de 2014

WebDev Link

WebDev Link

https://nicetouch.adobeconnect.com/_a746071777/p8nzbyxtt6o/?launcher=false&fcsContent=true&pbMode=normal

O link você deve gerar com componente HTML, não uso o LINK do webdev acho desnecessário.

Olhe como o Pete Haslted manuseia loopers, muito prático clique aqui

Código: [Selecionar]

ATT_Link = '<a href='+seulink.noticias+' target = blank> Clique aqui </a>'

sexta-feira, 26 de dezembro de 2014

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

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

Android Instalando

Android Instalando

Baixar Android - http://developer.android.com/index.html

Instalando o Android Studio, ele ja instala o que precisa para androi, e se nao
tiver sido instalado java ele mostra link
que é esse atualmente

http://www.oracle.com/technetwork/java/javase/downloads/jdk7-downloads-1880260.html

android studio

http://developer.android.com/sdk/index.html

instalacao

C:\Android\Android Studio
C:\Android\sdk

\program files\java\jdk.1.7.0_71\

WebDev Tabela Excluir

WebDev Tabela Excluir

IF TableSelect(TABLE_Tecnico) = -1 THEN RETURN

HReadSeek(tecnico,tecnico.chave_empresa_tecnico,[gnEmpresaCodigo,TABLE_Tecnico.COL_Id_empresa_tecnico])
IF HFound(tecnico) THEN
    IF YesNo("Tem Certeza de que deseja excluir o Técnico?") THEN
        HDelete(tecnico)
        mostra_relacao_tecnico()
    END
END

WebDev Tabela Alteracao

WebDev Tabela Alteracao

Para alterar dados numa pagina

====================================================================
no botal Alterar colocar o seguinte

IF TableSelect(TABLE_Tecnico)=-1 THEN RETURN

HReadSeek(tecnico,tecnico.chave_empresa_tecnico,[gnEmpresaCodigo,TABLE_Tecnico.COL_Id_empresa_tecnico])
PageDisplay(PAGE_tecnico_cadastro)
mostra_relacao_tecnico()

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

dentro da pagina de alteracao colocar o seguinte

PAGE_tecnico_cadastro.EDT_Id_tecnico=tecnico.id_tecnico
PAGE_tecnico_cadastro.EDT_Nome=tecnico.nome

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

no botao salvar colocar o weguinte

//ler a informacao entrada
PageToFile()

IF tecnico..NewRecord = True THEN
    HAdd(tecnico)
ELSE
    //tecnico.nome=PAGE_tecnico_cadastro.EDT_Nome
    HModify(tecnico)
END

// volte para pagina
IF PreviousPage()<>"" THEN
    PageDisplay(PreviousPage)
ELSE
    PageDisplay(PAGE_relacao_tecnico)
END