Imprimi Página | Fechar janela

Duvida relatório ADVPL

Impresso de: Helpfacil - Portal do conhecimento
Nome do Forum: ADVPL
Descrição do Forum: Dúvidas sobre a programação em ADVPL
URL:http://www.helpfacil.com.br/display_topic_threads.asp?ForumID=1&TopicID=42050
Data da Impressão: terça-feira, 17 de julho de 2018 at 06:41


Topico: Duvida relatório ADVPL

Postado por: GUDEFENDI
Assunto: Duvida relatório ADVPL
Data Postagem: terça-feira, 10 de julho de 2018 at 15:56

Boa tarde,

Estou precisando criar um variável que guarde o valor de uma outra variável e vá somando para cada vez que o loop é executado e no final realize a soma, para que eu possa exibir esse total na tela.

O trecho de código que utilizo para criar esse loop é o seguinte:

WHILE TRB1->(!Eof())

     oPrinter:Say(nLin1,050,TRB1->MPTT,oArial9) // Imprime as matérias primas da tinta
     oPrinter:Say(nLin1,1265,"____________",oArial9) // Imprime as linhas na frente das matérias primas
     oPrinter:Say(nLin1,1620,CVALTOCHAR(TRB1->QTDE),oArial9) // Imprime as quantidade de cada matéria prima
               
     nQuant2 := TRB1->QTDE
     nQuant3 := nQuant2 * nQuant1

     oPrinter:Say(nLin1,1900,TRANSFORM(nQuant3,"@E 999,999"),oArial9) // Imprime a necessidade de cada tinta
     oPrinter:Say(nLin1,2130,"____________",oArial9) // Imprime as linhas do peso adicional
               
     nLin1 += 55
     TRB1->(DbSkip())
ENDDO

A variável que eu preciso que seja somada é a nQuant3.

Qualquer duvida me perguntem, que vou explicando o que fiz.


Respostas:

Postado Por: DON.JUNIOR
Data Postagem: terça-feira, 10 de julho de 2018 at 21:27

nQuant3 += nQuant2 * nQuant1

Similar ao que vc já fez (nLin1 += 55).

Att.
Don Junior




Imprimir Página | Fechar Janela