![]() |
![]() |
|
Определения процедур и функций должны размещаться перед операторами тела модуля | ☑ | ||
---|---|---|---|---|
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) Не поверишь, и не пройдет, выдав сабж.
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |