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