Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка

Модерирует : ShIvADeSt

ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715  Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

ShIvADeSt



Moderator		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Тема для программирования 1С!!!
Это продолжение темы, предыдущие части доступны тут

ПРОГРАММЫ  1С:Предприятие 1C - 1C: Вопросы по конфигурациям
ВАРЕЗНИК   1C:Предприятие 7.7 - 1С:Предприятие v.8.x - 1C Диск ИТС - 1С: Совместимо 8.х
Топик 1C Ebooks
ЗДЕСЬ  (обновлено 17.10.2009) - небольшая библиотечка (книги, документация, видео, утилиты) по 1С, финансам, бухучету и т.п.
Все рассортировано по версиям...

Для заблудившихся в трех соснах >>> FAQ по форуму RU.Board
 
Предыдущие темы были здесь часть 4 | часть 3 | часть 1
 
Как убить рекламу при обновлении отчетности | конфигурации (ИБ)?
Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:02 03-04-2009 | Исправлено: vkramnik, 12:06 23-10-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
egerLESHIK
ну что не понятного???
Код:
ТЗИмпЧ.НоваяКолонка("К","Число",2,0,,);  
     ТЗимпЧ.ВыводитьПиктограммы("К",);  
    ТЗИмпЧ.НоваяКолонка("КП","Число",2,0,,);  
    ТЗИмпЧ.ВыводитьПиктограммы("КП",);  
    ТЗИмпЧ.НоваяКолонка("ОЧ","Число",2,0,,);  
    ТЗИмпЧ.ВыводитьПиктограммы("ОЧ",);  
    ТЗИмпЧ.НоваяКолонка("НомерЧека","Число",5);  
    ТЗИмпЧ.НоваяКолонка("Тип","Число",5);  
    ТЗИмпЧ.НоваяКолонка("ДатаЧека","Дата",5);  
    ТЗИмпЧ.НоваяКолонка("КодЭкка","Число",5);  
    ТЗИмпЧ.НоваяКолонка("НомНомер","Строка",11); //Номенклатурный номер  
    ТЗИмпЧ.НоваяКолонка("Количество","Число",10,2);  
    ТЗИмпЧ.НоваяКолонка("Цена","Число",10,2);  
    ТЗИмпЧ.НоваяКолонка("Сумма","Число",10,2);
    ТЗИмпЧ.НоваяКолонка("ТабЧасть","ТаблицаЗначений");
 
    //заполняем документ
    ТЗИмпЧ.НовасяСтрока();
    //заполняем табличную часть документа
    //создадим временную таблицу
   ТЗ = СоздатьОбъект("ТаблицаЗначений");
   Док.ВыгрузитьТабличнуюЧасть(ТЗ);
   ТЗИмпЧ.ТабЧасть = ТЗ;
 
 
   КонецЦикла;
 
 


----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 14:19 23-04-2009
egerLESHIK



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
An4eus
 
Все равно сути выполнения кода не пойму. Создается в таблице значений дополнительная колонка и пытаемся вроде как выгрузить табличную часть документа...  
Я вообще-то не то имел в виду.
Все дело в том, что во  временную таблицу значений ТЗИмпЧ загружаются данные из внешнего dbf-файла. А сама таблица значений эта нужна для обработки вручную данных.
То есть отметили строки в колонке "КП" для которой не важно по какому чеку проходят позиции - и выгрузили в одну расходную все отмеченные данные.
А вот для отмеченных в колонке "К" нюанс. Мало того, что нужно выгрузить расходную накладную строки отмеченные в данной колонке, необходимо чтобы были отобраны строки с одинаковыми "НомерЧека" и по этим строкам формировалась отдельная расходная накладная.  
Вот такой вот пирог.
Как понятно из приведенного мною первого кода Идентификаторы таблицы значений отличаются от идентификаторов колонок таблицы в расходной накладной.
 
Если у Вас видение решения этого вопроса иное. Озвучьте "некодовым" языком.
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 14:56 23-04-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
egerLESHIK
мне нужно описание DBF (структуры) и структуру документов (кто из шапки, кто из таб. части) - тогда может подскажу может как проще реализовать!

----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 16:29 23-04-2009
ReqVieM

Newbie		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Всем спасибо! вопрос похоже закрыт = ) Кому интересно решение ниже (Это процедура документа ПриОткрытии):

