Інформаційна система обліку і аналізу розрахунків з постачальниками і підрядниками, Детальна інформація

fdata = ctod(str(lday,2)+'/'+str(_mm_,2)+'/'+str(_yy_,4))

do form getdata3 to ll

if empty(ll)

rele fdata

retu

endif

set textmerge on

set textmerge to t100004.txt noshow

set console off

public _br, ld, lk

_br = basesrahs

clrecv = ifused("recv")

clbases = ifused("bases")

clsaldos = ifused("saldos")

clclients = ifus\x6465\x5F28\x6C63\x6E75\x6F69\x736E\x295F\x0D0D\x6E5F\x6D61\x6F65\x6772\x3D20\x7220\x6365\x2E76\x616E\x656D\x690D\x2066\x6C63\x6572\x7663\x090D\x7375\x2065\x6E69\x7220\x6365\x0D76\x6E65\x6964\x0D66\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A\x2A2A

* Відбір даних по Д-ту вказаного рахунку

* та формування масиву відповідних рахунків

select * from bases ;

into table tdt1;

where dt = _br and month = _mm_ and year = _yy_ ;

order by codep

select * from tdt1 ;

into table tdt;

where daten <= fdata;

order by codep

public dime rds(1)

select distinct kt from tdt into array rds

ld = alen(rds)

if ld = 1 and empty(rds(1))

rds(1) = ' '