Generazione fatture - Slato di numeri

martedì 30 novembre 2010 - 12.38

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

nandonando Profilo | Senior Member

398 messaggi | Data Invio: mar 30 nov 2010 - 12:38

MI spigo meglio il mio prog genera delle fatture ovviamente con una numerazione progressiva, le tabelle sono 2,per altri problemi legati alla vecchiacreazione, comunque da queste 2 tabelle entrambe contenenti fattu, prenede da ciascuna il numero massimo di fattura dell'anno in corso e fa +1 e poi ovviamente faccio l'update(che non scrivo), ogni tanto succede che salta qualche numero come mai?
O come potrei risolvere?
Vi scrivo il codice:
'''''''RECUPERO IL MASSIMO NUMERO Fattura ELETTRICO
If cnELETTRICO.State = ConnectionState.Open Then
cnELETTRICO.Close()
End If

Dim sqlCommandELETTRICO As New SqlCommand("SELECT MAX(Numero) AS MaSSIMO FROM tblFatture WHERE (YEAR(DataFattura) = " & Year(data_fattura.Text) & ")", cnELETTRICO)
Try
cnELETTRICO.Open()
Dim rdrRATA As SqlDataReader = sqlCommandELETTRICO.ExecuteReader(CommandBehavior.KeyInfo)

If rdrRATA.Read() Then
If rdrRATA.Item("MaSSIMO").ToString = "" Then
txt_numero_fattura_ELETTRICO.Text = 1
Else
txt_numero_fattura_ELETTRICO.Text = rdrRATA.Item("MaSSIMO").ToString + 1
End If

Else
txt_numero_fattura_ELETTRICO.Text = 1
End If
cnELETTRICO.Close()
Catch ex As Exception
cnELETTRICO.Close()
End Try

'''''''RECUPERO IL MASSIMO NUMERO Fattura ASCENSORI
If cn.State = ConnectionState.Open Then
cn.Close()
End If

Dim sqlCommand1 As New SqlCommand("SELECT MAX(Numero) AS MaSSIMO FROM tblFatture WHERE (YEAR(DataFattura) = " & Year(data_fattura.Text) & ")", cn)
Try
cn.Open()
Dim rdrRATA As SqlDataReader = sqlCommand1.ExecuteReader(CommandBehavior.KeyInfo)

If rdrRATA.Read() Then
If rdrRATA.Item("MaSSIMO").ToString = "" Then
txt_numero_fattura.Text = 1
Else
txt_numero_fattura.Text = rdrRATA.Item("MaSSIMO").ToString + 1
End If

Else
txt_numero_fattura.Text = 1
End If
cn.Close()
Catch ex As Exception
cn.Close()
End Try

''''MASSIMO NUMERO FATTURE ENTRAMBI DATABASE
If Int(txt_numero_fattura.Text) > Int(txt_numero_fattura_ELETTRICO.Text) Then
txt_numero_fattura.Text = txt_numero_fattura.Text
ElseIf Int(txt_numero_fattura_ELETTRICO.Text) > Int(txt_numero_fattura.Text) Then
txt_numero_fattura.Text = txt_numero_fattura_ELETTRICO.Text
End If
http://www.gustoroma.it

aabruzzese Profilo | Junior Member

89 messaggi | Data Invio: mer 12 gen 2011 - 16:04

Ciao,

Perché non fai una tabella di controllo con i dati next_invoice_nbr ...

Non sarebbe pui facile e poi anche pui sicuro dei numeri de fatture?

Angelo Abruzzese

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !