sábado, 11 de julho de 2015

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)
 
 

Nenhum comentário:

Postar um comentário

Teste

Teste
teste