24 октября, вторник 08:54
Bankir.Ru

Объявление

Свернуть
Пока нет объявлений.

Работа процедуры в зависимости от контекста

Свернуть
X
  • Фильтр
  • Время
  • Показать
Очистить всё
новые сообщения

  • Работа процедуры в зависимости от контекста

    Задача:
    В кредитах есть процедура "A. ПОСТАНОВКА КРЕДИТНОЙ ЛИНИИ НА ВНЕБАЛАНС"(VBALLINE.FOR ) которая "ставит" на внебаланс генеральные соглашения, траншевые кредитные линии и кредитные договора.

    Если влом каждый раз вводить номер договора то можно поступить следующим образом:

    PHP код:
    /*
      Кредиты.
      Постановка кредитной линии на внебаланс.
    */
    var WasDial,ExecBoolboolean;
        
    CNstring[9];

     
    // +
     
    TableTableIfc Pointer;
     
    f               Pointer;
     
    sViewTableName  String;
     
    sAgNum          String


    formula
    {
      
    // +
      
    Table          := Nil;
      
    sViewTableName := '';
      
    sAgNum         := '';
      
    Table := Message(DeskTopevCommandcmReturnViewNil);
      if 
    Table Nil
       
    TableIfc := Message(DesktopevCommandcmReturnTableInterfaceNil);
         
    sViewTableName := Upper(Trim(GetNameViewTable(Table)^));

         if 
    sViewTableName 'CRLINEINTVIEW'
          
    sAgNum := CalcExpr(@f'AgNum'TableTableIfc);
            
    FreeField(Table,f);
            
    SetStr('OldCont ContNum'sAgNum);
          };

         if 
    sViewTableName 'CRGENINTVIEW'
          
    sAgNum := CalcExpr(@f'AgNum'TableTableIfc);
            
    FreeField(Table,f);
            
    SetStr('OldCont ContNum'sAgNum);
          };

         if 
    sViewTableName 'CREDCONTINTVIEW'
          
    sAgNum := CalcExpr(@f'ContNum'TableTableIfc);
            
    FreeField(Table,f);
            
    SetStr('OldCont ContNum'sAgNum);
          };


       };



    CN:=GetStr('OldCont ContNum');
    WasDial:= trim(CN)='';
    ExecBool:= VBallineRpt(CN,true);
    if 
    not WasDial result:= ExecBool;


    Работы не много, а приятно

Пользователи, просматривающие эту тему

Свернуть

Присутствует 1. Участников: 0, гостей: 1.

Обработка...
X