Geum.ru

Автоматизация учета перечней льготных должностей в Отделении Пенсионного фонда Российской Федерации по Краснодарскому краю

Информация - Компьютеры, программирование

Другие материалы по предмету Компьютеры, программирование

);. AsString: = Copy (Org [0], 5,3);_NUM. AsString: = Copy (Org [0], 9,6);. AsString: = Org [1];. AsString: = Org [2];_FUNCTIONS. AsString: = Org [3];_NAME. AsString: = Org [4];_TEL. AsString: = Org [6];_NAME. AsString: = Org [5];_TEL. AsString: = Org [7];_EDIT. AsString: = Login;_EDIT. Value: = Date;. Post;. SQL. Clear;. SQL. Add (SELECT ORG_ID FROM ORG WHERE + (AREA = +(Org [0], 1,3) + ) AND + (REGION = + Copy (Org [0], 5,3) +

) AND + (REG_NUM = + Copy (Org [0], 9,6) + ) );. Active: = True;_ID: = ADOQueryID. Fields [0]. AsInteger;. Active: = False;;: = ADOTablePeriod. Lookup (ORG_ID; YEAR; KVARTAL, VarArrayOf ([ORG_ID,(Period [1]), Period [2]]), ORG_ID);not VarIsNull (V) then begin. Locate (ORG_ID; YEAR; KVARTAL, VarArrayOf ([ORG_ID,(Period [1]), Period [2]]), []);. Edit;_SOST. AsString: = Period [0];_SOTR. AsString: = Period [3];_EDIT. AsString: = Login;_EDIT. Value: = Date;. Post;_ID: = ADOTablePeriodPERIOD_ID. AsInteger;else begin. Insert;_ID. AsInteger: = ORG_ID;_SOST. AsString: = Period [0];. AsString: = Period [1];. AsString: = Period [2];_SOTR. AsString: = Period [3];_ADD. AsString: = Login;_ADD. Value: = Date;. Post;. SQL. Clear;. SQL. Add (SELECT PERIOD_ID FROM PERIOD WHERE + (ORG_ID = +(ORG_ID) + ) AND + (YEAR = + Period [1] + ) AND +

(KVARTAL = + Period [2] + ) );. Active: = True;_ID: = ADOQueryID. Fields [0]. AsInteger;. Active: = False;;: = XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes;I: = 2 to NodesPodrazd. Count-1 do begin(XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. NodeName = Подразделение) and

(XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. HasChildNodes) then begin[0]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [НомерПодраз]. Text);[1]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [НазваниеПодраз]. Text);[2]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [РаботаПодраз]. Text);[3]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [КолСотрПодраз]. Text);: = ADOTablePodrazd. Lookup (ORG_ID; NUM, VarArrayOf ([ORG_ID,[0]]), ORG_ID);not VarIsNull (V) then begin. Locate (ORG_ID; NUM, VarArrayOf ([ORG_ID, Podrazd [0]]),

[]);. Edit;. AsString: = Podrazd [1];. AsString: = Podrazd [2];_SOTR. AsString: = Podrazd [3];_EDIT. AsString: = Login;_EDIT. Value: = Date;. Post;_ID: = ADOTablePodrazdPODRAZD_ID. AsInteger;else begin. Insert;_ID. AsInteger: = ORG_ID;. AsString: = Podrazd [0];. AsString: = Podrazd [1];. AsString: = Podrazd [2];_SOTR. AsString: = Podrazd [3];_ADD. AsString: = Login;_ADD. Value: = Date;. Post;. SQL. Clear;. SQL. Add (SELECT PODRAZD_ID FROM PODRAZD WHERE +

(ORG_ID = + IntToStr (ORG_ID) + ) AND + (NUM = +[0] + ) );. Active: = True;_ID: = ADOQueryID. Fields [0]. AsInteger;. Active: = False;;: = XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes;Q: = 4 to NodesProfession. Count-1 do begin(XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. NodeName = ЛьготнаяПрофессия) and

(XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. HasChildNodes) then begin[0]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [Профессия]. Text);[1]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [УсловияРаботы]. Text);[2]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [ОснованиеЛьготы1]. Text);[3]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [ОснованиеЛьготы2]. Text);[4]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [ОснованиеЛьготы3]. Text);[5]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [ПозицияСписка]. Text);[6]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [ПодтверДокумент]. Text);[7]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [КоличествоШтат]. Text);[8]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [КоличествоФакт]. Text);[9]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [ЕТКС]. Text);[10]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [ДатаЗап]. Text);[11]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [ДатаКор]. Text);: = ADOTableProfession. Lookup (PODRAZD_ID; PERIOD_ID; PROFESSION,([PODRAZD_ID, PERIOD_ID, Prof [0]]), PODRAZD_ID);not VarIsNull (V) then begin. Locate (PODRAZD_ID; PERIOD_ID; PROFESSION,([PODRAZD_ID, PERIOD_ID, Prof [0]]), []);. Edit;. AsString: = Prof [1];. AsString: = Prof [2];. AsString: = Prof [3];. AsString: = Prof [4];_POZ. AsString: = Prof [5];. AsString: = Prof [6];_SHTAT. AsString: = Prof [7];_FAKT. AsString: = Prof [8];_ZAP. AsString: = Prof [10];_KOR. AsString: = Prof [11];_EDIT. AsString: = Login;_EDIT. Value: = Date;. Post;_ID: = ADOTableProfessionPROF_ID. AsInteger;else begin. Insert;_ID. AsInteger: = PODRAZD_ID;_ID. AsInteger: = PERIOD_ID;. AsString: = Prof [0];. AsString: = Prof [1];. AsString: = Prof [2];. AsString: = Prof [3];. AsString: = Prof [4];_POZ. AsString: = Prof [5];. AsString: = Prof [6];_SHTAT. AsString: = Prof [7];_FAKT. AsString: = Prof [8];_ZAP. AsString: = Prof [10];_KOR. AsString: = Prof [11];_ADD. AsString: = Login;_ADD. Value: = Date;. Post;. SQL. Clear;. SQL. Add (SELECT PROF_ID FROM PROFESSION WHERE +

(PODRAZD_ID = + IntToStr (PODRAZD_ID) + ) AND +

(PERIOD_ID = + IntToStr (PERIOD_ID) + ) AND +

(PROFESSION = + Prof [0] + ) );

ADOQueryID. Active: = True;_ID: = ADOQueryID. Fields [0]. AsInteger;. Active: = False;;: = XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes;J: = 12 to NodesEmployee. GetCount-1 do begin(XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. NodeName = ПоименныйСписок) and

(XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. HasChildNodes) then begin

Empl [0]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [СтрНомер]. Text);[1]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [Фамилия]. Text);[2]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [Имя]. Text);[3]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [Отчество]. Text);[4]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [КолПериодов]. Text);: = ADOTableEmployee. Lookup (PODRAZD_ID; PROF_ID; STRAH_NUM,([PODRAZD_ID, PROF_ID, Empl [0]]), PODRAZD_ID);not VarIsNull (V) then begin. Locate (PODRAZD_ID; PROF_ID; STRAH_NUM,([PODRAZD_ID, PROF_ID, Empl [0]]), []);. Edit;. AsString: = Empl [1];. AsString: = Empl [2];. AsString: = Empl [3];_WPERIOD. AsString: = Empl [4];_EDIT. AsString: = Login;_EDIT. Value: = Date;. Post;_ID: = ADOTableEmployeeEMPL_ID. AsInteger;else begin. Insert;_ID. AsInteger: = PODRAZD_ID;_ID. AsInteger: = PROF_ID;_NUM. AsString: = Empl [0];. AsString: = Empl [1];. AsString: = Empl [2];. AsString: = Empl [3];_WPERIOD. AsString: = Empl [4];_ADD. AsString: = Login;_ADD. Value: = Date;. Post;. SQL. Clear;. SQL. Add (SELECT EMPL_ID FROM EMPLOYEE WHERE +

(PODRAZD_ID = + IntToStr (PODRAZD_ID) + ) AND +

(PROF_ID = + IntToStr (PROF_ID) + ) AND +

(STRAH_NUM = + Empl [0] + ) );. Active: = True;_ID: = ADOQueryID. Fields [0]. AsInteger;. Active: = False;;: = XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes;K: = 5 to NodesWorkperiod. Count-1 do begin(XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. NodeName = ПериодРаботы) and

(XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. HasChildNodes) then begin[0]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes [Должность]. Text);[1]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes [НачалоПериода]. Text);[2]: = VarToStr (XMLDoc. Documen