1С Предприятие 7.7, программирование Опции

[selesta]

1С Предприятие 7.7

Обсуждаем вопросы по программированию в 1С 7.7.
Буду рад помочь Вам ответами на вопросы.

1С Предприятие 7.7, программирование (помощь по 1С 7.7) - http://forum.0day.kiev.ua/index.php?showtopic=28749
1С Предприятие 8.х, Программирование и другие вопросы (помощь по 1С 8.х) - http://forum.0day.kiev.ua/index.php?showtopic=95141
Текущие релизы украинских конфигураций и форм отчетности - http://1c.abbyy.ua/content/view/634/163/
Техническая поддержка на сайте 1С.RU (последние обновления) - http://www.1c.ru/ukraina/support/release.jsp


Софт ищем только здесь

[artishok]

генератор qr-кодов использовать пробовали?

Я еще не имел дел с 1с

[endym]

Я еще не имел дел с 1с

http://infostart.ru/public/80106/

[selesta]

На правах автора темы могу предложить свои услуги по 1С 7.7.
Специализируюсь на оптимизации баз данных, прямых запросах, SQL, интеграции с другими БД, разнообразными импортами и экспортами, XML.
Поиск информации, например, с 30 сек выполняется за 2 сек, отчет формировавшийся 20-30 мин, может формироваться меньше 1 мин.
Связь в ПМ.

Сообщение отредактировал selesta - Aug 8 2013, 22:29

[x1shn1k]

Парни, простой вопрос:
Можно безболезненно удалять аккаунты пользователей в 1С? Есть лишние учетки в базе. Где-то читал что документы в 1с привязаны к пользователю, и что удалить так просто учетки нельзя.

[Navern]

Парни, простой вопрос:
Можно безболезненно удалять аккаунты пользователей в 1С? Есть лишние учетки в базе. Где-то читал что документы в 1с привязаны к пользователю, и что удалить так просто учетки нельзя.

можно. ничего не будет.
аккаунты пользователей в конфигураторе это одно,а в самой платформе другое.

Сообщение отредактировал Navern - Sep 25 2013, 16:38

[x1shn1k]

Спасибо!
А просвети, пожалуйста, про аккаунты в платформе. Про какие аккаунты речь идет?

[Navern]

Спасибо!
А просвети, пожалуйста, про аккаунты в платформе. Про какие аккаунты речь идет?

В Типовых решениях 1С
Справочники-> Пользователи
Когда в конфигураторе создается пользователь, он добавляется в справочник "Пользователи" ИБ.
Этот справочник нужен для настройки прав пользователей и для определения ответственного за создание документов.

Сообщение отредактировал Navern - Sep 25 2013, 17:23

[x1shn1k]

Ясно.
Переименовывать аккаунты тоже можно смело?

[Navern]

Ясно.
Переименовывать аккаунты тоже можно смело?

да

[romses]

Прошу поделиться последней конфигурацией для 1С 7.7 "Альфа-Авто: Автосалон + Автосервис + Автозапчасти".
Большое спасибо.

[loky12]

Просить здесь

[GhostKU]

Народ Подскажите как с нового КлиентБанк УниКредита (после их слияния с УкрСоц) затянуть выписки их в 1С v7.7
Банк выгружает выписки только в CSV

[loky12]

Первая строка в Гугле

[GhostKU]

Первая строка в Гугле

Я от этого далек. Надеялся на готовую обработку, раньше использовалась обработка Импорт Клиент-Банк от КОНТО но она вроде как давно не обновляется и выписку от моего нового КлиентБанка - не понимает.

[ОТЕЦъ]

Есть выгрузка из «УкрСиббанк». В принипе работает.

Но вот беда как-то некоторые строки теряет и приход/уход порой путается...

Код ниже (пытался переделать с Банка Крещатик)
\\ также могу выложить ert файлик

» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... «

Перем База;
//********************************************************
Процедура ПриОткрытии();
ДатаС=ВосстановитьЗначение("КрДата");
//ДатаДок=ВосстановитьЗначение("КрДатаДок");
ФайлЗагрузки=ВосстановитьЗначение("КрФайлЗагрузки");
РСчет=ВосстановитьЗначение("КрРСчет");
РСчет.ВыборГруппы(0);
КонецПроцедуры
//********************************************************
Процедура ПриЗакрытии();
СохранитьЗначение("КрДата",ДатаС);
//СохранитьЗначение("КрДатаДок",ДатаДок);
СохранитьЗначение("КрФайлЗагрузки",ФайлЗагрузки);
СохранитьЗначение("КрРСчет",РСчет);
КонецПроцедуры
//**********************************************
Процедура ВыбрФайл(ИмяФайла)
Перем Кат;
Если ФС.ВыбратьФайл(0, ИмяФайла, Кат, "Виберите файлc для выгрузки платежек (*.dbf)", "Базы данных (*.dbf) |*.dbf|Все файлы (*.*) |*.*")=1 Тогда
ИмяФайла=Кат+ИмяФайла;
КонецЕсли;
КонецПроцедуры
//--------------------------------------------
Процедура ВыбрФайл1(ИмяФайла)
Перем Кат;
Если ФС.ВыбратьФайл(0, ИмяФайла, Кат, "Виберите файл для загрузки банковких выписок (*.dbf)", "Базы данных (*.dbf) |*.dbf|Все файлы (*.*) |*.*")=1 Тогда
ИмяФайла=Кат+ИмяФайла;
КонецЕсли;
КонецПроцедуры
//--------------------------------------------
Процедура ВводНового()
ДатаДок=ТекущаяДата()-1;
ДатаС=ДатаДок;
КонецПроцедуры
//--------------------------------------------
Процедура Загрузка(ДатаСС)
Если ПустоеЗначение(РСчет)=1 Тогда
Предупреждение("Внимание! Не выбран расчетный счет!");
Возврат;
КонецЕсли;

База = СоздатьОбъект("XBase");
База.КодоваяСтраница(0); // 0-Windows, 1-ДОС
База.ОткрытьФайл(ФайлЗагрузки);
Если База.Открыта()=0 Тогда
Предупреждение("Внимание! Не могу открыть файл "+ФайлЗагрузки);
Возврат;
КонецЕсли;

Док=СоздатьОбъект("Документ.БанковскаяВыписка");
// Если Док.ВыбратьДокументы(ДатаСС,ДатаСС)=1 Тогда
// Пока Док.ПолучитьДокумент()=1 Цикл
// Если Док.ПометкаУдаления()=0 Тогда
// Сообщить("На "+ДатаСС+" уже есть выписка (не обрабатываем)");
//
// КонецЕсли;
// КонецЦикла;
// КонецЕсли;

Док.Новый();
Док.Автор = Пользователь;
Док.Фирма = Константа.БазФирма;
//Сообщить(СокрЛП(Док.НомерДок));
//Док.Валюта=Гривна;//для комплексной конфигурации
//Док.УстановитьНовыйНомер(Сокрлп(Док.Фирма.ПрефиксНомера)+"-");
Док.ДатаДок = ДатаСС;

Спр0 = СоздатьОбъект("Справочник.НашиДенежныеСчета");
Спр = СоздатьОбъект("Справочник.Контрагенты");

Док.РСчет = РСчет;
Док.СчетУчета = РСчет.СчетУчета;

Флаг=0;
КоэффНДС = Константа.БазНДС.Ставка.Получить(ДатаСС)/(1+Константа.БазНДС.Ставка.Получить(ДатаСС));
Пока База.ВКонце()=0 Цикл
//Сообщить("Дата ="+База.ADATEOPL+ ", CUR_ID =" +База.CUR_ID+ ", KL_CHK="+База.KL_CHK );
Если База.DATA<>ДатаСС Тогда //DATE
База.Следующая();
Продолжить;
КонецЕсли;
//Если База.CUR_ID<>980 Тогда
// База.Следующая();
// Продолжить;
//КонецЕсли;
Если СокрЛП(База.KL_CHK) <> СокрЛП(РСчет.НомерСчета) Тогда //ACC_A
База.Следующая();
Продолжить;
КонецЕсли;

Флаг=1;

//А=СокрЛП(База.KL_CHK);
Б=СокрЛП(База.KL_OKP_K); //R_ZIP
В=СокрЛП(База.MFO_NM); //R_NAME

//Сообщить("Признак Дебет-Кредет = "+ База.DK);
//Сообщить("Наш р/с = "+А);
//Сообщить("Клиент ОКПО = "+Б);
//База.Следующая();
//Продолжить;

