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

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

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

ShIvADeSt (03-04-2009 02:03): Продолжение тут
http://forum.ru-board.com/topic.cgi?forum=33&topic=10256#1 		 Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

   

ShIvADeSt



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

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

Для заблудившихся в трех соснах >>> FAQ по форуму RU.Board
Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 02:30 06-02-2008 | Исправлено: vkramnik, 21:26 27-03-2009
vadver

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Lihonosov
Тебе для какой версии 1С? 7.7, 8.0, 8.1?  
Уиверсальный способ - через ADO.
Всего записей: 80 | Зарегистр. 10-05-2005 | Отправлено: 16:22 11-03-2008
Lihonosov

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vadver
Для 7.7
Если есть пример, прошу написать.
Всего записей: 540 | Зарегистр. 05-07-2007 | Отправлено: 16:36 11-03-2008
Vxd2000



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Еще раз вернусь: как программно в 77 версии установить фильтр в журнале документов, например по контрагенту (то есть, чтобы выводились только документы с заданным контрагентом) ?
Всего записей: 1149 | Зарегистр. 14-11-2002 | Отправлено: 16:45 11-03-2008
vadver

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Lihonosov
Нашел на ПроКлубе: http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=8085
 
Добавлено:
Vxd2000
Сделать общий журнал документов с графой отбора "Контрагент" и типом "Справочник.Контрагенты". Только еще у документов надо будет сделать общий реквизит "Контрагент" и в графе отбора журнала указать его. Дальше при программном открытии  журнала устанавливаешь контрагента на нужного - и все. Кажется так, давно делал, точно не помню
Всего записей: 80 | Зарегистр. 10-05-2005 | Отправлено: 17:01 11-03-2008
beans

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

Процедура Выполнить()
  СтрЗапр="select * from new_table";  //выборка из таблицы  
 
 СтрПодкл="Driver=Firebird/InterBase(r) driver;Uid=SYSDBA;Pwd=masterkey;DbName=H:\Work\Firebird\new.gdb;";  
 
Rs=СоздатьОбъект("ADODB.Recordset");  
Попытка  
Rs.Open(СтрЗапр,СтрПодкл);  
Исключение  
Сообщить(ОписаниеОшибки());  
Предупреждение("Не удалось подключиться к IB ...")  
КонецПопытки;  
 
    Пока Rs.EOF=0 Цикл //Цикл по записям  
    
      сообщить(Rs.fields(1).Value);
        Rs.MoveNext();
    КонецЦикла;
    Rs.Close();
               
конецПроцедуры
Всего записей: 19 | Зарегистр. 21-02-2008 | Отправлено: 17:38 11-03-2008
Lihonosov

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

Цитата:
Нашел на ПроКлубе: http://1c.proclub.ru/modules/mydownloads/personal.php?cid=5&lid=8085  

Чтобы скачать оттуда, нужно быть членом клуба.
Если кто является таковым просьба скачать и перезалить в другое место.
Всего записей: 540 | Зарегистр. 05-07-2007 | Отправлено: 17:49 11-03-2008
vadver

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Lihonosov
hxxp://ifolder.ru/5692694
Всего записей: 80 | Зарегистр. 10-05-2005 | Отправлено: 17:59 11-03-2008
Lihonosov

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vadver
Спасибо
Всего записей: 540 | Зарегистр. 05-07-2007 | Отправлено: 18:12 11-03-2008
Vxd2000



Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vadver, сделал, так как ты написал, пока отбор, не делает.
Единственно, не делал общий реквизит документов.
 
Добавлено:
vadver, с общим журналом работает (использовал УстановитьОтбор()), но нужно, чтобюы при отборе отражались только два вида документов, не все, которые есть.
Всего записей: 1149 | Зарегистр. 14-11-2002 | Отправлено: 19:01 11-03-2008 | Исправлено: Vxd2000, 19:13 11-03-2008
ToppeaDop

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
посмотрите, как это реализовано в 1С Торговле 7.7 - там можно отбиратьпо контагенту, по типу документов и еще по куче реквизитов.
Всего записей: 466 | Зарегистр. 24-08-2003 | Отправлено: 23:09 11-03-2008
OJIR

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vadver
 
И впрямь оказывается не читается файл.
 
