Boa tarde a todos … estou com o seguinte problema, não importa o valor que coloque numa variável ela está descartando um if, como se a linha do if não existisse
e qndo forço a passar pelo if aparece o seguinte erro:
unable to set the next statement to this location. The next statement cannot be set because the current assembly is optimized.
Alguém poderia me ajudar??
Mostra o código completo pfvr…
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