Error al grabar

[tcp_ip_es]

No estaría de más que comprobases el estado de la tabla antes de grabar, para ver si esta en modo edición, sino no puedes hacer el post.

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

en lo demás estoy totalmente de acuerdo con Roman.

Saludos, Tony

[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;