Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: клиент-банк
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Пользователю 1С 7.7 > 1С Зарплата и Кадры 7.7 для Украины
TTT
Мы сменили банк выплаты ЗП. Новый банк -Укрексимбанк. Может есть готовая выгрузка в DBF-файл платежной ведомости из программы "Зарплата+Кадры" 7.7?
sVasilich
Я вот так делал:

Процедура КлиентБанк_Укрэксим()         
    Перем ф_имя, ф_каталог, сумма;
    Перем tran_date, card_acc, amount, currency; //Нужны только для отражения данных в таблице
    Если КоличествоСтрок()=0 Тогда
        Предупреждение("В документе нет ни одной записи.");
    Иначе
        Если ФС.ВыбратьФайл(1,ф_имя,ф_каталог,"Сохранить как...","Фалы DBF|*.dbf","dbf")=1 Тогда
            ФайлЭкспорта = СоздатьОбъект("XBase");
            ФайлЭкспорта.ДобавитьПоле("TRAN_DATE","D",8,0);        //Дата транзакции (не используется)
            ФайлЭкспорта.ДобавитьПоле("CARD_ACCT","C",10,0);    //Номер контракта
            ФайлЭкспорта.ДобавитьПоле("AMOUNT","N",15,2);        //Сумма  
            ФайлЭкспорта.ДобавитьПоле("CURRENCY","C",3,0);        //Код валюты
            ФайлЭкспорта.СоздатьФайл(ф_каталог+ф_имя);
            Табл = СоздатьОбъект("Таблица");
            Табл.ИсходнаяТаблица("Экспорт_Укрэксим");
            сумма = 0;                    
            Табл.ВывестиСекцию("Шапка");
            Если ВыбратьСтроки()=1 Тогда
                Пока ПолучитьСтроку()=1 Цикл
                    tran_date = ДатаВыплаты;
                    card_acc = Сотрудник.Номер_договора;
                    amount = КВыплате;          
                    сумма=сумма+КВыплате;
                    currency = "UAH";      
                    ФайлЭкспорта.Добавить();
                    ФайлЭкспорта.AMOUNT = amount;
                    ФайлЭкспорта.CARD_ACCT = card_acc;
                    ФайлЭкспорта.CURRENCY = currency;
                    ФайлЭкспорта.TRAN_DATE = tran_date;    
                    ФайлЭкспорта.Записать();
                    Табл.ВывестиСекцию("Строка");          
                КонецЦикла;              
                Табл.ВывестиСекцию("Дно");
                Табл.Показать("Экспортиравно");
                ФайлЭкспорта.ЗакрытьФайл();
            КонецЕсли; //ВыбратьСтроки()=1
        КонецЕсли;//ФС.ВыбратьФайл
    КонецЕсли; //КоличествоСтрок()=0
КонецПроцедуры


Процедурку добавить в модуль формы платёжке и сделать кнопку на форме. Именно обработки нету.
sVasilich
card_acc = Сотрудник.Номер_договора;


И в справочник.Сотрудники номера карточек добавить.
igmig65
Цитата
И в справочник.Сотрудники номера карточек добавить.

Чтобы потом непришлось опять что нибудь добавлять, лучше сразу добавить еще и поле Банк, так как в будущем возможно придется перечислять на разные банки, тогда сможете фильтровать платежку(тоже добавив Банк).
TTT
Цитата(TTT @ 29.03.11, 14:10) необходимо зарегистрироваться для просмотра ссылки
Мы сменили банк выплаты ЗП. Новый банк -Укрексимбанк. Может есть готовая выгрузка в DBF-файл платежной ведомости из программы "Зарплата+Кадры" 7.7?

Хочу поблагодарить, от всей души!!!
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.