FiveTech Support Forums

amigos:

ya tire la esponja, llevo mas de 5 días intentando pero no logro colocar un sbrowse, listbox o xbrowse en una de las areas del control outlook2003.

con un listbox genera un GPF
con un xbrowse no se ve en ningun lado
con un sbrowse version 8 me devuelve el error siguiente:

Detalle técnico en la aplicación
--------------------------------
Error BASE/1004 Class: 'NIL' has no exported method: EVAL
Argumentos :
[ 1] = U

Llamadas a Procedimientos
-------------------------
Llamado desde EVAL(0)
Llamado desde TSBROWSE:LOADFIELDS(6.010)
Llamado desde TSBROWSE:DEFAULT(1.414)
Llamado desde TSBROWSE:NEW(739)
[/list:u]

el codigo de la clase es el siguiente


Code (fw): Select all Collapse

METHOD LoadFields( lEditable, aNames ) CLASS TSBrowse

   Local n, nE, cHeading, nAlign, nSize, aColSizes, cData, cType, nDec, hFont, bData, cBlock, ;
         aAlign := { "LEFT", "CENTER", "RIGHT", "VERT" }, ;
         aStru  := ( ::cAlias )->( DbStruct() ), ;
         nCols  := If( aNames == Nil, ( ::cAlias )->( FCount() ), Len( aNames ) )

   Default lEditable := .T.

   aColSizes := If( Len( ::aColumns )  ==  Len( ::aColSizes ), Nil, ::aColSizes )

   For n := 1 To nCols

      nE := If( aNames == Nil, n, FieldPos( aNames[ n ] ) )

      cHeading := If( ! ::aHeaders == Nil .and. Len( ::aHeaders ) >= nE, ::aHeaders[ nE ], ;
                      ::Proper( ( ::cAlias )->( Field( nE ) ) ) )

      nAlign := If( ::aJustify != Nil .and. Len( ::aJustify ) >= nE, ::aJustify[ nE ], ;
                    If( ( ::cAlias )->( ValType( FieldGet( nE ) ) ) == "N", 2, ;
                    If( ( ::cAlias )->( ValType( FieldGet( nE ) ) ) == "L", 1, 0 ) ) )

      nAlign := If( ValType( nAlign ) == "L", If( nAlign, 2, 0 ), ;
                If( ValType( nAlign ) == "C", AScan( aAlign, nAlign ) - 1, nAlign ) )

      nSize := If( ! aColSizes == Nil .and. Len( aColsizes ) >= nE, aColSizes[ nE ], Nil )

      If nSize == Nil
         cData := ( ::cAlias )->( FieldGet( nE ) )
         cType := aStru[ nE, 2 ]
         nSize := aStru[ nE, 3 ]
         nDec  := aStru[ nE, 4 ]
         hFont := If( ::oFont != Nil, ::oFont:hFont, 0 )

         If cType == "C"
            cData := PadR( Trim( cData ), nSize, "B" )
            nSize := GetTextWidth( 0, cData, hFont )
         ElseIf cType == "N"
            cData := StrZero( cData, nSize, nDec )
            nSize := GetTextWidth( 0, cData, hFont )
         ElseIf cType == "D"
            cData := cValToChar( If( ! Empty( cData ), cData, Date() ) )
            nSize := Int( GetTextWidth( 0, cData, hFont ) * 1.15 )
         ElseIf cType == "M"
            cData := cValToChar( cData )
            nSize := If( ::nMemoWV == Nil, 200, ::nMemoWV )
         Else
            cData := cValToChar( cData )
            nSize := GetTextWidth( 0, cData, hFont )
         EndIf

         nSize := Max( GetTextWidth( 0, Replicate( "B", Len( cHeading ) ), hFont ), nSize )

      EndIf

      cBlock := 'FieldWBlock("' + aStru[ nE, 1 ] + '",Select("' + ::cAlias + '"))'
      ::AddColumn( TSColumn():New( cHeading, FieldWBlock( aStru[ nE, 1 ], Select( ::cAlias ) ),, ;
                                   { ::nClrText, ::nClrPane }, { nAlign, DT_CENTER }, nSize,, lEditable,,,,,,, ;
                                   5,,,, Self, cBlock ) )

      ATail( ::aColumns ):cData := ::cAlias + "->" + FieldName( nE )

   Next

   If ::nLen == 0
      ::nLen := Eval( ::bLogicLen )           <==  aqui genera el error de arriba
   EndIf

Return Self



si alguien lo a hecho, y me pueden ayudar, se los agradeceria bastante.

saludos desde chile.

Yo lo defino de esta forma:


Y todo figura en el OnInit de oWnd

gracias por contestar, voy a ver si resulta como me dices.

gracias desde Chile.

Fernando:

ha funcionado de maravilla, muchas gracias

coloco el código manejando un DBF de paso, por si alguien quiere hacer lo mismo.



saludos desde Chile