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