Buenas tardes ... solicito ayuda al foro
Se están presentando esporádicamente estos errores
Error # 1
Application
===========
Path and name: C:\RusSoft\ZERUS\ZERUSWIN.EXE (32 bits)
Size: ********* bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141202)
FiveWin Version: FWHX 14.12
Windows version: 6.2, Build 9200
Time from start: 0 hours 6 mins 54 secs
Error occurred at: 01/02/2015, 16:11:10
Error description: Error BASE/1133 Bound error: array assign
Args:
[ 1] = N 15
Stack Calls
===========
Called from: source\classes\xbrowse.prg => TXBROWSE:GODOWN( 2975 )
Called from: source\classes\xbrowse.prg => TXBROWSE:MOUSEWHEEL( 3953 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: Source\Classes\control.prg => TCONTROL:HANDLEEVENT( 1733 )
Called from: source\classes\xbrowse.prg => TXBROWSE:HANDLEEVENT( 12612 )
Called from: Source\Classes\window.prg => _FWH( 3345 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: Source\Classes\dialog.prg => TDIALOG:ACTIVATE( 286 )
Called from: C:\Desarro\ZerusGes\VersionActual\FUENTES\COMUNES\FW_FUNCSST1.PRG => BROWSEMY( 3014 )
Error # 2
-------------------- Internal Error Handling Information ---------------------
Subsystem Call ....: BASE
System Code .......: 1133
Default Status ....: .F.
Description .......: Bound error
Operation .........: array assign
Arguments .........: [ 1] = Type: N Val: 1
Involved File .....:
Dos Error Code ....: 0
Trace Through:
----------------
TXBROWSE:GOUP : 2,887 in Module: source\classes\xbrowse.prg
TXBROWSE:KEYDOWN : 2,310 in Module: source\classes\xbrowse.prg
TWINDOW:HANDLEEVENT : 0 in Module:
TCONTROL:HANDLEEVENT : 1,733 in Module: Source\Classes\control.prg
TXBROWSE:HANDLEEVENT : 12,612 in Module: source\classes\xbrowse.prg
_FWH : 3,341 in Module: Source\Classes\window.prg
DIALOGBOXINDIRECT : 0 in Module:
TDIALOG:ACTIVATE : 286 in Module: Source\Classes\dialog.prg
BUSCAREGISTRO : 764 in Module: C:\Desarro\ZerusGes\VersionActual\FUENTES\COMUNES\FW_FUNCSST3.PRG
//*********************************************************
código de construcción con txbrowse
//*********************************************************
FUNCTION BrowseLibre( oDlgSel ,vConBrw, oPanBrw, cAliTab,cFunEsp, vFunBrw,cManOrd,cActbus,fFunDCl,cTipCol,nFonBro )
LOCAL oCajDia, cCol, aItem , oBrwFW2 , K := 1 , oCol
LOCAL nColPos := 1
local aRowGrad, aSelGrad, aStdGrad
local n := RGB( 157, 248, 255 )
LOCAL aFont := Array( 5 )
LOCAL oFonBro
DEFINE FONT aFont[ 1 ] NAME "Arial" SIZE 8, 10
DEFINE FONT aFont[ 2 ] NAME "Times New Roman" SIZE 10, 16
DEFINE FONT aFont[ 3 ] NAME "Arial Black" SIZE 12, 10
DEFINE FONT aFont[ 4 ] NAME "Courier New" SIZE 14, 10 BOLD
DEFINE FONT aFont[ 5 ] NAME "Tahoma" SIZE 0, -12
IF nFonBro == NIL
oFonBro := M->oFonAc11
ELSEIF nFonBro == 1
oFonBro := aFont[ 1 ]
ELSEIF nFonBro == 2
oFonBro := aFont[ 2 ]
ELSEIF nFonBro == 3
oFonBro := aFont[ 3 ]
ELSEIF nFonBro == 4
oFonBro := aFont[ 4 ]
ELSEIF nFonBro == 5
oFonBro := aFont[ 5 ]
ELSE
oFonBro := M->oFonAc11
ENDIF
XbrNumFormat( 'E', .t. )
aRowGrad := { { .5, RGB( 232, 241, 252 ), RGB( 232, 241, 252 ) }, ;
{ .5, RGB( 210, 225, 244 ), RGB( 235, 243, 253 ) } }
aSelGrad := { { .5, RGB( 255, 255, 251 ), RGB( 255, 237, 178 ) }, ;
{ .5, RGB( 255, 218, 103 ), RGB( 255, 233, 162 ) } }
SELECT &cAliTab
IF cManOrd == NIL
(cAliTab)->( DBGOTOP() )
ENDIF
WITH OBJECT ( oBrwFW2 := TXBrowse():New( oPanBrw ) )
//:lKinetic := .F.
:nMarqueeStyle := MARQSTYLE_HIGHLCELL
:nColDividerStyle := LINESTYLE_BLACK
:nRowDividerStyle := LINESTYLE_BLACK
:lColDividerComplete := .T.
:nHeaderLines := 1
:nFooterLines := 1
:nDataLines := 1
:lFooter := .T.
:lFastEdit := .T.
:nFreeze := 1
:cAlias := cAliTab
:nStretchCol := 1
:nMarqueeStyle := 4
:bClrSelFocus := { || { CLR_GREEN, aSelGrad } }
:bClrRowFocus := { || { CLR_GREEN, aRowGrad } }
IF fFunDCl <> NIL
:bLDblClick := { || IF(fFunDCl=="FIN",oDlgSel:End() , &(fFunDCl) ) }
ENDIF
IF cActBus <> NIL // ALIAS(cAliTab) <> "LEC" .OR.
:bSeek := {|c| DBSEEK(UPPER(C) ) }
ENDIF
:bKeyDown := { | nKey | EvaluaMyTecla(oDlgSel ,cAliTab,oBrwFW2,@nKey,cFunEsp,vFunBrw ) }
FOR EACH aItem IN vConBrw
WITH OBJECT (oCol := oBrwFW2:AddCol())
DataFont := {|| oFonBro }
:bStrData := &( "{||" + aItem[ 1 ] + "}" )
SELECT &cAliTab // ASEGURAR SEGUIR EN EL ALIAS INICIAL
:cHeader := aItem[ 2 ]
:nHeadStrAlign := AL_CENTER
IF aItem[ 3 ] <> NIL
:cEditPicture := aItem[ 3 ]
ENDIF
IF aItem[ 5 ] <> NIL
:nWidth := aItem[ 5 ] * 8
ENDIF
IF aItem [ 4 ] // SI ES VERDADERO HABILITA CAPTURA CON GET
:nEditType = EDIT_GET
:lAutoSave := .F.
:bOnPostEdit := {|o, v, n| IIF ( n != VK_ESCAPE, ModificaColumna(oBrwFW2,cAliTab,SUBS(ALLTRIM(aItem[1]),ATNUM('>',aItem[1],1)+1),v,;
"VALID LOCAL",IF( LEN(aItem)>5,aItem[6],NIL),IF(LEN(aItem)>6,aItem[7],NIL),IF(LEN(aItem)>7,aItem[8],NIL) ), NIL ) }
ENDIF
END
:aCols[ :nFreeze ]:bClrStd := {|| { RGB(191,51,4) ,RGB(234,234,234) } } // CLR_WHITE, CLR_BLUE
NEXT nFor
IF cTipCol <> NIL
IF ALLTRIM( buscaDriverTabla(cAliTab) ) == "SQLRDD" .OR. ALLTRIM( buscaDriverTabla(cAliTab)) == "SQLEX"
:bClrStd := { || If( (cAliTab)->( recno() ) % 2 == 0, { CLR_WHITE, RGB( 234,234,234 ) }, { RGB(0,0,0), RGB( 255,255,242 ) } ) }
ELSE
:bClrStd := { || If( oBrwFW2:KeyNo() % 2 == 0, { CLR_WHITE, RGB( 234,234,234 ) }, { RGB(0,0,0), RGB( 255,255,242 ) } ) }
ENDIF
ELSE
//:bClrStd := {|| {RGB(0,0,0), IIF( MOD( (cAliTab)->( ORDKEYNO() ) , 2 ) == 0, RGB(234,234,234), RGB(255,255,242) ) } }
IF ALLTRIM( buscaDriverTabla(cAliTab) ) == "SQLRDD" .OR. ALLTRIM( buscaDriverTabla(cAliTab)) == "SQLEX"
:bClrStd := { || If( (cAliTab)->( recno() ) % 2 == 0, { RGB(0,0,0), RGB( 234,234,234 ) }, { RGB(0,0,0), RGB( 255,255,242 ) } ) }
ELSE
:bClrStd := { || If( oBrwFW2:KeyNo() % 2 == 0, { RGB(0,0,0), RGB( 234,234,234 ) }, { RGB(0,0,0), RGB( 255,255,242 ) } ) }
ENDIF
ENDIF
IF cAliTab == "TRA"
IF (cAliTab)->cEstadoTra == "I"
:bClrStd := { || If( oBrwFW2:KeyNo() % 2 == 0, ;
{ RGB(0,0,0), IF((cAliTab)->cEstadoTra == "I", RGB(190,224,156),RGB( 234,234,234 )) },;
{ RGB(0,0,0), IF((cAliTab)->cEstadoTra == "I", RGB(190,224,156),RGB( 255,255,242 )) } ) }
ENDIF
ENDIF
//:aCols[ 10 ]:bClrStd := {|| { iif( Field->Salary > 100000, CLR_HRED, CLR_HBLUE), CLR_GRAY } }
//:aCols[ 10 ]:nDataStrAlign := AL_RIGHT
:cAlias := cAliTab
:CreateFromCode()
:SetRDD()
:SetFocus()
Client := oBrwFW2
:AdjClient()
:SelectCol(nColPos)
// :nMoveType = MOVE_NONE
// oDlgSel:oClient := oBrwFW2
END
//oBrwFW2:nMoveType = MOVE_NONE
RETURN BrowseLibre := oBrwFW2
Saludos
JOHNSON RUSSI
COLOMBIA