% SET CPCOMPILE TO 1251 set date to german SET MARK TO "." set procedure to ../act_blank/htm_prc.fxp addi f_ok = afp_par("f_ok") f_dob1 = ctod(afp_par("f_dob1")) f_doe1 = ctod(afp_par("f_doe1")) f_d1 = 1+f_doe1-f_dob1 * ђ Ў®в®¤ ⥫м f_firmn = afp_par("f_firmn") f_okpo = afp_par("f_okpo") f_dolj = afp_par("f_dolj") f_chief = afp_par("f_chief") * ЏаЁЄ § ь ¤ в f_prik_n = afp_par("f_prik_n") f_prik_d = ctod(afp_par("f_prik_d")) f_prik_b = ctod(afp_par("f_prik_b")) f_prik_e = ctod(afp_par("f_prik_e")) f_d_beg = ctod(afp_par("f_d_beg")) f_d_end = ctod(afp_par("f_d_end")) f_prik_d = iif(empty(f_prik_d),date(),f_prik_d) * ђ Ў®вЁЄ - ®ЎйЁҐ ¤ лҐ f_fio = afp_par("f_fio") f_tab_num = afp_par("f_tab_num") f_stru = afp_par("f_stru") f_prof = afp_par("f_prof") f_pasp = afp_par("f_pasp") f_uslo = afp_par("f_uslo") f_cel = afp_par("f_cel") f_finans = afp_par("f_finans") f_osnov = afp_par("f_osnov") if len(f_ok)=0 * €ЁжЁ «Ё§ жЁп ४ўЁ§Ёв®ў if not used("firms") use gc_dbf+"firms" alias firms order spec in 0 endif select firms * ЋЇаҐ¤Ґ¤Ґ«ҐЁҐ ђ Ў®в®¤ ⥫п locate for at(gc_owner,spec)=1 if found() f_firmn = alltrim(org)+" "+STRTRAN(alltrim(firmnam),'"','"') f_okpo = okpo f_chief = chief f_dolj = doljnost endif use endif if len(f_ok)>0 * Љ®ўҐав жЁп Ў« Є ў WORD set procedure to ../act_blank/filetodoc addi f_debug="y" f_d = filetodoc("t9.htm") set procedure to close databases * ЏҐаҐе®¤ д ©« WORD fox.cform = "" fox.cparameter="f_doc="+f_d fox.call="../doc_out.php" return "" endif %>
Унифицированная форма
№ Т-9
Утверждена постановлением Госкомстата РФ
от 5 января 2004 г. № 1