Цитата:


кстати попробовал. ТЗ пустая(((. А в чем дело?

Народ прошу помощи. База DBF
В общем в списке справочника номенклатура пытаюсь добавить колонку Цена, но 1С ругается.
Вот мой код:

ПоставщикДанныхМногострочнаяЧасть = СоздатьОбъект("ПоставщикДанных");
ПоставщикДанныхМногострочнаяЧасть.ТипЗначений = "Справочник.Номенклатура";
ПоставщикДанныхМногострочнаяЧасть.КонтейнерТабличногоПоля = "ТабличноеПолеМногострочнойЧасти";
ПоставщикДанныхМногострочнаяЧасть.КонтейнерКоманднойПанели = "КоманднаяПанельМногострочнойЧасти";

ДанныеСправочник = ПоставщикДанныхМногострочнаяЧасть.Данные;
ДанныеСправочник.КнопкаПросмотр = 1;
ДанныеСправочник.РежимОтладки = 1;
ДанныеСправочник.СоздатьКнопкиПоУмолчанию();

ТабличноеПоле = ДанныеСправочник.ТабличноеПоле;
ТабличноеПоле.СтильЗаголовков = 1;
ТабличноеПоле.СтильРамки = 1;

ДанныеСправочник.НоваяКолонка("Код");
ДанныеСправочник.НоваяКолонка("Наименование");

Запрос=ДанныеСправочник.ПрямойЗапрос;

ТекстСоединенияЦена = "left join
	|$СрезПоследних.Цены(:ВыбДата
	|                    ,(Цена,Валюта,ТипЦен)
	|                    ,($СпрЦены.ПометкаУдаления=0 and $спрЦены.ТипЦен = :ТипЦены and $спрЦены.Владелец = $ТекущийОбъект.ТекущийЭлемент)
	|                    ,left join Справочник.Цены as СпрЦены $nolock on $СпрЦены.ТекущийЭлемент = ТекущийЭлемент
	|                   ) as srezcen
	|";
	ДанныеСправочник.ДобавитьСоединениеДанных("ЦенаТовара",ТекстСоединенияЦена);
СпрТипыЦен = СоздатьОбъект("Справочник.ТипыЦен");
СпрТипыЦен.НайтиПоКоду("00002");
Запрос.УстановитьТекстовыйПараметр("ТипЦены", СпрТипыЦен.ТекущийЭлемент());
Запрос.УстановитьТекстовыйПараметр("ВыбДата",  ТекущаяДата());
ДанныеСправочник.ДобавитьКолонкуДанных("Цены","Цена оптовая","srezcen.Цена","Число",10,2,1);
ДанныеСправочник.НоваяКолонка("Цены"); 

А 1С вот на что ругается:
ПоставщикДанных.Справочник::УстановитьПоставщикаДанных() : no such column: sc84.ID
ПоставщикДанных.УстановитьТекстЗапроса(ТекстЗапроса,"[КлючПорядка]","[ТекущийЭлемент :Справочник."+ВидСправочника+"]");
) }

ПоставщикДанных.ТабличноеПоле::Обновить() : ПоставщикДанных.Справочник::УстановитьПоставщикаДанных() : no such column: sc84.ID
ПоставщикДанных.УстановитьТекстЗапроса(ТекстЗапроса,"[КлючПорядка]","[ТекущийЭлемент :Справочник."+ВидСправочника+"]");
) }

вирт().Обновить();
670) }

ПоставщикДанных::Обновить() : ПоставщикДанных.ТабличноеПоле::Обновить() : ПоставщикДанных.Справочник::УстановитьПоставщикаДанных() : no such column: sc84.ID
ПоставщикДанных.УстановитьТекстЗапроса(ТекстЗапроса,"[КлючПорядка]","[ТекущийЭлемент :Справочник."+ВидСправочника+"]");
) }

вирт().Обновить();
670) }

ПоставщикДанных.ТабличноеПоле.Обновить();
{C:\1C\ТиС\SystemData\Classes\ПоставщикДанных\ПоставщикДанных.ert(220) }

ПоставщикДанныхМногострочнаяЧасть.Обновить();
{C:\1C\ТиС\СПРАВОЧНИК НОМЕНКЛАТУРА.ERT(172)}: ПоставщикДанных::Обновить() : ПоставщикДанных.ТабличноеПоле::Обновить() : ПоставщикДанных.Справочник::УстановитьПоставщикаДанных() : no such column: sc84.ID
ПоставщикДанных.УстановитьТекстЗапроса(ТекстЗапроса,"[КлючПорядка]","[ТекущийЭлемент :Справочник."+ВидСправочника+"]");
) }

