Ir para conteúdo
Fórum CódigoFonte.net

PERNALONGA

Membros
  • Total de itens

    9
  • Registro em

  • Última visita

  1. vlww... danilo funcionou!!! FLww
  2. PERNALONGA

    Stored Procedures em ASP

    como eu chamo uma SP em ASP? e como faço para pegar os parametros que estao sendo passados nesta SP? e para imprimir os valores dos parametros na tela? URGENTE!!!!!
  3. Danilo, veja como ficou meu codigo É assim que deveria ficaar? if erroBD = 0 then rsBusca = "SELECT T200_NR_VMH, convert(varchar(23),T200_DT_PENDENCIA,21) T200_DT_PENDENCIA " rsBusca = rsBusca + "FROM T200_VMH WHERE T200_NR_VMH = "+Session("NR_VMH")+" " rsBusca = rsBusca + "AND CONVERT(VARCHAR(10),T200_DT_PENDENCIA,103) + ' ' + CONVERT(VARCHAR(10),T200_DT_PENDENCIA,108) = '" + Session("DT_PENDENCIA") + "'" rsBusca = rsBusca + "AND T200_DT_VMH IS NULL " objConn.Execute rsBusca Do while not rsBusca.EOF then If (Session("CA_EXAME"&i) <> "") Then var_cod = Mid(Session("CA_EXAME"&i), 1, 2) & Mid(Session("CA_EXAME"&i), 4, 2) & Mid(Session("CA_EXAME"&i), 7, 3) & Mid(Session("CA_EXAME"&i), 11, 1) var_qtd = Session("NR_QTD"&i) If (Session("CA_LIBERACAO"&i) = "0") Then var_liber = "" Else var_liber = LimpaLixo(Session("CA_LIBERACAO"&i)) End If If (Session("CA_PERC"&i) = "") Then var_perc = "NULL" Else var_perc = Session("CA_PERC"&i) End If var_obs =LimpaLixo(Session("CA_OBS"&i)) var_lado =LimpaLixo( Session("CA_LADO"&i)) Cmd_Cod = "INSERT INTO T205_COD_ANALISE (T200_NR_VMH,T200_DT_PENDENCIA,T021_CA_EXAME, " Cmd_Cod = Cmd_Cod + "T205_NR_QTD,T205_CA_LIBERADO,T205_NR_PERC,T205_CA_OBS,T205_CA_LADO) " Cmd_Cod = Cmd_Cod + "VALUES ("+Session("NR_VMH")+",'"&var_dt_pendencia&"','"+var_cod+"', " Cmd_Cod = Cmd_Cod + ""+var_qtd+",'"+var_liber+"',"+var_perc+", " Cmd_Cod = Cmd_Cod + "'"+var_obs+"','"+var_lado+"')" objConn.Execute Cmd_Cod erroBD = erroBD + objConn.errors.count End If rsBusca.next End if
  4. É isto mesmo amigo Danilo estou qerendo trazer os registros do banco Kra se eu fosse utilizar temporariamente um valor fixo no FOR, aonde alem do lugar q vc mostrou q eu deveria mudar o codigo? como ficaria meu codigo?? FLW Cristiano
  5. danilo, kra ela nao esta recebendo valor algum dai modifiquei o codigo sera q assim da certo: if erroBD = 0 then cont = 1 Session("Linhas") = cont For i = 1 To Session("Linhas") If (Session("CA_EXAME"&i) <> "") Then var_cod = Mid(Session("CA_EXAME"&i), 1, 2) & Mid(Session("CA_EXAME"&i), 4, 2) & Mid(Session("CA_EXAME"&i), 7, 3) & Mid(Session("CA_EXAME"&i), 11, 1) var_qtd = Session("NR_QTD"&i) If (Session("CA_LIBERACAO"&i) = "0") Then var_liber = "" Else var_liber = LimpaLixo(Session("CA_LIBERACAO"&i)) End If If (Session("CA_PERC"&i) = "") Then var_perc = "NULL" Else var_perc = Session("CA_PERC"&i) End If var_obs =LimpaLixo(Session("CA_OBS"&i)) var_lado =LimpaLixo( Session("CA_LADO"&i)) Cmd_Cod = "INSERT INTO T205_COD_ANALISE (T200_NR_VMH,T200_DT_PENDENCIA,T021_CA_EXAME, " Cmd_Cod = Cmd_Cod + "T205_NR_QTD,T205_CA_LIBERADO,T205_NR_PERC,T205_CA_OBS,T205_CA_LADO) " Cmd_Cod = Cmd_Cod + "VALUES ("+Session("NR_VMH")+",'"&var_dt_pendencia&"','"+var_cod+"', " Cmd_Cod = Cmd_Cod + ""+var_qtd+",'"+var_liber+"',"+var_perc+", " Cmd_Cod = Cmd_Cod + "'"+var_obs+"','"+var_lado+"')" objConn.Execute Cmd_Cod erroBD = erroBD + objConn.errors.count End If cont = cont + 1 Next end if FLW
  6. danilo, kra ela nao esta recebendo valor algum dai modifiquei o codigo sera q assim da certo: if erroBD = 0 then cont = 1 Session("Linhas") = cont For i = 1 To Session("Linhas") If (Session("CA_EXAME"&i) <> "") Then var_cod = Mid(Session("CA_EXAME"&i), 1, 2) & Mid(Session("CA_EXAME"&i), 4, 2) & Mid(Session("CA_EXAME"&i), 7, 3) & Mid(Session("CA_EXAME"&i), 11, 1) var_qtd = Session("NR_QTD"&i) If (Session("CA_LIBERACAO"&i) = "0") Then var_liber = "" Else var_liber = LimpaLixo(Session("CA_LIBERACAO"&i)) End If If (Session("CA_PERC"&i) = "") Then var_perc = "NULL" Else var_perc = Session("CA_PERC"&i) End If var_obs =LimpaLixo(Session("CA_OBS"&i)) var_lado =LimpaLixo( Session("CA_LADO"&i)) Cmd_Cod = "INSERT INTO T205_COD_ANALISE (T200_NR_VMH,T200_DT_PENDENCIA,T021_CA_EXAME, " Cmd_Cod = Cmd_Cod + "T205_NR_QTD,T205_CA_LIBERADO,T205_NR_PERC,T205_CA_OBS,T205_CA_LADO) " Cmd_Cod = Cmd_Cod + "VALUES ("+Session("NR_VMH")+",'"&var_dt_pendencia&"','"+var_cod+"', " Cmd_Cod = Cmd_Cod + ""+var_qtd+",'"+var_liber+"',"+var_perc+", " Cmd_Cod = Cmd_Cod + "'"+var_obs+"','"+var_lado+"')" objConn.Execute Cmd_Cod erroBD = erroBD + objConn.errors.count End If cont = cont + 1 Next end if FLW
  7. É só ali que esta inicializando a session("Linhas"),já procurei em tudo se algum outro lugar que estava gerando e não achei! dai oq vc acha? Flw
  8. Danilo, Cara o problema é que só este inserindo uma vez o registro!! Não continua inserindo!!Ele esta parando no primeiro registro!! FLW
  9. PERNALONGA

    Problema na hora de inserir

    For i = 1 To Session("Linhas") If (Session("CA_EXAME"&i) <> "") Then var_cod = Mid(Session("CA_EXAME"&i), 1, 2) & Mid(Session("CA_EXAME"&i), 4, 2) & Mid(Session("CA_EXAME"&i), 7, 3) & Mid(Session("CA_EXAME"&i), 11, 1) var_qtd = Session("NR_QTD"&i) If (Session("CA_LIBERACAO"&i) = "0") Then var_liber = "" Else var_liber = LimpaLixo(Session("CA_LIBERACAO"&i)) End If If (Session("CA_PERC"&i) = "") Then var_perc = "NULL" Else var_perc = Session("CA_PERC"&i) End If var_obs =LimpaLixo(Session("CA_OBS"&i)) var_lado =LimpaLixo( Session("CA_LADO"&i)) Cmd_Cod = "INSERT INTO T205_COD_ANALISE (T200_NR_VMH,T200_DT_PENDENCIA,T021_CA_EXAME, " Cmd_Cod = Cmd_Cod + "T205_NR_QTD,T205_CA_LIBERADO,T205_NR_PERC,T205_CA_OBS,T205_CA_LADO) " Cmd_Cod = Cmd_Cod + "VALUES ("+Session("NR_VMH")+",'"&var_dt_pendencia&"','"+var_cod+"', " Cmd_Cod = Cmd_Cod + ""+var_qtd+",'"+var_liber+"',"+var_perc+", " Cmd_Cod = Cmd_Cod + "'"+var_obs+"','"+var_lado+"')" objConn.Execute Cmd_Cod erroBD = erroBD + objConn.errors.count End If Next Estou com problema neste for só que não conseguindo achar o problema!!Gostaria que alguém pudesse me ajudar, é urgente!!!
×
×
  • Criar Novo...