Query que deja de recibir datos despues de un tiempo

[mamcx]

Le pegue una mirada al codigo y es claro como no encuentras el problema.

Esta muy desorganizado y depende demasiado de llevar bien "la cuenta" de que se hace primero y que segundo. Es lo que se llama codigo espagueti.


Deja separado el acceso a los datos, no dupliques la funcionalidad y no uses el mismo objeto para actividades diferentes.

Estructura el código maso asi:

Código Delphi [-]

DB:
  QueryLlamada(Params):TDataSet
  QueryCliente(Params):TDataSet
  UpdateLlamada(Params):Result

GUI:
  Forma1 ->
     Accion1 - > QueryLlamada(...)
     Accion2 - > QueryCliente(...)     
     Accion3 - > UpdateLlamada(...)

La idea es que deberias poder formar un "árbol" del flujo de la aplicación sin que (en lo posible) tengas interdependencias entre los objetos.

Por ejemplo "GetData" esta desparramado en varias partes y toca el mismo objeto. Eso es LO MISMO que tener una variable global. Que por regla general es MALA IDEA.

Ten los objetos encapsulados para cada gran actividad, que garanticen que no es posible (accidental o por pereza) acceder a ellos "a las espaldas de su verdadero dueño".

Estudia sobre los principios de SOLID:

https://en.wikipedia.org/wiki/SOLID_...riented_design

[[AgustinOrtu]]

Agregando a lo que comentan los compañeros, te recomiendo que comiences un nuevo proyecto pequeño en el que reconstruyas la situacion, paso a paso vas agregando lo que necesitas hasta que te topas con el error; hacerlo te va a ayudar a encontrar y entender la causa del problema, porque leer y entender codigo (y mas aun si esta mal organizado) es mas dificil que escribir codigo.

[balger]

Gracias a todos por los comentarios y tips.
Entiendo cuando hablan de organizar. Es cierto esta todo tirado ahi. y tambien cortar y pegar.
La idea era sacarlo rapido que funcione y luego organizarlo en un datamodule, ya que es algo simple, y mi experiencia con delphi es limitada. Y como quiero incursionar mas profundo. Me tomare un tiempo para hacerlo desde cero.
Gracias nuevamente.