Visual Basic - NUM REGISTRO CONSECUTIVO

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.

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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 6

Val: 355

NUM REGISTRO CONSECUTIVO

Publicado por raul (160 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

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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar