Ver Mensaje Individual
  #1  
Antiguo 04-01-2023
andresenlared andresenlared is offline
Miembro
 
Registrado: oct 2003
Posts: 153
Reputación: 21
andresenlared Va por buen camino
Cursor en postgresql

Buenos días para todos.
Estoy usando delphi10, realizo una conexión a postgresql, y tengo el siguiente sql
Código SQL [-]
     SELECT tre.resend_id          AS ORD_ID                                                            
          , tre.resend_ipserver    AS ORD_IPSERVER                                                      
          , pe.autoriza            AS ORD_ORDEN_PAC                                                     
          , oo.oriord_nit_origen   AS ORD_ORIGEN                                                        
          , u.usuario              AS ORD_USERWS                                                        
          , tre.resend_plan        AS ORD_PLAN                                                          
          , tre.resend_referencia  AS ORD_REFERENCIA                                                    
          , tre.resend_fecha       AS ORD_FECHA                                                         
          , tre.resend_hora        AS ORD_HORA                                                          
          , tre.resend_sede        AS ORD_SEDE                                                          
          , tre.resend_historia    AS ORD_HISTORIA                                                      
          , tre.resend_tpdoc       AS ORD_TPDOC                                                         
          , tre.resend_nit         AS ORD_NIT                                                           
          , tre.resend_examen      AS ORD_EXAMEN                                                        
          , tre.resend_alterno     AS ORD_ALTERNO                                                       
          , tre.resend_regexa      AS ORD_POS                                                           
          , e.nombre               AS EXA_NOMBRE                                                        
          , e.si_band03            AS EXA_ISPREVIO                                                      
          , oo.oriord_procedure    AS PROCEDIMIENTO                                                     
       FROM web_services.temp_resultados_endpoint tre                                                   
 INNER JOIN public.paciente_examenes               pe ON (pe.paciente_cod       = tre.resend_referencia 
                                                     AND  pe.hora               = tre.resend_hora       
                                                     AND  pe.fecha              = tre.resend_fecha      
                                                     AND  pe.sede_codigo        = tre.resend_sede       
                                                     AND  pe.historia           = tre.resend_historia   
                                                     AND  pe.tipodcto_cod       = tre.resend_tpdoc      
                                                     AND  pe.nit                = tre.resend_nit        
                                                     AND  pe.reg_exa            = tre.resend_regexa     
                                                     AND  pe.examen             = tre.resend_examen)    
 INNER JOIN web_services.origen_orden              oo ON (oo.oriord_cliente_cod = tre.resend_plan       
                                                     AND  oo.oriord_activo      = TRUE)                 
 INNER JOIN public.examenes                         e ON (e.examen_cod          = tre.resend_examen)    
 INNER JOIN web_services.usuarios                   u ON (u.u_id                = oo.oriord_usr_id      
                                                     AND  u.activo              = TRUE                  
                                                     AND  u.entrega_resul       = TRUE )                
 INNER JOIN web_services.empresas                  em ON (em.em_codigo          = oo.oriord_nit_origen  
                                                     AND  em.em_activo          = TRUE                  
                                                     AND  em.em_resultados      = TRUE )                
      WHERE (tre.resend_fecha_in >= CURRENT_DATE - :INICIO                                              
        AND  tre.resend_fecha_in <= CURRENT_DATE - :FIN   )                                             
        AND  tre.resend_procesado = FALSE                                                               
        AND  tre.resend_error     = FALSE                                                               
    AND  u.u_id in (:ID)
    AND  oo.oriord_nit_origen in (:nit)

Se pasan los parametros y se ejecuta el SQL. Luego en postgresql el registro de este proceso aparece como DECLARE CURSOR.

Si son tan amables de explicarme por que pasa esto si es algo en posgresql, o es configuración del componente delphi

Muchas gracias.
__________________
Popayán-Colombia
Responder Con Cita