БланкСШаблоном "Оплаты по счету-фактуре", Редактор СЧЕТФАКТ;

ВозрНомер:Integer;
ВозрДата:Date;

ВалОпл[]:String=if(Оплата[$].Валюта='','РУБ',Оплата[$].Валюта);

СУМОплИт:Numeric=SumOfArray(ОПЛАТА[].СУМОпл);

Скрытая:Integer;

Proc Удалить(Об:с);
 УдалитьРамку(Оплата,Оплата);
End;


Proc Закрытие(Об:logical);
var i:Integer;
 ВозрДата=1.1.100;
 ВозрНомер=0;
 for i=1..Оплата do
  if Оплата[i].Дата>ВозрДата:
   ВозрНомер=Оплата[i].НомерД;
   ВозрДата=Оплата[i].Дата;
  fi;
 od;
End;

proc Добавить(Об:с);
 ВставитьРамку(Оплата,Оплата+1);
 Скрытая=Скрытая-1;
End;

func Валюта_ПриВходе(Клетка:String;Итер:Integer):Logical;
  Оплата[Итер].Валюта=Раб.Бух.ВыбратьВалюту(Валюта);
  ^false;
end;

proc Отмена(Об:s);
   EditorCancel;
   Close;
end;

proc OK(Об:s);
   EditorApply;
   Close;
end;

Proc Считывание;
 if Оплата=0 or Оплата=1:
	Скрытая=5;
 fi;

End;


Конец
