"Хорошо. Проверяйте:

- в модуле документа для НачислениеЗаработнойПлаты найти строку

ЖурналРасчетовЗарплата.УстановитьРеквизит("НомерСтрокиДокумента",ТаблицаДействующихРасчетов.Строка);

и перед ней вставить следующие строки;

ПодчДок=СоздатьОбъект("Документ"); //=+//-2йРсч
Если ПодчДок.ВыбратьПодчиненныеДокументы(КТП,КТП,ДокументОсн)=1 Тогда //=+//-2йРсч
 НадоВыйти=0; //=+//-2йРсч
 Пока ПодчДок.ПолучитьДокумент()=1 Цикл //=+//-2йРсч
   Если ПодчДок.Вид()<>"НачислениеЗаработнойПлаты" Тогда //=+//-2йРсч
     Продолжить; //=+//-2йРсч
   КонецЕсли; //=+//-2йРсч
   Если ПодчДок.ПометкаУдаления()=1 Тогда //=+//-2йРсч
     Продолжить; //=+//-2йРсч
   КонецЕсли; //=+//-2йРсч
   Если ПодчДок.Проведен()=0 Тогда //=+//-2йРсч
     Продолжить; //=+//-2йРсч
   КонецЕсли; //=+//-2йРсч
   Если ПодчДок.СпособНачисленияЗарплаты<>2 Тогда //=+//-2йРсч
     Продолжить; //=+//-2йРсч
   КонецЕсли; //=+//-2йРсч
   НадоВыйти=1; //=+//-2йРсч
   Прервать; //=+//-2йРсч
 КонецЦикла; //=+//-2йРсч
 Если НадоВыйти=1 Тогда //=+//-2йРсч
   Продолжить; //=+//-2йРсч
 КонецЕсли; //=+//-2йРсч
КонецЕсли; //=+//-2йРсч

Комментарии лучше оставить, чтобы отличаться от оригинального 1С-овского текста.
"