Имя: Пароль:
1C
1C 7.7
v7: Перезаполнение поля ТЧ инвентаризации в ТИС
0 Kaukass
 
16.07.15
08:46
В 8 делал через структуру поиска. Содрал из процедуры Перезаполнить учетные количества и суммы в инвентаризации УТ 10.3.

На фирме нет терминала сбора данных. Решил  одну инвентаризацию заполнить учетными количествами, а другую, сканером ш/к - фактическими. А потом обработкой перенести фактические количества в первую инвентаризацию.
как это сделать в 77 - не знаю.
1 palpetrovich
 
16.07.15
09:04
как реализовано - так и делай! не надо изобретать велосипеды с квадоратными колесами
кста и в 8 - две-то нафейхуа?
2 asady
 
16.07.15
09:05
(0) Сканер ШК в 7.7 тоже работает.
в чем проблема наваять внешнюю обработку заполнения инвентаризации
3 Kaukass
 
16.07.15
09:27
(1) В 8-ке двух инвентаризаций нету. В 7-рке только задумал сделать.
(2) В том то и проблема, что не знаю, как средствами языка 7.7 найти в  ТЧ нужную строку и в нужном поле изменить или заполнить значение.
Искать циклами?
4 Kaukass
 
16.07.15
09:28
(2) А по умолчанию сканер будет находить нужную позицию в документе?
5 asady
 
16.07.15
09:30
(4) ну как маленький - ты программист или где?
драйвер сканера ШК генерит внешнее событие - ты должен написать обработчик его - а там всё в твоих руках
6 Kaukass
 
16.07.15
09:34
(5) Начинает доходить. Буду читать "интеренет" дабы раскрыть детали.
7 HawkEye
 
16.07.15
16:23
(3) НайтиЗначение()
НазваниеНужногоПоля = НужноеЗначение... как-то так
8 Злопчинский
 
16.07.15
18:22
(3) наивный до невозможности (восьмерочники - они все такие, как дети..). Во первых в "тч сканирования" - может быть товар, которого нет в "ТЧ учетное" - что где будешь искать..?
9 Злопчинский
 
16.07.15
18:34
Перем ТЧ;

Процедура ПриОткрытии()
  ТЧ = ""; ВыгрузитьТабличнуюЧасть(ТЧ);
  //...

при обработке сканироывания

  ВремТовар = "";
  Если глПолучитьТоварПоШтрихкоду(ТипаШтрихкод, ВремТовар) = 0 Тогда
    //алярм
    Возврат;
  КонецЕсли;
  поз = 0;
  Если ТЧ.НайтиЗначение(ВремТовар,поз,"Номенклатура") = 0 Тогда
     ТЧ.НоваяСтрока(); поз = ТЧ.НомерСтроки;
     ТЧ.Номенклатура = ВремТовар;
     ТЧ.Единица = ...
     //итд
     ЗагрузитьТабличнуюЧасть(ТЧ);
  КонецЕсли;
  ПолучитьСтрокуПоНомеру(поз);
  Количество = Количество + 1; //или согласно отсканированного ШК
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс