| йНЛЛЕМРЮПХХ |
оПНЦПЮЛЛЮ *оПНЦПЮЛЛЮ ДКЪ ПЮЯВЕРЮ дкъ пюяверю щйбхбюкемрнб он бнде х ясллш лнкейск *юБРНП б.д.аПСЯМХЖШМ PROCEDURE geo_wekv SET TALK OFF SET ECHO OFF CLOSE DATA CLEAR DEFINE POPUP obj_fil PROMPT FILES LIKE *.DBF; MESSAGE "бшапюрэ тюик дкъ пюяверю щйбхбюкемрнб он бнде х ясллш лнкейск"; TITLE "бшапюрэ тюик дкъ пюяверю щйбхбюкемрнб он бнде х ясллш лнкейск" ON SELECTION POPUP obj_fil DEACTIVATE POPUP obj_fil ACTIVATE POPUP obj_fil USE PROMPT() NOUPDATE vorname = PROMPT() vorname = SUBSTR(vorname,1,LEN(vorname)-6) imia = "EK" viv_file =vorname+ALLTRIM(imia)+'.dbf' COPY TO &viv_file CLEAR DEFINE POPUP obj_fil PROMPT FILES LIKE *.DBF; MESSAGE "бшапюрэ тюик щрюкнмнб дкъ пюяверю щйбхбюкемрнб он бнде х ясллш лнкейск"; TITLE "бшапюрэ тюик щрюкнмнб дкъ пюяверю щйбхбюкемрнб он бнде х ясллш лнкейск" ON SELECTION POPUP obj_fil DEACTIVATE POPUP obj_fil ACTIVATE POPUP obj_fil USE PROMPT() NOUPDATE DEFINE POPUP obj_fiel PROMPT FIELD EVAL(FIELD(1)); MESSAGE "бшапюрэ щрюкнм дкъ пюяверю щйбхбюкемрнб он бнде х ясллш лнкейск"; TITLE "бшапюрэ щрюкнм дкъ пюяверю щйбхбюкемрнб он бнде х ясллш лнкейск" ON SELECTION POPUP obj_fiel DEACTIVATE POPUP obj_fiel ACTIVATE POPUP obj_fiel SCATTER MEMVAR USE &viv_file beg = f_fiel() konec = FCOUNT() FOR i = beg TO konec pii = FIELD(i) alter table &viv_file alter column &pii N(10,3) pii1 = pii+"_k" REPLACE ALL &pii WITH &pii/m.&pii ALTER TABLE &viv_file RENAME COLUMN &pii TO &pii1 ENDFOR ALTER TABLE &viv_file ADD COLUMN "SUMME" N(10,2) ALTER TABLE &viv_file ADD COLUMN "Spectr" C(250) ALTER TABLE &viv_file ADD COLUMN "SpDrei" C(30) GO TOP DO WHILE !EOF() sum_Kk = 0 kol = 0 FOR j = beg TO konec jj = ALLTRIM(STR(j)) pj = FIELD(j) sum_Kk = sum_Kk + &pj ENDFOR REPL SUMME WITH sum_Kk DO specgeol SKIP ENDDO CALC MAX(LEN(ALLTRIM(Spectr))) TO dlsp CALC MAX(LEN(ALLTRIM(Spdrei))) TO dlspd ALTER TABLE &viv_file ALTER COLUMN "Spectr" C(dlsp) ALTER TABLE &viv_file ALTER COLUMN "SpDrei" C(dlspd) CLOSE ALL мЮ ЦКЮБМСЧ ЯРПЮМХЖС |
| brusmann@mail.ru AbacusComp@yandex.ru © бЮЯХКХИ аПСЯМХЖШМ. хБДЕКЭ-еЙЮРЕПХМАСПЦ, 2010 Ц. яБ. НАК. лНРХБ +79045490809 | |
