|
This.Print0s = .F. |
Header |
|
|
|
|
|
| организация |
ThisForm.ThisFormData.rep_cFirmName |
Header |
|
| дата |
dtoc(oSYSTEM.DATE) |
Header |
|
|
__p_Cnt = 0 |
Header |
|
|
__p_Cnt = __p_Cnt + 1 |
Spec |
|
| номер |
__p_Cnt |
Spec |
|
|
__pAnk_rn = FORMPRINT.ANK_RN |
Spec |
|
|
__pOrgbase_rn =
ThisForm.ThisFormData.Seek_tablefield('ZANK','RN','ZANK.ORGBASE_RN',__pAnk_rn) |
Spec |
|
|
__pFamstat_rn =
ThisForm.ThisFormData.Seek_tablefield('PERSON','RN','PERSON.FAMSTAT_RN',__pOrgbase_rn) |
Spec |
|
|
__pFam=ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.NAME',__pFamstat_rn) |
Spec |
|
|
__vuz=ThisForm.ThisFormData.Locate_tablefield('ZEMPEDUC','ENDDATE','ORGBASE_RN=__pOrgbase_rn
and EDUTYPE="1"') |
Spec |
|
|
__vuz1=
ThisForm.ThisFormData.Locate_tablefield('ZEMPEDUC','DOCDEALER','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__vuz2=
ThisForm.ThisFormData.Locate_tablefield('ZEMPEDUC','FACULTET','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__vz=
ThisForm.ThisFormData.Locate_tablefield('ZEMPEDUC','EDUORG_RN','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__zv1=ThisForm.ThisFormData.Locate_tablefield('ZEMPEDUC','EDUDEGREE_RN','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__zv2=ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.NAME',__zv1) |
Spec |
|
|
__zv11=
ThisForm.ThisFormData.Locate_tablefield('ZEMPEDUC','EDURANK_RN','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__zv22=ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.NAME',__zv11) |
Spec |
|
|
__vuz11=ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.NAME',__vz) |
Spec |
|
|
__pZ1=
ThisForm.ThisFormData.Locate_tablefield('ZEMPMIL','MILITARYKAT_RN','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__pZ2=allt(ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.CODE',__pZ1)) |
Spec |
|
|
__pGr1=
ThisForm.ThisFormData.Locate_tablefield('ZEMPMIL','MILITARYGRP_RN','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__pGr2=allt(ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.NAME',__pGr1)) |
Spec |
|
|
__pVUS1=
ThisForm.ThisFormData.Locate_tablefield('ZEMPMIL','MILITARYVUS_RN','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__pVUS2=allt(ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.NAME',__pVUS1)) |
Spec |
|
|
__pZv1=
ThisForm.ThisFormData.Locate_tablefield('ZEMPMIL','MILITARYRANK_RN','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__pZv2=allt(ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.NAME',__pZv1)) |
Spec |
|
|
__pRVK1=
ThisForm.ThisFormData.Locate_tablefield('ZEMPMIL','MILITARYKOM_RN','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__pRVK2=allt(ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.NAME',__pRVK1)) |
Spec |
|
|
__pNum1=
ThisForm.ThisFormData.Locate_tablefield('ZEMPMIL','MILITARYNUM_RN','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__pNum2=allt(ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.NAME',__pNum1)) |
Spec |
|
|
__fam=rtrim(FORMPRINT.SURNAME)+'
'+iif(!empty(FORMPRINT.FIRSTNAME),allt(FORMPRINT.FIRSTNAME) +' ','')
+iif(!empty(FORMPRINT.SECONDNAME),allt(FORMPRINT.SECONDNAME),'') |
Spec |
|
|
Адрес регистрации |
|
|
Dimension
__pRecAdr(14,2),__pDOP(4,4) |
Spec |
|
|
__pDop(1,1) = "№ уд на бронь" |
Spec |
|
|
__pDop(2,1) = "имеет МП" |
Spec |
|
|
__pDop(3,1) = "ИНВСПРАВКА" |
Spec |
|
Серия/номер/дата(ГГГГ-ММ-ДД) |
|
__pDop(4,1) = "полис СМО" |
Spec |
|
|
__pRecAdr(1,1) = "СТР" |
Spec |
|
|
__pRecAdr(2,1) = "ИНД" |
Spec |
|
|
__pRecAdr(3,1) = "РГР" |
Spec |
|
|
__pRecAdr(4,1) = "РЙН" |
Spec |
|
|
__pRecAdr(5,1) = "ГРН" |
Spec |
|
|
__pRecAdr(6,1) = "НПН" |
Spec |
|
|
__pRecAdr(7,1) = "УЛН" |
Spec |
|
|
__pRecAdr(8,1) = "ДОМ" |
Spec |
|
|
__pRecAdr(9,1) = "КОР" |
Spec |
|
|
__pRecAdr(10,1) = "КВА" |
Spec |
|
|
__pRecAdr(11,1) = "РЙТ" |
Spec |
|
|
__pRecAdr(12,1) = "ГРТ" |
Spec |
|
|
__pRecAdr(13,1) = "НПТ" |
Spec |
|
|
__pRecAdr(14,1) = "УЛТ" |
Spec |
|
|
ThisForm.ThisFormData.AddressPrint(__pOrgbase_rn,@__pRecAdr,"Ю") |
Spec |
|
|
__pDelim = ', ' |
Spec |
|
|
__padr1 = IIF(Empty(__pRecAdr(2,2)),'',__pRecAdr(2,2)+__pDelim) |
Spec |
|
|
__padr1 =
__padr1+IIF(!Empty(__pRecAdr(3,2)),allt(ThisForm.ThisFormData.Seek_TableField("REGION","RN","NAME",__pRecAdr(1,2)+__pRecAdr(3,2))),"") |
Spec |
|
|
__padr1 = __padr1+IIF(!Empty(__padr1) and
!Empty(__pRecAdr(4,2)),__pDelim,'')+Allt(__pRecAdr(4,2))+'
'+Allt(__pRecAdr(11,2)) |
Spec |
|
|
__padr1 = __padr1+IIF(!Empty(__padr1) and
!Empty(__pRecAdr(5,2)),__pDelim,'')+Allt(__pRecAdr(12,2))+'
'+Allt(__pRecAdr(5,2)) |
Spec |
|
|
__padr1 =__padr1+ IIF(!Empty(__padr1) and
!Empty(__pRecAdr(6,2)),__pDelim,'')+Allt(__pRecAdr(13,2))+'
'+Allt(__pRecAdr(6,2)) |
Spec |
|
|
__padr1 =__padr1+ IIF(!Empty(__padr1) and
!Empty(__pRecAdr(7,2)),__pDelim,'')+Allt(__pRecAdr(14,2))+ '
'+Allt(__pRecAdr(7,2)) |
Spec |
|
|
__padr1 =__padr1+ IIF(!Empty(__padr1) and
!Empty(__pRecAdr(8,2)),__pDelim,'')+IIF(!Empty(__pRecAdr(8,2)),'д.','')+Allt(__pRecAdr(8,2)) |
Spec |
|
|
__padr1 =__padr1+ IIF(!Empty(__padr1) and
!Empty(__pRecAdr(9,2)),__pDelim,'')+IIF(!Empty(__pRecAdr(9,2)),'корп.
','')+Allt(__pRecAdr(9,2)) |
Spec |
|
|
__padr1 =__padr1+ IIF(!Empty(__padr1) and
!Empty(__pRecAdr(10,2)),__pDelim,'')+IIF(!Empty(__pRecAdr(10,2)),'кв.
','')+Allt(__pRecAdr(10,2)) |
Spec |
|
|
__p_v23 = allt(__padr1) |
Spec |
|
|
Адрес фактический |
|
|
ThisForm.ThisFormData.AddressPrint(__pOrgbase_rn,@__pRecAdr,"Ф") |
Spec |
|
|
__padr2 = IIF(Empty(__pRecAdr(2,2)),'',__pRecAdr(2,2)+__pDelim) |
Spec |
|
|
__padr2 =
__padr2+IIF(!Empty(__pRecAdr(3,2)),allt(ThisForm.ThisFormData.Seek_TableField("REGION","RN","NAME",__pRecAdr(1,2)+__pRecAdr(3,2))),"") |
Spec |
|
|
__padr2 = __padr2+IIF(!Empty(__padr2) and
!Empty(__pRecAdr(4,2)),__pDelim,'')+Allt(__pRecAdr(4,2))+'
'+Allt(__pRecAdr(11,2)) |
Spec |
|
|
__padr2 = __padr2+IIF(!Empty(__padr2) and
!Empty(__pRecAdr(5,2)),__pDelim,'')+Allt(__pRecAdr(12,2))+'
'+Allt(__pRecAdr(5,2)) |
Spec |
|
|
__padr2 =__padr2+ IIF(!Empty(__padr2) and
!Empty(__pRecAdr(6,2)),__pDelim,'')+Allt(__pRecAdr(13,2))+'
'+Allt(__pRecAdr(6,2)) |
Spec |
|
|
__padr2 =__padr2+ IIF(!Empty(__padr2) and
!Empty(__pRecAdr(7,2)),__pDelim,'')+Allt(__pRecAdr(14,2))+ '
'+Allt(__pRecAdr(7,2)) |
Spec |
|
|
__padr2 =__padr2+ IIF(!Empty(__padr2) and
!Empty(__pRecAdr(8,2)),__pDelim,'')+IIF(!Empty(__pRecAdr(8,2)),'д.','')+Allt(__pRecAdr(8,2)) |
Spec |
|
|
__padr2 =__padr2+ IIF(!Empty(__padr2) and
!Empty(__pRecAdr(9,2)),__pDelim,'')+IIF(!Empty(__pRecAdr(9,2)),'корп.
','')+Allt(__pRecAdr(9,2)) |
Spec |
|
|
__padr2=__padr2+ IIF(!Empty(__padr2) and
!Empty(__pRecAdr(10,2)),__pDelim,'')+IIF(!Empty(__pRecAdr(10,2)),'кв.
','')+Allt(__pRecAdr(10,2)) |
Spec |
|
|
__p_v25 = allt(__padr2) |
Spec |
|
|
ThisForm.ThisFormData.DopInf(__pAnk_rn,@__pDOP) |
Spec |
|
|
__pT1="" |
Spec |
|
|
dimENSION __pA1(100,5) |
Spec |
|
|
store "" to __pA1 |
Spec |
|
|
select type, birthday, surname,
firstname, secondname from ZankFam into array __pA1 WHERE !dele() and
Orgbase_RN=__pOrgbase_rn and betw(type,"1","2") order by
birthday |
Spec |
|
|
__pCount=_tally |
Spec |
|
|
For i = 1 to __pCount |
Spec |
|
|
__pT1=__pT1+iif(empty(__pA1(i,2)),"",
allt(__pA1(i,3))+" "+allt(__pA1(i,4))+"
"+allt(__pA1(i,5))+" "+dtoc(__pA1(i,2))+","+chr(10)) |
Spec |
|
|
EndFor |
Spec |
|
|
__pT1=subs(__pT1,1,len(__pT1)-2) |
Spec |
|
|
dimENSION __pA2(100,2) |
Spec |
|
|
store "" to __pA2,
__pT2 |
Spec |
|
|
SELECT a.startdate, b.name FROM
zankinf a, markbase b INTO ARRAY __pA2 WHERE
BETWEEN(oSYSTEM.DATE,a.startdate,a.enddate) AND a.mark_rn=b.rn AND
LEFT(b.mnemo,9)='пенсионер' and a.Orgbase_RN=__pOrgbase_rn |
Spec |
|
|
__pCount=_tally |
Spec |
|
|
For i = 1 to __pCount |
Spec |
|
|
__pT2=__pT2+allt(__pA2(i,2))+"
"+dtoc(__pA2(i,1))+","+chr(10) |
Spec |
|
|
EndFor |
Spec |
|
|
__pT2=subs(__pT2,1,len(__pT2)-2) |
Spec |
|
|
DIMENSION aRWD(10,3) |
Spec |
|
|
SELECT
ZEMPRWD.DOCDATE,ZEMPRWD.REWARD_RN,zREWARD.NAME from ZEMPRWD INNER JOIN zREWARD ON
zREWARD.REWARD_RN=zEmpRWD.Reward_RN and RWDTYPE='5' into array aRWD WHERE ZEMPRWD.Orgbase_RN=__pOrgbase_rn |
Spec |
|
|
__nagr2 = "" |
Spec |
|
|
For i = 1 to alen(aRWD,1) |
Spec |
|
|
__nagr2=__nagr2+
Iif(empty(aRWD(i,3)),'',alltr(aRWD(i,3))+' c '+dtoc(aRWD(i,1)) +"
,"+chr(10)) |
Spec |
|
|
EndFor |
Spec |
|
|
__nagr2=subs(__nagr2,1,len(__nagr2)-2) |
Spec |
|
|
DIMENSION __pArr3(10,3) |
Spec |
|
|
select a.startdate, a.enddate,
b.name from zfcacst a, comdicbs b into array __pArr3 where
BETWEEN(oSYSTEM.DATE,a.startdate,a.enddate) and a.fcac_rn=FORMPRINT.fcac_rn
and a.state_rn=b.comdicbs_rn |
Spec |
|
|
__pCount=_tally |
Spec |
|
|
__pSost = "" |
Spec |
|
|
For i = 1 to __pCount |
Spec |
|
|
__pSost=__pSost+
allt(__pArr3(i,3))+' c
'+dtoc(__pArr3(i,1))+iif(__pArr3(i,2)=date(8888,12,31),'',' по
'+dtoc(__pArr3(i,2)))+","+chr(10) |
Spec |
|
|
|
|
EndFor |
Spec |
|
|
__pSost=subs(__pSost,1,len(__pSost)-2) |
Spec |
|
|
__pText2="" |
Spec |
|
|
dimENSION __pArr1(10,2) |
Spec |
|
|
store "" to __pArr1 |
Spec |
|
|
select code, phone from links
into array __pArr1 WHERE !dele() and Orbase_RN=__pOrgbase_rn |
Spec |
|
|
__pCount=_tally |
Spec |
|
|
For i = 1 to __pCount |
Spec |
|
|
__pText2=__pText2+iif(empty(__pArr1(i,2)),
"", allt(lower(__pArr1(i,1)))+".
"+allt(__pArr1(i,2))+","+chr(10)) |
Spec |
|
|
EndFor |
Spec |
|
|
__pText2=subs(__pText2,1,len(__pText2)-2) |
Spec |
|
|
select max(a.rank) from zfcacfzp
a, zkatfzp b into array __pArr1 where
BETWEEN(oSYSTEM.DATE,a.startdate,a.enddate) and a.fcac_rn=FORMPRINT.fcac_rn
and a.katfzp_rn=b.katfzp_rn and upper(left(b.code,5))='ОКЛАД' |
Spec |
|
|
__pRaz=iif(_tally=0,"",__pArr1) |
Spec |
|
|
select max(a.koeffval) from
zfcacfzp a, zkatfzp b into array __pArr1 where
BETWEEN(oSYSTEM.DATE,a.startdate,a.enddate) and a.fcac_rn=FORMPRINT.fcac_rn
and a.katfzp_rn=b.katfzp_rn and upper(left(b.code,9))='ВРЕДНОСТЬ' |
Spec |
|
|
__pVr=iif(_tally=0,"",int(__pArr1)) |
Spec |
|
|
select max(a.koeffval) from
zfcacfzp a, zkatfzp b into array __pArr1 where
BETWEEN(oSYSTEM.DATE,a.startdate,a.enddate) and a.fcac_rn=FORMPRINT.fcac_rn
and a.katfzp_rn=b.katfzp_rn and upper(left(b.code,7))='МЕДСТАЖ' |
Spec |
|
|
__pMed=iif(_tally=0,"",int(__pArr1)) |
Spec |
|
|
select max(a.koeffval) from
zfcacfzp a, zkatfzp b into array __pArr1 where
BETWEEN(oSYSTEM.DATE,a.startdate,a.enddate) and a.fcac_rn=FORMPRINT.fcac_rn
and a.katfzp_rn=b.katfzp_rn and upper(left(b.code,2))='РК' |
Spec |
|
|
__pRK=iif(_tally=0,"",int(__pArr1)) |
Spec |
|
|
select max(a.koeffval) from
zfcacfzp a, zkatfzp b into array __pArr1 where
BETWEEN(oSYSTEM.DATE,a.startdate,a.enddate) and a.fcac_rn=FORMPRINT.fcac_rn
and a.katfzp_rn=b.katfzp_rn and upper(left(b.code,2))='СН' |
Spec |
|
|
__pSN=iif(_tally=0,"",int(__pArr1)) |
Spec |
|
|
dimENSION __pArr1(100,2) |
Spec |
|
|
store "" to __pArr1 |
Spec |
|
|
select empeduc_rn, enddate from
ZEMPEDUC into array __pArr1 WHERE !dele() and Orgbase_RN=__pOrgbase_rn and
EDUTYPE="4" order by enddate
desc |
Spec |
|
|
__pUD=iif(_tally=0,"",dtoc(__pArr1(1,2))) |
Spec |
|
|
__pkurs=iif(empty(__pUD),"",allt(ThisForm.ThisFormData.Seek_tablefield('ZEMPEDUC','RN','NOTE',__pArr1(1,1)))) |
Spec |
|
|
__sp3=iif(empty(__pUD),"",ThisForm.ThisFormData.Seek_tablefield('ZEMPEDUC','RN','EDUORG_RN',__pArr1(1,1))) |
Spec |
|
|
__sp4=allt(ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.NAME',__sp3)) |
Spec |
|
|
__sp7=iif(empty(__pUD),"",ThisForm.ThisFormData.Seek_tablefield('ZEMPEDUC','RN','EDUKIND_RN',__pArr1(1,1))) |
Spec |
|
|
__sp71=iif(empty(__sp7),"",allt(ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.CODE',__sp7))) |
Spec |
|
|
__pkurs=iif(empty(__pUD),"",__sp71+":
"+__pkurs) |
Spec |
|
|
__pKK1=ThisForm.ThisFormData.KvKat("КВ/КТ") |
Spec |
|
|
__pKK2=iif(empty(__pKK1),"",ThisForm.ThisFormData.KvKat("ДАТА")) |
Spec |
|
|
__pKK3=iif(empty(__pKK1),"",ThisForm.ThisFormData.KvKat("СПЕЦИАЛЬНОСТЬ")) |
Spec |
|
|
__pKK4=iif(empty(__pKK1),"",allt(ThisForm.ThisFormData.Seek_tablefield('ZSPEC','CODE','NAME',__pKK3))) |
Spec |
|
|
__pKK5=iif(empty(__pKK1),"",iif("подтв."$__pKK1,"подтверждена
"+ lower(allt(strtran(__pKK1,"подтв.")))+"
категория","присвоена "+ lower(allt(__pKK1))+"
категория")) |
Spec |
|
|
dimENSION __pArr2(100,3) |
Spec |
|
|
store "" to __pArr2 |
Spec |
|
|
select date,spec_rn, docnumber
from ZEMPSERT into array __pArr2 WHERE !dele() and ank_RN=__pAnk_rn order by
date desc |
Spec |
|
|
__pSertD=iif(_tally=0,"",dtoc(__pArr2(1,1))) |
Spec |
|
|
__pSertS=iif(_tally=0,"",allt(ThisForm.ThisFormData.Seek_tablefield('ZSPEC','RN','NAME',__pArr2(1,2)))) |
Spec |
|
|
dimENSION __pArr1(10,4) |
Spec |
|
|
store "" to __pArr1 |
Spec |
|
|
select surname, firstname,
secondname, birthday from ZankFam into array __pArr1 WHERE !dele() and
Orgbase_RN=__pOrgbase_rn and betw(type,"3","4") |
Spec |
|
|
__pSupr=iif(_tally=0,"",allt(__pArr1(1,1))+"
"+allt(__pArr1(1,2))+" "+allt(__pArr1(1,3))) |
Spec |
|
|
__pSuprD=iif(_tally=0,"",dtoc(__pArr1(1,4))) |
Spec |
|
|
__pEdu="" |
Spec |
|
|
__pEduK=ThisForm.ThisFormData.Seek_tablefield('ZANK','RN','ZANK.EDUCATION',__pAnk_rn) |
Spec |
|
|
__pEdu=iif(__pEduK=='1','высшее',__pEdu) |
Spec |
|
|
__pEdu=iif(__pEduK=='2','внеполное
высшее',__pEdu) |
Spec |
|
|
__pEdu=iif(__pEduK=='3','среднее
специальное',__pEdu) |
Spec |
|
|
__pEdu=iif(__pEduK=='4','общее
среднее',__pEdu) |
Spec |
|
|
__pEdu=iif(__pEduK=='5','неполное
среднее',__pEdu) |
Spec |
|
|
__pEdu=iif(__pEduK=='6','начальное',__pEdu) |
Spec |
|
|
__pEdu=iif(__pEduK=='7','высшее
с аспирантурой',__pEdu) |
Spec |
|
|
Место рождения |
|
|
Dimension __pRecAdr(4,2) |
Spec |
|
|
__pRecAdr(1,1) = "ГРН" |
Spec |
|
Город |
|
|
__pRecAdr(2,1) = "РЙН" |
Spec |
|
Район |
|
|
__pRecAdr(3,1) = "РГР" |
Spec |
|
Регион |
|
|
__pRecAdr(4,1) = "СТР" |
Spec |
|
Страна |
|
|
ThisForm.ThisFormData.AddressPrint(ZANK.ORGBASE_RN,@__pRecAdr,"Р") |
Spec |
|
|
__pSt=allt(ThisForm.ThisFormData.Seek_TableField("COUNTRY","RN","NAME",__pRecAdr(4,2))) |
Spec |
|
|
__pObl =
rtrim(ThisForm.ThisFormData.Seek_TableField("REGION","RN","NAME",__pRecAdr(4,2)+__pRecAdr(3,2))) |
Spec |
|
|
__pObl = STRT(__pObl,
"обл","область") |
Spec |
|
|
__pGor=rtrim(__pRecAdr(1,2)) |
Spec |
|
|
__pRai=rtrim(__pRecAdr(2,2)) |
Spec |
|
|
__pRai=iif(empty(__pRai),"",iif(at('р-н',__pRai)>0 or
at('район',__pRai)>0,__pRai,__pRai+' р-н')) |
Spec |
|
|
__pMR="" |
Spec |
|
|
__pMR=iif(empty(__pSt),__pMR,__pSt) |
Spec |
|
|
__pMR=iif(empty(__pObl),__pMR,__pMR+', '+__pObl) |
Spec |
|
|
__pMR=iif(empty(__pRai),__pMR,__pMR+', '+__pRai) |
Spec |
|
|
__pMR=iif(empty(__pGor),__pMR,__pMR+', '+__pGor) |
Spec |
|
|
__pSost1=
ThisForm.ThisFormData.Locate_tablefield('ZEMPMIL','MILITARYSOST_RN','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__pSost2=allt(ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.NAME',__pSost1)) |
Spec |
|
|
__pGod1=
ThisForm.ThisFormData.Locate_tablefield('ZEMPMIL','MILITARYGOD_RN','ORGBASE_RN=__pOrgbase_rn') |
Spec |
|
|
__pGod2=ThisForm.ThisFormData.Seek_tablefield('COMDICBS','RN','COMDICBS.CODE',__pGod1) |
Spec |
|
|
__pGod=iif(left(__pGod2,2)=="А
" or allt(__pGod2)=='годен' or
allt(__pGod2)=='строевая',"А","") |
Spec |
|
|
__pGod=iif(left(__pGod2,2)=="Б
","Б",__pGod) |
Spec |
|
|
__pGod=iif(left(__pGod2,2)=="В
" or left(__pGod2,10)$'нестроевой,негоден 2с,негоден
ми',"В",__pGod) |
Spec |
|
|
__pGod=iif(left(__pGod2,2)=="Г
" or allt(__pGod2)=='нужд. в отдыхе',"Г",__pGod) |
Spec |
|
|
__pGod=iif(left(__pGod2,2)=="Д
" or allt(__pGod2)=='негоден',"Д",__pGod) |
Spec |
|
|
__pPr=alltrim(__pDop(1,2)) |
Spec |
|
|
__pNum=iif(at("|",__pPr)=0,__pPr,left(__pPr,at("|",__pPr)-1)) |
Spec |
|
|
__pPer=iif(at("|",__pPr)=0,"",subs(__pPr,at("|",__pPr)+1)) |
Spec |
|
|
__pZ=iif(__pZ2=='Запас
1кат.',"1",iif(__pZ2=='Запас 2кат.',"2","")) |
Spec |
|
| Состав |
__pSost2 |
Spec |
|
| Перечень |
__pPer |
Spec |
|
| КатГод |
__pGod |
Spec |
|
| МестоР |
__pMR |
Spec |
|
| Супруг |
__pSupr |
Spec |
|
| ДатаСупр |
__pSuprD |
Spec |
|
| Телефоны |
__pText2 |
Spec |
|
| фамилия |
__fam |
Spec |
|
| год |
dtoc(PERSON.BIRTHDAY) |
Spec |
|
| пол |
PERSON.SEX |
Spec |
|
| ДатаПр |
dtoc(ThisForm.ThisFormData.Seek_tablefield('ZANK','RN','ZANK.JOBBEGIN',__pAnk_rn)) |
Spec |
|
| Подразделение |
rtrim(ZSUBDIV.NAME)+"
"+ThisForm.ThisFormData.PodrNames(ZSUBDIV.SUBDIV_RN,10,"Р") |
Spec |
|
| Образование |
__pEdu |
Spec |
|
| ВУЗ |
iif(empty(__vuz11),"",alltr(__vuz11)) |
Spec |
|
| Факультет |
iif(empty(__vuz2),"",alltr(__vuz2)) |
Spec |
|
| ДатаУЗ |
iif(empty(__vuz),"",dtoc(__vuz)) |
Spec |
|
| должность |
alltr(ZTIPDOL.NAME) |
Spec |
|
| Характер |
allt(FORMPRINT.VIDISPCODE) |
Spec |
|
| Общий |
ThisForm.ThisFormData.Stazh('1','Общий',
oSystem.Date,0,0,0) |
Spec |
|
| Непрерывный |
ThisForm.ThisFormData.Stazh('1','Непрерывный',
oSystem.Date,0,0,0) |
Spec |
|
| Медстаж |
ThisForm.ThisFormData.Stazh('1','Медстаж',
oSystem.Date,0,0,0) |
Spec |
|
| Северный |
ThisForm.ThisFormData.Stazh('1','Северный',
oSystem.Date,0,0,0) |
Spec |
|
| Предприятие |
ThisForm.ThisFormData.Stazh('1','Предприятие',
oSystem.Date,0,0,0) |
Spec |
|
| ОбщВрач |
ThisForm.ThisFormData.Stazh('1','ОбщВрач',
oSystem.Date,0,0,0) |
Spec |
|
| ОбщМедсестр |
ThisForm.ThisFormData.Stazh('1','ОбщМедсестр',
oSystem.Date,0,0,0) |
Spec |
|
| Профессия |
ThisForm.ThisFormData.Stazh('1','Профессия',
oSystem.Date,0,0,0) |
Spec |
|
| Пвыдан |
allt(ThisForm.ThisFormData.Seek_tablefield('PERSON','RN','PERSON.DOCDEALER',__pOrgbase_rn))+"
"+dtoc(ThisForm.ThisFormData.Seek_tablefield('PERSON','RN','PERSON.DOCDATE',__pOrgbase_rn)) |
Spec |
|
| Псерия |
allt(ThisForm.ThisFormData.Seek_tablefield('PERSON','RN','PERSON.DOCSERIAL',__pOrgbase_rn))+"
"+allt(ThisForm.ThisFormData.Seek_tablefield('PERSON','RN','PERSON.DOCNUMBER',__pOrgbase_rn)) |
Spec |
|
| ПФ |
ThisForm.ThisFormData.Seek_tablefield('ZANK','RN','ZANK.PF_ID',__pAnk_rn) |
Spec |
|
| ИНН |
ThisForm.ThisFormData.Seek_tablefield('ORGBASE','RN','ORGBASE.INN',__pOrgbase_rn) |
Spec |
|
| Полис |
__pDop(4,2) |
Spec |
|
| ГруппаИ |
subs(__pDop(3,2),at("/",__pDop(3,2),3)+1) |
Spec |
|
| ВидПенсии |
__pT2 |
Spec |
|
| УсДата |
__pUD |
Spec |
|
| Курс |
__pkurs |
Spec |
|
| СертДата |
__pSertD |
Spec |
|
| СертСпец |
__pSertS |
Spec |
|
| Состояние |
__pSost |
Spec |
|
| КатДата |
__pKK2 |
Spec |
|
| Категория |
__pKK5 |
Spec |
|
| КатСпец |
__pKK4 |
Spec |
|
| Разряд |
__pRaz |
Spec |
|
| Вредность |
__pVr |
Spec |
|
| Медстаж1 |
__pMed |
Spec |
|
| РК |
__pRK |
Spec |
|
| СН |
__pSN |
Spec |
|
| ПочЗвание |
allt(__zv2) |
Spec |
|
| УчЗвание |
allt(__zv22) |
Spec |
|
| Награды |
__nagr2 |
Spec |
|
| Запас |
__pZ |
Spec |
|
| Группа |
__pGr2 |
Spec |
|
| ВУС |
__pVUS2 |
Spec |
|
| Звание |
__pZv2 |
Spec |
|
| Положение |
__pFam |
Spec |
|
| Дети |
__pT1 |
Spec |
|
| РВК |
__pRVK2 |
Spec |
|
| Прописка |
__p_v23 |
Spec |
|
| Проживание |
__p_v25 |
Spec |
|
| Бронь |
iif(at("|",__pDop(1,2))=0,__pDop(1,2),left(__pDop(1,2),at("|",__pDop(1,2))-1)) |
Spec |
|
| ЛичНомер |
__pNum2 |
Spec |
|
| МП |
__pDop(2,2) |
Spec |
|
|
|
|
|
|
|
|
|