FiveTech Software tech support forums

... horas
ENDDO
nSecondsRemaining := nSecondsElapsed / nPercent * ( 100 - nPercent )
@ MaxRow()-1, 0 SAY aStatic[ GRAF_TXT_TEXT ] + " " + Ltrim( Transform( xContNow, PicVal(14,0) ) ) + "/" + Ltrim( Transform( xContTotal, PicVal(14,0) ) )
cTxt := "Gasto:"
cTxt += " " + Ltrim( Str( Int ...

... recuperainfo()
Local aHasRes
Local hInfo := {=>}
Local response := nil
Local cUrl := "https://hymplus.com/factura/ws_msvc.php"
Local cAno := transform(year(date()),"9999")

IF !IsInternet()
msginfo("No Se Pudo Comprobar La Conexión a Internet")
ELSE
user := "hymlymatest"
pass := "HymTestLeo ...

... aCols[j]:cHeader := ::aColTt[j]
:aCols[j]:oHeaderFont = oFontCja
NEXT

//Ahora las especiales
:aCols[2]:cFooter = "Nro.Comp » "+alltrim(transform(len(::aRspNm),oLamcla:PIC3))
:aCols[2]:oFooterFont := oFontCja

:aCols[3]:cFooter = "TOTALES »"
:aCols[3]:oFooterFont := oFontCja

:aCols[6 ...

Are you unable to transform .CSV into .TXT? Wouldn't it be easier to import the .TXT into the .DBF?

Regards, saludos.

... that are clear and maintainable.
The advantage is that I don't need to pass variables, and once HARBOURINO patches the pieces back together, I have a complete file in the release that I can debug.

This way, you can quickly transform AI-generated code into something of your own.

Best regards,
Otto

... lines are drawn well, when you scroll with the horizontal scrollbar the lines do not remain every 10 columns, when you use the vertical scroll the lines disappear (previous message from November 7, 2022), I do not want to transform my table into a carnival of colors I just want some separation lines

... Fecha: 05/11/2024 Equipo: Refrigerador

El campo de la columna 3 es un Longtext de un RecordSet SQL

@ 3.5, .5 LISTBOX oLbx FIELDS "Folio: " + Transform(oRecordSet:Fields("Id"):value,"9999") + CRLF + "Codigo:" +
IIF(oRecordSet:Fields("Codigo"):value=NIL,"",Transform(oRecordSet:Fields("Codigo ...

... secure.
If you use symmetric encryption based on a specific method, such as ASCII conversion followed by encryption with a code, you could transform the search term in the same way.

Here are the steps you should consider:
Preparation of the search term: Convert the search term into the same ...

... oXmlDetalleDesglose:cCalificacionOperacion := "S1"
// oXmlDetalleDesglose:cOperacionExenta :=
oXmlDetalleDesglose:cTipoImpositivo := Alltrim( TransForm( oTDbfFactur:PERCENTA, "999.99" ) )
oXmlDetalleDesglose:cBaseImponibleOimporteNoSujeto := Alltrim( TransForm( oTDbfFactur:BASECALC ...

... oXmlDetalleDesglose:cCalificacionOperacion := "S1"
// oXmlDetalleDesglose:cOperacionExenta :=
oXmlDetalleDesglose:cTipoImpositivo := Alltrim( TransForm( oTDbfFactur:PERCENTA, "999.99" ) )
oXmlDetalleDesglose:cBaseImponibleOimporteNoSujeto := Alltrim( TransForm( oTDbfFactur:BASECALC ...

carlos vargas wrote:Si,hay un picture que hace el mismo trabajo que strzero
@L

Muchisímas gracias Carlos,

He obviado mi función, con lo que indicas tengo suficiente.

Si,hay un picture que hace el mismo trabajo que strzero
@L

... Donde: 12500.10 es el valor y 12,2 determina los enteros y decimales

Saludos

Gracias Armando,

Pero no es eso.

Lo que persigo es que con un TransForm() (o algo parecido) pueda generar una respuesta de este tipo: '000025'.

Utilizo TransForm() en una rutina que recibe campos de diferentes DBF ...

Amigo Carlos:

Algo más simple
Donde: 12500.10 es el valor y 12,2 determina los enteros y decimales

Saludos

... lo voy a resolver así:

// Permite indicar como PICTURE "@E 999,999,999.99", "PZ@E 999,999,999.99", "PZ999999", etc.
// 27/09/2024
FUNCTION Mi_Transform( nValue, cPicture )

Local cString := ""
Local lPutZeros := .F.

If At( "PZ", cPicture ) = 1
cPicture := SubStr( cPicture, 3 )
lPutZeros := .T ...