none
Adicionar Ano no numero da factura (use o codigo abaico) RRS feed

  • Pergunta

  • Boa tarde, boa noite, bom dia

    Quero que quando adiciono o novo registo aparece numero da factura com ano como por exemplo : 012/2017

    Quanto terminar o ano 2017,recomecar a facturacao com o numero 001/2018 e assim sucessivamente.

    Com o seguinte código consigo incrementar o numero so que não recomeca a facturacao quando o novo ano iniciar e também não adiciona o ano em que estamos no numero da fatura.

    Alguém pode-me ajudar a alterar isto adaptando este mesmo código para nao me deixar confuso.

    Este código funciona normal sem problemas so que gera numero de factura simples de três dígitos, quero que gera um numero de factura no formato xxxx/ano.

    Segue o código:

    Private Sub Comando84_Click()

    On Error Resume Next

    If ncliente = "" Or IsNull(ncliente) Then

    MsgBox "É necessário introducir o número de cliente para facturar", vbCritical

    gravar.Visible = False

    Else

    Call Comando46_Click

     If IsNull(Date) Then

     Date = today

     End If

    Set base = CurrentDb()

    If Combinacao262 = "" Or IsNull(Combinacao262) Then

    MsgBox "Chose Proforma Invoice or Invoice ", vbInformation

    Else

    'cadena = "select max(number_invoice)+ 1 as conta from invoice or proforma where year(date_emissao)= " & Year(date)

    If Combinacao262.ListIndex = 1 Then

    cadena = "select max(number_factura)+ 1 as conta from tblFacturas"

        cmdGravarFacturas.Visible = True

         cmdGravarFacturas.Enabled = True

        cmdGravarPro.Visible = False

    Else

    cadena = "select max(numero_factura)+ 1 as conta from tblProInvoice"

     cmdGravarPro.Visible = True

     cmdGravarPro.Enabled = True

     cmdGravarFacturas.Visible = False

    End If

    Set consulta = base.CreateQueryDef("", cadena)

    Set registro = consulta.OpenRecordset()

    oculto.Visible = True

    If registro!conta > 0 Then

    facturaactual = registro!conta

    cadena = "select factura_comeco from tblOpcoes"

    Set consultacomeco = base.CreateQueryDef("", cadena)

    Set registrocomeco = consultacomeco.OpenRecordset()

    registrocomeco.MoveFirst

    facturaactual = registrocomeco!Factura_comeco

    registrocomeco.Close

    registro.Close

    base.Close

    If infonome = "não encontrado" Then

    oculto.Visible = True

    cmdGravarFacturas.Visible = False

    cmdGravarPro.Visible = False

    Else

    If Combinacao262.ListIndex = 1 Then

    oculto.Visible = True

    cmdGravarFacturas.Visible = True

    Else

    oculto.Visible = True

    cmdGravarPro.Visible = True

    End If

    End If

    oculto.Visible = False

    modificar.Visible = False

    promodificar.Visible = False

    End If

    End If

    End If

    End Sub


    • Editado buonolossato sexta-feira, 21 de julho de 2017 23:47
    sexta-feira, 21 de julho de 2017 23:46