Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Неназначенных незавершенных заказов: 2, свеженьких 1
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> клиент-банк , выгрузка dbf-файла платежной ведомости в формат Укрексимбанка          
TTT Подменю пользователя
сообщение 29.03.11, 13:10
Сообщение #1

Общительный
**
Группа: Пользователи
Сообщений: 30
Спасибо сказали: 1 раз
Рейтинг: 0

Мы сменили банк выплаты ЗП. Новый банк -Укрексимбанк. Может есть готовая выгрузка в DBF-файл платежной ведомости из программы "Зарплата+Кадры" 7.7?

sVasilich Подменю пользователя
сообщение 30.03.11, 8:27
Сообщение #2

Говорящий
***
Группа: Пользователи
Сообщений: 59
Из: Донецк
Спасибо сказали: 2 раз
Рейтинг: 0

Я вот так делал:

Процедура КлиентБанк_Укрэксим()         
    Перем ф_имя, ф_каталог, сумма;
    Перем 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
КонецПроцедуры


Процедурку добавить в модуль формы платёжке и сделать кнопку на форме. Именно обработки нету.

Спасибо сказали: TTT,

sVasilich Подменю пользователя
сообщение 30.03.11, 8:31
Сообщение #3

Говорящий
***
Группа: Пользователи
Сообщений: 59
Из: Донецк
Спасибо сказали: 2 раз
Рейтинг: 0

card_acc = Сотрудник.Номер_договора;


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

igmig65 Подменю пользователя
сообщение 30.03.11, 8:59
Сообщение #4

Почти ветеран
Иконка группы
Группа: Местный
Сообщений: 613
Из: Донецкая обл
Спасибо сказали: 168 раз
Рейтинг: 140.9

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

Чтобы потом непришлось опять что нибудь добавлять, лучше сразу добавить еще и поле Банк, так как в будущем возможно придется перечислять на разные банки, тогда сможете фильтровать платежку(тоже добавив Банк).

TTT Подменю пользователя
сообщение 30.03.11, 9:32
Сообщение #5

Общительный
**
Группа: Пользователи
Сообщений: 30
Спасибо сказали: 1 раз
Рейтинг: 0

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

Хочу поблагодарить, от всей души!!!

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 19.04.24, 7:10
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!