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
==
Nenhum comentário:
Postar um comentário