De 123456 a 0000012345 con Transform()

[FiveWiDi]

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.

[karinha]

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL nMivalor := 12345

   ? STRZERO( nMivalor, 12, 2 )

RETURN NIL

// FIN / END
 

Regards, saludos.

[karinha]

OR,

Code: Select all  Expand view  RUN

   ? XPADL( ALLTRIM( STRZERO( nMiValor,12,0 ) ), 12 )
 

Regards, saludos.

[Armando]

Carlos:

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

Saludos

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.

[FiveWiDi]

Creo que lo voy a resolver así:

Code: Select all  Expand view  RUN

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

[Armando]

Amigo Carlos:

Algo más simple

Code: Select all  Expand view  RUN

   ? "PZ" + StrZero(12500.10,12,2)
 

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

Saludos

[FiveWiDi]

Amigo Carlos:

Algo más simple

Code: Select all  Expand view  RUN

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

[carlos vargas]

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

[FiveWiDi]

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.