Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 11-07-2016
Avatar de gatosoft
[gatosoft] gatosoft is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Bogotá, Colombia
Posts: 835
Poder: 24
gatosoft Va camino a la fama
Cita:
Empezado por AgustinOrtu Ver Mensaje
Si pudiste activar los dos query sin problema, entonces el problema esta en el form

* Puede ser en el constructor
* Puede ser en algun evento OnShow/OnActivate

Me inclino mas por la primera. Pon un punto de ruptura en el constructor
De acuerdo con los compañeros. el problema es un bucle infinito y me adhiero al comentario de AgustinOrtu. Muestranos el codigo del constructor y si tienes programado algo en el OnShow/OnActive.


Revisa tambien que tu formulario tfListadosVentas no esté creado automátcamente desde el inicio (por si acaso)

Saludo,
Responder Con Cita
  #2  
Antiguo 13-07-2016
Belen12 Belen12 is offline
Miembro
NULL
 
Registrado: may 2016
Posts: 29
Poder: 0
Belen12 Va por buen camino
Gracias

Cita:
Empezado por gatosoft Ver Mensaje
De acuerdo con los compañeros. el problema es un bucle infinito y me adhiero al comentario de AgustinOrtu. Muestranos el codigo del constructor y si tienes programado algo en el OnShow/OnActive.


Revisa tambien que tu formulario tfListadosVentas no esté creado automátcamente desde el inicio (por si acaso)

Saludo,

Hola. No tengo nada en esos eventos solo lo unico que toque fue asignarle a cada dbgrid su query. y Realizar la llamada desde el menu principal que el codigo era el siguiente

Código Delphi [-]
procedure TfPrincipal.Listado5Click(Sender: TObject);
begin
  fmodulo.qVentas.Active:=true;
  fmodulo.qdetalle.Active:=true;
  tfListadosVentas.Create(self).ShowModal;
end;
Responder Con Cita
  #3  
Antiguo 13-07-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Belen12.

Lo que te sugerí,
Código Delphi [-]
{$M 32768, 214748364}
incrementa el tamaño del stack. Y apuntaba al caso que hubieras echo un gran consumo de memoria en las declaraciones, pero por lo que comentas no es el caso.

Ahora me quedó una duda: ¿ El programa se queda colgado en,
Código Delphi [-]
fmodulo.qdetalle.Active:=true;
como mencionas en el mensaje #6 o en,
Código Delphi [-]
procedure TfPrincipal.Listado5Click(Sender: TObject);
begin
  fmodulo.qVentas.Active:=true;
  fmodulo.qdetalle.Active:=true;
  tfListadosVentas.Create(self).ShowModal;
end;
como aparece en el mensaje #7 ?

Por otro lado, ¿ Sabes como usar los puntos de interrupción(breakpoint) como te sugirió Agustin en el mensaje #2 ?

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 13-07-2016 a las 14:09:52.
Responder Con Cita
  #4  
Antiguo 13-07-2016
Belen12 Belen12 is offline
Miembro
NULL
 
Registrado: may 2016
Posts: 29
Poder: 0
Belen12 Va por buen camino
Gracias

Hola buenas tardes. si lo de tu sugerencia no lo se hacer perdon lo de incrementar el tamaño del stark
Si exacto el programa se queda congelado en la linea

Código Delphi [-]
fmodulo.qdetalle.Active:=true;

con respeto a la interrupción(breakpoint) la se manejar mas o menos ahora mira lo que me sucede cuando ejecuto y quiero entrar al formulario me sale lo siguiente dejo una imagen para que se pueda apreciar mejor
http://www.subirimagenes.com/otros-delphii-9622519.html

Última edición por Casimiro Noteví fecha: 13-07-2016 a las 20:21:20.
Responder Con Cita
  #5  
Antiguo 13-07-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Belen12.

A ver, empecemos por mirar si fmodulo está creado al momento del llamado agregando una línea a tu código:
Código Delphi [-]
procedure TfPrincipal.Listado5Click(Sender: TObject);
begin
  if not Assigned(fmodulo) then raise Exception.Create('¡ fmodulo no ha sido creado aún !'); // <- esta línea
  fmodulo.qVentas.Active:=true;
  fmodulo.qdetalle.Active:=true;
  tfListadosVentas.Create(self).ShowModal;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #6  
Antiguo 14-07-2016
Belen12 Belen12 is offline
Miembro
NULL
 
Registrado: may 2016
Posts: 29
Poder: 0
Belen12 Va por buen camino
Gracias

Cita:
Empezado por ecfisa Ver Mensaje
Hola Belen12.

A ver, empecemos por mirar si fmodulo está creado al momento del llamado agregando una línea a tu código:
Código Delphi [-]
procedure TfPrincipal.Listado5Click(Sender: TObject);
begin
  if not Assigned(fmodulo) then raise Exception.Create('¡ fmodulo no ha sido creado aún !'); // <- esta línea
  fmodulo.qVentas.Active:=true;
  fmodulo.qdetalle.Active:=true;
  tfListadosVentas.Create(self).ShowModal;
end;

Saludos
Hola buenas noches, no me sigue saliendo el mismo error que presente en la imagen
Responder Con Cita
  #7  
Antiguo 14-07-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Bien, paso siguiente revisa que:
  • qVentas y qDetalle existan al momento de citarlos en tu código.
  • Si existe algún código en los eventos OnCreate, OnShow, OnActivate, etc. del TDataModule fmodulo.
  • Si lo hay en BeforeOpen, AfterOpen, BeforeScroll, AfterScroll, etc. de qVentas y qDetalle.
  • Lo mismo con los eventos OnDataChange, OnStateChange, OnUpdateData de los TDataSource asociados con los anteriores.
  • Por último controla los eventos OnCreate, OnShow, OnActivate, etc. de tfListadosVentas.
Si encuentras algo, pública el código por favor.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Stack Overflow Guillermo80 Varios 10 01-06-2008 21:41:36
stack overflow juan francisco Varios 6 28-05-2008 22:26:15
Stack overflow aonarres API de Windows 5 29-02-2008 13:07:11
Stack Overflow agonzalez Varios 5 08-12-2006 22:26:46
Stack Overflow Mariana Varios 14 30-10-2003 11:37:47


La franja horaria es GMT +2. Ahora son las 10:37:21.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi