Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-06-2018
ArtPortEsp ArtPortEsp is offline
Miembro
 
Registrado: may 2018
Ubicación: Mexico
Posts: 147
Poder: 6
ArtPortEsp Va por buen camino
RefreshRecord

Buen dia compañeros....

a ver si alguno de ustedes les ha pasado esto...

tengo un TQuery en una forma, que tiene asignada la siguiente sentencia:
Código:
Select sl_aseg as asegurado,
cl_telc,cl_telo,cl_telo2,cl_celu,cl_expe,cl_email,cl_email2,cl_indica,
CAST((CASE When p.sl_edo = 'V' then 'VIGENTE' 
When p.sl_edo = 'X' then 'REEXPEDIDA' 
When p.sl_edo = 'V' and CURDATE() > p.sl_vig2 then 'VENCIDA' 
When p.sl_edo = 'C' and (SL_RENOV is null or SL_RENOV='') then 'CANCELADA' 
when p.sl_edo = 'C' and (SL_RENOV is not null) then 'RENOVADA' End) as char) as estado,
CAST((CASE When p.sl_fpa = 2 THEN 'SEMESTRAL' 
When p.sl_fpa = 3 THEN 'TRIMESTRAL' 
When p.sl_fpa = 4 THEN 'MENSUAL' 
When p.sl_fpa = 5 THEN 'CUATRIMESTRAL' 
When p.sl_fpa = 6 THEN 'QUINCENAL' 
When p.sl_fpa = 7 THEN 'CATORCENAL' 
When p.sl_fpa = 8 THEN 'ESP. 10 RECIBOS' 
When p.sl_fpa = 1 THEN 'CONTADO' END) AS CHAR) as formapag,
CAST((CASE when p.sl_vpag='E' then 'ELECTRONICA'
when p.sl_vpag='A'  then 'AGENTE'
when p.sl_vpag='VA' then 'VALE'
when p.sl_vpag='M'  then 'MIXTA' end) as char) as viapago, 
sl_pol as re_pol,sl_sol,
sl_pri,sl_descto,sl_derp,sl_pfra,sl_iva,sl_cia,sl_vig1,sl_vig2,sl_obs1,sl_vpag,
((sl_pri-sl_descto)+sl_iva+sl_derp+sl_pfra) as totpol,
po_nom as ramdesc,po_tipo as ramtipo,'' as cobdesc,nom as ciadesc, nom,
garantiapag,garanemision,garanaplicacion 
from polizas p
inner join compania on sl_cia=cia
inner join clientes on cl_num=sl_num
inner join ramos on po_cve=sl_tipo
Todo en orden cuando ejecuto el query, sin embargo, cuando en tiempo de ejecucion, actualizo uno de esos registros me dice que el campo "estado" no existe en la lista de campos

El codigo que utilizo para actualizar la informacion del registro es:

Código Delphi [-]
     Qpolizas.DisableControls;
     If Evale.Text <> '' then
     begin
          Dm.Qactualiza.SQL.text := 'update polizas set garantiapag='+quotedstr(Evale.text)+
                                    ',garanemision='+quotedstr(formatdatetime('yyyy-mm-dd',Efechaval.date))+
                                    ',garanaplicacion='+quotedstr(formatdatetime('yyyy-mm-dd',date))+
                                    ' where sl_pol='+quotedstr(Qpolizas.fieldbyname('re_pol').asstring)+
                                    ' and sl_cia='+quotedstr(Qpolizas.fieldbyname('sl_cia').asstring);
     end
     else
     begin
          Dm.Qactualiza.SQL.text := 'update polizas set garantiapag='+quotedstr('')+
                                    ',garanemision=:nulfecha,garanaplicacion=:nulfecha'+
                                    ' where sl_pol='+quotedstr(Qpolizas.fieldbyname('re_pol').asstring)+
                                    ' and sl_cia='+quotedstr(Qpolizas.fieldbyname('sl_cia').asstring);
          Dm.Qactualiza.ParamByName('nulfecha').Clear;
     end;
     Qpolizas.EnableControls;
     Qpolizas.RefreshRecord;

Alguna idea?

Última edición por Casimiro Notevi fecha: 13-06-2018 a las 20:34:12. Razón: Etiquetas [delphi]
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
Ayuda con ClientDataset.RefreshRecord luifervm Varios 1 16-03-2010 19:38:17
RefreshRecord - DBExpress con Interbase StartKill Varios 2 08-12-2008 00:03:23


La franja horaria es GMT +2. Ahora son las 17:11:23.


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