Код:
   Если ПустоеЗначение(новый)=1 тогда  
        Попытка                    
            Если Форма.Параметр = 1 тогда          
                Форма.Толькопросмотр(0);  
                Форма.Обновить(0);
            ИначеЕсли Форма.Параметр <> 3 тогда                                          
                Форма.Закрыть(0);
                ОткрытьФорму(ТекущийДокумент(),3,1);
                Форма.ТолькоПросмотр(1);
                Форма.Обновить(0);
            КонецЕсли;
        Исключение                              
            Форма.ТолькоПросмотр(1);
            Форма.Обновить(0);            
        КонецПопытки;
    КонецЕсли;
Всего записей: 24 | Зарегистр. 05-07-2007 | Отправлено: 17:21 23-04-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
ReqVieM
а зачем ты открываешь/закрываешь документ?

----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 18:52 23-04-2009
zpz

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте, подскажите пожалуйста, как в 1С 7.7 УСН сделать, чтобы счета, товарные накладные и счета фактуры выписывались с НДС 18%.
Всего записей: 24 | Зарегистр. 30-01-2009 | Отправлено: 06:23 24-04-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
egerLESHIK


----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 09:47 24-04-2009
egerLESHIK



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот выкроил время чтобы ответить An4eus.
Значит суть следующая. Есть dbf-ник в который вываливаются данные с внешнего девайса - в этом файле присутствуют колонки:
-NUMCHECK;
-STATUS;
-DATECHECK;
-CODEEKKA;
-NOMNUMBER (эту колонку придется скорее всего видоизменить, поскольку, как оказалось когда привезли девайсину и я начал ее тестить, она не поддерживает длинные строки да еще с буквами и дефисами, только числовые значения (от 1 до 5000), но я думаю єто не проблема, создадим и привяжемся к артикулу (ARTIKUL));
-KOLVO;
-PRICE;
-SUMM;
 
Значит все значения выбираются из dbf-ника и импортируются в таблицу значений (ТЗИмпЧ), колонки которой я уже описывал. Ну повторюсь, коль есть необходимость:  
К, КП, ОЧ, НомерЧека, Тип, ДатаЧека, КодЭККА, НомНомер (вместо него планируется "Артикул"), Количество, Цена и Сумма
 
Далее начинаем анализировать и обрабатывать данные. Если есть ошибочно созданные чеки, отмечаем их в колонке ОЧ и жмем на кнопку "Удалить ОЧ". Убрали. Далее экспортируем в одну общую расходную накладную все чеки выписанные на конечного потребителя. Для этого отмечаем нужные строки в "КП" и программно создаем расходную в которую выгружаются все отмеченные значения. Затем стает черед колонки "К". Вот здесь как я говорил по отмеченным строкам необходим цикл создания расходных накладных, то есть анализ отмеченных колонок на предмет совпадения "НомерЧек". Например, есть 5 строк с одинаковым "НомерЧека", вот по этим пяти строкам одна расходная накладная, далее три строки уже с другими одинаковыми "НомерЧека" - новая расходная накладная со значениями из этих строк, и так далее, пока не закончатся отмеченные строки "К".
 
Вот такая вот задумка.
 
Ах, да еще какие колонки в таблице Расходной накладной. Колонок в ней много, но заполняться должны основные с такими идентификаторами:  
"ТМЦ"-само собой понятно-наименование товара, которое уже должно автоматически подставляться исходя из номера артикула (Артикул), а не номенклатурного номера (НомНомер).
Коэффициент-коэффициент (всегда равен "1" (пока что)).
КвоЗаказПокупателя - подстановка из ТЗИмпЧ значения из колонки Количество.
КвоЗаказ - подстановка из ТЗИмпЧ значения из колонки Количество.
Кво - подстановка из ТЗИмпЧ значения из колонки Количество.
Ед - выбирается ЕдиницаПоУмолчанию из элемента справочника ТМЦ.  
ЦенаСНДС - подставляется элемент из ТЗИмпЧ - Цена.
СуммаСНДС - подставляется элемент из ТЗИмпЧ - Сумма.
СуммаБезНДС - расчет СуммаСНДС-СуммаСНДС/6
 
В принципе все это дело с колонками таблицы на данный момент реализовано кроме как подстановки наименования по Артикулу (вместо бывшей подстановки по Коду).  
Повторюсь вопрос стал только по созданию расходный по одинаковым строкам НомерЧека из таблицы значений ТЗИмпЧ.
 
