API tools faq
paste
Advertisement
reset_man

222

reset_man
Apr 18th, 2024
1,175
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 19.97 KB | None | 0 0
raw download clone embed print report
  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
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!