Error al grabar

[roman]

Empezado por tcp_ip_es

Código Delphi [-]
if ModuloDatos.TblDetproducto.state = dsedit then
 ModuloDatos.TblDetproducto.post

Ya entrados en gastos yo añadiría:

Código Delphi [-]
if 
  (ModuloDatos.TblDetproducto.state = dsedit) or
  (ModuloDatos.TblDetproducto.state = dsinsert)
then
  ModuloDatos.TblDetproducto.post

// Saludos

[tcp_ip_es]

es verdad se me había olvidado je je je

[CHiCoLiTa]

Ya que nos ponemos a dejarlo bonito, vamos a controlar los estados de los botones como es debido

Código Delphi [-]
procedure TModuloDatos.TblDetproductoDataChange(Sender: TObject;
  Field: TField);
begin
     if (TblDetproducto.state = dsedit) or
        (TblDetproducto.state = dsinsert) then
     begin
          Form4.Modificar.Enabled := True;
     end
     else
     begin
          if Assigned (Form4) then
          begin
               Form4.Modificar.Enabled := False;
          end;
     end;
end;