FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Antonio Error En Listbox....
cmarucco
Posts: 46
Joined: Tue Oct 11, 2005 02:23 PM
Antonio Error En Listbox....
Posted: Mon Nov 23, 2009 05:40 PM
Antonio:
De casualidad, presione donde se explica en la imagen y surgio un error...
Te adjunto imagen, error.log y parte del codigo donde ocurre en error del listbox



Code (fw): Select all Collapse
Application
===========
聽 聽Path and name: c:\css\facturacioncss\Menupres.Exe (32 bits)
聽 聽Size: 1,823,232 bytes
聽 聽Time from start: 0 hours 0 mins 13 secs 
聽 聽Error occurred at: 23/11/2009, 14:19:47
聽 聽Error description: Error BASE/1132 聽Bound error: array access
聽 聽Args:
聽 聽 聽[ 聽 1] = A 聽 { ... }
聽 聽 聽[ 聽 2] = N 聽 0

Stack Calls
===========
聽 聽Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:LBUTTONDOWN(1118)
聽 聽Called from: 聽=> TWINDOW:HANDLEEVENT(0)
聽 聽Called from: .\source\classes\CONTROL.PRG => TWBROWSE:HANDLEEVENT(1453)
聽 聽Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
聽 聽Called from: 聽=> DIALOGBOX(0)
聽 聽Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
聽 聽Called from: ftepres\prestador.PRG => BUSCO_DIAG(809)
聽 聽Called from: ftepres\prestador.PRG => (b)SIGOBONOS(297)
聽 聽Called from: .\source\classes\WINDOW.PRG => TWINDOW:LBUTTONDOWN(1821)
聽 聽Called from: .\source\classes\CONTROL.PRG => TBITMAP:LBUTTONDOWN(485)
聽 聽Called from: 聽=> TWINDOW:HANDLEEVENT(0)
聽 聽Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1453)
聽 聽Called from: .\source\classes\BITMAP.PRG => TBITMAP:HANDLEEVENT(511)
聽 聽Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
聽 聽Called from: 聽=> DIALOGBOX(0)
聽 聽Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
聽 聽Called from: ftepres\prestador.PRG => SIGOBONOS(413)
聽 聽Called from: ftepres\prestador.PRG => (b)BONOS(157)
聽 聽Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
聽 聽Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1411)
聽 聽Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
聽 聽Called from: 聽=> SENDMESSAGE(0)
聽 聽Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(407)
聽 聽Called from: 聽=> TWINDOW:HANDLEEVENT(0)
聽 聽Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(928)
聽 聽Called from: 聽=> DIALOGBOX(0)
聽 聽Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
聽 聽Called from: ftepres\prestador.PRG => BONOS(163)
聽 聽Called from: ftepres\prestador.PRG => (b)FACTURACION(60)
聽 聽Called from: .\source\classes\BUTTON.PRG => TBUTTON:CLICK(176)
聽 聽Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT(1411)
聽 聽Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
聽 聽Called from: 聽=> SENDMESSAGE(0)
聽 聽Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND(407)
聽 聽Called from: 聽=> TWINDOW:HANDLEEVENT(0)
聽 聽Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT(928)
聽 聽Called from: 聽=> DIALOGBOX(0)
聽 聽Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE(273)
聽 聽Called from: ftepres\prestador.PRG => FACTURACION(68)
聽 聽Called from: ftepres\menupres.prg => (b)BUILDMENU(143)
聽 聽Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(437)
聽 聽Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1003)
聽 聽Called from: 聽=> TWINDOW:HANDLEEVENT(0)
聽 聽Called from: .\source\classes\WINDOW.PRG => _FWH(3333)
聽 聽Called from: 聽=> WINRUN(0)
聽 聽Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(952)
聽 聽Called from: ftepres\menupres.prg => MENU(90)



Code (fw): Select all Collapse
DEFINE DIALOG oDlg RESOURCE "Buscadiag" OF oWnd Title OemToAnsi("Consulta y Selecci垄n de Diagn垄sticos")

聽 聽REDEFINE SAY o199 VAR cTexto 聽 聽 聽 聽ID 199 OF oDlg 聽Font oFont12b

