Экспорт уведомлений на уточнение

[Val]

Не исправился код формата в ФункцииДляУФК.abl, до сих порт стоит 11 вместо 21.

Код: Выделить всё

функция ПолучитьКодФормата(Счет:целое): целое;
переменные
  ссВспом: СтатическиеДанные;
начало
  ссВспом := СоздатьСтатическиеДанные;
  ссВспом.СоединитьБД;
  ссВспом.Запрос := "[PumpData]{Select CodeFormat, ACC_Ref from ClientDFAccountList where (((CodeFormat>=1100) and (CodeFormat <= 1199)) or (CodeFormat = 11)) and (ACC_Ref = @Acc)}";
  ссВспом.Параметр("Acc") := Счет;
  ссВспом.Открыть;
  если ссВспом.ЧислоЗаписей > 0 тогда
  начало
    результат := ссВспом.Поле("CodeFormat").КакЦелое;
  конец 
  иначе
    результат := нет;
конец;

[Val]

этого поля уже нет в ссДетализацияИсх

Код: Выделить всё

ссДетализацияИсх.IndexFieldNames := "-NotEqual";

этого поля уже нет в ссЗаголовок

Код: Выделить всё

Шаблон.Поле("reason") := ПреобразоватьСтроку(ссЗаголовок.Поле("NoteEx").КакСтрока);

что за фигня. может я не накатил какое то обновление...

[Val]

После исправлений ушли уведомления. Вроде даже нормально.

[Val]

В экспорте уведомлений на уточнение (код на кнопке) пришлось внести изменения:

в основной чтоб окато вставились

Код: Выделить всё

   ЗаполнитьИсходныйЗаголовок;
    Шаблон.SectionNext;
    ЗаполнитьИсходнуюКБК;
    //сообщение(Разыменовать("Р/с.Организация.ОКАТО.Код",ссЗаголовок.Поле("OriginalAcceptorACC_REF").КакСтрока));
    Шаблон.SectionNext;
    ЗаполнитьНовуюКБК;
    //сообщение(Разыменовать("Р/с.Организация.ОКАТО.Код",ссВспом2.Поле("ChangeACC_REF").КакСтрока));
    буфер := ЛевоеВыравнивание(ПравоеВыравнивание(Разыменовать("Р/с.Организация.ОКАТО.Код",ссВспом2.Поле("ChangeACC_REF").КакСтрока),8,"0"),11,"0");
    ссЗаголовок.Следующая;
    //Val окато вставил 18032009
    если ссДетализацияИсх.ЧислоЗаписей = 1 и ссВспом2.ЧислоЗаписей = 1 тогда
    начало
        Шаблон.SectionPrev;
        Шаблон.Поле("okato") := буфер;
        Шаблон.SectionNext;   
        Шаблон.Поле("okato") := буфер;
    конец;   
    //-----------
    если не ссЗаголовок.ВКонце тогда
    начало
      Шаблон.SectionUp;

в ЗаполнитьОтправителяПолучателяУведомления выбор отправителя по бюджету

Код: Выделить всё

 //выбор отправителя val 18032009
  выбрать ссзаголовок.Поле("BudgetRef").КакСтрока из
       146 :
       начало
  XmlData.FieldValue('kod_ubp') := "01190";
  XmlData.FieldValue('name_ubp') := "ФУ ДФБК в Ейском районе";
       конец;
       147 :
       начало
  XmlData.FieldValue('kod_ubp') := "00444";
  XmlData.FieldValue('name_ubp') := "Администрация Александровского сельского поселения Ейского района";
       конец;       
       148 :
...............


в заполнитьИсходныйЗаголовок главу

Код: Выделить всё

//Val главу вставил 18032009
  Шаблон.Поле("glava_grs") := ссДетализацияИсх.Поле("KVSR").КакСтрока;

повторно лс по требованию нашего ОФК

Код: Выделить всё

  Если ФормаВводаИнтерфейса.КодИнтерфейса = 5501 тогда
  начало
    // val добавил LS_UBP по требования ОФК 18.03.2009
    Шаблон.Поле("ls_ubp") := ссЗаголовок.Поле("OriginalAcceptorFKLS").КакСтрока;
    Шаблон.Поле("ls_fo") := ссЗаголовок.Поле("OriginalAcceptorFKLS").КакСтрока;
