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

activate window newd

r=1

do while r=1

clear

SELECT A

go bottom

lich=npp

APPEND blank

go bottom

replace npp with (lich+1)

replace GRP with KOD

replace grupa with g

CLEAR

@ 0,3 say 'Внесення ОЗ в '+b.nazvav+alltrim(str(G))+' група'

@ 1,1 say 'Введіть номер рахунку'

activate popup p1

@ 1,37 say 'Вибрано '+str(nrax)

@ 3,1 say 'Введіть дату придбання ОЗ'

@ 3,37 get data picture '##/##/##'

@ 4,1 say 'Введіть інвентарний номер'

@ 4,37 get invnom

@ 5,1 say 'Введіть назву засобу'

@ 5,22 get nazva

@ 6,1 say 'Введіть балансову вартість'

@ 6,37 get balrax picture '#######.##'

@ 7,1 say 'Введіть вартість на початок кварталу'

@ 7,37 get cena picture '#######.##'

read

replace oper1 with round(cena*C.P1*C.P2/100,2)

replace amrt with cena-oper1