FiveTech Software tech support forums

... A SU COMERCIALIZADOR") Logfile("c:\Vendelot\auditor.log",{"Problema IFA "+cmd}) ENDIF NEXT cCop:=StrZero(VAL(::cString),5)+StrZero(Val(oLoterwin:xTaq),2) cmd:=[)B0]+Alltrim(cCop) IF SendCmd(@status, @error, cmd) = 0 MSGSTOP("PROBLEMA CON LA IMPRESORA FISCAL","REVISE ...

... A SU COMERCIALIZADOR") Logfile("c:\Vendelot\auditor.log",{"Problema IFA "+cmd}) ENDIF NEXT cCop:=StrZero(VAL(::cString),5)+StrZero(Val(oLoterwin:xTaq),2) cmd:=[)B0]+Alltrim(cCop) IF SendCmd(@status, @error, cmd) = 0 MSGSTOP("PROBLEMA CON LA IMPRESORA FISCAL","REVISE ...

En Harbour solo admite dos parámetros para mantener su compatiblidad con Clipper, pero dispones de la función hb_At( <cSearch>, <cString>, [<nStart>], [<nEnd>] ) --> nPos

... be assuming a blank value, when the string is ended with ";" As per xHarbour Reference Documentation: The delimiter is removed from <cString> and the resulting substrings are collected in an array, which is returned. -Ramesh Babu

... aadd( atext,"12345678901234567890") the strings must be 20 charactes for a sample : I hace a string len( cstring) := 41 I must create 3 record ( 2 of 20 cr and 1 of 1 cr) but this one must be of 1 cr + space(19) allway 20 cr Creo que si cada vez que tomes ...

... aadd( atext,"12345678901234567890") the strings must be 20 charactes for a sample : I hace a string len( cstring) := 41 I must create 3 record ( 2 of 20 cr and 1 of 1 cr) but this one must be of 1 cr + space(19) allway 20 cr

You can use
OCCURS( cSearch, cString ) --> number of occurances
function in ct.lib for the same purpose.

... less problems too. What about to create a TBufferedWrite class? Initialized with the File Handle and the minimun size of buffered input, a Write( cString ) method, and an End() that writes the remaining not written bytes.

... la impresora, ya que necesito extraer el ultimo numero de boleta, no se si podrias ayudarme...esto es lo que tengo en el programa Comando:='481' cString:= Chr(135) + Comando + Chr(136) WRITECOMM( nCom, @cString ) //debiera delvolver una cadena de informacion y yo buscar el numero dentro de esa ...

... la impresora, ya que necesito extraer el ultimo numero de boleta, no se si podrias ayudarme...esto es lo que tengo en el programa Comando:='481' cString:= Chr(135) + Comando + Chr(136) WRITECOMM( nCom, @cString ) //debiera delvolver una cadena de informacion y yo buscar el numero dentro de esa ...

Gracias a ambos! Estoy armando algo entre las dos ideas... vamos a ver que sale. Me quedan un par de dudas... como debo definir el cString del ReadComm, carácter de cuanto? De que depende la cantidad de bytes que lee? Y la segunda, como reemplazar el COM_COUNT y la COM_SCOUNT.... creo que ...

Gracias a ambos! Estoy armando algo entre las dos ideas... vamos a ver que sale. Me quedan un par de dudas... como debo definir el cString del ReadComm, carácter de cuanto? De que depende la cantidad de bytes que lee? Y la segunda, como reemplazar el COM_COUNT y la COM_SCOUNT.... creo que ...

... lCaseSensitive [, [@]nStart ] [, [@]nLen ] ] ] ) => cFoundText RegexComp( cPattern, [bCaseSens [, bNewLine]] ) --> REGEX HB_Regex( cPattern, cString, [bCaseSens, [, bNewLine]] ) --> aMatches HB_RegexMatch( cPattern, cString, [bCaseSens, [, bNewLine]] ) --> bFound TRY syntax: ----------- ...

... socket ya implementados con HBQT? En la documentacion que presentaste ya existe una clase para HTTP ROCEDURE Main() LOCAL oWnd, oImg LOCAL oHttp, cString oHttp := TIPClientHTTP():new( "http://www.televideo.rai.it/televideo/pub/tt4web/Nazionale/16_9_page-101.png" ) oHttp:open() cString ...

... socket ya implementados con HBQT? En la documentacion que presentaste ya existe una clase para HTTP ROCEDURE Main() LOCAL oWnd, oImg LOCAL oHttp, cString oHttp := TIPClientHTTP():new( "http://www.televideo.rai.it/televideo/pub/tt4web/Nazionale/16_9_page-101.png" ) oHttp:open() cString ...