_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. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['КонецПеріода']. Text); [3]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I] . ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['КолДнейБезЗП']. Text); [4]: ​​= VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q ]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['ОснованіеЛьготи1']. Text); [5]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [ J]. ChildNodes [K]. ChildNodes ['ОснованіеЛьготи2']. Text); [6]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['ОснованіеЛьготи3']. Text); [7]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['ПозіціяСпіска']. Text); [8]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes ['ФактМесяцев ']. Text); [9]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. ChildNodes [J]. ChildNodes [K]. ChildNodes [' ФактДней ']. Text ); [10]: = VarToStr (XMLDoc. DocumentElement. ChildNodes [Lvl1]. ChildNodes [I]. ChildNodes [Q]. Chil...
