FiveTech Software tech support forums

... / oPrint:nVertSize() ,0 ) else nLen :=round ( nLen * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 ) end for n:=1 to len(cBarra) if substr(cBarra,n,1) ='1' if lHorz * oPrint:Box(nx,ny,nx+nLen,(ny+=nWidth)) oPrint:fillRect({nx,ny,nx+nLen,(ny+=nWidth)},oBr) else oPrint:Box(nx,ny,(nx+=nWidth),ny+nLen) ...

... / oPrint:nVertSize() ,0 ) else nLen :=round ( nLen * 10 * oPrint:nHorzRes() / oPrint:nHorzSize(), 0 ) end for n:=1 to len(cBarra) if substr(cBarra,n,1) ='1' if lHorz oPrint:fillRect({nx,ny,nx+nLen,(ny+=nWidth)},oBr) else oPrint:fillRect({nx,ny,(nx+=nWidth),ny+nLen},oBr) end else if ...

... FROM acue_cie LEFT JOIN catastro_1 ON acue_cie.dire=catastro_1.dire WHERE SUBSTR(catastro_1.codigo,1,2)='01' La pregunta es la siguiente: Como hago una consulta para que me detecte la direccion en la tabla acue_cie que se ...

... 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 ...