caso super extraño

[Loren]

buenas:

Tengo el caso de un Dialog con un listbox. Al hacer doble click en cualquier registro te abre un dialog y al cerrarlo el contenido del listbox desaparece sin más!!... Hay que cerrar el Dialog y volverlo abrir para que se refresque y vuelva a mostrar los registros.
Sin embargo el mismo EXE con los mismos DATOS se ejecuta en otro PC y funciona perfectamente!!

Utilizo DBF/CDX

¿Como es posible? ¿El PC influye en algo?

Gracias.
LORENZO.

[karinha]

Como esta haciendo, asi?

Code: Select all  Expand view  RUN

REQUEST OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto

FUNCTION...


    REDEFINE LISTBOX oLbx FIELDS                                    ;
             (DbClientes:cAlias)->RAZ_MATRIC                      , ;
             (DbClientes:cAlias)->DEST_NOME                       , ;
             (DbClientes:cAlias)->END                             , ;
             (DbClientes:cAlias)->BAI                             , ;
             (DbClientes:cAlias)->CID                             , ;
             (DbClientes:cAlias)->CEP                             , ;
             (DbClientes:cAlias)->TEL                             , ;
             (DbClientes:cAlias)->TEL2                            , ;
             (DbClientes:cAlias)->TEL3                              ;
             HEADERS ( OemToAnsi( "C¢digo/Cnpj/Cpf" ) )           , ;
                     ( OemToAnsi( "Nome/RazÆo Social=> "          + ;
                     "<Click> Mouse Direito<Menu>" ) )            , ;
                     ( OemToAnsi( "Endere‡o"        ) )           , ;
                     ( OemToAnsi( "Bairro"          ) )           , ;
                     ( OemToAnsi( "Cidade"          ) )           , ;
                     ( OemToAnsi( "Cep"             ) )           , ;
                     ( OemToAnsi( "Telefone"        ) )           , ;
                     ( OemToAnsi( "Telefone"        ) )           , ;
                     ( OemToAnsi( "Telefone"        ) )             ;
             FIELDSIZES 130, 480, 480, 200, 200, 100, 150, 150, 150 ;
             COLOR CLR_BROWN, CLR_LGREEN                            ;
             FONT oFont                                             ;
             CURSOR oHand                                           ;
             UPDATE                                                 ;
             ID 101                                                 ;
             OF oDlg                                                ;
             ON DBLCLICK( GETCLIENTES( .F., DbClientes, DbCabec,    ;
                                            DbPaieMae, DeOndeVem ), ;
                 oLbx:SetFocus(), oLbx:Refresh(), oLbx:DrawSelect() )

    oLbx:nClrBackHead  := CLR_LGREEN
    oLbx:nClrText      := {|| nRGB( 165,  42,  42 ) }
    oLbx:nClrBackFocus := CLR_HRED
    oLbx:nClrForeFocus := CLR_YELLOW
    oLbx:nClrForeHead  := CLR_HRED
    oLbx:nClrPane      := { || IIF( ( oLbx:cAlias )->( OrdKeyNo() ) %2 == 0, ;
                               CLR_LGREEN, CLR_LGRAY ) }
    oLbx:nColAct       := 2
    oLbx:nLineStyle    := 3
    oLbx:lCellStyle    := .T.
    oLbx:aJustify := { .T., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F. }
    oLbx:lMChange      := .F.
    oLbx:SetFocus()
    oLbx:Refresh()
 

Saludos

[Loren]

Karinha, gracias por contestar.

Después de muchas vueltas y revisiones observé que el problema estaba en un dbsetfilter incorrecto. Además los pasos a seguir daban en un PC no eran exactamente los mismos a en el otro... Y eso precisamente provocaba ese mal funcionamiento .
Gracias.
Saludos
Lorenzo