Главная
Новый форум
 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
himik



Joined: 18 Jul 2003
Posts: 8
Location: Иваницкий Сергей
Occupation: ЗАО Химреактив
Interests: Нижний Новгород

PostPosted: 08 Aug 2007 16:59    Post subject: Где можно найти полный справочник по функциям БЭСТ? Reply with quote

Где можно найти полный справочник по функциям БЭСТ?

доступна(существует) ли такая функция которая бы возвращала значение ДТ(КТ) на дату по аналитическому счету в АРМе Товары?
для HFileEval

в АРМе гл.бух, в групповых операциях, есть функция ДТС(), КТС() .
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 09 Aug 2007 11:22    Post subject: Reply with quote

Справочник формируется тут на форуме по функциям отсутствующим в HELP.
Он формируется на основании Ваших запросов.
Описание интересующих Вас функций будет выложено сегодня в течении дня.
Back to top
View user's profile Send private message Send e-mail
itman



Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель

PostPosted: 09 Aug 2007 11:28    Post subject: Reply with quote

Обсуждалось ранее в материалах форума 2006 год
Back to top
View user's profile Send private message Send e-mail
himik



Joined: 18 Jul 2003
Posts: 8
Location: Иваницкий Сергей
Occupation: ЗАО Химреактив
Interests: Нижний Новгород

PostPosted: 09 Aug 2007 14:43    Post subject: Reply with quote

Я по форуму полазил но что-то не нашел.

А задача следующая: есть два счета 621 и 622 причем на 621 должна существовать(и существует благодаря титаническим усилиям бухов) только дебетовая часть а на 622 только кредитовая, ПОЧЕМУ ТАК СДЕЛАЛИ НЕ СПРАШИВАЙТЕ - НЕ ЗНАЮ.
Проблема возникает при формировании проводок т.е. необходимо,
1, если на 622 есть сумма превышающая сумму накладной то надо делать дополнительную проводку ДТ622 - КТ 621
2, если на 622 есть сумма меньшая чем сумма накладной то надо делать дополнительную проводку ДТ622 - КТ 621 на сумму КТ622.
вот такая загогулина.

Сейчас все делается из АРМа Глав. бух. групповые операции.

Code:
*Закрытие 622->621
А1 = "622"
ВВОД(("Введите дату расчета", Д1, "Д"))
ПОКА (ШАУ(А1) = 1)
 А2 = "621" +  ПОД_СТР(А1,4,14)
 ШАУ_ИМЯ(И2,А2)
 Б1=КТС(А1,Д1)
 Б2=ДТС(А2,Д1)
  ЕСЛИ (Б1>0 _И_ Б2>0)
    ЕСЛИ (Б1>=Б2)
     П(Д1, "", А1, А2, "", Б2)
    ИНАЧЕ
     П(Д1, "", А1, А2, "", Б1)
    ВСЕ_ЕСЛИ
  ВЫВОД "622КТ- ",Б1," 621ДТ- ",Б2, И2
 ВСЕ_ЕСЛИ
ВСЕ_ПОКА


но это очень долго около 2х

Я хочу написать обработчик на сохранение...
может есть у кого мысли какие, я плохой фоксист(клипперист) я больше на дельфи...
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 12 Aug 2007 23:49    Post subject: Reply with quote

Сам язык программирования внешний отчетов работает так (для расчета сальдо)
Code:
   // ДТС0 КТС0 ДТС КТС
    CASE nFunc == 1 .OR. ;
         nFunc == 2 .OR. ;
         nFunc == 4 .OR. ;
         nFunc == 5
      nLen := MyLen( aPar, 1 )
      aType := MyType( aPar, { 'C', 'CD' } )
      IF nLen > 1
        IF ValType(aPar[2])=='C' .AND. SUBSTR(aPar[2],5,1) == '.'
          // период опеделен ГГГГ.ММ
          aPar[2] := EOM(STOD( LEFT(aPar[2],4)+RIGHT(aPar[2],2)+'01'))//ALEX
        ELSE
          dDate := MyDate( aPar[2], aType[2], .F. )
          if nLen>2
            dDate1 := MyDate( aPar[3], aType[2], .F. )
          endif
          IF EMPTY(dDate)
            aPar[2] := dSet_Date
          ELSE
            aPar[2] := dDate
           if nLen>2
            aPar[3] := dDate1
           endif
          ENDIF
        ENDIF
      ENDIF

      IF nLen == 1
        RBalans()
        nRez := Saldo({'00','10','','01','11'}[nFunc], aPar )
      ELSE
        nRez := DaySaldo({'00','10','','01','11'}[nFunc], aPar, at('*',aPar[1])<>0 )
      ENDIF
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 12 Aug 2007 23:51    Post subject: Reply with quote

Так же на этом языке Вы можете вызвать плагин на харборе через функцию
Code:
ПРОГР
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 12 Aug 2007 23:55    Post subject: Reply with quote

А вот дальше Вам решать где делать проводку...
Если в документе то в формуле поводки применять плагин.
Если в групповых операциях, то напишите здесь.
В любом случае своим плагином Вы сальдо рассчитаете за секунду максимум (уже проверено ) если по конкретному клиенту расчет делать
Back to top
View user's profile Send private message Send e-mail
himik



Joined: 18 Jul 2003
Posts: 8
Location: Иваницкий Сергей
Occupation: ЗАО Химреактив
Interests: Нижний Новгород

PostPosted: 13 Aug 2007 11:22    Post subject: Reply with quote

Спасибо, но есть вопросы(возможно глупые).
В коде присутствуют несколько функций и переменных(MyLen, MyType, MyDateб aPar[])откуда они взялись и что означают.
Как я понал основная функция
Saldo({'00','10','','01','11'}[nFunc], aPar )
можно узнать про ее параметры поподробне
Back to top
View user's profile Send private message Send e-mail
itman



Joined: 05 Apr 2002
Posts: 1247
Location: Ильин Е.Ю.
Occupation: Cio
Interests: Кинель

PostPosted: 13 Aug 2007 12:24    Post subject: Reply with quote

Схема получения сальдо по счетам простая.
Берется начальный остаток по интересующему счету и аналитике.
складываются суммы операций по дебету счета и аналитики, вычитаются суммы операций по кредиту счета и аналитики. При этом принимается во внимание дата операции.
Константин прав, чтобы не разбираться с исходниками - может потратить время на написание своей функции?
Back to top
View user's profile Send private message Send e-mail
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 13 Aug 2007 15:53    Post subject: Reply with quote

himik wrote:
Спасибо, но есть вопросы(возможно глупые).
В коде присутствуют несколько функций и переменных(MyLen, MyType, MyDateб aPar[])откуда они взялись и что означают.
Как я понал основная функция
Saldo({'00','10','','01','11'}[nFunc], aPar )
можно узнать про ее параметры поподробнее?


Описание функции выложил в общий перече
Back to top
View user's profile Send private message Send e-mail
himik



Joined: 18 Jul 2003
Posts: 8
Location: Иваницкий Сергей
Occupation: ЗАО Химреактив
Interests: Нижний Новгород

PostPosted: 20 Aug 2007 15:27    Post subject: Reply with quote

Спасибо.
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