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

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в 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 | Цитировать | Сообщить модератору
St01en
или в ручную с помощь, например, dbfNavigator, или с помощью ВК/ADO

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

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
St01en
есть
 
 
Процедура ВыгрузкаЗП()
текст = СоздатьОбъект("Текст");
текст.ДобавитьСтроку("Content-Type=doc/pay_sheet");
текст.ДобавитьСтроку("");
текст.ДобавитьСтроку("DATE_DOC="+ДатаДок);
текст.ДобавитьСтроку("NUM_DOC="+НомерДок);
текст.ДобавитьСтроку("PAYER_BANK_MFO="+Фирма.РС.Банк.Код);
текст.ДобавитьСтроку("PAYER_ACCOUNT="+Фирма.РС.НомерСчета);
Сч = 0;
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Сч = Сч+1;
ФИО = СокрЛП(Сотрудник.Фамилия);
Имя = СокрЛП(Сотрудник.Имя);
Отчество = СокрЛП(Сотрудник.Отчество);
текст.ДобавитьСтроку("CARD_HOLDERS."+Сч+".CARD_NUM="+Сотрудник.КарточныйСчет);
текст.ДобавитьСтроку("CARD_HOLDERS."+Сч+".CARD_HOLDER="+Строка(ФИО+" "+Имя+" "+Отчество));
текст.ДобавитьСтроку("CARD_HOLDERS."+Сч+".STATUS="+0);
текст.ДобавитьСтроку("CARD_HOLDERS."+Сч+".CARD_HOLDER_INN="+Сотрудник.ИНН);
текст.ДобавитьСтроку("CARD_HOLDERS."+Сч+".AMOUNT="+Сумма);
КонецЦикла;
текст.ДобавитьСтроку("ONFLOW_TYPE=Заробiтна плата та аванси");
текст.ДобавитьСтроку("PAYER_BANK_ACCOUNT="+Фирма.РС.НомерСчета);
текст.Записать(КаталогИБ()+"import2");
КонецПроцедуры // ВыгрузкаЗП
 
это я писал для укрсиба
Всего записей: 78 | Зарегистр. 04-10-2006 | Отправлено: 17:41 02-09-2009
St01en

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
An4eus
Жжошь =)))) Я ж для бухгалтеров делаю =))  
 
Кстати, в описании стандарта дбф - ограничение имени поля в 10 символов, так что xBase здесь не причем. Попробуй переименовать в том же dbfNavigator.  
Какие маны читали программисты Укрсиба, когда писали свой обдолбанный Старасесс?
 
Добавлено:
ech
Спасибо.
Но все равно буду давить на Укрсиб, чтоб нормально поля в дбф поименовали =)))
Всего записей: 292 | Зарегистр. 10-04-2006 | Отправлено: 17:47 02-09-2009
AlexLM75



Full Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
fol
посмотри в ПМ, может что подскажешь...
Всего записей: 474 | Зарегистр. 13-12-2007 | Отправлено: 20:21 02-09-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
St01en
Цитата:
Кстати, в описании стандарта дбф - ограничение имени поля в 10 символов, так что xBase здесь не причем. Попробуй переименовать в том же dbfNavigator.  
Какие маны читали программисты Укрсиба, когда писали свой обдолбанный Старасесс?  
 
перед тем, как писать - надо попробовать, ибо всё получается!!!
p.s. хочешь скачать, что в "ручную" я не изменю поле?

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

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет, всем!  
Есть такая задача из бухгалтерии 7.7 выгрузить данные по начислению з/п и данные о сотрудниках в ЗУП 8.1. Подскажите с чего начать? Никогда этого не делала, но есть огромное желание! Заранее благодарна!
Всего записей: 56 | Зарегистр. 27-05-2009 | Отправлено: 08:08 03-09-2009
Akam1



Комса		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
CarrotM
Примерное количество сотрудников?

----------
В правильно поставленном вопросе всегда содержится 50% ответа
Все будет так, как должно быть. Даже если будет иначе.
Всего записей: 26360 | Зарегистр. 20-04-2006 | Отправлено: 08:22 03-09-2009
WELL



Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Друзья, есть ли у кого готовые решения по переносу документов из ЗИК под 7.7 в УПП под 8.1?

