Ayuda con apertura de Caja

[cristian22]

Empezado por Neftali

Haces un Edit de qCaja, cambias el valor, pero no haces un Post.
Después de esta línea:

Código Delphi [-]
qCaja.FieldByName('estado_caja').AsInteger:=1

coloca:

Código Delphi [-]
  qCaja.Post;

tenes razon me faltaba hacer el post. Pero ahora me tira un error. Resulta que tengo 2 cajas una con estado 0 y otra con estado 1 como mensione las seleciono con el dblookupcombobox1, Cuando selecciono la Caja 1 que tiene como "estado 0" apreto el boton aceptar y me dice "SQL Error Column idcaja cannot be null" y si selecciono la caja 2 al hacer lo mismo queda con el mensaje de "estado inactivo" pero se queda tildado y no me deja cerrarlo
gracias por responder

[Neftali [Germán.Estévez]]

Empezado por cristian22

Cuando selecciono la Caja 1 que tiene como "estado 0" apreto el boton aceptar y me dice "SQL Error Column idcaja cannot be null"

¿Ese error no será de la inserción en la otra tabla?
Ejecuta "paso a paso" ese código y a ver cual es la línea real donde falla.

[cristian22]

Empezado por Neftali

¿Ese error no será de la inserción en la otra tabla?
Ejecuta "paso a paso" ese código y a ver cual es la línea real donde falla.

Hola ya realize la comprobacion primero me tira un error en el if

Código Delphi [-]
if fModulo.qCaja.FieldByName('estado_caja').AsInteger=0 then

probe sacando el if para ver que pasaba y luego salio error en el insert

Código Delphi [-]
 fModulo.qCaja.Insert;

[Neftali [Germán.Estévez]]

¿Y cual es el error en cada una?

Esta línea:

Código Delphi [-]
if fModulo.qCaja.FieldByName('estado_caja').AsInteger=0 then

No puede provocar este error:
"SQL Error Column idcaja cannot be null"

Salvo que tengas código en otro lugar (evento, triggers,...) que no estás poniendo aquí.

[cristian22]

Empezado por Neftali

¿Y cual es el error en cada una?

Esta línea:

Código Delphi [-]
if fModulo.qCaja.FieldByName('estado_caja').AsInteger=0 then

No puede provocar este error:
"SQL Error Column idcaja cannot be null"

Salvo que tengas código en otro lugar (evento, triggers,...) que no estás poniendo aquí.

Hola en esta linea el error es el que te nombre que cuando eligo la caja por ejemplo la 2 que tiene estado 1 queda el programa colgado en el else no se por que

Código Delphi [-]
if fModulo.qCaja.FieldByName('estado_caja').AsInteger=0 then

y si en caso que eliga la caja 1 que tiene estado 0 me tira error en el Insert

[Casimiro Noteví]

Necesitas leer esto.