/* Выгрузка расходных расписаний 104н в формате МинФина */
create or replace procedure P_BFEXPSHD104N_MFUPLOAD

(

Строка 351: Должность руководителя выбирается из соответствующего поля контрагента

BA.AGNNAME                        sNAME_FO,
/*ra:*/    RDA.EMPPOST                                    sDOL_RUK,
RDA.AGNABBR                       sNAME_RUK,

Строка 482: Исправляется символ уровня бюджета, передаётся отобранная должность руководителя и другой код УБП

/* добавляем строку FROM */
sLINE := GenerateFrom(null, null, /*ra:*/'1'/*cur.nBUDG_LEVEL*/, cur.sKOD_UBP, cur.sNAME_UBP) || cCR;
dbms_lob.writeappend(lDATA, length(sLINE), sLINE);

/* добавляем строку TO */
sLINE := GenerateTo(cur.sKOD_TOFK, cur.sNAME_TOFK, /*ra:*/null/*cur.nBUDG_LEVEL*/, null, null) || cCR;
dbms_lob.writeappend(lDATA, length(sLINE), sLINE);
end if;

/* добавляем строку AP */
sLINE := GenerateAP(null, null, null, cur.sKOD_UBP, cur.sNAME_UBP, cur.sGLAVA_GRS, cur.sNAME_GRS,
cur.sLS_UBP, cur.sKOD_TOFK, cur.sNAME_TOFK, cur.sNAME_BUD, cur.sNAME_FO, /*ra:*/cur.sDOL_RUK, cur.sNAME_RUK,
cur.sDOL_ISP, cur.sNAME_ISP, cur.sTEL_ISP, cur.dDATA_POD_RR, cur.dDATE_BU, null, cur.dDATA_POD_RR_ISP) || cCR;

dbms_lob.writeappend(lDATA, length(sLINE), sLINE);

/* добавляем строку APRC */
sNOM_RR := TrimEx(cur.sGLAVA_GRS, 3) || '/' || TrimEx(/*ra:*/cur.sKOD_UBP2, 5) || '/' || TrimEx(cur.sDOCNUMB, 3);
sLINE := GenerateAPRC(null, sNOM_RR, cur.dDATE_FORM_RR, cur.dDATE_UTV_RR, to_char(cur.nVID_RR), cur.sKOD_UBP2,