• Domingo 22 de Diciembre de 2024, 23:22

Autor Tema:  Generar Un Rango De X A Y Numero  (Leído 1486 veces)

UserCode

  • Miembro MUY activo
  • ***
  • Mensajes: 338
    • Ver Perfil
Generar Un Rango De X A Y Numero
« en: Viernes 14 de Octubre de 2005, 18:01 »
0
hola muy buenos dias/tardes/noches...

Una consulta...

Supongamos que tengo una planilla o Guia con el numero de comprobante 300406651 y quiero generar un rango de numeros de comprobantes para que cuando se cargue la Ventana, ya tenga el siguiente numero de Comprobante.

Es decir que si trabaje con la Guia con el Num: 300406651, al abrir otra vez la ventana, el numero de Comprobante ahora es el 300406652, pero como podría alimentar al sistema con respecto a indicarle lo siguiente...

Hoy con este X código de Oficina, se va a trabajar con Y rango de numeros de guias.

Para dar la idea más clara el que pueda hacer una Ventana en la que se determina el rango de Numeros de Comprobantes y que el programa lo genere, con solo indicarle cuantas seran.

Generando 10 numeros de Comprobantes a partir de uno indicado:
Cifra Inicial: 300406651
Cantidad: 10
Cifra Final: 300406661

Generando 50 numeros de Comprobantes a partir de uno indicado:
Cifra Inicial: 300406651
Cantidad: 50
Cifra Final: 300406701

El problema es que me produce "desbordamiento" he probado con un ciclo For, pero en verdad no sé como declarar la variable "i" ya que sea Integer o Long se sigue producendo el desbordamiento ya que son cifras muy grandes, como podría hacer esto? :(
Si esto es Leído por accidente, induzca al vomito

cpmario

  • Miembro HIPER activo
  • ****
  • Mensajes: 629
    • Ver Perfil
    • http://www.cpimario.com
Re: Generar Un Rango De X A Y Numero
« Respuesta #1 en: Viernes 14 de Octubre de 2005, 21:22 »
0
Esto funciona

Código: Text
  1.  
  2. Private Sub Command1_Click()
  3.     Dim i As Double
  4.     For i = 999999300406651 To 999999300406701
  5.        Text1 = Text1 & i & vbCrLf
  6.     Next i
  7. End Sub
  8.  
  9.  
:)

UserCode

  • Miembro MUY activo
  • ***
  • Mensajes: 338
    • Ver Perfil
Re: Generar Un Rango De X A Y Numero
« Respuesta #2 en: Viernes 14 de Octubre de 2005, 21:50 »
0
no compadre... no sirve :(
Si esto es Leído por accidente, induzca al vomito

UserCode

  • Miembro MUY activo
  • ***
  • Mensajes: 338
    • Ver Perfil
Re: Generar Un Rango De X A Y Numero
« Respuesta #3 en: Sábado 15 de Octubre de 2005, 00:05 »
0
Problema resuelto  B)
Si esto es Leído por accidente, induzca al vomito