DM.SQL2.Close; // Устанавливаем признак выписки в таблицу  pal_doct
            DM.SQL2.SQL.Clear;
            DM.SQL2.SQL.Add(' update pal_doct set  prizn=1');
            DM.SQL2.SQL.Add(' where  id_str='+DM.SQL.FieldByName(' id_str').AsString+'  ');
            DM.SQL2.SQL.Add(' and  palat_id='+DM.SQL.FieldByName(' palat_id').AsString+'');
            DM.SQL2.SQL.Add(' and  doct_tn='+inttostr(DT_N_L )+' ');
            DM.SQL2.SQL.Add(' and status='+DM.SQL.FieldByName(' status').AsString+'');
            DM.SQL2.SQL.Add(' and dat_p='+chr(39)+DM.SQL.FieldByName(' dat_p').AsString+chr(39)+'');
             ShowMessage(dm.SQL2.SQL.Text);
            DM.SQL2.ExecQuery;
            DM.SQL2.Close;
            DM.Transaction.CommitRetaining;


              DM.SQL3.Close; // Устанавливаем признак выписки в таблицу PALATA
              DM.SQL3.SQL.Clear;
              DM.SQL3.SQL.Add(' update PALATA set  pr=1');
              DM.SQL3.SQL.Add(' where  id_palata='+DM.SQL.FieldByName('id_palata').AsString+'  ');
              DM.SQL3.SQL.Add(' and  dat_r='+chr(39)+DM.SQL.FieldByName(' dat_r').AsString+chr(39)+'');
              DM.SQL3.SQL.Add(' and  n_palat='+DM.SQL.FieldByName(' n_palat').AsString+' ');
              DM.SQL3.SQL.Add(' and pazient='+DM.SQL.FieldByName(' pazient').AsString+' ');
                ShowMessage(DM.SQL3.SQL.Text);
              DM.SQL3.ExecQuery;
              DM.SQL3.Close;
              DM.Transaction.CommitRetaining;