Fórum Ajuda num projeto de pedidos #151514

03/04/2003

0

Estou criando um projeto bem simples para emissão de pequenos pedidos.
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

Ginosam

Responder

Posts

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


Responder

Gostei + 0

04/04/2003

Ginosam

Não meu amigo João Batista, não preciso nada disso! Vou precisar, somente se eu quiser criar um projeto refinado, profissional, etc, não é o meu caso. Estou quase conseguindo, já melhorei e corrigi o erro anterior. Agora estou com outro problema!

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?


Responder

Gostei + 0

31/07/2008

Emir Neto

Edit18.Text:= Edit17.Text * Edit16.Text; Edit49.Text:= Edit18.Text;

Seria:
Edit18.Text:= FloatToStr( StrToFloat( Edit17.Text ) * StrToInt( Edit16.Text ) );


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar