Insertar un dato a una tabla desde fastreport 4

[IVAND]

Gracias por tu respuesta , si fueras tan amable en darme una idea te lo agradeceria , la otra manera que estoy intentado es leer una variable desde delphi com el metodo findobject pero me retorna el texto de este campo y seria que me retorne es el valor (en este memo hay una formula de suma)


En espera de tu respuesta te quedo muy agradecido

[IVAND]

Hola hescopina ,

Espero no te incomode pero me podrias guiar un poquito en lo de insertar un datos a una tabla desde fastreport


Gracias

[hecospina]

Hola IVAND
Que pena la demora pero he estado un poco ocupado y sin internet

Empecemos
te voy a hacer un ejemplo donde se inserta codigo, nombre y valor en una tabla

Primero debes crear la variables de los valores que deseas insertar
Desde la pestaña codigo debes adicionar las siguentes lineas

Código Delphi [-]
Var
codigo:string;
nombre:string;
valor:string;

esto antes del begin

Despues debes crar el ibxquery para la insercion
desde la ventana data o datos adicionas un ibxquery

Código SQL [-]
insert into tabla (codigo,nombre,valor) values (:cod,:nom,:vlr)

alli con el boton parametros asignas a estos parametros el valor de las variables creadas

Por ejemplo

PARAMETRO ------- TIPO DE DATO ------- VARIABLE
COD -------------- STRING-----------------<CODIGO>
NOM--------------- STRING-----------------<NOMBRE>
VLR---------------- CURRENCY--------------<VALOR>

tercero utilizando el evento before print de una banda, en mi caso utilizo un pie de pagina o un pie de grupo, eso depende del reporte

Para asignar el evento debes hace clic en la banda y oprimir la tecla F11, aparece el inspector de objetos y alli la pestaña eventos, haces dobleclic en el beforeprint y adicionas el siguiente codigo

Código SQL [-]
codigo:=memo1.value;
nombre:=memo2.value;
valor:=memo3.value;
ibxquery1.open;

Memo1, memo2 y memo3, son los memos donde se almacena los valores a ser insertados
Ibxquery1 es la instruccion de insercion creada en el segundo paso

Espero te ayude a resolver tu problema

Yo personalmente no lo utilizo por los problemas de duplicidad de datos y violacion a llaves primarias, al realizar una nueva impresion

De nuevo disculpas por la tardanza

[IVAND]

Hola Hescopina , nuevamente gracias por tu tiempo , te cuento que mas o menos era lo que yo habia investigado , solo tengo una pregunta para que los datos que insertas se vean reflejados en la base despues de la impresion como le haces , ahora lo que hago es cerrar el aplicativo y ahi me muestra los cambios recien , es decir que falta un commitretaing desde el fastreport

Aqui te pongo lo que yo he echo

Código Delphi [-]
procedure Memo4OnBeforePrint(Sender: TfrxComponent);
begin
    if Engine.FinalPass then
     Begin                            
      ibx.Close;                    
      IBX.ParamByName('Val').Value:=Get();
      IBX.ExecSQL;
      ibx.Open;                    
    End;              
end;

Lo que ahora no puedo es ver los datos directamente como cuando uno hace commitretaining

Nuevamente gracias por tu tiempo , felicez fiestas

[hecospina]

Hola Ivand
No sabria como hacer el commit, nunca lo he utilizado pues dentro de la aplicacion que manejo al ingresar a la ventana que requiero los datos se actualizan

Mira si depronto en la propiedad de la transaccion encuentras el commit

algo como esto
ibxquery1.query.transaction.commit;

Suerte

[IVAND]

Listo ahora ya se pueden insertar datos desde fastreport a una tabla ... en poco colocare el codigo y la explicacion para todos aquellos que algun dia la necesitaran

[PepeLolo]

Antes de nada, felicitar las fiestas a todos los miembros del club.

Este post, me parece curiosisimo por el echo de generar registros desde el propio reporte. No es por criticar lo que haces, es que no comprendo muy bien el motivo. A mi entender esta claro que lo que haces no es correcto. Hacer se puede hacer, ¿pero es lógico está forma de implementación?

En 20 años en el mundo de la programación, es la primera vez que veo algo parecido.