| 0
- 02.03.2012 - 13:22
|
Перешли на работу со Сбербанком. Выпустили всем карты. Принесли от них реестр на бумаге(!) Сажать девочек забивать №№счетов, открывая карточку каждого сотрудника? Мне кажется была какая-то универсальная обработка справочников, когда можно было в списке править любые реквизиты... Может быть у кого-то есть? Нашла на инфостарте для 8.2 - Загрузка зарплатных лицевых счетов в ЗУП из файла Excel А для 7.7, может кто-то встречал? Думаю я смогу получить от Сбера какой-никакой файл с номерами счетов...     | |
| 1
- 02.03.2012 - 13:33
|
1-МаriP > "Принесли от них реестр на бумаге" - и? "Сажать девочек забивать №№счетов, открывая карточку каждого сотрудника?" - зачем же задавать риторический вопрос? Нет, блин, посади работника Сбера... "Думаю я смогу получить от Сбера какой-никакой файл с номерами счетов..." - А вот это хорошо: - Кум, ты вчерашние щи любишь? - Ага! - Тогда приходи завтра... :D | |
| 2
- 02.03.2012 - 13:43
| руками заколбасить пока файл ждать будете ). 1-2 ч. работы | |
| 3
- 02.03.2012 - 13:57
| 3-Buzz > 200*1мин=3ч20мин ;) | |
| 4
- 02.03.2012 - 13:58
| ... Хотя обработок на тему Универсальный ввод из Excel как собак нерезанных... | |
| 5
- 02.03.2012 - 14:01
| +5 И даже если "работа руками" чуть меньше "обработкой", надо применять "Обработкой" - обработка не отвлекается на обсуждение нарядов :)) | |
| 6
- 02.03.2012 - 14:04
| Чёй-то ты взял 1 минуту :) | |
| 7
- 02.03.2012 - 14:17
|
Новая обработка с ТЗ на форме. Процедура Сформировать() ТЗ.Очистить(); ТЗ.НоваяКолонка("Сотрудник"); ТЗ.НоваяКолонка("НомерСчета"); //далее заполняем ТЗ сотрами со счетами по вкусу КонецПроцедуры Процедура ПриДвойномЩелчкеНаТЗ() //повешена как обработка на форму для ТЗ Перем ТекСтр, Пром ТекСтр = ТЗ.ТекущаяСтрока(); Если ТекСтр > 0 Тогда ВвестиСтроку(Пром,"Введите номер счета", 20); ТЗ.НомерСчета = Пром; КонецЕсли; КонецПроцедуры Процедура Заполнить() СпрСотр = СоздатьОбъект("Справочник.Сотрудники"); СпрСотр.ИспользоватьДату(ТекущаяДата()); ТЗ.ВыбратьСтроки() //ну и переносим номера счетов в карточки КонецПроцедуры 20 минут на обработку, полчаса рабоы расчетчицы. Ы? | |
| 8
- 02.03.2012 - 14:19
| Сабака движок форума пробелы все заколбасил, извиняюсь за некоторую потерю читабельности. | |
| 9
- 02.03.2012 - 14:38
| Нас перевели на сбер месяц назад. Позвонил в банк девочке, курирующей нас, прислала мне файл в текстовом формате. Дальше работы на 10 минут - написать код и загрузить. Попутно выявились пара ошибок банкиров - у одного человека неправильно ввели фамилию, у другого отчество. | |
| 10
- 02.03.2012 - 14:40
|
Хм, идея. Файнреадер + код, те же 10 минут работы Если качество печати нормальное | |
| 11
- 02.03.2012 - 14:41
|
Минута - открыть сотра и вбить 24 знака, проверить... Думаю поболее будет... Мне просто помнится, что была какая-то универсальная давно-давно на ИТСе... что можно было список вывести и поправить... Порыла - не могу найти((( | |
| 12
- 02.03.2012 - 14:43
| Файл прислали? | |
| 13
- 02.03.2012 - 14:44
|
Кстати, вот и код еще остался, где-то так: Текст=СоздатьОбъект("Текст"); Текст.КодоваяСтраница("Windows"); Текст.Открыть("D:\Data_1C\bank\spisok_cart.txt"); Нмакс=Текст.КоличествоСтрок(); Для Н=1 По Нмакс Цикл СтрРазбора=Текст.ПолучитьСтроку(Н); Если Лев(СтрРазбора,2)="--" Тогда // здесь были разделители строк в файле Продолжить КонецЕсли; Сообщить(Сред(СтрРазбора,7,42)+" "+Сред(СтрРазбора,58,6)+" "+Сред(СтрРазбора,77,24)); ФИО=СокрЛП(Сред(СтрРазбора,7,42)); СчетВбанк=СокрЛП(Сред(СтрРазбора,77,24)); Спр=СоздатьОбъект("Справочник.Сотрудники"); НеНАйден=1; Спр.ВыбратьЭлементы(); Пока Спр.ПолучитьЭлемент()*НеНайден=1 Цикл Если Спр.ЭтоГруппа()=1 Тогда Продолжить КонецЕсли; СпрФИО=ВРЕГ(СокрЛП(""+Спр.Наименование)); // прислали все в верхнем регистре Если ФИО=СпрФИО Тогда Сообщить("Найден "+ФИО); НеНайден=0; Спр.НомерЗарплатногоСчета=СчетВбанк; Спр.Записать(); КонецЕсли; КонецЦикла; Если НеНайден=1 Тогда // это для анализа, ошибки банка Сообщить("Не найден!!! ="+ФИО+"=","!"); КонецЕсли; КонецЦикла; Допилить под себя по вкусу | |
| 14
- 02.03.2012 - 14:52
| Заодно спрошу, может быть, кто-то знает - какие закономерности есть в 20 знаках счета? Например, в каких-то позициях забит номер банка, в каких-то контрольные цифры? | |
| 15
- 02.03.2012 - 14:59
|
15-KonstS > "Номер банка" это БИК ;) Это клеймо банк сам себе не ставит :) А на внутренние коды не надо заморачиваться: оне нам даны извне. | |
| 16
- 02.03.2012 - 15:02
|
Да я тут как раз лажанулся, у части сотров уже были карты, у кого бинбанковские, у кого ВТБ (на них сберовские на стали делать). Тупо сделал выгрузку з/п в реестр в сбер, его там конечно же завернули Для себя сейчас сделал признак, по которому сортировать счета сотрудников по банкам. Но хотелось бы как-то более цивилизованно сделать... | |
| 17
- 02.03.2012 - 15:04
|
Отсканировать бумажку с номерами, распознать в эксель. Написать обработку для загрузки из Эксель в 1С. Работы на полчаса. | |
| 18
- 02.03.2012 - 15:06
| 17-KonstS >Поле ОтделениеБанка используй для разделения по банкам. | |
| 19
- 02.03.2012 - 15:08
| 17-KonstS > Это не ты лажанулся, это "пейсатели всей страны от 1С" ложанулись, подумав "о хорошем" - что все сотрудники будут имет ПК от одного банка. За всех решили, усердные наши - и за работников, и за хозяев бизнеса... | |
| 20
- 02.03.2012 - 15:10
|
(12) Доктор, меня игнорируют? В (8) код для ввода счетов списком (в ТЗ). Без всяких файлов по бумажке 2 расчетчицы заполнят-проверят по 200 сотрам за 20-30 минут. Не хотите - как хотите. Ждите файло. | |
| 21
- 02.03.2012 - 15:12
|
(19) Точно, а я что-то на него и не посмотрел... Сейчас перепишу выгрузку. Тогда уж если кто будет использовать мой г-но код, добавьте после Спр.НомерЗарплатногоСчета=СчетВбанк; строчку Спр.ОтделениеБанка="123456"; // номер отделения банка | |
| 22
- 02.03.2012 - 15:12
|
21-Mitrich > Угу, пациент. Бо (6). И не занимайтесь самолечением: доктор сказал "в морг", значит, в морг. :D | |
| 23
- 02.03.2012 - 15:16
| (23) Угу. "Это не я накосячила, это 1С так сама неправильный счет ввела" :))) | |
| 24
- 02.03.2012 - 15:24
| а можно свой номер предложить для тестирования >? :))) | |
| 25
- 02.03.2012 - 15:31
|
(24) А так и будет. Я системам "девочки/бумажки" не очень доверяю. К тому же банковские косяки проскочат, как я уже говорил, у одного фамилию поменяли, у другой отчество. А вылезет это все только при отправке в банк. Так же как и "1С так сама неправильный счет ввела" :-) | |
Интернет-форум Краснодарского края и Краснодара |
