FiveTech Software tech support forums

... /* FIELDNAME */ HB_P_PUSHNIL, HB_P_ONE, HB_P_FUNCTIONSHORT, 1, HB_P_PUSHSTRSHORT, 4, /* 4 */ ' ', '=', ' ', 0, HB_P_PLUS, HB_P_PUSHSYMNEAR, 8, /* CVALTOCHAR */ HB_P_PUSHNIL, HB_P_PUSHSYMNEAR, 9, /* FIELDGET */ HB_P_PUSHNIL, HB_P_ONE, HB_P_FUNCTIONSHORT, 1, HB_P_FUNCTIONSHORT, 1, HB_P_PLUS, HB_P_ARRAYGEN, ...

... cUtf8, "@!" ) funciona. * Corrección: El ejemplo samples\testtray.prg funciona correctamenete con FWH 64 bits. * Corrección: La función cValToChar( object ), devuelve nulo cuando object:cClassName es nulo. Solucionado. * Nuevo: Ejemplo samples\diskexpl.prg, muestra cómo construir un ...

... ) does not work, FW_TRANSFORM( cUtf8, "@!" ) works. * Fixed: samples\testtray.prg is properly working with FWH 64 bits. * Fix: function cValToChar( object ) returning nil when object:cClassName is nil. fixed. * New: samples\diskexpl.prg shows how to build a tree with a drive folders ...

... ) if aJustify != nil .and. aJustify[ n ] SetTextAlign( hDC, TA_RIGHT ) ExtTextOut( hDC, nTop, nRight - 2, { nTop, nLeft, nBottom, nRight }, cValToChar( aValues[ n ] ) ) else SetTextAlign( hDC, TA_LEFT ) ExtTextOut( hDC, nTop, nLeft + 2, { nTop, nLeft, nBottom, nRight }, cValToChar( aValues[ ...

Fernando,

Por favor prueba a llamar la función del API de Windows directamente:

MsgInfo( GetPvProfString( cSection, cEntry, cValToChar( uDefault ), cIniFile ) )

y comprueba si sucede lo mismo. gracias

... Local cDestinationDn := 'cn=wsaa,o=afip,c=ar,serialNumber=CUIT 33697454239' local nId := val(LeeIni('FactElec','ID')) + 1 Local cUniqueId := cValToChar( nId ) // EL NUMERO QUE IDENTIFICA EL REQUERIMIENTO, TIENE QUE SER DISTINTO CADA VEZ Local cGenerationTime := TimeFMT( HB_DateTime(), -1 ...

... Local cDestinationDn := 'cn=wsaa,o=afip,c=ar,serialNumber=CUIT 33697454239' local nId := val(LeeIni('FactElec','ID')) + 1 Local cUniqueId := cValToChar( nId ) // EL NUMERO QUE IDENTIFICA EL REQUERIMIENTO, TIENE QUE SER DISTINTO CADA VEZ Local cGenerationTime := TimeFMT( HB_DateTime(), -1 ...

... METHOD SetCode( cCode ) CLASS TCodeBars if ! Empty( cCode ) if ValType( cCode ) != "C" cCode = cValToChar( cCode ) endif ::cCode = cCode endif return NIL //--------------------------------------// METHOD SetFlags( nFlags ) CLASS TCodeBars ::nFlags ...

... reading the forum This code is used inside a loop to get all forum topics... http://forums.fivetechsupport.com/viewtopic.php?f=3&t=" + cValToChar( nTopic ) How do we find the code from a webshop that is needed for the loop in order to get all the product data ? https://www.maveco-webshop.be/ ...

... 0,00 en el browse ( las cabeceras si se muestran correctamente ) for i := 1 to len(aTdas) WITH OBJECT oCol := oBrwT:AddCol() :bStrData := { || cValToChar( TEM_T->( FieldGet( i ) ) ) } :cHeader := trim(aTdas[i,1]) END WITH next i favor su ayuda ... Qué versión de Fwh utilizas? Mira a ver ...

... 0,00 en el browse ( las cabeceras si se muestran correctamente ) for i := 1 to len(aTdas) WITH OBJECT oCol := oBrwT:AddCol() :bStrData := { || cValToChar( TEM_T->( FieldGet( i ) ) ) } :cHeader := trim(aTdas[i,1]) END WITH next i favor su ayuda ...

... ) MsgInfo( oError:Args[ n ] ) cInfo += "[" + Str( n, 4 ) + "] = " + ValType( oError:Args[ n ] ) + ; " " + cValToChar( oError:Args[ n ] ) + CRLF next endif MsgStop( oError:Description + CRLF + cInfo,; "Script error at line: " + AllTrim( Str( ProcLine( ...

... V"+odb1:cversion+" "+odb1:descrip+if(lsize," "+odb1:SIZE,"")+" "+odb1:unit+" "+padl(cvaltochar(ROUND(odb1:qty,nqtydec+1)),nqtylen," ")+" "+odb1:mem+" "+odb1:position) odb1:SKIP() enddo oWnd1:oClient:=oTree ...

Mr. Rao, the problem is a index numeric + text + text I changed STR(nVal) to cValtoChar(nVal) and that seems to work :shock: But now my external dbf-editor shows a errormessage because he doesn't know -> cValtoChar I want to sort the two defined filters inside ...

... soon a create a index with STR( field ) // numeric I'm getting problems. But I have to define it with a index-mix of C and N. I didn't test < cValToChar > lets see what happens. regards Uwe :D