Public Function INSERT_REGISTRO(ByVal OBJ_EMPRESA As Parametros_EntidadesPessoais.ClsEntidadesPessoais) As Boolean
Dim i As Integer
Dim cmd As SqlCommand
Using cn As SqlConnection = LOGICA_CONEXAO.BANCO_DADOS_SQL
Try
cn.Open()
With OBJ_EMPRESA
Dim StrCNPJ As String = "SELECT COUNT(*) FROM TAB_EMP WITH (NOLOCK) WHERE CNP = '" & .Num_cpf_cnpj & "'"
cmd = New SqlCommand(StrCNPJ, cn)
cmd.CommandTimeout = 1000 * 60 * 10
i = CInt(cmd.ExecuteScalar())
If i = 0 Then
Dim Script As String = " INSERT INTO TAB_EMP "
Script += " ( RAZSOC, CNP, LOGEMP, FON, EMA, CEP, LOGR, NUM, BAI, CID, EST, DATREG ) "
Script += " VALUES ( CASE WHEN @RAZSOC ='' OR @RAZSOC = ' ' THEN NULL ELSE @RAZSOC END, @CNP, "
Script += " @LOGEMP, "
Script += " CASE WHEN @FON ='' OR @FON = ' ' THEN NULL ELSE @FON END, "
Script += " CASE WHEN @EMA ='' OR @EMA = ' ' THEN NULL ELSE @EMA END, "
Script += " CASE WHEN @CEP ='' OR @CEP = ' ' THEN NULL ELSE @CEP END, "
Script += " CASE WHEN @LOGR ='' OR @LOGR = ' ' THEN NULL ELSE @LOGR END, "
Script += " CASE WHEN @NUM ='' OR @NUM = ' ' THEN NULL ELSE @NUM END, "
Script += " CASE WHEN @BAI ='' OR @BAI = ' ' THEN NULL ELSE @BAI END, "
Script += " CASE WHEN @CID ='' OR @CID = ' ' THEN NULL ELSE @CID END, "
Script += " CASE WHEN @EST ='' OR @EST = ' ' THEN NULL ELSE @EST END, GETDATE()) "
cmd = New SqlCommand(Script, cn)
cmd.CommandTimeout = 1000 * 60 * 10
cmd.Parameters.AddWithValue("@RAZSOC", SqlDbType.VarChar).Value = .Nome_RazoSoc
cmd.Parameters.AddWithValue("@CNP", SqlDbType.VarChar).Value = .Num_cpf_cnpj
If .ImgLogo Is Nothing Then
Exit Function
Else
cmd.Parameters.Add("@LOGEMP", SqlDbType.VarBinary).Value = .ImgLogo
End If
'SqlDbType.VarBinary, System.DBNull.Value
cmd.Parameters.AddWithValue("@FON", SqlDbType.VarChar).Value = .Num_Telefone
cmd.Parameters.AddWithValue("@EMA", SqlDbType.VarChar).Value = .Email
cmd.Parameters.AddWithValue("@CEP", SqlDbType.VarChar).Value = .Num_Cep
cmd.Parameters.AddWithValue("@LOGR", SqlDbType.VarChar).Value = .Logradouro
cmd.Parameters.AddWithValue("@NUM", SqlDbType.VarChar).Value = .Num_Lograd
cmd.Parameters.AddWithValue("@BAI", SqlDbType.VarChar).Value = .Bairro
cmd.Parameters.AddWithValue("@CID", SqlDbType.VarChar).Value = .Cidade
cmd.Parameters.AddWithValue("@EST", SqlDbType.VarChar).Value = .Estado
cmd.ExecuteNonQuery()
Return False
Else
MsgBox("O CNPJ ( " & .Num_cpf_cnpj & " ) INFORMADO JÁ EXISTE ! ", MsgBoxStyle.Information, " ARIMUYA - TECHNOLOGY SOLUTIONS ")
Return True
End If
End With
Catch ex As Exception
MsgBox(ex.Message)
' Throw New Exception("NÃO CONSIGO IDENTIFICAR ESTE PROBLEMA ", ex)
Finally
cn.Close()
End Try
End Using
Return False
End Function