Mysql, ZeosDB

[Casimiro Noteví]

¿Y qué sentencia de edición estás usando?

[ozsWizzard]

Desde luego, si le asignas el "Número de Historia" de forma manual, no lo va a cambiar puesto que el edit y el post están en el else.

Un saludo.

[steelha]

Me disculpo por no haber leído el post lo mas rápido posible, pero el caso es el siguiente el la tabla secuencia existe un registro previo con los valores de cada campo inicializado en 0, cada pantalla incrementara el campo correspondiente dependiendo de la actividad (facturas, HCN, deduciones, ND, NC, etc,etc).

Si es nuevo y es manual no debe leer el campo secuencia, de lo contrario si es automático debe leer la tabla secuencia e incrementar el campo HCN en uno y guardar dicho valor. Lo siguiente extraño es que si inicializo la variable hcn a cero siempre, cuando hago varios guardar automático veo que se incrementa pero el la tabla el campo esta en cero.

[ozsWizzard]

¿Este trozo de código solamente sirve para saber calcular el hcn?

Ahora mismo no veo donde ha de actualizarse el registro.

Por otra parte, en este código:

Código Delphi [-]
     
    dmConexiones.sqlSecuencias.Close;
    dmConexiones.sqlSecuencias.Open;                                                  
    dmConexiones.sqlSecuencias.First;                                                
    hcn := dmConexiones.sqlSecuenciasHistoriaClinica.Value + 1;            
    dmConexiones.sqlSecuencias.Edit;
    dmConexiones.sqlSecuenciasHistoriaClinica.Value := hcn;
    dmConexiones.sqlSecuencias.Post;
    dmConexiones.sqlSecuencias.Close;

No sé si tiene que ser así o no pero veo algo raro. Abres "SqlSecuencias" pero calculas en base a "sqlSecuenciasHistoriaClinica" y lo guardas en "sqlSecuenciasHistoriaClinica". ¿Para qué se abre SqlSecuencias entonces?

[ozsWizzard]

Empezado por ozsWizzard

¿Este trozo de código solamente sirve para saber calcular el hcn?

Ahora mismo no veo donde ha de actualizarse el registro.

Por otra parte, en este código:

Código Delphi [-]
     
    dmConexiones.sqlSecuencias.Close;
    dmConexiones.sqlSecuencias.Open;                                                  
    dmConexiones.sqlSecuencias.First;                                                
    hcn := dmConexiones.sqlSecuenciasHistoriaClinica.Value + 1;            
    dmConexiones.sqlSecuencias.Edit;
    dmConexiones.sqlSecuenciasHistoriaClinica.Value := hcn;
    dmConexiones.sqlSecuencias.Post;
    dmConexiones.sqlSecuencias.Close;

No sé si tiene que ser así o no pero veo algo raro. Abres "SqlSecuencias" pero calculas en base a "sqlSecuenciasHistoriaClinica" y lo guardas en "sqlSecuenciasHistoriaClinica". ¿Para qué se abre SqlSecuencias entonces?

Yo no entiendo nada de lo que estás diciendo

Me estoy releyendo y la verdad es que tienes razón. Las prisas y el intentar no ofender fueron una mala combinación.

Lo que realmente quería decir es que creía que había un error a la hora de usar los querys pero no quería tirarme mucho al agua.

[Casimiro Noteví]

Yo no entiendo nada de lo que estás diciendo

[steelha]

dmConexiones.sqlSecuencias es el query o conexión a la tabla de secuencias donde se encuentra el campo HistorialClinica el cual es el que me interesa por ahora. Pero para acceder a su valor lo debo hacer completo según entiendo es dmConexiones.sqlSecuenciasHistoriaClinica.Value. Si verificas el dmConexiones.sqlSecuencias.post es para guardar los cambios realizados según se. Reitero nunca haber trabajado con los zeos pero en ADO me funcionan muy bien