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

Хранилище

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

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



История благодарностей участнику sVasilich ::: Спасибо сказали: 2 раз
Дата поста: В теме: За сообщение: Спасибо сказали:
30.03.11, 8:27 клиент-банк
Я вот так делал:

Процедура КлиентБанк_Укрэксим()         
    Перем ф_имя, ф_каталог, сумма;
    Перем 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,
13.02.09, 11:46 Метод расчета себестоимости...
Ну, точно не знаю, помойму при FIFO считаются цены из партий которые пришли на склад первыми, а при LIFO - последними. (цены для каждой партии обычно разные). Что-то такое
Vofka,

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