Limpar dados de um campo antes do fonte inserir um valor novo

Bom dia, preciso que em meu fonte, antes de atribuir um dado no campo, que ele limpe o valor que estava armazenado, assim limpando o campo e atribuindo um valor novo

Ex:campo CURVAM tem o valor "C", preciso que o campo fique vazio e depois ele tenha a atribuição do respectivo valor

cSQL := ChangeQuery(cSQL) TCQUERY cSQL NEW ALIAS "QCURVM" DbSelectArea("QCURVM")

aProds := {} nTotalGeral := 0 nPercent := 0

While !Eof()

nTotalGeral += QCURVM->TOTAL AADD(aProds,{QCURVM->B1_COD,QCURVM->MARCA,QCURVM->PRODUTO,QCURVM->TOTAL, 0}) DbSelectArea("QCURVM") DBSKIP()

End

For nCtaFor := 1 To Len(aProds)

aProds[nCtaFor][5] := (aProds[nCtaFor][4] / nTotalGeral) * 100

Next nCtaFor

aSort( aProds,,,{|x,y| x[5] < y[5]})

For nCtaFor := 1 To Len(aProds)

nPercent += aProds[nCtaFor][5]

if nPercent <= 5 cCurva := "C" elseif nPercent > 5 .and. nPercent <= 15 cCurva := "B" else cCurva := "A" endif

compartilhar
  • Como está atribuindo o valor no campo? eu olhei o seu codigo não consegui compreender

    Lucas de Paulo Santos   3 months ago
  • Boa tarde, Lucas. Abaixo da linha de execução dele não daria para colocar cCurva := ' ' ? Pois assim ele receberia um valor vazio.

    Matheus Rechinelli   3 months ago
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

2 respostas

Não é a resposta que estava procurando? Procure outras perguntas com as tags protheus ou faça a sua própria pergunta.