Newsgroup: it.comp.appl.access
Titolo: fatturazione 2013

Buongiorno a tutti.
Il mio database di fatturazione contiene il campo IDFattura (campo
contatore) che ovviamente corrisponde al numero fattura progressivo.
Se volessi aggiungere, dopo il numero della fattura, il testo "/2013" cosa 
dovrei scrivere nelle
propriet� del campo e cio� nella riga "origine controllo" ?
Grazie a chi vorr� fornirmi un aiuto.
Saluti
Lucky
 
 

 
 
= [IDFattura] & "/2013"
 
-- 
------------
Pablitomf
Napoli sempre nel "Q"uore!
"mammasantissima" si nasce, non si diventa.
 
TheSpaceCowboy : 
Britos deve recuperare per arrivare in forma al prossimo
infortunio - 24/10/12
 

 Lucky
 
Ciao,
Utilizzando come numerazione delle fatture il campo contatore, riesci a gestire le cancellazioni?
Ad esempio se l'ultima fattura che hai inserito questa mattina, oggi pomeriggio la devi cancellare perchè annullata o non andata a buon fine. Il campo contatore continua ad incrementare? O sbaglio.
Io ad esempio ho preferito creare una funzione che controlla il numero di fatture inserite e mi restituisce l'ultimo numero fattura, quindi all'inserimento di un nuovo record si incrementa di 1.
Nicola

 Lucky
 
Ciao,
Utilizzando come numerazione delle fatture il campo contatore, riesci a 
gestire le cancellazioni?
Ad esempio se l'ultima fattura che hai inserito questa mattina, oggi 
pomeriggio la devi cancellare perch� annullata o non andata a buon fine. Il 


 
Ciao Lucky io ho fatto così, sicuramente qualcuno molto più esperto di me potrà consigliarti meglio.
Ho comunque un campo numerico contatore invisibile come chiave primaria
Ho un campo di testo  "NumeroFattura" nel quale come proprietà valore predefinito ho settato la funzione = AssegnaNumeroFattura().
e questa è la funzione globale che ho creato nel modulo.
 
Function AssegnaNumeroFattura()
On Error Resume Next
Set Gestione = DBEngine.Workspaces(0).Databases(0)
Set Dettagli = Gestione.OpenRecordset("Fatture") 'Apro la tabella di origine "Fatture"
Dettagli.Index = "primarykey"
Dettagli.MoveLast ' Mi porto sull'ultimo record inserito
Ultimafattura = Dettagli.NumeroFattura 'Assegno a Ultimafattura il numero dell'ultima fattura
 
LunNumFat = Len(Ultimafattura) 'Analizzo la lunghezza della stringa numero fattura
Ultimafattura = Left(Ultimafattura, LunNumFat - 5) 'tolgo la parte destra(/2013)
Ultimafattura = CInt(Ultimafattura) + 1 'Converto la stringa in intero e'incremento di 1 il numero fattura.
Ultimafattura = Ultimafattura & "/" & Year(Date) 'Aggiungo (/2013)
AssegnaNumeroFattura = Ultimafattura ' assegno il valore alla funzione
Dettagli.Close
Ultimafattura = Ultimafattura - 1
End Function


Ciao Lucky io ho fatto cos�, sicuramente qualcuno molto pi� esperto di me 
potr� consigliarti meglio.
Ho comunque un campo numerico contatore invisibile come chiave primaria
Ho un campo di testo  "NumeroFattura" nel quale come propriet� valore 
predefinito ho settato la funzione = AssegnaNumeroFattura().
e questa � la funzione globale che ho creato nel modulo.


 End Function
 
Ciao Lucky,
Guarda se può esserti utile questa modifica.
In pratica da la numerazione da 1 a 9 sarà così 001/2013
da 10 a 99 sarà così 020/2013
da 100 in poi sarà così 101/2013.
 
Function AssegnaNumeroFattura()
On Error Resume Next
Set Gestione = DBEngine.Workspaces(0).Databases(0)
Set Dettagli = Gestione.OpenRecordset("Fatture") 'Apro la tabella di origine "Fatture"
Dettagli.Index = "primarykey"
Dettagli.MoveLast ' Mi porto sull'ultimo record inserito
ultimafattura = Dettagli.NumeroFattura 'Assegno a Ultimafattura il numero dell'ultima fattura
 
LunNumFat = Len(ultimafattura) 'Analizzo la lunghezza della stringa numero fattura
ultimafattura = Left(ultimafattura, LunNumFat - 5) 'tolgo la parte destra(/2013)
IntUltimaFattura = ultimafattura
ultimafattura = CInt(ultimafattura) + 1 'Converto la stringa in intero e'incremento di 1 il numero fattura.
IntUltimaFattura = CInt(ultimafattura)
Select Case IntUltimaFattura
Case 1 To 9
ultimafattura = "00" & ultimafattura & "/" & Year(Date) 'Aggiungo (/2013)
'MsgBox IntUltimaFattura, vbOKOnly, "Minore di 10"
AssegnaNumeroFattura = ultimafattura
Case 10 To 99
'MsgBox IntUltimaFattura, vbOKOnly, "Minore di 100"
ultimafattura = "0" & ultimafattura & "/" & Year(Date) 'Aggiungo (/2013)
AssegnaNumeroFattura = ultimafattura
Case Else
ultimafattura = ultimafattura & "/" & Year(Date) 'Aggiungo (/2013)
AssegnaNumeroFattura = ultimafattura
End Select
 ' assegno il valore alla funzione
Dettagli.Close
ultimafattura = ultimafattura - 1
End Function

 Buongiorno a tutti.
 
non devi fare nulla:
 
La Risoluzione Ministeriale 1/E del 10/01/2013 l'Agenzia delle Entrate ha 
confermato, a dispetto di quanto riportato sulla stampa specializzata, che 
le indicazioni riportate sulla Legge di stabilit� (L.228/2012) sono da 
intendersi in modo estensivo (come ulteriore possibilit� per le aziende) e 
non come limitative (quindi senza l'eliminazione della possibilit� di 
ripartire dal numero 1 ogni anno).
 
Si pu� utilizzare pertanto una delle seguenti modalit�:
 
- partire da 1 dal 01/01/2013
- proseguire col numero del 2012 a partire dal 01/01/2013
- usare la serie per anno
- non usare la serie per anno e ricominciare da 1 ogni anno
- non usare la serie per anno e continuare dall'anno precedente.
 
Di conseguenza, non sar� eseguito alcun intervento software potendo 
proseguire le numerazioni dei documenti con le consuete modalit�.