聽 聽Redefine Listbox oLbx Fields;
聽 聽 聽 聽 聽 聽 聽Diagaux->Clave,Diagaux->Descrip;
聽 聽 聽 聽 聽 聽 聽Headers "Clave",OemToAnsi("Descripci垄n");
聽 聽 聽 聽 聽 聽 聽Fieldsizes 40,400;
聽 聽 聽 聽 聽 聽 聽ON Dblclick (cDiag1:=Diagaux->Clave,oDlg:END());
聽 聽 聽 聽 聽 聽 聽id 600 Of oDlg color rgb(0,0,0), rgb(141,184,146) Font oFont12b

聽 聽oLbx:aJustify = {.F.,.F.}
聽 聽oLbx:aActions 聽 聽 聽 聽:= ARRAY( LEN( oLbx:aHeaders ) )
聽 聽oLbx:aActions[ 聽1 ] 聽:= { || (Diagaux->(OrdSetFocus("Clave")) 聽,oLbx:GoTop(), oLbx:Refresh()) }
聽 聽oLbx:aActions[ 聽2 ] 聽:= { || (Diagaux->(OrdSetFocus("Descrip")),oLbx:GoTop(), oLbx:Refresh()) }

聽 聽oLbx:nClrText 聽 聽 聽= { || SelColorDiagaux() }


Desde ya muchas Gracias.

Carlos Gustavo Marucco
Rio Gallegos - Santa cruz
PATAGONIA ARGENTINA
Carlos Gustavo Marucco

Rio Gallegos - Santa Cruz

PATAGONIA ARGENTINA

FWH 10.08 - Eagle1 Ver 6.0 - xHarbour 1.2.1 Rev 6717

xMate Ver 1.15 - Workshop Ver 4.5 - Windows 7
Ramon Paredes
Posts: 215
Joined: Fri Feb 02, 2007 03:38 PM
Re: Antonio Error En Listbox....
Posted: Mon Nov 23, 2009 07:17 PM

cmarucco,

donde envias el doble click deberia decir ON LEFT DBLCLICK probablemente esto este ocasionandote el error,

ojala te sirva de algo

saludes desde Managua, Nicaragua

Ramon Paredes

... Desde la Tierra de lagos y Volcanes......
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM
Re: Antonio Error En Listbox....
Posted: Tue Nov 24, 2009 11:25 AM
Code (fw): Select all Collapse
#Include "FiveWin.Ch"


Request OrdKeyNo
Request OrdKeyCount
Request OrdKeyGoto