Добавлено:
И вдогонку вопрос: а доводилось ли кому программировать соединение 1С непосредственно  с кассовым аппаратом через OLE?
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 10:15 24-04-2009 | Исправлено: egerLESHIK, 13:34 24-04-2009
egerLESHIK



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Хм, пытаюсь видо изменить код под новую колонку "Артикул", что-то не выходит. Что нужно подставить вместо "НайтиПоКоду"?

Цитата:
Если ЭлементСправочника.НайтиПоКоду(КодТМЦ, 0) = 1 Тогда    
     РНК.НоваяСтрока(); // Новую строку добавляем только если найден товар  


Цитата:
Сообщить("Товар с кодом "+КодТМЦ+" не найден!");

 
 
Как я понял нужно использовать "НайтиПоРеквизиту", а как его правильно сформировать запрос-то?
 
Все разобрался:
Код значит должен быть такой:  
 

Цитата:
   Артикул=ТзИмпЧ.Артикул;  
Если ЭлементСправочника.НайтиПоРеквизиту("Артикул",Артикул,1) = 1 Тогда  

 

Цитата:
Иначе
 Сообщить("Товар с артикулом "+Артикул+" не найден!");  
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 12:27 24-04-2009 | Исправлено: egerLESHIK, 14:52 24-04-2009
metmil

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ, подскажите пожалуйста, кто сталкивался. Как определить оптимальное время для ReconnectNative()? Надо проводить большое количество документов примерно год, может кто боролся с такой проблеммой, сколько доков цикл ставить на Reconnect?
 
Добавлено:
может кто проводил эксперементы?
Всего записей: 68 | Зарегистр. 08-10-2008 | Отправлено: 12:47 24-04-2009
newjon



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет!
Есть задача, может кто подскажет как реализовать.
Организация торгует автозапчастями,среди которых есть номерные, хотят полный учет номерных т.е. видеть от кого и когда пришли, и ком и когда продались. Надо это сделать в семерке в торговле, может кто чего то уже решал подобное...  
Буду рад выслушать любые предложения.
Всего записей: 395 | Зарегистр. 03-06-2005 | Отправлено: 20:16 24-04-2009
egerLESHIK



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ранее созданный вопрос еще актуален.
Но по ходу возникли новые вопросы:
Делаю выгрузку значений из справочника ТМЦ в таблицу значений код на данный момент выглядит вот так:

Цитата:
Процедура ЗагрТМЦизСп()  //=====Загружаем данные из справочника ТМЦ=====
    Если ВыбФирма1 = 0 Тогда
        Сообщить ("Не выбрана фирма");
        Возврат;
    КонецЕсли;    
    
    Если ТЗЭксп.КоличествоСтрок()>0 Тогда
          Если Вопрос("Удалить все строки табличной части документа?","Да+Нет")="Да" Тогда
               ТЗЭксп.УдалитьСтроки();
          КонецЕсли;
     КонецЕсли;
    
    
    Ном=ТЗЭксп.КоличествоСтрок()+1;  
    
    фПоказыватьОст=1;
 
    СпрТМЦ=СоздатьОбъект ("Справочник.ТМЦ");  
//    СпрТМЦ.ВыбКатегорияЦен=Справочник.КатегорииЦен ("ХЕРСОН доставка");    //Справочник.КатегорииЦен
      СпрТМЦ.ВыбратьЭлементы();
//    Форма.СвОстаток.Видимость(фПоказыватьОст);  
     
    стр=0;    
    Пока СпрТМЦ.ПолучитьЭлемент()=1 Цикл
    стр=стр+1;
        //        стр=ТЗЭксп.НомерСтр;
    ТЗЭксп.НоваяСтрока();
    ТЗЭксп.НомерСтр = стр;
    ТЗЭксп.Наименование = СпрТМЦ.Наименование;
    ТЗЭксп.Цена = СпрТМЦ.Цена;
    ТЗЭксп.ФактКолво = СпрТМЦ.СвОстаток;  
    ТЗЭксп.ПризнакТМЦ = "2";
    ТЗЭксп.УчНалКвТМЦ = "1";
    ТЗЭксп.Артикул = СпрТМЦ.Артикул;  
    КонецЦикла
      //Создание объекта типа Запрос  
    
