Error "DatAset not in edit or intert mode" ESTANDO EN MODO INSERT!!!

[Lenny]

Estimados, me tiene de cabeza este error, les dejo el codigo que utilizo en un TButton:

Código Delphi [-]
procedure TOTWizard.Button1Click(Sender: TObject);
begin
BDatos.OCPRODUCTOSTAB.Insert;
BDatos.OCPRODUCTOSTAB.FieldbyName('OC').AsString := DBEdit14.Text;
BDatos.OCPRODUCTOSTAB.FieldbyName('CODIGO').AsString := BDatos.WPRODUCTOSTAB.FieldbyName('CODIGO').AsString;
BDatos.OCPRODUCTOSTAB.FieldbyName('DESCRIPCION').AsString := BDatos.WPRODUCTOSTAB.FieldbyName('DESCRIPCION').AsString;
BDatos.OCPRODUCTOSTAB.FieldbyName('PRODUCTO').AsString := BDatos.WPRODUCTOSTAB.FieldbyName('PRODUCTO').AsString;
BDatos.OCPRODUCTOSTAB.FieldbyName('MAYOR').AsString := BDatos.WPRODUCTOSTAB.FieldbyName('MAYOR').AsString;
BDatos.OCPRODUCTOSTAB.FieldbyName('DETALLE').AsString := BDatos.WPRODUCTOSTAB.FieldbyName('DETALLE').AsString;
BDatos.OCPRODUCTOSTAB.FieldbyName('CANTIDAD').AsString := Edit5.Text;
BDatos.OCPRODUCTOSTAB.FieldbyName('TOTAL').AsString := Edit4.Text;
BDatos.OCPRODUCTOSTAB.Post;
end;

A pesar de estar en modo Insert

Código Delphi [-]
begin
BDatos.OCPRODUCTOSTAB.Insert;

Al precionar el Boton me lanza este error:

Código Delphi [-]
OCPRODUCTOSTAB: Dataset not in edit or insert mode.

Gracias de antemano ante cualqueir ayuda.

Utilizo Delphi 2010, Zeos 7.0.0, MySQL.

[[oscarac]]

y el open?

[Lenny]

asi:

Código Delphi [-]
procedure TOTWizard.Button1Click(Sender: TObject);
begin
BDatos.OCPRODUCTOSTAB.Open;
BDatos.OCPRODUCTOSTAB.Insert;
BDatos.OCPRODUCTOSTAB.FieldbyName('OC').AsString := DBEdit14.Text;
BDatos.OCPRODUCTOSTAB.FieldbyName('CODIGO').AsString := BDatos.WPRODUCTOSTAB.FieldbyName('CODIGO').AsString;
BDatos.OCPRODUCTOSTAB.FieldbyName('DESCRIPCION').AsString := BDatos.WPRODUCTOSTAB.FieldbyName('DESCRIPCION').AsString;
BDatos.OCPRODUCTOSTAB.FieldbyName('PRODUCTO').AsString := BDatos.WPRODUCTOSTAB.FieldbyName('PRODUCTO').AsString;
BDatos.OCPRODUCTOSTAB.FieldbyName('MAYOR').AsString := BDatos.WPRODUCTOSTAB.FieldbyName('MAYOR').AsString;
BDatos.OCPRODUCTOSTAB.FieldbyName('DETALLE').AsString := BDatos.WPRODUCTOSTAB.FieldbyName('DETALLE').AsString;
BDatos.OCPRODUCTOSTAB.FieldbyName('CANTIDAD').AsString := Edit5.Text;
BDatos.OCPRODUCTOSTAB.FieldbyName('TOTAL').AsString := Edit4.Text;
BDatos.OCPRODUCTOSTAB.Post;
end;

Mismo error, nunca me habia pasado antes... no se que pasa!!!

[[gatosoft]]

Amigo Lenny, ¿en que línea te sale el error?, me huele que debe haber código en ´registrado en un evento intermedio, como por ejemplo en el OnNewRecord, y allí estas asignando porpiedades y haciendo un post (no debe hacerse post en un OnNewRecord)...

Por ahora se me ocurre eso... revisa los eventos del Dataset, para confirmar esto... o mejor aun realiza un seguimiento pasoa a paso con f7 para saber en que línea falla y a que eventos está entrando...

un saludo,

[Lenny]

Es un ZTable... y como dices... no tiene explicacion... aun no doy con el problema... please help me!!!
E echo todo como siempre, de echo todo lo demas funciona bien, e intentado replicar solo el ingreso a la tabla y aun asi lanza el mismo error...

EDIT:

Utilizo un DataSource, ZConnection y ZTable...

[[Caral]]

Hola
Lo unico que se me ocurre es que esto:
BDatos.WPRODUCTOSTAB.
No este Activo y no encuentre los datos.
Saludos

[ecfisa]

Hola Lenny.

Sería interesante que usaras un break para ver en que línea se dispara la excepción.

Aunque no trabajo con Zeos ni MySQL, viendo tus líneas de código sólo se me ocurre que en algun evento del DataSet: 'OCPRODUCTOSTAB',
estes realizando alguna accíon que lo saque del estado dsInsert.

Quizá AfterInsert sea un buen candidato...

Un saludo.

[[Caral]]

Hola
ZTable o ZQuery?.
Si se quiere hacer un insert de una consulta (de un Zquery) generara ese error.
Si es un ZTable, no tiene explicacion.
Saludos