Обсуждение к заданию: Изменить / доработать обработку 7.7. Есть Торговля 7.7 и Штрих-м Кассир 2.9 (1с 7.7)

• • #1
  • 22.08.2013 11:19
  0
  Sergik82

  Приватное сообщение
  Изменить / доработать обработку 7.7. Есть Торговля 7.7 и Штрих-м Кассир 2.9 (1с 7.7). Нужно изменить выгрузку таким образом чтобы данные записывались не в текстовый файл. А в таблицы DBF Штрих-м к...  Подробнее>>
• • #2
  • 22.08.2013 11:20
  • Отредактировано: 22.08.2013 11:20:37
  0
  Sergik82

  Приватное сообщение

  Для примера:
  	DBF = СоздатьОбъект("xBase");
  	
  	DBF.ОткрытьФайл("c:\SC12.dbf",,);
  	DBF.КодоваяСтраница(0);
  ...
  
  	ФайлDBF.добавить();
  	ФайлDBF.ID		 =	_IdToStr(ПолучитьИД_Базы(Товар));
  	ФайлDBF.PARENTID =	_IdToStr(ПолучитьИД_Базы(Товар.Родитель));
  	ФайлDBF.CODE	 =	Товар.Код;
  	ФайлDBF.DESCR	 =	СокрЛП(СтрЗаменить(Товар.Наименование,";",","));
  	ФайлDBF.ISFOLDER =	0;
  	ФайлDBF.ISMARK	 =	0;
  	ФайлDBF.VERSTAMP =	0;
  	ФайлDBF.SP23	 =	СокрЛП(?  (СокрЛП(Товар.Наименование)="",СтрЗаменить(Товар.Наименование,";",","),СтрЗаменить(Товар.Наименование,";",",")));
  	ФайлDBF.SP14	 =	Цена;
  	ФайлDBF.SP22     =	Кол; 
  	ФайлDBF.SP16	 =	0;
  	ФайлDBF.SP21	 =	0;
  	ФайлDBF.SP296	 =	Секция;
  	ФайлDBF.SP394	 =	МаксПроцСкидки;
  	ФайлDBF.SP502	 =	КодГруппыНалога;
  	ФайлDBF.SP689	 =	СокрЛП(СтрЗаменить(Товар.Артикул,";",","));
  	ФайлDBF.Записать();
  ....