�?зменения в функциях бухгалтерских отчетов

Версия 16:05, 22 мая 2009

После переработки бухгалтерских отчетов печатные формы по ним требуют внесения некоторых изменений. Стандартные печатные формы уже исправлены, нужно только загрузить последнюю версию настройки "Бух. отчеты". Изменения необходимо внести только в печатные формы не входящих в стандартную комплектацию Гедемина.

Дополнительные датасеты в отчетах "Анализ счета", "Карта счета" были перенесены с формы в главный объект. Поэтому нужно заменить ссылки на эти объекты с:

 set ibdsMain = OwnerForm.FindComponent("ibdsMain")
 set ibdsSaldo = OwnerForm.FindComponent("ibdsSaldo")
 set ibdsSaldoEnd = OwnerForm.FindComponent("ibdsSaldoEnd")
 set ibdsCirculation = OwnerForm.FindComponent("ibdsCirculation")

на

 set ibdsMain = OwnerForm.FindComponent("ibdsMain")
 set ibdsSaldo = ibdsMain.IBDSSaldoBegin
 set ibdsSaldoEnd = ibdsMain.IBDSSaldoEnd
 set ibdsCirculation = ibdsMain.IBDSCirculation

Также, в некоторых отчетах, из этих объектов берется запрос и выполняется внутри функции печатной формы. Следует помнить что параметры теперь не DATEBEGIN, DATEEND, а BEGINDATE, ENDDATE соответственно. То есть должно быть не:

 set q = BaseQueryList.Query(BaseQueryList.Add("ibdsMain", 0))
 q.SQL = OwnerForm.FindComponent("ibdsMain").SelectSQL.Text
 q.ParamByName("datebegin").AsDateTime = OwnerForm.FindComponent("ibdsMain").ParamByName("datebegin").AsDateTime
 q.ParamByName("dateend").AsDateTime = OwnerForm.FindComponent("ibdsMain").ParamByName("dateend").AsDateTime
 q.Open

а

 set q = BaseQueryList.Query(BaseQueryList.Add("ibdsMain", 0))
 q.SQL = ibdsMain.SelectSQL.Text
 q.ParamByName("begindate").AsDateTime = ibdsMain.ParamByName("begindate").AsDateTime
 q.ParamByName("enddate").AsDateTime = ibdsMain.ParamByName("enddate").AsDateTime
 q.Open