FiveTech Software tech support forums

... sRif, "-", "" )   IF Len( sRif ) < 10      sRif := Upper( Left( sRif, 1 ) ) + PadL( SubStr( sRif, 2 ), 9, '0' )   ENDIF   sPrimerCaracter := Upper( Left( sRif, 1 ) )   DO CASE      CASE sPrimerCaracter == ...

... }; // SEGUN FORO DE FIVEWIN function LRC( cText ) local nCheckSum := 0 local n for n = 1 to Len( cText ) nCheckSum = nXor( nCheckSum, Asc( SubStr( cText, n, 1 ) ) ) next return (nCheckSum) // valores esperados vs obtenidos con metodo fivewin LRC() // valor esperado ... valor obtenido alerta( ...

Gracias Armando, cree esta funcion FUNCTION Redondear(numero) *--------------------------- Local val_num := Val(SubStr(Str(numero,9),-1)) Local Valor := 0 If val_num>=1 .AND. val_num<=5 valor = numero - val_num ElseIf val_num>= 6 .AND. val_num<= 9 valor = numero + (10-val_num) ...

puedes probar esto, ver si funciona

PADL(::oQry:FieldGet( "c4"), 2, "0")

Substr( PADL(::oQry:FieldGet( "c4"), 2, "0"),1,2)

o

PADL(alltrim(::oQry:FieldGet( "c4")), 2, "0")

local cLinea:= substr(texto, 1, 50) + CRLF + substr....

Intentalo de esa manera

goosfancito wrote:Hola.
Tengo una cadena de 1024 caracteres y quiero mostrarlos en un get multiline, pero al intentar esto:

local cLinea:= substr(texto, 1, 50) + chr(10) + chr(13) + substr....

no me muestra en dos lineas. en que le estoy errando?

Just to start, try with chr(13) + chr(10).

Hola.
Tengo una cadena de 1024 caracteres y quiero mostrarlos en un get multiline, pero al intentar esto:

local cLinea:= substr(texto, 1, 50) + chr(10) + chr(13) + substr....

no me muestra en dos lineas. en que le estoy errando?

... ( ! empty( oRS1:Fields( "descri1" ):Value ), ( " " + alltrim( oRS1:Fields( "descri1" ):Value ) ), "" ), ; substr( oRS1:Fields( "Nombre" ):Value, 1, 20 ), ; str( round( oRS1:Fields( "costo" ):Value * iif ( oRS1:Fields( "porc_iva" ...

... commas nPos1 := At(",", cAddress) nPos2 := At(",", cAddress, nPos1 + 1) // Extract the street, city, state, and zip cStreet := SubStr(cAddress, 1, nPos1 - 1) cCity := SubStr(cAddress, nPos1 + 2, nPos2 - nPos1 - 2) cState := SubStr(cAddress, nPos2 + 2, 2) cZip := SubStr(cAddress, ...

... programming language! User I need harbour code ChatGPT To split the address string in Harbour, a language similar to Clipper, you can use the SubStr() and At() functions to locate and extract the specific parts of the address. Harbour's string handling functions are quite powerful for these ...

... de codeblock para resolver el problema. En la tabla informes contiene el campo rutainforme = "inf1_" + Dtos( dFecha ) + "-" + Substr( whoraini, 1, 2 ) + Substr(whoraini, 4, 2 ) + "-" + Substr( whorafin, 1, 2 ) + Substr(whorafin, 4, 2 ) + ".xlsx" Quedó así: ...

...    RETURN nil Este código se ajusta mas a lo que hago. el contenido de oRs:RutaInforme es: "inf1_" + Dtos( dFecha ) + "-" + Substr( whoraini, 1, 2 ) + Substr(whoraini, 4, 2 ) + "-" + Substr( whorafin, 1, 2 ) + Substr(whorafin, 4, 2 ) + ".xlsx" y devuelve ...

... texto que llamaremos oRs:RutaArchivo oRs:RutaArchivo contiene esta fórmula tal cual: ".\XLSX\inf1_" + Dtos( dFecha ) + "-" + Substr( whoraini, 1, 2 ) + Substr(whoraini, 4, 2 ) + "-" + Substr( whorafin, 1, 2 ) + Substr(whorafin, 4, 2 ) + ".xlsx" necesito ...

... DEL WS //BUSCAR PRINCIPIO Y FINAL pdfin:=at("%PDF-1.4",response) pdfend:=At("%EOF",response) largo:=pdfend-pdfin resp:=substr(response,pdfin,largo+4) cFilename:="texto.pdf" * Grabo el Archivo PDF ferase(cfilename) oText:= TTxtFile():New( cfilename ) if oText:Open() ...

... Error de argumento: acceso al array Args: [ 1] = C abcdefghijklmnopqrsuwyzABCDEFGHIJKLMNOPQRSTUWXYZ!$# [ 2] = N 2 si hago esto no me tira error ? substr( cChars,2,1) graciaS!