| 0
- 22.01.2015 - 15:02
|
Всем привет, пытаюсь написать простенькую обработку по заполнению реквизитов контрагента по ИНН в 1С 7.7 В 8ке эта опция уже есть. Остановился на ответе с сервера, не могу понять в чем причину. Пожалуйста, помогите, кто разбирается в вопросе. Заранее спасибо. Цель обработок: обратиться к focus.kontur,ru с указанием ИНН и получить какую-нибудь информацию с сайта вроде наименования контрагента. На мой взгляд, обработки идентичны, но 8ка в переменную хHTTP.responsetext() возвращает то, с чем можно работать (некий файл html, в теле которого есть и КПП и юр адрес и наименование), а 7ка возвращает какую-то ерунду, а именно: <html><head><title>Object moved</title></head><body> <h2>Object moved to <a href="/search?query=7814559591&region=&industry=& amp;state=081077917">here</a>.</h2> </body></html> 8ка Процедура Команда1(Команда) ИНН="7814541393"; СтрокаПоиска = ИНН; СтрокаHTTPЗапроса = "https://focus.kontur.ru/search?query=<%ИНН%>®ion=<%РЕГИОН%>&industry=<% INDOSTRY%>&state=081077917"; СтрокаHTTPЗапроса = СтрЗаменить(СтрокаHTTPЗапроса, "<%ИНН%>", СокрЛП (ИНН)); СтрокаHTTPЗапроса = СтрЗаменить(СтрокаHTTPЗапроса, "<%РЕГИОН%>", ""); СтрокаHTTPЗапроса = СтрЗаменить(СтрокаHTTPЗапроса, "<%INDOSTRY%>",""); ТекстHTTPОтвета = Неопределено; хHTTP = Новый COMОбъект("WinHttp.WinHttpRequest.5.1"); хHTTP.option(1, "utf-8"); хHTTP.open ("GET", СтрокаHTTPЗапроса,0); хHTTP.send(); ТекстHTTPОтвета = хHTTP.responsetext(); КонецПроцедуры 7ка Процедура Сформировать() ИНН="7814559591"; СтрокаПоиска = ИНН; СтрокаHTTPЗапроса = "https://focus.kontur.ru/search?query=<%ИНН%>®ion=<%РЕГИОН%>&industry=<% INDOSTRY%>&state=081077917"; СтрокаHTTPЗапроса = СтрЗаменить(СтрокаHTTPЗапроса, "<%ИНН%>", СокрЛП (ИНН)); СтрокаHTTPЗапроса = СтрЗаменить(СтрокаHTTPЗапроса, "<%РЕГИОН%>", ""); СтрокаHTTPЗапроса = СтрЗаменить(СтрокаHTTPЗапроса, "<%INDOSTRY%>",""); ТекстHTTPОтвета = ""; хHTTP = СоздатьОбъект("WinHttp.WinHttpRequest.5.1"); хHTTP.option(1, "utf-8"); хHTTP.open ("GET", СтрокаHTTPЗапроса,0); хHTTP.send(); ТекстHTTPОтвета = хHTTP.responsetext(); КонецПроцедуры     | | |||
| 41
- 08.03.2015 - 12:06
| Цитата:
Значит, потихоньку можно шуршать...:-) | | |||
| 42
- 08.03.2015 - 23:22
|
41-perpetum > Хм. У меня на "семерошной" базе нет контриков с одним ИНН и разными КПП. По идее, ответный файл должен несколько страниц выдать, не? А так парсинг идет нормально, Win7x64 кушает за милую душу. | | |||
| 43
- 08.03.2015 - 23:26
| (42) он формат на ... не тот берет | | |||
| 44
- 09.03.2015 - 10:47
|
Прошерстив некое множество запросов, убедился, что сервис Контур-Фокус содержит много старой инфы, не соответствующей адресному классификатору. Кроме того, все запросы по ИНН идут на головное предприятие (по месту КПП налоговой головной организации), а филиалы игнорируются... Так что пока сервис Контур-Фокус далёк от электронной поддержки без оглядки ... и когда данные будут причесаны - должно быть, когда рак на горе свистнет... Однако, по тому, что получается - и то ладно, с известной оглядкой можно прикручивать к базе бухгалтеру. Найденные в процессе тестирования ошибки, поправил, прилагаю исправленную версию файла ProverkaKontry_maf_po_vsem_vers2.rar - Пробуйте и как-то семафорьте о результатах. :-) Запостил сюда: http://forum.infostart.ru/forum24/to...message1315263 | | |||
| 45
- 09.03.2015 - 12:52
| оно и 1С в типовых конфах 8шных пишет, что это тестовый сервис. то есть в нём всякая фигня :-) | | |||
| 46
- 09.03.2015 - 20:36
|
Ну вот, нашёл для себя забаву... :-) Добавил интерфейс - кнопку на форму "ЗадатьВопросСистемеКонтур" - по пути запросов. - То есть, можно задать системе Контур в поле ИНН любой вопрос, на который система попытается ответить. - Можно задавать вопросы по именам юридических\физических лиц, по первым символам и так далее - всё, что вам захочется узнать..., и вы получите много интересного! - просто шалел, играя запросами в этом окне... - Отсюда понятна система запросов, какие бы можно было задать контуру - потренируйтесь и можно прикручивать свой функционал - очень поучительно! Файлик - ProverkaKontry_maf_po_vsem_vers3.rar - прилагаю. Запостил сюда: http://forum.infostart.ru/forum24/to...message1315379 | | |||
| 47
- 09.03.2015 - 20:54
| штрафы за нарушение ПДД пририсуй, будет интереснее :-) | | |||
| 48
- 09.03.2015 - 20:56
| за рекламу инфоста ... можно и по шее ;)) | | |||
| 49
- 10.03.2015 - 02:03
|
48-101 > да ниниадо никуда ходить И здесь по шее можно получить | | |||
| 50
- 10.03.2015 - 02:05
|
Если тупо взять сервис как источник адресной информации по иннкпп То либо принимаем это как правду Либо нет Какойто промежуточный вариант только добавляет работы по сравнению с текущей ситуацией И вообще Ответ сервиса должен быть подписан какойлибо эцп что гарантировало правильность инфы для разборок в случае казусов Если этого нет так и будут работать по старинке вбивая все вручную и запрашивая у клиента выписки с егрюл неустаревшие | | |||
| 51
- 10.03.2015 - 06:26
| Цитата:
Цитата:
Цитата:
Кому, какое дело до рекламы? - обсуждаем, делаем! Несомненно, возможности электронного сервиса впечатляют, однако сразу и видно, что налоговая должна сама причесать свою базу данных и дать возможность получать адресную инфу точную - по ИНН и КПП, в стандарте налогового кладра. Сейчас Контур-Фокус по КПП не отрабатывает... - стало быть, прикрутит вывод в запрос, при одинаковых ИНН, список КПП на выбор. В ряде случаев, можно построить запросы и сейчас. Скажем, по имени фирмы и отследить все выпавшие, с подходящим ИНН и КПП. Конечно, бухгалтеру, в случае массового психоза - адреса не заполнены (некогда), КПП занесли в спешке, неправильно, контры - сотни и тысячи, инфу надо пригладить.. - такой сервис был бы существенной палочкой-выручалочкой. Однако и в тестовом - ещё сыром режиме - можно привыкать к работе в поле требуемого сервиса. Потому - начинаем и привыкаем, а дальше, несомненно, отладится. :-) Ну и спасибо продвинутым участникам, давшим примеры запросов. - До начала обсуждения в теме, я, например, в этих вопросах, был абсолютно равен нулю... :-) | | |||
| 52
- 10.03.2015 - 08:18
| Цитата:
1, ИНН=2455029173 ... Адрес=,655670,Хакасия респ,Алтайский р-н,,,Подсинее с,,Березовая ул,1 (в данном случае в адресе лишние запятые) или 1, ИНН=2455029173 ... Адрес=,662162,Красноярский край,,Ачинск г,,мкр 9-Й,,Код налогового органа: 2443, (в данном случае в конце адреса мусор) :-( | | |||
| 53
- 10.03.2015 - 08:19
|
для второго примера ИНН был такой: 1, ИНН=2443028915 | | |||
| 54
- 10.03.2015 - 08:22
|
(51) мне за тя написать ? ЗЫ пиндец какойта ... | | |||
| 55
- 10.03.2015 - 08:24
|
... матерится не буду но... ЗЫ тема не начиналась... | | |||
| 56
- 10.03.2015 - 10:51
|
Проверка клиента по ЕГРН по соответсвующей ссылке - в ОЧЕНЬ тестовом режиме. Из 6 ИПшников - все значатся как недействующие Значится имеет смысл проверять по другим данным. Первоисточник - налоговые реестры. по egrul.nalog.ru - по этим же 6 Ипшникам - правильная инфа (нашел у одного ошибку в КПП - что еще раз подтверждает мой тезис о том, что все, что менеджеры/бухгалтеры делают ручками - все это криво потенциально, и верить этому - нельзя. При парсинге с ЕГРЮЛ - о действительности клиента надо смотреть хитро/умно - особенно если проверять не просто стсотяние клиента на сейчас, а о состоянии клдиенат на момент совершеняи сделок.. Например: http://screencast.com/t/ejPIZbrtCcz - здесь клиент с 1005 до 2006 - был ИП, с 2006 по 2009 не был ИП, а потом стал снова... А вот здесь - какой ОГРНИП у клиента - без стакана не разберешься... http://screencast.com/t/GCEdyTQpTD | | |||
| 57
- 10.03.2015 - 13:32
|
я не вижу смысла в этих запросах. ибо ИФНС даже не может предоставить данные о р/счетах контрагента. хотя бы юриков, не говоря уж о ИПшниках. | | |||
| 58
- 10.03.2015 - 13:37
|
потом, в таком вот виде, как и в типовых 1Сконфах сделано - оно мало кому надо. если уже проверять актуальность информации, то для всех контрагентов с действующими договорами/выставленными счетами/долгами в БД разом и по всем выводить инфу о (не)соответствии. и делать это ежедневно - мол изменились такие-то реквизиты/состав учредителей/гендиректор/расчетный счет у такой-то организации. и, следовательно, многие из этих реквизитов в 1Ске надо делать периодическими. | | |||
| 59
- 11.03.2015 - 17:53
| Цитата:
Цитата:
Переписал логику и тестировал, по тому, что у меня было в запасе. Добавил возможность настроек при чтении запроса из файла. Файл новой версии ProverkaKontry_maf_po_vsem_vers4.rar - прилагаю. - Пишите о проблемах, порешаем. Запостил сюда: http://forum.infostart.ru/forum24/to...message1316628 P.S. - Переписывал дважды... - умудрился готовую работу затереть записью поверх старым файлом... Рековери не помогло..., восстанавливал по памяти и дописывал уже с учетом прошлого опыта... :-) | | |||
| 60
- 11.03.2015 - 21:58
| 59-perpetum > "Переписывал дважды... - умудрился готовую работу затереть" - сказал бы, получил свою копию :)) | | |||
| 61
- 11.03.2015 - 22:34
| 58-Зелёный тролль > именно так и делать перед выпиской каждой накладной | | |||
| 62
- 11.03.2015 - 22:35
| Цитата:
| | |||
| 63
- 11.03.2015 - 22:36
|
59-perpetum > постави приблуду ромикса в патч одноэса Она автоматом при сохранении внешней обработки делает бэкап существующей Меня пару раз спасала И в шедулере поставить автоочистку бэкапной базы по длительности месяц | | |||
| 64
- 11.03.2015 - 22:39
|
Так-с... Теперь, стало быть, "о птичках"... :-) Так как в процессе тестирования убедился в необходимости запроса к Контур-Фокус прямо из поля ВыбКонтрагент,то дописал интерфейс ЗадатьВопросСистемеКонтур, по условию - Есть только имя, нет ИНН - страница контура откроется с запросом по имени Компании, иначе - по ИНН Компании, иначе - пустое поле контрагента - как и раньше. Мне понравилась такая модификация, поскольку она позволяет быстро найти нужного контрагента в выпадающем списке, внести ИНН и уже по нему - заполнить адресные данные кнопкой СформироватьПоКонтре и ЗаписатьАдрес. Прикладываю версию ProverkaKontry_maf_po_vsem_vers5.rar - пробуйте. :-) Собственно - там же: http://forum.infostart.ru/forum24/to...message1316628 | | |||
| 65
- 12.03.2015 - 07:59
|
Продолжение. Нашёлся ещё вариант представления данных по юр-лицам для реквизита "Дом", добавил в логику обработки. Обнаружилось попутно, почему не обрабатываются Физ-лица - у физ-лиц и налоговых служб - другой формат представления данных. Этот формат по структуре адреса ближе к стандарту кладра, но... - структура и используемые операторы совсем другие. Если для обычных юр-лиц начало модуля реквизитов содержит оператор "<dl>", то для физ-лиц используется оператор "<li" и нет оператора "<dl>" Пока обработка настраивается для юр-лиц и потихоньку будет писаться, надеюсь, модуль для физ-лиц. Исправленная версия файла ProverkaKontry_maf_po_vsem_vers6.rar прилагается: http://forum.infostart.ru/forum24/to...message1316828 | | |||
| 66
- 12.03.2015 - 19:15
|
- Проблемма. Решил сделать текстовый запрос к Контур-Фокус, чтобы затем исследовать выборку, но в сохраненном файле ответ со строкой в виде абракадабры и сообщение - не найдено. Полагаю, необходимо строку в запросе перевести из кодировки "windows-1251" в "utf-8". Как это сделать в 1С ? - дайте совет, кто знает. | | |||
| 67
- 12.03.2015 - 21:02
|
Султонбек на вскидку предлагает попробовать : 1. сохранить текст запроса в текстовый файл с нужной кодировкой, и потом оттуда извлечь в переменную 1С 2. из 1С запустить внешний файл скрипта с нужной кодировкой сам он уже давно не кодирует профессионально но руки-то - помнят | | |||
| 68
- 12.03.2015 - 21:22
|
Вот блок запроса: Наименование=""; Если ВвестиСтроку(Наименование,"Введите своё наименование для поиска",100) = 1 Тогда //получили строку наименование к запросу //Далее нашёл у Смахарба код: Стрим = СоздатьОбъект("Adodb.Stream"); Стрим.Type = 2; Стрим.Mode= 3; Стрим.charset="utf-8"; Стрим.Open(); Стрим.WriteText(""+Наименование); Стрим.SaveToFile("c:\utf-8.txt",2); Стрим.Close(); // теперь читаю файл в кодировке utf-8 Текст_=СоздатьОбъект("Текст"); Текст_.Открыть("c:\utf-8.txt"); Наименование=Текст_.ПолучитьСтроку(1); //вроде бы строка должна быть в коде utf-8 //подставляю в строку запроса: СтрокаHTTPЗапроса="https://focus.kontur.ru/search?query="+Наименование+"&state=081077917"; КонецЕсли" //Теперь запрос: хHTTP = СоздатьОбъект("WinHttp.WinHttpRequest.5.1"); хHTTP.open ("GET", СтрокаHTTPЗапроса,0); хHTTP.send(); ТекстHTTPОтвета = хHTTP.responsetext(); Текст.ДобавитьСтроку(СтрЗаменить(ТекстHTTPОтвета," utf-8","windows-1251")); //это уже для читаемости в винде Текст.Записать(Каталогпользователя() + "otvet32.htm"); // пробую открыть сохраненный файл - в поле запроса - абракадабра... - что не так? | | |||
| 69
- 12.03.2015 - 21:42
|
67-Синегурочка > - :-) - не видел твоего сообщения - делал, как ты и предсказывала... :-) Вот что получилось в ответе с сервера: Ничего не найдено по запросу «Ð¿Â»Ñ?Ð ÑР°Сâ?¬Ð Ñ?Ð Ð?Р° Ð Ð?СÐ?РµРÑРµРÐ?Ð Ñ?» - и всё выглядит нормально, читабельно, за исключением абракадабры. А набирал "машина времени" - она и должна была видна на месте абракадабры. | | |||
| 70
- 12.03.2015 - 21:42
|
Вот архив Султонбековских давнишних экспериментов по перекодировке (если разберешься, он сам уже ничего не помнит) тут несколько вариантов, пробуй 'юникод стал отображаться русским: html = "тут я получил текст в кодировке utf-8" CreateFile(html) html = OpenFile() Function OpenFile() Dim FSO, TextStream Set FSO = CreateObject("Scripting.FileSystemObject") Set TextStream = FSO.OpenTextFile(".\htmlcode.htm", 1, False, -1) OpenFile = TextStream.ReadAll TextStream.Close End Function Sub CreateFile(Text) Dim fso, tf Set fso = CreateObject("Scripting.FileSystemObject") Set tf = fso.CreateTextFile(".\htmlcode.htm", True, True) ' Вставка новой строки, без переноса. tf.Write (Text) ' Закрытие файла. tf.Close End Sub '============================================== 'Для досявой кодировки будет, наверное, "ibm866". 'Все доступные кодировки можно подсмотреть в HKEY_CLASSES_ROOT\Mime\Database\Charset function convert(txt, srcCharset, dstCharset) set stream = createobject("ADODB.Stream") with stream .Type = 2 : .Mode = 3 : .Charset = srcCharset .Open .WriteText txt, 0 .Position = 0 .Charset = dstCharset : convert = .ReadText end with end function ' ----------------------------------------------------------------- res = convert("бНОПНЯ", "KOI8-R", "windows-1251") msgbox res '============================================== 'Функция convert_cyr_string принимает строку в кодировке src и возвращает в кодировке dst. 'src и dst могу принимать следующие значения: "d", "w", "u" - 866, 1251 и UTF соответственно. function convert_cyr_string(str,src,dst) src = lcase(src) dst = lcase(dst) dim Fsrc, Fdst, ArrFdos, ArrFwin, ArrFutf, d, Simv, n ArrFdos = split("128;129;130;131;132;133;134;135;136;137;138 ;139;140;141;142;143;144;145;146;147;148;149;150;1 51;152;153;154;155;156;157;158;159;160;161;162;163 ;164;165;166;167;168;169;170;171;172;173;174;175;2 24;225;226;227;228;229;230;231;232;233;234;235;236 ;237;238;239;240;241",";") ArrFwin = split("192;193;194;195;196;197;198;199;200;201;202 ;203;204;205;206;207;208;209;210;211;212;213;214;2 15;216;217;218;219;220;221;222;223;224;225;226;227 ;228;229;230;231;232;233;234;235;236;237;238;239;2 40;241;242;243;244;245;246;247;248;249;250;251;252 ;253;254;255;168;184",";") ArrFutf = split("208:144;208:145;208:146;208:147;208:148;208 :149;208:150;208:151;208:152;208:153;208:154;208:1 55;208:156;208:157;208:158;208:159;208:160;208:161 ;208:162;208:163;208:164;208:165;208:166;208:167;2 08:168;208:169;208:170;208:171;208:172;208:173;208 :174;208:175;208:176;208:177;208:178;208:179;208:1 80;208:181;208:182;208:183;208:184;208:185;208:186 ;208:187;208:188;208:189;208:190;208:191;209:128;2 09:129;209:130;209:131;209:132;209:133;209:134;209 :135;209:136;209:137;209:138;209:139;209:140;209:1 41;209:142;209:143;208:129;209:145",";") if (src = "w" and dst = "w") or (src = "d" and dst = "d") or (src = "u" and dst = "u") then convert_cyr_string = str exit function end if if src = "w" then Fsrc = ArrFwin elseif lcase(src) = "d" then Fsrc = ArrFdos elseif lcase(src) = "u" then Fsrc = ArrFutf else convert_cyr_string = "Err: The variable src isn't true" exit function end if if dst = "w" then Fdst = ArrFwin elseif dst = "d" then Fdst = ArrFdos elseif dst = "u" then Fdst = ArrFutf else convert_cyr_string = "Err: The variable dst isn't true" exit function end if Set d = CreateObject("Scripting.Dictionary") for n=0 to ubound(Fsrc) d.Add Fsrc(n), Fdst(n) next if (src = "w" and dst = "d") or (src = "d" and dst = "w") then for n = 1 to len(str) if d.item(cStr(asc(mid(str,n,1)))) <> "" then Simv = Simv & chr(d.item(cStr(asc(mid(str,n,1))))) else Simv = Simv & mid(str,n,1) end if next elseif src = "u" then for n = 1 to len(str) if asc(mid(str,n,1)) = 208 or asc(mid(str,n,1)) = 209 then Simv = Simv & chr(d.Item(cStr(asc(left(mid(str,n,2),1)) & ":" & asc(right(mid(str,n,2),1))))) n = n + 1 else Simv = Simv & mid(str,n,1) end if next elseif dst = "u" then for n = 1 to len(str) if d.item(cStr(asc(mid(str,n,1)))) <> "" Then Simv = Simv & chr(left(d.item(cStr(asc(mid(str,n,1)))),3)) & chr(right(d.item(cStr(asc(mid(str,n,1)))),3)) else Simv = Simv & mid(str,n,1) end if next end if set d = Nothing convert_cyr_string = Simv end function msgbox convert_cyr_string("привет","u","w") '============================================== Set oWShell=CreateObject("WScript.Shell") set FSO=CreateObject("Scripting.FileSystemObject") set file=FSO.CreateTextFile(".\ibscript.vbs") file.WriteLine("Set oWShell=CreateObject(""WScript.Shell"")") file.WriteLine("cliptext=InputBox (""text"",""clipboard"","""")") 'file.WriteLine("oWShell.Run ""cmd /c echo "" & cliptext & "" | clip""") file.WriteLine("Set oWShell=Nothing") file.Close 'Закрываем файл oWShell.Run ".\ibscript.vbs",1,0 WScript.Sleep 500 oWShell.SendKeys("^v") WScript.Sleep 50 'oWShell.SendKeys("^c") 'WScript.Sleep 50 oWShell.SendKeys("{enter**") WScript.Sleep 50 FSO.DeleteFile ".\ibscript.vbs" Set oWShell=Nothing Set FSO=Nothing Set file=Nothing WScript.Quit() | | |||
| 71
- 12.03.2015 - 21:50
| засунь все это, что выше, в файл .vbs и пробуй, должно получиться | | |||
| 72
- 12.03.2015 - 22:00
| 69-perpetum >+ если наименование в виде чисел (ИНН), то при перекодировке - кусочек абракадабры и исходный набор чисел - ничего не найдено, а если набор чисел без перекодировки, то запрос делается правильно - выдается страничка клиента. Итак, как сделать запрос серверу в кириллице и не пострадать? :-) | | |||
| 73
- 12.03.2015 - 22:13
|
вдогонку - а ты пробовал из 1С запустить внешний файл скрипта (например vbs), получить читабельный результат тоже во внешний файл, а потом этот результат забрать в 1С ? ну и выше гляди, Султонбек говорит, что там точно что-то замечательно отрабатывало перекодировку | | |||
| 74
- 14.03.2015 - 05:39
|
73-Синегурочка > - Спасибо за заботу, но я другим путём победил! :-) - Перекодировки "windows-1251" в "utf-8" оказалось мало - понадобилось преобразовать коды символов "utf-8" в 16-ричный код и сформировать ескейп-последовательность - она и работает в запросе. Стандартных функций под рукой не оказалось, писал в 1С. Кроме того, для фильтра по недописанным областям, республикам, пришлось создать файл Область.txt, в который заложил все наши республики с их краткими расширениями "обл, край, АО, ..." Обычной строкой не удалось завернуть в обработку, поэтому читается из файла. В архив версии ProverkaKontry_maf_po_vsem_vers8.rar вложил краткую инструкцию Прочти.txt". - пробуйте..., делайте предложения, замечания. Файл запостил сюда: http://forum.infostart.ru/forum24/to...message1318440 | | |||
| 75
- 14.03.2015 - 14:30
|
74-perpetum > + p.s. Режимы работы. Если поле ВыбКонтрагент пустое - доступны запросы без обращения к базе {по ИНН или произвольному тексту, указывающему на Имя предполагаемой для поиска компании или физического лица**. Если поле ВыбКонтрагент не пустое - идёт диалог с обращением к базе. Если у контрагента есть ИНН, запрос доступен для обслуживания по реквизитам контрагента кнопкой Сформировать_ПоКонтре, иначе - следует работать по кнопке ЗадатьВопросСистемеКонтур - в этом случае в список вываливается некое множество компаний с именем вашего контрагента в поле ВыбКонтрагент и уже из этого списка вы можете выбрать подходящие реквизиты, скопипастить ИНН в базу к контрагенту и затем по кнопке Сформировать_ПоКонтре, занести реквизиты в базу через кнопку ЗаписатьАдрес. Если запрос сделан по ИНН, ищется соответствующий ИНН в базе и если ИНН единственный, то имя компании вставляется в поле ВыбКонтрагент, чтобы иметь возможность сразу переключиться на режим записи в базу. Есть 2 вида кодирования компаний - обычных смертных {юр-лиц** и {физ-лиц+налоговых+департаментов**. Сейчас алгоритм отрабатывает формат только для {юр-лиц**, но запросы с выводом ответа на сайт Контур-Фокус или в файл, можно отрабатывать для любых и использовать файл ответа для домашней настройки по флажку ИзФайла. | | |||
| 76
- 14.03.2015 - 21:07
|
75-perpetum > + Очередное обновление, и, пожалуй, займусь другими проектами. Теперь исправлена работа по кнопке ЗадатьВопросСистемеКонтур. Оказалось, не на всех браузерах запрос проходит без кракозябров. Пришлось пропустить запрос через ескейп-последовательность, после чего браузеры перестали жаловаться на кракозябры. На форме подправил имена кнопок, страдавших вульгарной небрежностью цейтнота работы над обработкой. В алгоритме обработки провел некоторую систематизацию функций. В комментарии обработки так же помещено ознакомительное описание. Файл новой версии ProverkaKontry_maf_po_vsem_vers9.rar, прилагаю: Не забудьте хорошенько тестировать и сообщить, что у вас было не так! :-) Запостил, как всегда, сюда: http://forum.infostart.ru/forum24/to...message1318567 | | |||
| 77
- 16.03.2015 - 11:47
|
Ну что? - Сподобился, сделал публикацию! http://infostart.ru/public/336256/ - прошу не стесняться... - заглядываете..., если что :-) | | |||
| 78
- 16.03.2015 - 11:49
| 77-perpetum > + - ну и всем, кто рядышком был и подсказывал, а кто и ругался - всем спасибо... - я лично - доволен...! :-) | | |||
| 79
- 16.03.2015 - 13:20
| 78-perpetum > Плюсанул! | | |||
| 80
- 16.03.2015 - 19:00
| Цитата:
- Жалко только, написал аннотацию к работе, учел так сказать творческий лик участников, а её, без лишних слов, подло обрубили, обезличили... А там приводил много интересных ссылок, по пути которых пришёл к пониманию, как получить результат. И я не удосужился эти ссылки сохранить в одном месте... - Очень обидно, но буду знать, у нас идеи не ценятся, а нужен результат - оно крутится-вертится, вроде как должно - значит приладим... и всё... | |
Интернет-форум Краснодарского края и Краснодара |
