Sub NUOVO_NUMERO_DOCUMENTO(tip_doc As String,ser_doc As String)As Long
Try
Dim cod_lin_num As Long= modDB.DLookup("CODICE_LINEA_NUMERAZIONE", "DOCUMENTITIPI", "TIPO='" & tip_doc & "' ")
Dim passo_num As Long= modDB.DLookup("STEP", "LINEENUMERAZIONI", "CODICE=" & cod_lin_num)
Dim su_base As String= modDB.DLookup("PROGRESSIVO_SU_BASE", "LINEENUMERAZIONI", "CODICE=" & cod_lin_num)
Dim numero_doc As Long = 0, numero_max_attuale As Long = 0
' Cicla fra i documenti con la stessa linea numerazione
Dim MyrsDocTipi As ResultSet = MyDB.ExecQuery("select TIPO from DOCUMENTITIPI where CODICE_LINEA_NUMERAZIONE=" & cod_lin_num)
Do While MyrsDocTipi.NextRow
If su_base = "ANNO" Then
If MyDB.IsInitialized = False Then
MyDB.Initialize2(Db_Driver_Class,Db_Jdbc_Url,Db_Username,Db_Password)
If MyDB.IsInitialized = False Then
logga ("NUOVO_NUMERO_DOCUMENTO - ERRORE CONNESSIONE DATABASE => " & LastException)
Return 0
Else
logga("Connessione a DB eseguita correttamente" )
End If
End If
Dim MyRsDocTes As ResultSet = MyDB.ExecQuery("select max(NUMERO_DOCUMENTO) as MAX_NUM_DOC from DOCUMENTITESTATE where TIPO_DOCUMENTO='" & tip_doc & "' and SERIE_DOCUMENTO='" & ser_doc & "' and DATA_DOCUMENTO >= '01/01/" & DateTime.GetYear(DateTime.Now) & "' and DATA_DOCUMENTO <= '12/31/" & DateTime.GetYear(DateTime.Now) & "' ")
Do While MyRsDocTes.NextRow
If MyRsDocTes.Getstring("MAX_NUM_DOC")=Null Then
Return 0
Else
If MyRsDocTes.Getstring("MAX_NUM_DOC").Length>0 Then
numero_doc = MyRsDocTes.Getstring("MAX_NUM_DOC")
If numero_doc >= numero_max_attuale Then
'----------------------------------------------
' Quando passa la riga sotto e' tutto ok
'----------------------------------------------
numero_max_attuale = numero_doc
End If
Else
Return 0
End If
End If
Loop
End If
If numero_doc >= numero_max_attuale Then
'************************************************
' Quando passa la riga sotto viene segnalato l'errore
'************************************************
numero_max_attuale = numero_doc
End If
Loop
Dim prossimo_numero_disponibile As Long= passo_num + numero_max_attuale
Catch
Log(LastException)
Dim prossimo_numero_disponibile As Long=1
End Try
MyDB.ExecNonQuery ("update LINEENUMERAZIONI set VALORE_ATTUALE=" & prossimo_numero_disponibile & " where CODICE=" & cod_lin_num)
If IsNumber(prossimo_numero_disponibile) Then
Return prossimo_numero_disponibile
Else
Return 1
End If
End Sub
