Public Function IncluirItem() As Boolean
'Método de insert
Try
Dim cmd As Object
cmd = conect.getCommand
Dim LstrSQL As String
Dim _nullData As Date = Nothing
cmd.Parameters.Add("MlngCdItem", MlngCdItem)
cmd.Parameters.Add("MstrDcItem", MstrDcItem)
cmd.Parameters.Add("MstrTpMerc", MstrTpMerc)
cmd.Parameters.Add("MlngTpItem", MlngTpItem)
If MstrDtIniEmissao.HasValue Then
'If Not IsNothing(MstrDtIniEmissao) Then
cmd.Parameters.Add("MstrDtIniEmissao", MstrDtIniEmissao)
End If
If MstrDtFimEmissao.HasValue Then
cmd.Parameters.Add("MstrDtFimEmissao", MstrDtFimEmissao)
End If
If MstrDtIniVcto.HasValue Then
cmd.Parameters.Add("MstrDtIniVcto", MstrDtIniVcto)
End If
If MstrDtFimVcto.HasValue Then
cmd.Parameters.Add("MstrDtFimVcto", MstrDtFimVcto)
End If
If MstrDtIniOper.HasValue Then
cmd.Parameters.Add("MstrDtIniOper", MstrDtIniOper)
End If
If MstrDtFimOper.HasValue Then
cmd.Parameters.Add("MstrDtFimOper", MstrDtFimOper)
End If
cmd.Parameters.Add("MlngCdSeto", MlngCdSeto)
cmd.Parameters.Add("MlngTpEmissor", MlngTpEmissor)
cmd.Parameters.Add("MlngCdEmissor", MlngCdEmissor)
cmd.Parameters.Add("MstrTpRenda", MstrTpRenda)
cmd.Parameters.Add("MlngIdIndice", MlngIdIndice)
cmd.Parameters.Add("MlngCdClasseRF", MlngCdClasseRF)
cmd.Parameters.Add("MstrCdClasseBMF", MstrCdClasseBMF)
cmd.Parameters.Add("MlngCdClasseFAQ", MlngCdClasseFAQ)
cmd.Parameters.Add("MlngIdInst", MlngIdInst)
cmd.Parameters.Add("MstrFgCompromisso", MstrFgCompromisso)
cmd.Parameters.Add("MstrTpAtivoRF", MstrTpAtivoRF)
cmd.Parameters.Add("MlngCdAtivo", MlngCdAtivo)
cmd.Parameters.Add("MintTpEmprestimo", MintTpEmprestimo)
cmd.Parameters.Add("MstrAcoesVedadas", MstrAcoesVedadas)
cmd.Parameters.Add("MstrTpPosicao", MstrTpPosicao)
cmd.Parameters.Add("MstrTpControle", MstrTpControle)
cmd.Parameters.Add("MstrFgAutorizado", MstrFgAutorizado)
cmd.Parameters.Add("MstrFgDerivFut", MstrFgDerivFut)
cmd.Parameters.Add("MstrFgDerivTer", MstrFgDerivTer)
cmd.Parameters.Add("MstrFgDerivOpc", MstrFgDerivOpc)
cmd.Parameters.Add("MstrFgDerivOpcFut", MstrFgDerivOpcFut)
cmd.Parameters.Add("MstrCdFaqs", MstrCdFaqs)
cmd.Parameters.Add("MstrFgCobertura", MstrFgCobertura)
cmd.Parameters.Add("MstrFgDerivFLX", MstrFgDerivFLX)
cmd.Parameters.Add("MstrFgDerivSWP", MstrFgDerivSWP)
cmd.Parameters.Add("MstrFgDerivTMC", MstrFgDerivTMC)
LstrSQL = " INSERT INTO T_Tabela ("
Call fgAddSQL(LstrSQL, " enqu_cd_item ")
Call fgAddSQL(LstrSQL, ",enqu_dc_item ")
Call fgAddSQL(LstrSQL, ",enqu_tp_merc ")
Call fgAddSQL(LstrSQL, ",enqu_tp_item ")
If MstrDtIniEmissao.HasValue Then
Call fgAddSQL(LstrSQL, ",enqu_dt_ini_emissao ")
End If
If MstrDtFimEmissao.HasValue Then
Call fgAddSQL(LstrSQL, ",enqu_dt_fim_emissao ")
End If
If MstrDtIniVcto.HasValue Then
Call fgAddSQL(LstrSQL, ",enqu_dt_ini_vcto ")
End If
If MstrDtFimVcto.HasValue Then
Call fgAddSQL(LstrSQL, ",enqu_dt_fim_vcto ")
End If
If MstrDtIniOper.HasValue Then
Call fgAddSQL(LstrSQL, ",enqu_dt_ini_oper ")
End If
If MstrDtFimOper.HasValue Then
Call fgAddSQL(LstrSQL, ",enqu_dt_fim_oper ")
End If
Call fgAddSQL(LstrSQL, ",seto_cd_setor ")
Call fgAddSQL(LstrSQL, ",emis_tp_emissor ")
Call fgAddSQL(LstrSQL, ",emis_cd_emissor ")
Call fgAddSQL(LstrSQL, ",enqu_tp_renda ")
Call fgAddSQL(LstrSQL, ",indi_id_indice ")
Call fgAddSQL(LstrSQL, ",enqu_cd_classe_rf ")
Call fgAddSQL(LstrSQL, ",enqu_cd_classe_bmf ")
Call fgAddSQL(LstrSQL, ",enqu_cd_classe_faq ")
Call fgAddSQL(LstrSQL, ",inst_id_inst ")
Call fgAddSQL(LstrSQL, ",enqu_fg_compromisso ")
Call fgAddSQL(LstrSQL, ",enqu_tp_ativo_RF ")
Call fgAddSQL(LstrSQL, ",enqu_cd_ativo ")
Call fgAddSQL(LstrSQL, ",enqu_tp_emprestimo ")
Call fgAddSQL(LstrSQL, ",enqu_acoes_vedadas ")
Call fgAddSQL(LstrSQL, ",enqu_tp_posicao ")
Call fgAddSQL(LstrSQL, ",enqu_emissor_controle ")
Call fgAddSQL(LstrSQL, ",enqu_emissor_autorizado ")
Call fgAddSQL(LstrSQL, ",enqu_deriv_fut ")
Call fgAddSQL(LstrSQL, ",enqu_deriv_ter ")
Call fgAddSQL(LstrSQL, ",enqu_deriv_opc ")
Call fgAddSQL(LstrSQL, ",enqu_deriv_opcFut ")
Call fgAddSQL(LstrSQL, ",enqu_cart_faq ")
Call fgAddSQL(LstrSQL, ",enqu_fg_cobertura ")
Call fgAddSQL(LstrSQL, ",enqu_deriv_flx ")
Call fgAddSQL(LstrSQL, ",enqu_deriv_swp ")
Call fgAddSQL(LstrSQL, ",enqu_deriv_tmc ")
Call fgAddSQL(LstrSQL, ") VALUES ( ")
Call fgAddSQL(LstrSQL, VP & "MlngCdItem")
Call fgAddSQL(LstrSQL, "," & VP & "MstrDcItem")
Call fgAddSQL(LstrSQL, "," & VP & "MstrTpMerc")
Call fgAddSQL(LstrSQL, "," & VP & "MlngTpItem")
If MstrDtIniEmissao.HasValue Then
Call fgAddSQL(LstrSQL, "," & VP & "MstrDtIniEmissao")
End If
If MstrDtFimEmissao.HasValue Then
Call fgAddSQL(LstrSQL, "," & VP & "MstrDtFimEmissao")
End If
If MstrDtIniVcto.HasValue Then
Call fgAddSQL(LstrSQL, "," & VP & "MstrDtIniVcto")
End If
If MstrDtFimVcto.HasValue Then
Call fgAddSQL(LstrSQL, "," & VP & "MstrDtFimVcto")
End If
If MstrDtIniOper.HasValue Then
Call fgAddSQL(LstrSQL, "," & VP & "MstrDtIniOper")
End If
If MstrDtFimOper.HasValue Then
Call fgAddSQL(LstrSQL, "," & VP & "MstrDtFimOper")
End If
Call fgAddSQL(LstrSQL, "," & VP & "MlngCdSeto")
Call fgAddSQL(LstrSQL, "," & VP & "MlngTpEmissor")
Call fgAddSQL(LstrSQL, "," & VP & "MlngCdEmissor")
Call fgAddSQL(LstrSQL, "," & VP & "MstrTpRenda")
Call fgAddSQL(LstrSQL, "," & VP & "MlngIdIndice")
Call fgAddSQL(LstrSQL, "," & VP & "MlngCdClasseRF")
Call fgAddSQL(LstrSQL, "," & VP & "MstrCdClasseBMF")
Call fgAddSQL(LstrSQL, "," & VP & "MlngCdClasseFAQ")
Call fgAddSQL(LstrSQL, "," & VP & "MlngIdInst")
Call fgAddSQL(LstrSQL, "," & VP & "MstrFgCompromisso")
Call fgAddSQL(LstrSQL, "," & VP & "MstrTpAtivoRF")
Call fgAddSQL(LstrSQL, "," & VP & "MlngCdAtivo")
Call fgAddSQL(LstrSQL, "," & VP & "MintTpEmprestimo")
Call fgAddSQL(LstrSQL, "," & VP & "MstrAcoesVedadas")
Call fgAddSQL(LstrSQL, "," & VP & "MstrTpPosicao")
Call fgAddSQL(LstrSQL, "," & VP & "MstrTpControle")
Call fgAddSQL(LstrSQL, "," & VP & "MstrFgAutorizado")
Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivFut")
Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivTer")
Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivOpc")
Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivOpcFut")
Call fgAddSQL(LstrSQL, "," & VP & "MstrCdFaqs")
Call fgAddSQL(LstrSQL, "," & VP & "MstrFgCobertura")
Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivFLX")
Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivSWP")
Call fgAddSQL(LstrSQL, "," & VP & "MstrFgDerivTMC")
Call fgAddSQL(LstrSQL, ")")
cmd.CommandText = LstrSQL
Return conect.execSql(cmd)
Catch ex As Exception
Throw ex
End Try
End Function