Correccion de Sintanxis

[sierraja]

He tratado de realizar lo siguiente:

Quiero hacer mediante un procedimiento almacenado una actualizacion. El campo base_imponible es un campo numerico y cloaca tambien lo es. Este es un sistema de facturacion por consumo de agua potable, en la cual quiero asignarle el valor que tiene el campo cloaca al campo base_imponible, para eso necesito los parametros que son tipo_tarifa (Residencial, Especial, Comercial, Industrial A) tipo_factura (Consumo o Servicio) y que sean del mes y el a#o que se suministre. Lo he intentado a traves de los componentes IBX en delphi pero no he podido hacer el cambio, de alli que me fui hacia el ibexpert para hacerlos directamente en la base y no me ha funcionado. Habia conseguido un link que me indicaba que los procedimientos almacenados se hacian de esa manera, la cual fue la que trate de modificar e hice le procedimiento presentado. Pero al fin la idea es actualizar los campos que mencione con los parametros requeridos. He realizados varios procedimientos para hacer varias cosas dentro de las tablas de la BD, pero en este caso estoy bastante desconcertado. De antemano gracias por la atencion prestada. No se si falta alguna otra informacion para tratar de resolver el asunto. Nuevamente gracias.

[Casimiro Noteví]

Mejor pon aquí las tablas implicadas y lo que quieres conseguir.

[sierraja]

Esta es la tabla:

Status-----Codigo---Cloaca---Tipo_tarifa---Fecha---Tipo---Base_Imponible
 
Por Facturar---237---0,38---Residencial---01/12/2009---Consumo 
Por Facturar---237---0,07---Residencial---01/01/2010---Consumo 
Facturado   ---237---0,11---Residencial---01/02/2010---Consumo 
Por Facturar---500---0,33---Residencial---01/12/2009---Consumo 
Por Facturar---500---0,12---Residencial---01/01/2010---Consumo---33,45
Por Facturar---500---0,01---Residencial---01/02/2010---Consumo---00,98
Por Facturar---500---0,87---Residencial---01/12/2009---Servicio--11,22
Por Facturar---500--- 1,2---Residencial---01/12/2009---Servicio
Por Facturar---700---0,38---Residencial---01/12/2009---Consumo

Quiero asignarle el valor que tiene cloaca a la base_Imponible en el mes de diciembre del 2009, tomando en cuenta los parametros de: Tarifa: Residencial, Tipo: Consumo y Mes de diciembre de 2009. Es decir los registros resaltados, pero debo hacerlo con un procedimiento almacenado.

Gracias por tu atencion...

[Casimiro Noteví]

Bueno, si no te he entendido mal, sería algo más o menos así:

create procedure  nombrequequieras (
  tarifa varchar(15),  /* el tipo que tenga el  campo */   
  tipo varchar(15),  /* el tipo que tenga el campo */    
  mes (integer)     /* supongo que el campo fecha es timestamp o date */ 
) 
as begin   
  update tabla comosellame   
  set base_imponible = cloaca   
  where tipo_tarifa=  :tarifa   
  and tipo= :tipo   
  and extract(month from fecha)= :mes  
end

[sierraja]

Esto lo he intentando varias veces pero no lo hace y este es el codigo:

Código SQL [-]
Begin
  update facturacion
  set base_imponible = cloaca   
  where tipo_tarifa=:x_tipo_tarifa and tipo_factura=:x_tipo_factura and extract(month from fecha)=:x_mes and extract(year from fecha):x_year;
  suspend;
end

Cuando reviso la tabla de un registro en especial no hace el cambio.

[Casimiro Noteví]

¿Y cómo ejecutas el procedimiento?, ¿desde delphi?, ¿desde otro procedimiento?...

[sierraja]

Buenos dias

Lo ejecuto desde delphi y tambien lo hago desde ibexpert ejecutando el proceso directamente y no hace los cambsio, la verdad es que no se pueda estar sucediendo, tratare de buscar mas a fondo, pero tiene que haber algo que este ingterfiriendo.

[cloayza]

Empezado por Casimiro Notevi

Bueno, si no te he entendido mal, sería algo más o menos así:

