: exppib1.prg : /рж 2007 : чист база BANK_EXTRACT копи . TEMP1 база TEMP1 добави -2 добави 1 вмкред(1,-6) б countrr(0) поле (б,4)=1 поле (б,5)=2 поле (б,2)=3 създай pib(22,12,34,33) смес . б pib база pib отрезф(1,0) добави -1 б countrr(0) блок $(1,4,б,4)+пълен_текст изтр TEMP1 : /рж 2007 READ_PERIOD.PRG база TRANSPORT_BANKI.BSF рба present('ПИБ',1,1,1) ако рба<2 кажи ##не_е_намерена_банка_ПИБ крайако посочен scell(рба,6) база pib den dmonth(месец,година) ако den <10 то den '0'+den mesec rtost(месец) ако месец <10 то mesec '0'+mesec god scopy(rtost(година),3,2) : pib_fail_ '_D_A:\O'+den+mesec+god+'P.DP1' pib_fail '_D_'+посочен+'\O'+den+mesec+god+'P.DP1' : блок текст(1,1,countrr(0),countcc(0)) _D_A:TO_PIB.TXT блок текст(1,1,countrr(0),countcc(0)) @pib_fail