У нас есть программа для подсчета сумм, дней и часов по зарплате. Ее написал специалист, который, к сожалению, уже здесь не работает.
Часть программы, которая собирает количество дней и часов по колонкам табеля выглядит так
// 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?