Ayuda por favor con folder y listbox

[jpcavagnaro]

Hola, necesito hacer una pantalla con 4 folders de las cuales 3 tienen listbox, el problrma que tengo es que no muestran los datos, muestra un solo registro, a persar de que los datos se graban bien en las dbf.

DEFINE WINDOW oWndChild MDICHILD OF oWnd FROM 0, 0 TO 24, 79TITLE "Carga Informe de Auditoría " font oFont11
DEFINE DIALOG princfac RESOURCE "Informe" ;
OF oWndChild


REDEFINE FOLDER ofld1 ID 110 OF princfac ;
PROMPT "&Encabezado", "&Información General", "Resultados", "Cierre" ; // BITMAPS "new", "open1", "Presupu";
DIALOGS "solapa1", "solapa2", "Solapa3", "Solapa4" // round 10 transparent // BOTTOM


REDEFINE GET onrocli var xnrocli ID 101 OF ofld1:aDialogs[ 1 ] picture "999999" valid ( val_cli( xnrocli ), onrocli:Refresh(), onomcli:refresh(), odircli:refresh(), BuscoAntInfo( xnrocli, xNUsuario, ofld1:aDialogs[ 1 ] ), .t. )
REDEFINE say onomcli var xnombre ID 202 OF ofld1:aDialogs[ 1 ]
REDEFINE say odircli var xdomic ID 206 OF ofld1:aDialogs[ 1 ]


REDEFINE COMBOBOX oAudit_ant var wAudit_Ant ITEMS Taudit_antf ;
ON CHANGE ( xAudit_Ant := oAudit_ant:nAt, CargoAntInfo( xAudit_Ant, ofld1:aDialogs[ 1 ] ) ) ;
ID 4001 OF ofld1:aDialogs[ 1 ] when len( Taudit_antf ) > 0

.........

*-------------------------------------------------------------------------------------------------------------
*
redefine LISTBOX oRApertur ;
FIELDS ;
RApertur->nombre, ;
RApertur->apellido, ;
RApertur->CargoArea ;
headers "Nombre", "Apellido", ;
"Cargo" ;
SIZES 200, 200, 100 ;
id 215 OF ofld1:aDialogs[ 2 ] update

oRApertur:bLClicked := { || (dbselectarea( "RApertur" ),oFld1:aDialogs[2]:update) }
oRApertur:nClrPane := { || IIF( ( recno() ) % 2 == 0 , ; // Efecto "Pijama"
RGB( 193, 221, 255 ), RGB( 221, 245, 255 ) ) }
oRApertur:bKeyDown := { | nKey | RABrowse(, 1, oRApertur, nkey, "RApertur" ) }
oRApertur:bLDblClick := { | nRow, nCol, nkey | RABrowse( nRow, ncol, oRApertur, nkey, "RApertur" ) }

.......

*-----------------------------------------------------------------------------------------------------------------------

REDEFINE COMBOBOX oTProcesos var wTProcesos ITEMS TProcesos ;
ON CHANGE ( xprocesos := oTProcesos:nAt, CargoNormasInfo( xProcesos, ofld1:aDialogs[ 3 ] ) ) ;
ID 4001 OF ofld1:aDialogs[ 3 ]

*
redefine LISTBOX oResultado ;
FIELDS str( au_audit->norma, 8, 0 ), ;
au_audit->apartado, ; // au_audit->proceso, ;
au_audit->resultado , ;
au_audit->clasifica ;
headers "Norma", ;
"Requisito", ; // "Proceso" , ;
"Resultado", ;
"Clasifica" ;
SIZES 60, 60, 200, 60 ;
id 216 OF ofld1:aDialogs[ 3 ]

oResultado:bLClicked := { || dbselectarea( "au_audit" ) }
oResultado:nClrPane := { || IIF( ( recno() ) % 2 == 0 , ; // Efecto "Pijama"
RGB( 193, 221, 255 ), RGB( 221, 245, 255 ) ) }
oResultado:bKeyDown := { | nKey | infoBrowse(, 1, oResultado, nkey ) }
oResultado:bLDblClick := { | nRow, nCol, nkey | InfoBrowse( nRow, ncol, oResultado, nkey ) }

*------------------------------------------------------------------------------------------------------------------------

redefine LISTBOX oRCierre ;
FIELDS ;
RCierre->nombre, ;
RCierre->apellido, ;
RCierre->CargoArea ;
headers "Nombre", "Apellido", ;
"Cargo" ;
SIZES 200, 200, 100 ;
id 217 OF ofld1:aDialogs[ 4 ]

oRCierre:bLClicked := { || dbselectarea( "RCierre" ) }
oRCierre:nClrPane := { || IIF( ( recno() ) % 2 == 0 , ; // Efecto "Pijama"
RGB( 193, 221, 255 ), RGB( 221, 245, 255 ) ) }

oRCierre:bKeyDown := { | nKey | RABrowse(, 1, oRCierre, nkey, "RCierre" ) }
oRCierre:bLDblClick := { | nRow, nCol, nkey | RABrowse( nRow, ncol, oRCierre, nkey, "RCierre" ) }

redefine BTNBMP 2007 prompt HB_UTF8CHR( 57642 ) + " Confirma " font oSegoe oNota id 991 OF princfac ACTION ActualiInfo()
redefine BTNBMP 2007 prompt HB_UTF8CHR( 58102 ) + " Imprimir " font oSegoe ID 4002 OF princfac ACTION ( ImprimirInfo() )
redefine BTNBMP oCan 2007 prompt HB_UTF8CHR( 57615 ) + " Volver " font oSegoe ID 992 OF princfac ACTION ( lsave := .f., dbCloseall() , princfac:End(), oWndChild:End() ) // cancel

ACTIVATE DIALOG princfac CENTERED nowait ON INIT princfac:Move( 0, 0 ) //, oRich:LoadRtf( xobserva ), oRich:PostMsg( WM_KEYDOWN, VK_HOME, 0 ))
oWndChild:nWidth := princfac:nWidth + 7
oWndChild:nHeight := princfac:nHeight + 32
ACTIVATE WINDOW oWndChild // ON INIT ( iif ( trabajard <> "S", ( oNota:hide(), oNotaSG:hide(), oAcopio:hide(), oretiro:Hide(), otretiro:Hide(),, obtnlic:Hide() ), ) )

Con todos los demás campos no tengo problemas funciona perfecto, solo los listbox

Saludos
Jorge

[jpcavagnaro]

Lo solucione usando xbrowse.

Saludos
Jorge