Имя: Пароль:
1C
1С v8
Определения процедур и функций должны размещаться перед операторами тела модуля
0 tigrandis
 
07.02.12
23:36
ребят помогите, голова уже болит, по идеи врод норм все но такая фигня выходит


   Функция ПолучитьВыборкуПоДвижениям()
   
   Запрос = Новый Запрос();
   Запрос.Текст = "ВЫБРАТЬ
                  |    РеализацияТоваровУслуг.Товары.(
                  |        Номенклатура.Наименование КАК Номенклатура,
                  |        Номенклатура.Артикул КАК Артикул,
                  |        Номенклатура.ЕдиницаИзмеренияМест.Наименование,
                  |        ХарактеристикаНоменклатуры.Наименование КАК ХарактеристикаНоменклатуры,
                  |        СерияНоменклатуры.Наименование КАК СерияНоменклатуры,
                  |        Количество,
                  |        Цена,
                  |        СтавкаНДС,
                  |        СуммаНДС,
                  |        Сумма
                  |    ),
                  |    РеализацияТоваровУслуг.Дата,
                  |    РеализацияТоваровУслуг.ДоговорКонтрагента.Ссылка КАК ДоговорКонтрагента,
                  |    РеализацияТоваровУслуг.Контрагент.Ссылка КАК Контрагент,
                  |    РеализацияТоваровУслуг.Склад.Наименование КАК Склад,
                  |    РеализацияТоваровУслуг.Номер,
                  |    Штрихкоды.Штрихкод
                  |ИЗ
                  |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
                  |        ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
                  |        ПО РеализацияТоваровУслуг.Товары.Номенклатура.Наименование = Штрихкоды.Штрихкод" ;
                 
                     
       Возврат Запрос.Выполнить().Выбрать();
   
   КонецФункции;
   
           
   Функция Печать() Экспорт
       
   префМагазина = ПолучитьПрефиксМагазина(СсылкаНаОбект.Склад);

       
   Разд            = Символы.Таб;
   Контрагент        = Выборка.Контрагент;
   Склад           = Выборка.Склад;
   НомерДок        = Выборка.Номер;
   ДоговорКонтр    = Выборка.ДоговорКонтрагента;
   
   
   Выборка        = ПолучитьВыборкуПоДвижениям();    
   Текст            = НОВЫЙ ТекстовыйДокумент;


   
   Пока Выборка.Следующий() Цикл
       Дата          = Формат(СсылкаНаОбъект.Дата,"ДФ=yyyy-MM-dd");
       Номенклатура  = Выборка.Номенклатура;
       Артикул          = Выборка.Артикул;
       ХарНом          = Выборка.ХарактеристикаНоменклатуры;
       СерияНом      = Выборка.СерияНоменклатуры;
       Количество    = Выборка.Количество;
       Штрихкод      = Выборка.Штрихкод;
       ЦенаЗаШт      = Формат(Выборка.Цена,"ЧДЦ=0; ЧС=-4; ЧГ=");
       СтавкаНДС     = УчетНДС.ПолучитьСтавкуНДС(Выборка.СтавкаНДС);
       СуммаНДС      = Выборка.Сумма.НДС;
       Сумма          = Выборка.Сумма;
       ЕдИзм          = "Шт";
       EXP              = "";
       Валюта        = "RUB";
       
       СтрокаТекста = "" + Контрагент+разд+Склад+разд+ДоговорКонтр+разд;
       Текст.ДобавитьСтроку(СтрокаТекста);

   КонецЦикла;
   
   Текст.Показать(, Формат(СсылкаНаОбъект.Дата,"ДФ=dd-MM-yyyy")+"_PK_M.txt");
   
КонецФункции
1 tigrandis
 
07.02.12
23:37
по отделности оба норм функционируют
2 NS
 
07.02.12
23:38
; Между процедурой и функцией у тебя зачем?
3 sanja26
 
07.02.12
23:41
(2) он бы синтакс-контроль не прошел
4 tigrandis
 
07.02.12
23:41
блиин уже замыкает по ходу, огромное спасибо тебе друг
5 NS
 
07.02.12
23:42
(3) Не поверишь, и не пройдет, выдав сабж.