Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

 
 
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: 22
@-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
 



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 05:56:00.


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