Torna al Thread
For C As Integer = 0 To Inserimenti - 1
If txt_Partenza.Text <> "" Then
partito = 1
End If
If albergo.AttivazioneImposta = 1 Then
REM gestisco il passaggio del valore degli esenti alla collection
codesenzione = List_Esenzioni.SelectedValue
End If
Try
Dim conString = ConfigurationManager.ConnectionStrings("DB_GESTIONE_ALBERGHI")
Dim strConnString As String = conString.ConnectionString
Using db As New SqlConnection(strConnString)
db.Open()
Using sqlcmd As New SqlCommand("Insert_movimenti_C59", db)
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.Parameters.AddWithValue("@codicealbergo", SqlDbType.Int).Value = albergo.CodAlbergo
sqlcmd.Parameters.AddWithValue("@codicescheda", SqlDbType.Int).Value = UltimoCodice + C
sqlcmd.Parameters.AddWithValue("@dataarrivo", SqlDbType.SmallDateTime).Value = CDate(txt_Arrivo.Text)
If txt_Partenza.Text <> "" Then
sqlcmd.Parameters.AddWithValue("@datapartenza", SqlDbType.SmallDateTime).Value = CDate(txt_Partenza.Text)
End If
sqlcmd.Parameters.AddWithValue("@codicecomune", SqlDbType.Int).Value = CodiceComune
sqlcmd.Parameters.AddWithValue("@comune", SqlDbType.VarChar).Value = DescrizioneComune
sqlcmd.Parameters.AddWithValue("@codiceprovincia", SqlDbType.Int).Value = CodiceProvincia
sqlcmd.Parameters.AddWithValue("@provincia", SqlDbType.VarChar).Value = DescrizioneProvincia
If opt_Italia.Checked = True Then
sqlcmd.Parameters.AddWithValue("@codicestato", SqlDbType.Int).Value = CodiceRegione
sqlcmd.Parameters.AddWithValue("@stato", SqlDbType.VarChar).Value = DescrizioneRegione
Else
sqlcmd.Parameters.AddWithValue("@codicestato", SqlDbType.Int).Value = CodiceStato
sqlcmd.Parameters.AddWithValue("@stato", SqlDbType.VarChar).Value = DescrizioneStato
End If
sqlcmd.Parameters.AddWithValue("@partito", SqlDbType.Int).Value = partito
sqlcmd.Parameters.AddWithValue("@codicegruppo", SqlDbType.Int).Value = CInt(ddl_Gruppi.SelectedValue)
sqlcmd.Parameters.AddWithValue("@gruppo", SqlDbType.VarChar).Value = ddl_Gruppi.SelectedItem.Text
sqlcmd.Parameters.AddWithValue("@idtassa", SqlDbType.Int).Value = codesenzione
sqlcmd.ExecuteNonQuery()
End Using
End Using
Catch ex As SqlException
Catch ex As Exception
End Try
Next