// ‘ўҐ¤Ґ­Ёп ® зЁб«Ґ­­®бвЁ Ё ®Ї« вҐ ваг¤  а Ў®в­ЁЄ®ў бдҐал §¤а ў®®еа ­Ґ­Ёп // Ї® Є вҐЈ®аЁп¬ ЇҐаб®­ «  // ЏаЁЄ § ђ®ббв в  ®в 30.10.2012 ь 574 // ”®а¬  ь 3Џ-§¤а ў var CFile, CTabl, CMsg; int len = 512, W = 250, // ­Ґ ¬Ґ­ҐҐ бЁ¬ў®«®ў A = 250, // ­Ґ Ў®«ҐҐ бЁ¬ў®«®ў bTime = false; int tmi = 0; char str[len], arg[len], ts[len]; var XMLDoc; char Year[9]; char KodOP[5]; char DatTek[15]; char file[len]; double eps = 0.001; double tmp = 0; // Џ а ¬Ґвал int Format = 0; int FPRINT = 1; int CHVS = 0; int CHSP = 0; int TipChisl = 1; char fullXlsName[len]; int deltaPosSch = 0; int deltaPosVch = 0; int fMonthForm = 0; // 0 - Єў ав «м­ п, 1 - §  п­ў ам, 2 - ®бв «м­лҐ "¬Ґбпз­лҐ" ReadParam(¶m,np) // з⥭ЁҐ Ї а ¬Ґва®ў { if ( np > 0 ) Format = atoi(param[0]); if ( np > 1 ) FPRINT = atoi(param[1]); if ( np > 2 ) CHVS = atoi(param[2]); // Є®а४вЁа®ўЄ  Ї а¬Ґва®ў (Ґб«Ё ­Ґ®Ўе®¤Ё¬®) // CHVS = atoi(p3get("p3zdr","chisvs")); if ( CHVS ) CHVS = 1; CHSP = atoi(p3get("p3zdr","chisspis")); if ( CHSP ) CHSP = 1; TipChisl = atoi(p3get("p3obr","TipChisl")); if ( TipChisl ) TipChisl = 1; if ( -1 == fld[idxTSCH01] ) TipChisl = 1; return 0; } p3zdr(¶m,np) { ReadParam(param,np); CFile = CreateObject("CurPrnFile"); CFile.SetFlagBrowse(0); CFile.SetFlag_Print(0); // ­Ґ ЇҐз в вм table(); } table() { CTabl = CreateObject("CurPrnTbl"); if ( fTrans ) { // ЏҐаҐ¤ з  ў д ©« Ї® Alt+F9 CTabl.Initial(TabAdr); } int cr = CTabl.Count_Rcr(); int CR_INS = CTabl.GetCountInsertRcr(), REC_INS = 0; FillFld(); Year = TextOrEmpty(CTabl,fld[idxYear],0); KodOP = Trim(TextOrEmpty(CTabl,fld[idxKodOP],0)); if ( strlen(KodOP) == 1 ) KodOP = "0" + KodOP; int abeg = atoi(TextOrEmpty(CTabl,fld[idxABEG],0)); int aend = atoi(TextOrEmpty(CTabl,fld[idxAEND],0)); int dper = aend - abeg + 1; var km = CreateObject("KMonth"); km.SetMonth(abeg); int kalendBeg = km.GetMonth(); km.SetMonth(aend); int kalendEnd = km.GetMonth(); tmi = atoi(TextOrEmpty(CTabl,fld[idxKodOP],0)); if ( atoi(Year) >= 2020 ) fMonthForm = 0; else if ( tmi == 3 || tmi == 6 || tmi == 9 || tmi == 12 ) fMonthForm = 0; else fMonthForm = tmi==1?1:2; CMsg = CreateObject("ProgressBar"); CMsg.Initial(0,100,1); CMsg.SetShowTime(static_cast_to_int(bTime)); double sch = 0.0; double sch_s = 0.0; double sum00 = 0.0; int ns = 14; double TSC[ns]; double TVC[ns]; double T01[ns]; double T02[ns]; double T03[ns]; double T04[ns]; double T05[ns]; double T06[ns]; double T07[ns]; double T08[ns]; double T09[ns]; double T10[ns]; double T11[ns]; for ( int i = 0; i < ns; i++ ) { T01[i] = 0.0; T02[i] = 0.0; T03[i] = 0.0; T04[i] = 0.0; T05[i] = 0.0; T06[i] = 0.0; T07[i] = 0.0; T08[i] = 0.0; T09[i] = 0.0; T10[i] = 0.0; T11[i] = 0.0; TSC[i] = 0.0; TVC[i] = 0.0; } int vsovm = 0; // ЇаЁ§­ Є ў­Ґи­ҐЈ® б®ў¬ҐбвЁвҐ«п fullXlsName = Trim(TextOrEmpty(CTabl,fld[idxFNAME1],0)) + Trim(TextOrEmpty(CTabl,fld[idxFNAME2],0)); int acc = access(to_string(fullXlsName),0); if ( acc ) FPRINT = 1; if ( fTrans ) { // ЏҐаҐ¤ з  ў д ©« Ї® Alt+F9 if ( acc ) { AmbaMessageBox("ЏҐаҐ¤ ЇҐаҐ¤ зҐ© ў д ©« ­Ґ®Ўе®¤Ё¬® бд®а¬Ёа®ў вм ®взҐв Ї® F5","‚­Ё¬ ­ЁҐ!",0,0); return 0; } CHVS = atoi(p3get("p3zdr","chisvs")); if ( CHVS ) CHVS = 1; CHSP = atoi(p3get("p3zdr","chisspis")); if ( CHSP ) CHSP = 1; // return 0; } if ( Format == 0 ) { try { string fullFileName = GetPathXLT(NameCommonDir(),(atoi(Year)>=2014) ? "p3zdr_14.xlt" : "p3zdr_13.xlt"); tPrepereOfficeForWork(); // ®ЇаҐ¤Ґ«пҐ¬ а Ў®в вм ­  Excel Ё«Ё ­  Calc (®ЇаҐ¤Ґ«пҐ¬ Є Є®© Ё§ ®дЁб®ў (MS Office Ё«Ё OpenOffice) гбв ­®ў«Ґ­ Ё Є Є®© ЇаҐ¤Ї®звЁвҐ«м­ҐҐ) if ( FPRINT == 0 ) { fullFileName = to_string(fullXlsName); tOpenXlsObjects(fullFileName,"3Џ-§¤а ў - ‘ўҐ¤Ґ­Ёп ® зЁб«Ґ­­®бвЁ Ё ®Ї« вҐ ваг¤  а Ў®в­ЁЄ®ў бдҐал §¤а ў®®еа ­Ё­Ёп"); // ᮧ¤ ­ЁҐ ®б­®ў­ле ®ЎкҐЄв®ў tEndXlsWork(1); // ¤Ґ« Ґ¬ д®а¬г ўЁ¤Ё¬®© return 0; } else { // г¤ «пҐ¬ а ­ҐҐ ᮧ¤ ­­л© xls д ©« if ( !access(to_string(fullXlsName),0) ) { DeleteFile(to_string(fullXlsName)); } tCreateXlsObjects(fullFileName,"3Џ-§¤а ў - ‘ўҐ¤Ґ­Ёп ® зЁб«Ґ­­®бвЁ Ё ®Ї« вҐ ваг¤  а Ў®в­ЁЄ®ў бдҐал §¤а ў®®еа ­Ё­Ёп"); // ᮧ¤ ­ЁҐ ®б­®ў­ле ®ЎкҐЄв®ў } // жЁЄ« Ї® § ЇЁбп¬ в Ў«Ёжл for ( int zap = 0; zap < cr; zap++ ) { if ( CMsg.Msg_Proc(" Џ®¤®¦¤ЁвҐ ­Ґ¬­®Ј®. €¤Ґв Ї®¤Ј®в®ўЄ  Є ЇҐз вЁ. ",100.*zap/cr)==ESC ) return 0; REC_INS = CTabl.Flag_Action_1(zap); // Ґб«Ё Є ЄЁҐ-в® § ЇЁбЁ ўл¤Ґ«Ґ­л, ЇҐз в Ґ¬ в®«мЄ® Ёе if (CR_INS) if (!REC_INS) continue; for ( int i = 0; i < cm; i++ ) { KODS[i] = 0; KR[i] = 0; BUD[i] = 0.0; OMC[i] = 0.0; HOZ[i] = 0.0; DOG[i] = 0.0; SovBUD[i] = 0.0; SovOMC[i] = 0.0; SovHOZ[i] = 0.0; } int ids = idxKODS01; int idk = idxKR01; int ida = idxBUD01; int idb = idxOMC01; int idc = idxHOZ01; int idd = idxDOG01; int ide = idxSovBUD01; int idf = idxSovOMC01; int idg = idxSovHOZ01; for ( int i = 1; i < cm; i++ ) { KODS[i] = atoi(CTabl.Text(fld[ids],zap)); KR[i] = atoi(CTabl.Text(fld[idk],zap)); BUD[i] = atof(CTabl.Text(fld[ida],zap)); OMC[i] = atof(CTabl.Text(fld[idb],zap)); HOZ[i] = atof(CTabl.Text(fld[idc],zap)); DOG[i] = atof(CTabl.Text(fld[idd],zap)); SovBUD[i] = atof(CTabl.Text(fld[ide],zap)); SovOMC[i] = atof(CTabl.Text(fld[idf],zap)); SovHOZ[i] = atof(CTabl.Text(fld[idg],zap)); ids++; idk++; ida++; idb++; idc++; idd++; ide++; idf++; idg++; } int ks = 0; // Є®¤ бва®ЄЁ ids = idxKODS12; for ( int i = 1; i < cm; i++ ) { tmi = atoi(CTabl.Text(fld[ids],zap)); if ( tmi > 0 ) { ks = tmi; break; } ids--; } if ( ks > ns-1 ) continue; // ®иЁЎ®з­л© ­®¬Ґа бва®ЄЁ tmi = atoi(CTabl.Text(fld[idxFCkod_rab],zap)); // Є®¤ а Ў®вл ¤«п б।­ҐбЇЁб®з­®© зЁб«Ґ­­®бвЁ if ( tmi == 4 || tmi == 9 ) vsovm = 1; else vsovm = 0; sum00 = atof(CTabl.Text(fld[idxSUM00],zap)); // ‚ᥣ® ­ зЁб«Ґ­® sch = atof(CTabl.Text(fld[idxSCH],zap)); // б।­ҐбЇЁб®з­ п зЁб«Ґ­­®бвм sch_s = atof(CTabl.Text(fld[idxSCH_S],zap)); // б।­ҐбЇЁб®з­ п зЁб«Ґ­­®бвм ў­Ґи­Ёе б®ў¬ҐбвЁвҐ«Ґ© if ( TipChisl ) { if ( ks > 0 && ks < ns ) { T01[ks] += sch; T02[ks] += sch_s; } } else { if ( ks > 0 && ks < ns ) { TSC[ks] += sch; TVC[ks] += sch_s; if ( !deltaPosSch && sch > eps ) deltaPosSch = ks; if ( !deltaPosVch && sch_s > eps ) deltaPosVch = ks; } } int idx = idxKSS01; int idn = idxSOV01; int idtchis = idxTSCH01; int idvchis = idxVSCH01; for ( int i = 1; i < cm; i++, idx++, idn++, idtchis++, idvchis++ ) { ks = KODS[i]; if ( ks <= 0 || ks > ns ) continue; int kr = KR[i]; if ( kr == 0 ) continue; if ( kr == 2 ) vsovm = 1; else vsovm = 0; bool isChislPoKateg = !TipChisl && (i >= kalendBeg && i <= kalendEnd); if ( vsovm ) { T09[ks] += BUD[i]; T10[ks] += OMC[i]; T11[ks] += HOZ[i]; if ( isChislPoKateg ) T02[ks] += atof(CTabl.Text(fld[idvchis],zap)) / dper; } else { T06[ks] += BUD[i]; T07[ks] += OMC[i]; T08[ks] += HOZ[i]; T04[ks] += DOG[i]; if ( isChislPoKateg ) T01[ks] += atof(CTabl.Text(fld[idtchis],zap)) / dper; if ( nabs(SovBUD[i]+SovOMC[i]+SovHOZ[i])>0.00001 ) { T04[ks] += SovBUD[i]; T04[ks] += SovOMC[i]; T04[ks] += SovHOZ[i]; } else { int kss = atoi(CTabl.Text(fld[idx],zap)); if ( kss > 0 && ks < ns ) T04[kss] += atof(CTabl.Text(fld[idn],zap)); } } } } // Є®­Ґж жЁЄ«  Ї® § ЇЁбп¬ в Ў«Ёжл int MsgRub = 0; if ( atoi(p3get("p3zdr","MsgRub")) ) { if ( 1 == AmbaMessageBox("Ћв®Ўа ¦ вм бг¬¬л ў агЎ«пе Ё Є®ЇҐ©Є е?","",1,1) ) MsgRub = 1; } for ( int i = 0; i < ns; i++ ) { roundd(T01[i],CHSP,T01[i]); roundd(T02[i],CHVS,T02[i]); if ( !TipChisl ) { roundd(TSC[i],CHSP,TSC[i]); roundd(TVC[i],CHVS,TVC[i]); } if ( !MsgRub ) { roundd(T03[i]/1000.0,1,T03[i]); roundd(T04[i]/1000.0,1,T04[i]); roundd(T05[i]/1000.0,1,T05[i]); roundd(T06[i]/1000.0,1,T06[i]); roundd(T07[i]/1000.0,1,T07[i]); roundd(T08[i]/1000.0,1,T08[i]); roundd(T09[i]/1000.0,1,T09[i]); roundd(T10[i]/1000.0,1,T10[i]); roundd(T11[i]/1000.0,1,T11[i]); } } // Є®а४вЁа®ўЄ  if ( !TipChisl ) { KorrectChislZp(deltaPosSch,T01,TSC,ns,CHSP); KorrectChislZp(deltaPosVch,T02,TVC,ns,CHVS); } // 4 += 5 // 8 += 9 T01[4] += T01[5]; T01[8] += T01[9]; T02[4] += T02[5]; T02[8] += T02[9]; T04[4] += T04[5]; T04[8] += T04[9]; T06[4] += T06[5]; T06[8] += T06[9]; T07[4] += T07[5]; T07[8] += T07[9]; T08[4] += T08[5]; T08[8] += T08[9]; T09[4] += T09[5]; T09[8] += T09[9]; T10[4] += T10[5]; T10[8] += T10[9]; T11[4] += T11[5]; T11[8] += T11[9]; char Org[len], Adr[len], Ruk[len], Tel[len], Okv[len], Oka[len], Okf[len], Eml[len], Otv[len], DOtv[len], Okp[len]; GetEnterpriseVar("€ЊџЏ", Org, len-1); Trim(Org); GetEnterpriseVar("Ђ„ђЏ", Adr, len-1); Trim(Adr); GetEnterpriseVar("ђ“ЉЏ", Ruk, len-1); Trim(Ruk); GetEnterpriseVar("’…‹Џ", Tel, len-1); Trim(Tel); GetEnterpriseVar("ЋЉЏЋ", Okp, len-1); Trim(Okp); GetEnterpriseVar("ЋЉ‚ќ„", Okv, len-1); Trim(Okv); GetEnterpriseVar("ЋЉЂ’Ћ", Oka, len-1); Trim(Oka); GetEnterpriseVar("ЋЉ”‘", Okf, len-1); Trim(Okf); GetEnterpriseVar("Ћ’‚ЌЂ‹",Otv, len-1); Trim(Otv); GetEnterpriseVar("„Ћ‹†Ћ’‚ЌЂ‹",DOtv, len-1); Trim(DOtv); GetEnterpriseVar("ќ‹Џ—’", Eml, len-1); Trim(Eml); var mbeg = CreateObject("KMonth"); mbeg.SetMonth(abeg); sprintf(arg,"1,%d",mbeg.GetRel()); R_DATA_EX(arg,str,W,A); FreeSpaceString(str,3,""); LowerString(str); string smes0 = OemToAnsi(str); var mt = CreateObject("KMonth"); mt.SetMonth(aend); string year = SubStr(to_string(mt.GetYear()),2,2); sprintf(arg,"1,%d",mt.GetRel()); R_DATA_EX(arg,str,W,A); FreeSpaceString(str,3,""); LowerString(str); string smes1 = OemToAnsi(str); sprintf(arg,"11,%d",mt.GetRel()); R_DATA_EX(arg,str,W,A); FreeSpaceString(str,3,""); LowerString(str); string smes2 = OemToAnsi(str); for ( int i = 0, j = 3; j < 10; i++,j++ ) { str[i] = datatek[j]; } str[7] = 0; mt.SetDate(to_string(str)); sprintf(arg,"11,%d",mt.GetRel()); R_DATA_EX(arg,str,W,A); FreeSpaceString(str,3,""); string smes = OemToAnsi(str); sprintf(str,"%c%c",datatek[0],datatek[1]); string sday = to_string(str); sprintf(str,"%c%c",datatek[8],datatek[9]); string syear = to_string(str); tGetWshByIndex(1); // Ї®«гз Ґ¬ ббл«Єг ­  «Ёбв (worksheet) tWriteStringToCell("S44",OemToAnsi(Adr)); tWriteStringToCell("S49",OemToAnsi(Okp)); tWriteStringAndIfNeedIncreaseRow("AV",42,OemToAnsi(Org),80,12.75); // Наименоване организации tWriteStringToCell("CG14",year); tWriteStringToCell("BE14",OemToAnsi("§  ") + smes0 + " - " + smes1); tWriteStringToCell("BM49",to_string(p3get("p3zdr","tiporg"))); if ( atoi(Year) == 2015 ) { str = "ЏаЁЄ § ђ®ббв в :\nЋЎ г⢥তҐ­ЁЁ д®а¬л\n®в 19.11.2014 ь 671\nЋ ў­ҐбҐ­ЁЁ Ё§¬Ґ­Ґ­Ё© (ЇаЁ ­ «ЁзЁЁ)"; tWriteStringToCell("DP19",OemToAnsi(str)); } if ( atoi(Year) >= 2018 ) Correct2018(); else if ( atoi(Year) >= 2016 ) Correct2016(); tGetWshByIndex(2); if ( CHVS ) tNumberFormat("BH6:BR21","0.0"); if ( CHSP ) tNumberFormat("AV6:BG21","0.0"); int n = 0; // ­®¬Ґа бва®ЄЁ ў Excel string AC = ""; // ЇҐз вм бва®Є ®в 2 ¤® 13 for ( int i = 2; i < ns; i++ ) { if ( i == 2 ) n = 9; else if ( i == 3 ) n = 10; else if ( i == 4 ) n = 11; else if ( i == 5 ) n = 12; else if ( i == 6 ) n = 13; else if ( i == 7 ) n = 14; else if ( i == 8 ) n = 15; else if ( i == 9 ) n = 16; else if ( i == 10 ) n = 18; else if ( i == 11 ) n = 19; else if ( i == 12 ) n = 20; else if ( i == 13 ) n = 21; else n = 1; if ( nabs(T01[i]) > eps ) {AC = "AV" + to_string(n); tWriteNumToCell(AC,T01[i]);} if ( nabs(T02[i]) > eps ) {AC = "BH" + to_string(n); tWriteNumToCell(AC,T02[i]);} if ( nabs(T04[i]) > eps ) {AC = "CE" + to_string(n); tWriteNumToCell(AC,T04[i]);} if ( nabs(T06[i]) > eps ) {AC = "DC" + to_string(n); tWriteNumToCell(AC,T06[i]);} if ( nabs(T07[i]) > eps ) {AC = "DN" + to_string(n); tWriteNumToCell(AC,T07[i]);} if ( nabs(T08[i]) > eps ) {AC = "DW" + to_string(n); tWriteNumToCell(AC,T08[i]);} if ( nabs(T09[i]) > eps ) {AC = "EG" + to_string(n); tWriteNumToCell(AC,T09[i]);} if ( nabs(T10[i]) > eps ) {AC = "ER" + to_string(n); tWriteNumToCell(AC,T10[i]);} if ( nabs(T11[i]) > eps ) {AC = "FA" + to_string(n); tWriteNumToCell(AC,T11[i]);} } if ( atoi(Year) >= 2014 ) { tWriteStringToCell("DZ35",smes); tWriteStringToCell("DS35",sday); tWriteStringToCell("EP35",syear); tWriteStringToCell("CQ35",Eml); } else { tWriteStringToCell("CR35",smes); tWriteStringToCell("CK35",sday); tWriteStringToCell("DH35",syear); } tWriteStringToCell("BA32",OemToAnsi(DOtv)); tWriteStringToCell("CI32",OemToAnsi(Otv)); tWriteStringToCell("BA35",OemToAnsi(Tel)); GetCurrentDirectory(511,str); // а Ў®зЁ© Є в «®Ј  ¬Ўл if ( !IsLocalZPL() ) { if ( IsCommonResource(NameCommonDir()) == 2 ) { GetCommonZPL(str,511); } } char IDTime[20]; struct SYSTEMTIME st; GetLocalTime(st); R_SYS_DATA("6",DatTek,10,0); var Par = CreateObject("ParamFuncRW"); Par.IInitial(to_string(DatTek),".",3); int g = atoi(Par.Get(2)); sprintf(IDTime,"%04d%02d%02d%02d%02d%02d", g, st.wMonth, st.wDay, st.wHour, st.wMinute, st.wSecond); str = str + "\\"+NameCommonDir()+"\\STAT\\" + Year + "_" + KodOP + "\\"; fullpath(str,str,511); mkdirAll(str); str = str + "p3zdr_" + IDTime + ".xls"; //tProtect("",true,false); tSaveXlsObjects(to_string(str)); string FName1 = SubStr(str,0,250); string FName2 = SubStr(str,250,500); for ( int zap = 0; zap < cr; zap++ ) { CTabl.SText(fld[idxFNAME1],zap,FName1); CTabl.SText(fld[idxFNAME2],zap,FName2); CTabl.SText(fld[idxFFIRST],zap,"1"); } CTabl.Rewrite(); tGetWshByIndex(1); tWshSelect(); tFreeClipboard(); tEndXlsWork(1); // ¤Ґ« Ґ¬ д®а¬г ўЁ¤Ё¬®© } catch(object err) { SayError(err); } catch(...) { SayUndefinedScriptError(); } } if ( Format == 1 ) { // ЇҐаҐ¤ з  ў д ©« //AmbaMessageBox("„ ­­л© ०Ё¬ ­Ґ¤®бвгЇҐ­","",0,0); //return 0; try { if ( FileGmsInit()==ESC ) return 0; FileGmsFinal(XMLDoc); } catch(object err) { SayError(err); } catch(...) { SayUndefinedScriptError(); } } return 1; } int RAXD = 0; FileGmsInit() { var fullFileName = to_string(fullXlsName); tPrepereOfficeForWork(); // ®ЇаҐ¤Ґ«пҐ¬ а Ў®в вм ­  Excel Ё«Ё ­  Calc (®ЇаҐ¤Ґ«пҐ¬ Є Є®© Ё§ ®дЁб®ў (MS Office Ё«Ё OpenOffice) гбв ­®ў«Ґ­ Ё Є Є®© ЇаҐ¤Ї®звЁвҐ«м­ҐҐ) tOpenXlsObjects(fullFileName,""); // ᮧ¤ ­ЁҐ ®б­®ў­ле ®ЎкҐЄв®ў string IDF = "1"; tGetWshByIndex(1); UnloadScriptModule("msxml"); LoadScriptModule("msxml"); PutCharToStr(Year,4,'\0'); string OKUD = "0606045"; string IDP = "4"; if ( fMonthForm ) { OKUD = "0606055"; IDP = "12"; } string OP = ""; if ( fMonthForm == 0 ) { if ( atoi(KodOP) <= 3 ) { OP = "1"; } else if ( atoi(KodOP) <= 6 ) { OP = "2"; } else if ( atoi(KodOP) <= 9 ) { OP = "3"; } else if ( atoi(KodOP) <= 12 ) { OP = "4"; } } else { OP = to_string(atoi(KodOP)); } string PERIOD = Year + "_" + OP; string OKPO = GetStrCell("S49"); string Org = GetStrCell("AV42"); string Adr = GetStrCell("S44"); string Kod = GetStrCell("BM49"); file = OKUD + "_" + IDF + "_" + IDP + "_" + OKPO + "_" + PERIOD; OKUD = "606045"; IDF = "00" + IDF; IDP = "004"; if ( fMonthForm ) { OKUD = "606055"; IDP = "012"; } tGetWshByIndex(2); for ( int i = 0; i < 12; i++ ) { s[1][i] = ""; s[6][i] = ""; s[11][i] = ""; s[2][i] = ""; s[7][i] = ""; s[12][i] = ""; s[3][i] = ""; s[8][i] = ""; s[13][i] = ""; s[4][i] = ""; s[9][i] = ""; s[5][i] = ""; s[10][i] = ""; } s[1][1] = GNC("AV6", 15,CHSP); s[1][2] = GNC("BH6", 15,CHVS); s[1][3] = GNC("BS6", 15,1); s[1][4] = GNC("CE6", 15,1); s[1][5] = GNC("CR6", 15,1); s[1][6] = GNC("DC6", 15,1); s[1][7] = GNC("DN6", 15,1); s[1][8] = GNC("DW6", 15,1); s[1][9] = GNC("EG6", 15,1); s[1][10] = GNC("ER6", 15,1); s[1][11] = GNC("FA6", 15,1); s[2][1] = GNC("AV9", 15,CHSP); s[2][2] = GNC("BH9", 15,CHVS); s[2][3] = GNC("BS9", 15,1); s[2][4] = GNC("CE9", 15,1); s[2][5] = GNC("CR9", 15,1); s[2][6] = GNC("DC9", 15,1); s[2][7] = GNC("DN9", 15,1); s[2][8] = GNC("DW9", 15,1); s[2][9] = GNC("EG9", 15,1); s[2][10] = GNC("ER9", 15,1); s[2][11] = GNC("FA9", 15,1); s[3][1] = GNC("AV10",15,CHSP); s[3][2] = GNC("BH10",15,CHVS); s[3][3] = GNC("BS10",15,1); s[3][4] = GNC("CE10",15,1); s[3][5] = GNC("CR10",15,1); s[3][6] = GNC("DC10",15,1); s[3][7] = GNC("DN10",15,1); s[3][8] = GNC("DW10",15,1); s[3][9] = GNC("EG10",15,1); s[3][10] = GNC("ER10",15,1); s[3][11] = GNC("FA10",15,1); s[4][1] = GNC("AV11",15,CHSP); s[4][2] = GNC("BH11",15,CHVS); s[4][3] = GNC("BS11",15,1); s[4][4] = GNC("CE11",15,1); s[4][5] = GNC("CR11",15,1); s[4][6] = GNC("DC11",15,1); s[4][7] = GNC("DN11",15,1); s[4][8] = GNC("DW11",15,1); s[4][9] = GNC("EG11",15,1); s[4][10] = GNC("ER11",15,1); s[4][11] = GNC("FA11",15,1); s[5][1] = GNC("AV12",15,CHSP); s[5][2] = GNC("BH12",15,CHVS); s[5][3] = GNC("BS12",15,1); s[5][4] = GNC("CE12",15,1); s[5][5] = GNC("CR12",15,1); s[5][6] = GNC("DC12",15,1); s[5][7] = GNC("DN12",15,1); s[5][8] = GNC("DW12",15,1); s[5][9] = GNC("EG12",15,1); s[5][10] = GNC("ER12",15,1); s[5][11] = GNC("FA12",15,1); s[6][1] = GNC("AV13",15,CHSP); s[6][2] = GNC("BH13",15,CHVS); s[6][3] = GNC("BS13",15,1); s[6][4] = GNC("CE13",15,1); s[6][5] = GNC("CR13",15,1); s[6][6] = GNC("DC13",15,1); s[6][7] = GNC("DN13",15,1); s[6][8] = GNC("DW13",15,1); s[6][9] = GNC("EG13",15,1); s[6][10] = GNC("ER13",15,1); s[6][11] = GNC("FA13",15,1); s[7][1] = GNC("AV14",15,CHSP); s[7][2] = GNC("BH14",15,CHVS); s[7][3] = GNC("BS14",15,1); s[7][4] = GNC("CE14",15,1); s[7][5] = GNC("CR14",15,1); s[7][6] = GNC("DC14",15,1); s[7][7] = GNC("DN14",15,1); s[7][8] = GNC("DW14",15,1); s[7][9] = GNC("EG14",15,1); s[7][10] = GNC("ER14",15,1); s[7][11] = GNC("FA14",15,1); s[8][1] = GNC("AV15",15,CHSP); s[8][2] = GNC("BH15",15,CHVS); s[8][3] = GNC("BS15",15,1); s[8][4] = GNC("CE15",15,1); s[8][5] = GNC("CR15",15,1); s[8][6] = GNC("DC15",15,1); s[8][7] = GNC("DN15",15,1); s[8][8] = GNC("DW15",15,1); s[8][9] = GNC("EG15",15,1); s[8][10] = GNC("ER15",15,1); s[8][11] = GNC("FA15",15,1); s[9][1] = GNC("AV16",15,CHSP); s[9][2] = GNC("BH16",15,CHVS); s[9][3] = GNC("BS16",15,1); s[9][4] = GNC("CE16",15,1); s[9][5] = GNC("CR16",15,1); s[9][6] = GNC("DC16",15,1); s[9][7] = GNC("DN16",15,1); s[9][8] = GNC("DW16",15,1); s[9][9] = GNC("EG16",15,1); s[9][10] = GNC("ER16",15,1); s[9][11] = GNC("FA16",15,1); s[10][1] = GNC("AV18",15,CHSP); s[10][2] = GNC("BH18",15,CHVS); s[10][3] = GNC("BS18",15,1); s[10][4] = GNC("CE18",15,1); s[10][5] = GNC("CR18",15,1); s[10][6] = GNC("DC18",15,1); s[10][7] = GNC("DN18",15,1); s[10][8] = GNC("DW18",15,1); s[10][9] = GNC("EG18",15,1); s[10][10] = GNC("ER18",15,1); s[10][11] = GNC("FA18",15,1); s[11][1] = GNC("AV19",15,CHSP); s[11][2] = GNC("BH19",15,CHVS); s[11][3] = GNC("BS19",15,1); s[11][4] = GNC("CE19",15,1); s[11][5] = GNC("CR19",15,1); s[11][6] = GNC("DC19",15,1); s[11][7] = GNC("DN19",15,1); s[11][8] = GNC("DW19",15,1); s[11][9] = GNC("EG19",15,1); s[11][10] = GNC("ER19",15,1); s[11][11] = GNC("FA19",15,1); s[12][1] = GNC("AV20",15,CHSP); s[12][2] = GNC("BH20",15,CHVS); s[12][3] = GNC("BS20",15,1); s[12][4] = GNC("CE20",15,1); s[12][5] = GNC("CR20",15,1); s[12][6] = GNC("DC20",15,1); s[12][7] = GNC("DN20",15,1); s[12][8] = GNC("DW20",15,1); s[12][9] = GNC("EG20",15,1); s[12][10] = GNC("ER20",15,1); s[12][11] = GNC("FA20",15,1); s[13][1] = GNC("AV21",15,CHSP); s[13][2] = GNC("BH21",15,CHVS); s[13][3] = GNC("BS21",15,1); s[13][4] = GNC("CE21",15,1); s[13][5] = GNC("CR21",15,1); s[13][6] = GNC("DC21",15,1); s[13][7] = GNC("DN21",15,1); s[13][8] = GNC("DW21",15,1); s[13][9] = GNC("EG21",15,1); s[13][10] = GNC("ER21",15,1); s[13][11] = GNC("FA21",15,1); for ( int i = 1; i <= 13; i++ ) { int x = 0; for ( int j = 1; j <= 11; j++ ) { if ( nabs(atof(s[i][j])) > eps ) x = 1; } if ( x ) s[i][0] = "1"; else s[i][0] = "0"; } char Ruk[len]; GetEnterpriseVar("ђ“ЉЏЏ", Ruk, len-1); Trim(Ruk); string DOtv = GetStrCell("BA32"); string Otv = GetStrCell("CI32"); string Tel = GetStrCell("BA35"); string Day = (atoi(Year)>=2014) ? GetStrCell("DS35") : GetStrCell("CK35"); string God = (atoi(Year)>=2014) ? GetStrCell("EP35") : GetStrCell("DH35"); God = "20" + God; string Mes = (atoi(Year)>=2014) ? GetStrCell("DZ35") : GetStrCell("CR35"); string Eml = GetStrCell("CQ35"); if ( Mes == "ЯНВАРЯ" ) Mes = "01"; else if ( Mes == "ФЕВРАЛЯ" ) Mes = "02"; else if ( Mes == "МАРТА" ) Mes = "03"; else if ( Mes == "АПРЕЛЯ" ) Mes = "04"; else if ( Mes == "МАЯ" ) Mes = "05"; else if ( Mes == "ИЮНЯ" ) Mes = "06"; else if ( Mes == "ИЮЛЯ" ) Mes = "07"; else if ( Mes == "АВГУСТА" ) Mes = "08"; else if ( Mes == "СЕНТЯБРЯ" )Mes = "09"; else if ( Mes == "ОКТЯБРЯ" ) Mes = "10"; else if ( Mes == "НОЯБРЯ" ) Mes = "11"; else if ( Mes == "ДЕКАБРЯ" ) Mes = "12"; //else Mes = "03"; string Dat = Day + "." + Mes + "." + God; XMLDoc = CreateXML(toUTF8("version=\"1.0\" encoding=\"UTF-8\"")); XMLDoc.documentElement = CreateElemXML(XMLDoc,toUTF8("report")); // Љ®а­Ґў®© н«Ґ¬Ґ­в { SetAttrElemXML(XMLDoc.documentElement,toUTF8("code"), toUTF8(OKUD+IDF+IDP)); SetAttrElemXML(XMLDoc.documentElement,toUTF8("form"), toUTF8(to_string(atoi(IDF)))); SetAttrElemXML(XMLDoc.documentElement,toUTF8("shifr"), toUTF8("q_zp_zdrav")); if ( atoi(Year) >= 2019 ) { if ( fMonthForm ) SetAttrElemXML(XMLDoc.documentElement,toUTF8("version"),toUTF8("22-12-2017")); else SetAttrElemXML(XMLDoc.documentElement,toUTF8("version"),toUTF8("25-02-2019")); } else if ( atoi(Year) == 2018 ) { if ( fMonthForm ) SetAttrElemXML(XMLDoc.documentElement,toUTF8("version"),toUTF8("22-12-2017")); else SetAttrElemXML(XMLDoc.documentElement,toUTF8("version"),toUTF8("03-03-2017")); } else if ( atoi(Year) == 2017 ) { SetAttrElemXML(XMLDoc.documentElement,toUTF8("version"),toUTF8("03-03-2017")); } else if ( atoi(Year) == 2016 ) { SetAttrElemXML(XMLDoc.documentElement,toUTF8("version"),toUTF8("03-03-2016")); } else if ( atoi(Year) == 2015 ) { SetAttrElemXML(XMLDoc.documentElement,toUTF8("version"),toUTF8("31-03-2015")); } else if ( atoi(Year) == 2014 ) { SetAttrElemXML(XMLDoc.documentElement,toUTF8("version"),toUTF8("26-02-2014")); } else { SetAttrElemXML(XMLDoc.documentElement,toUTF8("version"),toUTF8("04-04-2013")); } RAXD = atoi(p3get("p3zdr","RAXD")); if ( RAXD ) { if ( RAXD == 1 ) Kod = "Автономное"; else if ( RAXD == 2 ) Kod = "Бюджетное"; else Kod = "Казенное"; int aend = atoi(TextOrEmpty(CTabl,fld[idxAEND],0)); var amend = CreateObject("KMonth"); amend.SetMonth(aend); ts = to_string(amend.GetMonth()); if ( strlen(ts) == 1 ) ts = "0" + ts; OP = "01" + to_string(ts); } SetAttrElemXML(XMLDoc.documentElement,toUTF8("format-version"),toUTF8("1.3")); SetAttrElemXML(XMLDoc.documentElement,toUTF8("year"), toUTF8(Year)); SetAttrElemXML(XMLDoc.documentElement,toUTF8("period"),toUTF8(OP)); var XMLTitle = CreateChildElemXML(XMLDoc,XMLDoc.documentElement,toUTF8("title")); // ’Ёвг« { var XMLItem2 = CreateChildElemXML(XMLDoc,XMLTitle,toUTF8("item")); // Ќ Ё¬Ґ­®ў ­ЁҐ ®аЈ ­Ё§ жЁЁ { SetAttrElemXML(XMLItem2,toUTF8("name"), toUTF8("name")); SetAttrElemXML(XMLItem2,toUTF8("value"),toUTF8(Org)); } var XMLItem1 = CreateChildElemXML(XMLDoc,XMLTitle,toUTF8("item")); // ЋЉЏЋ { SetAttrElemXML(XMLItem1,toUTF8("name"), toUTF8("okpo")); SetAttrElemXML(XMLItem1,toUTF8("value"),toUTF8(OKPO)); } // var XMLItem3 = CreateChildElemXML(XMLDoc,XMLTitle,toUTF8("item")); // ”€Ћ агЄ®ў®¤ЁвҐ«п // { // SetAttrElemXML(XMLItem3,toUTF8("name"), toUTF8("leader_fio")); // SetAttrElemXML(XMLItem3,toUTF8("value"),toUTF8(OemToAnsi(Ruk))); // } var XMLItem4 = CreateChildElemXML(XMLDoc,XMLTitle,toUTF8("item")); // „®«¦­®бвм ®вўҐвб⢥­­®Ј® { SetAttrElemXML(XMLItem4,toUTF8("name"), toUTF8("responsible_post")); SetAttrElemXML(XMLItem4,toUTF8("value"),toUTF8(DOtv)); } var XMLItem5 = CreateChildElemXML(XMLDoc,XMLTitle,toUTF8("item")); // ”€Ћ ®вўҐвб⢥­­®Ј® { SetAttrElemXML(XMLItem5,toUTF8("name"), toUTF8("responsible_fio")); SetAttrElemXML(XMLItem5,toUTF8("value"),toUTF8(Otv)); } var XMLItem6 = CreateChildElemXML(XMLDoc,XMLTitle,toUTF8("item")); // ⥫Ґд®­ { SetAttrElemXML(XMLItem6,toUTF8("name"), toUTF8("phone")); SetAttrElemXML(XMLItem6,toUTF8("value"),toUTF8(Tel)); } var XMLItem7 = CreateChildElemXML(XMLDoc,XMLTitle,toUTF8("item")); { SetAttrElemXML(XMLItem7,toUTF8("name"), toUTF8("org_adress")); SetAttrElemXML(XMLItem7,toUTF8("value"),toUTF8(Adr)); } var XMLItem8 = CreateChildElemXML(XMLDoc,XMLTitle,toUTF8("item")); { SetAttrElemXML(XMLItem8,toUTF8("name"), toUTF8("org_type")); SetAttrElemXML(XMLItem8,toUTF8("value"),toUTF8(Kod)); } var XMLItem9 = CreateChildElemXML(XMLDoc,XMLTitle,toUTF8("item")); { SetAttrElemXML(XMLItem9,toUTF8("name"), toUTF8("document_cretaion_date")); SetAttrElemXML(XMLItem9,toUTF8("value"),toUTF8(Dat)); } if ( atoi(Year) >= 2014 ) { var XMLItem10 = CreateChildElemXML(XMLDoc,XMLTitle,toUTF8("item")); { SetAttrElemXML(XMLItem10,toUTF8("name"), toUTF8("email")); SetAttrElemXML(XMLItem10,toUTF8("value"),toUTF8(Eml)); } } if ( RAXD ) { GetEnterpriseVar("€ЌЌ", str, len-1); Trim(str); GetEnterpriseVar("ЉЋ„ЏЋ‘“—", arg, len-1); Trim(arg); var XMLItem11 = CreateChildElemXML(XMLDoc,XMLTitle,toUTF8("item")); { SetAttrElemXML(XMLItem11,toUTF8("name"), toUTF8("inn")); SetAttrElemXML(XMLItem11,toUTF8("value"),toUTF8(str)); } var XMLItem12 = CreateChildElemXML(XMLDoc,XMLTitle,toUTF8("item")); { SetAttrElemXML(XMLItem12,toUTF8("name"), toUTF8("kpp")); SetAttrElemXML(XMLItem12,toUTF8("value"),toUTF8(arg)); } } } // title var XMLSections = CreateChildElemXML(XMLDoc,XMLDoc.documentElement,toUTF8("sections")); { var XMLSection = CreateChildElemXML(XMLDoc,XMLSections,toUTF8("section")); { SetAttrElemXML(XMLSection,toUTF8("code"), toUTF8("1")); for ( int i = 1; i <= 13; i++ ) { if ( atoi(s[i][0]) ) { var XMLRow = CreateChildElemXML(XMLDoc,XMLSection,toUTF8("row")); { SetAttrElemXML(XMLRow,toUTF8("code"), toUTF8(to_string(i))); for ( int j = 1; j <= 11; j++ ) { if ( nabs(atof(s[i][j])) > eps ) { var XMLCol = CreateChildElemXML(XMLDoc,XMLRow,toUTF8("col")); { SetAttrElemXML(XMLCol,toUTF8("code"), toUTF8(to_string(j))); ts = s[i][j]; SetValueTextBndXML(XMLCol,toUTF8(ts),strlen(ts)); } // col } } } // row } } } } // Sections } } string s[14][12]; FileGmsFinal(&XMLDoc) { char TmpFile[len]; TmpFile = "t1gms.tmp"; DeleteFile(TmpFile); if ( !SaveFileXMLFine(XMLDoc,TmpFile,"\t") ) //if ( !SaveFileXML(XMLDoc,TmpFile) ) { AmbaMessageBox("ЌҐў®§¬®¦­® ᮧ¤ вм д ©« osd11.tmp.","®иЁЎЄ ",0,0); return false; } XMLDoc = 0; char PathFile[512]; Text_Text(PathFile,"..\\sv\\",255); bool bCheck = true; bool bSign = false; bool bSend = false; if ( Panel_Path("Џгвм ¤«п ЇҐаҐ¤ зЁ д ©« :",PathFile,0)==ESC ) return false; string ext = ".xml"; // ‘®е࠭塞 १г«мв в Trim(PathFile); file = PathFile + file + ext; file = OemToAnsi(file); SaveTmp2File(TmpFile,file,true); tQuit(); tEndXlsWork(0); return 0; } RefEnt(name,&str,n) { GetEnterpriseVar(name,str,n); FreeSpaceString(str,3,""); UpperString(str); OemToChar(str,str); Trim(str); } Trim(&str) { var s = TrimN(str); str = s; return s; } toUTF8(st) { string s = ""; CP1251ToUTF8(Trim(st),s); return to_string(s); //return to_string(st); } GetStrCell(cel) { char bc[len]; bc = ""; bc = Trim(tReadStringFromCell(to_string(cel))); Upst(bc); if ( bc == "VOID" ) bc = ""; return to_string(bc); } GNC(cel,w,a) { char bc[len]; bc = ""; double dc = atof(tReadNumFromCell(to_string(cel))); sprintf(bc,"%*.*f",atoi(w),atoi(a),dc); Trim(bc); //if ( bc == "0" ) bc = ""; return to_string(bc); } Upst(&s) { CharToOem(s,s); UpperString(s); OemToChar(s,s); } FillFld() //============================================================================= // Ќ е®¤Ё¬ Ї®«п ў в Ў«ЁжҐ //============================================================================= { fld[idxSUM00] = CTabl.Find_Name_Fld("SUM00"); fld[idxC_FIO] = CTabl.Find_Name_Fld("C_FIO"); fld[idxFIO] = CTabl.Find_Name_Fld("FIO"); fld[idxKODSTR] = CTabl.Find_Name_Fld("KODSTR"); fld[idxSCH] = CTabl.Find_Name_Fld("SCH"); fld[idxSCH_S] = CTabl.Find_Name_Fld("SCH_S"); fld[idxABEG] = CTabl.Find_Name_Fld("ABEG"); fld[idxAEND] = CTabl.Find_Name_Fld("AEND"); fld[idxFFIRST] = CTabl.Find_Name_Fld("FFIRST"); fld[idxFNAME1] = CTabl.Find_Name_Fld("FNAME1"); fld[idxFNAME2] = CTabl.Find_Name_Fld("FNAME2"); fld[idxYear] = CTabl.Find_Name_Fld("Year"); fld[idxKodOP] = CTabl.Find_Name_Fld("KodOP"); fld[idxFCkod_rab] = CTabl.Find_Name_Fld("FCkod_rab"); fld[idxSUM01] = CTabl.Find_Name_Fld("SUM01"); fld[idxSUM02] = CTabl.Find_Name_Fld("SUM02"); fld[idxSUM03] = CTabl.Find_Name_Fld("SUM03"); fld[idxSUMSV] = CTabl.Find_Name_Fld("SUMSV"); fld[idxSTVS] = CTabl.Find_Name_Fld("STVS"); fld[idxSUMSV1] = CTabl.Find_Name_Fld("SUMSV1"); fld[idxRLISTNU] = CTabl.Find_Name_Fld("RLISTNU"); fld[idxKSS01] = CTabl.Find_Name_Fld("KSS01"); if ( -1 == fld[idxKSS01] ) fld[idxKSS01] = CTabl.Find_Name_Fld("ST01"); fld[idxKSS02] = CTabl.Find_Name_Fld("KSS02"); if ( -1 == fld[idxKSS02] ) fld[idxKSS02] = CTabl.Find_Name_Fld("ST02"); fld[idxKSS03] = CTabl.Find_Name_Fld("KSS03"); if ( -1 == fld[idxKSS03] ) fld[idxKSS03] = CTabl.Find_Name_Fld("ST03"); fld[idxKSS04] = CTabl.Find_Name_Fld("KSS04"); if ( -1 == fld[idxKSS04] ) fld[idxKSS04] = CTabl.Find_Name_Fld("ST04"); fld[idxKSS05] = CTabl.Find_Name_Fld("KSS05"); if ( -1 == fld[idxKSS05] ) fld[idxKSS05] = CTabl.Find_Name_Fld("ST05"); fld[idxKSS06] = CTabl.Find_Name_Fld("KSS06"); if ( -1 == fld[idxKSS06] ) fld[idxKSS06] = CTabl.Find_Name_Fld("ST06"); fld[idxKSS07] = CTabl.Find_Name_Fld("KSS07"); if ( -1 == fld[idxKSS07] ) fld[idxKSS07] = CTabl.Find_Name_Fld("ST07"); fld[idxKSS08] = CTabl.Find_Name_Fld("KSS08"); if ( -1 == fld[idxKSS08] ) fld[idxKSS08] = CTabl.Find_Name_Fld("ST08"); fld[idxKSS09] = CTabl.Find_Name_Fld("KSS09"); if ( -1 == fld[idxKSS09] ) fld[idxKSS09] = CTabl.Find_Name_Fld("ST09"); fld[idxKSS10] = CTabl.Find_Name_Fld("KSS10"); if ( -1 == fld[idxKSS10] ) fld[idxKSS10] = CTabl.Find_Name_Fld("ST10"); fld[idxKSS11] = CTabl.Find_Name_Fld("KSS11"); if ( -1 == fld[idxKSS11] ) fld[idxKSS11] = CTabl.Find_Name_Fld("ST11"); fld[idxKSS12] = CTabl.Find_Name_Fld("KSS12"); if ( -1 == fld[idxKSS12] ) fld[idxKSS12] = CTabl.Find_Name_Fld("ST12"); fld[idxSOV01] = CTabl.Find_Name_Fld("SOV01"); if ( -1 == fld[idxSOV01] ) fld[idxSOV01] = CTabl.Find_Name_Fld("SM01"); fld[idxSOV02] = CTabl.Find_Name_Fld("SOV02"); if ( -1 == fld[idxSOV02] ) fld[idxSOV02] = CTabl.Find_Name_Fld("SM02"); fld[idxSOV03] = CTabl.Find_Name_Fld("SOV03"); if ( -1 == fld[idxSOV03] ) fld[idxSOV03] = CTabl.Find_Name_Fld("SM03"); fld[idxSOV04] = CTabl.Find_Name_Fld("SOV04"); if ( -1 == fld[idxSOV04] ) fld[idxSOV04] = CTabl.Find_Name_Fld("SM04"); fld[idxSOV05] = CTabl.Find_Name_Fld("SOV05"); if ( -1 == fld[idxSOV05] ) fld[idxSOV05] = CTabl.Find_Name_Fld("SM05"); fld[idxSOV06] = CTabl.Find_Name_Fld("SOV06"); if ( -1 == fld[idxSOV06] ) fld[idxSOV06] = CTabl.Find_Name_Fld("SM06"); fld[idxSOV07] = CTabl.Find_Name_Fld("SOV07"); if ( -1 == fld[idxSOV07] ) fld[idxSOV07] = CTabl.Find_Name_Fld("SM07"); fld[idxSOV08] = CTabl.Find_Name_Fld("SOV08"); if ( -1 == fld[idxSOV08] ) fld[idxSOV08] = CTabl.Find_Name_Fld("SM08"); fld[idxSOV09] = CTabl.Find_Name_Fld("SOV09"); if ( -1 == fld[idxSOV09] ) fld[idxSOV09] = CTabl.Find_Name_Fld("SM09"); fld[idxSOV10] = CTabl.Find_Name_Fld("SOV10"); if ( -1 == fld[idxSOV10] ) fld[idxSOV10] = CTabl.Find_Name_Fld("SM10"); fld[idxSOV11] = CTabl.Find_Name_Fld("SOV11"); if ( -1 == fld[idxSOV11] ) fld[idxSOV11] = CTabl.Find_Name_Fld("SM11"); fld[idxSOV12] = CTabl.Find_Name_Fld("SOV12"); if ( -1 == fld[idxSOV12] ) fld[idxSOV12] = CTabl.Find_Name_Fld("SM12"); fld[idxSUMDOG] = CTabl.Find_Name_Fld("SUMDOG"); fld[idxFBCom] = CTabl.Find_Name_Fld("FBCom"); fld[idxSUM01M] = CTabl.Find_Name_Fld("SUM01M"); fld[idxSUM02M] = CTabl.Find_Name_Fld("SUM02M"); fld[idxSUM03M] = CTabl.Find_Name_Fld("SUM03M"); fld[idxKODS01] = CTabl.Find_Name_Fld("KODS01"); fld[idxKODS02] = CTabl.Find_Name_Fld("KODS02"); fld[idxKODS03] = CTabl.Find_Name_Fld("KODS03"); fld[idxKODS04] = CTabl.Find_Name_Fld("KODS04"); fld[idxKODS05] = CTabl.Find_Name_Fld("KODS05"); fld[idxKODS06] = CTabl.Find_Name_Fld("KODS06"); fld[idxKODS07] = CTabl.Find_Name_Fld("KODS07"); fld[idxKODS08] = CTabl.Find_Name_Fld("KODS08"); fld[idxKODS09] = CTabl.Find_Name_Fld("KODS09"); fld[idxKODS10] = CTabl.Find_Name_Fld("KODS10"); fld[idxKODS11] = CTabl.Find_Name_Fld("KODS11"); fld[idxKODS12] = CTabl.Find_Name_Fld("KODS12"); fld[idxKR01] = CTabl.Find_Name_Fld("KR01"); fld[idxKR02] = CTabl.Find_Name_Fld("KR02"); fld[idxKR03] = CTabl.Find_Name_Fld("KR03"); fld[idxKR04] = CTabl.Find_Name_Fld("KR04"); fld[idxKR05] = CTabl.Find_Name_Fld("KR05"); fld[idxKR06] = CTabl.Find_Name_Fld("KR06"); fld[idxKR07] = CTabl.Find_Name_Fld("KR07"); fld[idxKR08] = CTabl.Find_Name_Fld("KR08"); fld[idxKR09] = CTabl.Find_Name_Fld("KR09"); fld[idxKR10] = CTabl.Find_Name_Fld("KR10"); fld[idxKR11] = CTabl.Find_Name_Fld("KR11"); fld[idxKR12] = CTabl.Find_Name_Fld("KR12"); fld[idxBUD01] = CTabl.Find_Name_Fld("BUD01"); if ( -1 == fld[idxBUD01] ) fld[idxBUD01] = CTabl.Find_Name_Fld("SA01"); fld[idxBUD02] = CTabl.Find_Name_Fld("BUD02"); if ( -1 == fld[idxBUD02] ) fld[idxBUD02] = CTabl.Find_Name_Fld("SA02"); fld[idxBUD03] = CTabl.Find_Name_Fld("BUD03"); if ( -1 == fld[idxBUD03] ) fld[idxBUD03] = CTabl.Find_Name_Fld("SA03"); fld[idxBUD04] = CTabl.Find_Name_Fld("BUD04"); if ( -1 == fld[idxBUD04] ) fld[idxBUD04] = CTabl.Find_Name_Fld("SA04"); fld[idxBUD05] = CTabl.Find_Name_Fld("BUD05"); if ( -1 == fld[idxBUD05] ) fld[idxBUD05] = CTabl.Find_Name_Fld("SA05"); fld[idxBUD06] = CTabl.Find_Name_Fld("BUD06"); if ( -1 == fld[idxBUD06] ) fld[idxBUD06] = CTabl.Find_Name_Fld("SA06"); fld[idxBUD07] = CTabl.Find_Name_Fld("BUD07"); if ( -1 == fld[idxBUD07] ) fld[idxBUD07] = CTabl.Find_Name_Fld("SA07"); fld[idxBUD08] = CTabl.Find_Name_Fld("BUD08"); if ( -1 == fld[idxBUD08] ) fld[idxBUD08] = CTabl.Find_Name_Fld("SA08"); fld[idxBUD09] = CTabl.Find_Name_Fld("BUD09"); if ( -1 == fld[idxBUD09] ) fld[idxBUD09] = CTabl.Find_Name_Fld("SA09"); fld[idxBUD10] = CTabl.Find_Name_Fld("BUD10"); if ( -1 == fld[idxBUD10] ) fld[idxBUD10] = CTabl.Find_Name_Fld("SA10"); fld[idxBUD11] = CTabl.Find_Name_Fld("BUD11"); if ( -1 == fld[idxBUD11] ) fld[idxBUD11] = CTabl.Find_Name_Fld("SA11"); fld[idxBUD12] = CTabl.Find_Name_Fld("BUD12"); if ( -1 == fld[idxBUD12] ) fld[idxBUD12] = CTabl.Find_Name_Fld("SA12"); fld[idxOMC01] = CTabl.Find_Name_Fld("OMC01"); if ( -1 == fld[idxOMC01] ) fld[idxOMC01] = CTabl.Find_Name_Fld("SB01"); fld[idxOMC02] = CTabl.Find_Name_Fld("OMC02"); if ( -1 == fld[idxOMC02] ) fld[idxOMC02] = CTabl.Find_Name_Fld("SB02"); fld[idxOMC03] = CTabl.Find_Name_Fld("OMC03"); if ( -1 == fld[idxOMC03] ) fld[idxOMC03] = CTabl.Find_Name_Fld("SB03"); fld[idxOMC04] = CTabl.Find_Name_Fld("OMC04"); if ( -1 == fld[idxOMC04] ) fld[idxOMC04] = CTabl.Find_Name_Fld("SB04"); fld[idxOMC05] = CTabl.Find_Name_Fld("OMC05"); if ( -1 == fld[idxOMC05] ) fld[idxOMC05] = CTabl.Find_Name_Fld("SB05"); fld[idxOMC06] = CTabl.Find_Name_Fld("OMC06"); if ( -1 == fld[idxOMC06] ) fld[idxOMC06] = CTabl.Find_Name_Fld("SB06"); fld[idxOMC07] = CTabl.Find_Name_Fld("OMC07"); if ( -1 == fld[idxOMC07] ) fld[idxOMC07] = CTabl.Find_Name_Fld("SB07"); fld[idxOMC08] = CTabl.Find_Name_Fld("OMC08"); if ( -1 == fld[idxOMC08] ) fld[idxOMC08] = CTabl.Find_Name_Fld("SB08"); fld[idxOMC09] = CTabl.Find_Name_Fld("OMC09"); if ( -1 == fld[idxOMC09] ) fld[idxOMC09] = CTabl.Find_Name_Fld("SB09"); fld[idxOMC10] = CTabl.Find_Name_Fld("OMC10"); if ( -1 == fld[idxOMC10] ) fld[idxOMC10] = CTabl.Find_Name_Fld("SB10"); fld[idxOMC11] = CTabl.Find_Name_Fld("OMC11"); if ( -1 == fld[idxOMC11] ) fld[idxOMC11] = CTabl.Find_Name_Fld("SB11"); fld[idxOMC12] = CTabl.Find_Name_Fld("OMC12"); if ( -1 == fld[idxOMC12] ) fld[idxOMC12] = CTabl.Find_Name_Fld("SB12"); fld[idxHOZ01] = CTabl.Find_Name_Fld("HOZ01"); if ( -1 == fld[idxHOZ01] ) fld[idxHOZ01] = CTabl.Find_Name_Fld("SC01"); fld[idxHOZ02] = CTabl.Find_Name_Fld("HOZ02"); if ( -1 == fld[idxHOZ02] ) fld[idxHOZ02] = CTabl.Find_Name_Fld("SC02"); fld[idxHOZ03] = CTabl.Find_Name_Fld("HOZ03"); if ( -1 == fld[idxHOZ03] ) fld[idxHOZ03] = CTabl.Find_Name_Fld("SC03"); fld[idxHOZ04] = CTabl.Find_Name_Fld("HOZ04"); if ( -1 == fld[idxHOZ04] ) fld[idxHOZ04] = CTabl.Find_Name_Fld("SC04"); fld[idxHOZ05] = CTabl.Find_Name_Fld("HOZ05"); if ( -1 == fld[idxHOZ05] ) fld[idxHOZ05] = CTabl.Find_Name_Fld("SC05"); fld[idxHOZ06] = CTabl.Find_Name_Fld("HOZ06"); if ( -1 == fld[idxHOZ06] ) fld[idxHOZ06] = CTabl.Find_Name_Fld("SC06"); fld[idxHOZ07] = CTabl.Find_Name_Fld("HOZ07"); if ( -1 == fld[idxHOZ07] ) fld[idxHOZ07] = CTabl.Find_Name_Fld("SC07"); fld[idxHOZ08] = CTabl.Find_Name_Fld("HOZ08"); if ( -1 == fld[idxHOZ08] ) fld[idxHOZ08] = CTabl.Find_Name_Fld("SC08"); fld[idxHOZ09] = CTabl.Find_Name_Fld("HOZ09"); if ( -1 == fld[idxHOZ09] ) fld[idxHOZ09] = CTabl.Find_Name_Fld("SC09"); fld[idxHOZ10] = CTabl.Find_Name_Fld("HOZ10"); if ( -1 == fld[idxHOZ10] ) fld[idxHOZ10] = CTabl.Find_Name_Fld("SC10"); fld[idxHOZ11] = CTabl.Find_Name_Fld("HOZ11"); if ( -1 == fld[idxHOZ11] ) fld[idxHOZ11] = CTabl.Find_Name_Fld("SC11"); fld[idxHOZ12] = CTabl.Find_Name_Fld("HOZ12"); if ( -1 == fld[idxHOZ12] ) fld[idxHOZ12] = CTabl.Find_Name_Fld("SC12"); fld[idxDOG01] = CTabl.Find_Name_Fld("DOG01"); if ( -1 == fld[idxDOG01] ) fld[idxDOG01] = CTabl.Find_Name_Fld("SD01"); fld[idxDOG02] = CTabl.Find_Name_Fld("DOG02"); if ( -1 == fld[idxDOG02] ) fld[idxDOG02] = CTabl.Find_Name_Fld("SD02"); fld[idxDOG03] = CTabl.Find_Name_Fld("DOG03"); if ( -1 == fld[idxDOG03] ) fld[idxDOG03] = CTabl.Find_Name_Fld("SD03"); fld[idxDOG04] = CTabl.Find_Name_Fld("DOG04"); if ( -1 == fld[idxDOG04] ) fld[idxDOG04] = CTabl.Find_Name_Fld("SD04"); fld[idxDOG05] = CTabl.Find_Name_Fld("DOG05"); if ( -1 == fld[idxDOG05] ) fld[idxDOG05] = CTabl.Find_Name_Fld("SD05"); fld[idxDOG06] = CTabl.Find_Name_Fld("DOG06"); if ( -1 == fld[idxDOG06] ) fld[idxDOG06] = CTabl.Find_Name_Fld("SD06"); fld[idxDOG07] = CTabl.Find_Name_Fld("DOG07"); if ( -1 == fld[idxDOG07] ) fld[idxDOG07] = CTabl.Find_Name_Fld("SD07"); fld[idxDOG08] = CTabl.Find_Name_Fld("DOG08"); if ( -1 == fld[idxDOG08] ) fld[idxDOG08] = CTabl.Find_Name_Fld("SD08"); fld[idxDOG09] = CTabl.Find_Name_Fld("DOG09"); if ( -1 == fld[idxDOG09] ) fld[idxDOG09] = CTabl.Find_Name_Fld("SD09"); fld[idxDOG10] = CTabl.Find_Name_Fld("DOG10"); if ( -1 == fld[idxDOG10] ) fld[idxDOG10] = CTabl.Find_Name_Fld("SD10"); fld[idxDOG11] = CTabl.Find_Name_Fld("DOG11"); if ( -1 == fld[idxDOG11] ) fld[idxDOG11] = CTabl.Find_Name_Fld("SD11"); fld[idxDOG12] = CTabl.Find_Name_Fld("DOG12"); if ( -1 == fld[idxDOG12] ) fld[idxDOG12] = CTabl.Find_Name_Fld("SD12"); fld[idxSovBUD01] = CTabl.Find_Name_Fld("SovBUD01"); if ( -1 == fld[idxSovBUD01] ) fld[idxSovBUD01] = CTabl.Find_Name_Fld("SE01"); fld[idxSovBUD02] = CTabl.Find_Name_Fld("SovBUD02"); if ( -1 == fld[idxSovBUD02] ) fld[idxSovBUD02] = CTabl.Find_Name_Fld("SE02"); fld[idxSovBUD03] = CTabl.Find_Name_Fld("SovBUD03"); if ( -1 == fld[idxSovBUD03] ) fld[idxSovBUD03] = CTabl.Find_Name_Fld("SE03"); fld[idxSovBUD04] = CTabl.Find_Name_Fld("SovBUD04"); if ( -1 == fld[idxSovBUD04] ) fld[idxSovBUD04] = CTabl.Find_Name_Fld("SE04"); fld[idxSovBUD05] = CTabl.Find_Name_Fld("SovBUD05"); if ( -1 == fld[idxSovBUD05] ) fld[idxSovBUD05] = CTabl.Find_Name_Fld("SE05"); fld[idxSovBUD06] = CTabl.Find_Name_Fld("SovBUD06"); if ( -1 == fld[idxSovBUD06] ) fld[idxSovBUD06] = CTabl.Find_Name_Fld("SE06"); fld[idxSovBUD07] = CTabl.Find_Name_Fld("SovBUD07"); if ( -1 == fld[idxSovBUD07] ) fld[idxSovBUD07] = CTabl.Find_Name_Fld("SE07"); fld[idxSovBUD08] = CTabl.Find_Name_Fld("SovBUD08"); if ( -1 == fld[idxSovBUD08] ) fld[idxSovBUD08] = CTabl.Find_Name_Fld("SE08"); fld[idxSovBUD09] = CTabl.Find_Name_Fld("SovBUD09"); if ( -1 == fld[idxSovBUD09] ) fld[idxSovBUD09] = CTabl.Find_Name_Fld("SE09"); fld[idxSovBUD10] = CTabl.Find_Name_Fld("SovBUD10"); if ( -1 == fld[idxSovBUD10] ) fld[idxSovBUD10] = CTabl.Find_Name_Fld("SE10"); fld[idxSovBUD11] = CTabl.Find_Name_Fld("SovBUD11"); if ( -1 == fld[idxSovBUD11] ) fld[idxSovBUD11] = CTabl.Find_Name_Fld("SE11"); fld[idxSovBUD12] = CTabl.Find_Name_Fld("SovBUD12"); if ( -1 == fld[idxSovBUD12] ) fld[idxSovBUD12] = CTabl.Find_Name_Fld("SE12"); fld[idxSovOMC01] = CTabl.Find_Name_Fld("SovOMC01"); if ( -1 == fld[idxSovOMC01] ) fld[idxSovOMC01] = CTabl.Find_Name_Fld("SF01"); fld[idxSovOMC02] = CTabl.Find_Name_Fld("SovOMC02"); if ( -1 == fld[idxSovOMC02] ) fld[idxSovOMC02] = CTabl.Find_Name_Fld("SF02"); fld[idxSovOMC03] = CTabl.Find_Name_Fld("SovOMC03"); if ( -1 == fld[idxSovOMC03] ) fld[idxSovOMC03] = CTabl.Find_Name_Fld("SF03"); fld[idxSovOMC04] = CTabl.Find_Name_Fld("SovOMC04"); if ( -1 == fld[idxSovOMC04] ) fld[idxSovOMC04] = CTabl.Find_Name_Fld("SF04"); fld[idxSovOMC05] = CTabl.Find_Name_Fld("SovOMC05"); if ( -1 == fld[idxSovOMC05] ) fld[idxSovOMC05] = CTabl.Find_Name_Fld("SF05"); fld[idxSovOMC06] = CTabl.Find_Name_Fld("SovOMC06"); if ( -1 == fld[idxSovOMC06] ) fld[idxSovOMC06] = CTabl.Find_Name_Fld("SF06"); fld[idxSovOMC07] = CTabl.Find_Name_Fld("SovOMC07"); if ( -1 == fld[idxSovOMC07] ) fld[idxSovOMC07] = CTabl.Find_Name_Fld("SF07"); fld[idxSovOMC08] = CTabl.Find_Name_Fld("SovOMC08"); if ( -1 == fld[idxSovOMC08] ) fld[idxSovOMC08] = CTabl.Find_Name_Fld("SF08"); fld[idxSovOMC09] = CTabl.Find_Name_Fld("SovOMC09"); if ( -1 == fld[idxSovOMC09] ) fld[idxSovOMC09] = CTabl.Find_Name_Fld("SF09"); fld[idxSovOMC10] = CTabl.Find_Name_Fld("SovOMC10"); if ( -1 == fld[idxSovOMC10] ) fld[idxSovOMC10] = CTabl.Find_Name_Fld("SF10"); fld[idxSovOMC11] = CTabl.Find_Name_Fld("SovOMC11"); if ( -1 == fld[idxSovOMC11] ) fld[idxSovOMC11] = CTabl.Find_Name_Fld("SF11"); fld[idxSovOMC12] = CTabl.Find_Name_Fld("SovOMC12"); if ( -1 == fld[idxSovOMC12] ) fld[idxSovOMC12] = CTabl.Find_Name_Fld("SF12"); fld[idxSovHOZ01] = CTabl.Find_Name_Fld("SovHOZ01"); if ( -1 == fld[idxSovHOZ01] ) fld[idxSovHOZ01] = CTabl.Find_Name_Fld("SG01"); fld[idxSovHOZ02] = CTabl.Find_Name_Fld("SovHOZ02"); if ( -1 == fld[idxSovHOZ02] ) fld[idxSovHOZ02] = CTabl.Find_Name_Fld("SG02"); fld[idxSovHOZ03] = CTabl.Find_Name_Fld("SovHOZ03"); if ( -1 == fld[idxSovHOZ03] ) fld[idxSovHOZ03] = CTabl.Find_Name_Fld("SG03"); fld[idxSovHOZ04] = CTabl.Find_Name_Fld("SovHOZ04"); if ( -1 == fld[idxSovHOZ04] ) fld[idxSovHOZ04] = CTabl.Find_Name_Fld("SG04"); fld[idxSovHOZ05] = CTabl.Find_Name_Fld("SovHOZ05"); if ( -1 == fld[idxSovHOZ05] ) fld[idxSovHOZ05] = CTabl.Find_Name_Fld("SG05"); fld[idxSovHOZ06] = CTabl.Find_Name_Fld("SovHOZ06"); if ( -1 == fld[idxSovHOZ06] ) fld[idxSovHOZ06] = CTabl.Find_Name_Fld("SG06"); fld[idxSovHOZ07] = CTabl.Find_Name_Fld("SovHOZ07"); if ( -1 == fld[idxSovHOZ07] ) fld[idxSovHOZ07] = CTabl.Find_Name_Fld("SG07"); fld[idxSovHOZ08] = CTabl.Find_Name_Fld("SovHOZ08"); if ( -1 == fld[idxSovHOZ08] ) fld[idxSovHOZ08] = CTabl.Find_Name_Fld("SG08"); fld[idxSovHOZ09] = CTabl.Find_Name_Fld("SovHOZ09"); if ( -1 == fld[idxSovHOZ09] ) fld[idxSovHOZ09] = CTabl.Find_Name_Fld("SG09"); fld[idxSovHOZ10] = CTabl.Find_Name_Fld("SovHOZ10"); if ( -1 == fld[idxSovHOZ10] ) fld[idxSovHOZ10] = CTabl.Find_Name_Fld("SG10"); fld[idxSovHOZ11] = CTabl.Find_Name_Fld("SovHOZ11"); if ( -1 == fld[idxSovHOZ11] ) fld[idxSovHOZ11] = CTabl.Find_Name_Fld("SG11"); fld[idxSovHOZ12] = CTabl.Find_Name_Fld("SovHOZ12"); if ( -1 == fld[idxSovHOZ12] ) fld[idxSovHOZ12] = CTabl.Find_Name_Fld("SG12"); fld[idxTSCH01] = CTabl.Find_Name_Fld("TSCH01"); fld[idxTSCH02] = CTabl.Find_Name_Fld("TSCH02"); fld[idxTSCH03] = CTabl.Find_Name_Fld("TSCH03"); fld[idxTSCH04] = CTabl.Find_Name_Fld("TSCH04"); fld[idxTSCH05] = CTabl.Find_Name_Fld("TSCH05"); fld[idxTSCH06] = CTabl.Find_Name_Fld("TSCH06"); fld[idxTSCH07] = CTabl.Find_Name_Fld("TSCH07"); fld[idxTSCH08] = CTabl.Find_Name_Fld("TSCH08"); fld[idxTSCH09] = CTabl.Find_Name_Fld("TSCH09"); fld[idxTSCH10] = CTabl.Find_Name_Fld("TSCH10"); fld[idxTSCH11] = CTabl.Find_Name_Fld("TSCH11"); fld[idxTSCH12] = CTabl.Find_Name_Fld("TSCH12"); fld[idxVSCH01] = CTabl.Find_Name_Fld("VSCH01"); fld[idxVSCH02] = CTabl.Find_Name_Fld("VSCH02"); fld[idxVSCH03] = CTabl.Find_Name_Fld("VSCH03"); fld[idxVSCH04] = CTabl.Find_Name_Fld("VSCH04"); fld[idxVSCH05] = CTabl.Find_Name_Fld("VSCH05"); fld[idxVSCH06] = CTabl.Find_Name_Fld("VSCH06"); fld[idxVSCH07] = CTabl.Find_Name_Fld("VSCH07"); fld[idxVSCH08] = CTabl.Find_Name_Fld("VSCH08"); fld[idxVSCH09] = CTabl.Find_Name_Fld("VSCH09"); fld[idxVSCH10] = CTabl.Find_Name_Fld("VSCH10"); fld[idxVSCH11] = CTabl.Find_Name_Fld("VSCH11"); fld[idxVSCH12] = CTabl.Find_Name_Fld("VSCH12"); } int idxSUM00 = 0, idxC_FIO = 1, idxFIO = 2, idxKODSTR = 3, idxSCH = 4, idxSCH_S = 5, idxAEND = 6, idxFFIRST = 7, idxFNAME1 = 8, idxFNAME2 = 9, idxYear = 10, idxKodOP = 11, idxFCkod_rab = 12, idxSUM01 = 13, idxSUM02 = 14, idxSUM03 = 15, idxSUMSV = 16, idxSTVS = 17, idxSUMSV1 = 18, idxRLISTNU = 19, idxKSS01 = 20, idxKSS02 = 21, idxKSS03 = 22, idxKSS04 = 23, idxKSS05 = 24, idxKSS06 = 25, idxKSS07 = 26, idxKSS08 = 27, idxKSS09 = 28, idxKSS10 = 29, idxKSS11 = 30, idxKSS12 = 31, idxSOV01 = 32, idxSOV02 = 33, idxSOV03 = 34, idxSOV04 = 35, idxSOV05 = 36, idxSOV06 = 37, idxSOV07 = 38, idxSOV08 = 39, idxSOV09 = 40, idxSOV10 = 41, idxSOV11 = 42, idxSOV12 = 43, idxSUMDOG = 44, idxFBCom = 45, idxSUM01M = 46, idxSUM02M = 47, idxSUM03M = 48, idxKODS01 = 49, idxKODS02 = 50, idxKODS03 = 51, idxKODS04 = 52, idxKODS05 = 53, idxKODS06 = 54, idxKODS07 = 55, idxKODS08 = 56, idxKODS09 = 57, idxKODS10 = 58, idxKODS11 = 59, idxKODS12 = 60, idxKR01 = 61, idxKR02 = 62, idxKR03 = 63, idxKR04 = 64, idxKR05 = 65, idxKR06 = 66, idxKR07 = 67, idxKR08 = 68, idxKR09 = 69, idxKR10 = 70, idxKR11 = 71, idxKR12 = 72, idxBUD01 = 73, idxBUD02 = 74, idxBUD03 = 75, idxBUD04 = 76, idxBUD05 = 77, idxBUD06 = 78, idxBUD07 = 79, idxBUD08 = 80, idxBUD09 = 81, idxBUD10 = 82, idxBUD11 = 83, idxBUD12 = 84, idxOMC01 = 85, idxOMC02 = 86, idxOMC03 = 87, idxOMC04 = 88, idxOMC05 = 89, idxOMC06 = 90, idxOMC07 = 91, idxOMC08 = 92, idxOMC09 = 93, idxOMC10 = 94, idxOMC11 = 95, idxOMC12 = 96, idxHOZ01 = 97, idxHOZ02 = 98, idxHOZ03 = 99, idxHOZ04 = 100, idxHOZ05 = 101, idxHOZ06 = 102, idxHOZ07 = 103, idxHOZ08 = 104, idxHOZ09 = 105, idxHOZ10 = 106, idxHOZ11 = 107, idxHOZ12 = 108, idxDOG01 = 109, idxDOG02 = 110, idxDOG03 = 111, idxDOG04 = 112, idxDOG05 = 113, idxDOG06 = 114, idxDOG07 = 115, idxDOG08 = 116, idxDOG09 = 117, idxDOG10 = 118, idxDOG11 = 119, idxDOG12 = 120, idxSovBUD01 = 121, idxSovBUD02 = 122, idxSovBUD03 = 123, idxSovBUD04 = 124, idxSovBUD05 = 125, idxSovBUD06 = 126, idxSovBUD07 = 127, idxSovBUD08 = 128, idxSovBUD09 = 129, idxSovBUD10 = 130, idxSovBUD11 = 131, idxSovBUD12 = 132, idxSovOMC01 = 133, idxSovOMC02 = 134, idxSovOMC03 = 135, idxSovOMC04 = 136, idxSovOMC05 = 137, idxSovOMC06 = 138, idxSovOMC07 = 139, idxSovOMC08 = 140, idxSovOMC09 = 141, idxSovOMC10 = 142, idxSovOMC11 = 143, idxSovOMC12 = 144, idxSovHOZ01 = 145, idxSovHOZ02 = 146, idxSovHOZ03 = 147, idxSovHOZ04 = 148, idxSovHOZ05 = 149, idxSovHOZ06 = 150, idxSovHOZ07 = 151, idxSovHOZ08 = 152, idxSovHOZ09 = 153, idxSovHOZ10 = 154, idxSovHOZ11 = 155, idxSovHOZ12 = 156, idxABEG = 157, idxTSCH01 = 158, idxTSCH02 = 159, idxTSCH03 = 160, idxTSCH04 = 161, idxTSCH05 = 162, idxTSCH06 = 163, idxTSCH07 = 164, idxTSCH08 = 165, idxTSCH09 = 166, idxTSCH10 = 167, idxTSCH11 = 168, idxTSCH12 = 169, idxVSCH01 = 170, idxVSCH02 = 171, idxVSCH03 = 172, idxVSCH04 = 173, idxVSCH05 = 174, idxVSCH06 = 175, idxVSCH07 = 176, idxVSCH08 = 177, idxVSCH09 = 178, idxVSCH10 = 179, idxVSCH11 = 180, idxVSCH12 = 181, CntIdx = 182; int fld[CntIdx]; int cm = 13; int KODS[cm]; int KR[cm]; double BUD[cm]; double OMC[cm]; double HOZ[cm]; double DOG[cm]; double SovBUD[cm]; double SovOMC[cm]; double SovHOZ[cm]; int fTrans = 0; int TabAdr = 0; Transfer(AdrCTabl, AdrCListTabl, RcrInList) { TabAdr = AdrCTabl; fTrans = 1; // ўлЇ®«­пҐвбп ЇҐаҐ¤ з  ў д ©« Ї® Alt+F9 Format = 1; // ЇҐаҐ¤ з  ў д ©« table(); return 0; } Correct2016() { // сначала мы на первом листе, поправим приказ if ( atoi(Year) >= 2017 ) tWriteStringToCell("DP19","Приказ Росстата:\nОб утверждении формы\nот 07.10.2016 № 581\nО внесении изменений (при наличии)"); else tWriteStringToCell("DP19","Приказ Росстата:\nОб утверждении формы\nот 30.11.2015 № 594\nО внесении изменений (при наличии)"); return 0; } Correct2018() { tWriteStringToCell("S47","отчитывающейся организации\nпо ОКПО (для территориально\nобособленного подразделения -\nидентификационный номер)"); tWriteStringToCell("EK1","Приложение № 3"); // сначала мы на первом листе, поправим приказ if ( fMonthForm != 0 ) { tWriteStringToCell("DU30","Месячная"); tWriteStringToCell("DP19","Приказ Росстата:\nОб утверждении формы\nот 20.12.2017 № 846\nО внесении изменений (при наличии)"); tWriteStringToCell("A49","0606055"); if ( fMonthForm == 1 ) tWriteStringToCell("BN14","за"); } else { if ( atoi(Year) >= 2019 ) { if ( atoi(Year) >= 2020 ) { ts = "от 15.07.2019 № 404"; tmi = 9; } else { ts = "от 27.12.2018 № 781"; tmi = 3; } tWriteStringToCell("DP19","Приказ Росстата:\nОб утверждении формы\n" + ts + "\nО внесении изменений (при наличии)"); tWriteStringToCell("EK1","Приложение № " + to_string(tmi) + "\nУТВЕРЖДЕНА\nприказом Росстата\n" + ts); tWriteStringToCell("J5","Нарушение порядка предоставления первичных статистических данных, или несвоевременное предоставление этих данных, либо \nпредоставление недостоверных первичных статистических данных влечет ответственность, установленную статьей 13.19 Кодекса \nРоссийской Федерации об административных правонарушениях от 30.12.2001 № 195-ФЗ, а также статьей 3 Закона Российской Федерации \nот 13.05.1992 № 2761-1 \"Об ответственности за нарушение порядка представления государственной статистической отчетности\""); tWriteStringToCell("S47","отчитывающейся организации\nпо ОКПО (для территориально обособленного\nподразделения и головного подразделения юридического лица - идентификационный номер)"); tWriteStringToCell("B20","осуществляющие деятельность в области здравоохранения, подведомственные: органу"); tWriteStringToCell("B21","местного самоуправления, осуществляющему управление в сфере здравоохранения;"); tWriteStringToCell("B22","органу исполнительной власти субъекта Российской Федерации, осуществляющему"); tWriteStringToCell("B23","управление в сфере здравоохранения; Министерству здравоохранения Российской"); tWriteStringToCell("B24","Федерации:"); tWriteStringToCell("B32","осуществляющие деятельность в области здравоохранения, кроме подведомственных"); tWriteStringToCell("B34","органу местного самоуправления, осуществляющему управление в сфере"); tWriteStringToCell("B35","здравоохранения; органу исполнительной власти субъекта Российской Федерации,"); tWriteStringToCell("B36","осуществляющему управление в сфере здравоохранения; Министерству"); tWriteStringToCell("B37","здравоохранения Российской Федерации:"); tWriteStringToCell("F38","территориальному органу Росстата в субъекте Российской Федерации"); tWriteStringToCell("F39","по установленному им адресу;"); tWshSelect(); tRowHeight2(46,16); tRowHeight2(47,65); tWshCellSelect(1,1); } else { tWriteStringToCell("DP19","Приказ Росстата:\nОб утверждении формы\nот 25.12.2017 № 864\nО внесении изменений (при наличии)"); } } tGetWshByIndex(2); // получаем ссылку на лист (worksheet) if ( atoi(Year) >= 2020 ) tWriteStringToCell("FJ1",to_string("")); tWriteStringToCell("AV2","Средняя численность работников за отчетный период, человек"); tWriteStringToCell("L29","Должностное лицо, ответственное за"); tWriteStringToCell("L30","предоставление первичных статистических"); tWriteStringToCell("L31","данных (лицо, уполномоченное"); tWriteStringToCell("L32","предоставить первичные статистические"); tWriteStringToCell("L33","данные от имени юридического лица)"); if ( fMonthForm == 0 && atoi(Year) >= 2019 ) { tWriteStringToCell("BS2","Фонд начисленной заработной платы\nработников за отчетный период,\nтыс. руб."); tWriteStringToCell("DC2","Фонд начисленной заработной платы работников по источникам финансирования, тыс. руб."); tWriteStringToCell("DC3","из графы 3 списочного состава (без внешних совместителей)"); tWriteStringToCell("EG3","из графы 5 внешних совместителей"); tWriteStringToCell("B10","заместители руководителя, руководители структурных подразделений (кроме врачей - руководителей структурных подразделений), иные руководители"); tWriteStringToCell("L32","предоставлять первичные статистические"); } tGetWshByIndex(1); // возвращаем ссылку на первый лист перед выходом return 0; }