caso super extraño

caso super extraño

Postby Loren » Tue Jan 30, 2018 1:33 pm

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.
Loren
 
Posts: 479
Joined: Fri Feb 16, 2007 10:29 am
Location: Cadiz - España

Re: caso super extraño

Postby karinha » Tue Jan 30, 2018 2:22 pm

Como esta haciendo, asi?

Code: Select all  Expand view

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
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: caso super extraño

Postby Loren » Tue Jan 30, 2018 10:49 pm

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
Loren
 
Posts: 479
Joined: Fri Feb 16, 2007 10:29 am
Location: Cadiz - España


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 12 guests