Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Visual Basic » NUM REGISTRO CONSECUTIVO

Visual Basic - NUM REGISTRO CONSECUTIVO

Life is soft - evento anual de software empresarial
Volver
Nuevo Tema
<<>>
 
Vista:

NUM REGISTRO CONSECUTIVO

Publicado por RAUL (3 intervenciones) el 13/06/2021 15:27:12
HOLA A TODOS... ESPERO ME PUEDAN DAR UNA MANO CON UN PEQUEÑO PROYECTO PERSONAL. QUISIERA SABER COMO APLICAR EL CÓDIGO ABAJO DESCRITO PARA UNA BASE DE DATOS ACCES CON FORMULARIO DE REGISTROS EN VB6.0 GRACIAS DE ANTEMANO. SOY NUEVO EN ESTO.

1
2
3
4
Private Sub FORM_Current ()
If Not Me.NewRecord Then Exit Sub
Me.NumFra = Year(Date) & Format(Nz(DMax("Val( Mid(NumFra, 5))", "Facturas", "Val( Left(NumFra,4)) = " & Year (date)), 0) + 1, "0000")
End Sub
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
sin imagen de perfil
Val: 355
Bronce
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

NUM REGISTRO CONSECUTIVO

Publicado por raul (157 intervenciones) el 21/06/2021 21:34:57
Hola Tocayo, compadre si solo das trigo no pidas que te hagan una PIZZA.

Basicamente tienes una tabla donde se almacenan facturas por año y tu quieres localizar la ultima factura para agregar un consecutivo... Al menos lo que infiero.
Si lo anterior es cierto se supone que desde VB6 tienes una conexión a database por ende yo la denominaré como CNN y que tienes una TABLA que tiene al menos un campo llamado NUMFRA y suponemos que en algun lugar exista un campo denominado AÑO en mi caso FAÑO...

...Como vez hay que suponer mucho para poderte ayudar


1
2
3
4
5
6
7
8
9
10
11
12
Public Function FACTURA(Año As integer) As string 'Mecanismo de facturación
    Dim RS As Recordset, TMP as integer: Set RS = New Recordset
    RS.Open "select LAST(NUM) as indicador from TABLAX where FAÑO = " & año , CNN, adOpenDynamic, adLockReadOnly
    if RS.recordcount =0 then
        Factura = año & "0001"    'Esta es la primera factura del año
    else
        temp = val(right(rs!indicador, 4)) +1   'Obtener los ultimo 4 caracteres, ejemplo 0018 se va a transformar en 18
        Factura = Año & iif(len(temp) = 1, "000", IIF(len(temp) = 2, "00", "0")) & temp
        se)
    End If
    Set RS = Nothing
End Function


Ahora cada que quieras obtener el consecurtivo dices
X = Factura(2021) ó X = factura(2020)
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