Операция по списку, списка пачек ИС.

scan @pens0 nocheck
Execute{
if @pens0:[^] == 1
then{
if ( SELECT count(*) FROM pr_pfr_svis WHERE id_pachka_ch = @pens0:id ) > 0 then
            error [\3 Удалить нельзя. \10\3 Пачка включена в сводную ведомость / опись сведений];

        DELETE z_stag_lgot WHERE st_id in (select id from Z_STAG_HIST WHERE id_pachka = @pens0:id);
        DELETE Z_STAG_HIST WHERE id_pachka = @pens0:id;

        DELETE FROM pftb_payout 
            WHERE id_pens in (SELECT id FROM z_rep_pens WHERE id_pachka = @pens0:id);
        DELETE FROM pftb_pay_danger 
            WHERE id_pens in (SELECT id FROM z_rep_pens WHERE id_pachka = @pens0:id);
        DELETE FROM pftb_pay_corr 
            WHERE id_pens in (SELECT id FROM z_rep_pens WHERE id_pachka = @pens0:id);

        DELETE FROM z_rep_pens WHERE id_pachka = @pens0:id;
delete from z_pachka where id = @pens0:id;
   };
};
Msg 2041, @pens0;