PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX - Campo Nulo a missão!!!!
WX - Campo Nulo a missão!!!!
Iniciado por adrianoboller, jul., 22 2015 7:41 PM - 3 respostas
Membro registado
3.655 mensagems
Popularité : +175 (223 votes)
Publicado em julho, 22 2015 - 7:41 PM
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
Membro registado
3.655 mensagems
Popularité : +175 (223 votes)
Publicado em julho, 22 2015 - 7:42 PM
Membro registado
3.655 mensagems
Popularité : +175 (223 votes)
Publicado em julho, 27 2015 - 4:18 PM
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)
Membro registado
3.655 mensagems
Popularité : +175 (223 votes)
Publicado em julho, 30 2015 - 2:33 PM
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...