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
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour no funcionan botones
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,
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,
leandro alfonso wrote: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
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
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
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
leandroalfonso wrote: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
Daniel,
hace falta hacer quote del mensaje? Digo, para ahorrar espacio, lectura, etc.
Por lo general se deja solo lo minimo necesario
Saludos