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!!!