PROBLEMA CON ON CHANGE
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
BUENOS DIAS A TODOS Y SALUDOS DESDE TAMPICO, TAMPS. MEXICO
COMO LES HABIA COMENTADO EN OTROS MENSAJES SOY NUEVO EN ESTO Y PUES SI LES ESTARE PREGUNTANDO DE MUCHAS DUDAS QUE ME VAN SURGIENDO.
AHORITA ESTOY HACIENDO UN MODULO DE CXC Y EN UN LISTBOX YA VISUALICE ALGUNOS CAMPOS QUE NECESITO DEL DBF DE CLIENTE, PERO QUIERO HACER QUE CUANDO VAYA RECORRIENDO UN REGISTRO, EN OTRO DLG O EN ESE MISMO PERO EN LA PARTE DE ABAJO SE DESPLIEGUE EL RESTO DE LA INFORMACION DE ESOS CLIENTES.
EJEMPLO
DESPLIEGO LOS 3 PRIMEROS DATOS QUE SOLO SON DE CONSULTAS
CLAVE NOMBRE RFC
1 NOMBRE1 GFSE312323
2 NOMBRE2 ERTY423423
...
...
--------------------------------------------------------
AL MOMENTO DE ESTAR UBICADO EN NOMBRE 1 EN ESE MISMO DIALOGO O EN OTRO APARECER EL RESTO DE LA INFORMACION DE NOMBRE1 QUE SERIAN DIRECCION, TELEFONO, ETC. ETC.
AQUI LES ENVIO LA FUNCION QUE LLEVO HASTA EL MOMENTO EN DONDE ME MARCA ERROR EN EL ON CHANGE.
function BrwClientes()
local oDlg, oBrw
local oLbx
local cVar
local n
local oDlg1
local aHBitMaps:= { ReadBitmap( 0, "..\bitmaps\Level1.bmp" ), ; // BitMaps de 14 x 32
ReadBitmap( 0, "..\bitmaps\Level2.bmp" ), ;
ReadBitmap( 0, "..\bitmaps\Level3.bmp" ), ;
ReadBitmap( 0, "..\bitmaps\Level4.bmp" ),;
ReadBitmap( 0, "..\bitmaps\Level5.bmp" ) }
aXDts := {"4","30","30","10","6","10","12","10","6","3","10" }
// WHEN .F. al final
USE Cat_cli
if RecCount() == 0
APPEND BLANK
endif
INDEX ON cat_cli->Nombre TO Nombre
SET INDEX TO Nombre
GO TOP
DEFINE DIALOG oDlg FROM 3, 3 TO 26, 85 TITLE "Administrador de Clientes"
@ 2, 2 SAY oSay PROMPT "Datos Generales"
@ 2, 3 say oSay Prompt "Generales" of oDlg
@ 0, 1 SAY " &Listado de Clientes" OF oDlg
@ 10,1 get aXDts[1] OF oDlg UPDATE when .F.
@ 1, 1 LISTBOX oLbx FIELDS;
cat_cli->Clave, AllTrim( cat_cli->Nombre ),;
cat_cli->RFC;
HEADERS "CLAVE", "NOMBRE", "RFC";
FIELDSIZES 50, 300, 100;
ON CHANGE ( aXDts[1] := cat_cli->clave, aXDts[2] := cat_cli->Nombre, aXDts[3] := cat_cli->calle,;
aXDts[4] := cat_cli->colonia, aXDts[5] := cat_cli->codigo, aXDts[6] := cat_cli->ciudad,;
aXDts[7] := cat_cli->rfc, aXDts[8] := cat_cli->saldo, aXDts[9] := cat_cli->tipo,;
aXDts[10] := cat_cli->cve, aXDts[11] := cat_cli->importe, oDlg:Update() ) ;
SIZE 284, 137 OF oDlg
//oBrw:bChange := {|| Cambios1() }
oLbx:aJustify = {.f., .f., .t.}
@ 8.8, 1 BUTTON "&Agregar" OF oDlg //ACTION EditClient( oLbx, .t. ) SIZE 40, 12
@ 8.8, 10 BUTTON "&Modificar" OF oDlg //ACTION EditClient( oLbx, .f. ) SIZE 40, 12
@ 8.8, 21 BUTTON "&Borrar" OF oDlg //ACTION DelClient( oLbx ) SIZE 40, 12
@ 8.8, 29 BUTTON "&Buscar" OF oDlg //ACTION SeekClient( oLbx ) SIZE 40, 12
@ 8.8, 37 BUTTON "&Imprimir" OF oDlg ;
//ACTION oLbx:Report( "clients Report", .t. ) ; // .t. --> wants preview
//SIZE 40, 12
@ 8.8, 47 BUTTON "&Salir" OF oDlg ACTION oDlg:End() SIZE 40, 12
ACTIVATE DIALOG oDlg
USE
AEval( aHBitmaps, { | hBmp | DeleteObject( hBmp ) } )
return nil
ME GUSTARIA QUE ME AYUDARAN CON ALGUNA SUGERENCIA Y PUES ESTE ES EL CODIGO DE ESTA FUNCION
SALUDOS
RUBEN REYES
COMO LES HABIA COMENTADO EN OTROS MENSAJES SOY NUEVO EN ESTO Y PUES SI LES ESTARE PREGUNTANDO DE MUCHAS DUDAS QUE ME VAN SURGIENDO.
AHORITA ESTOY HACIENDO UN MODULO DE CXC Y EN UN LISTBOX YA VISUALICE ALGUNOS CAMPOS QUE NECESITO DEL DBF DE CLIENTE, PERO QUIERO HACER QUE CUANDO VAYA RECORRIENDO UN REGISTRO, EN OTRO DLG O EN ESE MISMO PERO EN LA PARTE DE ABAJO SE DESPLIEGUE EL RESTO DE LA INFORMACION DE ESOS CLIENTES.
EJEMPLO
DESPLIEGO LOS 3 PRIMEROS DATOS QUE SOLO SON DE CONSULTAS
CLAVE NOMBRE RFC
1 NOMBRE1 GFSE312323
2 NOMBRE2 ERTY423423
...
...
--------------------------------------------------------
AL MOMENTO DE ESTAR UBICADO EN NOMBRE 1 EN ESE MISMO DIALOGO O EN OTRO APARECER EL RESTO DE LA INFORMACION DE NOMBRE1 QUE SERIAN DIRECCION, TELEFONO, ETC. ETC.
AQUI LES ENVIO LA FUNCION QUE LLEVO HASTA EL MOMENTO EN DONDE ME MARCA ERROR EN EL ON CHANGE.
function BrwClientes()
local oDlg, oBrw
local oLbx
local cVar
local n
local oDlg1
local aHBitMaps:= { ReadBitmap( 0, "..\bitmaps\Level1.bmp" ), ; // BitMaps de 14 x 32
ReadBitmap( 0, "..\bitmaps\Level2.bmp" ), ;
ReadBitmap( 0, "..\bitmaps\Level3.bmp" ), ;
ReadBitmap( 0, "..\bitmaps\Level4.bmp" ),;
ReadBitmap( 0, "..\bitmaps\Level5.bmp" ) }
aXDts := {"4","30","30","10","6","10","12","10","6","3","10" }
// WHEN .F. al final
USE Cat_cli
if RecCount() == 0
APPEND BLANK
endif
INDEX ON cat_cli->Nombre TO Nombre
SET INDEX TO Nombre
GO TOP
DEFINE DIALOG oDlg FROM 3, 3 TO 26, 85 TITLE "Administrador de Clientes"
@ 2, 2 SAY oSay PROMPT "Datos Generales"
@ 2, 3 say oSay Prompt "Generales" of oDlg
@ 0, 1 SAY " &Listado de Clientes" OF oDlg
@ 10,1 get aXDts[1] OF oDlg UPDATE when .F.
@ 1, 1 LISTBOX oLbx FIELDS;
cat_cli->Clave, AllTrim( cat_cli->Nombre ),;
cat_cli->RFC;
HEADERS "CLAVE", "NOMBRE", "RFC";
FIELDSIZES 50, 300, 100;
ON CHANGE ( aXDts[1] := cat_cli->clave, aXDts[2] := cat_cli->Nombre, aXDts[3] := cat_cli->calle,;
aXDts[4] := cat_cli->colonia, aXDts[5] := cat_cli->codigo, aXDts[6] := cat_cli->ciudad,;
aXDts[7] := cat_cli->rfc, aXDts[8] := cat_cli->saldo, aXDts[9] := cat_cli->tipo,;
aXDts[10] := cat_cli->cve, aXDts[11] := cat_cli->importe, oDlg:Update() ) ;
SIZE 284, 137 OF oDlg
//oBrw:bChange := {|| Cambios1() }
oLbx:aJustify = {.f., .f., .t.}
@ 8.8, 1 BUTTON "&Agregar" OF oDlg //ACTION EditClient( oLbx, .t. ) SIZE 40, 12
@ 8.8, 10 BUTTON "&Modificar" OF oDlg //ACTION EditClient( oLbx, .f. ) SIZE 40, 12
@ 8.8, 21 BUTTON "&Borrar" OF oDlg //ACTION DelClient( oLbx ) SIZE 40, 12
@ 8.8, 29 BUTTON "&Buscar" OF oDlg //ACTION SeekClient( oLbx ) SIZE 40, 12
@ 8.8, 37 BUTTON "&Imprimir" OF oDlg ;
//ACTION oLbx:Report( "clients Report", .t. ) ; // .t. --> wants preview
//SIZE 40, 12
@ 8.8, 47 BUTTON "&Salir" OF oDlg ACTION oDlg:End() SIZE 40, 12
ACTIVATE DIALOG oDlg
USE
AEval( aHBitmaps, { | hBmp | DeleteObject( hBmp ) } )
return nil
ME GUSTARIA QUE ME AYUDARAN CON ALGUNA SUGERENCIA Y PUES ESTE ES EL CODIGO DE ESTA FUNCION
SALUDOS
RUBEN REYES