Экспорт в РКЦ ошибки

Все по эл. обмену
Аватара пользователя
Val
зам. председателя совета директоров
зам. председателя совета директоров
Сообщения: 2029
Зарегистрирован: 09.06.2004 08:52
Откуда: Ейск
Контактная информация:

Экспорт в РКЦ ошибки

Сообщение Val » 09.03.2006 16:07

У меня была ошибка при экспорте в формат РКЦ (возвраты налички) - не экспортировалось ИНН, КПП и вместо ФУ ДФБК г.Ейска писалось ФУ ДФБК г.Ейска (000000000).
Поправил у себя - на свой страх и риск:
********************************************
в макросе "ФункцииРегиона.abl"
// 15. ИНН клиента (плательщика)
//Val
// XmlData.FieldValue("payerinn") := Документы.Поле("SourceInn").КакСтрока;
XmlData.FieldValue("payerinn") := Документы.Поле("SourceIN_Inn").КакСтрока;
// 16. КПП Плательщика
//Val
// XmlData.FieldValue("payerkpp") := Документы.Поле("SourceKPP").КакСтрока; // new
XmlData.FieldValue("payerkpp") := Документы.Поле("SourceIN_KPP").КакСтрока; // new
********************************************
В ФормированиеПлатежек.abl (главная фича - предпоследняя строка,
остальное для ориентировки)
сфИмяЛСКакИмяВладельца,сфКурскОбл,сфКраснодарОбл :
///////////////////////////////////////////
начало
ссПлатежки.Поле(кор(к)+"INN").КакСтрока :=
ссПлатежки.Поле(кор(к)+"FA_INN").КакСтрока;
ссПлатежки.Поле(кор(к)+"KPP").КакСтрока :=
ссПлатежки.Поле(кор(к)+"FA_KPP").КакСтрока;
//в расшир имени плательщика имя плательщика берется из названия ЛС
//Val
// ссПлатежки.Поле(кор(к)+"FA_FullName").КакСтрока :=
// "("+ссПлатежки.Поле(кор(к)+"FA_ClsName").КакСтрока+
// ""+буквыЛСказн+ссПлатежки.Поле(кор(к)+"FA_Cls").DisplayText+")";
ссПлатежки.Поле(кор(к)+"FA_FullName").КакСтрока := ""
конец;
********************************************
при удалении пакета ошибку исправить - убрать третий аргумент при
вызове функции
(так как надо написал)
//Удаление файла пакета
Путь := ПолучитьПутьКФайлу(НомерПакета,ДатаПакета);
********************************************
Чтоб удаляла файл (у меня неверно формировался путь, не стал мударствовать :-) сделал статику)
//Удаление файла пакета
//Val
//Путь := ПолучитьПутьКФайлу(НомерПакета,"");
Путь := "G:\Day\" + НомерПакета;

Аватара пользователя
Val
зам. председателя совета директоров
зам. председателя совета директоров
Сообщения: 2029
Зарегистрирован: 09.06.2004 08:52
Откуда: Ейск
Контактная информация:

Сообщение Val » 10.03.2006 10:41

Убирать ЛС в возвратах решено вот так:
//в расшир имени плательщика имя плательщика берется из названия ЛС
//Val условие вставил чтоб на возвратах не было (00000000)...
// сообщение(ссПлатежки.Поле(кор(к)+"FA_Cls").КакЦелое);
если ссПлатежки.Поле(кор(к)+"FA_Cls").КакЦелое <> 0 тогда
начало
ссПлатежки.Поле(кор(к)+"FA_FullName").КакСтрока :=
"("+ссПлатежки.Поле(кор(к)+"FA_ClsName").КакСтрока+
" "+буквыЛСказн+ссПлатежки.Поле(кор(к)+"FA_Cls").DisplayText+")";
конец
иначе
начало
ссПлатежки.Поле(кор(к)+"FA_FullName").КакСтрока := ""
конец;

Аватара пользователя
Val
зам. председателя совета директоров
зам. председателя совета директоров
Сообщения: 2029
Зарегистрирован: 09.06.2004 08:52
Откуда: Ейск
Контактная информация:

Сообщение Val » 15.03.2006 13:31

вот это делать низя, проверил Андрей - пп на налоговую уходят неверно. нужно будет условие, что если если НалоговоеПримечание.Количество > 0 тогда по новому, иначе по старому или чтото аналогичное.
в макросе "ФункцииРегиона.abl"
// 15. ИНН клиента (плательщика)
//Val
// XmlData.FieldValue("payerinn") := Документы.Поле("SourceInn").КакСтрока;
XmlData.FieldValue("payerinn") := Документы.Поле("SourceIN_Inn").КакСтрока;
// 16. КПП Плательщика
//Val
// XmlData.FieldValue("payerkpp") := Документы.Поле("SourceKPP").КакСтрока; // new
XmlData.FieldValue("payerkpp") := Документы.Поле("SourceIN_KPP").КакСтрока; // new


Вернуться в «РКЦ,УФК, эл.обмен с банками»

Кто сейчас на конференции

Сейчас этот форум просматривают: Baidu [Spider] и 1 гость

cron