Страница 1 из 1
Помогите найти описание прототипа BDOCRST
Добавлено: 06 июн 2007, 20:22
Nmariya
Здравствуйте, помогите пожалуйста, найти описание формы прототипа BDOCRST для 8.0.
Этот протоТИП используется в управлении сбытом - отчеты-реестры иерархический реестр ДО.
Среди исходных форм, поставляемых с патчем, такого прототипа не удалось найти
Добавлено: 07 июн 2007, 14:13
thor
GalSrv\FRM\Oper\dbocrst.frm
Убедитесь, что у вас распакован архив
Galsrv\FRM\gal.rar
Добавлено: 08 июн 2007, 20:52
Nmariya
Да, у нас распакован данный архив, но такой формы не нахожу. Если не трудно, не могли бы вы отправить мне по почте
nazarenko_mariya@mail.ru
Добавлено: 18 июн 2007, 15:52
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