...................
  начало
     // val добавил LS_UBP по требования ОФК 18.03.2009
    Шаблон.Поле("ls_ubp") := ссЗаголовок.Поле("OriginalPayerFKLS").КакСтрока;
    Шаблон.Поле("ls_fo") := ссЗаголовок.Поле("OriginalPayerFKLS").КакСтрока;
    Шаблон.Поле("name_tofk") := ссЗаголовок.Поле("OriginalPayerFKOrgName").КакСтрока;


[Val]

еще чуть подправили

Код: Выделить всё

/// Заполняется заголовок уведомления
функция ЗаполнитьИсходныйЗаголовок;
переменные
 НомерУведомления, guid_fk : строка;   
начало
 НомерУведомления := ссЗаголовок.Поле("DocNumber").КакСтрока;
 guid_fk := Подстрока(GenerateGUID,2,36);
 Шаблон.Поле("guid_fk") := guid_fk;
 ссЗаголовок.Поле("DocNumber").КакСтрока := guid_fk;
 Шаблон.Поле("nom_uf") := НомерУведомления;
 Шаблон.Поле("date_uf") := DateExToStr(ссЗаголовок.Поле("InputDate").КакЦелое);
 Шаблон.Поле("name_bud") := Разыменовать("Бюджет.ПолноеИмя",ссЗаголовок.Поле("BudgetRef").КакЦелое);
 Шаблон.Поле("name_ubp_fo") := Разыменовать("Бюджет.ЕдиныйСчет.Организация.Имя",ссЗаголовок.Поле("BudgetRef").КакЦелое);
 Шаблон.Поле("cname_pl") := ПреобразоватьСтроку(ссЗаголовок.Поле("OriginalPayerOrgName").КакСтрока);
 //Val главу вставил 18032009
 //Шаблон.Поле("glava_grs") := ссДетализацияИсх.Поле("KVSR").КакСтрока;
 если ссЗаголовок.Поле("OriginalPayerOrgInn").КакСтрока <> "" тогда
   //физическое лицо
   если Длина(ссЗаголовок.Поле("OriginalPayerOrgInn").КакСтрока) > 10 или (ссЗаголовок.Поле("OriginalPayerOrgInn").КакДробное = 0)тогда
   начало
     Шаблон.Поле("inn_pl") := ПравоеВыравнивание(ссЗаголовок.Поле("OriginalPayerOrgInn").КакСтрока,12,"0");
     Шаблон.Поле("pasp") := ПреобразоватьСтроку(ссЗаголовок.Поле("OriginalPayerOrgName").КакСтрока);
   конец 
   иначе
     Шаблон.Поле("inn_pl") := ПравоеВыравнивание(ссЗаголовок.Поле("OriginalPayerOrgInn").КакСтрока,10,"0");     
   
 Шаблон.Поле("dol_ruk") := Параметр(dbElExch,КодФормата,"ДолжностьРук");
 Шаблон.Поле("name_ruk") := Параметр(dbElExch,КодФормата,"ФИОРук");
 ЗаполнитьДанныеПользователя(КодФормата, Шаблон);
 Шаблон.Поле("date_pod") := DateExToStr(ДатаОтправления);
 ЗакачатьПоМаппингу(Шаблон,ссЗаголовок,"kpp_pl=OriginalPayerOrgINN20,bs_pl=OriginalPayerAcc");
 Если ФормаВводаИнтерфейса.КодИнтерфейса = 5501 тогда
 начало
   // val добавил LS_UBP по требования ОФК 18.03.2009
   //Шаблон.Поле("ls_ubp") := ссЗаголовок.Поле("OriginalAcceptorFKLS").КакСтрока;
   Шаблон.Поле("ls_fo") := ссЗаголовок.Поле("OriginalAcceptorFKLS").КакСтрока;
   Шаблон.Поле("name_tofk") := "Отделение по Ейскому району Управления Федерального казначейства по Краснодарскому краю";//ссЗаголовок.Поле("OriginalAcceptorFKOrgName").КакСтрока;
   // val 18032009 было 18070
   Шаблон.Поле("kod_tofk") :=ссЗаголовок.Поле("ORIGINALACCEPTORFKCODE").КакСтрока;
   Шаблон.Поле("kod_tofk") := "1807";
 конец 
 иначе
 начало
    // val добавил LS_UBP по требования ОФК 18.03.2009
   //Шаблон.Поле("ls_ubp") := ссЗаголовок.Поле("OriginalPayerFKLS").КакСтрока;
   Шаблон.Поле("ls_fo") := ссЗаголовок.Поле("OriginalPayerFKLS").КакСтрока;
   Шаблон.Поле("name_tofk") := "Отделение по Ейскому району Управления Федерального казначейства по Краснодарскому краю";//ссЗаголовок.Поле("OriginalPayerFKOrgName").КакСтрока;
   // val 18032009 было 18070
   Шаблон.Поле("kod_tofk") := ссЗаголовок.Поле("ORIGINALPAYERFKCODE").КакСтрока;
   Шаблон.Поле("kod_tofk") := "1807";                                     
 конец;                                     
