MOZ06601
MOZ06601
Выгрузка 066 форм в МЕдок и прочих программ.
Не заполняется поле N135 , следующей командой (остальные поля проблем нет)
omain:setProperty("FldVal","N135" ,'Гриженко Г.М.')
И по команде oDoc:Refresh(), которая согласно описанию (Полный пересчет документа, аналог нажатия F5-F6 ), не происходит обновление полей N136 и N38.
А когда в Медке нажать F5, то поля обновляются.
В чем проблема? Вопрос срочный, так как до 15 августа больнице надо завести несколько тысяч 066 - форм.
Закачка очень бы облегчила работу.
Не заполняется поле N135 , следующей командой (остальные поля проблем нет)
omain:setProperty("FldVal","N135" ,'Гриженко Г.М.')
И по команде oDoc:Refresh(), которая согласно описанию (Полный пересчет документа, аналог нажатия F5-F6 ), не происходит обновление полей N136 и N38.
А когда в Медке нажать F5, то поля обновляются.
В чем проблема? Вопрос срочный, так как до 15 августа больнице надо завести несколько тысяч 066 - форм.
Закачка очень бы облегчила работу.
-
- Повідомлень: 545
- З нами з: 23 травня 2016, 14:32
- Звідки: Оттуда
Re: MOZ06601
Doc.Refresh(), если быть точным, вызывает процедуры, записанные в Медке в файле "MOZ06601.bas", где *.bas - скрипты, написанные в дизайнере отчетов, в зашифрованном виде. Системные и уникальные процедуры именно в нем. Если там есть обновление указанных полей, то и из СОМ, и из документа заполненнего вручную, команды будут вызваны (без вариантов), и отработаны одинаково. Смотрите все же в идентификаторы полей, там где-то ошибка, т.к. Вы сначала пишете про код 135, а потом про 136. Наверно и 38 код перепутан с другим.
Re: MOZ06601
По поводу отсутствия полей.
Я вас сильно расстрою, в форме MOZ06601 при нажатии кнопки F11- електронна форма, есть эти поля
поле [N135] - Прізвище, імя, по батькові. Это поле не хочет заполняться с помощью COM- обьекта.
поле [N38] -Діагноз при госпіталізації
поле [N116] - Діагноз при госпіталізації:(код за МКХ-10)
Так вот поля N38 и N116 - взаимосвязаны, вводишь одно, корректируется другое и наоборот.
Аналогичные им поля
поле [N142] - Код за МКХ-10(Основный)
поле [N136] - Найменування діагнозу (Основний)
Также поля N142 и N136 - взаимосвязаны, вводишь одно, корректируется другое и наоборот.
Я могу с помощью СОМ- обьекта заполнить поля N116 и N142. Они прекрасно заполняются.
Но я думал, что при вызове функции oDoc:Refresh() автоматически заполнятся поля N38 и N136.
Но они не заполняются. Хотя , если я открою закачанную форму 066 в Медке и нажму F5, то эти поля обновятся.
Таким образом у меня две проблемы.
1) Не могу заполнить поле [N135] - Прізвище, імя, по батькові
2) И не подтягиваются названия болезней(поля N38 и N136) при обновлении oDoc:Refresh().
Что не так?
Я вас сильно расстрою, в форме MOZ06601 при нажатии кнопки F11- електронна форма, есть эти поля
поле [N135] - Прізвище, імя, по батькові. Это поле не хочет заполняться с помощью COM- обьекта.
поле [N38] -Діагноз при госпіталізації
поле [N116] - Діагноз при госпіталізації:(код за МКХ-10)
Так вот поля N38 и N116 - взаимосвязаны, вводишь одно, корректируется другое и наоборот.
Аналогичные им поля
поле [N142] - Код за МКХ-10(Основный)
поле [N136] - Найменування діагнозу (Основний)
Также поля N142 и N136 - взаимосвязаны, вводишь одно, корректируется другое и наоборот.
Я могу с помощью СОМ- обьекта заполнить поля N116 и N142. Они прекрасно заполняются.
Но я думал, что при вызове функции oDoc:Refresh() автоматически заполнятся поля N38 и N136.
Но они не заполняются. Хотя , если я открою закачанную форму 066 в Медке и нажму F5, то эти поля обновятся.
Таким образом у меня две проблемы.
1) Не могу заполнить поле [N135] - Прізвище, імя, по батькові
2) И не подтягиваются названия болезней(поля N38 и N136) при обновлении oDoc:Refresh().
Что не так?
Re: MOZ06601
Разработчики Медка могут удивить. Как раз наш случай. Смогу попробовать проявить только после 21.00
П.С. куда-то пропало меню "Показати бланк", чудеса. Раньше точно была в меню "Файл".
П.С. куда-то пропало меню "Показати бланк", чудеса. Раньше точно была в меню "Файл".
-
- Повідомлень: 545
- З нами з: 23 травня 2016, 14:32
- Звідки: Оттуда
Re: MOZ06601
Inkognito писав:Разработчики Медка могут удивить. Как раз наш случай. Смогу попробовать проявить только после 21.00
П.С. куда-то пропало меню "Показати бланк", чудеса. Раньше точно была в меню "Файл".
это только для первички, есть такая функция "Показати бланк" , кстати в ""XFLD"" нашел вышеуказанные поля
Шаман-извращенец вызвал золотой дождь
Re: MOZ06601
Столкнулся с большой проблемой!
Сколько бы не закачивал форм 066 в Медок (одну, две, десять) всегда в Медке только одна форма - ПОСЛЕДНЯЯ.
Не помогает, перезайти в Медок.
Сколько бы не закачивал форм 066 в Медок (одну, две, десять) всегда в Медке только одна форма - ПОСЛЕДНЯЯ.
Не помогает, перезайти в Медок.
Re: MOZ06601
OlegBom
"Эта службишка не служба. Служба, брат, вся впереди." (с), м/ф "Конек-горбунок".
Это разработчики не догадались поставить флажок "Може дублюватися в рамках періоду".
Берем IBExpert, находим таблицу FORM, находим нужный бланк, и устанавливаем CanDuplicate=1
См. мое сообщение годовой давности: http://www.me-doc.com.ua/forum/viewtopi ... te#p151181
Разработчики, если и поправят, то не скоро. В прошлый раз им понадобилось 3 недели.
П.С. по идее, можно попробовать сделать то же самое методом set Dict = App.GetDictionary("FORM"), см.инструкцию.
"Эта службишка не служба. Служба, брат, вся впереди." (с), м/ф "Конек-горбунок".
Это разработчики не догадались поставить флажок "Може дублюватися в рамках періоду".
Берем IBExpert, находим таблицу FORM, находим нужный бланк, и устанавливаем CanDuplicate=1
См. мое сообщение годовой давности: http://www.me-doc.com.ua/forum/viewtopi ... te#p151181
Не ждите чуда, чудите сами
Открывайте таблицу FORM, и ставьте необходимый признак (CANDUPLICATE = 1) для формы F30001001.
Разработчики, если и поправят, то не скоро. В прошлый раз им понадобилось 3 недели.
П.С. по идее, можно попробовать сделать то же самое методом set Dict = App.GetDictionary("FORM"), см.инструкцию.
Re: MOZ06601
Спасибо!
>П.С. по идее, можно попробовать сделать то же самое методом set Dict = App.GetDictionary("FORM"), см.инструкцию.
перечитал всю инструкцию по СОМ обьектам, не понял как это сделать
>П.С. по идее, можно попробовать сделать то же самое методом set Dict = App.GetDictionary("FORM"), см.инструкцию.
перечитал всю инструкцию по СОМ обьектам, не понял как это сделать
Re: MOZ06601
Раздел "Робота з довідниками", страница 8.
- Синтаксис 1С, вроде такой (не проверял) | Показать
Re: MOZ06601
Пока, что-то не получается!!!
Re: MOZ06601
СПасибо! ИБЭкспетром получилось исправить! Этот вопрос решён
Re: MOZ06601
А вот с заполнением полей проблема!
Не заполняется поле N135 - Прізвище, і'мя, по батькові хворого.
Побовал двумя методами.
....................................
IF 1#1 \\ - 1-й метод
odoc:=omedok:CreateDocumentByParam("MOZ06601",0,DTOC(dDate),1)
omain:=odoc:DataSets("MAIN")
odoc:UpdateSysFields()
ELSE \\ - 2-й метод
odoc:= omedok:OpenOrCreateByExDocID("MOZ06601", 0,DTOC(dDate), ,STR((DC)->koddoc), 0)
oDoc:DisableScripts()
omain:= oDoc:DataSets()
omain:Clear(.T.)
ENDIF
omain:Edit()
omain:setProperty("FldVal","N8" ,dDate)
omain:setProperty("FldVal","N133" ,cNumber)
omain:setProperty("FldVal","N11" ,dDateGP)
omain:setProperty("FldVal","N135" ,cFIO)
........
Все поля заполняются, кроме N135. Данные проверил, передаются (сFIO- заполняется)
Что еще смотреть? Не могу придумать.
Не заполняется поле N135 - Прізвище, і'мя, по батькові хворого.
Побовал двумя методами.
....................................
IF 1#1 \\ - 1-й метод
odoc:=omedok:CreateDocumentByParam("MOZ06601",0,DTOC(dDate),1)
omain:=odoc:DataSets("MAIN")
odoc:UpdateSysFields()
ELSE \\ - 2-й метод
odoc:= omedok:OpenOrCreateByExDocID("MOZ06601", 0,DTOC(dDate), ,STR((DC)->koddoc), 0)
oDoc:DisableScripts()
omain:= oDoc:DataSets()
omain:Clear(.T.)
ENDIF
omain:Edit()
omain:setProperty("FldVal","N8" ,dDate)
omain:setProperty("FldVal","N133" ,cNumber)
omain:setProperty("FldVal","N11" ,dDateGP)
omain:setProperty("FldVal","N135" ,cFIO)
........
Все поля заполняются, кроме N135. Данные проверил, передаются (сFIO- заполняется)
Что еще смотреть? Не могу придумать.
Re: MOZ06601
Очень интересный разговор у нас на форуме происходит! Вроде бы тема и направление новые для разработчика, а он даже и не участвует.
Или разработчики Медка уже уволены?
Или разработчики Медка уже уволены?