Процедура ПрочитатьСообщениеСИзменениями() Экспорт
    Каталог=КаталогВременныхФайлов();
     
    //Сформировать имя файла  
    ИмяФайла=Каталог+?(Прав(Каталог,1)="\","","\")+"Message"+СокрЛП(Ссылка.Код)+"_"+
             СокрЛП(ПланыОбмена.Филиалы.ЭтотУзел().Код)+".xml";
    Файл=Новый Файл(ИмяФайла);
    Если Не Файл.Существует() Тогда
        Возврат;
    КонецЕсли;
    //***Чтение документов XML  
 
    //Попытаться открыть файл  
 
    ЧтениеXML=Новый ЧтениеXML;
    Попытка
        ЧтениеXML.ОткрытьФайл(ИмяФайла);
    Исключение
        Сообщить("Невозможно открыть файл обмена данными.");
        Возврат;
    КонецПопытки;
 
Выводила путь к файлу все нормально.
Файл существует и при этом происходит выполнение условия  
    Если Не Файл.Существует() Тогда
        Возврат;
    КонецЕсли;
 
Почему?
Всего записей: 52 | Зарегистр. 07-01-2008 | Отправлено: 07:04 12-03-2008
4Life



Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Есть обработка, которая создает налоговые накладные.  
Каким образом отправить на печать эту накладную (т.е. вызвать процедуру из модуля налоговой накладной "печать()")?
Налоговая не должна открыватся.
После создания она сразу должна идти на печать  


----------
▓▓▓Made in Ukraine▓▓▓
Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 10:18 12-03-2008
vadver

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
OJIR
А "ИмяФайла" случайно не UNC? И вообще, посмотри, чтобы в "Каталог" не было завершающих пробелов. Короче - копать в этом направлении, что-то не так с именем файла
Всего записей: 80 | Зарегистр. 10-05-2005 | Отправлено: 10:32 12-03-2008
tdr1225



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

Цитата:
Каким образом отправить на печать эту накладную (т.е. вызвать процедуру из модуля налоговой накладной "печать()")?  

1. Из "своей" обработки даешь команду ОткрытьФорму(НалНакл,пар) для открытия документа "налоговая накладная". В качестве параметра "пар" передаешь что-то специфическое, например, СписокЗначений со значением "команда печать".
2. В модуле формы налоговой накладной меняешь процедуру ПриОткрытии(). Там пишешь пар=Форма.Параметр; и анализируешь пар. Если пусто, значит идет обыкновенное открытие документа и надо оставит все как было. Если же пар - СписокЗначений, о котором говорилось в п.1 то:
2.1 вызываешь процедуру Печать() модуля формы
2.2 вызываешь СтатусВозврата(0); Возврат;
Всего записей: 282 | Зарегистр. 07-12-2005 | Отправлено: 10:36 12-03-2008
4Life



Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
tdr1225
а можно более подробнее
 
Добавлено:
Я так понимаю, все равно будет сперва открыватся документ?
Если так, то это не совсем хорошо, т.к. за раз у меня создается порядка 2000 накладных
Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 10:40 12-03-2008
G789

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
4Life
Проще всего скопировать в обработку процедуру печати и макет таблицы из документа, только их надо чуть отредактировать.
Всего записей: 83 | Зарегистр. 16-05-2007 | Отправлено: 11:05 12-03-2008
tdr1225



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

Цитата:
а можно более подробнее  

Куда ж подробнее.
Да, документ по команде ОткрытьФорму() откроется. Начнет выполняться ПриОткрытии(). Отсюда будет вызвана Печать(). А СтатусВозврата(0) и Возврат сразу его закроют, и выполнение продолжится с оператора, следующего за ОткрытьФорму(). На экране ничего мелькать не будет, только пойдет печать. Пробуй, и успехов.
Всего записей: 282 | Зарегистр. 07-12-2005 | Отправлено: 11:09 12-03-2008
4Life



Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
G789
к сожалению так не проще, т.к. кроме налоговых еще много документов формируется таким образом.
Всего записей: 766 | Зарегистр. 05-06-2003 | Отправлено: 11:35 12-03-2008
FOLD

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
4Life
Форму открывают для того, чтобы прочитать строки табличной части. Но есть метод выгрузить табличнуючасть().  
Примерно так :в обработке рисуешь печатную форму( или просто копируешь из "налогового документа" ) Дальше просто
 
 Док = СоздатьОбъект("Документ.НалоговыйДокумент");
 Док.ВыбратьДокументы(дн,дк);
 Пока Док.ПолучитьДокумент()=1 Цикл
 
 ДокП = Док.ТекущийДокумент();
 
 //здесь берешь реквизиты документа и подставляешь в параметры печатной формы
 
 ТЗ =СоздатьОбъект("ТаблицаЗначений");
 ДокП.ВыгрузитьТабличнуюЧасть(ТЗ);
   
  ТЗ.ВыбратьСтроки();
   
  Пока ТЗ.ПолучитьСтроку()=1 Цикл  
 //здесь заполняешь  параметры таьличной части для печати
 
// и ,по окончании цикла, отправляешь на печать  
 
 
Пример печати в любой конфе посмотри
Всего записей: 1238 | Зарегистр. 26-01-2004 | Отправлено: 11:43 12-03-2008 | Исправлено: FOLD, 11:48 12-03-2008
tdr1225



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
4Life
Вышли мылом модуль формы налогового документа и _фрагмент_ кода модуля обработки, откуда должна запускаться печать.
Всего записей: 282 | Зарегистр. 07-12-2005 | Отправлено: 11:44 12-03-2008
   

Страницы: 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

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


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru