База ТиС для Украины

Обработка написана для переноса документов в Бухгалтерию.
Можно ли этот код упростить?
Пятой точкой чую, что неаккуратненько, однако.

   Счет    = СоздатьОбъект("Документ.Счет");
   Расход    = СоздатьОбъект("Документ.РасходнаяНакладная");
   Налог    = СоздатьОбъект("Документ.НалоговаяНакладная");    
   СЗ        = СоздатьОбъект("СписокЗначений");
   Текст    = СоздатьОбъект("Текст");    
   Если СФ = 1 Тогда        
       Если ПустоеЗначение(выбФирма) = 1 Тогда
           Предупреждение("Выберите фирму");
       КонецЕсли;
       Счет.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода);    
       Пока Счет.ПолучитьДокумент() = 1 Цикл            
           Если Счет.Фирма = выбФирма Тогда
               Если ПустоеЗначение(выбКонтрагент) = 0 Тогда
                   Если Счет.Контрагент = выбКонтрагент Тогда
                       СЗ.ДобавитьЗначение(Счет.ТекущийДокумент());
                       СЗ.ДобавитьЗначение(Счет.Вид());
                       СЗ.ДобавитьЗначение(Счет.ДатаДок);
                       СЗ.ДобавитьЗначение(Счет.НомерДок);
                       СЗ.ДобавитьЗначение(Счет.Фирма);
                       СЗ.ДобавитьЗначение(Счет.Контрагент);
                       СЗ.ДобавитьЗначение(Счет.Контрагент.ЕГРПОУ);
                       Счет.ВыбратьСтроки();
                       Пока Счет.ПолучитьСтроку() = 1 Цикл
                           СЗ.ДобавитьЗначение(Счет.Товар.ПолнНаименование);
                           СЗ.ДобавитьЗначение(Счет.Товар.БазоваяЕдиница);
                           СЗ.ДобавитьЗначение(Счет.Количество);  
                           СЗ.ДобавитьЗначение(Счет.ЦенаБезНДС);
                       КонецЦикла;
                       Текст.ДобавитьСтроку(СЗ.ВСтрокуСРазделителями());
                       СЗ.УдалитьВсе();
                   КонецЕсли;
               Иначе
                   СЗ.ДобавитьЗначение(Счет.ТекущийДокумент());
                   СЗ.ДобавитьЗначение(Счет.Вид());
                   СЗ.ДобавитьЗначение(Счет.ДатаДок);
                   СЗ.ДобавитьЗначение(Счет.НомерДок);
                   СЗ.ДобавитьЗначение(Счет.Фирма);
                   СЗ.ДобавитьЗначение(Счет.Контрагент);
                   СЗ.ДобавитьЗначение(Счет.Контрагент.ЕГРПОУ);
                   Счет.ВыбратьСтроки();
                   Пока Счет.ПолучитьСтроку() = 1 Цикл
                       СЗ.ДобавитьЗначение(Счет.Товар.ПолнНаименование);
                       СЗ.ДобавитьЗначение(Счет.Товар.БазоваяЕдиница);
                       СЗ.ДобавитьЗначение(Счет.Количество);  
                       СЗ.ДобавитьЗначение(Счет.ЦенаБезНДС);
                   КонецЦикла;
                   Текст.ДобавитьСтроку(СЗ.ВСтрокуСРазделителями());
                   СЗ.УдалитьВсе();
               КонецЕсли;
           КонецЕсли;
       КонецЦикла;        
   КонецЕсли;

ну, 15 строк кода можно и выкинуть

(1)Тогда текстовый файл будет больше по размеру.

Пока Счет.ПолучитьДокумент() = 1 Цикл            
        Если Счет.Фирма <> выбФирма Тогда
            Продолжить;
        КонецЕсли;
        Если ПустоеЗначение(выбКонтрагент) = 0 Тогда
            Если Счет.Контрагент <> выбКонтрагент Тогда
                Продолжить;
            КонецЕсли;
        КонецЕсли;
        СЗ.ДобавитьЗначение(Счет.ТекущийДокумент());
        СЗ.ДобавитьЗначение(Счет.Вид());
        СЗ.ДобавитьЗначение(Счет.ДатаДок);
        СЗ.ДобавитьЗначение(Счет.НомерДок);
        СЗ.ДобавитьЗначение(Счет.Фирма);
        СЗ.ДобавитьЗначение(Счет.Контрагент);
        СЗ.ДобавитьЗначение(Счет.Контрагент.ЕГРПОУ);
        Счет.ВыбратьСтроки();
        Пока Счет.ПолучитьСтроку() = 1 Цикл
            СЗ.ДобавитьЗначение(Счет.Товар.ПолнНаименование);
            СЗ.ДобавитьЗначение(Счет.Товар.БазоваяЕдиница);
            СЗ.ДобавитьЗначение(Счет.Количество);  
            СЗ.ДобавитьЗначение(Счет.ЦенаБезНДС);
        КонецЦикла;
        Текст.ДобавитьСтроку(СЗ.ВСтрокуСРазделителями());
        СЗ.УдалитьВсе();
    КонецЦикла;

(3)Признаю, был неправ :)

Интересно просто, а для чего это условие, если обработка работает дальше (после нажания ОК, конечно, а так вроде будет ждать до морковкиной заговени)?
        Если ПустоеЗначение(выбФирма) = 1 Тогда
            Предупреждение("Выберите фирму");
        КонецЕсли;

Спасибо, совсем вылетел из головы оператор "<>"

(0) Можно, допиши выгрузку через DBF файлы :)