WX - Função Básica mas muito útil pra quem trabalha com SQL: ReplaceNull

http://forum.pcsoft.fr/pt-BR/pcsoft.br.windev/353-funcao-basica-mas-muito-util-pra-quem-trabalha/read.awp

Procedure ReplaceNull(Texto, Busca, Troca)

IF Troca <> ""
Texto = Replace(Texto, Busca, Troca)
ELSE
IF PositionOccurrence(Texto,"'"+ Busca +"'",firstRank,FromBeginning) > 0
Texto = Replace(Texto,"'"+ Busca +"'","null")
ELSE
Texto = Replace(Texto,Busca,"null")
END
END

RESULT(Texto)

 

Uso:

SQLExecuta = ReplaceNull(SQLExecuta,"@pCodigoCliente@",CodCliente)