FiveTech Support Forums

STATIC FUNCTION ADO_CREATE( nWA, aOpenInfo  )

  LOCAL aWAData := USRRDD_AREADATA( nWA )
  LOCAL cTable  := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 1, ";" )
  LOCAL cDataBase  := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 2, ";" )
  LOCAL cDbEngine  := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 3, ";" )
  LOCAL cServer    := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 4, ";" )
  LOCAL cUserName  := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 5, ";" )
  LOCAL cPassword  := hb_tokenGet( aOpenInfo[ UR_OI_NAME ], 6, ";" )
  LOCAL cSql, cSql2, lAddAutoInc := .F.
  LOCAL oCatalog , cMarkTmp, lNoError := .T.,cTmpTable

   IF EMPTY(cDbEngine) //IF NOT DEFINED USE DEFAULT
      ADODEFAULTS()
   ENDIF

   IF( ALLTRIM( cDataBase ) == "" ,cDataBase:= t_cDataSource, cDataBase )
   IF( ALLTRIM( cTable ) == "" , cTable := aOpenInfo[ UR_OI_NAME ] ,cTable)
   IF( ALLTRIM( cDbEngine ) == "" ,cDbEngine:= t_cEngine, cDbEngine )
   IF( ALLTRIM( cServer ) == "" , cServer:= t_cServer, cServer )
   IF( ALLTRIM( cUserName ) == "" , cUserName:= t_cUserName, cUserName )
   IF( ALLTRIM( cPassword ) == "" , cPassword:= t_cPassword, cPassword )

    hb_adoSetDSource(cDataBase)
    hb_adoSetEngine( cDbEngine )
    hb_adoSetServer( cServer )
    hb_adoSetUser( cUserName )
    hb_adoSetPassword( cPassword )

   IF cDbEngine = "ACCESS" //t_cEngine WITH DEFAULT VALUE BU ADODEFAULTS
      IF !FILE(cDataBase)
         oCatalog    := TOleAuto():New( "ADOX.Catalog" )
         oCatalog:Create( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + cDataBase )
      ENDIF
   ENDIF

   aOpenInfo[ UR_OI_NAME ] := CFILENOEXT( CFILENOPATH( cTable ) )

   ADOCONNECT( nWA, aOpenInfo )

   /*
   fix to add HBRECNO if it´s not present  // Lucas De Beltran 23.05.2015
   */
   if AScan( aWAData[ WA_SQLSTRUCT ], ADODEFLDRECNO() ) == 0
      AIns( aWAData[ WA_SQLSTRUCT ], 1, {  ADODEFLDRECNO(), '+', 10, 0 }, .t. )
   endif


   cSql := ADOSTRUCTTOSQL( aWAData, aWAData[ WA_SQLSTRUCT ],@lAddAutoInc )

CLASS TExplorerBar FROM TControl
...
...
...
...
METHOD New( cTitle, oWnd, nIndex, cBmpPanel, nBodyHeight ) CLASS TTaskPanel   <--- ojo con esto, aqui no es la clase Ttaskpannel que ocupo

   local n

   DEFAULT nBodyHeight := 50
   
   ::cTitle  = cTitle
   ::nTop    = ::nTopMargin

   ::nBodyHeight = nBodyHeight

 linea 365-->  if nIndex > 0
                     ::nTop += oWnd:aPanels[ nIndex ]:nTop + oWnd:aPanels[ nIndex ]:nTotalHeight + ;
                     oWnd:aPanels[ nIndex ]:nTopMargin 
                   endif   
  ...
  ...

FiveH32.lib(TGET.obj) : warning LNK4006: _HB_FUN_TGET zaten TGet.obj üzerinde tanımlandı; ikinci tanımlama yoksayıldı
FiveH32.lib(TGET.obj) : warning LNK4006: _HB_FUN_SETGETCOLORFOCUS zaten TGet.obj üzerinde tanımlandı; ikinci tanımlama yoksayıldı
FiveH32.lib(TGET.obj) : warning LNK4006: _HB_FUN_POPUPBROWSE zaten TGet.obj üzerinde tanımlandı; ikinci tanımlama yoksayıldı
   IcraW.lib kitaplığı ve IcraW.exp nesnesi oluşturuluyor
hbssl.lib(ssl.obj) : error LNK2019: Çözümlenmemiş dış sembol ___iob_func, _app_stdin işlevinde başvurdu
IcraW.exe : warning LNK4088: /FORCE seçeneği nedeniyle görüntü üretiliyor; görüntü çalışmayabilir

   oBrw:lFooter              := .t.  //Que tendrá footer 
   oBrw:nFooterLines         := 3    //Lineas del footer 
   oBrw:nFooterHeight        := 46   //Altura del  Footer

   oCol = oBrw:AddCol()  //GTOTAL
   oCol:bEditValue = { || (cAlias1)->SaldPrinc + (cAlias1)->SaldIntCo + (cAlias1)->SaldDesliz  + (cAlias1)->SaldOtros}
   oCol:cEditPicture = "9,999,999,999.99"
   oCol:nDataStrAlign := 1
   oCol:cHeader = "SALDO"+CRLF+"TOTAL" 
   oCol:nWidth = 110      //El ancho de la col es importante
   oCol:nEditType = 0   //no editable
   oCol:bFooter  =  {||TRANSFORM(nTotPrinc+nTotIntCo+nTotDesliz+nTotOtros,"99,999,999,999.99") +CRLF+ TRANSFORM(nNoVencido,"9,999,999,999.99") +CRLF+ TRANSFORM(nVencido,"9,999,999,999.99") }
   oCol:nFootStrAlign := 1

FW_SayTextHilite( hDC, cText, aRect, oFont, nClrText, nClrBack, aWords )

function TestHilite()

   local oWnd
   local cText := "We always eat dinner together"
   local aWords
   local oFont, oBold, oItalic

   DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-22
   DEFINE FONT oBold NAME "VERDANA" SIZE 0,-25 BOLD
   DEFINE FONT oItalic NAME "TIMES NEW ROMAN" SIZE 0,-25 ITALIC

   aWords   := {  { "ALWAYS", oBold, CLR_HRED, CLR_YELLOW }, ;
                  { "DINNER", oItalic, CLR_GREEN, CLR_HGRAY }, ;
                  { "TOGETHER", oItalic, CLR_WHITE, CLR_RED } }

   DEFINE WINDOW oWnd
   oWnd:SetFont( oFont )

   oWnd:bPainted  := <|hDC|
      local aRect    := GetClientRect( oWnd:hWnd )
      aRect[ 2 ] += 100
      FW_SayTextHilite( hDC, cText, aRect, oFont, ;
            CLR_BLACK, CLR_WHITE, aWords )
      return nil
      >
   ACTIVATE WINDOW oWnd CENTERED

   RELEASE FONTS oFont, oBold, oItalic

return nil

oCol:bPaintText

Eval( ::bPaintText, Self, hDC, cStrData, oRect:aRect, aColors, lHighLite, lSelected )