FoxPro/Visual FoxPro - Formato de factura

   
Vista:

Formato de factura

Publicado por Jose (48 intervenciones) el 12/05/2014 21:59:06
Hola, alguien me puede decir como hago concatenar 00000 con un numero?, ambos datos tipo entero!
...Consegui este codigo que funciona con datos tipo Char
1
2
vformato="00000"
Substr(vformato,1,len(vformato)-len(alltrim(str(nfact))))+alltrim(str(nfact))
Pero necesito hacerlo con datos del tipo entero!
Ejemplo de lo que necesito:
formato=00000
factura=1
Numerofinal=00001
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Formato de factura

Publicado por alberto (1 intervención) el 12/05/2014 22:42:02
Prueba a ver si te sirve

1
2
3
4
5
6
7
8
factura='00000'
factura_cant=1
 
DO WHILE factura_cant<99999
	cant0=LEN(factura)-LEN(ALLTRIM(STR(factura_cant)))
	factura=PADL(factura, cant0, '0')+ALLTRIM(STR(factura_cant))
	factura_cant=factura_cant+1
ENDDO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Formato de factura

Publicado por Fidel José (558 intervenciones) el 12/05/2014 23:19:08
En realidad es más sencillo

1
2
3
4
5
6
7
8
9
10
Nro_Factura=12320
lnDigitos=8
 
lcNumero=Padl( Transform(Nro_Factura) , lnDigitos, "0" )
REsultado: lcNumero="00012320"
 
Por ejemplo, una base combinada Punto de ventas + Numero de factura:
lnPunto=3
lcComb = Padl( transform(lnPunto) , 4 , "0" ) + Padl( Transform(Nro_Factura) , lnDigitos, "0" )
REsulta: lcComb= "000300012320"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Formato de factura

Publicado por Rodolfo (4 intervenciones) el 13/05/2014 21:08:26
para mi la mejor respuesta a tu problema seria esta:

numero=1
numhile=strt(str(numero,6,0),' ','0')

probalo, talvez te sirva
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Formato de factura

Publicado por José Ferrer (3 intervenciones) el 15/05/2014 21:19:43
Ningún valor entero te mostrará ceros (0) a la izda, es necesario transformar tu valor entero a una cadena de caracteres (String)

Ejemplo:

factura=1
lcNroFact=TRANSFORM(factura,"@L 99999")
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar