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 

ajuda com codigo de barra (Resolvido )

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


Registrado: Quarta-Feira, 27 de Julho de 2016
Mensagens: 5
Localização: são paulo

MensagemEnviada: Dom Mar 10, 2019 7:22 pm    Assunto: ajuda com codigo de barra (Resolvido ) Responder com Citação

procedure Tf_inseri_balanca.EdCodigoProdutoToledoChange(Sender: TObject);
var
vTextoCodigo,vCodigoProduto:string;
vValor, vPeso, vPrecoKG:Currency;
begin
sql_pesquisa.Open;
vCodigoProduto:=sql_pesquisaest_codproduto.Text;
vTextoCodigo := EdCodigoProdutoToledo.Text;
vPrecoKG := StrToFloat(EdPreco.Text);
if (Length(vTextoCodigo)= 13) and (vTextoCodigo[1]='2') then
begin
EdCodigo.Text :='';
EdPeso.Text := '0.000';
EdValor.Text := '0.00';
vValor := StrToFloat(copy(vTextoCodigo,8,5))/100;
vCodigoProduto := copy(vTextoCodigo,4,4);
EdCodigo.Text := FormatFloat('', StrToFloat(vCodigoProduto));
EdPeso.Text := FormatFloat(',0.000', vValor / vPrecoKG);
EdValor.Text := FormatFloat(',0.00', vValor);
with sql_pesquisa do
begin
Close;
SQL.Text :='select * from ESTOQUE WHERE est_codproduto LIKE :est_codproduto';
Params[0].AsString := '%'+EdCodigo.Text+'%';
sql_pesquisa.Open;
Dm.tb_Estoque.Open;
if (Dm.tb_Estoque.Locate('est_codproduto',sql_pesquisaest_codproduto.value,[loPartialKey,loCaseInsensitive]))then

end
end;
end;

o editpeso só esta pegando o valor certo na segunda pesquisa

alguém pode me da uma força ai
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
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