Процедура СформироватьОтгрузкуНаОснованииПредДня(пДата)
    ПредДокумент = ПолучитьДокументСуточнойОтгрузки(пДата - 86400);
    
    // Если отгрузка на этот день уже создана, то открываем существующий документ
    ТекДокумент = ПолучитьДокументСуточнойОтгрузки(пДата);
    Если ТекДокумент <> Неопределено Тогда
    Иначе
        
        // Если найден документ отгрузки за предыдущий день
        Если ПредДокумент <> Неопределено Тогда
            НовыйДокумент = ПредДокумент.Скопировать();
            НовыйДокумент.Дата = пДата;
            НовыйДокумент.Записать(РежимЗаписиДокумента.Запись);
            
        Иначе
            Предупреждение("Не найден документ отгрузки за предшествующий день!" + Символы.ПС + 
            "Данные по отгрузке автоматически заполняться не будут.",, "Предупреждение");
        КонецЕсли;
        //    ЗаполнитьСуточнуюОтгрузку();        // Суточная отгрузка
    КонецЕсли;
    
КонецПроцедуры // СформироватьОтгрузкуНаОснованииПредДня()

Процедура ЗаполнитьСуточнуюОтгрузку()
    //Сообщить("Заполнение суточной отгрузки ");
    
    НаличиеФайла = Новый Файл(ПутьКБазе+"grs_sum.dbf");
    
    Если НаличиеФайла.Существует() Тогда
    Иначе
        Предупреждение("ДБФ-файл по отгрузке отсутствует");
        Перейти ~Вконец;    
    КонецЕсли;
    
    ТЗ= Новый ТаблицаЗначений;
    ТЗ.Колонки.Добавить("КодГРС");
    ТЗ.Колонки.Добавить("Выход");
    ТЗ.Колонки.Добавить("Факт");
    
    БД = Новый XBase; 
    БД.ОткрытьФайл(ПутьКБазе+"grs_sum.dbf"); 
    
    Если БД.Открыта() Тогда                     //Переписываем ДБФ в таблицу значений
        БД.Первая(); //позиционируемся на первой записи
        Пока БД.ВКонце()=0 Цикл //пока не дошли до конца, крутим цикл
            НоваяСтрока = ТЗ.Добавить();
            НоваяСтрока.КодГРС=БД.Kod_GRS;
            НоваяСтрока.Выход=БД.OUT;
            НоваяСтрока.Факт=БД.SUM;
            БД.Следующая(); //переходим на следующую запись
        КонецЦикла;
    Иначе 
        Предупреждение("ДБФ-файл заблокирован, доступ невозможен");
        Перейти ~Вконец;
    КонецЕсли;
    БД.ЗакрытьФайл();     
    
    ТекДок =  ПолучитьДокументСуточнойОтгрузки(пДата);
    Если ТекДок <> Неопределено Тогда
        ТекДокумент=ТекДок.ПолучитьОбъект();
        Для Каждого ТекущаяСтрока Из ТекДокумент.тчГРС Цикл 
            Для Каждого ТекущаяСтрокаТЗ Из ТЗ Цикл 
                Если   СокрЛП(ТекущаяСтрокаТЗ.КодГРС)=СокрЛП(ТекущаяСтрока.ГРС.Код)  И
                    СокрЛП(ТекущаяСтрокаТЗ.Выход)=СокрЛП(ТекущаяСтрока.ВыходГРС.Код)
                    Тогда  // Совпал код ГРС
                    ТекущаяСтрока.Количество=ТекущаяСтрокаТЗ.Факт; //Заносим в документ 
                    Состояние("Заполнение отгрузки " + ТекущаяСтрока.ГРС+ "...");
                    
                    прервать; // Если знесли, выходим из цикла  по основной ТЗ
                КонецЕсли;
            КонецЦикла;                               
        КонецЦикла; 
        ТекДокумент.Записать(РежимЗаписиДокумента.Запись);
    Иначе 
        //    Сообщить("За выбранную дату документов нет, сформируйте суточную отгрузку ");
    КонецЕсли;      
    
    
    
    ~Вконец:;    
КонецПроцедуры

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

если НЕ РАВНО тогда ... иначе...

если РАВНО тогда... иначе...