PDV
Nunca desenvolvi um PDV antes e agora me apareceu um amigo de meu pai, pedindo que eu criasse um para lojinha dele.
Até montei legal, mas, estou com duas pequenas dificuldades. Como fazer para lançar na impressão somente o pedidos referente a cada compra individual e, que a quantidade de cada item seja baixada no estoques, ou seja, um determinado cliente comprou seis itens diferentes, esses mesmos seis itens farao parte do banco de dados que por sua vez já tem várias outras compras armazenadas. O que quero saber é como fazer para que somentes esses seis itens sejam enviados para impressão, e como baixar as respectivas quantidades do estoque da lojinha?
Ressalvo ainda, que trabalho com tabelas feitas em Paradox, utilizo Query e estou programando no Delphi 3, já que outros programas que este amigo de meu pai utiliza também foram programados em Delphi 3.
Sem querer ser abusado, mesmo assim já o sendo, solicito de alguém que queira cooperar comigo, uma amostra simples mesmo de um PDV também bem simples, porque o que me interessa são os comandos.
Como já conheço o frequentadores deste Fórum, antecipadamente agradeço a ajuda que puderem me conceder.
Muito Obrigado.
Até montei legal, mas, estou com duas pequenas dificuldades. Como fazer para lançar na impressão somente o pedidos referente a cada compra individual e, que a quantidade de cada item seja baixada no estoques, ou seja, um determinado cliente comprou seis itens diferentes, esses mesmos seis itens farao parte do banco de dados que por sua vez já tem várias outras compras armazenadas. O que quero saber é como fazer para que somentes esses seis itens sejam enviados para impressão, e como baixar as respectivas quantidades do estoque da lojinha?
Ressalvo ainda, que trabalho com tabelas feitas em Paradox, utilizo Query e estou programando no Delphi 3, já que outros programas que este amigo de meu pai utiliza também foram programados em Delphi 3.
Sem querer ser abusado, mesmo assim já o sendo, solicito de alguém que queira cooperar comigo, uma amostra simples mesmo de um PDV também bem simples, porque o que me interessa são os comandos.
Como já conheço o frequentadores deste Fórum, antecipadamente agradeço a ajuda que puderem me conceder.
Muito Obrigado.
Pro-luck
Curtidas 0
Respostas
Ronaldo.cutu
18/06/2004
vamos ver se entendi
*para enviar o pedido para impressao
query_itens_pedido.filter := cod_pedido = ´cod pedido a imprimir´
query_itens_pedido.filtered := True;
sua função para imprimir
____________________________________________________________________________________________
*para baixar o estoque
query_itens_pedido.first
while no query_itens_pedido.eof do
begin
Query_produto.Locate(´cod_produto´, query_itens_pedidocod_produto.asstring, [loCaseInsensitive,loPartialKey]);
Query_produto.edit;
Query_produtoestoque.value := Queryprodutoestoque.value-Queryitens_pedidoquant_vendida.value;
Query_produto.post;
Query_itens_pedido.next;
end
qualquer duvida estou a disposição
Ronaldo
ronaldo@knr.com.br
*para enviar o pedido para impressao
query_itens_pedido.filter := cod_pedido = ´cod pedido a imprimir´
query_itens_pedido.filtered := True;
sua função para imprimir
____________________________________________________________________________________________
*para baixar o estoque
query_itens_pedido.first
while no query_itens_pedido.eof do
begin
Query_produto.Locate(´cod_produto´, query_itens_pedidocod_produto.asstring, [loCaseInsensitive,loPartialKey]);
Query_produto.edit;
Query_produtoestoque.value := Queryprodutoestoque.value-Queryitens_pedidoquant_vendida.value;
Query_produto.post;
Query_itens_pedido.next;
end
qualquer duvida estou a disposição
Ronaldo
ronaldo@knr.com.br
GOSTEI 0