Page 1 of 1

De 123456 a 0000012345 con Transform()

Posted: Fri Sep 27, 2024 4:53 pm
by 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.

Re: De 123456 a 0000012345 con Transform()

Posted: Fri Sep 27, 2024 5:05 pm
by karinha

Code: Select all | Expand

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL nMivalor := 12345

   ? STRZERO( nMivalor, 12, 2 )

RETURN NIL

// FIN / END
 
Regards, saludos.

Re: De 123456 a 0000012345 con Transform()

Posted: Fri Sep 27, 2024 5:48 pm
by karinha
OR,

Code: Select all | Expand

   ? XPADL( ALLTRIM( STRZERO( nMiValor,12,0 ) ), 12 )
 
Regards, saludos.

Re: De 123456 a 0000012345 con Transform()

Posted: Sat Sep 28, 2024 2:51 pm
by Armando
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.

Re: De 123456 a 0000012345 con Transform()

Posted: Sat Sep 28, 2024 4:31 pm
by FiveWiDi
Creo que lo voy a resolver así:

Code: Select all | Expand

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

Re: De 123456 a 0000012345 con Transform()

Posted: Sat Sep 28, 2024 5:57 pm
by Armando
Amigo Carlos:

Algo más simple

Code: Select all | Expand

   ? "PZ" + StrZero(12500.10,12,2)
 
Donde: 12500.10 es el valor y 12,2 determina los enteros y decimales

Saludos

Re: De 123456 a 0000012345 con Transform()

Posted: Sun Sep 29, 2024 9:34 pm
by FiveWiDi
Armando wrote:Amigo Carlos:

Algo más simple

Code: Select all | Expand

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

Re: De 123456 a 0000012345 con Transform()

Posted: Mon Sep 30, 2024 1:34 am
by carlos vargas
Si,hay un picture que hace el mismo trabajo que strzero
@L

Re: De 123456 a 0000012345 con Transform()

Posted: Fri Oct 04, 2024 7:09 pm
by FiveWiDi
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.