¿Cómo puedo generar un numero de factura que cambie al abrir dicha factura?
Actualmente me encuentro trabajando con visual basic 6.0 en la elaboración de formularios para ser llenados en la misma pc para hacer una base de datos, los formularios son clientes, facturas y puntos de ventas. Mi pregunta es sobre como generar un numero de factura que cambie correlativamente cuando abra la factura y también como hago para hacer una hoja de calculo tipo excel para los cálculos dentro de la factura. Cualquier información, dirección web, programa, etc... Que me puedan facilitar que tenga que ver con esto se los agradeceré mucho pues se trata de un proyecto que estoy desarrollando y tengo que entregarlo.
1 Respuesta
Respuesta de martinnets
1
Aqui te envio una funcion para generar los correlativos automaticamente segun:
ls_tabla = nombre de la tabla
ls_Campo = nombre el campo correlativo
ls_formato= formato del correlativo
ls_condicion= condiciones para el correlativo, esto es opcional
'Genera un Correlativo segun parametros
Public Function Genera_Secuencia(ls_tabla As String, ls_campo As String, ls_formato As String, Optional ls_condicion As String = "") As String
Dim rsSecuencia As New ADODB.Recordset
' En esta linea deberias modificar la funcion "NVL" por ISNULL para SQL pero si usas ORACLE usa "NVL" es para ORACLE
gsSQL = "SELECT NVL(MAX(" & ls_campo & "), 0)+1 FROM " & ls_tabla & ""
If ls_condicion <> "" Then
gsSQL = gsSQL & "WHERE " & ls_condicion
End If
If EjecutarOrdenSQL(gsSQL, rsSecuencia) Then
Genera_Secuencia = Format(rsSecuencia(0), ls_formato)
rsSecuencia.Close
Set rsSecuencia = Nothing
End If
End Function
ls_tabla = nombre de la tabla
ls_Campo = nombre el campo correlativo
ls_formato= formato del correlativo
ls_condicion= condiciones para el correlativo, esto es opcional
'Genera un Correlativo segun parametros
Public Function Genera_Secuencia(ls_tabla As String, ls_campo As String, ls_formato As String, Optional ls_condicion As String = "") As String
Dim rsSecuencia As New ADODB.Recordset
' En esta linea deberias modificar la funcion "NVL" por ISNULL para SQL pero si usas ORACLE usa "NVL" es para ORACLE
gsSQL = "SELECT NVL(MAX(" & ls_campo & "), 0)+1 FROM " & ls_tabla & ""
If ls_condicion <> "" Then
gsSQL = gsSQL & "WHERE " & ls_condicion
End If
If EjecutarOrdenSQL(gsSQL, rsSecuencia) Then
Genera_Secuencia = Format(rsSecuencia(0), ls_formato)
rsSecuencia.Close
Set rsSecuencia = Nothing
End If
End Function
