Fórum Ajuda num projeto de pedidos #151514
03/04/2003
0
Trata-se de um programa bem simples mesmo, pois só existirá uma única
tabela e um datasource para os cálculos. O programa não terá nada de
índices primários, secundários, controle de estoque, controle de fornecedores, relação desta tabela com aquela, etc... Bem, o objetivo
principal é enxugar bastante o código. Como eu disse, este programa
servirá para emissão de pequenos pedidos, no caso, seis itens por pedido. A sua aparência é como se o usuário tivesse um bloco de
pedidos verdadeiro nas mãos, preenchendo-o na hora. O seu
funcionamento, mais ou menos será assim:
Num Edit1.text vou colocar a quantidade de produtos que o cliente
comprar. Num Edit2.text vou colocar o Valar unitário do produto.
Num Edit3.txt deve aparecer o resultado dos itens, ou seja,
valor unitário * quantidade de produtos = SubTotal. Finalmente,
haverá um campo total dos produtos comprados e, assim, salvar
o pedido para uso futuro. (impressões, alterações)
Por enquanto esta bagaça não funciona. Não sei o que está acontecendo,
quando tento ativar a tabela aparece a seguinte mensagem:
Table1: Type mismatch for field ´Quantid1´,
expecting: Boolean actual: Integer.
Se alguém puder ajudar mando os fontes para ficar mais claro.
Meu e-mail: gilsongam@ig.com.br
[i:f791a4ffe5][color=blue:f791a4ffe5]Muchas gracias![/color:f791a4ffe5][/i:f791a4ffe5]
Ginosam
Curtir tópico
+ 0Posts
03/04/2003
Anonymous
Bom ginosam, vc precisa no minimo das tabelas de:
produtos
clientes
pedidos
itens de pedido
Na sua edicao precisa do codigo do produto
Quanto ao erro, provavelmente sua tabela fisica está diferente dos campos-objetos do componente (confira no Fields Editor, delete o campo e recrie, deve resolver)
[]´s
JBatista
Gostei + 0
04/04/2003
Ginosam
No evento onExit do meu Edit17.Text coloquei isto:
procedure TFormPedidos.Edit17Exit(Sender: TObject);
begin
Edit18.Text:= Edit17.Text * Edit16.Text;
Edit49.Text:= Edit18.Text;
Aparece a seguinte mensagem:
[Error] Unit1.pas(269): Operator not applicable to this operand type
Vejam:
Edit16.text é a quantidade de produtos, Nome quant1, type integer
da minha tabela ;
Edit17.text é o preço unitário, nome precoun1, Type $(money) da
minha tabela;
Edit18.text é o Sub-Total, nome SubT1, Type $(money) da minha tabela;
Edit49.text é o Total Geral, Nome TotalGeral, Type $(money) da
minha tabela;
Por favor alguém pode me ajudar? Como multiplico a quantidade de produtos pelo seu valor unitário?
Gostei + 0
31/07/2008
Emir Neto
Seria:
Edit18.Text:= FloatToStr( StrToFloat( Edit17.Text ) * StrToInt( Edit16.Text ) );
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)