Code: Select all
IF POS("\n", $) > 0 | POS("\r", $) > 0 THEN
DISPLAY("No debe usarse la tecla salto de línea");
REENTER;
ENDIF;
Code: Select all
IF POS("\n", $) > 0 | POS("\r", $) > 0 THEN
DISPLAY("No debe usarse la tecla salto de línea");
REENTER;
ENDIF;