Здравствуйте.

Алгоритм: 4

Параметры: D2=Б(внутренний_код_оклада)/Н(1); D3=К(kat,4)   // Н и К - русские

В 26 столбце спецТВХ символ 1

Форма П4 в квартальном варианте получает информацию о среднесписочной. Там используется функция СОСТАВ(3,месяц1,месяц2); (в варианте П4 передаются относительные месяцы, но функция поймет и вариант вида 01.2018,03.2018)

Для открытия строки недостаточно одного совместительства. В общем случае для строки могут задаваться источники, объекты... otrksnu смотрит на "свойство" установленное в CMN_SRC_C_WORK

//AmbaMessageBox("982 = " + last_day_982.GetStr(),"",MB_OK|MB_ICONINFORMATION,0); 
//AmbaMessageBox("988 = " + last_day_988.GetStr(),"",MB_OK|MB_ICONINFORMATION,0);
      var Prop = CreateObject("APropBE");
      Prop.SetCombine(comb);
      var ts1 = CreateObject("TempCommonSrc");
      ts1.TempCommonSrcInitial(CMN_SRC_C_WORK);
      SetCommonProp(CMN_SRC_C_WORK,Prop);
      var ts2 = CreateObject("TempCommonSrc");
      ts1.TempCommonSrcInitial(CMN_SRC_MAIN); 
      SetCommonProp(CMN_SRC_MAIN,Prop);
var tc=CreateObject("TmpCurCombine"); // Класс для временной смены, а затем и восстановления текущей должности 
tc.Init(comb);//инициализируем 

Приказ удалить невозможно. По F3 приказ помечается как обработанный. Нажмите F9 и включите отображение всех приказов включая обработанные, галку что приказ обработан можно снимать двойным кликом мыши.

Пример функции:

TryFindCodeValidOnDate(comb,extCode,kDate)
{
  var Prob = CreateObject("APropBE");
  Prob.Init(CLL_TOTAL_SRC,CLL_TOTAL_SUBJECT,CLL_TOTAL_PODR,comb); //инициализируем APropBE вн.кодом совместительства
  int rowkod[ROWMAX];//массив с номерами строк
  int cntrow=poiskosnkodProp(Extern_To_Intern(extCode),rowkod,0,Prob);//получаем список строк с кодом==kod
  for (int row=0; row<cntrow; row++)  
  {
    double ikod=GetCode(rowkod[row]);
    var dbRow=KDateFromD(GetBegDate(rowkod[row]));
    var deRow=KDateFromD(GetEndDate(rowkod[row]));
    if (dbRow.IsValid() && dbRow.GT(kDate)) //вид еще не открыт
      continue;
    
    if (deRow.IsValid() && deRow.LT(kDate)) //вид закрыт
      continue;
      
    return row;  
  }
  return -1;  
}

Использовать так:

var d=KDateFromInt_WithDay(1,mrasch);
if (TryFindCodeValidOnDate(comb,extCode,d)==-1) //вид на 1 первое число расчетного месяца не найден..
{
  //код для открытия вида
}

Есть переменная InternCodE, в которой находится внутренний точный код вида печатаемой строки.

Через  GetShifrZatrRow(double IntCode)  можно получить шифр затрат...

Добавить печать значения ШЗ можно например в comexcel.S в функции StringExcel(Part)

Например:

      sprintf(cell,"S%d",NumStr); tWriteStringToCell(cell,OemToAnsi(ts1));
      sprintf(cell,"T%d",NumStr); tWriteStringToCell(cell,OemToAnsi(arg));
   }

Заменяем на

      sprintf(cell,"S%d",NumStr); tWriteStringToCell(cell,OemToAnsi(ts1));
      sprintf(cell,"T%d",NumStr); tWriteStringToCell(cell,OemToAnsi(arg));
      if (kod==305) //ШЗ печатаем только для 305 вида
      {
         sprintf(cell,"U%d",NumStr); tWriteStringToCell(cell,OemToAnsi(GetShifrZatrRow(InternCodE)));
      }  
   }

Такая функция поможет:

UsrGetNormPeriod(what,&D1,&D2,numcalend)
{
   int am1 = KDateFromStr(D1).GetAbs();
   int am2 = KDateFromStr(D2).GetAbs();
   int tmrasch = mrasch;
   int tmp = nkalend;
   if ( nkalend!=numcalend && numcalend>0 )
      rwnorma(numcalend,0);
   double Total = 0.;
   for (int am=am1; am<=am2; ++am )
   {
      mrasch=am;
      s118();
      Total += norm(what);
   }
   mrasch=tmrasch;
   if ( nkalend!=tmp )
   {
      rwnorma(tmp,0);
      s118();
   }  
   return Total;
}

Пример вызова: 

return UsrGetNormPeriod(1,"01.01.2018","31.12.2018",2);