PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 25 → WX - Campo Nulo a missão!!!!
WX - Campo Nulo a missão!!!!
Débuté par adrianoboller, 22 juil. 2015 19:41 - 3 réponses
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 22 juillet 2015 - 19:41
Ao utilizar o comando ExecuteQuery me deparei num problema, a tabela necessitava de campos NULOS...

Com a ajuda dos meus amigos Amartildo e Elielson consegui a duas formas de resolver esse problema, segue abaixo:

A)
EDT_MinPrice..NullIfEmpty = True
EDT_MaxPrice..NullIfEmpty = True
REQ_Find.ParamMinPrice = EDT_MinPrice
REQ_Find.ParamMaxPrice = EDT_MaxPrice
HExecuteQuery(QRY_Find)


B)
ok is boolean

//envia null para a query

vMVariavelNula is Variant = Null // <----------------------Solução Final

IF SimNao = "N" //Bloquear
ok = HExecuteQuery(QRY_AtivaDesativa, hQueryDefault,"N",EDT_Codigo,DateSys()+TimeSys(),EDT_Motivo_Bloqueio,"rtplus")
ELSE //Desbloquear
ok = HExecuteQuery(QRY_AtivaDesativa, hQueryDefault,"S",EDT_Codigo,vMVariavelNula, vMVariavelNula, vMVariavelNula)
END
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 22 juillet 2015 - 19:42
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 27 juillet 2015 - 16:18
EM CASO DE DIFICULDADES COM O CAMPO NULL SEGUE TAMBEM ESSA PROCEDURE:

Procedure ReplaceNull(Texto, Busca, Troca)

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

RESULT(Texto)
Membre enregistré
3 651 messages
Popularité : +175 (223 votes)
Posté le 30 juillet 2015 - 14:33
Sim Vilani, mas onde eu uso eu precisava dessas informações.

Como nao mandei o exemplo vou mandar na sequencia para vc entender onde precisei...