| Комментарии |
Программа *Подпрограмма f_fiel. Цель - выбор первого элемента для расчета. *возврвщает номер выбранного поля *Автор алгоритмов и программы В.Д.Брусницын PROCEDURE f_fiel DEFINE POPUP obj_fil PROMPT STRUCTURE; MESSAGE "ВЫБРАТЬ ПЕРВЫЙ ЭЛЕМЕНТ ДЛЯ РАСЧЕТА"; TITLE "ВЫБРАТЬ ПЕРВЫЙ ЭЛЕМЕНТ ДЛЯ РАСЧЕТА" ON SELECTION POPUP obj_fil DEACTIVATE POPUP obj_fil ACTIVATE POPUP obj_fil beginn = 1 DO WHILE beginn < FCOUNT() IF ALLTRIM(UPPER(FIELD(beginn)))==ALLTRIM(UPPER(PROMPT())) EXIT ELSE beginn = beginn + 1 ENDIF ENDDO RETURN beginn *Процедура fst_el для программы ГЕОКЛАСС. Предназначена *для автоматического определения первого элемента расчета *по окончанию полей с окончаниями "_K", "_R" и др. *Автор алгоритмов и программы В.Д.Брусницын PROCEDURE fst_el PARAMETERS bukva fst_el = 0 FOR i= 1 TO FCOUNT() pii = FIELD(i) IF UPPER(SUBSTR(ALLTRIM(pii), LEN(pii)-1, 2)) = bukva fst_el = i EXIT ENDIF ENDFOR RETURN fst_el *Подпрограмма расчета числа полей с BUKVA = "_K", "_R" и т.д. PROCEDURE N_EL PARAMETERS BUKVA N_EL = 0 FOR I= 1 TO FCOUNT() PII = FIELD(I) IF UPPER(SUBSTR(ALLTRIM(PII), LEN(PII)-1, 2)) = BUKVA N_EL = N_EL + 1 ENDIF ENDFOR RETURN N_EL На главную страницу |
| brusmann@mail.ru AbacusComp@yandex.ru © Василий Брусницын. Ивдель-Екатеринбург, 2010 г. Св. обл. Мотив +79045490809 | |
