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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-02-2008
Avatar de linuz
linuz linuz is offline
Miembro
 
Registrado: sep 2004
Posts: 88
Poder: 20
linuz Va por buen camino
Hola de nuevo,

He llevado a cabo vuestros consejos, pero no ha habido forma de conseguir mi propósito.

Os dejo el código del procedimiento. Su funcionamiento es simple, se trata de coger los dos primeros caracteres del código postal, y con ello cojo lo provincia y población de otra tabla, para así modificar la ficha del cliente.

Código SQL [-]
create procedure actualiza_codigo_postales 
as
declare variable postal integer;
declare variable codigo_postal varchar(10);
declare variable provincia integer;
declare variable poblacion integer;
declare variable cliente smallint;
declare variable empresa smallint;
declare variable direccion smallint;
begin
   for select empresa,cod_postal,codigo_cliente,num_direccion from cli_direcciones
     into :empresa,:codigo_postal,:cliente,:direccion do
     begin
     if ((codigo_postal <> '') or (codigo_postal is not null)) then
       begin
         provincia = cast( substring(codigo_postal FROM 1 FOR 2) as integer);
         if (provincia > 0) then 
           begin       
             select codigo from poblaciones
             where cod_postal =:codigo_postal
              and   provincia = : provincia
               into : poblacion;
               
            if (poblacion is null) then poblacion = 0;
            if (provincia is null) then provincia = 0;
            
              update cli_direcciones 
               set provincia = : provincia,poblacion = : poblacion
               where empresa        =:empresa
               and   codigo_cliente =:cliente
               and   num_direccion  =:direccion;
          end
       end
     end   
  suspend;
end

Un saludo.

MUCHAS GRACIAS A TODOS!!
Responder Con Cita
  #2  
Antiguo 12-02-2008
Avatar de PepeLolo
PepeLolo PepeLolo is offline
Miembro
 
Registrado: jun 2003
Ubicación: Fuenlabrada - Madrid - Espagna
Posts: 265
Poder: 21
PepeLolo Va por buen camino
Talking

Si te falla la sentencia
Código SQL [-]
provincia = cast( substring(codigo_postal FROM 1 FOR 2) as integer);
es porque en las posiciones que extraes en alguno de los registros no hay números.

Ejecuta la consulta y revisa el resultado porque el problema lo tienes ahí.
Código SQL [-]
select empresa,cod_postal,codigo_cliente,num_direccion from cli_direcciones

Un saludo
__________________
PepeLolo
El hombre el único virus que mide más de unas cuantas micras
Responder Con Cita
  #3  
Antiguo 12-02-2008
Avatar de RolphyReyes
RolphyReyes RolphyReyes is offline
Miembro
 
Registrado: ago 2004
Ubicación: Santo Domingo
Posts: 285
Poder: 20
RolphyReyes Va por buen camino
Lightbulb

Saludos.

Tal como dice PepeLolo debes de tener alguna cadena nula o algo por el estilo.

Te recomiendo utilizar COALESCE para que mandes un valor que te sirva para identificar que esa cadena ha fallado.

Hasta luego.
__________________
Gracias,
Rolphy Reyes
Responder Con Cita
Respuesta



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
pasar un varchar hh:mm:ss a integer de segundos jmlifi SQL 5 02-05-2006 11:00:54
Cambio de dominio en un Varchar Ana Tudela Firebird e Interbase 1 10-01-2006 21:17:12
Cambiar dominio VARCHAR micayael Firebird e Interbase 1 24-09-2005 00:30:50
trim en campos varchar galmacland SQL 3 12-03-2005 02:40:23
varchar (10) scooterjgm SQL 4 11-11-2004 13:21:02


La franja horaria es GMT +2. Ahora son las 03:04:06.


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