align="justify"> []);. 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&...
