Linkform 'PU3 Link' prototype is 'PU3'




Скачать 163.94 Kb.
НазваниеLinkform 'PU3 Link' prototype is 'PU3'
страница1/2
Дата публикации26.07.2013
Размер163.94 Kb.
ТипДокументы
vbibl.ru > Бухгалтерия > Документы
  1   2
.linkform 'PU3_Link' prototype is 'PU3'

.nameinlist 'Форма ПУ-3(отчет на бумажном носителе)'

.var

kv1, kv2, kv3, kv4 : string;

InPred : string;

Ys1,ys2,ys3,ys4 : string[1];

FormType : word;

counter : integer

pachn : integer

_Dat1, _Dat2 : date

InPrizSum1, InPrizSum2, InPrizSum3,InPrizSum4,

InPrizSum5, InPrizSum6, InPrizSum7, InPrizSum8,

InPrizSum9, InPrizSum10, InPrizSum11, InPrizSum12,

InPrizSumItog : boolean;

.endvar

.function ZeroOrSpaceForTotals(_param: string): byte;

begin

ZeroOrSpaceForTotals := 1;

if (trim(_param) <> '01')

and (trim(_param) <> '02')

and (trim(_param) <> '07')

ZeroOrSpaceForTotals := 0;

end.

.function WriteInForm(_sum : double; prizn: word) : string;

begin

WriteInForm := ' ';

if (_sum <> 0)

WriteInForm := DoubleToStr(_sum,'[|-]366666666666')

else if (_sum = 0) and (prizn = 1)

WriteInForm := DoubleToStr(0,'[|-]366666666666')

end.

.function WriteInFormPr(_sum : double; prizn: word) : string;

begin

WriteInFormPr := ' ';

if (_sum <> 0)

WriteInFormPr := DoubleToStr(_sum,'[|-]366666666666~99')

else if (_sum = 0) and (prizn = 1)

WriteInFormPr := DoubleToStr(0,'[|-]366666666666~99')

end.

.fields

Страховой_номер

Фамилия

CharF1

Имя

Отчество

HP

CharF2

Ys1 Ys2 Ys3 Ys4

CharF3

CharF4

Dog_Num

RegPFNum

Pred

If(day(Dog_Date)<>0, Dog_Date,‘’)

WriteInFormPr (ProcSum1, PrizSum1) WriteInForm(double(Sum11), PrizSum1) WriteInForm(double(Sum12), PrizSum1) WriteInForm(double(Sum13), PrizSum1)

WriteInFormPr(ProcSum2, PrizSum2) WriteInForm(Sum21, PrizSum2) WriteInForm(Sum22, PrizSum2) WriteInForm(Sum23, PrizSum2)

WriteInFormPr (ProcSum3, PrizSum3) WriteInForm(Sum31, PrizSum3) WriteInForm(Sum32, PrizSum3) WriteInForm(Sum33, PrizSum3)

WriteInFormPr (ProcSum4, PrizSum4) WriteInForm(Sum41, PrizSum4) WriteInForm(Sum42, PrizSum4) WriteInForm(Sum43, PrizSum4)

WriteInFormPr (ProcSum5, PrizSum5) WriteInForm(Sum51, PrizSum5) WriteInForm(Sum52, PrizSum5) WriteInForm(Sum53, PrizSum5)

WriteInFormPr (ProcSum6, PrizSum6) WriteInForm(Sum61, PrizSum6) WriteInForm(Sum62, PrizSum6) WriteInForm(Sum63, PrizSum6)

WriteInFormPr (ProcSum7, PrizSum7) WriteInForm(Sum71, PrizSum7) WriteInForm(Sum72, PrizSum7) WriteInForm(Sum73, PrizSum7)

WriteInFormPr (ProcSum8, PrizSum8) WriteInForm(Sum81, PrizSum8) WriteInForm(Sum82, PrizSum8) WriteInForm(Sum83, PrizSum8)

WriteInFormPr (ProcSum9, PrizSum9) WriteInForm(Sum91, PrizSum9) WriteInForm(Sum92, PrizSum9) WriteInForm(Sum93, PrizSum9)

WriteInFormPr (ProcSum10, PrizSum10) WriteInForm(Sum101, PrizSum10) WriteInForm(Sum102, PrizSum10) WriteInForm(Sum103, PrizSum10)

WriteInFormPr (ProcSum11, PrizSum11) WriteInForm(Sum111, PrizSum11) WriteInForm(Sum112, PrizSum11) WriteInForm(Sum113, PrizSum11)

WriteInFormPr (ProcSum12, PrizSum12) WriteInForm(Sum121, PrizSum12) WriteInForm(Sum122, PrizSum12) WriteInForm(Sum123, PrizSum12)

WriteInForm(ISum1, ZeroOrSpaceForTotals(HP)) WriteInForm(Isum2, ZeroOrSpaceForTotals(HP)) WriteInForm(Isum3, ZeroOrSpaceForTotals(HP))

If(CharF<>2, Нач_стажа_ртф,‘’) If(CharF<>2, Кон_стажа_ртф,‘’)

If(FormType <> 2,UpCase(trim(ProfCode)),‘’)

If(FormType <> 2,UpCase(trim(VidDeyal)),‘’)

If(CharF<>2, Dop_Pokazat,‘’) If(CharF<>2, Dop_Rned,‘’)

curdate

ФИО_руководителя

Fio_Buh

Fone_org

.endfields

.begin counter := 0;

if PachNumBegin <> 0

pachn := PachNumBegin

else

pachn := 1;

FormType := 0;

If (trim(CharF2) <> ‘’) FormType := 1;

If (trim(CharF3) <> ‘’) FormType := 2;

If (trim(CharF4) <> ‘’) FormType := 3;

Ys1:= ‘’; ys2:= ‘’; ys3:= ‘’;ys4:= ‘’;

Ys1:=Substr(string(God),1,1);

Ys2:=Substr(string(God),2,1);

Ys3:=Substr(string(God),3,1);

Ys4:=Substr(string(God),4,1);

end.
.{ CheckEnter PU3

Форма ПУ-3

^ ИНДИВИДУАЛЬНЫЕ СВЕДЕНИЯ


Страховой номер

^










Тип формы

Фамилия

^







@

Исходная

Имя

^

Отчество

^













Код категории застрахованного лица

^







@

Корректирующая













Отчетный период:

Год




^

^

^

^




























@

Отменяющая




@

Назначение пенсии




.begin

counter:=counter + 1

kv1:= ‘’; kv2:= ‘’; kv3 := ‘’; kv4 := ‘’;

if квартал = 1

kv1:= ‘X’

else if квартал = 12

{ kv1:= ‘X’;kv2:= ‘X’}

else if квартал = 123

{ kv1:= ‘X’;kv2:= ‘X’; kv3:= ‘X’}

else if квартал = 1234

{ kv1:= ‘X’;kv2:= ‘X’; kv3:= ‘X’; kv4:= ‘X’}

InPred := Pred;

// -----------------------------

InPrizSum1 := false; InPrizSum2 := false;

InPrizSum3 := false; InPrizSum4 := false;

InPrizSum5 := false; InPrizSum6 := false;

InPrizSum7 := false; InPrizSum8 := false;

InPrizSum9 := false; InPrizSum10 := false;

InPrizSum11 := false; InPrizSum12 := false;

InPrizSumItog := false;

if (Sum11 <> 0)

or (Sum12 <> 0)

or (Sum13 <> 0)

or (PrizSum1 = 1) then

InPrizSum1 := true;
if (Sum21<>0)or(Sum22<>0)or(Sum23<>0)

or (PrizSum2 = 1) then

InPrizSum2 := true;
if (Sum31<>0)or(Sum32<>0)or(Sum33<>0)

or (PrizSum3 = 1) then

InPrizSum3 := true;
if (Sum41<>0)or(Sum42<>0)or(Sum43<>0)

or (PrizSum4 = 1) then

InPrizSum4 := true;
if (Sum51<>0)or(Sum52<>0)or(Sum53<>0)

or (PrizSum5 = 1) then

InPrizSum5 := true;
if (Sum61<>0)or(Sum62<>0)or(Sum63<>0)

or (PrizSum6 = 1) then

InPrizSum6 := true;
if (Sum71 <> 0)or(Sum72 <> 0)or(Sum73 <> 0)

or (PrizSum7 = 1) then

InPrizSum7 := true;
if (Sum81<>0)or(Sum82<>0)or(Sum83<>0)

or (PrizSum8 = 1) then

InPrizSum8 := true;
if (Sum91<>0)or(Sum92<>0)or(Sum93<>0)

or (PrizSum9 = 1) then

InPrizSum9 := true;
if (Sum101<>0)or(Sum102<>0)or(Sum103<>0)or (PrizSum10 = 1) then

InPrizSum10 := true;
if (Sum111<>0)or(Sum112<>0)or(Sum113<>0)

or (PrizSum11 = 1) then

InPrizSum11 := true;
if (Sum121<>0)or(Sum122<>0)or(Sum123<>0)

or (PrizSum1 = 12) then

InPrizSum12 := true;
end.

Сведения о плательщике страховых взносов:




Номер договора

^

Учетный номер плательщика

^




Дата заключения




Наименование

^




договора

^


.{?internal; (CharF<>2)

1. ^ СВЕДЕНИЯ О НАЧИСЛЕНИЯХ И СТРАХОВЫХ ВЗНОСАХ

Месяц

Размер страховых взносов

(в процентах)

Начислено (рублей)

Сумма

страховых взносов

выплат, на которые начисляются страховые взносы

пособий по временной нетрудоспособ-

ности

Январь

&&&&&&

^

^

^

Февраль

&&&&&&

^

^

^

Март

&&&&&&

^

^

^

Апрель

&&&&&&

^

^

^

Май

&&&&&&

^

^

^

Июнь

&&&&&&

^

^

^

Июль

&&&&&&

^

^

^

Август

&&&&&&

^

^

^

Сентябрь

&&&&&&

^

^

^

Октябрь

&&&&&&

^

^

^

Ноябрь

&&&&&&

^

^

^

Декабрь

&&&&&&

^

^

^

ИТОГО




^

^

^

.}

.{?internal; (CharF<>2)

2. ^ ДОПОЛНИТЕЛЬНЫЕ СВЕДЕНИЯ О СТАЖЕ

Период работы

Код профессии (должности) по ОКПД

Вид деятельности (код)

Дополнительные сведения

(показатель)

начало

окончание

показатель

продолжительность рабочей недели

.}

.{ CheckEnter PU_Stages

.{?internal; (CharF<>2)

^

^

^

^

^

^

.}

.}

.{?internal; (CharF<>2)



















.}

Дата заполнения ^ г.

Руководитель







^




Главный бухгалтер







^




(подпись)




(инициалы, фамилия)







(подпись)




(инициалы, фамилия)


М.П.
Тел. ^



  1   2

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

Похожие:

Linkform \Linkform 'BelReestrPP' prototype is 'BudgKlass'

Linkform \Linkform 'AsrVerifLog02Rtf' prototype is AsrVerifLog

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

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

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

Linkform \Linkform 'RasGr 115' prototype is 'Rasgr'

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

Linkform \Linkform 'RasGr 103' prototype is 'Rasgr'

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

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

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


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