Tabela Generica
Criando uma tabela com uma coluna, pode ser mostrada qualquer tabela com select
ele vai colocar as colunas automaticamente
dsQry is Data Source
sQl is string
sQl = "select id_empresa as Codigo,suporte as suporte,fantasia as Nome,id_Cadastro_geral as Id from empresa "
IF HExecuteSQLQuery(dsQry,hQueryDefault,sQl) THEN
TABLE_generica..BrowsedFile = dsQry
END
BuildBrowsingTable(TABLE_generica,dsQry,taFillTable)
TableDisplay(TABLE_generica,taInit)
terça-feira, 31 de março de 2015
Tabela Visao
Tabela Visao
MyView is Data Source
IF HCreateView(MyView,cliente,"id_cliente,nome_fantasia,valor_contrato ","valor_contrato","id_empresa=1",hViewDefault) THEN
IF HReadSeekFirst(MyView,id_cliente,3) THEN
MyView.nome_fantasia = "teste"
HModify(MyView)
END
BuildBrowsingTable(TABLE_visao,MyView,taByLogicalOrder+taFillTable)
END
MyView is Data Source
IF HCreateView(MyView,cliente,"id_cliente,nome_fantasia,valor_contrato ","valor_contrato","id_empresa=1",hViewDefault) THEN
IF HReadSeekFirst(MyView,id_cliente,3) THEN
MyView.nome_fantasia = "teste"
HModify(MyView)
END
BuildBrowsingTable(TABLE_visao,MyView,taByLogicalOrder+taFillTable)
END
segunda-feira, 30 de março de 2015
Windev Nivel Descricao Operacao
Windev Nivel Descricao Operacao
IF TABLE_operacao.COL_Nivel=1 THEN
TABLE_operacao[CurrentSubscript()]..Color = LightRed
END
IF TABLE_operacao.COL_Nivel=2 THEN
TABLE_operacao[CurrentSubscript()]..Color = LightBlue
END
TABLE_operacao.COL_Nome = RepeatString(" ", TABLE_operacao.COL_Nivel * 2) + TABLE_operacao.COL_Nome
IF TABLE_operacao.COL_Nivel=1 THEN
TABLE_operacao[CurrentSubscript()]..Color = LightRed
END
IF TABLE_operacao.COL_Nivel=2 THEN
TABLE_operacao[CurrentSubscript()]..Color = LightBlue
END
TABLE_operacao.COL_Nome = RepeatString(" ", TABLE_operacao.COL_Nivel * 2) + TABLE_operacao.COL_Nome
Windev Classe
Nesse 2 video e blog , mostro como iniciar a fazer uma classe.
Vou Pegar a Inclusao/Alteracao/Exclusao, e fazer delas uma classe.3,4
Vou mostrar como instanciar uma classe e usala
amarildo@matosinformatica.com.br
sábado, 28 de março de 2015
Windev Grafico - Criar baseado numa tabela
Windev Grafico - Criar baseado numa tabela
Para Criar um Grafico em cima duma tabela faça o seguinte:
No lado da tabela Criada
crie um grafico
Creater
chart
Escolha um grafico
Creating a Char Control
Source
Escolha Table Column
Data
Escolha o campo que sera mostrado legenda
Source Files
Adicione
Source
mude para table Column
Data
escolha o campo que sera para o grafico
Esta pronto é so rodar o programa
Para Criar um Grafico em cima duma tabela faça o seguinte:
No lado da tabela Criada
crie um grafico
Creater
chart
Escolha um grafico
Creating a Char Control
Source
Escolha Table Column
Data
Escolha o campo que sera mostrado legenda
Source Files
Adicione
Source
mude para table Column
Data
escolha o campo que sera para o grafico
Esta pronto é so rodar o programa
Compartilhar na rede usb Windev/Webdev/WindevMobile
Para compartilhar
instale server, e escolhe usb que quer compartilhar
no outro computador instale client, e compartilhe
http://www.incentivespro.com/usb-redirector.html#quick-start - server
http://www.incentivespro.com/helps/usb-redirector-client/
instale server, e escolhe usb que quer compartilhar
no outro computador instale client, e compartilhe
http://www.incentivespro.com/usb-redirector.html#quick-start - server
http://www.incentivespro.com/helps/usb-redirector-client/
Windev Pedido Memoria + Grafico
Windev Pedido Memoria + Grafico
Nesses passos vou mostrar como se faz um cadastro de pedido em memoria com tabela para ir mostrando os itens do pedido e mais um grafico no final de cada digitacao.
Crie uma window
Dentro da window , crie uma Table (Tabela)
Table
Fill the table control by programming
Marque Editable table para poder alterar
Altere as colunas com o seguinte:
Codigo,Descricao,Quantidade,Unitario,Total
Nome tabela sera : table_pedido
Coloque em cima da tabela os campos que serao digitados, no caso dos edt e coloque os nomes neles
Criar uma Procedure para somar os valores da tabela num totalValor
Procedure
SOMATABELAVALOR
=====================================
PROCEDURE SomaTabelaValor()
// zera total
EDT_TotalVenda=0
//Percorre toda tabela para somar totais
FOR ALL ROW OF TABLE_PEDIDO
EDT_TotalVenda+=TABLE_PEDIDO.COL_total
END
Nesses passos vou mostrar como se faz um cadastro de pedido em memoria com tabela para ir mostrando os itens do pedido e mais um grafico no final de cada digitacao.
Crie uma window
Dentro da window , crie uma Table (Tabela)
Table
Fill the table control by programming
Marque Editable table para poder alterar
Altere as colunas com o seguinte:
Codigo,Descricao,Quantidade,Unitario,Total
Nome tabela sera : table_pedido
Coloque em cima da tabela os campos que serao digitados, no caso dos edt e coloque os nomes neles
Criar uma Procedure para somar os valores da tabela num totalValor
Procedure
SOMATABELAVALOR
=====================================
PROCEDURE SomaTabelaValor()
// zera total
EDT_TotalVenda=0
//Percorre toda tabela para somar totais
FOR ALL ROW OF TABLE_PEDIDO
EDT_TotalVenda+=TABLE_PEDIDO.COL_total
END
=====================================
No campo em que digite o valor unitario, botao direito e code
================== digite abaixo====
//Calcula Total
EDT_TOTAL=EDT_QUANTIDADE*EDT_UNITARIO
// Adiciona na Tabela
TableAddLine(TABLE_PEDIDO,EDT_CODIGO,EDT_DESCRICAO,EDT_QUANTIDADE,EDT_UNITARIO,EDT_TOTAL)
//Limpar Campos
EDT_CODIGO=0
EDT_DESCRICAO=""
EDT_QUANTIDADE=0
EDT_TOTAL=0
EDT_UNITARIO=0
// Busca procedure para somar
SomaTabelaValor()
grDraw(CHART_pedido) // Mostra pedido
ReturnToCapture(EDT_CODIGO)
===========================
crie um botao excluir e coloque o seguinte
=====
TableDelete(TABLE_PEDIDO)
SomaTabelaValor()
===========
crie um bota altere e coloque o seguinte:
====
EDT_CODIGO=TABLE_PEDIDO.COL_codigo
EDT_DESCRICAO=TABLE_PEDIDO.COL_descricao
EDT_QUANTIDADE=TABLE_PEDIDO.COL_quantidade
EDT_UNITARIO=TABLE_PEDIDO.COL_valor_venda
EDT_TOTAL=TABLE_PEDIDO.COL_total
TableDelete(TABLE_PEDIDO)
SomaTabelaValor()
ReturnToCapture(EDT_CODIGO)
====
vamos criar o grafico agora
va em creation
chart
escolha o grafico
sera por tabela
escolha descricao e valor total
===
Pronto abaixo as telas de como eu fiz
==
Assinar:
Postagens (Atom)