[Lazarus-es] reporteadores para Lazarus 1.4?
Ismael L. Donis Garcia
slibre en citricos.co.cu
Lun Jul 20 18:20:38 CEST 2015
Es procedimiento es público y lo llamo en el evento create del modulo de datos pero tambien lo llamo en otros formularios:
Desde el modulo de datos
procedure Tdm.DataModuleCreate(Sender: TObject);
begin
IniSis();
end;
Desde otro formulario lo mando a ejecutar de 2 formas según sea el caso:
procedure Tfconta.mnuarcsecClick(Sender: TObject);
begin
dm.IniSis();
end;
procedure Tfconta.mnuherccClick(Sender: TObject);
begin
with Tfcpass.Create(nil) do
try
Showmodal;
finally
Free;
end;
if dm.CerrarSystem then dm.IniSis();
end;
y de otros formularios lo llamo de la siguiente forma:
procedure Tfcini.FormShow(Sender: TObject);
var
strsql: string;
LParam, LValor: TStrings;
begin
LParam := TStringList.Create;
LValor := TStringList.Create;
LParam.Add('iID');
LValor.Add(inttostr(dm.Entidad));
strsql := 'select * from tabla';
dm.p_rssc1(strsql, true, LParam, LValor);
if dm.rssc1.EOF then begin
LParam.Free;
LValor.Free;
dm.p_rssc1();
dm.IniSis();
else
.....
Saludos Reiterados
========
| ISMAEL |
========
Only for the small landowners and Cubans companies
Website: www.sisconge.byethost15.com
www.sisconge.hol.es
----- Original Message -----
From: Maximiliano Duarte
To: Spanish version of Lazarus List
Sent: Sunday, July 19, 2015 2:13 PM
Subject: Re: [Lazarus-es] reporteadores para Lazarus 1.4?
El error creo eta en como plannteaste esa rutina. La veo mejor desde mi pc y te ayudo
------------------------------------------------------------------------------
De: Ismael L. Donis Garcia
Enviado el: 18/07/2015 12:04
Para: Spanish version of Lazarus List
Asunto: Re: [Lazarus-es] reporteadores para Lazarus 1.4?
En el encabezamiento del grupo das click secundario y marcas las opción de
Forzar Nueva Página.
Respecto a Delphi ni me preguntes. Jamas en la vida lo he usado, nunca me ha
gustado. En windows siempre había trabajado con Visual Estudio.
He mirado a Lazarus porque es libre y multiplataforma y como yo me he tirado
ultimamente para Linux, soy el encargado en mi empresa en difundir el soft
libre. De hecho el sistema operativo que uso por defecto es Jessie, aunque
tengo PC virtuales con 1 millón de sistemas porque viy haciendo estudios de
los que puedo hacerme, ahora mismo estoy mirando a Manjaro OpenRC el cual ha
tenido una bueba aceptación.
En estos momentos estoy parado en Lazarus, hoy voy a instalar la versión
1.4.2 a ver si me resuelve un problema que tengo precisamente con lazreport
el cual me da una ecepción si cierro todos los formulario abiertos desde un
modulo de datos y los vuelvo a abrir. Al volver abrir los formulario y
tratar de visualizar algo en lazreport este tira una ecepción y me cierra el
programa la rutina que tengo para cerrar los formularios es la siguiente:
procedure Tdm.IniSis();
var
f: Tforigen;
i: integer;
begin
DecimalSeparator:='.';
ThousandSeparator:=',';
ShortDateFormat := 'dd/mm/yyyy';
blnend := false;
intciclo := 0;
intfilas := 0;
intnivel := 0;
lngentidad := 0;
struser := '';
strerror := '';
for i := Screen.FormCount - 1 downto 0 do begin
if Screen.Forms[i].Name <> Self.Name then begin
if Screen.Forms[i].Name <> 'fconta' then Screen.Forms[i].Free;
end;
end;
for i := Screen.FormCount - 1 downto 0 do begin
if Screen.Forms[i].Name <> Self.Name then Screen.Forms[i].Free;
end;
Application.CreateForm(Tfconta, fconta);
Application.CreateForm(Tfsplash, fsplash);
fsplash.Show;
Application.ProcessMessages;
if datos() then
entrar()
else
begin
f:=Tforigen.Create(Self);
f.IniSystem:=true;
f.ShowModal;
f.Free;
if blnend then
cerrarme()
else if datos() then
begin
intciclo := intciclo + 1;
entrar()
end
else
cerrarme();
end;
end;
El error que me da es el siguiente:
El proyecto XXXX ha lanzado una excepción de la clase Éxternal: SIGSEGV' En
Archivo '.\include\control.inc'en linea 3260
Pero no veo cual puede ser el error porque si no cierro los formularios con
la rutina anterior nunca me da ese error, lo peor del caso es que a veces si
tengo que utilizar ese procedimiento.
Por ese motivo voy a instalar la versión 1.4.2 a ver si persiste el
problema.
Saludos Cordiales
========
| ISMAEL |
========
Only for the small landowners and Cubans companies
Website: www.sisconge.byethost15.com
www.sisconge.hol.es
----- Original Message -----
From: "Maxi" <maximiliano.duarte en gmail.com>
To: "Spanish version of Lazarus List"
<lazarus-es en lists.lazarus.freepascal.org>
Sent: Friday, July 17, 2015 4:55 PM
Subject: Re: [Lazarus-es] reporteadores para Lazarus 1.4?
como se hacen los saltos de pagina por grupo? es diferente a la version
delphi
El día 17 de julio de 2015, 14:32, Maxi <maximiliano.duarte en gmail.com>
escribió:
> gracias , ya lo busco
>
> El día 17 de julio de 2015, 12:06, Ismael L. Donis Garcia
> <slibre en citricos.co.cu> escribió:
>> Si pero para eso necesitas en paquete powerpdf que no viene con lazarus
>> no
>> se porque, yo lo tengo si no lo has buscado te lo puedo mandar o tu
>> buscarlo.
>>
>> Saludos Reiterados
>> ========
>> | ISMAEL |
>> ========
>> Only for the small landowners and Cubans companies
>> Website: www.sisconge.byethost15.com
>> www.sisconge.hol.es
>> ----- Original Message ----- From: "Maxi" <maximiliano.duarte en gmail.com>
>> To: "Spanish version of Lazarus List"
>> <lazarus-es en lists.lazarus.freepascal.org>
>> Sent: Friday, July 17, 2015 9:07 AM
>> Subject: Re: [Lazarus-es] reporteadores para Lazarus 1.4?
>>
>>
>> 2015-07-17 9:57 GMT-03:00 Ismael L. Donis Garcia <slibre en citricos.co.cu>:
>>>
>>> Que sistema operativo usas?
>>> Que error te da?
>>>
>>> Yo lo instale sin problema alguno en winxp
>>>
>>> Pero te recomiendo que actualices a 1.4.2
>>
>>
>> Al final pude instalarlo, el error es en el paquete lazexportpdf.
>> que se necesita para exportar a pdf?
>>
>> _______________________________________________
>> Lazarus-es mailing list
>> Lazarus-es en lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>>
>>
>>
>> _______________________________________________
>> Lazarus-es mailing list
>> Lazarus-es en lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
>
> --
> El que pregunta aprende, y el que contesta aprende a responder.
>
> No a la obsolecencia programada:
> http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml
>
> Linux User #495070
> http://domonetic.com/blog
--
El que pregunta aprende, y el que contesta aprende a responder.
No a la obsolecencia programada:
http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml
Linux User #495070
http://domonetic.com/blog
_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
------------------------------------------------------------------------------
_______________________________________________
Lazarus-es mailing list
Lazarus-es en lists.lazarus.freepascal.org
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20150720/749ce1a8/attachment-0002.html>
More information about the Lazarus-es
mailing list