19/11/2004, 01:06
|
| | | Fecha de Ingreso: noviembre-2004
Mensajes: 18
Antigüedad: 20 años, 3 meses Puntos: 0 | |
| Autoimcremetable
INTENTA ASI
___________ text1 = Rst.Fields("mov")
MI FUNCION ES ASI
Private Function RecibirUltimoFolio() As Boolean
___On Error GoTo ErrorRecibirUltimoFolio
___CadenaSQL = "SELECT max(ventas.folio) AS ultimo FROM ventas"
___Rst.Open CadenaSQL, Cnn, adOpenStatic, adLockOptimistic
___UltimoFolio = Rst.Fields("ultimo")
___Rst.Close
___DoEvents
___RecibirUltimoFolio = True
___Exit Function
ErrorRecibirUltimoFolio:
___RecibirUltimoFolio = False
End Function
(DONDE CacenaSQL y UltimoFolio estan predefinidas)
yo veo otra solucion practica como truco sencillo
en un archivo de plano tipo ini
o en una tabla de dos campos donde se asignen parametros
cada que se genera una facutra incrmentar su valor a la variable
y de ahi tomar el valor la proxima vez que se pretende generar una factura
y si en el curso se descompone las secuencia
en herramientas - opciones permitir que el usuario asigne un valor correcto segun su secuendia correcta el UltimoFolio actualizando el archivo plano o la tabla de parametros
tambien sirve para que el usuario por primera vez que usa el programa
asigne un Folio Inicial
pues podria ya tener emitidas facturas antes de usar el programa |