Ver Mensaje Individual
  #3  
Antiguo 25-01-2011
Avatar de @-Soft
@-Soft @-Soft is offline
Miembro
 
Registrado: may 2003
Ubicación: Santo Domingo, Rep. Dom.
Posts: 200
Reputación: 22
@-Soft Va por buen camino
Smile

hola

bueno creo que el asunto tiene que ver, con la sentencia select interna al insert hice otro intento de acondicionar la sentencia y los mismo error Parse error


esto fueron los cambios que realice

Código SQL [-]
SET TERM ^ ;



CREATE OR ALTER TRIGGER TGR_INSERTA_DETALLES_INFORME FOR TBL_INFORMES_CAB
ACTIVE AFTER INSERT POSITION 0
AS
declare variable idregistro idnumerico;
declare variable formulario idtexto;
declare variable idservicio idtexto;
declare variable servicio descripcion_d;
declare variable grupo descripcion_b;
begin

  /*Busco el nuevo registro insertado*/
  select first 1 new.id_registro, new.id_form
  from tbl_informes_cab
  into :idregistro, :formulario;


  /*FORMULARIO 67A CON CAMAS*/
  if (:formulario = '67A') then
  begin

      /*CONSULTA EXTERNA 67A*/
      select CODIGO, SERVICIO, grupo FROM vw_servicio_ce_67a
      INTO :idservicio, :servicio, :grupo;

      insert into tbl_informes_det_ce (ID_REGISTRO, ID_FORM, CODIGO_SERVICIO, SERVICIO, GRUPO)
                               values (:idregistro, :formulario, :idservicio, :servicio, :grupo);

      /*CONSULTA DATOS VARIOS 67A*/
      select CODIGO, SERVICIO, grupo FROM vw_servicio_dv_67a
      INTO :idservicio, :servicio, :grupo;

      insert into tbl_informes_det_DV (ID_REGISTRO, ID_FORM, CODIGO_SERVICIO, SERVICIO, GRUPO)
                               values (:idregistro, :formulario, :idservicio, :servicio, :grupo);

      /*CONSULTA HOSPITALARIA 67A*/
      select CODIGO, SERVICIO, grupo FROM vw_servicio_hosp_67a
      INTO :idservicio, :servicio, :grupo;

      insert into tbl_informes_det_hosp (ID_REGISTRO, ID_FORM, CODIGO_SERVICIO, SERVICIO, GRUPO)
                                 values (:idregistro, :formulario, :idservicio, :servicio, :grupo);

      /*CONSULTA PACIENTES EXTRANJEROS 67A*/
      select CODIGO, SERVICIO, grupo FROM vw_servicio_pext_67a
      INTO :idservicio, :servicio, :grupo;

      insert into tbl_informes_det_pext (ID_REGISTRO, ID_FORM, CODIGO_SERVICIO, SERVICIO, GRUPO)
                                 values (:idregistro, :formulario, :idservicio, :servicio, :grupo);

      /*CONSULTA SALUD REPRODUCTIVA 67A*/
      select CODIGO, SERVICIO, grupo FROM vw_servicio_srep_67a
      INTO :idservicio, :servicio, :grupo;

      insert into tbl_informes_det_srep (ID_REGISTRO, ID_FORM, CODIGO_SERVICIO, SERVICIO, GRUPO)
                                 values (:idregistro, :formulario, :idservicio, :servicio, :grupo);

      /*CONSULTA REPORTE ADMINISTRATIVO-FINANCIERO 67A*/
      select CODIGO, SERVICIO, grupo FROM vw_servicio_rafm_67a
      INTO :idservicio, :servicio, :grupo;

      insert into tbl_informes_det_rafm (ID_REGISTRO, ID_FORM, CODIGO_SERVICIO, SERVICIO, GRUPO)
                                 values (:idregistro, :formulario, :idservicio, :servicio, :grupo);

  end
end
^


SET TERM ; ^
__________________
Ivan Lora

http://www.arrobasoft.da.ru

Valientes son aquellas personas que triunfan donde otros fracasan.
Bienaventurado los que nada esperan porque jamas seran defraudados.
Responder Con Cita