|
Home → WINDEV 25 → WX - Como fazer máscara de campo no Webdev? (Field mask in Webdev/Masque de champ dans Webdev) |
WX - Como fazer máscara de campo no Webdev? (Field mask in Webdev/Masque de champ dans Webdev) |
Started by Boller, May, 08 2021 3:58 AM - 5 replies |
| |
| | | |
|
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on May, 08 2021 - 3:58 AM |
Boa noite!!!
Prezados,
Para fazer máscara de campo no Webdev segue abaixo exemplo:
PROCEDURE mascaraTelefone(sTelefone is string):string sTel is string = sTelefone
sTel = StringInsert(sTel, "(", 1) sTel = StringInsert(sTel, ")", 4)
IF Length(sTel) = 13 THEN sTel = StringInsert(sTel, "-", 10) ELSE sTel = StringInsert(sTel, "-", 9) END
RESULT sTel
PROCEDURE mascaraTelefoneEdicao(sComponente is string)
nKey is int = 0x08
IF NOT KeyPressed(nKey) OR Length({sComponente, indControl}) = 13 THEN IF Length({sComponente, indControl}) = 1 THEN {sComponente, indControl} = StringInsert({sComponente, indControl}, "(", 1) ELSE IF Length({sComponente, indControl}) = 3 THEN {sComponente, indControl} = StringInsert({sComponente, indControl}, ")", 4) END END IF Length({sComponente, indControl}) > 8 THEN sValor is string = Replace({sComponente, indControl}, ["(", ")", "-" ], "") {sComponente, indControl} = mascaraTelefone(sValor) END {sComponente, indControl}..Cursor = Length({sComponente, indControl}) + 1 END
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on May, 08 2021 - 4:31 AM |
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on May, 08 2021 - 4:34 AM |
Essa postsgem é em homenagem ao Mario Oliveura um dos ultimos pedidos dele feuto para mim. Agradeço pelo exemplo ao Felipe que gentilmente enviou o exemplo
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on May, 08 2021 - 4:36 AM |
PROCEDURE mascara_cnpj(s_recebe_cnpj is string) IF s_recebe_cnpj <>"" THEN s_recebe_cnpj = s_recebe_cnpj[[1 TO 2]] + "." + ... s_recebe_cnpj[[3 TO 5]] + "." + ... s_recebe_cnpj[[6 TO 8]] + "/" + ... s_recebe_cnpj[[9 TO 12]] + "-" + ... s_recebe_cnpj[[13 TO 14]] END ------- mascara_cnpj(cnpj)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on May, 08 2021 - 4:36 AM |
PROCEDURE mascara_cnpj(s_recebe_cnpj is string) *cnpj is string = (val(s_recebe_cnpj)>0?Rigth("00000000000000"+s_Recebe_cnpj, 14) else s_recebe_cnpj)* IF cnpj <>"" THEN cnpj = cnpj[[1 TO 2]] + "." + ... cnpj[[3 TO 5]] + "." + ... cnpj[[6 TO 8]] + "/" + ... cnpj[[9 TO 12]] + "-" + ... cnpj[[13 TO 14]] END s_recebe_cnpj = cnpj ------- mascara_cnpj(cnpj)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on June, 21 2021 - 9:54 PM |
Máscara para campo telefone no Windev
sCRegEx is string = "(([0-9]{2,3})|\([0-9]{2,3}\))[-. ]*(([0-9]{4,5})[-. ]*([0-9]{4}))$" IF RegexMatch(MySelf,sCRegEx) = False THEN Info("Numero de telefone inválido") ReturnToCapture(MySelf) END
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|