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