Correccion de Sintanxis

[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....

[Casimiro Noteví]

Creo que me he perdido

El código que has puesto no tiene nada que ver con un procedimiento almacenado, ahí lo que haces es recorrer un dataset y modificar registros según unos condicionantes.
Eso es una forma de hacer lo que quieres, que no tiene nada que ver con un procedimiento almacenado.
No sé si estará bien ese código, no lo he seguido con detalle, pero no tiene nada que ver, son dos cosas distintas.

Para ejecutar el procedimiento puedes insertar en tu formulario un componente específico para procedimientos o puedes ejecutarlo directamente desde un componente sql, en tu caso sería algo así como:

Código SQL [-]
 "execute procedure nombredelprocedure('Residencial','Consumo',Lafecha)'

[sierraja]

Eso es correcto, el procedimiento almacenado que inicialmente presente lo estaba ejecutando directamente desde ibexpert y no desde delphi y cuando presente el codigo delphi, de hecho es una manera de realizar la tarea que estoy porponiendo hice la aclaratoria al que era una de las formas de resolver el planteamiento. Pero en otras palabras el procedimiento sugerido por cloayza no me ha funcionado, por lo tanto disene el codigo delphi y si muestra los resultados, pero al cerrar el formulario desaparecen las modificaciones. Pido disculpas por la confusion...

[guillotmarc]

Prueba a ejecutar directamente el update en el IB-Expert, cuando consigas que funcione como esperas, entonces lo puedes empaquetar dentro del procedimiento almacenado.

De nuevo insisto en que revises las transacciones que utilizas (que se confirmen tras modificar, que abras una transacción nueva al consultar si ha hecho la modificación, etc. ...). Y para ir descartando posibles causas de que la consulta no se comporte como tu esperas, sería útil que respondieras a si pasas valores nulos como parámetro.

[sierraja]

Ok:

1.- Ya probe el update directamente sobre ib-expert y no hace los cambios

2.- Estoy utilizando una sola transaccion que se confirma antes del salir del formulario, por lo tanto esta chacado.

3.- No estoy pasando valores nulos

Disculpa pero ya he realizado las pruebas que mencionads