Delphi dicas

Etiquetas de preços de produtos pela qtd do estoque

Caso vc precise fazer etiquetas de acordo as quantidades de produtos que se tem no estoque bas fazer o seguinte códgo em um botão:

var

I:Integer;

begin

        For I:=1 to tabelaOrigemQuantidade.value do

        begin

                tabeladestino.insert;

                tabeladestinoCodigoProduto.value:=tabelaOrigemCodigoProduto.value;

                tabeladestinodescricao.value:=tabelaOrigemdescricao.value;

                tabeladestinovlrvenda.value:=tabelaOrigemvlrvenda.value;

                tabeladestino.post;



                //o comando dentro do for vai gerar quantidades de etiquetas de acordo a quantidade de cada produto do estoque



                //ex.: Se tenho X canetas, ele vai gerar X etiqueta, se tenho Y Lapis, ele vai gerar Y lápis etc..



                if tabelaorigem.eof then

                tabelaorigem.next;

        end;

end.

por : Eliseu Cavalcante De Souza