v8: Запрос на текущую розничную цену (Продажную)

jack77

29.09.2011 11:57

Прочитано: 3905

Подскажите как оформить
Нужно сделать запрос на текущ. розничкую цену, и дальше вставить в строку текстового файла

Yandex

Возможно, вас также заинтересует

E_Migachev

29.09.2011 12:10

Ответ № 1

(0) jack77, где, как? пиши подробнее

jack77

29.09.2011 12:11

Ответ № 2

Код 1C v 8.х

 Текст.ДобавитьСтроку(""+Формат(Выборка.Код,"ЧГ=0")+";"+Выборка.Артикул+";"+Выборка.Наименование+";"+Выборка.БазоваяЕдиница+";"...ЦЕНА Продажная...

Изменено 29.09.11 12:12:43

E_Migachev

29.09.2011 14:02

Ответ № 3

*13
ну тогда:
в запрос где выборка добавь получение нужной тебе цены
в эту строку напиши Выборка.НазваниеПоляСЦеной

jack77

04.10.2011 02:08

Ответ № 4

Так в том то и дело что просто так выборку не напишешь...
конфа розничная, там как я понял нужно цену тянуть из регистра т.к. цены не просто проставляются, документом "Переоценка ТМЦ" назначается ...
help,,,

typeharley

04.10.2011 10:21

Ответ № 5

jack77

07.10.2011 00:30

Ответ № 6

А как мне потом в строку данные запроса вставить?
У меня

Код 1C v 8.х

 РегистрыСведений.ЦеныКомпании.Цена

Изменено 07.10.11 00:32:37

jack77

07.10.2011 00:46

Ответ № 7

вот полностью незнаю как дописать

Код 1C v 8.х

 Процедура Выгрузить (Кнопка)



Перем Папка; 

Если Истина Тогда Папка=1;

Если Ложь Тогда Папка=0;

КонецЕсли;

КонецЕсли; 

		

Текст = Новый ТекстовыйДокумент;



Запрос = Новый Запрос;

Запрос.Текст ="РозничнаяЦена";

| ЦеныКомпанииСрезПоследних.Номенклатура, 

| ЦеныКомпанииСрезПоследних.Цена 

|ИЗ 

| РегистрСведений.ЦеныКомпании.СрезПоследних( 

| &ДатаЦены, 

| Валюта = &Валюта 

| И Номенклатура = &Номенклатура 

| И ТипЦен = &ТипЦен) КАК ЦеныКомпанииСрезПоследних





Выборка = Справочники.Номенклатура.Выбрать(); Выборка = РегистрыСведений.ЦеныКомпании.Выбрать ();

Пока Выборка.Следующий() Цикл

	Папка = ?(Выборка.ЭтоГруппа,"1","0");

Текст.ДобавитьСтроку(""+Формат(Выборка.Код,"ЧГ=0")+";"+Выборка.Артикул+";"+Выборка.Наименование+";"+Выборка.БазоваяЕдиница+";"+Выборка.СтавкаНДС+";"+Выборка.ОсновнойШтрихКод+";"";"";"";"+Выборка.Цена+";"+Папка+";"+Формат(Выборка.Родитель.Код,"ЧГ=0")+";"+Выборка.НаименованиеДляККМ);  

КонецЦикла; 

Текст.Записать("c:\temp\text_2.txt","windows-1251");

	

КонецПроцедуры

{Форма.Форма(16,1)}: Ожидается ключевое слово 'КонецПроцедуры' ('EndProcedure')
<<?>>| ЦеныКомпанииСрезПоследних.Номенклатура,
{Форма.Форма(16,41)}: Неопознанный оператор
| ЦеныКомпанииСрезПоследних.Номенклатура<<?>>,
{Форма.Форма(30,53)}: Обнаружено логическое завершение исходного текста модуля
Текст.Записать("c:\temp\text_2.txt","windows-1251");<<?>>

Изменено 07.10.11 00:53:16

Подсказка: Вы можете приложить к ответу файл или изображение щелкнув по значку или в редакторе.