FINALIZAR VENDA

Question

SISTEMA DE VENDAS PARA MERCADO...

Jonny Moraes · Answer

ESTOU CRIANDO UM SISTEMA DE VENDAS PRA MERCADOS JA FINALIZEI O RETAGUARDA MAS NO PDV ESTOU COM DIFICULDADES,CRIEI O SEGUINTE CODIGO PARA QUANDO O VALOR DIGITADO REFERENTE AO VALOR PAGO PELO CLIENTE FOR INFERIOR AO TOTAL DA VENDA O CUPOM N�O FINALIZA ATE QUE SE COLOQUE UM VALOR IGUAL OU MAIOR DO QUE O TOTAL DA VENDA,MAS SE O TOTAL FOR 1000 E EU COLOCAR 3 ELE CONCLUI,PARECE QUE ELE ESTA COMPARANDO APENAS O PRIMEIRO DIGITO.O CODIGO E ESTE ALGUEM PODE ME AUDAR?

procedure TFrmFinalizarVendas.Button1Click(Sender: TObject);
begin
if (EDTVALORPAGO.text)>=(DBSUBTOTAL.text) then
begin
gravavendas;
impressao;
end
else
if (edtvalorpago.text) <(dbsubtotal.text) then
begin
showmessage('Valor Incorreto');
end;

end;

Mauricio Rodrigues · Answer

Caro amigo, vc est� comparando texto
conversa string para float
procedure TFrmFinalizarVendas.Button1Click(Sender: TObject);
begin
if StrtoFloat(EDTVALORPAGO.text)>=StrToFloat(DBSUBTOTAL.text) then
begin
gravavendas;
impressao;
end
else
if StrtoFloat(edtvalorpago.text) < strtofloat(dbsubtotal.text) then
begin
showmessage('Valor Incorreto');
end;

end;

Jonny Moraes · Answer

Obrigado mauricio consegui resolver o problema .me ajudou muito....

Jonny Moraes · Answer

Obrigado mauricio consegui resolver o problema .me ajudou muito....

Joel Rodrigues · Answer

Obrigado pelo feedback.T�pico conclu�do....

F�rum FINALIZAR VENDA #452368