RunCarry не удаляет за собой postdoc

• RunCarry не удаляет за собой postdoc ( KaMPiLeR  01.10.2020 19:15 )
  Оценка:0(0)

  как корректнее всего оформить?
  
  сделал через ProcessConTrn. правильно ли понимаю что или проводка отработает и удалится документ, или если будет захвачен - то ни проводка не пройдет ни отложенный не удалится?
  
  

  macro myRunCarry(p, dateo)
    var r=false;
  
    record car ("carryprm.dbt","rs_temp.def");
    record doc ("postdoc.dbt", "bank.def");
    copy(doc,p);
  
    MACRO MCARRY
          if(RunCarry(car,p,1) == 0)
            if(Log_WriteChanges(4, p, 0))//сохраняем в логе что удалили
              delete(p);
            else
              [!!! MCARRY: не могу писать в оперлог];
              AbortTrn;
            end;
          else
            [!!! MCARRY: не дает провести...];
            AbortTrn;
          end;
    END;
  
    p.SystemDateCarry=date();
    p.Time_Carry=time();
  
    if(p.Sum>$0.00)
      car.CarryKind=1;
      car.left     =0;
      car.DateF    = dateo;
      car.DateV    = dateo;
  
      if(ProcessConTrn(car.CarryKind,"MCARRY"))
        r=true;
      end;
    end;
  
    return(r);
  end;

  
  >> Ответить