Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

ТИПОВЫЕ ОПЕРАЦИИ

 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4
View previous topic :: View next topic  
Author Message
Змея



Joined: 22 Mar 2007
Posts: 72
Location: Подколодная
Occupation: программист
Interests: Казань
PostPosted: 02 Oct 2007 10:47    Post subject: ТИПОВЫЕ ОПЕРАЦИИ Reply with quote
Может кто подскажет
В типовых операциях в формуле расчета суммы стоит например
if(P22="КАП",S,0), т.е. если начисление="КАП", то .....
А какой параметр означает колонку начислений?
Где это вообще прописано?
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 02 Oct 2007 11:19    Post subject: Reply with quote
Code:
Static aPars := {;
                   {"   ", "Симольные параметры"},;
                   {"P01", "Синтетич.счет ДБ из шаблона"},;
                   {"P02", "Синтетич.счет КТ из шаблона"},;
                   {"P03", "Синтетический счет затрат  "},;
                   {"P04", "Аналитика из счета затрат  "},;
                   {"P05", "Синтетич.счет перс.карточки"},;
                   {"P06", "Аналитика из перс.карточки "},;
                   {"P07", "Табельный номер            "},;
                   {"P08", "Табельный номер гл.карточки"},;
                   {"P09", "Код подр-ия приписки       "},;
                   {"P10", "Код подр-ия финансирования "},;
                   {"P11", "Статус сотрудника          "},;
                   {"P12", "Код кадрового состава      "},;
                   {"P13", "Категория оплаты           "},;
                   {"P14", "Код графика работы         "},;
                   {"P15", "Код должности              "},;
                   {"P16", "Код разрядной сетки        "},;
                   {"P17", "Разряд                     "},;
                   {"P18", "Код воинского звания       "},;
                   {"P19", "Код спецзвания             "},;
                   {"P20", "Код рода войск             "},;
                   {"P21", "Период Н/У                 "},;
                   {"P22", "Код Н/У                    "},;
                   {"P23", "Тип документа Н/У          "},;
                   {"P24", "Код документа Н/У          "},;
                   {"P25", "Код разрядной сетки начисл."},;
                   {"P26", "Разряд начисления          "},;
                   {"P27", "Код ведомсти удержания     "},;
                   {"   ", "Числовые параметры"},;
                   {"P28", "Сумма начисления/удежания  "};
                }
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 02 Oct 2007 11:21    Post subject: Reply with quote
Так что в данном случае если именно колонка нужна - делайте через плаг
Back to top
View user's profile Send private message Send e-mail
Змея



Joined: 22 Mar 2007
Posts: 72
Location: Подколодная
Occupation: программист
Interests: Казань
PostPosted: 02 Oct 2007 11:26    Post subject: Reply with quote
жаль, не хотелось усложнять себе жизнь
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 02 Oct 2007 11:28    Post subject: Reply with quote
Да там же не сильно сложно.
Back to top
View user's profile Send private message Send e-mail
Змея



Joined: 22 Mar 2007
Posts: 72
Location: Подколодная
Occupation: программист
Interests: Казань
PostPosted: 02 Oct 2007 11:31    Post subject: Reply with quote
передаю в fileeval ВИДНАЧ : fileeval("zp.txt",{"КОЛНАЧ"})
потом
if apars[1]="043"
z=1
else
z=0
endif

поскольку никой проводки нет, следовательно считается, что колонка не "043"
Значит не передается значени
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб
PostPosted: 02 Oct 2007 11:44    Post subject: Reply with quote
Лучше бы завершать значениями .T. или .F.
И делать IF(FileEval(),,0)
Back to top
View user's profile Send private message Send e-mail
Behemoth



Joined: 15 Mar 2002
Posts: 155
Location: Новиков Алексей Юрьевич
Occupation: ПБОЮЛ
Interests: Пермь
PostPosted: 02 Oct 2007 16:15    Post subject: Reply with quote
Добрый день.

Змея wrote:
Значит не передается значение?

Конечно не передаётся. Очень наивно предполагать, что строка "КОЛНАЧ" при передаче в виде параметра в плагин вдруг станет кодом колонки начислений.
Вам необходимо проверить, принадлежит ли текущее начисление определённой колонке? Тогда вызов будет выглядеть так:
if(fileeval("zp.txt",{P22,'043'}), S, 0)
а программа zp.txt будет представлять собой что-то вроде:

private lRet
dbpush('occursc','01',,{})
lret:=dbseek(upper(aPars[2]+aPars[1]))
dbpop()
lRet
_________________
С уважением, Новиков Алексей.
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru