Invio il codice richiesto.
Public Function memDettPregiudizDB(ByVal oResp As Object, ByVal nIDCliente As Object, ByRef sKey As String, ByVal sInputKeyAnag As String) As String
Dim oConn As SqlConnection = Nothing
Dim oCmd As SqlClient.SqlCommand
Dim sCmdText As String
Dim oParam As SqlClient.SqlParameter
Dim nIdOutput As Long = 0
Dim oXmlDoc As New XmlDocument
Dim s_dp_TipoEffetto As String = ""
Dim s_dp_CodiceAtto As String = ""
Dim s_dp_IdGenAtto As String = ""
Dim s_dp_IdPartAtto As String = ""
Dim s_dp_DataRegAtto As String = ""
Dim s_dp_CodUfficio As String = ""
Dim s_dp_ComuneUff As String = ""
Dim s_dp_CodCatUfficio As String = ""
Dim s_dp_ProvUff As String = ""
Dim s_dp_CodCatDocum As String = ""
Dim s_dp_CodDocum As String = ""
Dim s_dp_DescrDoc As String = ""
Dim s_dp_NoteGeneriche As String = ""
Dim s_dp_ConservatLireImpTot As String = ""
Dim s_dp_ConservatLireCapitFinanz As String = ""
Dim s_dp_ConservatLireSpeseFinanz As String = ""
Dim s_dp_ConservatLireFlImpTotale As String = ""
Dim s_dp_ConservatLireFlCapitFinanz As String = ""
Dim s_dp_ConservatLireFlSpeseFinanz As String = ""
Dim s_dp_ConservatEuroImpTot As String = ""
Dim s_dp_ConservatEuroCapitFinanz As String = ""
Dim s_dp_ConservatEuroSpeseFinanz As String = ""
Dim s_dp_ConservatEuroFlImpTotale As String = ""
Dim s_dp_ConservatEuroFlCapitFinanz As String = ""
Dim s_dp_ConservatEuroFlSpeseFinanz As String = ""
Dim s_dp_Trib_DataUdienza As String = ""
Dim s_dp_Trib_OraUdienza As String = ""
Dim s_dp_Trib_Curatore_Nome As String = ""
Dim s_dp_Trib_Curatore_Ind As String = ""
Dim s_dp_Trib_Curatore_ComuneRes As String = ""
Dim s_dp_Trib_Curatore_ProvRes As String = ""
Dim s_dp_NumAnagraContro As Integer = 0
Dim s_dp_NumAnagraFavore As Integer = 0
Dim s_dp_NumBeniColpiti As Integer = 0
Dim s_dp_Contro_PersF_Cognome As String = ""
Dim s_dp_Contro_PersF_Nome As String = ""
Dim s_dp_Contro_PersF_DNascita As String = ""
Dim s_dp_Contro_PersF_Sesso As String = ""
Dim s_dp_Contro_PersF_ComNascita As String = ""
Dim s_dp_Contro_PersF_ProvNascita As String = ""
Dim s_dp_Contro_PersF_CodFisc As String = ""
Dim s_dp_Contro_PersGiur_Nominativo As String = ""
Dim s_dp_Contro_PersGiur_CodFisc As String = ""
Dim s_dp_Contro_PersGiur_ComSede As String = ""
Dim s_dp_Contro_PersGiur_ProvSede As String = ""
Dim s_dp_Contro_PersGiur_NatGiur As String = ""
Dim s_dp_Contro_PersGiur_CodABI As String = ""
Dim s_dp_Favore_PersF_Cognome As String = ""
Dim s_dp_Favore_PersF_Nome As String = ""
Dim s_dp_Favore_PersF_DNascita As String = ""
Dim s_dp_Favore_PersF_Sesso As String = ""
Dim s_dp_Favore_PersF_ComNascita As String = ""
Dim s_dp_Favore_PersF_ProvNascita As String = ""
Dim s_dp_Favore_PersF_CodFisc As String = ""
Dim s_dp_Favore_PersGiur_Nominativo As String = ""
Dim s_dp_Favore_PersGiur_CodFisc As String = ""
Dim s_dp_Favore_PersGiur_ComSede As String = ""
Dim s_dp_Favore_PersGiur_ProvSede As String = ""
Dim s_dp_Favore_PersGiur_NatGiur As String = ""
Dim s_dp_Favore_PersGiur_CodABI As String = ""
Dim s_dp_PrimoBeneColpito_Prov As String = ""
Dim s_dp_PrimoBeneColpito_Comune As String = ""
Dim oNodePrinc As XmlNode
Dim oNode1Liv As XmlElement
Dim oNode2Liv As XmlElement
Dim oNode3Liv As XmlElement
Dim oNode4Liv As XmlElement
memDettPregiudizDB = False
Try
If oFnz.OpenConn(ConfigurationManager.AppSettings("sqlConnectionString"), oConn) = True Then
'oXmlDoc.Load("D:\Progetti\dev\Asp.Net\TaxusNet\AreaVisure\dd.xml")
'oXmlDoc.Load("D:\Progetti\dev\Asp.Net\TaxusNet\AreaVisure\altea.xml")
'metto il ris fra nuovi tag poichkè il metoto va in errore se vengono restituiti più atti
oXmlDoc.LoadXml("<Taxus>" & oResp.Atti & "</Taxus>")
For Each oNodePrinc In oXmlDoc.GetElementsByTagName("ci:Atto")
oNode1Liv = oNodePrinc
oNode2Liv = oNode1Liv.GetElementsByTagName("ci:DatiGenerali").ItemOf(0)
If Not oNode2Liv Is Nothing Then
s_dp_TipoEffetto = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:TipoEffetto").ItemOf(0))
s_dp_CodiceAtto = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:CodiceAtto").ItemOf(0))
s_dp_IdGenAtto = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:IdentificativoGeneraleAtto").ItemOf(0))
s_dp_IdPartAtto = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:IdentificativoParticolareAtto").ItemOf(0))
s_dp_DataRegAtto = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:DataRegistrazioneAtto").ItemOf(0))
s_dp_CodUfficio = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:CodiceUfficio").ItemOf(0))
s_dp_CodCatUfficio = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:CodiceCategoriaUfficio").ItemOf(0))
s_dp_ComuneUff = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:ComuneUfficio").ItemOf(0))
s_dp_ProvUff = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:ProvinciaUfficio").ItemOf(0))
s_dp_CodCatDocum = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:CodiceCategoriaDocumento").ItemOf(0))
s_dp_CodDocum = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:CodiceDocumento").ItemOf(0))
s_dp_DescrDoc = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:DescrizioneCodiceDocumento").ItemOf(0))
s_dp_NoteGeneriche = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:NoteGeneriche").ItemOf(0))
End If
oNode2Liv = oNode1Liv.GetElementsByTagName("ci:DatiConservatoria").ItemOf(0)
If Not oNode2Liv Is Nothing Then
oNode3Liv = oNode2Liv.GetElementsByTagName("ci:Lire").ItemOf(0)
If Not oNode3Liv Is Nothing Then
s_dp_ConservatLireFlImpTotale = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:FlagImportoTotale").ItemOf(0))
s_dp_ConservatLireFlCapitFinanz = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:FlagImportoFinanziato").ItemOf(0))
s_dp_ConservatLireFlSpeseFinanz = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:FlagImportoSpesa").ItemOf(0))
s_dp_ConservatLireImpTot = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:ImportoTotale").ItemOf(0))
s_dp_ConservatLireCapitFinanz = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:CapitaleFinanziato").ItemOf(0))
s_dp_ConservatLireSpeseFinanz = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:SpeseFinanziamento").ItemOf(0))
End If
oNode3Liv = oNode2Liv.GetElementsByTagName("ci:Euro").ItemOf(0)
If Not oNode3Liv Is Nothing Then
s_dp_ConservatEuroFlImpTotale = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:FlagImportoTotale").ItemOf(0))
s_dp_ConservatEuroFlCapitFinanz = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:FlagImportoFinanziato").ItemOf(0))
s_dp_ConservatEuroFlSpeseFinanz = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:FlagImportoSpesa").ItemOf(0))
s_dp_ConservatEuroImpTot = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:ImportoTotale").ItemOf(0))
s_dp_ConservatEuroCapitFinanz = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:CapitaleFinanziato").ItemOf(0))
s_dp_ConservatEuroSpeseFinanz = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:SpeseFinanziamento").ItemOf(0))
End If
oNode3Liv = Nothing
End If
oNode2Liv = oNode1Liv.GetElementsByTagName("ci:DatiTribunale").ItemOf(0)
If Not oNode2Liv Is Nothing Then
s_dp_Trib_DataUdienza = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:DataUdienza").ItemOf(0))
s_dp_Trib_OraUdienza = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:OraUdienza").ItemOf(0))
End If
If Not oNode2Liv Is Nothing Then
oNode3Liv = oNode2Liv.GetElementsByTagName("ci:Curatore").ItemOf(0)
If Not oNode3Liv Is Nothing Then
s_dp_Trib_Curatore_Nome = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:Nominativo").ItemOf(0))
s_dp_Trib_Curatore_Ind = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:Indirizzo").ItemOf(0))
s_dp_Trib_Curatore_ComuneRes = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:ComuneResidenza").ItemOf(0))
s_dp_Trib_Curatore_ProvRes = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:ProvinciaResidenza").ItemOf(0))
End If
oNode3Liv = Nothing
End If
oNode2Liv = oNode1Liv.GetElementsByTagName("ci:NumeroAnagraficheContro").ItemOf(0)
If Not oNode2Liv Is Nothing Then
s_dp_NumAnagraContro = cNothingingStr_InnerText(oNode2Liv)
End If
oNode2Liv = oNode1Liv.GetElementsByTagName("ci:NumeroAnagraficheAFavore").ItemOf(0)
If Not oNode2Liv Is Nothing Then
s_dp_NumAnagraFavore = cNothingingStr_InnerText(oNode2Liv)
End If
oNode2Liv = oNode1Liv.GetElementsByTagName("ci:NumeroBeniColpiti").ItemOf(0)
If Not oNode2Liv Is Nothing Then
s_dp_NumBeniColpiti = cNothingingStr_InnerText(oNode2Liv)
End If
oNode2Liv = oNode1Liv.GetElementsByTagName("ci:PrimaAnagraficaContro").ItemOf(0)
If Not oNode2Liv Is Nothing Then
oNode3Liv = oNode2Liv.GetElementsByTagName("ci:PersonaGiuridica").ItemOf(0)
If Not oNode3Liv Is Nothing Then
oNode4Liv = oNode3Liv.GetElementsByTagName("ci:DatiAnagrafici").ItemOf(0)
If Not oNode4Liv Is Nothing Then
s_dp_Contro_PersGiur_Nominativo = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:RagioneSociale").ItemOf(0))
s_dp_Contro_PersGiur_CodFisc = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:CodiceFiscaleImpresa").ItemOf(0))
s_dp_Contro_PersGiur_ComSede = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:ComuneSedeLegale").ItemOf(0))
s_dp_Contro_PersGiur_ProvSede = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:ProvinciaSedeLegale").ItemOf(0))
s_dp_Contro_PersGiur_NatGiur = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:FormaGiuridica").ItemOf(0))
s_dp_Contro_PersGiur_CodABI = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:CodiceABI").ItemOf(0))
End If
oNode4Liv = Nothing
End If
oNode3Liv = Nothing
oNode3Liv = oNode2Liv.GetElementsByTagName("ci:PersonaFisica").ItemOf(0)
If Not oNode3Liv Is Nothing Then
oNode4Liv = oNode3Liv.GetElementsByTagName("ci:DatiAnagrafici").ItemOf(0)
If Not oNode4Liv Is Nothing Then
s_dp_Contro_PersF_Cognome = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:Cognome").ItemOf(0))
s_dp_Contro_PersF_Nome = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:Nome").ItemOf(0))
s_dp_Contro_PersF_DNascita = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:DataDiNascita").ItemOf(0))
s_dp_Contro_PersF_Sesso = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:Sesso").ItemOf(0))
s_dp_Contro_PersF_ComNascita = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:ComuneNascita").ItemOf(0))
s_dp_Contro_PersF_ProvNascita = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:ProvinciaNascita").ItemOf(0))
s_dp_Contro_PersF_CodFisc = cNothingingStr_InnerText(oNode4Liv.GetElementsByTagName("ci:CodiceFiscale").ItemOf(0))
End If
oNode4Liv = Nothing
End If
oNode3Liv = Nothing
End If
oNode2Liv = oNode1Liv.GetElementsByTagName("ci:PrimaAnagraficaAFavore").ItemOf(0)
If Not oNode2Liv Is Nothing Then
oNode3Liv = oNode2Liv.GetElementsByTagName("ci:PersonaGiuridica").ItemOf(0)
If Not oNode3Liv Is Nothing Then
s_dp_Favore_PersGiur_Nominativo = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:RagioneSociale").ItemOf(0))
s_dp_Favore_PersGiur_CodFisc = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:CodiceFiscaleImpresa").ItemOf(0))
s_dp_Favore_PersGiur_ComSede = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:ComuneSedeLegale").ItemOf(0))
s_dp_Favore_PersGiur_ProvSede = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:ProvinciaSedeLegale").ItemOf(0))
s_dp_Favore_PersGiur_NatGiur = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:FormaGiuridica").ItemOf(0))
s_dp_Favore_PersGiur_CodABI = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:CodiceABI").ItemOf(0))
End If
oNode3Liv = Nothing
oNode3Liv = oNode2Liv.GetElementsByTagName("ci:PersonaFisica").ItemOf(0)
If Not oNode3Liv Is Nothing Then
s_dp_Favore_PersF_Cognome = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:Cognome").ItemOf(0))
s_dp_Favore_PersF_Nome = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:Nome").ItemOf(0))
s_dp_Favore_PersF_DNascita = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:DataDiNascita").ItemOf(0))
s_dp_Favore_PersF_Sesso = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:Sesso").ItemOf(0))
s_dp_Favore_PersF_ComNascita = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:ComuneNascita").ItemOf(0))
s_dp_Favore_PersF_ProvNascita = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:ProvinciaNascita").ItemOf(0))
s_dp_Favore_PersF_CodFisc = cNothingingStr_InnerText(oNode3Liv.GetElementsByTagName("ci:CodiceFiscale").ItemOf(0))
End If
oNode3Liv = Nothing
End If
oNode2Liv = oNode1Liv.GetElementsByTagName("ci:PrimoBeneColpito").ItemOf(0)
If Not oNode2Liv Is Nothing Then
s_dp_PrimoBeneColpito_Prov = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:Provincia").ItemOf(0))
s_dp_PrimoBeneColpito_Comune = cNothingingStr_InnerText(oNode2Liv.GetElementsByTagName("ci:Comune").ItemOf(0))
End If
oNode2Liv = Nothing
sCmdText = "sp_tCribisRicercaAttoPregiudizievoli_Insert"
oCmd = New SqlClient.SqlCommand(sCmdText, oConn)
oCmd.CommandType = CommandType.StoredProcedure
oParam = oCmd.Parameters.Add("@dp_idgruppo", SqlDbType.Decimal, 10)
oParam.Direction = ParameterDirection.Output
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_idanagra", oCast.cStrNullSP(nIDCliente)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_idappogruppo", oCast.cDblNullSP(nIdOutput)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_TipoEffetto", oCast.cStrNullSP(s_dp_TipoEffetto)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_CodiceAtto", oCast.cStrNullSP(s_dp_CodiceAtto)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_IdGenAtto", oCast.cStrNullSP(s_dp_IdGenAtto)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_IdPartAtto", oCast.cStrNullSP(s_dp_IdPartAtto)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_DataRegAtto", oCast.cStrNullSP(s_dp_DataRegAtto)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_CodUfficio", oCast.cStrNullSP(s_dp_CodUfficio)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_CodCatUfficio", oCast.cStrNullSP(s_dp_CodCatUfficio)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ComuneUff", oCast.cStrNullSP(s_dp_ComuneUff)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ProvUff", oCast.cStrNullSP(s_dp_ProvUff)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_CodCatDocum", oCast.cStrNullSP(s_dp_CodCatDocum)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_CodDocum", oCast.cStrNullSP(s_dp_CodDocum)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_DescrDoc", oCast.cStrNullSP(s_dp_DescrDoc)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_NoteGeneriche", oCast.cStrNullSP(s_dp_NoteGeneriche)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ConservatLireImpTot", oCast.cStrNullSP(s_dp_ConservatLireImpTot)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ConservatLireCapitFinanz", oCast.cStrNullSP(s_dp_ConservatLireCapitFinanz)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ConservatLireSpeseFinanz", oCast.cStrNullSP(s_dp_ConservatLireSpeseFinanz)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ConservatLireFlImpTotale", oCast.cStrNullSP(s_dp_ConservatLireFlImpTotale)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ConservatLireFlCapitFinanz", oCast.cStrNullSP(s_dp_ConservatLireFlCapitFinanz)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ConservatLireFlSpeseFinanz", oCast.cStrNullSP(s_dp_ConservatLireFlSpeseFinanz)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ConservatEuroImpTot", oCast.cStrNullSP(s_dp_ConservatEuroImpTot)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ConservatEuroCapitFinanz", oCast.cStrNullSP(s_dp_ConservatEuroCapitFinanz)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ConservatEuroSpeseFinanz", oCast.cStrNullSP(s_dp_ConservatEuroSpeseFinanz)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ConservatEuroFlImpTotale", oCast.cStrNullSP(s_dp_ConservatEuroFlImpTotale)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ConservatEuroFlCapitFinanz", oCast.cStrNullSP(s_dp_ConservatEuroFlCapitFinanz)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_ConservatEuroFlSpeseFinanz", oCast.cStrNullSP(s_dp_ConservatEuroFlSpeseFinanz)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Trib_DataUdienza", oCast.cStrNullSP(s_dp_Trib_DataUdienza)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Trib_OraUdienza", oCast.cStrNullSP(s_dp_Trib_OraUdienza)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Trib_Curatore_Nome", oCast.cStrNullSP(s_dp_Trib_Curatore_Nome)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Trib_Curatore_Ind", oCast.cStrNullSP(s_dp_Trib_Curatore_Ind)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Trib_Curatore_ComuneRes", oCast.cStrNullSP(s_dp_Trib_Curatore_ComuneRes)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Trib_Curatore_ProvRes", oCast.cStrNullSP(s_dp_Trib_Curatore_ProvRes)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_NumAnagraContro", oCast.cStrNullSP(s_dp_NumAnagraContro)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_NumAnagraFavore", oCast.cStrNullSP(s_dp_NumAnagraFavore)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_NumBeniColpiti", oCast.cStrNullSP(s_dp_NumBeniColpiti)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersF_Cognome", oCast.cStrNullSP(s_dp_Contro_PersF_Cognome)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersF_Nome", oCast.cStrNullSP(s_dp_Contro_PersF_Nome)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersF_DNascita", oCast.cStrNullSP(s_dp_Contro_PersF_DNascita)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersF_Sesso", oCast.cStrNullSP(s_dp_Contro_PersF_Sesso)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersF_ComNascita", oCast.cStrNullSP(s_dp_Contro_PersF_ComNascita)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersF_ProvNascita", oCast.cStrNullSP(s_dp_Contro_PersF_ProvNascita)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersF_CodFisc", oCast.cStrNullSP(s_dp_Contro_PersF_CodFisc)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersGiur_Nominativo", oCast.cStrNullSP(s_dp_Contro_PersGiur_Nominativo)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersGiur_CodFisc", oCast.cStrNullSP(s_dp_Contro_PersGiur_CodFisc)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersGiur_ComSede", oCast.cStrNullSP(s_dp_Contro_PersGiur_ComSede)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersGiur_ProvSede", oCast.cStrNullSP(s_dp_Contro_PersGiur_ProvSede)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersGiur_NatGiur", oCast.cStrNullSP(s_dp_Contro_PersGiur_NatGiur)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Contro_PersGiur_CodABI", oCast.cStrNullSP(s_dp_Contro_PersGiur_CodABI)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersF_Cognome", oCast.cStrNullSP(s_dp_Favore_PersF_Cognome)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersF_Nome", oCast.cStrNullSP(s_dp_Favore_PersF_Nome)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersF_DNascita", oCast.cStrNullSP(s_dp_Favore_PersF_DNascita)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersF_Sesso", oCast.cStrNullSP(s_dp_Favore_PersF_Sesso)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersF_ComNascita", oCast.cStrNullSP(s_dp_Favore_PersF_ComNascita)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersF_ProvNascita", oCast.cStrNullSP(s_dp_Favore_PersF_ProvNascita)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersF_CodFisc", oCast.cStrNullSP(s_dp_Favore_PersF_CodFisc)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersGiur_Nominativo", oCast.cStrNullSP(s_dp_Favore_PersGiur_Nominativo)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersGiur_CodFisc", oCast.cStrNullSP(s_dp_Favore_PersGiur_CodFisc)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersGiur_ComSede", oCast.cStrNullSP(s_dp_Favore_PersGiur_ComSede)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersGiur_ProvSede", oCast.cStrNullSP(s_dp_Favore_PersGiur_ProvSede)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersGiur_NatGiur", oCast.cStrNullSP(s_dp_Favore_PersGiur_NatGiur)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_Favore_PersGiur_CodABI", oCast.cStrNullSP(s_dp_Favore_PersGiur_CodABI)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_PrimoBeneColpito_Prov", oCast.cStrNullSP(s_dp_PrimoBeneColpito_Prov)))
oCmd.Parameters.Add(New SqlClient.SqlParameter("@dp_PrimoBeneColpito_Comune", oCast.cStrNullSP(s_dp_PrimoBeneColpito_Comune)))
oCmd.ExecuteNonQuery()
nIdOutput = oCast.cNullDbl(oCmd.Parameters("@dp_idgruppo").Value)
oCmd = Nothing
sKey = CStr(nIdOutput)
s_dp_TipoEffetto = ""
s_dp_CodiceAtto = ""
s_dp_IdGenAtto = ""
s_dp_IdPartAtto = ""
s_dp_DataRegAtto = ""
s_dp_CodUfficio = ""
s_dp_ComuneUff = ""
s_dp_CodCatUfficio = ""
s_dp_ProvUff = ""
s_dp_CodCatDocum = ""
s_dp_CodDocum = ""
s_dp_DescrDoc = ""
s_dp_NoteGeneriche = ""
s_dp_ConservatLireImpTot = ""
s_dp_ConservatLireCapitFinanz = ""
s_dp_ConservatLireSpeseFinanz = ""
s_dp_ConservatLireFlImpTotale = ""
s_dp_ConservatLireFlCapitFinanz = ""
s_dp_ConservatLireFlSpeseFinanz = ""
s_dp_ConservatEuroImpTot = ""
s_dp_ConservatEuroCapitFinanz = ""
s_dp_ConservatEuroSpeseFinanz = ""
s_dp_ConservatEuroFlImpTotale = ""
s_dp_ConservatEuroFlCapitFinanz = ""
s_dp_ConservatEuroFlSpeseFinanz = ""
s_dp_Trib_DataUdienza = ""
s_dp_Trib_OraUdienza = ""
s_dp_Trib_Curatore_Nome = ""
s_dp_Trib_Curatore_Ind = ""
s_dp_Trib_Curatore_ComuneRes = ""
s_dp_Trib_Curatore_ProvRes = ""
s_dp_NumAnagraContro = 0
s_dp_NumAnagraFavore = 0
s_dp_NumBeniColpiti = 0
s_dp_Contro_PersF_Cognome = ""
s_dp_Contro_PersF_Nome = ""
s_dp_Contro_PersF_DNascita = ""
s_dp_Contro_PersF_Sesso = ""
s_dp_Contro_PersF_ComNascita = ""
s_dp_Contro_PersF_ProvNascita = ""
s_dp_Contro_PersF_CodFisc = ""
s_dp_Contro_PersGiur_Nominativo = ""
s_dp_Contro_PersGiur_CodFisc = ""
s_dp_Contro_PersGiur_ComSede = ""
s_dp_Contro_PersGiur_ProvSede = ""
s_dp_Contro_PersGiur_NatGiur = ""
s_dp_Contro_PersGiur_CodABI = ""
s_dp_Favore_PersF_Cognome = ""
s_dp_Favore_PersF_Nome = ""
s_dp_Favore_PersF_DNascita = ""
s_dp_Favore_PersF_Sesso = ""
s_dp_Favore_PersF_ComNascita = ""
s_dp_Favore_PersF_ProvNascita = ""
s_dp_Favore_PersF_CodFisc = ""
s_dp_Favore_PersGiur_Nominativo = ""
s_dp_Favore_PersGiur_CodFisc = ""
s_dp_Favore_PersGiur_ComSede = ""
s_dp_Favore_PersGiur_ProvSede = ""
s_dp_Favore_PersGiur_NatGiur = ""
s_dp_Favore_PersGiur_CodABI = ""
s_dp_PrimoBeneColpito_Prov = ""
s_dp_PrimoBeneColpito_Comune = ""
Next
If sInputKeyAnag <> "" Then
oFnz.ExecSQL("INSERT INTO tCribisRicercaParamAttoPregiudizievoli (pp_idgruppo, pp_keyanag ) VALUES (" _
& oCast.cNullDbl(nIdOutput) & ", " & oCast.cStrNullSql(sInputKeyAnag) & ") ", oConn)
End If
End If
Catch ex As Exception
oFnz.GestError(ex, System.Reflection.MethodInfo.GetCurrentMethod.Name, nIDCliente, sKey)
End Try
End Function