Quant * codigo produto
23/01/2014
0
Quero fazer com que o sistema reconheça no mesmo campo cod do produto 12*78912345678101 onde 12 é a quantidade e 789...... é o codigo do produto.
Agradeço a todos.
Márcio Lima
Post mais votado
23/01/2014
A sua questão não ficou muito clara,
Reconheça no mesmo campo?
qual a estrutura que você esta usada?
é um calculo que voce quer fazer?
campo := Quantidade produto * valor unitário?
algo assim?
att,
Chiodini
Leandro Chiodini
Mais Posts
23/01/2014
Márcio Lima
estou criando um sistema PDV, quando eu faço a venda informo o cod.produto e em seguindo dgito a quantidade do produto que o cliente está levando.
só que ao inves de digitar o cod do produto e a quantidade em campos separados, queria pode fazer em um unico campo, igual eu vejo em alguns Supermercados.
Exemplo:
digit a quantidade seguida por um *(asterisco) que siginifa multiplicar e o codigo do produto.
Qt cod.barra
12*78912345678997
espero q tenha entendido agora
23/01/2014
Leandro Chiodini
Entendi,
Apesar de hoje em dia com a tecnologia mais avançada nao acho uma boa pratica, isso
mais da pra fazer,
depois você precisa dar um split para separar o codigo da quantidade.
att,
Chiodini
24/09/2015
Everton Santos
posicao : Integer;
da um copy com pos().
edit.text = '12*78912345678997';
posicao := POS(*,edti.text) // isso resulta 3
if posicao = 0 // se nao achou o *
begin
QTDE = 1;
CODIGO = TRIM(edit.text)
end
else begin
QTDE = StrToInt(copy(edit.text,1,Posicao-1);
CODIGO= copy(edit.text,Posicao+1,20);
end;
vc conseguiu imprimir na argox 214? se conseguiu me ajude ta obrigado
25/09/2015
Márcio Lima
Me diz ai o que precisa imprimir na Argox?
tenho um código fonte que através dele resolvi vários problemas com etiquetas na Argox
se tiver interesse me passa seu email que encaminho pra você.
25/09/2015
Everton Santos
25/09/2015
Everton Santos
http://www.4shared.com/get/-Z1rmQ7rba/QuickReport_506_Pro_Delphi_XE7.html?startDownload=true
28/09/2015
Everton Santos
08/11/2018
Aloisio Santos
posicao : Integer;
da um copy com pos().
edit.text = '12*78912345678997';
posicao := POS(*,edti.text) // isso resulta 3
if posicao = 0 // se nao achou o *
begin
QTDE = 1;
CODIGO = TRIM(edit.text)
end
else begin
QTDE = StrToInt(copy(edit.text,1,Posicao-1);
CODIGO= copy(edit.text,Posicao+1,20);
end;
vc conseguiu imprimir na argox 214? se conseguiu me ajude ta obrigado
==================================================================
Boa noite caro colega...
Vi este teu código e funcionou perfeitamente dentro da linha que vc desenvolveu, mas apareceu-me uma dúvida que ainda não consegui implementar.
O código funciona perfeitamente para produtos vendidos em unidades... mas como devo fazer para produtos vendidos no quilograma, como por exemplo:
0,546*0001 (onde 0,546kg é a quantidade comprada no peso e 0001 é o produto comercializado).
Se puder dizer o que faço para alterar de modo a me ajudar com o meu sistema, ficarei eternamente grato.
08/11/2018
Márcio Lima
promptsistemas@gmail.com
Clique aqui para fazer login e interagir na Comunidade :)
