[[enecumene]]

tambien intente esto pero no me hace nada:

Código Delphi [-]
procedure TFFactura.BitBtn1Click(Sender: TObject);
begin
if MessageDlg('¿Está seguro que desea Guardar?', mtConfirmation,
       [mbYes, mbNo], 0) = mrYes then
  begin
       if ZPedido.Fields[19].AsString = ' ' then
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef_2='+Quotedstr('Sí')+', oc_no_sigef='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ShowMessage(ZRegPed.SQL.Text);
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        end;

       if (ZPedido.Fields[19].AsString <> ' ') and (ZPedido.Fields[42].AsString = ' ') then
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef1='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ShowMessage(ZRegPed.SQL.Text);
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        end;

       if (ZPedido.Fields[42].AsString <> ' ') and (ZPedido.Fields[43].AsString = ' ') then
        if ZFactura.State in [dsedit,dsinsert] then
        begin
        ZRegPed.SQL.Clear;
        ZRegPed.SQL.Add('UPDATE reg_pedidos SET oc_no_sigef2='+Quotedstr(DBEdit1.Text)+'');
        ZRegPed.SQL.Add(' WHERE no = '+Quotedstr(DBEdit15.Text)+' ');
        ShowMessage(ZRegPed.SQL.Text);
        ZRegPed.ExecSQL;
        ZFactura.Post;
        ZFactura.Insert;
        end;
      end else
      showmessage('No hago nada, no estoy editando');
end;

que quebradera!!