'---------------------
Dim OleDbParameters(23) As Oledb.OleDbParameter
'--------- PARAMETRI IN INPUT
OleDbParameters(0) = New Oledb.OleDbParameter("", e.cDoPage.OwnercDoPage.CdoStartValues("AnnoAss").Value)
OleDbParameters(1) = New Oledb.OleDbParameter("", e.cDoPage.OwnercDoPage.CdoStartValues("TipoAss").Value)
OleDbParameters(2) = New Oledb.OleDbParameter("", e.cDoPage.OwnercDoPage.CdoStartValues("NroAss").Value)
OleDbParameters(3) = New Oledb.OleDbParameter("", "R")
OleDbParameters(4) = New Oledb.OleDbParameter("", e.cDoPage.OwnercDoPage("RIGHEORD")("ANNOHID").Value)
OleDbParameters(5) = New Oledb.OleDbParameter("", e.cDoPage.OwnercDoPage("RIGHEORD")("TIPOHID").Value)
OleDbParameters(6) = New Oledb.OleDbParameter("", e.cDoPage.OwnercDoPage("RIGHEORD")("NROHID").Value)
OleDbParameters(7) = New Oledb.OleDbParameter("", e.cDoPage.OwnercDoPage("RIGHEORD")("RG").Value)
OleDbParameters(8) = New Oledb.OleDbParameter("", e.cDoPage.CdoStartValues("NEW_TIPO_ART").Value)
OleDbParameters(9) = New Oledb.OleDbParameter("", e.cDoPage.CdoStartValues("NEW_COD_ART").Value)
OleDbParameters(10) = New Oledb.OleDbParameter("", e.cDoPage("FILTER")("DESC").Value)
OleDbParameters(11) = New Oledb.OleDbParameter("", DbNull.Value) '<------- iva
OleDbParameters(12) = New Oledb.OleDbParameter("", DbNull.Value) '<------- unimis
OleDbParameters(13) = New Oledb.OleDbParameter("", e.cDoPage("FILTER")("QTA").Value)
OleDbParameters(14) = New Oledb.OleDbParameter("", "N") '<------- ANOM_TIPO_NEGOZIO Fissa 'N'
OleDbParameters(15) = New Oledb.OleDbParameter("", DbNull.Value) '<------- ANOM_CODICE_NEGOZIO
OleDbParameters(16) = New Oledb.OleDbParameter("", "S") '<------- ANOM_TIPO_SEDE Fissa 'S'
OleDbParameters(17) = New Oledb.OleDbParameter("", e.cDoPage("FILTER")("ANOMALIA_SEDE").Value)
OleDbParameters(18) = New Oledb.OleDbParameter("", e.cDoPage("FILTER")("AZIONE").Value)
OleDbParameters(19) = New Oledb.OleDbParameter("", e.cDoPage("FILTER")("RESPONSABILITA").Value)
OleDbParameters(20) = New Oledb.OleDbParameter("", "") '----> '**NoteNegozio**', sempre null
OleDbParameters(21) = New Oledb.OleDbParameter("", e.cDoPage("FILTER")("NOTE_SEDE").Value)
OleDbParameters(22) = New Oledb.OleDbParameter("", e.cDoConnect.UserName)
OleDbParameters(23) = New Oledb.OleDbParameter("", "RCC")
dim ret as integer = e.cdoconnect.executeStored("ASS_SP_CREA_RIGA_ORD_ASS",OleDbParameters)