проблема с 1С: предприятие

← →
GLM (2003-03-11 11:16) [0]

Возникла проблема с выгрузкой-загрузкой Операции(Проводки) в DBF.
Все выгружается в dbf нормально, но при загрузке из dbf не считывается (притягивается) субконто. Запись провожу функцией Опер.Дебет.Субконто(1,Тест);
где Тест - необходимое субконто.

← →
Delirium^.Tremens © (2003-03-11 11:17) [1]

Сторнируй таблицу :-)

← →
GLM (2003-03-11 11:35) [2]

Вот код подробнее:

НомерОпер=0;
Опер=СоздатьОбъект("Операция");
ДБФ=СоздатьОбъект("XBase");
Тест=СоздатьОбъект("Справочник");
ДБФ.ОткрытьФайл("c:\test.dbf",);
ДБФ.Первая();
НомерОпер=СокрЛП(ДБФ.NumberOper);
Опер.Новая();
Пока ДБФ.ВКонце()=0 Цикл
Если НомерОпер=СокрЛП(ДБФ.NumberOper) Тогда
Опер.НоваяПроводка();
Опер.ДатаОперации=ДБФ.Date;
Опер.Содержание=СокрЛП(ДБФ.Soderj);
Опер.СуммаОперации=СокрЛП(ДБФ.SummaOper);
Опер.Сумма=СокрЛП(ДБФ.Summa);
Опер.Валюта=СокрЛП(ДБФ.Valuta);
Опер.ВалСумма=СокрЛП(ДБФ.ValSumma);
Опер.Количество=СокрЛП(ДБФ.Kolich);
Опер.Дебет.Счет=СчетПоКоду(СокрЛП(ДБФ.SchetDt));
Опер.Кредит.Счет=СчетПоКоду(СокрЛП(ДБФ.SchetKt));
Если Опер.Дебет.Счет.КоличествоСубконто()>0 Тогда
Тест.Вид(СокрЛП(ДБФ.VidDt1));
Тест1=СокрЛП(ДБФ.SubDt1);
Тест.НайтиПоКоду(Тест1,2);
Если Тест.Выбран()<>0 Тогда
Опер.Дебет.Субконто(1,Тест); КонецЕсли;
КонецЕсли;
Опер.ЗаписатьПроводки();
ДБФ.Следующая();
Иначе
НомерОпер=СокрЛП(ДБФ.NumberOper);
Опер.Записать();
УдалитьОбъекты(Опер,,);
Опер=СоздатьОбъект("Операция");
Опер.Новая();
КонецЕсли;
КонецЦикла;
ДБФ.ЗакрытьФайл();
Все вставляется (притягивается), а субконто не хочет.
Вставляю там где выделено Bold"ом.

← →
LordOfSilence © (2003-03-11 11:58) [3]

1. Вы уверены, что нужно искать по полному коду через разделитель?
Я имею ввиду строчку Тест.НайтиПоКоду(Тест1,2)?
2. Вместо Опер.Дебет.Субконто(1,Тест) временно вставьте
Сообщить("Фигня какая-то"); Так Вы увидите выполняется ли вообще
это условие. :-)
3. Попробуйте Опер.Дебет.Субконто(1,Тест.ТекущийЭлемент());

← →
GLM (2003-03-11 12:08) [4]

Я всталял проверку (вывод сообщений). Он у меня находит необходимое сообщение и выводит на экран, а вот в Операцию (конкретную проводку) не вставляет. Вот в чем вопрос. Трое суток бьюсь.

← →
GLM (2003-03-11 12:19) [5]

Ура все работает. Надо было написать Опер.Дебет.Субконто(1,Тест.ТекущийЭлемент());
Большое спасибо LordOfSilence.

А меня вся 1С уже давно "не вставляет". :-)
А что делать? Деньги платят - приходится работать :-)

← →
GLM (2003-03-11 12:36) [7]

Да против денег не сильно поспоришь.

проблема с 1С: предприятие Найти похожие ветки