Автоматизація господарської діяльності ВАТ "Коломийський сирзавод", Детальна інформація

set talk off

close databases

clear windows

do dtop

erase prm12.idx

select a

use amortiz

index on nazva to prm12.idx compact

ERASE m12m1ind.idx

select b

use dovvid

index ON NAZVAV TO m12m1ind.idx COMPACT

select c

\x7375\x2065\x6966\x746C\x7265\x730D\x6C65\x6365\x2074\x0D61\x6669\x6320\x662E\x6172\x2178\x303D\x090D\x6573\x2074\x6966\x746C\x7265\x7420\x206F\x2E61\x726E\x7861\x633D\x662E\x6172\x0D78\x6C65\x6573\x0D20\x6E65\x6964\x0D66\x6573\x2074\x6966\x746C\x7265\x7420\x206F\x6562\x7774\x6565\x286E\x2E61\x6164\x6174\x632C\x662E\x6164\x6174\x2C31\x2E63\x6466\x7461\x3261\x0D29\x6669\x6320\x662E\x7267\x2170\x303D\x090D\x6573\x2074\x6966\x746C\x7265\x7420\x206F\x7267\x7075\x3D61\x2E63\x6766\x7072\x650D\x736C\x2065\x650D\x646E\x6669

if alltrim(c.fnazva)!='Назва'

set filter to nazva=c.fnazva

else

endif

if c.fbalv1!=0.and.c.fbalv2!=0

set filter to between(balrax,c.fbalv1,c.fbalv2)

else

endif

if c.fzal1!=0.and.c.fzal2!=0

set filter to between(Amrt,c.fzal1,c.fzal2)

else

endif

define popup m12m01 prompt field b.nazvav from 1,50 shadow

on selection popup m12m01 do m01b1pr with recno() in m12_2.prg

DEFINE WINDOW m12w1 FROM 2,0 TO 22,79 double shadow COLOR SCHEME 1

ACTIVATE WINDOW m12w1