~SetScript(LP,
~If(~SubString(~GetParam(Leader),~GetParam(pos),1),<>, ,
| Поз. ~GetParam(pos) |
~SubString(~GetParam(Leader),~GetParam(pos),1) |
)
)
Представление документа в МАРК формате
~LoadDocById(~GetParam($DocId))
~SetParam(Leader,~GetSubTag(0000) )
~DelSubTag(0000)
| МАРКЕР: |
~SetParam(pos,5) ~RunScript(LP)
| Поз. 6 |
~GetRecType() |
| Поз. 7 |
~GetBibLevel() |
~SetParam(pos,8) ~RunScript(LP)
~SetParam(pos,9) ~RunScript(LP)
~SetParam(pos,17) ~RunScript(LP)
~SetParam(pos,18) ~RunScript(LP)
~SetParam(pos,19) ~RunScript(LP)
~SetParam(Val,)\
~ForAllSubTags(Tag,Ind,SubTag,\
~IfExists(~GetParam(Tag),\
~SetParam(Ind,~Replace(~GetParam(Ind), ,_))\
~IfExists(~GetParam(Val),\
| ~GetParam(TagName) |
~GetParam(IndV) |
~GetParam(Val) |
)\
~SetParam(TagName,~GetParam(Tag))\
~SetParam(IndV,~GetParam(Ind))\
~SetParam(Val)\
)\
~If(~SubString(~GetParam(TagName),0,2),<>,00,~SetParam(Val,~GetParam(Val)$~GetParam(SubTag)))\
~If(~SubString(~GetParam(TagName),0,2),=,00,~SetParam(Val,~GetParam(Val)~SubString(~GetParam(SubTag),1)))\
)\
~IfExists(~GetParam(Val),\
| ~GetParam(TagName) |
~GetParam(IndV) |
~GetParam(Val) |
)\