//--------------------------------------------------------------------------//
// Edicao dos dados
//--------------------------------------------------------------------------//
FUNCTION CONVENIO( DeOndeVem )


   //-> Dialogo By Borland Resource WORKSHOP.EXE
   DEFINE DIALOG oDlg RESOURCE "DLG_CONVENIO"                                ;
          COLOR nRgb( 000, 000, 000 ), nRgb( 238, 221, 187 )

   oDlg:lHelpIcon := .F.

   REDEFINE LISTBOX oLbx FIELDS                                              ;
            ( cAlias )->CODIGO                                             , ; 
            ( cAlias )->NOME                                               , ;
            ( cAlias )->APELIDO                                            , ;
            ( cAlias )->END                                                , ; 
            ( cAlias )->BAI                                                , ; 
            ( cAlias )->CID                                                , ; 
            ( cAlias )->UF                                                 , ; 
            ( cAlias )->CEP                                                , ; 
            ( cAlias )->TEL                                                , ; 
            ( cAlias )->TEL2                                               , ; 
            ( cAlias )->TEL3                                               , ; 
            ( cAlias )->CGC                                                , ; 
            ( cAlias )->IE                                                 , ; 
            ( cAlias )->CONTATO                                            , ;
            ( cAlias )->RAMAL_1                                            , ; 
            ( cAlias )->RAMAL_2                                            , ;
            ( cAlias )->DATA_CADAS                                         , ; 
            ( cAlias )->MELHOR_DIA                                         , ; 
            ( cAlias )->VALOR_DEV                                          , ; 
            ( cAlias )->VALOR_PERD                                         , ; 
            ( cAlias )->VLPERDAACE                                         , ; 
            ( cAlias )->EMAIL                                              , ; 
            ( cAlias )->WEB                                                , ; 
            ( cAlias )->OBS                                                , ; 
            ( cAlias )->OBS2                                               , ; 
            ( cAlias )->OBS3                                               , ;
            SPACE(01)                                                        ; 
            HEADERS ( OemToAnsi( "CODIGO     " ) )                         , ; 
                    ( OemToAnsi( "NOME       " ) )                         , ;
                    ( OemToAnsi( "APELIDO    " ) )                         , ;
                    ( OemToAnsi( "ENDERE鈧琌   " ) )                         , ;
                    ( OemToAnsi( "BAIRRO     " ) )                         , ;
                    ( OemToAnsi( "CIDADE     " ) )                         , ;
                    ( OemToAnsi( "UF         " ) )                         , ; 
                    ( OemToAnsi( "CEP        " ) )                         , ; 
                    ( OemToAnsi( "FONE       " ) )                         , ;
                    ( OemToAnsi( "FONE       " ) )                         , ;
                    ( OemToAnsi( "FONE       " ) )                         , ;
                    ( OemToAnsi( "CNPJ       " ) )                         , ;
                    ( OemToAnsi( "IE         " ) )                         , ; 
                    ( OemToAnsi( "CONTATO    " ) )                         , ; 
                    ( OemToAnsi( "RAMAL 1    " ) )                         , ;
                    ( OemToAnsi( "RAMAL 2    " ) )                         , ;
                    ( OemToAnsi( "CADASTRO EM" ) )                         , ;
                    ( OemToAnsi( "MELHOR DIA " ) )                         , ;
                    ( OemToAnsi( "VALOR DEV  " ) )                         , ;
                    ( OemToAnsi( "% PERDA    " ) )                         , ;
                    ( OemToAnsi( "PERDA ACE  " ) )                         , ;
                    ( OemToAnsi( "EMAIL      " ) )                         , ; 
                    ( OemToAnsi( "WEB        " ) )                         , ; 
                    ( OemToAnsi( "OBS1       " ) )                         , ;
                    ( OemToAnsi( "OBS2       " ) )                         , ; 
                    ( OemToAnsi( "OBS3       " ) )                         , ; 
                    ( OemToAnsi( " - "         ) )                           ; 
            FIELDSIZES 070, 450, 300, 500, 200, 200, 070, 100, 190, 190, 190,;
                       200, 200, 400, 070, 070, 100, 070, 130, 130, 130, 450,;
                       450, 750, 750, 750, 01                                ;
            COLOR CLR_BROWN, CLR_LGREEN                                      ;
            CURSOR oCurDedo  FONT oFnt                                       ;
            UPDATE                                                           ;
            ON CHANGE( CARREGACON(oLbx), lSalvar := .F., lEsAlta := .F.,     ;
                                                     lEsModi := .F. )        ;
            ID 1013 OF oDlg            

   //-----------------------------------------------------------------------// 
   oLbx:nClrBackHead  := CLR_GREEN
   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_GREEN, CLR_LGRAY ) }
   oLbx:nColAct       := 2
   oLbx:nLineStyle    := 3
   oLbx:lCellStyle    := .T.
   //-> Agrega esto:
   oLbx:aJustify := { .T., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F., ;
                      .F., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F., ;
                      .F., .F., .F., .F., .F., .F., .F., .F., .F., .F., .F. }
   oLbx:lMChange      := .F.
   oLbx:SetFocus()
   oLbx:Refresh()

   //-----------------------------------------------------------------------//



   ACTIVATE DIALOG oDlg CENTERED

   DbCloseArea() 

   oFont:End() 
   oFnt:End()  

   Release All 


RETURN NIL


Saludos.
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
cmarucco
Posts: 46
Joined: Tue Oct 11, 2005 02:23 PM
Re: Antonio Error En Listbox....
Posted: Tue Nov 24, 2009 01:38 PM

Gracias por las respuestas ..... pero he probado con ambas y sigue el mismo error .....

Carlos Gustavo Marucco

Rio Gallegos - Santa Cruz

PATAGONIA ARGENTINA

FWH 10.08 - Eagle1 Ver 6.0 - xHarbour 1.2.1 Rev 6717

xMate Ver 1.15 - Workshop Ver 4.5 - Windows 7
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Antonio Error En Listbox....
Posted: Tue Nov 24, 2009 02:39 PM

Carlos,

Puedes copiar aqui el c贸digo que tiene el wbrowse.prg en la l铆nea 1118 ? gracias :-)