конец;

[vovan]

есть небольшой вопрос: Наше ОФК требует, что бы заполнялось примечание в уведомление (поле NOTE) Разумно было бы его подтянуть из "Основание" в заголовке уведомления. Как это реализовать?

И еще подскажите пожалуйста название таблицы где эти уведомления находятся(названя полей хочется посмотреть).

[Val]

И еще подскажите пожалуйста название таблицы где эти уведомления находятся(названя полей хочется посмотреть).

correctioncaption и correctiondetail

Наше ОФК требует, что бы заполнялось примечание в уведомление (поле NOTE) Разумно было бы его подтянуть из "Основание" в заголовке уведомления.

тут немножко не понял. В АС Бюджете у нас есть поле "Основание". Но это поле само по себе не попадает в экспортный файл, но вместе с полем "Примечание" попадает в "Примечание" уточняющего документа. Или я не прав?

[vovan]

Я имел в виду "примечание" в уведомлении на уточнение(поле NOTE) Уточняемого ПП, а примечание в новом документе - это новое назначение платежа!?

[Val]

Разумно было бы его подтянуть из "Основание" в заголовке уведомления

Поле "Основание" откуда?
1. Есть основание в АС Бюджет в заголовке уведомление. Оно:

Но это поле само по себе не попадает в экспортный файл, но вместе с полем "Примечание" попадает в "Примечание" уточняющего документа.

2. Есть "Основание" в СЭД, но оно, насколько я понял, вбивается только вручную.
Запихнуть можно куда угодно, вопрос - откуда брать.

[vovan]

Все верно- "основание" из АС Бюджет в заголовке уведомления. Чтобы попало в примечание(не путать с назначением ПП)Уведомления в СЭД -
в "функция ЗаполнитьИсходнуюКБК" небходимо добавить одну строчку

если РазыменовкаКодаЦели = "" тогда
РазыменовкаКодаЦели := "Тип_Средств.Код_Цели.Код";
Шаблон.Поле("add_klass") := РазыменоватьКодЦели(РазыменовкаКодаЦели,ссДетализацияИсх.Поле(ИмяКолонкиДляКодаЦели(РазыменовкаКодаЦели)).КакЦелое);
Шаблон.Поле("sum_pp") := SumToStr(ссДетализацияИсх.Поле("Summa").КакДробное,".",2);
//vova добавил
Шаблон.Поле("note") := ПреобразоватьСтроку(ссЗаголовок.Поле("BasicNote").КакСтрока);
//vova
ссДетализацияИсх.Следующая;

[vovan]

Еще одна проблемка возникла: почему то в секции UFPP_N вместо ЛС в ФК (11 знаков) прописывается двадцатизначный расчетный счет получателя.
UFPP_N|1|ГУП КК "Редакция газеты "Кореновские вести"|2335012570|233501001||40602810700370000008.............
В секции же UFPP - все нормально.

[Val]

У нас там помоему ставится то что в "Финансовый орган".

Код: Выделить всё

UFPP_N|1|Администрация Ейского городского поселения Ейского района|2306032420|230601001|03411000000|02183026730|99204093150203013223|10||54465.67|Элек/энер.светоф. объек,за март. сч.ф. 10-Э-4663 от 31.03.09, накл. 10-Э-4663 от 31.03.09,дог.1410 от 01.01.09|

[Val]

Уточняю: наши ручками в уточняющем документе в ас бюджет в "новую организацию" вбивают администрацию поселения или ФУ ДФБК и счет ее 02.