Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 25-01-2011
Avatar de @-Soft
@-Soft @-Soft is offline
Miembro
 
Registrado: may 2003
Ubicación: Santo Domingo, Rep. Dom.
Posts: 200
Poder: 24
@-Soft Va por buen camino
ufff mala mia, no me recordaba que el IBExpert no me a permitido hacer los cambios debido al error y entonces copie en el post anterior el mismo codigo sql y no refleje los cambios que trate de realizar en miras a buscar la solucion


este si es parte del codigo que cambie

Código SQL [-]
/*FORMULARIO 67A CON CAMAS*/
  IF (:formulario = '67A') THEN
  BEGIN

    /*CONSULTA EXTERNA 67A*/
    INSERT INTO tbl_informes_det_ce (id_registro, id_form, codigo_servicio, servicio, grupo)
    VALUES (
    (SELECT :idregistro, :formulario, codigo, servicio, grupo
    FROM vw_servicio_ce_67a));

    /*CONSULTA DATOS VARIOS 67A*/
    INSERT INTO tbl_informes_det_dv (id_registro, id_form, codigo_servicio, servicio, grupo)
    VALUES (
    SELECT :idregistro, :formulario, codigo, servicio, grupo
    FROM vw_servicio_dv_67a);

    /*CONSULTA HOSPITALARIA 67A*/
    INSERT INTO tbl_informes_det_hosp (id_registro, id_form, codigo_servicio, servicio, grupo)
    VALUES (
    SELECT :idregistro, :formulario, codigo, servicio, grupo
    FROM vw_servicio_hosp_67a);

    /*CONSULTA PACIENTES EXTRANJEROS 67A*/
    INSERT INTO tbl_informes_det_pext (id_registro, id_form, codigo_servicio, servicio, grupo)
    VALUES (
    SELECT :idregistro, :formulario, codigo, servicio, grupo
    FROM vw_servicio_pext_67a);

    /*CONSULTA SALUD REPRODUCTIVA 67A*/
    INSERT INTO tbl_informes_det_srep (id_registro, id_form, codigo_servicio, servicio, grupo)
    VALUES (
    SELECT :idregistro, :formulario, codigo, servicio, grupo
    FROM vw_servicio_srep_67a);

    /*CONSULTA REPORTE ADMINISTRATIVO-FINANCIERO 67A*/
    INSERT INTO tbl_informes_det_rafm (id_registro, id_form, codigo_servicio, servicio, grupo)
    VALUES (
    SELECT :idregistro, :formulario, codigo, servicio, grupo
    FROM vw_servicio_rafm_67a);

  END
END
__________________
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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Que estoy haciendo mal ? piolillo Internet 8 28-07-2011 17:23:24
Uso de clases, ¿que estoy haciendo mal? gerardorom C++ Builder 2 26-12-2007 15:35:38
Que estoy haciendo Mal esimon SQL 4 04-07-2006 21:55:25
Que estoy Haciendo mal jostrix PHP 1 01-11-2004 01:29:16


La franja horaria es GMT +2. Ahora son las 15:20:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi