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

@ 3,1 say 'Введіть понижуючий коефіцієнт ' get c.g3p2 picture '##.##'

read

replace c.p1 with c.g3p1

replace c.p2 with c.g3p2

otherwise

return

endcase

clear windows

do dtop

define window newd from 3,3 to 17,75 title 'Введення нових даних' double shadow

activate window newd

define popup p1 from 0,55

define bar 1 of p1 prompt '23'

define bar 2 of p1 prompt '231'

define bar 3 of p1 prompt '24'

define bar 4 of p1 prompt '26'

define bar 5 of p1 prompt '44'

define bar 6 of p1 prompt '81'

on selection popup p1 do raxproc with prompt()\x0D0D\x6573\x656C\x7463\x6220

@ 0,2 SAY 'ВИБЕРІТЬ ВІДДІЛ'

DEFINE POPUP P01 PROMPT FIELD NAZVAV FROM 1,6 SHADOW

ON SELECTION POPUP P01 DO PR01 WITH RECNO()

ACTIVATE POPUP P01

PROCEDURE PR01

PARAMETER RR

SELECT B

GO TOP

GOTO(RR)

KOD=KODV

define window newd from 3,3 to 17,75 title 'Введення нових даних' double shadow