PERGUNTAS E RESPOSTAS
 
Bem Vindo, Visitante  Todos os Fórums
  ADVPL
Enviar para a impressoraImprimir  Enviar e-mail para um amigoEnviar Para um Amigo
Precisa estar Logado

Subject Assunto:
Duvida relatório ADVPL
Versão:
12
Plataforma:
Microsoft
Complemento:
DB:
Oracle
Complemento:
LinkedIn
Foto
Mensagem do Enviar e-mail Abrir o Perfil do usuário GUDEFENDI GUDEFENDI em 10/07/2018, 15:56 h
Local: SP  Registro: 10/07/2018  Postagens: 1
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.

Mensagem do Enviar e-mail Abrir o Perfil do usuário DON.JUNIOR DON.JUNIOR em 10/07/2018, 21:27 h
Local: RJ  Registro: 24/01/2016  Postagens: 106
nQuant3 += nQuant2 * nQuant1

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

Att.
Don Junior

Para postar no Fórum você precisa efetuar o seu login ou se registrar

 Mudar para Fórum

 

 

 
 
   
Pagina Principal Shopping PROTHEUS Tire suas duvidas Vagas Microsiga em todo Brasil Aprofunde seus conhecimentos Noticias Online Fale Conosco Pagina Principal