.\source\classes\WBROWSE.PRG => TWBROWSE:LBUTTONDOWN(1118)

regards, saludos

Antonio Linares
www.fivetechsoft.com
cmarucco
Posts: 46
Joined: Tue Oct 11, 2005 02:23 PM
Re: Antonio Error En Listbox....
Posted: Tue Nov 24, 2009 04:48 PM
Gracias Antonio....
Aqui va lo que pediste, con nota de donde esta la linea 1118 ....

Code (fw): Select all Collapse
 聽 if nClickRow == 0 .and. Valtype(nKeyFlags) == "N"
聽 聽 聽 if ::aActions != nil .and. ;
聽 聽 聽 聽 聽( nAtCol := ::nAtCol( nCol ) ) <= Len( ::aActions )
聽 聽 聽 聽 聽 聽 if ::aActions[ nAtCol ] != nil 聽 聽 聽 聽 聽 聽------->>>> 聽 聽 聽//Esta es 聽Linea 1118 !!!!!
聽 聽 聽 聽 聽 聽 聽 聽wBrwLine( ::hWnd, ::GetDC(), 0, ::aHeaders, ::GetColSizes(),;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽::nColPos, ::nClrForeHead, ::nClrBackHead,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽If( ::oFont != nil, ::oFont:hFont, 0 ),.f.,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽::aJustify, nAtCol, ::nLineStyle,,, ::oVScroll, ::bLogicLen )
聽 聽 聽 聽 聽 聽 聽 聽::ReleaseDC()
聽 聽 聽 聽 聽 聽 聽 聽Eval( ::aActions[ nAtCol ], Self, nRow, nCol )
聽 聽 聽 聽 聽 聽 聽 聽wBrwLine( ::hWnd, ::GetDC(), 0, ::aHeaders, ::GetColSizes(),;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽::nColPos, ::nClrForeHead, ::nClrBackHead,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽If( ::oFont != nil, ::oFont:hFont, 0 ),.f.,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽::aJustify,, ::nLineStyle,,, ::oVScroll, ::bLogicLen )
聽 聽 聽 聽 聽 聽 聽 聽::ReleaseDC()
聽 聽 聽 聽 聽 聽 else
聽 聽 聽 聽 聽 聽 聽 聽MsgBeep()
聽 聽 聽 聽 聽 聽 endif
聽 聽 聽 else
聽 聽 聽 聽 聽MsgBeep()
聽 聽 聽 endif
聽 聽endif
Carlos Gustavo Marucco

Rio Gallegos - Santa Cruz

PATAGONIA ARGENTINA

FWH 10.08 - Eagle1 Ver 6.0 - xHarbour 1.2.1 Rev 6717

xMate Ver 1.15 - Workshop Ver 4.5 - Windows 7
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Antonio Error En Listbox....
Posted: Tue Nov 24, 2009 06:27 PM
Carlos,

Tendrias que modificar el c贸digo de wbrowse.prg de esta forma:
Code (fw): Select all Collapse
  if nClickRow == 0 .and. Valtype(nKeyFlags) == "N"
      if ::aActions != nil .and. ;
         ( nAtCol := ::nAtCol( nCol ) ) <= Len( ::aActions ) .and. nAtCol != 0  // aqui !!!
            if ::aActions[ nAtCol ] != nil            ------->>>>      //Esta es  Linea 1118 !!!

luego puedes enlazar el wbrowse.prg como un PRG de tu aplicaci贸n 贸 reemplazarlo en FiveH.lib
regards, saludos

Antonio Linares
www.fivetechsoft.com
cmarucco
Posts: 46
Joined: Tue Oct 11, 2005 02:23 PM
Re: Antonio Error En Listbox....
Posted: Wed Nov 25, 2009 04:24 PM

Antonio: Modifique lo que me apuntaste, actualice Fivehx.lib y funciono perfectamente .....
Muchas Gracias .....

Carlos Gustavo Marucco

Rio Gallegos - Santa Cruz

PATAGONIA ARGENTINA

FWH 10.08 - Eagle1 Ver 6.0 - xHarbour 1.2.1 Rev 6717

xMate Ver 1.15 - Workshop Ver 4.5 - Windows 7
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: Antonio Error En Listbox....
Posted: Wed Nov 25, 2009 07:43 PM

Carlos,

bien :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions