Пустые структуры СтароеЗначениеКатегории и ЗначениеКатегории в макросе ctgval.mac

• Пустые структуры СтароеЗначениеКатегории и ЗначениеКатегории в макросе ctgval.mac ( APetrov  13.03.2018 09:26 )
  Оценка:5(1)

  Добрый День!
  Собственно вопрос ясен из заголовка - пытаюсь обращаться к указанным структурам в макросе ctgval.mac в процессе редактирования значения категории, структуры не содержат значений.
  Макрос выглядит так:
  
  

  record ЗначениеКатегории(ctgval, "bank.def" );
  record СтароеЗначениеКатегории(ctgval, "bank.def");
  
  
  ctg=TBFile( "ctgval.dbt", "R",  0, null, "bank.def" );
  
  CONST MODE_DEL = 0;
  CONST MODE_INS = 1;
  CONST MODE_EDT = 2;
  
  macro НовоеЗначениеКатегории()
      return 0;         
  end;
  
  macro ПроверитьЗначениеКатегории(Режим)
  	if(Режим == MODE_EDT)
  		debugbreak;
  copy(ctg,ЗначениеКатегории,1);
  
  		if(((ЗначениеКатегории.CtgID == 502) or 
  		    (ЗначениеКатегории.CtgID == 503)) and
  		    (ЗначениеКатегории.startDate != {curdate}))
  			MsgBox("Изменение заблокировано.");
  			return 1;
  		end;
  		if(ctg.rec.CtgID == 1107)
  			MsgBox("Изменение заблокировано, потому что 1107.");
  			return 1;
  

  
  >> Ответить
  • использовать SetBuff и параметры №2 и №3 (с 1) функции ПроверитьЗначениеКатегории ( tema  13.03.2018 09:33 )
    Оценка:5(1)

    Not specified
    >> Ответить
  • В коде это должно выглядетьЮ примерно, так: ( tema  13.03.2018 10:26 )
    Оценка:5(1)

    macro ПроверитьЗначениеКатегории(Режим, pNew, pOld)
    
        var rCtgValNew=TRecHandler("ctgval.dbt", "bank.def"); 
        var rCtgValOld=TRecHandler("ctgval.dbt", "bank.def"); 
        SetBuff(rCtgValNew, pNew);
        SetBuff(rCtgValOld, pOld);           
    
        if(((rCtgValNew.rec.CtgID == 502) or …
    

    
    >> Ответить
    • Спасибо, сработало. ( APetrov  13.03.2018 16:01 )
      Оценка:5(1)

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