BEST logo логотип компании БЭСТ - программы для бизнеса ПРОДАЖИ
+7 (991) 312-04-37
trade@bestnet.ru
ПОДДЕРЖКА
+7 (495) 775-66-76
consult@bestnet.ru
СКАЧАТЬ
Обновления
Дистрибутивы
Авторизация

Логин:
Пароль:
Забыли свой пароль?
Регистрация
ВАШ ВОПРОС

Доступ к Личному кабинету закрыт!
Как получить доступ?


Главная  / Поддержка  / Форум  / Публичные форумы  / Программирование приложений  / Как поправить программу в FileEval?

Форум

Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как поправить программу в FileEval?
 
У нас есть программа для подсчета сумм, дней и часов по зарплате. Ее написал специалист, который, к сожалению, уже здесь не работает.
Часть программы, которая собирает количество дней и часов по колонкам табеля выглядит так

// IF Accounts->TIME#0
// Подсчет дней
IF Accounts->Tabcol = "002"
aVars[3] := aVars[3]+Accounts->Time
IVars[3] := IVars[3]+Accounts->Time
endif
IF Accounts->Tabcol = "003"
aVars[3] := aVars[3]+Accounts->Time
IVars[3] := IVars[3]+Accounts->Time
Endif

………………………

// Подсчет часов

IF Accounts->Tabcol = "006"
aVars[2] := aVars[2]+Accounts->Time
IVars[2] := IVars[2]+Accounts->Time
endif

IF Accounts->Tabcol = "007"
aVars[2] := aVars[2]+Accounts->Time
IVars[2] := IVars[2]+Accounts->Time
endif

......................
Нам надо вместо дней и часов по всем колонкам поставить рабочие дни и часы по колонке 1. Там в одной колонке и дни и часы. Как это можно сделать? Что можно почитать по программированию в FileEval?
 
Цитата
Александр Синенков пишет:
У нас есть программа для подсчета сумм, дней и часов по зарплате. Ее написал специалист, который, к сожалению, уже здесь не работает.

Часть программы, которая собирает количество дней и часов по колонкам табеля выглядит так



// IF Accounts->TIME#0

// Подсчет дней

IF Accounts->Tabcol = "002"

aVars[3] := aVars[3]+Accounts->Time

IVars[3] := IVars[3]+Accounts->Time

endif

IF Accounts->Tabcol = "003"

aVars[3] := aVars[3]+Accounts->Time

IVars[3] := IVars[3]+Accounts->Time

Endif



………………………



// Подсчет часов



IF Accounts->Tabcol = "006"

aVars[2] := aVars[2]+Accounts->Time

IVars[2] := IVars[2]+Accounts->Time

endif



IF Accounts->Tabcol = "007"

aVars[2] := aVars[2]+Accounts->Time

IVars[2] := IVars[2]+Accounts->Time

endif



......................

Нам надо вместо дней и часов по всем колонкам поставить рабочие дни и часы по колонке 1. Там в одной колонке и дни и часы. Как это можно сделать? Что можно почитать по программированию в FileEval?


Добрый день!
Отработанные дни и часы можно получить из табеля рабочего времени:
aVars[1]:=ANY("TABLE","_02",UPPER(Cardspri->TNUM+M->S_PERIOD), "IDAY")
aVars[2]:=ANY("TABLE","_02",UPPER(Cardspri->TNUM+M->S_PERIOD), "IHOUR")
или
aVars:=ANY("TABLE","_02",UPPER(Cardspri->TNUM+M->S_PERIOD), {"IDAY", "IHOUR"})
вернет массив, где aVars[1]-дни, aVars[2]-часы
Вместо Cardspri->TNUM можно подставить необходимый таб.номер и вместо M->S_PERIOD(расчетный период) фактический период если нужно.
Почитать можно:
BEST5_34\Client\Help\programming in best-5.chm
B412_PLUS\news\программирование_в_БЭСТ-4.chm
Страницы: 1
Читают тему (гостей: 1)