FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour De 123456 a 0000012345 con Transform()
FiveWiDi
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM

De 123456 a 0000012345 con Transform()

Posted: Fri Sep 27, 2024 04:53 PM

Hola a todos,

Debo estar un poco espeso.

Si tengo nMivalor := 12345

con Transfrom( nMiValor, "@Z 9999999999" ), no debería obtener 0000012345 ?

No sé que hago mal.

¿Cómo se hace?

Muchas gracias.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: De 123456 a 0000012345 con Transform()

Posted: Fri Sep 27, 2024 05:05 PM
Code (fw): Select all Collapse
#include "FiveWin.ch"

FUNCTION Main()

   LOCAL nMivalor := 12345

   ? STRZERO( nMivalor, 12, 2 )

RETURN NIL

// FIN / END
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8523
Joined: Tue Dec 20, 2005 07:36 PM

Re: De 123456 a 0000012345 con Transform()

Posted: Fri Sep 27, 2024 05:48 PM
OR,
Code (fw): Select all Collapse
   ? XPADL( ALLTRIM( STRZERO( nMiValor,12,0 ) ), 12 )
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM

Re: De 123456 a 0000012345 con Transform()

Posted: Sat Sep 28, 2024 02:51 PM
Carlos:

El picture "@Z" precisamente elimina los ceros a la izquierda, si quieres que se muestren
utiliza la función StrZero().

Saludos


FiveWiDi wrote:Hola a todos,

Debo estar un poco espeso.

Si tengo nMivalor := 12345
con Transfrom( nMiValor, "@Z 9999999999" ), no debería obtener 0000012345 ?

No sé que hago mal.

¿Cómo se hace?

Muchas gracias.
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
FiveWiDi
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM

Re: De 123456 a 0000012345 con Transform()

Posted: Sat Sep 28, 2024 04:31 PM
Creo que lo voy a resolver así:
Code (fw): Select all Collapse
// 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.
EndIf

cString := Transform( nValue, cPicture )

If lPutZeros
    cString := StrTran( cString, " ", "0" )
EndIf

Return cString
/* *********************************************************************************** */
En el código donde tengo Transform() pondré Mi_Transform() modificando el PICTURE.

Evidentemente no es perfecta, pero me servirá.

Y ya está, chimpum.

Muchas gracias a todos

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM

Re: De 123456 a 0000012345 con Transform()

Posted: Sat Sep 28, 2024 05:57 PM
Amigo Carlos:

Algo más simple
Code (fw): Select all Collapse
   ? "PZ" + StrZero(12500.10,12,2)
Donde: 12500.10 es el valor y 12,2 determina los enteros y decimales

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
FiveWiDi
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM

Re: De 123456 a 0000012345 con Transform()

Posted: Sun Sep 29, 2024 09:34 PM
Armando wrote:Amigo Carlos:

Algo más simple
Code (fw): Select all Collapse
   ? "PZ" + StrZero(12500.10,12,2)
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 (indicados en un fichero TXT) y si son del tipo "N" automáticamente aplico TransForm() con un PICTURE que también se indica en ese TXT; por tanto no puedo discernir si al campo recibido del tipo "N" le debo aplicar TransForm() o las otras soluciones que me proponéis.
Es mucho más fácil 'crear' un nuevo PICTURE (PZloquesea) y que Mi_Transform() lo gestione y que acepte también los propios de Transfrom().

Gracias de nuevo.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM

Re: De 123456 a 0000012345 con Transform()

Posted: Mon Sep 30, 2024 01:34 AM

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

@L

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
FiveWiDi
Posts: 1446
Joined: Mon Oct 10, 2005 02:38 PM

Re: De 123456 a 0000012345 con Transform()

Posted: Fri Oct 04, 2024 07:09 PM
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.

Un Saludo

Carlos G.



FiveWin 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

Continue the discussion

Static archive · New replies & topics via GitHub Discussions