вирт().Обновить();
670) }

ПоставщикДанных.ТабличноеПоле.Обновить();
{C:\1C\ТиС\SystemData\Classes\ПоставщикДанных\ПоставщикДанных.ert(220) }

OrkuShaman писал(а) 08. Августа 2013 :: 06:14:


and $спрЦены.Владелец = $ТекущийОбъект.ТекущийЭлемент по идее вот соединение этого справочника цен по реквизиту владелец с текущей номенклатурой.
Но вопрос можно считать закрытым. Выкрутился через $ПоследнееЗначение

делаю временную таблицу:

create table #тзОбороты(

    Подр char(9)
    ,Склад char(9)
    ,ВидАП char(9)
    ,КодАП char(3)
    ,Номенклатура char(9)
    ,ПроизвИмп char(9)
    ,ИННПроизвИмп char(20)
    ,ЭтоИмпорт numeric(1,0)
    ,ТекДок char(9)
    ,ТекДок_вид int
    ,ТекДок_ном char(20)
    ,ТекДок_дата varchar(10)
 

... и т.д.


в ТекДок_дата данные попадают так:

	  |    ,МАКСИМУМ(ВЫБОР
	  |    КОГДА РегАлкОО.ВидДокумента=:ВидДокумента.ПриходнаяНакладная
	  |    ТОГДА $ПНК.ДатаДокВходящий
	  |    КОГДА РегАлкОО.ВидДокумента=:ВидДокумента.ЗаказПоставщику
	  |    ТОГДА $ЗаказПост.ДатаДокВходящий
	  |    ИНАЧЕ $Жур.ДатаДокумента КОНЕЦ) КАК ТекДок_дата
 

пробовал и так:  "КАК [ТекДок_дата $Дата]"

в итоге во всех вариантах для DBF (1SQlite) все ок - на выходе запросом из тзОбороты - в поле ТекДок_дата - дата, на SQL - пусто ("  .  .  ")

ТекДок_дата пробовал char(8), сhar(10), varchar(10) - ничего не помогает

Что Я Делаю Не Так ??

Salimbek писал(а) 25. Сентября 2013 :: 09:51:

ТекстЗапросаОбороты="
|ВСТАВИТЬ ВНУТРЬ #тзОбороты
|"+ТекстЗапросаОбороты;
ПЗапрос.ВыполнитьЗапрос(ТекстЗапросаОбороты,0);
 

ну и в ТекстЗапросаОбороты - кусок кода выше про "ТекДок_дата"

В общем, проблема понятна (преобразование типов)
$Жур.ДатаДокумента возвращает строку 'ГГГГММДД'
$ПНК.ДатаДокВходящий возращает дату 'ДД.ММ.ГГГГ'

Как красиво решить?

leshik писал(а) 26. Сентября 2013 :: 05:15:


State 22007, native 241, message [Microsoft][ODBC SQL Server Driver][SQL Server]Conversion failed when converting datetime from character string.

Нет, ошибки нет (не туда воткнул сначала). Но и результат не изменился - во временной таблице - пусто((

УРА!! Победил! CAST() надо делать не перед пиханием во временную ТЗ, а перед извлечением в дальнейшем из нее
Но так и не понял, почему CAST перед "INSERT INTO" не помог?

Salimbek писал(а) 26. Сентября 2013 :: 08:11:


Угу, уже.
В общем, что с КАСТ, что без КАСТ ПЕРЕД INSERT INTO,
в СКЛе на выходе из временной таблицы БЕЗ типизации лежат даты вида "Jul 24 2013 12:00AM", одинаковые не зависимо от источника (ПНК.ДатаДокВходящий или Жур.ДатаДокумента)
При этом С ТИПИЗАЦИЕЙ без КАСТ() - получаем пустые даты, с КАСТ() - все Ок.
В итоге правильный ответ: ,МАКСИМУМ(CAST(ТекДок_дата AS DateTime)) КАК [ТекДок_дата $Дата]
при выборе из временной таблицы
Не, не правильный ответ.
Теперь обратная проблема:
при МАКСИМУМ(CAST(ТекДок_дата AS DateTime)) КАК [ТекДок_дата $Дата]" на DBF - пустая дата....
CAST(ТекДок_дата AS DateTime выдает строку 'ГГГГММДД', которая типизацией не приводится к Дате
В общем, вилку придется ставить Скль/НеСкль
P.S. А еще лучше добавить в класс тип DateTime для временных таблиц (или Date)