Помогите найти описание прототипа BDOCRST

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Nmariya
Посетитель
Сообщения: 31
Зарегистрирован: 28 апр 2006, 16:53
Откуда: Ростов-на-Дону
Контактная информация:

Помогите найти описание прототипа BDOCRST

Сообщение Nmariya »

Здравствуйте, помогите пожалуйста, найти описание формы прототипа BDOCRST для 8.0.
Этот протоТИП используется в управлении сбытом - отчеты-реестры иерархический реестр ДО.
Среди исходных форм, поставляемых с патчем, такого прототипа не удалось найти :(
Как жаль, что наши сны - всего лишь иллюзия...
thor
Местный житель
Сообщения: 289
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Saint-Petersburg
Контактная информация:

Сообщение thor »

GalSrv\FRM\Oper\dbocrst.frm
Убедитесь, что у вас распакован архив
Galsrv\FRM\gal.rar
Nmariya
Посетитель
Сообщения: 31
Зарегистрирован: 28 апр 2006, 16:53
Откуда: Ростов-на-Дону
Контактная информация:

Сообщение Nmariya »

Да, у нас распакован данный архив, но такой формы не нахожу. Если не трудно, не могли бы вы отправить мне по почте nazarenko_mariya@mail.ru
Как жаль, что наши сны - всего лишь иллюзия...
Maverick
Абориген
Сообщения: 943
Зарегистрирован: 29 мар 2005, 17:49
Откуда: External Developer
Контактная информация:

Сообщение Maverick »

ну чего уж там, инфа открытая, идет с дистрибутивом галки

Код: Выделить всё

!╔═══════════════════════════════════════════════════════════════════════════╗
!║                     (c) 1994,99 корпорация ГАЛАКТИКА                      ║
!║ Проект        : ГАЛАКТИКА                                                 ║
!║ Система       : Отдел разработки контура логистики                        ║
!║ Версия        : 5.71                                                      ║
!║ Назначение    : Форма для иерархических реестров ДО                       ║
!║ Ответственный : Сорока Валерий Васильевич                                 ║
!╚═══════════════════════════════════════════════════════════════════════════╝
!-----------------------------------------------------------------------------
#include predefs.inc
!-----------------------------------------------------------------------------
.form 'BDOCRST'
.hide
.fields
 wPrintForm    : word    //01
 strReestrName : string  //01a
 boGrpDOActive : boolean //02
 pVidDoc       : word    //03
 MyOrg         : string  //04
 MyInn         : string  //05
 Currency      : string  //06
 KontrAgent    : string  //07
 dBegin        //: date    //08
 dEnd          //: date    //09
 Descr         : string  //10
 GrDescr       : string  //10a
 Sost          : string  //11
#ifdef __CentrOtv__
 OtvPodr       : string  //11a
#end
 GroupDO       : string
 flgFilters    : word    //12 - UserDeskRep.ResWord[20]
 wFiltOnExecDoc: word    //13
 flgRepStyles  : word    //14
 wFiltPaidDoc  : word    //15
 ValNDE        : string  //16
 ValTar        : string  //17
.endfields
           1
 1a23456789.0a1б234567
 ^^^^^^^^^^ ^^^^^^^^^^
#ifdef __CentrOtv__
 ^
#end
.{ //main cycle
.{ CheckEnter GroupHeader
.fields
 GroupHeaderName : string  //18
 GroupSum2       : double  //19
 GroupSumV2      : double  //20
 GroupPercentNDE : double  //21
.endfields
 1  2
 89.01
 ^^ ^^
.} // CheckEnter GroupHeader
.fields
  ccBaseDoc : comp
  CurrencyDO : string      //37
!  sumPaidNDE : double      //38
 .endfields
  ccBaseDoc - ^
  CurrencyDO - ^
!  sumPaidNDE - ^
.if PrnBDocSpec
.end //if
.fields
  DocIt     : double        //49
  DocItV    : double        //50
  DocSum    : double        //51
  DocBez20  : double        //52
  DocNDS20  : double        //53
  DocBez10  : double        //54
  DocNDS10  : double        //55
  DocNetNDS : double        //56
  DocPaidNDE: double        //56a
  DocBez18  : double        //56b
  DocNDS18  : double        //56c
 .endfields
  4.5
  9.0123456abc
  ^ ^^^^^^^^^^
.{ CheckEnter GroupTotal
.fields
  GroupTotalName : string  //57
  GroupSum       : double  //58
  GroupSumV      : double  //59
  GroupDocSum    : double  //60
  GroupDocBez20  : double  //61
  GroupDocNDS20  : double  //62
  GroupDocBez10  : double  //63
  GroupDocNDS10  : double  //64
  GroupDocNetNDS : double  //65
  GroupDocPaidNDE: double  //66
  GroupDocBez18  : double  //66a
  GroupDocNDS18  : double  //66b
.endfields
 5   6
 789.0123456ab
 ^^^ ^^^^^^^^^
.} // CheckEnter GroupTotal
.} // end of main cycle
.if PrintAllSums
.fields
  sAllTotalsHeader : string //67
.endfields
67
 ^
.end //if
.endform
Изображение
Знающий людей разумен.
Знающий себя просветлён.
Побеждающий людей силен.
Побеждающий самого себя могущественнен
Ответить