Informar quantidade de Etiquetas a serem impressas
21/05/2003
0
Preciso de ajuda na seguinte situação: Criei um relatório de etiquetas com o quickreport, e gostaria de fazer com que o cliente pudesse informar a quantidade de etiquetas desejada de um determinado produto:
Ex: imprimir 100 entiquetas do produto 000001
ou imprimir 30 entiquetas do cliente cod. 00003, etc...
ou seja antes da impressão, o cliente poder informar quantas etiquetas deseja imprimir.
Abraços...
Siro
Post mais votado
21/07/2003
Consegui resolver o problema sem a necessidade de tabela temporária, se alguem precisar me manda um MP; e obrigado a todos pela contribuição..
Siro
Mais Posts
21/05/2003
Skaarj
Se o usuario quer 100, eu fiz ele receber isso d um edit e coloquei o seguint codigo :
QuickRep1.PrinterSettings.Copies:=strtoint(edit1.text);
caso ele digitaria 2, para 2 paginas com 100..
21/05/2003
Siro
Aproveitando a dica, caso não consiga outra ajuda gostaria de saber como vc definiu para ser impresso 50 etiquetas em uma pagina.. pois nao tenho muita experiencia..
Obrigrado pela atenção..
21/05/2003
Aroldo Zanela
Colega,
Dá uma olhada nessas dicas aqui:
http://www.forumweb.com.br/index.php?act=ST&f=76&t=1049&s=8f3f56b3832491464c8131054f6e5c2b
21/05/2003
Skaarj
12/07/2003
Siro
Quero primeiramente agradecer a atenção..
Talvez eu tenha me expressado mau...
Não quero [u:78588793c4]saltar [/u:78588793c4]um determinado [u:78588793c4]numero de etiquetas [/u:78588793c4]e sim imprimir uma quantidade determinada.
Por exemplo:
Quero imprimir [b:78588793c4]um produto x [/b:78588793c4]de de [b:78588793c4]codigo 00001[/b:78588793c4] por cem vezes e, só apos ter impresso 100 etiquetas e que devera iniciar a impressaõ do produto x com codigo 00002, e assim sucessivamente,
ou seja se o cliente tem [b:78588793c4]100 produtos x[/b:78588793c4] no estoque ele necessitara de 100 etiquetas com o codigo daquele determinado produto, se tiver 567 produtos de outro produto x , necessitara de [b:78588793c4]567[/b:78588793c4] etiquetas, se [b:78588793c4]determinar que a quantidade de etiquetas for 10[/b:78588793c4], quero que seja impresso 10 etiquetas do produto x e assim sucessivamente.
Abraços.
12/07/2003
Siro
Quero primeiramente agradecer a atenção..
Talvez eu tenha me expressado mau...
Não quero [u:e45e156ac3]saltar [/u:e45e156ac3]um determinado [u:e45e156ac3]numero de etiquetas [/u:e45e156ac3]e sim imprimir uma quantidade determinada.
Por exemplo:
Quero imprimir [b:e45e156ac3]um produto x [/b:e45e156ac3]de de [b:e45e156ac3]codigo 00001[/b:e45e156ac3] por cem vezes e, só apos ter impresso 100 etiquetas e que devera iniciar a impressaõ do produto x com codigo 00002, e assim sucessivamente,
ou seja se o cliente tem [b:e45e156ac3]100 produtos x[/b:e45e156ac3] no estoque ele necessitara de 100 etiquetas com o codigo daquele determinado produto, se tiver 567 produtos de outro produto x , necessitara de [b:e45e156ac3]567[/b:e45e156ac3] etiquetas, se [b:e45e156ac3]determinar que a quantidade de etiquetas for 10[/b:e45e156ac3], quero que seja impresso 10 etiquetas do produto x e assim sucessivamente.
Abraços.
13/07/2003
Edilcimar
Ex: Edit1.Text := produto;
edit2.text := quantidade;
BotaoIncluir.click := inclui produto e quantidade na tabela;
faça isto quantas vezes quizer
BotaoImprimir.click := coloca a tabela no início e inicia a impressão até o fim da tabela, colocando cada etiqueta em uma determinada posição pré-fixada, utilizando o Printer.Canvas.TextOut(coluna,Linha,Texto);
BotaoLimpar.click := apaga a tabela temporária;
13/07/2003
Siro
Mas Estou tentando fazer isso no quick, e não estou querendo criar tabelas temporarias(rede). Aroldo Zanela me deu uma dica muito interressante, apensar de não ter resolvido o problema, que pude utilizar em outra situação. Tá dificil mas deve existir uma forma de fazer isto no Quick Report, senão seria ridiculo imprimir apenas [b:ec8310dd13]uma etiqueta [/b:ec8310dd13]de cada vez????
Agora se alguem souber que é impossivel fazer issso.... Vou mudar tudo e comecar de outra forma...
Obrigado
T+
13/07/2003
Edilcimar
crie uma e coloque
Edit1.Text := ´PRODUTO1´;
Edit2.Text := 300;
BotaoIncluir.Click;
With table1 do
Begin
Append
COLOQUE 300 ETIQUETAS DO PRODUTO 1;
Post;
End;
Leia a nova quantiade de etiquetas e produto
No final
BotaoImprimir.Click;
With Table1 do
Begin
First;
While not eof do
Begin
IMPRIMA AS ETIQUETAS;
Next;
End;
19/10/2016
Carlos Junior
Consegui resolver o problema sem a necessidade de tabela temporária, se alguem precisar me manda um MP; e obrigado a todos pela contribuição..
06/04/2022
Upmilk
Consegui resolver o problema sem a necessidade de tabela temporária, se alguem precisar me manda um MP; e obrigado a todos pela contribuição..
06/04/2022
Upmilk
Consegui resolver o problema sem a necessidade de tabela temporária, se alguem precisar me manda um MP; e obrigado a todos pela contribuição..
Clique aqui para fazer login e interagir na Comunidade :)
