regresar datos de una consulta utilizando iframe Hola que tal amigos!
Mi problema es el siguiente tengo un iframe contenido dentro de una ventana popup y esta a su vez contiene dos control select que deberian regresar datos de una consulta que les muestro en la parte de abajo en el código, el problema es que el primer control select si los regresa pero el segundo no; la verdad es que ya estuve intentando cambios sobre todo en la función LlenarListas pero sin muchos resultados, espero que alguien de ustedes me pueda dar una orientación.
Nota: la varible valor la recupero en un hidden a través de una querystring
gracias por su valioza ayuda y atención...
<%
Dim Resultado
Dim mensaje
Resultado = ""
mensaje = ""
If Request("Opcion") = "C" then
Dim strQuery
If Trim(Request("tipo")) = "flujos" then
'strQuery = " Select * "
'strQuery = strQuery & " From Sc_TbFluPorPrd "
'strQuery = strQuery & " Where Sc_ClIdnPro = '" & Trim(Request("valor")) & "' "
'Set rst = objCompnt.Set_Querys_FrComp(CStr(strQuery))
'Resultado = LlenarListas(rst,"sflujosa","SC_CLIDNPRO","ID_DOCU MENTO")
'Resultado = Resultado & " parent.document.getElementById('sflujos').length = 0;"
If CBool(Request("show")) Then
strQuery = " Select * "
strQuery = strQuery & " From Sc_TbDocumento "
strQuery = strQuery & " Where Id_Documento Not in ( Select Id_Documento "
strQuery = strQuery & " From Sc_TbFluPorPrd "
strQuery = strQuery & " Where Sc_ClIdnPro = '" & Trim(Request("valor")) & "' )"
Set rst = objCompnt.Set_Querys_FrComp(CStr(strQuery))
Resultado = Resultado & LlenarListas(rst,"sflujos","DESCRIPCION","ID_DOCUM ENTO")
'Resultado = Resultado & " parent.document.getElementById('sflujosa').length = 0;"
Set rst = Nothing
strQuery = " Select * "
strQuery = strQuery & " From Sc_TbFluPorPrd "
strQuery = strQuery & " Where Sc_ClIdnPro = '" & Trim(Request("valor")) & "' "
Set rst = objCompnt.Set_Querys_FrComp(CStr(strQuery))
'Resultado = Resultado & LlenarListas(rst,"sflujosa","SC_CLIDNPRO","ID_DOCU MENTO")
'Resultado = Resultado & " parent.document.getElementById('sflujos').length = 0;"
Set rst = Nothing
End If
End if
ElseIf Request("Opcion") = "GP" then
mensaje = objCompnt.CapturaPrms(Trim(Request("clav")),Trim(R equest("desc")))
End If
If Request("Opcion") <> "C" and Request("Opcion") <> "" then
If Trim(mensaje) = "OK" then
Resultado = "alert('La operación ha sido realizada correctamente.'); parent.document.location.reload();"
Else
Resultado = "alert(" & chr(34) & replace(mensaje,"'","") & chr(34) & ");"
End If
End If
private function LlenarListas(prmRS,prmIdControl,prmCampoTexto,prmC ampoValor)
Variable="var objSelect=parent.document.getElementById('" & prmIdControl & "');"
If Trim(prmIdControl) = "sflujos" then
Cadena=Cadena & "objSelect[0].text='Seleccionar una opción...';"
Cadena=Cadena & "objSelect[0].value='';"
i=1
Else
i=0
End If
indice = 0
while not prmRS.EOF
If Not IsNull(prmRS(prmCampoTexto)) then
Cadena=Cadena & "objSelect[" & i & "].text='" & trim(prmRS(prmCampoTexto)) & "';"
Else
Cadena=Cadena & "objSelect[" & i & "].text='sp_Oracle';"
indice = 1
End If
Cadena=Cadena & "objSelect[" & i & "].value='" & trim(prmRS(prmCampoValor)) & "';"
i=i+1
prmRS.MoveNext
wend
Cadena=Cadena & "objSelect.selectedIndex=" & indice & ";"
LlenarListas=Variable & Variable & "objSelect.length=" & i & ";" & Cadena
end function
Set rstClases = Nothing
Set objCompnt = Nothing
%>
<script Language="JavaScript">
<%=Resultado%>
</script>
