Первый визит

Добрый день!

Заходите, заходите. Здесь не только наши боги и прочие небожители (см. посты выше)...

Есть и те , кто в понедельник родился...  :)

Безусловно все ответы на ваши вопросы есть.

Напрмер, почту у нас "популярно" посылать через Entire Connection , написав на Natural некий VB - script . Если хотите я пошлю вам наш вариант... Хотя безусловно, есть масса других вариантов и по другим вашим проблемам.

Но много зависит - от состава продуктов, операционной среды и какие конкретно версии продуктов вы используете.

Скажите вашу почту?

.

... кстати моя почта kiselev@sis-pro.ru///

Я мало пока программировал на Natural , но у меня есть бывалые программисты.

Моя задача сейчас помочь во внедрении 1С и основная сейчас проблема достать информацию, которая есть в бд ADABAS. Я ищу любые интерфейсы для их интеграции.

У кого-нибудь был такой опыт.?

Насколько я успел разобраться , у нас в работе следующее:

- ADABAS версии 5.1.2 и 6.2.3

-Natural версии 2.1.5 и 2.3.4

- Predict 3.3.2

- Entire X 5.3.1

Все это под OS390.

С 1С мы работали только с 7 версией и миграция информации осуществлялась через импорт/экспорт файлов в заданной структуре. Какие в 8 версии есть возможности не могу сказать. 

Вообще стоило бы задуматься  над создание локализованного продукта типа SAG 1C Gateway или чего-то подобного...?

В случае с почтой версии вполне приемлимы.

Тогда покажите своим программистам скрипт, который можно  сформировать в Natural и через Entire Connection вывести на PC и выполнить его:

  1 VB-LINES

     2 L1    (A100)  INIT <'set Message = CreateObject("CDO.Message")'>

     2 L2    (A100)  INIT <'with Message'>

     2 L3    (A100)  INIT <'    .From = "&FROM" '>

     2 L4    (A100)  INIT <'    .To = "&TO"'>

     2 L5    (A100)  INIT <'    .Subject = "&SUBJECT" '>

     2 L6    (A100)  INIT <'    .Textbody = "&TEXT " & vbCrLf'>

     2 L61   (A100)  INIT <'    .Textbody = .Textbody & "&TEXT " & vbCrLf'>

     2 L7    (A100)  INIT <'with .Configuration.Fields'>

     2 L8    (A100)  INIT <' .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2'>

    2 L9    (A100)  INIT <' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "&SERVER" '>

    2 L10    (A100) INIT <' .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = &PORT'>

 2 L11    (A100) INIT <' .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = &AUTH'>

 2 L12    (A100) INIT <' .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "&AUTH-USER"'>

 2 L13    (A100) INIT <' .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "&AUTH-PSW"'>

  2 L14    (A100) INIT <'  .Update'>

  2 L15    (A100) INIT <'end with'>

  2 L16    (A100) INIT <' .AddAttachment "&ATTACHMENT"'>

  2 L17    (A100) INIT <' .Send'>

  2 L18    (A100) INIT <'  set Message = nothing'>

  /* Receipt confirm

  2 L19    (A100) INIT <'  .fields("urn:schemas:mailheader:disposition-notification-to") = "&USER-NOTIF"'>

 2 L20    (A100) INIT <'  .fields("urn:schemas:mailheader:return-receipt-to") = "&USER-RECEIPT"'>

 2 L21    (A100) INIT <'  .DSNOptions = 14'>

Иван,

интерфейсов Adabas тем больше, чем актуальнее версия продукта и его окружения, в первую очередь - Natural. 

Аналогично в случае 1С.  :) 

В вашем случае можно говорить о:

- обмене файлами данных с помощью Entire Connection, предлагаемом Виктором

- обмене сообщениями, созданными на основе экранных форм Natural. Этот способ реализуется с помощью продукта ApplinX, который позволяет преобразовать и опубликовать содержимое экранов 3270 в виде веб сервиса. Кроме того, данный продукт позволяет описать навигацию по экранам приложения, собирая по пути все те данные, которые будут составлять атрибуты веб сервиса. Подробнее см. http://www.softwareag.com/ru/products/wm/mainframe_integration/applinx/overview/default.asp.

Последний способ предполагает, что 1С имеет возможность обращаться к внешним провайдерам веб сервисов. По крайней мере, 1С версии 8.2 умеет публиковать веб сервисы, в чем мы недавно смогли убедиться в одном проекте.

По поводу шлюза к 1С: а почему бы не использовать в этом качестве платформу webMethods? Она, собственно, для этого и предназначена (см. http://www.softwareag.com/ru/products/wm/default.asp)

Иван, а не сложно ли поддерживать две разные версии Adabas и Natural? Что мешает их  выровнять?

Спасибо! Владимир!

Попробую поизучать эти варианты.

А по поводу версий - в составе моего наследства оказались еще и программы на COBOL, PL1 и assembler, которые работают с ADABAS.  И на их написаны уникальные программы по разузлованию наших специфичных продуктов. И там есть какая-то особенность, которая  не мигрируется в ADABAS версии 6. Вообщем программы снимаются. А специалистов по этим языкам уже нет. 

Это - не беда, но, чтобы не грузить форум, был бы признателен, если бы вы смогли написать на мою почту: vladimir.silin@softwareag.com

Спасибо!