PDA

View Full Version : Mascara para Web



Benedito
29-Sep-2021, 02:32 PM
Ola pessoal,

Tenho uma View (WO) e gostaria que mostrasse a maascara no objeto. Tentei o psMask, mas não funcionou. A minha mascara, dependendo do objeto "Tipo", se for PF a mascara seria ###.###.###-## se tipo for "PJ", a mascara seria "##.###.###/####-##", alguem pode ajudar.

Grato

Renato.Antonacci
30-Sep-2021, 05:23 AM
Bom dia Benedito.

Creio que essas mudanças são dinamicamente correto? Você usou WebSet para setar a mascará que quer usar? Existe diferenças em "Set / WebSet". Caso não seja isso, poste o seu código, pois fica mais fácil de ajudar.

[]s

Benedito
30-Sep-2021, 07:34 AM
Bom dia Benedito.

Creio que essas mudanças são dinamicamente correto? Você usou WebSet para setar a mascará que quer usar? Existe diferenças em "Set / WebSet". Caso não seja isso, poste o seu código, pois fica mais fácil de ajudar.

[]s

Segue o Codigo Fonte juntamente com a View

Renato.Antonacci
30-Sep-2021, 08:19 AM
Bom dia.

Foi justmente o que eu falei. Existe diferenças entre "WebSet" e "Set". Você esta usando "Set"




Procedure OnChange
Forward Send OnChange
String sValue

Get Value of ClientesTipo to sValue

If (sValue = "Pessoa Fisica") Begin
---> Set psMask of ClientesRegrfb to "###.###.###-##"
End
Else Begin
---> Set psMask of ClientesRegrfb to "##.###.###/####-##"
End
End_Procedure




https://docs.dataaccess.com/dataflexhelp/#t=mergedProjects%2FLanguageReference%2FWebSet.htm&rhsearch=webset&rhhlterm=webset&rhsyns=%20


EDIT-1: Em tempo: Observei que você usou Get Value para obter o tipo do cliente. Também esta errado. O correto seria "WebGet psValue"



[]s

Benedito
1-Oct-2021, 09:16 AM
Bom dia.

Foi justamente o que eu falei. Existem diferenças entre "WebSet" e "Set". Você está usando

o procedimento

"Set"


OnChange

Forward Enviar String sValue

Get Value of ClientesTipo
to sValue If (sValue = "Pessoa Fisica") Begin ---> Set psMask
of ClientesRegrfb to "###.###.###-#.###.###

--->##







End_Procedure https://docs.dataaccess.com/dataflexhelp/#t=mergedProjects%2FLanguageReference%2FWebSet.htm&rhsearch=webset&rhhlterm=webset&rhsyns=%20
EDIT-1: Em tempo: Observei que você usou Obter Valor para obter o tipo do cliente.
Também esta errado. O correto seria "WebGet



psValue" []s

Troquei o SET por WEBSET, mas não funcionou

Samuel Pizarro
1-Oct-2021, 11:35 AM
Vc ligou a prorpiedade pra disparar o evento onchange no server?

se vc debugar, com breakpoint a execução passa por ali!?

Renato.Antonacci
1-Oct-2021, 11:48 AM
Então... esta faltando mais coisa aí. Mas o psMask para ser aplicado no lado do cliente tem que ser "WebSet"

Olha o Help do cWebCombo




Set pbServerOnChange to True


Procedure OnChange String sNewValue String sOldValue
Forward Send OnChange sNewValue sOldValue
Send ShowInfoBox ("New combo value is: " + sNewValue)
End_Procedure



Seu código deveria ser algo assim:




Object ClientesTipo is a cWebCombo
Entry_Item Clientes.Tipo
Set piColumnSpan to 2
Set piColumnIndex to 0
Set peLabelPosition to lpTop
Set psLabel to "Tipo"


Set pbServerOnChange to True


Procedure OnChange String sNewValue String sOldValue
Forward Send OnChange sNewValue sOldValue

If (sNewValue = "Pessoa Fisica");
WebSet psMask of ClientesRegrfb to "###.###.###-##"
Else;
WebSet psMask of ClientesRegrfb to "##.###.###/####-##"
End_Procedure

End_Object







[]s