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

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в 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 | Цитировать | Сообщить модератору
rmobile
вот это уже нестандарное:

Код:
 
   //...
   Столбик = Столбик + 1;  
КонецПроцкдуры // ДобавитьЦенник()
 
поэтому мне и нужно видеть процедуру Сформировать()

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

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

Цитата:
вот это уже нестандарное:  

 
Стандартно, всмысле то , что я больше нигде ничего не менял, а только процедуру добавитьЦенник
Всего записей: 7 | Зарегистр. 08-09-2008 | Отправлено: 20:56 27-05-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
rmobile
слушай, напиши две мне процедуры - я тебе в ответ напишу решение...

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

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

Цитата:
слушай, напиши две мне процедуры - я тебе в ответ напишу решение..

К сожалению, я сейчас дома, и не могу посмотреть другую процедуру...
Всего записей: 7 | Зарегистр. 08-09-2008 | Отправлено: 21:06 27-05-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
rmobile
вот, что я придумал на скорую руку (возможно более элегатное решение)
Печать 4х4:
Код:
Процедура ДобавитьЦенник(Таб, Печфирма, ПечНаименование, ПечЕдиница, ПечРозн, Столбик, Ряд)  
 
//т.к. начальное условие Столбик=1, а Ряд=0 - сделаем так:
Столбик = ?(Столбик = 1, 0, Столбик + 1);
Ряд    = ?(Столбик = 0, Ряд + 1, Ряд);
 
Если Ряд > 4 Тогда //количество строк на странице, пример - неболее 4х
   Таб.НоваяСтраница();
   Ряд = 1;
КонецЕсли;
     
Если Столбик = 0 Тогда
   Таб.ВывестиСекцию("Товар|Ценник");
   Cтолбик = 2;  
Иначе
   Таб.ПрисоединитьСекцию("Товар|Ценник");
   //а здесь сколько столбцов, в примере их 4-е
   Столбик    = ?(Столбик <= 4, Столбик, 1);
КонецЕсли;
КонецПроцедуры // ДобавитьЦенник()
p.s. код не тестил... но думаю, что рабочий...
P.s.s. красота однако?

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

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
StalkerLegend
для того, чтобы суммировалось кол-во физлиц в ведомостях добавьте в код текст, выделенный жирным шрифтом:

Код:
    Файл=Новый ТекстовыйДокумент;  
    ПутьФайла="C:\";  
    ИмяФайла="УкажитеИмяФайла";  
    РасширениеФайла=".k03";  
    КодировкаТекстаФайла=КодировкаТекста.OEM;      
    ИтогоСумма=0;  
    НомерПлатежногоПоручения="";  
    ДатаПлатежногоПоручения="";  
    КоличествоСотрудниковВВедомости=0;
    
    ИтогоСумма=ДокПлатежноеПоручениеИсходящее.ПеречислениеЗаработнойПлаты.Итог("СуммаКВыплате");              
    ДатаПлатежногоПоручения=ДокПлатежноеПоручениеИсходящее.Дата;  
    НомерПлатежногоПоручения=ДокПлатежноеПоручениеИсходящее.Номер;  
    
    Для Каждого ТекущаяЗарплатаКВыплатеОрганизацийИзплатежногоПоручения Из ДокПлатежноеПоручениеИсходящее.ПеречислениеЗаработнойПлаты Цикл
        КоличествоСотрудниковВВедомости=КоличествоСотрудниковВВедомости+ТекущаяЗарплатаКВыплатеОрганизацийИзплатежногоПоручения.Ведомость.Зарплата.Количество();    
    КонецЦикла;    
    
    //описание ваших данных  
    ПервоеПоле="ОАО    Выселкирайгаз";                  // Организация  
    ПервоеПоле=СокрЛП(ПервоеПоле) + "    ";  
    ВтороеПоле="30312064";                          // Лицевой счёт организации  
    ВтороеПоле=СокрЛП(ВтороеПоле) + "    ";  
    ТретьеПоле="5158 ";                                // Номер отделения банка  
    ТретьеПоле=СокрЛП(ТретьеПоле) + "    ";  
    ЧетвертоеПоле=КоличествоСотрудниковВВедомости;                                // Количество сотрдудников в ведомости
    ЧетвертоеПоле=СокрЛП(ЧетвертоеПоле) + "    ";  
    ПятоеПоле=ИтогоСумма;                               // сумма  
    ШестоеПоле=" №"+СокрЛП(НомерПлатежногоПоручения);   // номер платёжки  
    СедьмоеПоле=" от "+Формат(ДатаПлатежногоПоручения,"ДФ=""дд ММ гггг"""); // дата платёжки  
    
    Файл.ДобавитьСтроку(ПервоеПоле+ВтороеПоле+ТретьеПоле+ЧетвертоеПоле+ПятоеПоле+ШестоеПоле+СедьмоеПоле);  
    Файл.Записать(ПутьФайла+"\"+ИмяФайла+РасширениеФайла, КодировкаТекстаФайла);  
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 07:59 28-05-2009 | Исправлено: vizlipuzli, 08:01 28-05-2009
StalkerLegend



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
vizlipuzli
 
Спасибо, вот что получилось.
 

Цитата:
Процедура ВыгрузитьДанныеПоЗарплатеИтого()
    
    Файл=Новый ТекстовыйДокумент;
    ПутьФайла="C:\";
    ИмяФайла="УкажитеИмяФайла";
    РасширениеФайла=".k03";
    КодировкаТекстаФайла=КодировкаТекста.OEM;    
    ИтогоСумма=0;
    НомерПлатежногоПоручения="";
    ДатаПлатежногоПоручения="";
    КоличествоСотрудниковВВедомости=0;  
    
    ИтогоСумма=ДокПлатежноеПоручениеИсходящее.ПеречислениеЗаработнойПлаты.Итог("СуммаКВыплате");            
    ДатаПлатежногоПоручения=ДокПлатежноеПоручениеИсходящее.Дата;
    НомерПлатежногоПоручения=ДокПлатежноеПоручениеИсходящее.Номер;
    
    Для Каждого ТекущаяЗарплатаКВыплатеОрганизацийИзплатежногоПоручения Из ДокПлатежноеПоручениеИсходящее.ПеречислениеЗаработнойПлаты Цикл
        КоличествоСотрудниковВВедомости=КоличествоСотрудниковВВедомости+ТекущаяЗарплатаКВыплатеОрганизацийИзплатежногоПоручения.Ведомость.Зарплата.Количество();    
    КонецЦикла;
        
    //описание ваших данных
    ПервоеПоле="ОАО    Выселкирайгаз";                       // Организация  
    ПервоеПоле=СокрЛП(ПервоеПоле) + "    ";
    ВтороеПоле="30312064";                               // Лицевой счёт организации
    ВтороеПоле=СокрЛП(ВтороеПоле) + "    ";
    ТретьеПоле="5158";                                     // Номер отделения банка (статическое поле)  
    ТретьеПоле=СокрЛП(ТретьеПоле) + "    ";
    ЧетвертоеПоле=КоличествоСотрудниковВВедомости;       // Количество сотрдудников в ведомости  
    ЧетвертоеПоле=СокрЛП(ЧетвертоеПоле) + "    ";
    ПятоеПоле=ИтогоСумма;                               // итоговая сумма
    ШестоеПоле=" №"+СокрЛП(НомерПлатежногоПоручения);   // номер платёжки
    СедьмоеПоле=" от "+Формат(ДатаПлатежногоПоручения,"ДФ=""дд ММ гггг"""); // дата платёжки
    
    Файл.ДобавитьСтроку(ПервоеПоле+ВтороеПоле+ТретьеПоле+ЧетвертоеПоле+ПятоеПоле+ШестоеПоле+СедьмоеПоле);
    Файл.Записать(ПутьФайла+"\"+ИмяФайла+РасширениеФайла, КодировкаТекстаФайла);  
    
КонецПроцедуры
    
 
А как теперь для этих полей сделать пути.
 

Цитата:
    //описание ваших данных
    ПервоеПоле="ОАО    Выселкирайгаз";                       // Организация  
    ПервоеПоле=СокрЛП(ПервоеПоле) + "    ";
    ВтороеПоле="30312064";                               // Лицевой счёт организации
    ВтороеПоле=СокрЛП(ВтороеПоле) + "    ";

 
Если Первое поле это СправочникОрганизации
Если Второе поле это СправочникБанковскиеСчета
 
По сути всё это содержится в документе ЗарплатаКВыплатеОрганизаций, т.е. в нашей ведомости. И ещё, тепрь там одно поле, как быть. Как создать два, чтобы именно по данным полям шла выгрузка?...теперь там только возможно выбирать платёжку. Заранее ОГРОМНОЕ СПАСИБО.
 
Добавлено:
И ещё вопрос ничего не нашёл об этих параметрах что они означают?
 

Цитата:
"ЧЦ=12;ЧДЦ=2;ЧГ=0;ЧРД='.'"
Всего записей: 34 | Зарегистр. 26-05-2009 | Отправлено: 09:49 28-05-2009
M_Volkov



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

Цитата:
Проще было бы говорить, если бы глянул на конфу.  

Её MaxiSoft выкладывал: оригинал и подопытная крыса, очень хочется знать насколько точно она (в частности модуль уатАРМ) соответствует оригиналу.
Если потребуется, демо-базу 3.0.7.5 выкладывал Poleglod здесь Если что, перезалью...
Всего записей: 5783 | Зарегистр. 23-06-2008 | Отправлено: 10:09 28-05-2009 | Исправлено: M_Volkov, 10:11 28-05-2009
vizlipuzli

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
StalkerLegend
меняем код так:      
    //описание ваших данных  
    ПервоеПоле=ДокПлатежноеПоручениеИсходящее.Организация; // Организация  
    ПервоеПоле=СокрЛП(ПервоеПоле) + "    ";  
    ВтороеПоле=ДокПлатежноеПоручениеИсходящее.СчетОрганизации; // Лицевой счёт организации  
    ВтороеПоле=СокрЛП(ВтороеПоле) + "    ";
 
"ЧЦ=12;ЧДЦ=2;ЧГ=0;ЧРД='.'" см. Справку "Общее описание встроенного языка/Встроенные функции/Функции форматирования/Формат" там подробно все написано.

Цитата:
И ещё, тепрь там одно поле, как быть. Как создать два,
это о чем?
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 11:01 28-05-2009 | Исправлено: vizlipuzli, 11:02 28-05-2009
Lihonosov

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1С Бухгалтерия 7.7.
Есть две базы (стандартные конфигурации) с одинаковой номенклатурой, необходимо сделать "сличительную ведомость". которая бы сравнивала количество в одной базе с количеством в другой и выводила бы разницу, если таковая есть. Есть вариант через промежуточный файл, но как-то нехочется так использовать, много лишних кнопок нажимать Может уже есть готовая какая-нибудь универсальная обработка? Дабы не изобретать велосипед.
Подскажите!
Всего записей: 537 | Зарегистр. 05-07-2007 | Отправлено: 11:07 28-05-2009
StalkerLegend



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
vizlipuzli
 
Ок спасибо, организация заработала, но теперь счёт банка выдаёт как-то непонятно.
 

Цитата:
ООО    Выселкирайгаз    Счёт в Сбербанке    5158    17    243я284,78 ь297 ®в 26 05 2009

 
Вот где находится сам счёт в ведомости.
 
   
 
   
 
   
 
вот здесь № счёта.
__________________________________________________
 
И вот про что я ещё говорил, просто сперва мне скидывали обработку где было два окошка:
 
вот она
 

 
а в данной обработке одна. Или можно всё с данной обработки запихать в ту что на картинке и всё будет работать?
Всего записей: 34 | Зарегистр. 26-05-2009 | Отправлено: 11:30 28-05-2009
vizlipuzli

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
StalkerLegend
ок, я ошибся - пишем так:
ВтороеПоле=ДокПлатежноеПоручениеИсходящее.СчетКонтрагента.НомерСчета;                               // Лицевой счёт организации
 
А зачем вам две колонки? вы собираетесь формировать файл по нескольким платежным поручениям отдельно? Разве данных из одной ПП не достаточно?
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 11:42 28-05-2009
DARKDEAD

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Lihonosov
Выгружаешь из одной базы в файл, затем загружаешь во вторую, и сравниваешь.
Либо через OLE, так поинтереснее будет.
Всего записей: 249 | Зарегистр. 04-02-2008 | Отправлено: 12:35 28-05-2009
M_Volkov



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

Цитата:
Декомпилятора 1Cv81 я полагаю не существует?

А тут Плагин TotalCommander-а просмотра файлов 1C v8 говорят
Цитата:
Для декомпиляции кода утилиты есть, а плагин хороший действительно отсюда удалят в таком случае...
Никто не знает где его взять?
 
Добавлено:

Цитата:
плагин хороший действительно  

сразу видно модули, у которых удален исходный текст, но названия процедур и функций у них показывает, а внутри - бит-код и в командах ассемблера... Все вперед!
 
Добавлено:
Нашел ДекодированиеМодуля81
Всего записей: 5783 | Зарегистр. 23-06-2008 | Отправлено: 12:50 28-05-2009 | Исправлено: M_Volkov, 16:00 28-05-2009
StalkerLegend



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
vizlipuzli
 
ООо...спасибо. Я твой ВЕЧНЫЙ должник) если что надо по сайтам) помогу) сейчас занимаюсь 1c-Битрикс, гадость ещё та, но надо учить уже три сертификата сдал.
 
