Advertisement
reset_man

222

Apr 18th, 2024
786
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Sub formi_e()
  2. Dim файл As Object
  3. Dim end_t As String
  4. Dim tek_ch_zn As String
  5.     name_txt = "result.xml"
  6.     Set xl_osn = ActiveWorkbook
  7.     Set xl_nastr = xl_osn.Sheets("nastr")
  8.     Set xl_kontr = xl_osn.Sheets("kontra_list")
  9.     Set mDU = CreateObject("scripting.dictionary")
  10.     mDU.comparemode = 1  ''сравнение без учёта регистра
  11.    count_xl_kontr = xl_kontr.Cells(Rows.Count, "A").End(xlUp).Row
  12.     '-----
  13.    Dim wb As Workbook
  14.     Dim sSH As Worksheet, t As String
  15.     name_open_f = GetFileName("Выбор файла", ThisWorkbook.Path)
  16.     If name_open_f = "" Then
  17.        MsgBox ("Нечего обрабатывать")
  18.        Exit Sub
  19.     End If
  20.     'name_open_f = "D:\all_alex\xls_xml\test.xlsx"
  21.    Set wbs = Workbooks.Open(name_open_f)
  22.     Set xl_first = wbs.Sheets(1)
  23.     For Each ws In wbs.Worksheets
  24.         If InStr(1, ws.Name, "УПД", vbTextCompare) > 0 Then
  25.             Set xl_upd = wbs.Sheets(ws.Name)
  26.            
  27.         End If
  28.         If InStr(1, ws.Name, "КМ-", vbTextCompare) > 0 Then
  29.             Set sSH = wbs.Sheets(ws.Name)
  30.            
  31.         End If
  32.     Next ws
  33.     e = sSH.Range("A" & sSH.Rows.Count).End(xlUp).Row
  34.     For xx = 15 To e
  35.         t = sSH.Range("I" & xx)
  36.         If t <> "" Then mDU(t) = Mid(sSH.Range("A" & xx), 1, 31)
  37.     Next
  38.     '-----определяес позицию всего по упд
  39.    poz_vsego = 15
  40.     For i = 15 To 2000
  41.       tek_cell = xl_upd.Range("R" & i)
  42.       If InStr(1, tek_cell, "Всего к оплате", vbTextCompare) > 0 Then
  43.        poz_vsego = i - 1
  44.        Exit For
  45.       End If
  46.     Next i
  47.     '----определяем по первому листу
  48.    For i = 15 To 2000
  49.       tek_cell = xl_first.Range("A" & i)
  50.       If Trim(tek_cell) = "" Then
  51.        poz_vsego_first = i - 1
  52.        Exit For
  53.       End If
  54.     Next i
  55.     '----это всегда 2 строка на лмисте конты
  56.    
  57.     id_otpr = xl_kontr.Range("B2") ' постоянно() '"2BM-3702148437-370201001-201709141106289622657"
  58.    pоkup_name_org = xl_upd.Range("AB5")
  59.     id_pol = "xxxxx-xxxx-xxxx-xxxx-xxxxxxxxx"
  60.     For rr = 3 To count_xl_kontr
  61.       If xl_kontr.Cells(rr, 1) = pоkup_name_org Then
  62.         id_pol = xl_kontr.Cells(rr, 2)
  63.         Exit For
  64.       End If
  65.     Next rr
  66.     'id_pol = "2AEE11608B4-C441-48AD-B8D1-4F1751EB7694"
  67.     GUID_str = Mid(CreateGuidString(), 2, 36)
  68.     Dim tek_date As Date
  69.     tek_date = Date
  70.     dd = Day(Now)
  71.     mm = Month(Now)
  72.     If mm <= 9 Then mm_str = "0" & Trim(Str(mm)) Else mm_str = Trim(Str(mm))
  73.     gg = Year(Now)
  74.     If dd <= 9 Then dd_str = "0" & Trim(Str(dd)) Else dd_str = Trim(Str(dd))
  75.    
  76.     time_all = gg & mm_str & dd_str
  77.     id_file = "ON_NSCHFDOPPRMARK_" & id_pol & "_" & id_otpr & "_" & time_all & "_" & GUID_str
  78.    
  79.     path_tek = xl_osn.Path & "\" & id_file & ".xml" 'name_txt
  80.    Set file_l = CreateObject("Scripting.FileSystemObject").CreateTextFile(path_tek, True)
  81.      
  82.     xl_osn.Save
  83.     file_l.WriteLine "<?xml version=" & Chr(34) & "1.0" & Chr(34) & " encoding=" & Chr(34) & "windows-1251" & Chr(34) & "?>"
  84.    
  85.    
  86.    
  87.     file_l.WriteLine "<Файл ИдФайл=" & Chr(34) & id_file & Chr(34) & " ВерсФорм=" & Chr(34) & "5.01" & Chr(34) & " ВерсПрог=" & Chr(34) & "Diadoc 1.0" & Chr(34) & ">"
  88.     file_l.WriteLine "<СвУчДокОтбор ИдОтпр=" & Chr(34) & id_otpr & Chr(34) & " ИдПол=" & Chr(34) & id_pol & Chr(34) & ">"
  89.     file_l.WriteLine "</СвУчДокОтбор>"
  90.     knd = "1115131"
  91.     fun_n = "СЧФДОП"
  92.     pofactHG = "Документ об отгрузке товаров (выполнении работ), передаче имущественных прав (документ об оказании услуг)"
  93.     NaimDocOPr = "Счет-фактура и документ об отгрузке товаров (выполнении работ), передаче имущественных прав (документ об оказании услуг)"
  94.     DateInfPr = "22.03.2024"
  95.     VremInfPr = "08.05.28"
  96.     prod_name_org = Rep_all(xl_upd.Range("S5"))
  97.     NaimEkonSubSost = prod_name_org '"ООО &quot;АЛЬФА-ТРЕЙД&quot;, ИНН/КПП 3702148437/370201001"
  98.    file_l.WriteLine "<Документ КНД=" & Chr(34) & knd & Chr(34) & " Функция=" & Chr(34) & fun_n & Chr(34) & " ПоФактХЖ=" & Chr(34) & pofactHG & Chr(34) & " НаимДокОпр=" & Chr(34) & NaimDocOPr & Chr(34) & " ДатаИнфПр=" & Chr(34) & DateInfPr & Chr(34) & " ВремИнфПр=" & Chr(34) & VremInfPr & Chr(34) & " НаимЭконСубСост=" & Chr(34) & NaimEkonSubSost & Chr(34) & ">"
  99.     num_sf = xl_upd.Range("s2") '"32501"
  100.    date_sf = xl_upd.Range("v2") '"25.03.2024"
  101.    kod_okv = "643"
  102.      file_l.WriteLine "<СвСчФакт НомерСчФ=" & Chr(34) & num_sf & Chr(34) & " ДатаСчФ=" & Chr(34) & date_sf & Chr(34) & " КодОКВ=" & Chr(34) & kod_okv & Chr(34) & ">"
  103.      
  104.      prod_name_org = Rep_all(xl_upd.Range("S5")) '"ООО &quot;АЛЬФА-ТРЕЙД&quot;"
  105.     If InStr(1, xl_upd.Range("S7"), "/", vbTextCompare) > 0 Then
  106.        rez1 = Split(xl_upd.Range("S7"), "/")
  107.        prod_innul = rez1(0)
  108.        prod_kpp = rez1(1)
  109.      Else
  110.       prod_innul = xl_upd.Range("S7")
  111.       prod_kpp = ""
  112.      End If
  113.      'prod_innul = "3702148437"
  114.     'prod_kpp = "370201001"
  115.     prod_okopo = xl_nastr.Range("B7") '"01154260"
  116.     prod_kod_str = xl_nastr.Range("B2") '"643"
  117.     prod_adres_txt = xl_upd.Range("S6") '"153005, Ивановская область, г.о. Иваново, г Иваново, ул Сосновая, д. 28"
  118.     prod_tlf = xl_nastr.Range("B8") '"(4932) 938522"
  119.     prod_num_scheta = xl_nastr.Range("B4") '"40702810606200029655"
  120.     prod_namebank = xl_nastr.Range("B3") '"ПАО АКБ &quot;АВАНГАРД&quot;"
  121.     prod_bik = xl_nastr.Range("B5") '"044525201"
  122.     prod_kor_sch = xl_nastr.Range("B6") '"30101810000000000201"
  123.     file_l.WriteLine "<СвПрод ОКПО=" & Chr(34) & prod_okopo & Chr(34) & ">"
  124.      file_l.WriteLine "<ИдСв>"
  125.      file_l.WriteLine "<СвЮЛУч НаимОрг=" & Chr(34) & prod_name_org & Chr(34) & " ИННЮЛ=" & Chr(34) & prod_innul & Chr(34) & " КПП=" & Chr(34) & prod_kpp & Chr(34) & " />"
  126.      file_l.WriteLine "</ИдСв>"
  127.      file_l.WriteLine "<Адрес>"
  128.     file_l.WriteLine "<АдрИнф КодСтр=" & Chr(34) & prod_kod_str & Chr(34) & " АдрТекст=" & Chr(34) & prod_adres_txt & Chr(34) & " />"
  129.     file_l.WriteLine "</Адрес>"
  130.     file_l.WriteLine "<Контакт Тлф=" & Chr(34) & prod_tlf & Chr(34) & " />"
  131.     file_l.WriteLine "<БанкРекв НомерСчета=" & Chr(34) & prod_num_scheta & Chr(34) & ">"
  132.     file_l.WriteLine "<СвБанк НаимБанк=" & Chr(34) & prod_namebank & Chr(34) & " БИК=" & Chr(34) & prod_bik & Chr(34) & " КорСчет=" & Chr(34) & prod_kor_sch & Chr(34) & " />"
  133.     file_l.WriteLine "</БанкРекв>"
  134.     file_l.WriteLine "</СвПрод>"
  135.     '---------------грузо отправитель
  136.    If xl_upd.Range("S8") = "он же" Then
  137.      gruz_otprav_name_org = prod_name_org ' "ООО &quot;АЛЬФА-ТРЕЙД&quot;"
  138.     gruz_otprav_innul = prod_innul ' "3702148437"
  139.     gruz_otprav_kpp = prod_kpp ' "370201001"
  140.     gruz_otprav_okopo = prod_okopo '"01154260"
  141.     gruz_otprav_kod_str = prod_kod_str '"643"
  142.     gruz_otprav_adres_txt = prod_adres_txt ' "153005, Ивановская область, г.о. Иваново, г Иваново, ул Сосновая, д. 28"
  143.     gruz_otprav_tlf = prod_tlf '"(4932) 938522"
  144.    End If
  145.  
  146.    
  147.      file_l.WriteLine "<ГрузОт>"
  148.      file_l.WriteLine "<ГрузОтпр ОКПО=" & Chr(34) & gruz_otprav_okopo & Chr(34) & ">"
  149.      file_l.WriteLine "<ИдСв>"
  150.      file_l.WriteLine "<СвЮЛУч НаимОрг=" & Chr(34) & gruz_otprav_name_org & Chr(34) & " ИННЮЛ=" & Chr(34) & gruz_otprav_innul & Chr(34) & " КПП=" & Chr(34) & gruz_otprav_kpp & Chr(34) & " />"
  151.      file_l.WriteLine "</ИдСв>"
  152.      file_l.WriteLine "<Адрес>"
  153.      file_l.WriteLine "<АдрИнф КодСтр=" & Chr(34) & gruz_otprav_kod_str & Chr(34) & " АдрТекст=" & Chr(34) & gruz_otprav_adres_txt & Chr(34) & " />"
  154.      file_l.WriteLine "</Адрес>"
  155.      file_l.WriteLine "<Контакт Тлф=" & Chr(34) & gruz_otprav_tlf & Chr(34) & " />"
  156.      file_l.WriteLine "</ГрузОтпр>"
  157.      file_l.WriteLine " </ГрузОт>"
  158.   '---------------грузо получатель
  159.     gruz_polych_name_org = Rep_all(xl_upd.Range("S9")) '"ООО &quot;АЛЬФА-ТРЕЙД&quot;"
  160.     '--считаем что он же --продавец
  161.     '-------------------продовец
  162.     name_org = Rep_all(xl_upd.Range("AB5")) ' "ООО &quot;Трикотаж НАТАЛИ&quot;"
  163.     If InStr(1, xl_upd.Range("AB7"), "/", vbTextCompare) > 0 Then
  164.        rez1 = Split(xl_upd.Range("AB7"), "/")
  165.        innul = Replace(rez1(0), "ИНН", "")
  166.        kpp = Replace(rez1(1), "КПП", "")
  167.      Else
  168.       innul = Replace(xl_upd.Range("ab7"), "ИНН", "")
  169.       kpp = ""
  170.      End If
  171.     okopo = xl_nastr.Range("C7") '"01154260"
  172.    'innul = "3702703225"
  173.    'kpp = "370201001"
  174.    kod_str = xl_nastr.Range("c2") '"643"
  175.    adress_txt = xl_upd.Range("AB6") ' "153007, Ивановская обл, г.о. Иваново, г Иваново, ул Фрунзе, д. 97"
  176.    num_scheta = xl_nastr.Range("C4") '"40702810917000006966"
  177.    namebank = xl_nastr.Range("C3") ' "Ивановское отделение №8639 ПАО Сбербанк"
  178.    bik = xl_nastr.Range("C5") '"042406608"
  179.    korr_num = xl_nastr.Range("C6") ' "30101810000000000608"
  180.    
  181.      gruz_polych_innul = innul ' "3702148437"
  182.     gruz_polych_kpp = kpp '"370201001"
  183.     gruz_polych_okopo = okopo '"01154260"
  184.     gruz_polych_kod_str = "643"
  185.      gruz_polych_adres_txt = xl_upd.Range("v9") '"153005, Ивановская область, г.о. Иваново, г Иваново, ул Сосновая, д. 28"
  186.     gruz_polych_tlf = "(4932) 938522"
  187.      gruz_polych_num_scheta = num_scheta '"40702810606200029655"
  188.     gruz_polych_namebank = namebank '"ПАО АКБ &quot;АВАНГАРД&quot;"
  189.     gruz_polych_bik = bik  '"044525201"
  190.     gruz_polych_kor_sch = korr_num '"30101810000000000201"
  191.     file_l.WriteLine "<ГрузПолуч>"
  192.      file_l.WriteLine "<ИдСв>"
  193.      file_l.WriteLine "<СвЮЛУч НаимОрг=" & Chr(34) & gruz_polych_name_org & Chr(34) & " ИННЮЛ=" & Chr(34) & gruz_polych_innul & Chr(34) & " КПП=" & Chr(34) & gruz_polych_kpp & Chr(34) & " />"
  194.      file_l.WriteLine "</ИдСв>"
  195.      file_l.WriteLine "<Адрес>"
  196.      file_l.WriteLine "<АдрИнф КодСтр=" & Chr(34) & gruz_polych_kod_str & Chr(34) & " АдрТекст=" & Chr(34) & gruz_polych_adres_txt & Chr(34) & " />"
  197.      file_l.WriteLine "</Адрес>"
  198.      file_l.WriteLine "<БанкРекв НомерСчета=" & Chr(34) & gruz_polych_num_scheta & Chr(34) & ">"
  199.      file_l.WriteLine "<СвБанк НаимБанк=" & Chr(34) & gruz_polych_namebank & Chr(34) & " БИК=" & Chr(34) & gruz_polych_bik & Chr(34) & " КорСчет=" & Chr(34) & gruz_polych_kor_sch & Chr(34) & " />"
  200.      file_l.WriteLine "</БанкРекв>"
  201.      file_l.WriteLine "</ГрузПолуч>"
  202.    
  203.     nameovk = "Российский рубль"
  204.     НаимДокОтгр = "Реализация (акт, накладная, УПД)"
  205.     numdok_otgr = xl_upd.Range("S11") '"п/п 1 - 6 № 32501"
  206.    date_dok_otgr = xl_upd.Range("w11") '"25.03.2024"
  207.    file_l.WriteLine "<СвПокуп>"
  208.     file_l.WriteLine "<ИдСв>"
  209.     file_l.WriteLine "<СвЮЛУч НаимОрг=" & Chr(34) & name_org & Chr(34) & " ИННЮЛ=" & Chr(34) & innul & Chr(34) & " КПП=" & Chr(34) & kpp & Chr(34) & " />"
  210.     file_l.WriteLine "</ИдСв>"
  211.     file_l.WriteLine "<Адрес>"
  212.     file_l.WriteLine "<АдрИнф КодСтр=" & Chr(34) & kod_str & Chr(34) & " АдрТекст=" & Chr(34) & adress_txt & Chr(34) & " />"
  213.        
  214.     file_l.WriteLine "</Адрес>"
  215.     file_l.WriteLine "<БанкРекв НомерСчета=" & Chr(34) & num_scheta & Chr(34) & ">"
  216.     file_l.WriteLine "<СвБанк НаимБанк=" & Chr(34) & namebank & Chr(34) & " БИК=" & Chr(34) & bik & Chr(34) & " КорСчет=" & Chr(34) & korr_num & Chr(34) & " />"
  217.     file_l.WriteLine "</БанкРекв>"
  218.     file_l.WriteLine "</СвПокуп>"
  219.     file_l.WriteLine "<ДопСвФХЖ1 НаимОКВ=" & Chr(34) & nameovk & Chr(34) & " />"
  220.     file_l.WriteLine "<ДокПодтвОтгр НаимДокОтгр=" & Chr(34) & numdok_otgr & Chr(34) & " НомДокОтгр=" & Chr(34) & numdok_otgr & Chr(34) & " ДатаДокОтгр=" & Chr(34) & date_dok_otgr & Chr(34) & " />"
  221.     file_l.WriteLine "</СвСчФакт>"
  222.     '---табл товаров
  223.    file_l.WriteLine "<ТаблСчФакт>"
  224.  
  225.     sum_kol_vo_tov = 0
  226.     For ii = 15 To poz_vsego
  227.     '--- блок по товару
  228.      n_str = xl_upd.Range("q" & ii) '"6"
  229.      name_tov = xl_upd.Range("r" & ii) '"Простыня Ночь Нежна Грань (серый) осн. 7352-2 Поплин ЕВРО 240х215 полоса новая"
  230.      tov_price = xl_upd.Range("W" & ii) '"23"
  231.      okey_tov = xl_upd.Range("T" & ii) '"786"
  232.      kol_vo_tov = (Val(xl_upd.Range("V" & ii))) '"4.0"
  233.      tek_bez_nds = CStr(xl_upd.Range("X" & ii)) '"999999.99"
  234.      Nalst = CStr(xl_upd.Range("Z" & ii)) '"20%"
  235.      St_tov_ych_nal = CStr(xl_upd.Range("AB" & ii)) '"999999.99"
  236.      sum_nal_tek = CStr(Val(xl_upd.Range("AA" & ii))) '"3424"
  237.      tek_akcis = xl_upd.Range("Y" & ii)
  238.       kod_proisx = "643"
  239.       num_td = "-"
  240.       PrtovRab = "1"
  241.       Kod_tek_tov = xl_upd.Range("P" & ii) '"4660056137608"
  242.      Name_ed_izm = "шт."
  243.       KrnameCountry = "РОССИЯ"
  244.       sum_kol_vo_tov = sum_kol_vo_tov + kol_vo_tov
  245.       file_l.WriteLine "<СведТов НомСтр=" & Chr(34) & n_str & Chr(34) & " НаимТов=" & Chr(34) & name_tov & Chr(34) & " ОКЕИ_Тов=" & Chr(34) & okey_tov & Chr(34) & " КолТов=" & Chr(34) & kol_vo_tov & Chr(34) & " ЦенаТов=" & Chr(34) & tov_price & Chr(34) & " СтТовБезНДС=" & Chr(34) & tek_bez_nds & Chr(34) & " НалСт=" & Chr(34) & Nalst & Chr(34) & " СтТовУчНал=" & Chr(34) & St_tov_ych_nal & Chr(34) & ">"
  246.       file_l.WriteLine "<Акциз>"
  247.       file_l.WriteLine "<БезАкциз>" & tek_akcis & "</БезАкциз>"
  248.       file_l.WriteLine "</Акциз>"
  249.       file_l.WriteLine "<СумНал>"
  250.       file_l.WriteLine "<СумНал>" & sum_nal_tek & "</СумНал>"
  251.       file_l.WriteLine "</СумНал>"
  252.       file_l.WriteLine "<СвТД КодПроисх=" & Chr(34) & kod_proisx & Chr(34) & " НомерТД=" & Chr(34) & num_td & Chr(34) & " />"
  253.       file_l.WriteLine "<ДопСведТов ПрТовРаб=" & Chr(34) & PrtovRab & Chr(34) & " КодТов=" & Chr(34) & Kod_tek_tov & Chr(34) & " НаимЕдИзм=" & Chr(34) & Name_ed_izm & Chr(34) & " КрНаимСтрПр=" & Chr(34) & KrnameCountry & Chr(34) & ">"
  254.       file_l.WriteLine "<НомСредИдентТов>"
  255.             For jj = 15 To poz_vsego_first
  256.               If Kod_tek_tov = xl_first.Range("I" & jj) Then
  257.                  
  258.                  tek_ch_zn = CStr(xl_first.Range("a" & jj))
  259.                  tek_ch_zn = Mid(tek_ch_zn, 1, 31)
  260.                  tek_ch_zn = Rep_all(tek_ch_zn)
  261.                 file_l.WriteLine "<КИЗ>" & tek_ch_zn & "</КИЗ>"
  262.               End If
  263.             Next jj
  264.            
  265.       file_l.WriteLine "</НомСредИдентТов>"
  266.       file_l.WriteLine "</ДопСведТов>"
  267.       zn_tved = "&lt;&gt;"
  268.       zn_shtrh = Kod_tek_tov '"4660056137608"
  269.      file_l.WriteLine "<ИнфПолФХЖ2 Идентиф=" & Chr(34) & "тнвэд" & Chr(34) & " Значен=" & Chr(34) & zn_tved & Chr(34) & " />"
  270.       file_l.WriteLine "<ИнфПолФХЖ2 Идентиф=" & Chr(34) & "ID товара" & Chr(34) & " Значен=" & Chr(34) & zn_shtrh & Chr(34) & " />"
  271.       t = zn_shtrh
  272.       file_l.WriteLine "<ИнфПолФХЖ2 Идентиф=" & Chr(34) & "штрихкод" & Chr(34) & " Значен=" & Chr(34) & mDU(t) & Chr(34) & " />"
  273.       file_l.WriteLine "</СведТов>"
  274.  
  275.     'end--- блок по товару
  276.    Next ii
  277.     '--------блок всего
  278.    'poz_vsego
  279.    sttov_bez_nds_all = xl_upd.Range("X" & poz_vsego + 1) '"999999.99"
  280.    Sttov_ych_nal_all = xl_upd.Range("AB" & poz_vsego + 1) '"999999.99"
  281.    Sum_nal = xl_upd.Range("AA" & poz_vsego)
  282.     If Sum_nal <> "" Then
  283.       str_Sum_nal = CStr(Val(Sum_nal)) ' "999999.99"
  284.    Else
  285.       str_Sum_nal = "0"
  286.     End If
  287.     kol_netto_all = CStr(Round(Val(sum_kol_vo_tov), 2)) ' "31"
  288.    file_l.WriteLine "<ВсегоОпл СтТовБезНДСВсего=" & Chr(34) & sttov_bez_nds_all & Chr(34) & " СтТовУчНалВсего=" & Chr(34) & Sttov_ych_nal_all & Chr(34) & ">"
  289.     file_l.WriteLine "<СумНалВсего>"
  290.     file_l.WriteLine "<СумНал>" & Chr(34) & str_Sum_nal & Chr(34) & "</СумНал>"
  291.     file_l.WriteLine "</СумНалВсего>"
  292.     file_l.WriteLine "<КолНеттоВс>" & Chr(34) & kol_netto_all & Chr(34) & "</КолНеттоВс>"
  293.     file_l.WriteLine "</ВсегоОпл>"
  294.     file_l.WriteLine "</ТаблСчФакт>"
  295.  
  296.     '------<СвПродПер>
  297.    file_l.WriteLine "<СвПродПер>"
  298.     file_l.WriteLine "<СвПер СодОпер=" & Chr(34) & "Товары переданы, работы сданы, услуги оказаны" & Chr(34) & ">"
  299.     type_zak_doc = xl_nastr.Range("B9") ' "Заказ клиента"
  300.    nom_osn = xl_nastr.Range("B10") '"19101"
  301.    date_osn = xl_nastr.Range("B11") '"21.03.2024"
  302.    
  303.     file_l.WriteLine "<ОснПер НаимОсн=" & Chr(34) & type_zak_doc & Chr(34) & " НомОсн=" & Chr(34) & nom_osn & Chr(34) & " ДатаОсн=" & Chr(34) & date_osn & Chr(34) & " />"
  304.     If (type_zak_doc <> "") Or (nom_osn <> "") Or (date_osn <> "") Then
  305.         file_l.WriteLine "<СвЛицПер>"
  306.         dolg_prod = xl_nastr.Range("B12") '"Директор"
  307.        p_fio_fio = xl_nastr.Range("B13") '"Куприна"
  308.        p_fio_name = xl_nastr.Range("B14") '"Ольга"
  309.        p_fio_otch = xl_nastr.Range("B15") '"Станиславовна"
  310.        file_l.WriteLine "<РабОргПрод Должность=" & Chr(34) & dolg_prod & Chr(34) & ">"
  311.         file_l.WriteLine "<ФИО Фамилия=" & Chr(34) & p_fio_fio & Chr(34) & " Имя=" & Chr(34) & p_fio_name & Chr(34) & " Отчество=" & Chr(34) & p_fio_otch & Chr(34) & " />"
  312.         file_l.WriteLine "</РабОргПрод>"
  313.         file_l.WriteLine "</СвЛицПер>"
  314.         file_l.WriteLine "</СвПер>"
  315.     End If
  316.     file_l.WriteLine "</СвПродПер>"
  317.     '------Подписант
  318.    Status = "1"
  319.     osnPoln = "Должностные обязанности"
  320.     oblpoln = "6"
  321.     file_l.WriteLine "<Подписант ОснПолн=" & Chr(34) & osnPoln & Chr(34) & " ОблПолн=" & Chr(34) & oblpoln & Chr(34) & " Статус=" & Chr(34) & Status & Chr(34) & ">"
  322.     innul = prod_innul ' "3702148437"
  323.    dolgn = xl_nastr.Range("B16") '"Сотрудник"
  324.    If dolgn <> "" Then
  325.         nameorg = prod_name_org '"ООО &quot;АЛЬФА-ТРЕЙД&quot;"
  326.        file_l.WriteLine "<ЮЛ ИННЮЛ=" & Chr(34) & innul & Chr(34) & " Должн=" & Chr(34) & dolgn & Chr(34) & " НаимОрг=" & Chr(34) & nameorg & Chr(34) & ">"
  327.         fio_f = xl_nastr.Range("B17") '"Баннова"
  328.        fio_name = xl_nastr.Range("B18") '"Анна"
  329.        fio_otch = xl_nastr.Range("B19") '"Владимировна"
  330.        file_l.WriteLine "<ФИО Фамилия=" & Chr(34) & fio_f & Chr(34) & " Имя=" & Chr(34) & fio_name & Chr(34) & " Отчество=" & Chr(34) & fio_otch & Chr(34) & " />"
  331.         file_l.WriteLine "</ЮЛ>"
  332.     End If
  333.     file_l.WriteLine "</Подписант"
  334.     file_l.WriteLine "</Документ>"
  335.     file_l.WriteLine "</Файл>"
  336.     file_l.Close
  337.     Set file_l = Nothing
  338.    
  339.    xl_osn.Save
  340.    wbs.Close SaveChanges:=False
  341.    MsgBox ("Готово")
  342. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement