no funcionan botones

[leandro alfonso]

Hola a todos los compañeros del foro.

Tengo el siguiente problema cuando hago clic sobre los botones me arroja un error de argumento. alguien me puede decir que me falta?

LEANDRO ALFONSO
DESDE COLOMBIA

[DanielPuente]

Leandro:
Tendrias que mostrarnos las linea donde definis los botones y decirnos la descripcion exacta del error que te da para que te podamos ayudar.

Saludos,

Hola a todos los compañeros del foro.

Tengo el siguiente problema cuando hago clic sobre los botones me arroja un error de argumento. alguien me puede decir que me falta?

LEANDRO ALFONSO
DESDE COLOMBIA

[leandroalfonso]

Hola a todos los compañeros del foro,
tengo el problema que los botones no me ejecutan al acción que necesito y me genera un error de argumento.

intente con los botones BTNBMP y no lo logre tampoco me sigue arrojando el
mismo error

defino lode botones de la siguiente menera:

DEFINE DIALOG OBentr00 RESOURCE "OBentr00" OF dwpri

REDEFINE GET Oaliusu VAR Galiusu ID 110 OF OBentr00
REDEFINE GET Oclausu VAR Gclausu ID 111 OF OBentr00
REDEFINE GET Oclaemp VAR Gclaemp ID 116 OF OBentr00

REDEFINE SAY Sacla0 ID 5 OF OBentr00
REDEFINE SAY Sacla1 ID 8 OF OBentr00
REDEFINE SAY Sacla2 ID 9 OF OBentr00
REDEFINE SAY Sacla3 ID 23 OF OBentr00

REDEFINE BITMAP bdibu ID 19 OF OBentr00 FILENAME (Bent)

REDEFINE BTNBMP vbot1 ID 120 OF OBentr00 FILENAME (Bacep) NOBORDER ACTION
VERIFICA(OBentr00)

REDEFINE BTNBMP vbot2 ID 109 OF OBentr00 FILENAME (Bsali) NOBORDER ACTION
dwpri:END()

REDEFINE LISTBOX lisbas VAR este FIELDS HEMP->hymecodi,HEMP->hymeempr ID 113
OF OBentr00 ;
HEADERS "Código","Nombre";
ON CHANGE
(codemp:=(HEMP->hymecodi),anoemp:=(HEMP->hymeanos),PIDECLAVE())

lisbas:CtrPanel
Oaliusu:bGotFocus:={||Oaliusu:SelectAll()}
Oclausu:bGotFocus:={||Oclausu:SelectAll()}
Oclaemp:bGotFocus:={||Oclaemp:SelectAll()}

ACTIVATE DIALOG OBentr00 ON INIT (lisbas:gotfocus(),lisbas:gotop()) VALID
(Salir)

Un abrazo desde colomb ia

LEANDRO ALFONSO

[DanielPuente]

Alfonso:

Sigues sin decirnos la descripcion exacta del error y en que linea se produce, por ejemplo si nos dijeras, el error dice:

Descripci¢n: Error BASE/1081 Error de argumento: +
Invocado por TIT_ENTE(858)

Y cual es la linea 858 de tu programa (siguiendo este ejemplo) te podriamos decir exactamente cual es el problema.

De todas maneras:

-Si el error es en este boton nos deberias decir la descripcion exacta del error y en que linea de verifica() se produce y que tienes escrito ahi

REDEFINE BTNBMP vbot1 ID 120 OF OBentr00 FILENAME (Bacep) NOBORDER ACTION
VERIFICA(OBentr00)

-Y es este boton supongo que lo que deberias cerrar ahi es el dialogo (oBentr00:End()) y no el control que lo contiene (dwpri) que supongo que sera alguna ventana.

REDEFINE BTNBMP vbot2 ID 109 OF OBentr00 FILENAME (Bsali) NOBORDER ACTION
dwpri:END()

Mostranos la descripcion y la linea del error.

Saludos

Hola a todos los compañeros del foro,
tengo el problema que los botones no me ejecutan al acción que necesito y me genera un error de argumento.

intente con los botones BTNBMP y no lo logre tampoco me sigue arrojando el
mismo error

defino lode botones de la siguiente menera:

DEFINE DIALOG OBentr00 RESOURCE "OBentr00" OF dwpri

REDEFINE GET Oaliusu VAR Galiusu ID 110 OF OBentr00
REDEFINE GET Oclausu VAR Gclausu ID 111 OF OBentr00
REDEFINE GET Oclaemp VAR Gclaemp ID 116 OF OBentr00

REDEFINE SAY Sacla0 ID 5 OF OBentr00
REDEFINE SAY Sacla1 ID 8 OF OBentr00
REDEFINE SAY Sacla2 ID 9 OF OBentr00
REDEFINE SAY Sacla3 ID 23 OF OBentr00

REDEFINE BITMAP bdibu ID 19 OF OBentr00 FILENAME (Bent)

REDEFINE BTNBMP vbot1 ID 120 OF OBentr00 FILENAME (Bacep) NOBORDER ACTION
VERIFICA(OBentr00)

REDEFINE BTNBMP vbot2 ID 109 OF OBentr00 FILENAME (Bsali) NOBORDER ACTION
dwpri:END()

REDEFINE LISTBOX lisbas VAR este FIELDS HEMP->hymecodi,HEMP->hymeempr ID 113
OF OBentr00 ;
HEADERS "Código","Nombre";
ON CHANGE
(codemp:=(HEMP->hymecodi),anoemp:=(HEMP->hymeanos),PIDECLAVE())

lisbas:CtrPanel
Oaliusu:bGotFocus:={||Oaliusu:SelectAll()}
Oclausu:bGotFocus:={||Oclausu:SelectAll()}
Oclaemp:bGotFocus:={||Oclaemp:SelectAll()}

ACTIVATE DIALOG OBentr00 ON INIT (lisbas:gotfocus(),lisbas:gotop()) VALID
(Salir)

Un abrazo desde colomb ia

LEANDRO ALFONSO

[Carlos Mora]

Daniel,
hace falta hacer quote del mensaje? Digo, para ahorrar espacio, lectura, etc.

Por lo general se deja solo lo minimo necesario

Saludos