Senhores Bom Dia, Sou novo no ADVPL estou montando um relatório e fiz esse trecho de While onde alimento a variável cTrans com os dados de uma Query, porém preciso limpar a variável após o preenchimento porque ela vai receber vários dados vindos do resultado da query, então preciso que ela receba imprima e limpe.

Como fazer?

OBRIGADO.

DbSelectArea("SB1")
DbSetorder(1)
If DbSeek(xFilial("SB1")+aSldIni[nX,3])
    TMP->( DbGotop() )
    While TMP->(!EOF()) .AND. aSldIni[nX,3] == TMP->D3_COD // Se o código do produto for exatamente igual.
        cTrans := TMP->QUANT
        TMP->(dbskip())
    Enddo    
Endif