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

Framework - Linha Protheus LIB
, ,
1

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

2

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

3

Boa tarde, Lucas.
Abaixo da linha de execução dele não daria para colocar cCurva := ’ ’ ? Pois assim ele receberia um valor vazio.

4

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

5

Andreas qual a ideia de limpar antes algo de auditoria ? porque quando você grava o sistema já altera o conteúdo de um para o outro. Não entendi o intuito de forçar limpar. Se acho que entendi o que você precisa é inicializar a variável cCurva com vazio antes do seu IF, assim se ela não se encaixar em nenhum critério ficará em branco.