FiveTech Software tech support forums

Here is the thread from the xHarbour group that I raised several years ago and the ADO fix for ctod("") writing null to Sql Server .. the same modifications may be able to be ported to Harbour. https://groups.google.com/forum/?fromgroups#!searchin/comp.lang.xharbour/rick$20lipkin/comp.lang.xharbour/-TEAWE5fncU/2YNneK8sbdgJ ...

Here is the thread from the xHarbour group that I raised several years ago and the ADO fix for ctod("") writing null to Sql Server .. the same modifications may be able to be ported to Harbour. https://groups.google.com/forum/?fromgroups#!searchin/comp.lang.xharbour/rick$20lipkin/comp.lang.xharbour/-TEAWE5fncU/2YNneK8sbdgJ ...

Gracias antonio por responderme, resulta q no puse todo el codigo aca va: cPersonal:=XServer:Query("SELECT * FROM personal ORDER BY cod_personal") cPersonal:GoTop() @ 0, 0 XBROWSE oLbx FIELDS cPersonal:Cod_personal,cPersonal:Nom_Personal,cPersonal:Rut_Personal,cPersonal:Dir_Personal,cPerso...

Amigo estoy usando este codigo pero al mostrar el xbrowse se queda pegado no hace nada: FUNCTION WINGES01() LOCAL oBrow LOCAL oDlg, oLbx LOCAL oFnt LOCAL nW, nH LOCAL cPersonalca:=Space(60) LOCAL oGet LOCAL cVar, oCbx, cHelp,oCbx1 LOCAL oBar, oPop, oIcon, cTit LOCAL oBtn, aX[6], aIdx:={},oCol Local ...

tenho um xbrowse transparente com o seguinte código: Redefine xBrowse oBrw3 id 103 of oDialog update obrw3:SetArray(aTeste3) oBrw3:nStretchCol := STRETCHCOL_LAST oBrw3:nRowDividerStyle := LINESTYLE_RAISED oBrw3:nColDividerStyle := LINESTYLE_RAISED oBrw3:nMarqueeStyle := nestilo oBrw3:lRecordSelector...

...                endif As you can see, in the case of ::lRound = .T. (that is the default) we don't have a raised border. With NOROUND clause it works fine. EMG

Antonio,

the raised effect doesn't go away if I comment out this refresh:

Code: Select all  Expand view

METHOD MouseMove( nRow, nCol, nKeyFlags ) CLASS TBtnBmp

   if ! ::lMOver
      ::lMOver = .T.
//      ::Refresh()
   endif
 

Is it a clue?

EMG

Antonio,

it's getting better, but the raised effect vanishes when the mouse is over the button.

Almost done!

EMG

Antonio,

Regarding refunds if the money can't be raised, your answer is good enough for me. I'll jump in.

- Roger

Antonio,

Great news indeed!

Question: what happens to the donations if the full amount is not raised within a reasonable time? Will the donations (investments) be refunded?

- Roger

... suggested above: in the Rpreview.prg In the Method Activate() Insert the line ::oBar:AEvalWhen() before the statement ACTIVATE window. Next issue raised: I haven't yet tested exporting to Excel with FWH 13.09 (just downloaded), but with the 13.08 version weird things would happen: - The export ...

NageswaraRao, The issue raised by Mr Elvira is different. You will get duplicate column names when you use SELECT * , unless you specify every column and provide unique alias column name for the duplicated column names, in all DBMS expect ...

The issue raised by Mr Elvira is different. You will get duplicate column names when you use SELECT * , unless you specify every column and provide unique alias column name for the duplicated column names, in all DBMS expect MSACCESS. ...

... then in the SET DEFAULT directory and finally in all directories specified with SET PATH. If the file cannot be found, a runtime error is raised. When a database is to be accessed in a network, it should be opened in SHARED mode, since EXCLUSIVE usage of a database file prevents other ...

You should add the lines : //---------------------- while nRowPos <= nMaxRows hBrush := CreateSolidBrush( Eval( ::bClreof, Self,nrowpos )[ 2 ] ) FillRect( hDC, {nRow, acols[1]-1, nrow+::DataHeight+1, nBrwWidth }, hBrush ) DeleteObject( hBrush ) nRowPos++ nRow += nRowHeight enddo //--------- /* Pa...