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
Code:
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:
Code:
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