create procedure  nombrequequieras (
  tarifa varchar(15),  /* el tipo que tenga el  campo */   
  tipo varchar(15),  /* el tipo que tenga el campo */    
  mes (integer)     /* supongo que el campo fecha es timestamp o date */ 
) 
as begin   
  update tabla comosellame   
  set base_imponible = cloaca   
  where tipo_tarifa=  :tarifa   
  and tipo= :tipo   
  and extract(month from fecha)= :mes  
end

A este codigo le haria solo unos pequenos cambios...

create procedure  nombrequequieras (
  tarifa varchar(15),  /* el tipo que tenga el  campo */   
  tipo varchar(15),  /* el tipo que tenga el campo */    
  mes (integer),     /* supongo que el campo fecha es timestamp o date */ 
  ano (Integer)      /* Año*/ 
) 
as begin   
  update tabla comosellame   
  set base_imponible = cloaca   
  where Upper(tipo_tarifa)=  Upper(:tarifa)
  and Upper(tipo)= Upper(:tipo)
  and extract(month from fecha)= :mes
  and extract(year from fecha)= :ano  
end

[sierraja]

buen dia,

El procedimiento como tal no lo estoy ejecutando desde delphi, lo hago desde ibexpert, esto lo hacia para ir filtrando posibles conflictos. Ahora bien, las sugerencias de cloayza, quedan descartadas ya que estoy incluyendo en los parametros, exactamente los campos almacenados en cuanto a las tarifas y tipo de factura. Despues de todo esto he adicionado una rutina en el momento de facturar de manera que pueda arreglar cada suscriptor, aparentemente en el grid despues de realizar la rutina, aparecen los datos correctos, pero luego de cerrar el programa y volver a entrar no aparecen, con esto da la impresion que fuera cuestion del componente transaction, aqui dejo el codigo:

========================================

Código SQL [-]
dm.ibds_facturar.DisableControls;
          dm.ibds_facturar.First;
          while not dm.ibds_facturar.Eof do
          begin
            DecodeDate(StrToDaTE(VarToStr(dm.ibds_facturar.FieldValues['fecha'])),x__year,x__month,x__day);
            if ((StrToInt(VarToStr(x__month))>=4) and (StrToInt(VarToStr(x__year))>=2009)) or ((StrToInt(VarToStr(x__month))<=2) and (StrToInt(VarToStr(x__year))>=2010)) then
            Begin
              if (dm.ibds_facturar.FieldValues['tipo_tarifa']='Residencial')then
              Begin
                dm.ibds_facturar.Edit;
                if VarToStr(dm.ibds_facturar.FieldValues['cloaca'])<>'' then dm.ibds_facturar.FieldByName('base_imponible').AsFloat:=StrToFloat(VarToStr(dm.ibds_facturar.FieldVa  lues['cloaca']));
                if VarToStr(dm.ibds_facturar.FieldValues['consumo_agua'])<>'' then dm.ibds_facturar.FieldByName('excento').AsFloat:=StrToFloat(VarToStr(dm.ibds_facturar.FieldValues['consumo_agua']));
                dm.ibds_facturar.Post;
              end;
              if (dm.ibds_facturar.FieldValues['tipo_tarifa']='Especial')then
              Begin
                dm.ibds_facturar.Edit;
                if VarToStr(dm.ibds_facturar.FieldValues['cloaca'])<>'' then dm.ibds_facturar.FieldByName('base_imponible').AsFloat:=StrToFloat(VarToStr(dm.ibds_facturar.FieldVa  lues['cloaca']));
                if VarToStr(dm.ibds_facturar.FieldValues['consumo_agua'])<>'' then dm.ibds_facturar.FieldByName('excento').AsFloat:=StrToFloat(VarToStr(dm.ibds_facturar.FieldValues['consumo_agua']));
                dm.ibds_facturar.Post;
              end;
            end;
            dm.ibds_facturar.Next;
          end;
          dm.ibds_facturar.Close;
          dm.IBTransaction1.CommitRetaining;
          dm.ibds_facturar.Open;
          dm.ibds_facturar.Last;
          dm.ibds_facturar.EnableControls;

===========================================




Nuevamente les agradezco su valioso tiempo...

[sierraja]

He colocado policias en cada linea para verificar las condiciones y los datos que se comparan en ese momento y cumple con todas las codiciones y sigue muy bien la logica, pero luego de volver a entrar no aparecen los datos. Me da la impresion de una novatada me esta haciendo perder el tiempo pero no doy con la novatada....