Обсуждение:Частичная реализация инструкции 113-И в RS-Retail: новая справка
5 (1)
Обсуждение:Частичная реализация инструкции 113-И в RS-Retail: новая справка ( Обсуждение примера 18.06.2004 15:16 )1(1)До выхода патча 5.1.093.28 нашими специалистами был разработан комплект макросов, позволяющий печатать справку, которую по инструкции 113-И нужно выпускать вместо ф.0406007
Ограничения:
- Номер операции берется из exoperat.OrderNum, т.е. его необходимо заполнять в панели ввода валютообменной операции ( поле "Номер ордера").
- Не реализована таблица соответствий старых номеров операций и новых. Пока выводятся старые номера (exoperat.Kind_Oper и exoperat.SubOper).
Для установки макроса нужно:
- Распаковать архив 113И.rar
- Макрос f0406007.mac нужно подложить вместо старого макроса в ..\MAC\Exchange
- Каталог _RS_REP скопировать в каталог ..\MAC
- В подсистеме <Сервис розничных услуг> в параметре MACRODIR прописать путь к этому каталогу ( _RS_REP ).
- После проведения всех указанных действий при проведении ВОО будет печататься новая справка
Посмотреть пример
>> Ответить- Re: 113-И ( Denska 21.06.2004 09:55 )0(0)Господа!!!!
Пришел сегодня с утра на работу, УРА появились сообщения о том, что .... 113-И будет реализовано ВНИМАНИЕ 28.06.2004г.
Прибавим время на тестирование и отладку ошибок НОВОГО патча и получаем итог 15.07.2004.
Что может быть приятнее чем понимать, что положение зарегистрировано в Минюсте еще 2 июня 2004 г., вступает в силу с 18 июня, а систему мы получим только даже при хорошем раскладе 28.06.2004г.
Далее....
Вы выкладываете макросы:
Ну хотя бы ради приличия запустили бы оттестили:
1. Макрос F0406007.mac
Обязательно вставить условие на код операции хотя бы покупки продажи...например:
var kod_oper;
IF (exoperat.Kind_Oper==6)
kod_oper="01";
ElIF
(exoperat.Kind_Oper==7)
kod_oper="02";
End;
вывод осуществлять уже не exoperat.Kind_Oper а kod_oper соответственно.
2. Тот же макрос:
Присмотримся к выводу на печать справки откройте положение 113-И Приложение 6
1...
2...
3...
Курс вида операции идет под пунктом 9, а до него сведения о клиенте,
таким образом макрос опять меняется и становится вот таким:
MACRO PutF0406007( addr )
SetBuff( exoperat, addr ); /* буфер записи текущей операции */
var Отчет = CMakeReport();
var kod_oper;
IF (exoperat.Kind_Oper==6)
kod_oper="01";
ElIF
(exoperat.Kind_Oper==7)
kod_oper="02";
End;
IncomeCurrencyString(0) = "";
IncomeCurrencyString(1) = "";
IncomePayDocString (0) = "";
IncomePayDocString (1) = "";
OutCurrencyString (0) = "";
OutCurrencyString (1) = "";
OutPayDocString (0) = "";
OutPayDocString (1) = "";
ЗаполнитьПоля();
Отчет.AutoScan(
"[x02: \n" +
" ########################### \n" +
" ########################### \n" +
" ########################### \n" +
"#######################################################################################\n" +
"# \n" +
"#######################################################################################\n" +
"# \n" +
"#######################################################################################\n" +
"# \n" +
"#######################################################################################\n" +
"# \n" +
"Порядковый номер операции # \n" +
"Дата и время совершения операции ########## ######## \n" +
"Код вида операции ## \n" +
"#######################################################################################\n" +
"# \n" +
"#######################################################################################\n" +
"# \n" +
"Курс операции # \n" +
" ПРИНЯТО ОТ КЛИЕНТА: \n" +
"Наличная валюта: \n" +
" код валюты ### сумма ########### \n" +
" сумма прописью ############################################################### \n" +
" ############################################################### \n" +
"Чеки: \n" +
" код валюты ### сумма ########### количество ### \n" +
" сумма прописью ############################################################### \n" +
" ############################################################### \n" +
" ВЫДАНО КЛИЕНТУ: \n" +
"Наличная валюта: \n" +
" код валюты ### сумма ########### \n" +
" сумма прописью ############################################################### \n" +
" ############################################################### \n" +
"Чеки: \n" +
" код валюты ### сумма ########### количество ### \n" +
" сумма прописью ############################################################### \n" +
" ############################################################### \n" +
" \n" +
" \n" +
"Подпись кассового работника ________________ ########################### \n" +
" (фамилия, и., о.) \n" +
" ]()",
"СПРАВКА" ,"c:ex_FS(b)",
"О СОВЕРШЕННОЙ ОПЕРАЦИИ" ,"c:ex_FS(b)",
"С НАЛИЧНОЙ ВАЛЮТОЙ И ЧЕКАМИ" ,"c:ex_FS(b)",
"ООО 'Евразбанк'" ,"ex_FS(u)",
"(наименование уполномоченного банка (филиала уполномоченного банка))" ,"ex_FZ(8)",
"1274" ,"ex_FS(u)",
"(регистрационный номер уполномоченного банка (порядковый номер филиала уполномоченного банка))","ex_FZ(8)",
{Post_Addr} ,"ex_FS(u)",
"(почтовый адрес уполномоченного банка (филиала уполномоченного банка))","ex_FZ(8)",
{ExAddress} ,"ex_FS(u)",
"(почтовый адрес обменного пункта)" ,"ex_FZ(8)",
exoperat.OrderNum ,"l", // Порядковый номер операции
exoperat.Date ,"l", // Дата совершения операции
string(exoperat.Time) ,"l", // и время
kod_oper ,"",// Код вида операции
exoperat.Sname + " " + exoperat.Name + " " + exoperat.Pname ,"ex_FS(u)",
"(фамилия, имя, отчество физического лица)*" ,"ex_FZ(8)",
PaperTypeName( exoperat.ClientDocType ) + " " + exoperat.ClientDocSeria + exoperat.ClientDocNumber,"ex_FS(u)",
"(наименование, серия и номер документа, удостоверяющего личность физического лица)*" ,"ex_FZ(8)",
exoperat.Kurs ,"l", // Курс операции
IncomeCurrencyISO ,"l", // Код валюты
IncomeCurrencyAmount ,"11:2",// Сумма
IncomeCurrencyString(0) ,"l", // Сумма прописью
IncomeCurrencyString(1) ,"l", // Сумма прописью
IncomePayDocISO ,"l", // Код валюты
IncomePayDocAmount ,"11:2",// Сумма
IncomePayDocQuantum ,"l", // Количество
IncomePayDocString(0) ,"l", // Сумма прописью
IncomePayDocString(1) ,"l", // Сумма прописью
OutCurrencyISO ,"l", // Код валюты
OutCurrencyAmount ,"11:2",// Сумма
OutCurrencyString(0) ,"l", // Сумма прописью
OutCurrencyString(1) ,"l", // Сумма прописью
OutPayDocISO ,"l", // Код валюты
OutPayDocAmount ,"11:2",// Сумма
OutPayDocQuantum ,"l", // Количество
OutPayDocString(0) ,"l", // Сумма прописью
OutPayDocString(1) ,"l", // Сумма прописью
"/ " + {FIO_oper} + " /" ,"l", // Подпись кассового работника
);
Отчет.PrintRep();
if( ОТЧЕТ_В_EXCEL )
Отчет.PrintWinRep("Закладка1");
Отчет.ShowWinRep();
end;
END;
3. Макрос по формированию реестра,
строка 129 9 позиция, переменная Cose необходимо заменить на Code
на тестовой базе проведено порядка 50 валютнообменных операций, пока кроме шапки реестра не вижу в распечатке не одной, опять жизнь борьба Программисты банка FOREVER.
С уважением, Кузьминов Денис Владимирович
Начальник технологического обеспечения
банковских операций ООО "Евразбанк"
тел. +7 (095) 933 5868 доб. 534
e-mail: kuzminov@evrazbank.ru
>> Ответить- Re: ( Denska 21.06.2004 10:58 )0(0)Ну вот Вам ответ Чамберлена:
макрос по формированию реестра:
Жаль что макрос пишут люди, и не оставляют о себе координат... rexoprl.mac
file exop("exoperat.dbt","exchange.def"); - 9 строка
Строка должна выглядеть
file exop("exoperat.dbt","exchange.def") key 4;
Строка 129:
elif (Cose == 18)
а будет
elif (Code == 18)
вот тогда заработает и всего то час борьбы....
>> Ответить- новая версия справки ( Волкова Елена 21.06.2004 13:25 )0(0)Сегодня силами наших специалистов была доработана справка, в связи с чем только что был обновлен пример.
>> Ответить
- невозможно открыть файл trlocale.d32 ( novnik 09.07.2004 18:49 )0(0)Ошибка or_rep_h.mac строка 17[8]: невозможно открыть файл trlocale.d32.
В Windows выскакивает окно exchn32.exe -
Не удалось найти компонент : Приложению не удалось запуститься, поскольку cw3220.DLL не был найден.
Что за cw3220.DLL внутри trlocale.d32?
Retail 5.10.071.12
>> Ответить
