Joseg,
Eu criei em cada "form" uma propriedade : IsNumeric
No PreKeyDown fica o código:
Código COBOL:
IF IsNumeric OF POW-SELF = POW-TRUE
IF POW-KEYCODE = 110
MOVE 188 TO POW-KEYCODE.
No GotFocus dos campos numéricos:
Código COBOL:
*
MOVE POW-TRUE TO IsNumeric OF POW-SELF.
No LostFocus de cada campo numerico:
Código COBOL:
MOVE POW-FALSE TO IsNumeric OF POW-SELF.
Com este código, consigo substituir o ponto decimal do Numeric Keypad pela virgula (comma) só nos campos numéricos. Nos campos alfa o ponto mantem-se como ponto.
Isto é outra alternativa, um pouco mais trabalhosa, mas mais perfeita.
Saludo,
Rui Pinto