Группа: Пользователи
Сообщений: 1
Спасибо сказали: 0 раз
Рейтинг: 0
Запустить данную обработку в BAS ERP не получается возможным, из-за как я догадываюсь отсутствия(скорее всего других) общих модулей Ввиду того что код обработки закрыт, исправить не получится . Может автор поможет? Код
Помилка ініціалізації модуля: ВнешняяОбработка.ОбмінЗБанком.Форма.Обробка.Форма через: {ВнешняяОбработка.ОбмінЗБанком.Форма.Обробка.Форма(158,118)}: Змінна не визначена (УчЕтЗАРплАты) FUNCTion ____________а___(VAl _A_,рАхуНоКобЛІКУ,_______________а_,____А_____,__________А____)____________________a__=<<?>>УчЕтЗАРплАты.полУЧитьДаНныеведОМОстЕйДЛяНАлОГОв(_A_,РАХуноКОБлІку,_______________а_,____А_____,__________А____);If раХУНОкОблІку=cHaRtSofacCoUnTs.ХОЗрАсЧетНый.расЧеТыпОобязаТеЛьНыМПлатЕжАм THen _______________а_=уЧЕтндфЛ.ЗНАчЕНИявОЕнныйСбОр().НалОГ;eNdIf;rETuRn ____________________a__;eNdfuncTiON {ВнешняяОбработка.ОбмінЗБанком.Форма.Обробка.Форма(322,2092)}: Змінна не визначена (УчЕтЗАРплАты) funCTiOn _____________________А___(val _A_,vaL рахуНокОБЛіКУ,VaL _______________А_,ОБлІКзАрпЛАТиУзОВнІШнІйПРоГРамІ)ВедоМоСТи=nEw ArRay;веДомОсТи.ДобАвить(_A_);if ОБліКзарПЛАТиузОВнІШНійпрогРамІ Then тАБЛицавеДоМОстЕй=DoCumeNTS.ведомОстьНАВыплатУзАрПЛаты.дАНныеВедомосТЕЙ(ВЕДомоСТи,enUMs.сПоСОбыВыПЛаТыЗАРПлАты.черЕзБАНК);суММадОКуМеНТа=тАбЛИЦАвЕДомостЕй.иТог(_______________A_____("1FTWKQD7XJMX3UISJ8"));If VaLueISfillED(_A_)aND сУММАДОКУмЕнТА=______а____("FJ") ThEN теКСТсОобщеНиЯ=строковыЕФУНкЦииКлиенТСеРВЕР.подставиТьПАрАмеТРывСтРоКу(NSTR("ru='По документу %1 нет сумм к выплате!';uk='За документом %1 немає сум до виплати!'"),_A_.СсыЛКА);текСтСООбщЕНия=ОБщЕГОнАЗНачЕНиЯбПКлИЕНтсЕрВеР.получитьТЕкСТсоОБщенИя(_______________A_____("LKKVVFNC3"),_______________A_____("7QYLC718D9FSPCBF"),NsTr("ru='Ведомость';uk='Відомість'"),_______________А_,nStR("ru='Перечисление заработной платы';uk='Перерахування заробітної плати'"),текСТсоОБЩеНиЯ);шаблонпоЛЯ=_______________A_____("449W1TO0B2C8HP23UZZEXCNS7JMQVUV64BBS1F26479TX6");пОле=СТРоКовыЕФуНкЦиИКЛИенТсЕРвеР.поДстАвиТьПараМЕТрывстрОку(шаБлОНпОЛЯ,format(_______________А_-______а____("G0"),_______________A_____("HOMPVFWMX1N")));ОБщЕГоНазНАчЕнИЯКлИенТсЕрвер.сообЩитьпОльзОваТЕлЮ(ТЕкстсообщЕния,,ПОЛЕ,_______________A_____("12PJFABZV"));enDiF;ТабЛИЦадоКУМЕНтОВОплаты=ТаблицАвЕдоМОстЕЙ.СКОпиРОВАТь();ТАбЛицаДоКуМеНТОвОпЛаТы.СвеРнУТь(_______________A_____("DGZOLIDNFWF5CBC90V5QVCER0C0"),_______________A_____("1FTWKQD7XJMX3UISJ8"));If valuEIsFILLED(рАХуНОКОбЛікУ)THEn FOR eACh СТрОКаоплаты in табЛИЦаДОКумеНтОвОплАТы Do iF стРокаоплаТы.СЧЕтУчЕТА=рАХуНокОблІку thEN cONtInUe;EnDIF;ТАБЛИЦАдоКУМЕнтОвоПлаты.удАлИТь(стРоКаоПлАТы);eNddO;enDiF;IF ТАбЛицАДоКУмЕнТОвОпЛаты.кОлИчЕство()=______а____("G0") THeN ПЛАтеЖ=nEw sTrUcTUrE;плАтеЖ.ВСТАВИть(_______________A_____("DVMDRTW3MNE9"),ТАбЛИцАДокумЕНтОвОплаты[______а____("FJ")].счЕТуЧЕта);плАтеЖ.ВсТавИТь(_______________A_____("1FTWKQD7XJMX3UISJ8"),таБЛИцадОкУМенТОВОпЛаты[______а____("FJ")].СуммаКвыПлАТе);REturN ПлаТЕЖ;eLsE rETURn UNdeFINed;eNDiF;elSE _A_=ВЕдомоСТи[______а____("FJ")];ТабЛИЦАВЕДомОстеЙ=<<?>>учеТЗАРПлаты.ПОЛУчиТьДаННыЕвЕДОМоСтейДлЯопЛАтытабЛИчНо(dOcUMeNTS.СПиСАниесраСчетНОГоСЧЕтА.пУсТаЯСсыЛКа(),ведомосТи);ТаБЛиЦаДОКумЕнтОВоплаты=ТабЛИцАвеДОМОстеЙ.скоПиРОвАть();таБлиЦАДОКУменТОВоПлаТы.свеРНУть(_______________A_____("DGZOLIDNFWF5CBC90V5QVCER0C0"),_______________A_____("1FTWKQD7XJMX3UISJ8"));IF valuEIsFillED(рАХУНОкоБлІку)ThEN FoR EAcH стРОКАОплаты IN ТАбЛИЦаДОкумЕНтОвоПлАты DO IF сТрОКАОпЛАТы.СчетУчетА=РахуНоКОбЛіКУ tHen ConTinUe;ENdIF;ТабЛиЦаДокуМеНТОВоПлАты.УдАЛиТь(сТРОКАОПлАты);eNddO;eNdif;веДОМоСтьОплАЧЕнА=fALSE;If ТАБлИЦАдокУМенТоВОплаТы.коЛИчЕствО()=______а____("FJ") THen ВедОМОстьоПлАчЕнА=trUE;EndIf;If вЕДоМоСтьопЛачЕна tHEN тЕКСтсОоБЩЕНия=сТроКовыЕФунКцИиклиЕнТСЕрвеР.подсТаВитьПАрАмЕтрывСтРокУ(nSTR("ru='Документ %1 полностью оплачен!';uk='Документ %1 повністю оплачений!'"),_A_.СсыЛкА);ТЕКсТсОоБщЕНиЯ=обЩЕгОНАЗНаЧенИЯБпклИенТСЕРвЕР.получИтьтЕКСТСООбщЕнИя(_______________A_____("LKKVVFNC3"),_______________A_____("7QYLC718D9FSPCBF"),NStR("ru='Ведомость';uk='Відомість'"),_______________А_,NsTr("ru='Выплата заработной платы';uk='Виплата заробітної плати'"),тЕКСТСоОбщеНия);ШАбЛонполЯ=_______________A_____("449W1TO0B2C8HP23UZZEXCNS7JMQVUV64BBS1F26479TX6");ПоЛЕ=сТрОкоВыЕфуНкциИКлиентсервер.поДСтавитьпаРАМетрывСтРокУ(шабЛоНПолЯ,FoRMAT(_______________А_-______а____("G0"),_______________A_____("HOMPVFWMX1N")));ОбЩЕгоНазНАчЕНИяКлиенТсЕРВЕр.СооБЩИтьпОЛьзОВАтЕЛЮ(ТЕКсТСооБЩения,,поЛЕ,_______________A_____("12PJFABZV"));пЛАТеЖ=NEW STRuCTuRE;пЛАТеЖ.ВСТавИть(_______________A_____("DVMDRTW3MNE9"),рахУнокОбліКУ);ПлАТеж.ВСтАвИТь(_______________A_____("1FTWKQD7XJMX3UISJ8"),______а____("FJ"));rETurN ПЛАТеж;elsiF ТАбЛиЦАДОкУМЕНтОВОпЛаты.кОлИЧЕсТВо()=______а____("G0") then ПлАТеж=NeW stRUCTuRE;пЛАтеж.вСтАвить(_______________A_____("DVMDRTW3MNE9"),ТАБЛИЦАдокумеНтОвопЛаты[______а____("FJ")].СЧетУчЕта);пЛаТЕЖ.ВсТаВить(_______________A_____("1FTWKQD7XJMX3UISJ8"),таБЛиЦаДоКУмЕНтОвОПлаТы[______а____("FJ")].сУмМАКвыПлАте);rEtUrn ПЛаТЕЖ;ELSe rEturn unDeFiNED;endiF;ENdif;rETuRN unDEfiNeD;EndfuNcTIon
Группа: Пользователи
Сообщений: 28
Спасибо сказали: 2 раз
Рейтинг: 0
Cпасибо в BAS Бухгалтерия Корп получилось, ошибка была в файле выгрузке от Укрсиббанка, пришлось изменить формат обмена Ibank для работы с Укрсиббанком
Столкнулся с непонятной проблемой - в файловой версии базы выписка нормально загружается, недавно перевели базу на SQL-платформу и теперь вместо загрузки получаю такое сообщение: Не знайдено файл виписки "D:\Bases\XXXXXXXXXXXXXXXXXXXXXXX\u191020.dbf"
При этом файл имеется, права на папку есть.
Проверил под другим пользователем(у него другой путь и файл) - в файловой версии грузится выписка, в SQL-версии получаю тоже самое сообщение - Не знайдено файл виписки
Подскажите, пож-та в чем может быть причина проблемы?
Группа: Местный
Сообщений: 2905
Из: Київ, Україна
Спасибо сказали: 1147 раз
Рейтинг: 1228.9
kserg2012 @ Today, 16:30
, Обработка обмена передает в обработку формата полное имя файла выписки на клиенте (для информации) и адрес хранения данных файла во временном хранилище. Если в обработке формата вместо обращения ко временному хранилищу происходит обращение по полному имени файла, то, в клиент-серверном варианте будет ошибка, т. к. на сервере файла выписки нет (он есть только на клиенте). В файловом же режиме клиент и сервер - одна и та же машина.
Допрацьовую: - "Бухгалтерія для України 2.1"; - "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".
Причина ошибки в том, что функция ПолучитьИмяВременногоФайла("dbf") генерит имя времен.файла, длина имени которого более 8 символов. И при открытии DBF скорее всего и получаю эту ошибку
Группа: Местный
Сообщений: 2905
Из: Київ, Україна
Спасибо сказали: 1147 раз
Рейтинг: 1228.9
kserg2012 @ Yesterday, 18:02
, Да. Я для dbf обычно пишу свой генератор временного имени файла. Генерирую в цикле имя и проверяю наличие файла во временном каталоге.
Допрацьовую: - "Бухгалтерія для України 2.1"; - "Альфа-Авто: Автосалон+Автосервіс+Автозапчастини, українська версія".
Группа: Пользователи
Сообщений: 98
Спасибо сказали: 14 раз
Рейтинг: 14.3
Цитата(Petre @ 20.10.20, 7:54)
для dbf обычно пишу свой генератор временного имени файла. Генерирую в цикле имя и проверяю наличие файла во временном каталоге.
спасибо я тоже пришел к такому же решению
вот может кому то пригодится:
//ТмчНазваФайлу = ПолучитьИмяВременногоФайла("dbf"); //Данная функция возвращает ДЛИННОЕ имя файла, что не приемлемо для XBase ТмчНазваФайлу = КаталогВременныхФайлов()+Лев(Новый УникальныйИдентификатор(),8)+".dbf";
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!