----------
CRACKL@B: Форум по исследованию защиты программного обеспечения
— А можно так — утром стулья, а вечером деньги?
— Можно, но деньги — вперед!
Всего записей: 2542 | Зарегистр. 11-12-2003 | Отправлено: 08:29 03-09-2009
ZanderZ



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

Цитата:
Привет, всем!  
Есть такая задача из бухгалтерии 7.7 выгрузить данные по начислению з/п и данные о сотрудниках в ЗУП 8.1. Подскажите с чего начать? Никогда этого не делала, но есть огромное желание! Заранее благодарна!


Цитата:
Друзья, есть ли у кого готовые решения по переносу документов из ЗИК под 7.7 в УПП под 8.1?

это скорее относится к теме http://forum.ru-board.com/topic.cgi?forum=5&topic=30415&glp#1
Всего записей: 672 | Зарегистр. 19-05-2006 | Отправлено: 08:54 03-09-2009
St01en

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
An4eus
Странно, а у меня не получается. В любом дбф имя обрезается до 10 знаков.
Всего записей: 292 | Зарегистр. 10-04-2006 | Отправлено: 09:09 03-09-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
St01en
скачай dbfNavigator - я проверил - всё сохранилось!

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

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
An4eus
Так а я о чем? dbfNavigator 2.01. И не сохраняет. Обрезает до 10 знаков О_о
Всего записей: 292 | Зарегистр. 10-04-2006 | Отправлено: 10:23 03-09-2009
CarrotM

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Akam1
 
50 челов
Всего записей: 56 | Зарегистр. 27-05-2009 | Отправлено: 10:27 03-09-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
St01en
я вчера пробывал - всё сохранил - открыл - было больше 10!
скинь мне в ПМ эту dbf'ку - покручу
p.s. версия та же

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



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброе время суток всем!
Помогите пожалуйста разобраться с задачкой.
 
Как можно получить значение ссылки (клик на ссылке) SWF файла
 
Возможное решение:
В 1С Предприятие, через OLE запускаем InternetExplorer
        IE = CreateObject("InternetExplorer.Application");  
        Ie.Visible = "true";
                    IE.Navigate(Адрес SWF файла);  
А дальше нужно получить как-то событие OnClick  
Как это можно сделать?
Всего записей: 44 | Зарегистр. 20-07-2004 | Отправлено: 13:20 03-09-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
St01en
да, у меня тоже не получилось переименовать...
буду думать!
если найдёшь метод - отпишись обязательно!

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

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
An4eus
Не думаю, что есть такой метод =)) Если найдешь файл с длиной имени поля больше 10 - тогда можно посмотреть. Я у себя таких не нашел. Вот ссылка на описание формата самого ДБФ http://lib.kharkov.ua/TXT/dbf.txt или вот http://articles.org.ru/docum/dbfall.php
Только все эти значения указываются в хидере файла. Изменить я думаю можно, но это уже реверсинг =)) Так извращаться - маразм.
Поражает тупость прогеров Укрсиба. Седня опять с ними разговаривал. Говорю, по стандарту - больше 10 нельзя. Они - но у нас же счета больше, чем 10 знаков! Так, бля, и не смог объяснить им разницу между полем и именем поля =)))))
Хочу работать в банке =))
Всего записей: 292 | Зарегистр. 10-04-2006 | Отправлено: 16:15 03-09-2009 | Исправлено: St01en, 16:18 03-09-2009
An4eus



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
St01en
кстати, когда я утверждал, что можно изменить - я пробовал на dbf 1с-ки!

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

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте.
 
1С v8.1.13
"Зарплата и управление персоналом" ред. 2.5
 
Разбиралась со справочником "ФизическиеЛица". На форме "ФормаЭлемента" есть компонент табличное поле "КонтактнаяИнформация", у которого тип РегистрСведенийНаборЗаписей.КонтактнаяИнформация.
Регистр сведений "КонтактнаяИнформация" не переодический.
Надо получить значение адреса прописки и номера телефона. Данные нужны для заполнения формы документа.
 Делаю так:
 
  КИОтбор = Новый Структура;
  //КИОтбор.Вставить("Объект",НаимЭл);
  КИОтбор.Вставить("Тип",Перечисления.ТипыКонтактнойИнформации.Адрес);
  //КИОтбор.Вставить("Вид",Справочники.ВидыКонтактнойИнформации.
                  НайтиПоКоду("00002"));
  КИРС = РегистрыСведений.КонтактнаяИнформация;
  ВыборкаКИ = КИРС.Выбрать(КИОтбор,);
  Пока ВыборкаКИ.Следующий() Цикл
       //Если ВыборкаКИ.Объект = НаимЭл Тогда
              Сообщить("Представление = " + ВыборкаКИ.Представление);  
       //КонецЕсли;
  КонецЦикла;
 
 
Данные выводятся, но повсем у кого был указан адрес. Если поставить условие:
       Если ВыборкаКИ.Объект = НаимЭл Тогда
              Сообщить("Представление = " + ВыборкаКИ.Представление);  
       КонецЕсли;
 
Где НаимЭл = НаименованиеЭлементаИзСправочника
 
То условие не выполняется.  
Если в структуру добавлять не "Тип", а "Объект", то отбор данных не осуществляется. Хотя измерение "Объект" - помечено как "ведущее". Измерение "Тип" в регистре сведений "КонтактнаяИнформация" с признаком "Индексировать".  
А в СП для метода Выбрать написано, что  "В качестве полей для отбора могут задаваться измерения или реквизиты, для которых в конфигураторе признак индексирования установлен в значение "Индексировать" или установлен признак "Ведущее"."
 
Каким образом можно выбрать данные по конкретному сотруднику?
Всего записей: 52 | Зарегистр. 07-01-2008 | Отправлено: 08:09 04-09-2009
Akam1



Комса		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
OJIR
Например, так:
Код:
    Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ * ИЗ РегистрСведений.КонтактнаяИнформация ГДЕ Объект = &Объект";
    Запрос.УстановитьПараметр("Объект", ОбъектВыбора);
    ТЗ=Запрос.Выполнить().Выгрузить();
    СтрокаАдреса = ТЗ.Найти(Справочники.ВидыКонтактнойИнформации.ЮрАдресФизЛица, "Вид");  
    Если СтрокаАдреса = Неопределено Тогда
        Сообщить("Адреса прописки нет!");
    Иначе
        Сообщить(СтрокаАдреса.Представление);
    КонецЕсли;
    СтрокаТелефона = ТЗ.Найти(Справочники.ВидыКонтактнойИнформации.ТелефонФизЛица, "Вид");  
    Если СтрокаТелефона = Неопределено Тогда
        Сообщить("Телефона нет!");
    Иначе
        Сообщить(СтрокаТелефона.Представление);
    КонецЕсли;

Цитата:
  //КИОтбор.Вставить("Вид",Справочники.ВидыКонтактнойИнформации.  
                  НайтиПоКоду("00002"));
Это же предопределенный элемент, можно обращаться напрямую. И вообще - старайтесь не использовать НайтиПоКоду и НайтиПоНаименованию. Старайтесь думать не о значении объекта, а о его описании, т.е. как бы объекты должны быть для Вас все "на одно лицо". Ну кроме предопределенных конечно. Потому что если значение можно изменить, то обязательно его кто-нибудь когда-нибудь изменит и придется исправлять код.
ОбъектВыбора - это ссылка на объект из справочника ФизическиеЛица.
Насчет Сообщить(СтрокаАдреса.Представление) и Сообщить(СтрокаТелефона.Представление) это я для примера привел. В принципе после Найти значения СтрокаАдреса.Представление и СтрокаТелефона.Представление (это Строка) можно дальше использовать где хотите. Да и вообще - из полученной ТЗ можно "вытянуть" что Вам надо и в каком виде.
P.S.
Цитата:
Каким образом можно выбрать данные по конкретному сотруднику?
Сотрудник и физическое лицо - это совсем две разные, но взаимосвязанные вещи. Это надо различать.
Физлицо - оно одно. А вот Сотрудников по этому физлицу может быть сколько угодно. Т.е. человек пришел, появился Сотрудник1. Человек уволился - все, Сотрудник1 перестал быть сотрудником. Тут опять приходит этот же человек устраиваться на работу. Все, заводится Сотрудник2 и т.д. А вот Физлицо остается неизменным.

----------
В правильно поставленном вопросе всегда содержится 50% ответа
Все будет так, как должно быть. Даже если будет иначе.
Всего записей: 26360 | Зарегистр. 20-04-2006 | Отправлено: 09:00 04-09-2009 | Исправлено: Akam1, 09:08 04-09-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