?зменения в функциях бухгалтерских отчетов
Материал из GedeminWiki
(Различия между версиями)
SYSDBA (обсуждение | вклад) |
SYSDBA (обсуждение | вклад) |
||
| Строка 14: | Строка 14: | ||
стало: | стало: | ||
| + | <source lang="vb"> | ||
set ibdsMain = OwnerForm.FindComponent("ibdsMain") | set ibdsMain = OwnerForm.FindComponent("ibdsMain") | ||
set ibdsSaldo = ibdsMain.IBDSSaldoBegin | set ibdsSaldo = ibdsMain.IBDSSaldoBegin | ||
set ibdsSaldoEnd = ibdsMain.IBDSSaldoEnd | set ibdsSaldoEnd = ibdsMain.IBDSSaldoEnd | ||
set ibdsCirculation = ibdsMain.IBDSCirculation | set ibdsCirculation = ibdsMain.IBDSCirculation | ||
| + | </source> | ||
=== Имена параметров begindate и enddate === | === Имена параметров begindate и enddate === | ||
| Строка 23: | Строка 25: | ||
Имена параметров для указания диапазона дат в бухгалтерских отчетах приведены к единому виду -- BEGINDATE и ENDDATE. Там, где раньше было: | Имена параметров для указания диапазона дат в бухгалтерских отчетах приведены к единому виду -- BEGINDATE и ENDDATE. Там, где раньше было: | ||
| + | <source lang="vb"> | ||
set q = BaseQueryList.Query(BaseQueryList.Add("ibdsMain", 0)) | set q = BaseQueryList.Query(BaseQueryList.Add("ibdsMain", 0)) | ||
q.SQL = OwnerForm.FindComponent("ibdsMain").SelectSQL.Text | q.SQL = OwnerForm.FindComponent("ibdsMain").SelectSQL.Text | ||
| Строка 28: | Строка 31: | ||
q.ParamByName("dateend").AsDateTime = OwnerForm.FindComponent("ibdsMain").ParamByName("dateend").AsDateTime | q.ParamByName("dateend").AsDateTime = OwnerForm.FindComponent("ibdsMain").ParamByName("dateend").AsDateTime | ||
q.Open | q.Open | ||
| + | </source> | ||
теперь следует писать: | теперь следует писать: | ||
| + | <source lang="vb"> | ||
set q = BaseQueryList.Query(BaseQueryList.Add("ibdsMain", 0)) | set q = BaseQueryList.Query(BaseQueryList.Add("ibdsMain", 0)) | ||
q.SQL = ibdsMain.SelectSQL.Text | q.SQL = ibdsMain.SelectSQL.Text | ||
| Строка 36: | Строка 41: | ||
q.ParamByName("enddate").AsDateTime = ibdsMain.ParamByName("enddate").AsDateTime | q.ParamByName("enddate").AsDateTime = ibdsMain.ParamByName("enddate").AsDateTime | ||
q.Open | q.Open | ||
| + | </source> | ||
[[Category: Бухгалтерские отчеты]] | [[Category: Бухгалтерские отчеты]] | ||
Версия 19:52, 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
Имена параметров begindate и enddate
Имена параметров для указания диапазона дат в бухгалтерских отчетах приведены к единому виду -- 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