Док.НоваяСтрока();
Если База.DK = 0 Тогда //FL_DK
Док.ПриходРасход = Перечисление.ПлюсМинус.Плюс;
Док.Счет = СчетПоКоду("361");
Док.НазначитьТип("ВидПриходаРасхода","Перечисление.ВидыПриходаДенег");
Док.ВидПриходаРасхода = Перечисление.ВидыПриходаДенег.ВыручкаОтРеализации;
Док.ДоходИздержка = Перечисление.ПлюсМинусНичего.Плюс;
Док.СубконтоДИ = Константа.БазВаловыйДоход;
иначе
Док.ПриходРасход = Перечисление.ПлюсМинус.Минус;
Док.Счет = СчетПоКоду("631");
Док.НазначитьТип("ВидПриходаРасхода","Перечисление.ВидыРасходаДенег");
Док.ВидПриходаРасхода = Перечисление.ВидыРасходаДенег.НаВедениеХозДеятельности;
Док.ДоходИздержка = Перечисление.ПлюсМинусНичего.Минус;
Док.СубконтоДИ = Константа.БазВаловыйРасход;
КонецЕсли;
//Док.Фирма=Спр0.Владелец;
//Если ПустоеЗначение(Док.РСчет) = 1 Тогда
// Док.РСчет=Спр0.ТекущийЭлемент();
// Док.СчетУчета=Док.РСчет.СчетУчета;
//КонецЕсли;

//Сообщить("Р/счет - А="+А);
//Сообщить("ОКПО - Б="+Б);

Док.ВидНДС = Константа.БазНДС;
Док.УказанаОтгрузка = Нет;

Док.СуммаСНДС = База.S; //SUM
Док.СуммаПлатежа = Док.СуммаСНДС;
Док.НДС = Док.СуммаСНДС * КоэффНДС;

Док.НомерДокумента = База.ND;//DOC_NO
Док.Содержание = База.N_P; //COMMENT

Док.НазначитьТип("Субконто",Док.Счет.ВидСубконто(1));
Док.НазначитьТип("Заказ",Док.Счет.ВидСубконто(2));

