ЕжедневныйРасчетПроцентыЗаПериод для СО

• ЕжедневныйРасчетПроцентыЗаПериод для СО ( start  24.08.2015 08:16 )
  Оценка:5(2)

  ЕжедневныйРасчетПроцентыЗаПериод работает только для тип выдача разовых в остальных случаях наработает, точнее всегда возвращает ноль. Пример макроса:
  

  import ПроцентыБухгалтер, Total, kflConst, percent; 
   
  var sum, //рассчитанная сумма процентов за период 
  ObjectType = LO_DUTY, //тип объекта - КД 
  ObjectNumber = 940, //номер КД для разовых,  для других номер СО
  RegType = RR_MAINREST, /*тип регистра история основного долга*/ 
  RateType = TRU_CRD, /*процентная ставка по основному долгу*/ 
  DutyType = LTD_PERC, /*вид задолженности проценты по срочному долгу*/ 
  BegDate = date(31,07,2015), /*дата начала периода */ 
  EndDate = date(31,12,2015), //дата окончания периода 
  count = 0, /*количество интервалов постоянства, которые будут возвращены функцией*/ 
  percDate = date(31,07,2015), /*дата последней операции начисления процентов*/ 
  TypeOp_ = 0, //обработка одного объекта 
  TypePerc = 0; //расчет по стандартному алгоритму 
  
  sum = ЕжедневныйРасчетПроцентыЗаПериод(ObjectType, ObjectNumber, RegType, RateType, DutyType, BegDate, EndDate, count, percDate, TypeOp_, TypePerc);
  
  MsgBox (sum);
  

  
  >> Ответить
  • версия программа: РС-Лоанс 5.1 ( start  24.08.2015 08:18 )
    Оценка:5(1)

    Not specified
    >> Ответить
  • calcsum.mac посмотри. Там вроде эта функция используется. ( dburg  26.08.2015 12:56 )
    Оценка:5(1)

    Not specified
    >> Ответить
    • такого макроса не существует... ( start  26.08.2015 13:08 )
      Оценка:5(1)

      такого макроса не существует в нашем дистрибутиве(((
      >> Ответить
      • Это у вас от какого года версия РС Лоанс? ( dburg  26.08.2015 13:21 )
        Оценка:5(1)

        /*------------------------------------------------------------------------------
        Библиотека интерпретируемых модулей
        
        Filename : calcsum.mac
        Description : Макрос начисления платежей при погашении кредита
        
        Programmer : ROV
        07.12.98 : Создан
        ------------------------------------------------------------------------------*/
        
        MAC\Loans\CRD
        >> Ответить
        • версия 5,1 от 2005 ( start  26.08.2015 13:57 )
          Оценка:5(1)

          Not specified
          >> Ответить
          • У нас версия 5.10.104.15. Может у вас RS-Bank? ( dburg  26.08.2015 14:03 )
            Оценка:5(1)

            ░Copyright (c) 2000 - 2005 R-Style Softlab░
            ░░░░░░░░░░░░Версия: 5.10.104.15 ░░░░░░░░░░░
            >> Ответить
            • RS-Loans Версия 5,10,106,15 ( start  26.08.2015 14:11 )
              Оценка:5(1)

              в MAC\Loans\CRD искал не нашел макроса, вы можете показать тела макроса?
              >> Ответить
              • Вот кусок из рабочего макроса. ( dburg  26.08.2015 14:28 )
                Оценка:5(1)

                  if ((DateProl >= BegDate) and (DateProl <= LastDate)) /*пролонгация попала в диапозон*/
                    DutyData.SumPerc_Befor = DutyData.Sum5 + ЕжедневныйРасчетПроцентыПоДоговору(DutyData.ObjectType, DutyData.ObjectNumber, TDR_MAINREST, BegDate, DateProl, @count, PC_ALG, TYPE_REST, LastOp, 0, TypePerc);
                    ЗаполнитьОтчет( CRD_ACC, TYPE_REST, PC_ALG );
                    LastOp = DateProl + 1;
                    DutyData.Sum5 = ЕжедневныйРасчетПроцентыПоДоговору(DutyData.ObjectType, DutyData.ObjectNumber, TDR_MAINREST, DateProl + 1, LastDate, @count, PC_ALG, TYPE_REST, LastOp, 0, TypePerc);
                    ЗаполнитьОтчет( CRD_ACC, TYPE_REST, PC_ALG );
                  else
                    DutyData.Sum5 = DutyData.Sum5 + ЕжедневныйРасчетПроцентыПоДоговору(DutyData.ObjectType, DutyData.ObjectNumber, TDR_MAINREST, BegDate, LastDate, @count, PC_ALG, TYPE_REST, /*BegDate*/LastOp, 0, TypePerc);
                    ЗаполнитьОтчет( CRD_ACC, TYPE_REST, PC_ALG );
                  end;
                

                
                
                Возможно в 106 сборке что-то поменялось.
                Когда в 2007 году пытались на нее перейти там были большие изменения.
                
                Единственное могу посоветовать под отладкой посмотри какие макросы вызываются для операций Начисления процентов и Погашения.
                Может что найдешь полезное.
                >> Ответить
                • Макрос percent посмотри. ( dburg  26.08.2015 14:31 )
                  Оценка:5(1)

                  Not specified
                  >> Ответить