Кстати вот ещё напоследок, можно ли как нибудь при сохранении файла чтобы пользователь сам мог указывать путь? например как здесь:  
 

 
заранее спасибо
Всего записей: 34 | Зарегистр. 26-05-2009 | Отправлено: 13:54 28-05-2009
anachrom

Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
По поводу тово, что я спрашивал раньше (печать нескольких видов ценников)
Вот что получилось
Вроде бы печатает разные типы, но есть проблемма. Печатает без разделителя страниц. Т.е. Если стоит уловие что на странице 3 то он все равно печатает сколько влезет (к примеру 7 с половиной).
Помогите отладить пожалуйста.
Всего записей: 179 | Зарегистр. 18-11-2008 | Отправлено: 14:01 28-05-2009 | Исправлено: anachrom, 14:02 28-05-2009
vizlipuzli

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

Цитата:
Я твой ВЕЧНЫЙ должник)

ну уж так не надо ))) написанная обработка - это очч элементарно )) для знающего человека.
вышлите мне обратно обработку - я внесу нужные изменения для выбора каталога файла
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 15:12 28-05-2009
anachrom

Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
vizlipuzli
Может Вы и мне сможете помочь.
Всего записей: 179 | Зарегистр. 18-11-2008 | Отправлено: 15:16 28-05-2009
vizlipuzli

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
anachrom
обработку мне выложите целиком или нужно в конфигурацию вносить изменения? Речь идет об обработке "Печать ценников" в УТ 8.1? Предлагаю ее не мучать в конфигурации, а сделать внешнюю и подключить как дополнительную внешнюю обработку, пойдет так? см. почту
Всего записей: 4038 | Зарегистр. 17-08-2005 | Отправлено: 15:18 28-05-2009 | Исправлено: vizlipuzli, 15:30 28-05-2009
StalkerLegend



Junior Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
vizlipuzli
 
Каждый должен в чем то помогать друг другу
 
Обработка: Ссылка
 
Хмм...почему-то обработку закрыли, вообщем там вместо spam_detected нужно написать depositfiles и будет счастье)
Всего записей: 34 | Зарегистр. 26-05-2009 | Отправлено: 15:30 28-05-2009 | Исправлено: StalkerLegend, 15:33 28-05-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