КонецПроцедуры  
    
 
Однако вот по строкам выделенным красным возникла загвоздка. Не обнаруживается поле агрегатного объекта. По ходу я догадываюсь в чем дело, но как реализовать чтобы оно фунциклировало?
Все дело в том, для того чтобы:
-> Отображалась в справочнике Цена, ее спрева нужно выбрать из выпадающего списка, который управляет заполнением колонки "Цена", то есть после выбора все значения цен по строкам ТМЦ заполняются. Задача стоит выбрать программно в выпадающем списке цену ("ЦЕНА доставка"). Свойства в конфигураторе этого списка следующие: Идентификатор: "ВыбКатегорияЦен", Тип: "Справочник.КатегорииЦен", Формула: УправлениеКолонками().
-> Отображался СвОстаток необходимо отметить флажок "Показывать остатки". Когда галочка стоит, тогда появляется в спровочнике ТМЦ колонка СвОстаток и в ней отображаются все сводные остатки, которые и должны экспортироваться в таблицу значений "ТЗЭксп".
Но поскольку эти значения не выбраны и не зафиксированы выпадают ошибки в самой программе, что "Поле агрегатного объекта не обнаружено".
Спасибо.
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 01:37 25-04-2009 | Исправлено: egerLESHIK, 01:38 25-04-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
egerLESHIK
Цитата:
В принципе все это дело с колонками таблицы на данный момент реализовано кроме как подстановки наименования по Артикулу (вместо бывшей подстановки по Коду).
и какие проблемы? у реквизита Артикул стоит Сортировка => можно использовать метод НайтиПореквизиту()
Цитата:
И вдогонку вопрос: а доводилось ли кому программировать соединение 1С непосредственно  с кассовым аппаратом через OLE?
в интеренете поищи - много дельцов!
Цитата:
Однако вот по строкам выделенным красным возникла загвоздка. Не обнаруживается поле агрегатного объекта
вероятно ты пытаешься выципить это значение из "группы". сразу после Пока... Цикл сделай проверку:
Код:
Если СпрТМЦ.ЭтоГруппа()=1 Тогда
   Продолжить;
КонецЕсли;

 


----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 10:27 25-04-2009
egerLESHIK



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
вероятно ты пытаешься выципить это значение из "группы". сразу после Пока... Цикл сделай проверку:

 
Ага, пытаюсь выцепить из формы "Справочник.ТМЦ.ФормаСписка.ДляВыбора", однако как я отмечал ранее очевидно не подгружаются в
Цитата:
СпрТМЦ=СоздатьОбъект ("Справочник.ТМЦ");
соответствующие данные в колонку "Цена" и не подключается колонка "СвОстаток".
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 12:06 25-04-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
egerLESHIK
Цитата:
Ага
не понял - так я был прав или что ли?


----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 00:26 26-04-2009 | Исправлено: An4eus, 00:26 26-04-2009
egerLESHIK



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
An4eus
Не знаю вопрос решить до сих пор не получилось.
Всего записей: 950 | Зарегистр. 24-03-2004 | Отправлено: 01:09 26-04-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
egerLESHIK
какой тип значения у Цена и СвОстаток в справочнике?

----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 14:16 26-04-2009
asli1



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый вечер! Ребята у меня такая проблема: обновила конфигурацию 7.70.484 на конфигурацию 7.70.504 обновилась нормально. но  в старой были дописанные файлы , то есть не типовая была. кое какие я подправила, но вот это никак не пойму где править  
Операция.Кредит.Номенклатура = Товар;
{Документ.ОтчетСмены.Модуль Документа(186)}: Для счета 42 вид субконто Номенклатура неопределен!
посмотрела в старой проге в плане счетов стоит все правильно, как исправить в обновленной не знаю
подскажите как быть? Заранее благодарю
Всего записей: 69 | Зарегистр. 01-11-2008 | Отправлено: 18:46 26-04-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
newjon
а чём обычная ТиС не устраивает? Если нужна дополнительна инфа по Номенклатуре, то есть свойства её!

----------
Век живи - век учись!
Всего записей: 3768 | Зарегистр. 23-07-2007 | Отправлено: 18:48 26-04-2009
asli1



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
а чём обычная ТиС не устраивает? Если нужна дополнительна инфа по Номенклатуре, то есть свойства её!
 

обновилась по требовани налоговой, а что такое тис пока не знаю , извините, вообще я только бухгалтер.. если можно насчет свойств подробнее. но также могу  скинуть куда нибудь переделанную прогу484 , розничная торговля. и еще как можно все исправить подскажите ..буду очень благодарна
Всего записей: 69 | Зарегистр. 01-11-2008 | Отправлено: 19:05 26-04-2009
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » 1C Программирование и поддержка
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru