FiveTech Software tech support forums

this is the function code in "memvars.c" of Harbour

HB_FUNC( __MVSETBASE )
{
HB_STACK_TLS_PRELOAD
HB_ISIZ nOffset = hb_stackBaseProcOffset( 0 );

if( nOffset > 0 )
hb_stackItem( nOffset )->item.asSymbol.stackstate->nPrivateBase =
hb_memvarGetPrivatesBase();
}

... when "navigate" in Table

---

when using ADO i get a Record-Set from Table sqldata
but how "sync" Table sqlindex when have cFor, cWhile and nOffset ... or will it be "in Sync"

or do i need a (internal) FIELD __Record in both Table to "sync"

---

as i know "older" SQL Version can create a ...

Dear Mr. Rao,

I can't find out a way for the first button to define.
I tried this but with no success.
iif( VALTYPE( oBtn) = "C", ( nOffset += 5 + oBtn:nwidth ), nOffset )

So I ended up using 2 xTranslate.

#xtranslate NEXTBTN <prompt> ACTION <uaction> => ; nOffset += 5 + oBtn:nwidth ;; @ &#40 ...

... SwapRow( oBrw, .f. )
@ ( oDlg:nHeight - 30 )/2.05, 50 BUTTON "MoveDn" SIZE 35,12 PIXEL OF oDlg ACTION SwapRow( oBrw, .t. )

#DEFINE COLOFFSETBTN nOffset += 5 + oBtn:nwidth
#define MYBTN @ ( oDlg:nHeight - 30 )/2.05, nOffset BUTTON oBtn PROMPT

COLOFFSETBTN
MYBTN "MoveDn" PIXEL OF oDlg ACTION ...

... cNewString
StrDiff(<cString1>,<cString2>,[<nReplace>],[<nDelete>],[<nInsert>])->nSimilarity
StrFile(<cString>,<cFileName>,[<lUseExisting>],[<nOffset>],[<lTruncate>])->nBytesWritten
StrFormat(<cMask>,[<cPar1>],<cParn>,[...])->cString
StringToLiteral(<cString>)->cLiteralString
StrOccurs(<cSub ...

... cNewString
StrDiff(<cString1>,<cString2>,[<nReplace>],[<nDelete>],[<nInsert>])->nSimilarity
StrFile(<cString>,<cFileName>,[<lUseExisting>],[<nOffset>],[<lTruncate>])->nBytesWritten
StrFormat(<cMask>,[<cPar1>],<cParn>,[...])->cString
StringToLiteral(<cString>)->cLiteralString
StrOccurs(<cSub ...

... lDeleted
FileMove(<cSourceFile>,<cTargetFile>)->nErrorCode
FileReader(<cFileName>,[<nMode>])->oTStreamFileReader
FileScreen(<cFileName>,[<nOffSet>])->nBytesRead
FileSize([<cFileName>],[<nAttributes>])->nFileSize
FileStats(<cFileName>,[@<cFileAttr>],[@<nFileSize>],[@<dCreateDate ...

... Con respecto al codigo de barras nunca he manejado esto necesitaria documentarme.
pero generas el codigo de barras con esta instruccion.
:CmSay( nOffset + 13.5, 8.9, i2of5Encode( i2Of5('30666666666009000466110123456789'+DtoS(Date()) ) ), oFont2of5 )

dicha barra que genera la puede leer cualquier ...

... Con resoecto al codigo de barras nunca he manejado esto necesitaria documentarme.
pero generas el codigo de barras con esta instruccion.
:CmSay( nOffset + 13.5, 8.9, i2of5Encode( i2Of5('30666666666009000466110123456789'+DtoS(Date()) ) ), oFont2of5 )

dicha barra que genera la puede leer cualquier ...

... default


FRead()
Reads characters from a binary file into a memory variable.
Syntax
FRead( <nFileHandle>, ;
@<cBuffer> , ;
<nBytes> , ;
[<nOffset>] ) --> nBytesRead

Arguments
<nFileHandle>
This is a numeric file handle returned from function FOpen() or FCreate().
@<cBuffer>
A memory ...

... n ], GetTextWidth( 0, StrTran( ::aPrompts[ n ], "&", "" ), ::oFont:hFont ) + TXTLPAD + TXTRPAD, 0) )
next

if Len( ::aLeft ) > 0
::aLeft[ ::nOffSet ] = ::nLeftMargin
endif

for n = ::nOffSet + 1 to Len( ::ASizes )
::aLeft[ n ] = ::aLeft[ n - 1 ] + ::aSizes[ n - 1 ] + If( ::aVisible[n - 1 ...

... heat_update() // Date : 10/11/12
// Use : Assemble Q:\data folder and file information
// for millcerts

local aFolders
local nFol_len

local nOffset := 3 // set at 3 to bypass . & .. parent <dir>
local nIndex := 1

local cFol_nam
local nFol_max


local aSub_Fldr
local nSub_max := 0
local nSub ...

Hola Manolo, en teoria el tercer parametro (nOffSet), no existe en Harbour, donde si existe es en xHarbour. De todas formas si quieres usar harbour y el parametro nOffSet, cambia la función y usa Hb_AT(), que si incorpora ese parametro adicional.

... build 1.1-1 Intl. no me lo estaba dando en la funcion at

Me dice número incorrecto de parametros en esta linea:

nPos := INT( AT( cDato, cData, nOffset ))

no se si se ha cambiado o hecho otra función para hacer esto. lo que necesito es que me devuelva la posición de una cadena buscada a partir ...

Hola a todos,

He visto que la función AT() puede tener la siguiente sintaxis:

AT( suchbeg, cData, nOffset )

esta sintáxis no me la acepta bajo Harbour al no contemplar el tercer parámetro; alguién sabe cómo puedo simular el uso del tercer parámetro en Harbour?

Un saludo y gracias.
Carlos .