LinkForm 'blankper 03 va rtf' Prototype is 'blankper'




Скачать 321.18 Kb.
НазваниеLinkForm 'blankper 03 va rtf' Prototype is 'blankper'
страница1/4
Дата публикации11.05.2013
Размер321.18 Kb.
ТипДокументы
vbibl.ru > География > Документы
  1   2   3   4
.LinkForm 'BLANKPER_03_VA_RTF' Prototype is 'BLANKPER'

.Group 'foralimR’

.NameInList 'Бланки почтовых переводов алиментов для РФ (ф. 112)'

.var

Prim: String[80];

AddrKOMU2: string;

.endvar

.function NewAddr:String;

var S:String;

B: byte;

begin

S:= trim(адрес_куда60 + адрес_куда65);

B:= Pos(регион , S) + length (регион)+1

//NewAddr:= Substr( S, B, length(S) - length (регион));

NewAddr:=s;

end.

.function IndexNum( S:String; I: Byte):Char;

begin

IndexNum:= SubStr(S, I, 1);

end.

.function AllocateInd( S:String ):String;

begin

AllocateInd:= SubStr(S, 1, 6);

if pos(substr(AllocateInd, 6, 1), ‘0123456789’)= 0

AllocateInd:= ‘ ’+ substr(S, 1, 5);

end.

.function AddrNotInd( S:String ):String;

begin

AddrNotInd:= Substr( S, 8, Length(S) );

end.

.function GetfirstPartAddr(strValue: string; wValue: word): string;

begin

if length(strValue) > wValue

{

GetfirstPartAddr:=GetPartStr(strValue, wValue);

if Trim(GetfirstPartAddr)=’’

GetfirstPartAddr:=substr(strValue,1, wValue);

AddrKOMU2:= substr(strValue, length(GetfirstPartAddr)+1, length(strValue));

}

else

{

GetfirstPartAddr:= strValue;

AddrKOMU2:= ‘’;

}

end.

.fields

сумма_руб1 руб1 сумма_коп1 коп1

сумма_проп65 сумма_проп1

фио_кому60

indexNum( AllocateInd(NewAddr ), 1 )

indexNum( AllocateInd(NewAddr ), 2 )

indexNum( AllocateInd(NewAddr ), 3 )

indexNum( AllocateInd(NewAddr ), 4 )

indexNum( AllocateInd(NewAddr ), 5 )

indexNum( AllocateInd(NewAddr ), 6 )

getfirstpartAddr(AddrNotInd( NewAddr ), 40)

AddrKOMU2

//GroupWrap( AddrNotInd( NewAddr ) , 1, 50 )

//GroupWrap( AddrNotInd( NewAddr ) , 2, 60 )

// NewAddr // (адрес_куда65)

предприятие_от_кого42 предприятие_от_кого50 предприятие_от_кого100 предприятие_от_кого150

indexNum( индекс_от_кого1, 1 )

indexNum( индекс_от_кого1, 2 )

indexNum( индекс_от_кого1, 3 )

indexNum( индекс_от_кого1, 4 )

indexNum( индекс_от_кого1, 5 )

indexNum( индекс_от_кого1, 6 )

адрес_от_кого22

адрес_от_кого50

сумма_руб3 руб3 сумма_коп3 коп3

предприятие_от_кого21

сумма_руб4 руб4 сумма_коп4 коп4

фио_кому26

предприятие_от_кого29_1

предприятие_от_кого29_2

фио_кому31

indexNum( индекс_от_кого3, 1 )

indexNum( индекс_от_кого3, 2 )

indexNum( индекс_от_кого3, 3 )

indexNum( индекс_от_кого3, 4 )

indexNum( индекс_от_кого3, 5 )

indexNum( индекс_от_кого3, 6 )

indexNum( AllocateInd(NewAddr ), 1 )

indexNum( AllocateInd(NewAddr ), 2 )

indexNum( AllocateInd(NewAddr ), 3 )

indexNum( AllocateInd(NewAddr ), 4 )

indexNum( AllocateInd(NewAddr ), 5 )

indexNum( AllocateInd(NewAddr ), 6 )

getfirstpartAddr(AddrNotInd( NewAddr ), 18)

адрес_от_кого29_1

GroupWrap(AddrKOMU2 , 1, 38 ) //адрес_куда31_1

GroupWrap(AddrKOMU2 , 2, 38 ) + GroupWrap(AddrKOMU2 , 3, 38 ) // адрес_куда31_2

адрес_от_кого29_2

GroupWrap( Prim , 1, 40 )

GroupWrap( Prim , 2, 40 )

GroupWrap( Prim , 3, 40 )

GroupWrap( Prim , 4, 40 )

Фио_от_кого период_нач период_окон

Зарплата_руб зарплата_коп

Процент_алим

Удержание_за_прошлые

Стр_замес1

Стр_замес2

Сум_замесяц

Стр_почтовый_перевод

Сум_почтовый_сбор

.endfields

.begin

Message(‘Заполните поле ‘’Для письменного сообщения’’ ’);

RunDialog(GetAttrVal, Prim);

end.

.{

.{



















ф.112














































^ Почта России













П

Р

И

Е

М





































































































































































(по реестру ф. 11)































































(по реестру ф. 10)































































































































































































































Наименование предприятия

связи, к – гербовая печать

Календ. шт.

Места подачи

№ по ф. 5

Сумма, вид услуги (подпись оператора)








































^ ИСПРАВЛЕНИЯ НЕ ДОПУСКАЮТСЯ

ПОЧТОВЫЙ ПЕРЕВОД на

^

^

^

^










^ ^







(рубли прописью)







Кому

^














































































































































































  1   2   3   4

Добавить документ в свой блог или на сайт

Похожие:

LinkForm \Linkform 'Реестр (rtf)' prototype is 'ReestrBDoc'

LinkForm \Linkform 'InvCardosbudget rtf' prototype is 'FormOS6'
Равно значению настройки wGetTune('OS. SrokIspEdIzm'). Для того чтобы не читать каждый раз её из базы

LinkForm \Linkform 'GroupOs 15 rtf' prototype is 'GroupOs'

LinkForm \Linkform 'Form nma1 Rus rtf' prototype is 'FormOS6'
Код сче­та и объ­ек­та ана­ли­ти­чес­ко­го уче­та (для от­не­се­ния амор­ти­за­ции не­ма­те­ри­аль­ных ак­ти­вов)

LinkForm \Linkform 'FormOS6Russia rtf' prototype is 'FormOS6'
Дата Составления)=0,'',DateToStr(longint(Дата Составления), efDateFormatExcel))

LinkForm \Linkform 'Form os6 Bel full rtf' prototype is 'FormOS6'
Дата Составления)=0,'',DateToStr(longint(Дата Составления), efDateFormatExcel))

LinkForm \Linkform 'OsOne 01 Bel rtf' prototype is 'OsOne'
Хар1 := 1; Хар1 Хар2, iExcelFormat. DoubleToStrFormatExcelNotNul (Характеристика Количество Объектов [Хар1 Хар2 + 1], Разрядность...

LinkForm \Linkform 'AsrVerifLog02Rtf' prototype is AsrVerifLog

LinkForm \Linkform 'BelReestrPP' prototype is 'BudgKlass'

LinkForm \Linkform 'HozOper 04' Prototype Is 'HozOper'
Реестр типовых хозяйственных операций и формируемых проводок по счетам бухгалтерского учета

Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2013
контакты
vbibl.ru
Главная страница