Код: Выделить всё
PROGRAM
MAP
END
INCLUDE('ABPRXML.INC'),ONCE
XML CLASS(XMLGenerator) ,THREAD
END
CODE
XML.Init('test.xml')
XML.OpenDocument()
XML.SetEncoding('windows-1251')
XML.SetUseCRLF(TRUE)
IF EXISTS('test.xml')
XML.SetRootTag('Файл')
XML.AddRootTagAttributes('ИдФайл','ON_SFAKT_2BK-7714902984-807078_2BK-7707083893-780888888-7800000000000_20141022_1899B29A-A185-469F-A663-BAA5142D908B')
XML.AddRootTagAttributes('ВерсПрог','Электронный Курьер 1.0')
XML.AddRootTagAttributes('ВерсФорм','5.01')
XML.AddTag('СвУчДокОбор','')
XML.AddAttribute('ИдОтпр','2BK-7707083893-780888888-7800000000000','СвУчДокОбор')
XML.AddAttribute('ИдПок','2BK-7714902984-807078','СвУчДокОбор')
XML.AddTag('СвОЭДОтпр','',FALSE,'СвУчДокОбор')
XML.AddAttribute('ИдЭДО','2BK','СвОЭДОтпр')
XML.AddAttribute('ИННЮЛ','7801392271','СвОЭДОтпр')
XML.AddAttribute('НаимОрг','Общество с ограниченной ответственностью "КОРУС Консалтинг СНГ"','СвОЭДОтпр')
XML.AddTag('Документ','')
XML.AddAttribute('КНД','1115101','Документ')
XML.AddTag('СвСчФакт','',FALSE,'Документ')
XML.AddAttribute('НомерСчФ','1','СвСчФакт')
XML.AddAttribute('ДатаСчФ','22.10.2014','СвСчФакт')
XML.AddAttribute('КодОКВ','643','СвСчФакт')
XML.AddTag('СвПрод','',FALSE,'СвСчФакт')
XML.AddTag('ИдСв','',FALSE,'СвПрод')
XML.AddTag('СвЮЛ','',FALSE,'ИдСв')
XML.AddAttribute('НаимОрг','Сбербанк ТЕСТ Контрагент 1','СвЮЛ')
XML.AddAttribute('ИННЮЛ','7707083893','СвЮЛ')
XML.AddAttribute('КПП','780888888','СвЮЛ')
XML.AddTag('Адрес','',FALSE,'СвПрод')
XML.AddTag('АдрРФ','',FALSE,'Адрес')
XML.AddAttribute('Индекс','190000','АдрРФ')
XML.AddAttribute('КодРегион','78','АдрРФ')
XML.AddAttribute('Город','Санкт-Петербург','АдрРФ')
XML.AddAttribute('Улица','Невский пр.','АдрРФ')
XML.AddAttribute('Дом','1','АдрРФ')
XML.AddAttribute('Корпус','1','АдрРФ')
XML.AddTag('ГрузОт','',FALSE,'СвСчФакт')
XML.AddTag('ОнЖе','он же',FALSE,'ГрузОт')
XML.AddTag('СвПокуп','',FALSE,'СвСчФакт')
XML.AddTag('ИдСв','',FALSE,'СвПокуп')
XML.AddTag('СвЮЛ','',FALSE,'ИдСв')
XML.AddAttribute('НаимОрг','ООО "Даймонд-Клаб"','СвЮЛ')
XML.AddAttribute('ИННЮЛ','7714902984','СвЮЛ')
XML.AddAttribute('КПП','771401001','СвЮЛ')
XML.AddTag('Адрес','',FALSE,'СвПокуп')
XML.AddTag('АдрРФ','',FALSE,'Адрес')
XML.AddAttribute('Индекс','127555','АдрРФ')
XML.AddAttribute('КодРегион','77','АдрРФ')
XML.AddAttribute('Улица','Мелиховская ул','АдрРФ')
XML.AddAttribute('Дом','2','АдрРФ')
XML.AddAttribute('Корпус','н','АдрРФ')
XML.AddAttribute('Кварт','н','АдрРФ')
XML.AddTag('ИнфПол','',FALSE,'СвСчФакт')
XML.AddTag('ТаблСчФакт','',FALSE,'Документ')
XML.AddTag('СведТов','',FALSE,'ТаблСчФакт')
XML.AddAttribute('НомСтр','1','СведТов')
XML.AddAttribute('НаимТов','масло','СведТов')
XML.AddAttribute('ОКЕИ_Тов','166','СведТов')
XML.AddAttribute('КолТов','150','СведТов')
XML.AddAttribute('ЦенаТов','150','СведТов')
XML.AddAttribute('СтТовБезНДС','22500','СведТов')
XML.AddAttribute('СтТовУчНал','26550','СведТов')
XML.AddTag('Акциз','',FALSE,'СведТов')
XML.AddAttribute('СумАкциз','без акциза','Акциз')
XML.AddTag('НалСт','',FALSE,'СведТов')
XML.AddAttribute('НалСтВел','18','НалСт')
XML.AddAttribute('НалСтТип','процент','НалСт')
XML.AddTag('СумНал','',FALSE,'СведТов')
XML.AddAttribute('СумНДС','4050.00','СумНал')
XML.AddTag('ВсегоОпл','',FALSE,'ТаблСчФакт')
XML.AddAttribute('СтТовБезНДСВсего','22500','ВсегоОпл')
XML.AddAttribute('СтТовУчНалВсего','26550','ВсегоОпл')
XML.AddTag('СумНалВсего','',FALSE,'ВсегоОпл')
XML.AddAttribute('СумНДС','4050.00','СумНалВсего')
XML.AddTag('Подписант','',FALSE,'Документ')
XML.AddTag('ЮЛ','',FALSE,'Подписант')
XML.AddAttribute('ИННЮЛ','7707083893','ЮЛ')
XML.AddAttribute('Должн','Тест должность','ЮЛ')
XML.AddTag('ФИО','',FALSE,'ЮЛ')
XML.AddAttribute('Фамилия','Петров','ФИО')
XML.AddAttribute('Имя','Петр','ФИО')
XML.AddAttribute('Отчество','Петрович','ФИО')
XML.SetSupportNameSpaces(True)
XML.CloseDocument()
END
Всем спасибо.
