WebDev Ir Pagina

WebDev Ir Pagina

PageDisplay(PAGE_relacao_tecnico)

WebDev Voltar Pagina Anterior

WebDev Voltar Pagina Anterior

  
PageDisplay(PreviousPage)

WebDev Pagina Incluir/alterar

WebDev Pagina Incluir/alterar

CRIAR UMA NOVA PAGINA

CHAMADA TECNICO_CADASTRO

criei uma tab

Create
  Tab
    Mudei os nomes das orelhas
       para dados/fixo
      
Criei dois botoes,
    Salvar e Cancelar

Va do dicionario
 e procure o arquivo
   e coloque os campos necessarios

Agamos vamos no Botao salvar
botao direito
Code
  
e em Click of BTn server

//ler a informacao entrada
PageToFile()

IF tecnico..NewRecord = True THEN
    HAdd(tecnico)
ELSE
    HModify(tecnico)
END

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

   

WebDev No menu Chamar Pagina

WebDev No menu Chamar Pagina

 fique em cima do menu onde deseja chamar a pagina
clique com o botao direito
va em
Action
e escolha a Pagina

WebDev Primeira Tabela

WebDev Primeira Tabela

Fazendo a Primeira Tabela no webdev

Criar uma nova Pagina
Modelo em Branco
Fique dentro da Pagina e clique com o botao direito, em description
Va em
  Creation
     Table
       Para criar um elemento tabela
Siga as definicoes, e escolha um arquivo


depois de pronto, é so executar

no meu caso vou fazer mudancas, vou fazer manual o sql

criei uma procedure chamada mostrA_relacao_Tecnico
==============================================================      
PROCEDURE mostra_relacao_tecnico()
gsSQL = [
    select
    tecnico.id_empresa_tecnico as tec_id_empresa_tecnico,
    tecnico.nome as tec_nome
    from
    tecnico
    where
    tecnico.id_empresa=%1
         %2
]
sFiltro is string
sFiltro = ""
gsSQL = StringBuild(gsSQL,gnEmpresaCodigo,sFiltro)

TableDeleteAll(TABLE_Tecnico)
IF HExecuteSQLQuery(gdsQry,hQueryDefault,gsSQL) THEN
    HReadFirst(gdsQry)
    WHILE NOT HOut()
        TableAddLine(TABLE_Tecnico,gdsQry.tec_id_empresa_tecnico,gdsQry.tec_nome)
        HReadNext(gdsQry)
    END
    HFreeQuery(gdsQry)     
END
TableDisplay(TABLE_Tecnico)
==============================================================
altere a propriedade da tabela ,
  em content
    para by programming
com o botao direito na pagina
em initialization of page
coloque mostra_relacao_tecnico()

       

Sistema Novo - Técnicos

Sistema Novo - Técnicos

WebDev Porta80

WebDev Porta80


http://forum.pcsoft.fr/fr-FR/pcsoft.us.webdev/1532-alter-port-80-iis-alterar-porta-80-iis-1533/read.awp

WebDev Logado

WebDev Logado

Webservice Funcoes

Webservice Funcoes

http://forum.pcsoft.fr/fr-FR/pcsoft.us.webdev/1514-creating-internal-functions-for-your-webservice-criando-funcoes/read.awp

WebDev - Menu

WebDev - Menu

Sistema Novo - Windev - Inventario

Sistema Novo - Windev - Inventario

Conexao Banco Access

Conexao Banco Access

Pedroso Informatica

Minhaconexao is Connection // Descreve a conexão Minhaconexao..User = "USER" Minhaconexao..Password = "PASSWORD" Minhaconexao..Server = "MYSERVER" Minhaconexao..Database = "Database" Minhaconexao..Provider = hAccessHFClientServer Minhaconexao..Access = hOReadWrite Minhaconexao..ExtendedInfo = "Extended information" Minhaconexao..CursorOptions = hClientCursor // Establiza a conexao HOpenConnection(Minhaconexao)

Internet Verifica Conexao

Internet Verifica Conexao

Pedroso Informatica

ResConnection is boolean
ResConnection = InternetConnected()
IF ResConnection = True THEN
    //Executa a sua rotina
    Info("conexão internet ok")
ELSE
    Info("Não existe conexão com a Internet. O programa não pode continuar")
END

Tabela Selecionar Linha

Tabela Selecionar Linha

TableSelectPlus(TABLE_EXEMPLO,5)

ExecuteProcess(TABLE_EXEMPLO,trtSelection) // use mais essa linha se nao  funcionar

Utf8 Banco

Utf8 Banco