:: Corel-FORUM :: WWW.CORELCLUB.ORG ::
http://www.corelforum.corelclub.org/

Imprimir Codigos Descuentos Aleatorios y Procesarlos en un TXT
http://www.corelforum.corelclub.org/viewtopic.php?f=4&t=3444		 Página 1 de 1
Autor:  Axo Margarita [Mié, 06 Abr 2011, 13:03 ]
Asunto:  Imprimir Codigos Descuentos Aleatorios y Procesarlos en un TXT
Hola, necesito saber si es posible imprimir codigos descuentos de forma aleatoria y a su vez, que por cada código impreso lo vaya poniendo en un archivo txt o pdf, uno por cada linea.

Ejemplo:

Mandamos a imprirmir 100 hojas, y lo imprimirá aleatoriamente

Imprime 00190
Imprime 00393
Imprime 00593
Imprime 02297
Imprime 01594
Imprime 06591

Y a su vez me crea un archivo txt o pdf o report o lo que sea que salga así o similar:

archivo.txt
00190
00393
00593
02297
01594
06591

¿ Sabéis cómo puedo hacer esto?
Autor:  Ariel Garaza Díaz [Mié, 06 Abr 2011, 16:16 ]
Asunto:  Imprimir Codigos Descuentos Aleatorios y Procesarlos en un TXT
CorelDRAW no tiene una funcion de generar numeros aleatorios. Si tienes una lista de numeros puedes usar imprimir Fusion para generar PDF (tanto sea individuales como varios en una misma hoja)
Autor:  Nutabe [Mié, 06 Abr 2011, 20:10 ]
Asunto:  Imprimir Codigos Descuentos Aleatorios y Procesarlos en un TXT
Corel hace muchas cosas pero de lo que precisas puede hacer la mitad, pese a que es un programa netamente para diseño vectorial, pero lo que necesitas lo puede conseguir con "Random Number generator" no se en que versión esté ahora.

Visita este sitio http://www.segobit.com/rng.htm
Autor:  Axo Margarita [Jue, 07 Abr 2011, 01:30 ]
Asunto:  Imprimir Codigos Descuentos Aleatorios y Procesarlos en un TXT
Citar:
CorelDRAW no tiene una funcion de generar numeros aleatorios. Si tienes una lista de numeros puedes usar imprimir Fusion para generar PDF (tanto sea individuales como varios en una misma hoja)
Hola Ariel,

Entonces, pasandole la lista de numero (que yo genero, ya sea con el programa que facilitas o personalizada por mi) la imprenta dandole a fusión para generar PDF lo haría solo y listo. No? Bueno, creo que acabo de encontrar la solución a lo que me indicas Ariel la dejo por si hay alguien que le interes: http://www.corelclub.org/imprimir-fusio ... coreldraw/

Muchas gracias !!
Autor:  moire77 [Jue, 07 Abr 2011, 11:09 ]
Asunto:  Imprimir Codigos Descuentos Aleatorios y Procesarlos en un TXT
Citar:
Corel hace muchas cosas pero de lo que precisas puede hacer la mitad, pese a que es un programa netamente para diseño vectorial, pero lo que necesitas lo puede conseguir con "Random Number generator" no se en que versión esté ahora.

Visita este sitio http://www.segobit.com/rng.htm
Interesante...
Autor:  Manuel Rivas [Jue, 07 Abr 2011, 11:18 ]
Asunto:  Imprimir Codigos Descuentos Aleatorios y Procesarlos en un TXT
Existe la función Rnd en VBA que genera números aleatorios o sea que técnicament Corel si puede hacerlo sin necesidad de otro programa. Hay que saber VBA para hacerlo pero es posible.
Autor:  Axo Margarita [Jue, 07 Abr 2011, 11:48 ]
Asunto:  Imprimir Codigos Descuentos Aleatorios y Procesarlos en un TXT
ok, gracias. Mi problema era el como hacerlo para imprenta, los códigos ya los genero yo mediante web :-). Muchas gracias nuevamente, ha sido importante para el proyecto que vamos a realiar este paso. Una cervezita para tiiiiiiiii !!!
Autor:  Ariel Garaza Díaz [Jue, 07 Abr 2011, 15:46 ]
Asunto:  Imprimir Codigos Descuentos Aleatorios y Procesarlos en un TXT
Citar:
Una cervezita para tiiiiiiiii !!!
oye, y para mi que soy el autor del tutorial? :)
Autor:  Manuel Rivas [Jue, 07 Abr 2011, 23:06 ]
Asunto:  Imprimir Codigos Descuentos Aleatorios y Procesarlos en un TXT
Estaba muy buena la cervecita, gracias.

Me puse a jugar con eso de la función Rnd (qué jueguitos tenemos nosotros los nerds!) y trabaja bastante bien aparentemente; este macro genera un número de cuatro cifras diferente cada vez que lo corres.

Solo fue un experimento, ya se que el problema está resuelto. Pero ya sabemos que podemos usar Corel para generar números de la lotto.
Código:
Sub Random()

Dim n As Integer, blah As String, rnumber As String
Dim char As Integer, sh As Shape

n = Int((9999 - 1 + 1) * Rnd + 1)
blah = CStr(n)
char = Len(blah)

    If char < 4 Then
    rnumber = String(4 - char, "0")
    Set sh = ActiveLayer.CreateArtisticText(2, 2, rnumber & n, , , "Arial", 24, cdrTrue)
    Else
    Set sh = ActiveLayer.CreateArtisticText(2, 2, n, , , "Arial", 24, cdrTrue)
    End If

End Sub
Autor:  Axo Margarita [Vie, 08 Abr 2011, 17:33 ]
Asunto:  Imprimir Codigos Descuentos Aleatorios y Procesarlos en un TXT
Citar:
oye, y para mi que soy el autor del tutorial? :)
que no cunda el pánico !! jajaa una ronditaaaaaaaaa para todos !!!
Imagen
Página 1 de 1 Todos los horarios son UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/