Спр.НайтиПоРеквизиту("ЕДРПОУ",Б,1);
Если Спр.Выбран() > 0 Тогда
Док.Субконто = Спр.ТекущийЭлемент();
Док.Заказ = Спр.ТекущийЭлемент().БазДоговор;
Иначе
Сообщить(" Не найден клиент """+ В +""" с кодом ЕДРПОУ "+ Б +", сумма - " + Док.СуммаСНДС);
КонецЕсли;

База.Следующая();
КонецЦикла;

Если Флаг=1 Тогда
Док.Записать();
Сообщить("Создан документ "+Строка(Док));
Иначе
Сообщить("За " + Строка(ДатаСС) + " данных нет!");
КонецЕсли;
КонецПроцедуры

//--------------------------------------------
Процедура Выполнить()
ДатаСС=ДатаС;
НачатьТранзакцию();
//Пока ДатаСС<=ДатаДок Цикл
Загрузка(ДатаСС);
//ДатаСС=ДатаСС+1;
//КонецЦикла;
ЗафиксироватьТранзакцию();
КонецПроцедуры
//------------------------------------------
Процедура ПроверкаДатаС()

КонецПроцедуры

если кто сможет - укажите на баг
или у кого может есть работоспособный готовый, был бы признателен

Сообщение отредактировал ОТЕЦъ - Dec 9 2013, 16:43

[selesta]

ОТЕЦъ, вот из работающей базы
писал, правда, не я но за года 2 жалоб небыло

» Нажмите, чтобы показать спойлер - нажмите опять, чтобы скрыть... «

//--------------------------------------------
Процедура УкрСиб(ПолныйПутьКФайлу)
Перем Имя;

Т = СоздатьОбъект("XBASE");
//Если ФС.ВыбратьФайл(0, Имя, СокрЛП(Константа.КаталогКБ), "Вкажіть файл з даними", "Файли системи банк-клієнт(*.K??)|*.K??", "K??", 0) = 0 Тогда
// Возврат;
//КонецЕсли;

Т.КодоваяСтраница(1);

Т.ОткрытьФайл(ПолныйПутьКФайлу);

Если Т.Открыта() = 0 Тогда
Предупреждение("Помилка при відкритті файлу!");
Возврат;
КонецЕсли;

К = СоздатьОбъект("Справочник.Контрагенты");
Т.Первая();

УдалитьСтроки();
Пока Т.ВКонце() = 0 Цикл
Если СокрЛП(Т.KL_CHK) <> СокрЛП(БанковскийСчет.Номер) Тогда
Т.Следующая();
Продолжить;
КонецЕсли;

//Дат = Т.ADATEOPL;
//Если Дат <> ДатаДок Тогда
// Т.Следующая();
// Продолжить;
//КонецЕсли;

Если Т.DK = 1 Тогда//Расход
Если ТипВыписки = 1 Тогда
Т.Следующая();
Продолжить;
КонецЕсли;
НоваяСтрока();
ВидДвижения = Перечисление.ВидыДвиженийПоРасчетномуСчету.Расход;
ВыбФлаг();
ОКПО = СокрЛП(Т.KL_OKP_K);
Назв = СокрЛП(Т.KL_NM_K);
ИначеЕсли Т.DK = 2 Тогда//Приход
Если ТипВыписки = 2 Тогда
Т.Следующая();
Продолжить;
КонецЕсли;
НоваяСтрока();
ВидДвижения = Перечисление.ВидыДвиженийПоРасчетномуСчету.Приход;
//СтатьяПоВидамДеятельности = Константа.СтатьяСП;
ВыбФлаг();
//ОКПО = СокрЛП(Т.KL_OKP_K);
ОКПО = "страховка";
Назв = СокрЛП(Т.KL_NM_K);
КонецЕсли;
Сумма = Число(Т.S);
Комментарий_ = СокрЛП(Т.N_P);
Комментарий_ = СтрЗаменить(Комментарий_, "ў", "і");
Комментарий_ = СтрЗаменить(Комментарий_, "Ў", "І");
Комментарий_ = СтрЗаменить(Комментарий_, "•", "ї");
Комментарий = СтрЗаменить(Комментарий_, "°", "Ї");

Назв = СтрЗаменить(Назв, "ў", "і");
Назв = СтрЗаменить(Назв, "Ў", "І");
Назв = СтрЗаменить(Назв, "•", "ї");
Назв = СтрЗаменить(Назв, "°", "Ї");

Если К.НайтиПоРеквизиту("КодОКПО", ОКПО, 1) = 0 Тогда
Если К.НайтиПоРеквизиту("ИНН", ОКПО, 1) = 0 Тогда
Сообщить("Контрагент з кодом ОКПО " + ОКПО + " не знайдений (" + Назв + "). Строка " + НомерСтроки);
Иначе
Контрагент = К.ТекущийЭлемент();
КонецЕсли;
Иначе
Контрагент = К.ТекущийЭлемент();
КонецЕсли;

Т.Следующая();
КонецЦикла;

СортироватьСтроки("+Сумма");
ПослеИмпорта();
КонецПроцедуры

Сообщение отредактировал selesta - Dec 24 2013, 11:50

[Мирянин]

Не подскажете в какой конфигурации есть такая связка
контрагент--типовый договор---счет

[karen_vlasenko]

Доброе утро!
Помогите плз.
При выгрузке реестра налоговых накладных из 1С 7.7 и загрузки в МеДок, ошибки не возникает
После отправки и получения Квитанции №2
пишет ошибку

Виявлені помилки:
Не відповідає стандарту XML [-7]

[selesta]

Доброе утро!
Помогите плз.
При выгрузке реестра налоговых накладных из 1С 7.7 и загрузки в МеДок, ошибки не возникает
После отправки и получения Квитанции №2
пишет ошибку

Виявлені помилки:
Не відповідає стандарту XML [-7]

как минимум надо понимать актуальны ли версии конфигурации и МеДока

[romses]

Добрый!!!
Помогите пожалуйста составить алгоритм для выполнения одной задачи.
Имеем таблицу значений из двух колонок:
1. артикул (штука уникальная для каждого товара).
2. номер чека
То сеть в таблицу значений импортировали данные продаж.
В чеке может быть от одного товара до более чем десятка.
Таблицу значений сворачиваем по номеру чека, а потом по артикулу и получаем удобный список всех чеков и товаров в них.
Задача: требуется получить список всех возможных пар, троек, четверок и т.д. товаров со всех чеков. которые продавались вместе. (пары сделаны, а вот как сделать тройки и далее пока придумать не сложилось).
Дам пример:
Если мы имеем чек с пятью артикулами, то мы должны с него получить такую инф:
двоек: 1+2, 1+3, 1+4, 1+5, 2+3, 2+4, 2+5, 3+4, 3+5, 4+5
тройки: 1+2+3, 1+2+4, 1+2+5, 1+3+4, 1+3+5,1+4+5, 2+3+4, 2+3+5, 2+4+5, 3+4+5
четверки: 1+2+3+4, 1+2+4+5, 2+3+4+5
пятерки: 1+2+3+4+5
(если где чего и пропустил, то из-за спешки, это просто пример, не более)
тоже самое и с чеками другого количества товаров.