ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Quero que meu edit receba o valor 0,00 Resolvido

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
juniorpba
Colaborador
Colaborador


Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS

MensagemEnviada: Seg Jan 27, 2014 10:06 pm    Assunto: Quero que meu edit receba o valor 0,00 Resolvido Responder com Citação

Galera seguinte , quando vou fazer uma venda nesta venda o total dela da 767,00 eu vou efetuar o pagamento apenas pelo dinheiro ,entao vai ficar assim


Campo Dinheiro = R$ 767,00
Campo Cartao = R$ 0,00
Ou seja na hora de finalizar ele fala que eh para eu incluir quantas parcelas na minha vendas , ou seja ele nao deveria que aparecer a mensagem ele teria q fazer a venda avista.
Qual eh o problema? pra que eu possa estar solucionando ?
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota"


Editado pela última vez por juniorpba em Qua Jan 29, 2014 1:42 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT

MensagemEnviada: Ter Jan 28, 2014 7:23 am    Assunto: Responder com Citação

tente assim:

Código:
if StrToCurrDef(edDinheiro.Text, 0) > 0 then
begin
   // VENDA A VISTA
end;

if StrToCurrDef(edCartao.Text, 0) > 0 then
begin
   // VENDA COM CARTAO
end;


vc deve verificar cada campo e fazer a operacao de acordo, pois o cliente pode pagar uma parte em dinheiro, outra no cartao
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
joemil
Moderador
Moderador


Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT

MensagemEnviada: Ter Jan 28, 2014 7:24 am    Assunto: Responder com Citação

outra coisa: nao coloque R$ na frente do valor, isso pode gerar erros na hora de converter, ou entao use um componente Edit so para numeros (tem no RxLib, Jedi...)
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
AndersonWorkInfo
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 14 de Outubro de 2013
Mensagens: 222
Localização: Belém - Pará

MensagemEnviada: Ter Jan 28, 2014 12:06 pm    Assunto: Re: Quero que meu edit receba o valor 0,00 quando ficar vazio Responder com Citação

Junior, você já ouviu falar no componente RXTOOLS?
Se não ouviu dá uma pesquisada que ele tem ferramentas pré-programadas que vão facilitar a sua vida, um deles é o CurrencyEdit que faz a formatação no formato monetário e trata a informação da mesma forma através da propriedade "Value" dele, verifique, mas se não quiser utilizar a ferramenta utilize formatação do campo assim:

Edit1.Text := FormatFloat(',0.00', CAMPO QUE CONTEM UM VALOR FLOAT);

Essa forma o edit1 vai receber o valor de uma tabela onde o campo é float, no caso se você quiser quando o edit for zero ele receba a formatação '0,00' é só colocar assim:

if Edit1.text = '' then
Edit1.Text := FormatFloat(',0.00', 0);

Ele receberá o formato desejado com o valor zerado.

se você quiser o R$ na frente do '0,00' é só colocar na frente do 'R$ ,0,00'

Espero ter ajudado.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário MSN Messenger
juniorpba
Colaborador
Colaborador


Registrado: Quarta-Feira, 25 de Janeiro de 2012
Mensagens: 1690
Localização: Paranaiba - MS

MensagemEnviada: Qua Jan 29, 2014 1:40 pm    Assunto: Responder com Citação

Rapaiz se nao ajudo , vc quebro uma arvore kkkkk
_________________
"Conhece a teu inimigo e a ti mesmo e lutará 100 batalhas sem medo da derrota"
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail MSN Messenger
AndersonWorkInfo
Aprendiz
Aprendiz


Registrado: Segunda-Feira, 14 de Outubro de 2013
Mensagens: 222
Localização: Belém - Pará

MensagemEnviada: Qua Jan 29, 2014 9:44 pm    Assunto: Responder com Citação

Valew ai... Abraço mano veio.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular Visitar a homepage do Usuário MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB