OLE и 1С Поможет кто?
Select messages from
 # through # FAQ
[/[Print]\]
Goto page Previous  1, 2  :| |:
-> Программирование в БЭСТ-4
#16:  Author: nordk, Location: Горбунов Константин PostPosted: 06 Oct 2005 11:19
    —
Может будет полезна такая инфа
В Excel пишется так, например
oAS.Range("A1:D2").Merge
а в харборе - так
oAS:Range("A1:D2"):Merge()
#17: Теперь похоже все. Author: GVA, Location: Gaponenko PostPosted: 06 Oct 2005 18:27
    —
Все! Пробился!
Только через Invoke. Здесь важна запятая. В итоге конкретный пример выглядит как:
sStr :='CreateObject('+chr(34)+Oemtoansi("Документ.ПоступлениеТМЦ")+chr(34)+')'
goDOC := goV77:EvalExpr(sstr)
!!! goDoc:invoke('New',)

Для последователей - методы, которым не обязательно параметры допустимо, наверно и корректнее, набирать вообще без скобок, например goDoc:CurrentDocument() как goDoc:CurrentDocument
GoDoc:NewLine() как GoDoc:NewLine
#18:  Author: DmitrySolomatov, Location: Solomatov PostPosted: 23 Dec 2005 07:37
    —
Просто неча использовать в 1С русские операторы есть же English language user
#19: Если бы было просто :( Author: GVA, Location: Gaponenko PostPosted: 24 Dec 2005 17:08
    —
DmitrySolomatov wrote:
Просто неча использовать в 1С русские операторы есть же English language user


В том то и дело что не просто. Безусловно опробовались и английские синонимы ( в примерах кстати проглядывается), тут все таки специфика интерфейсов.
Хотя за напоминание о языках спасибо. Наверняка кто либо из последователей наткнется и на эти грабли.
#20:  Author: AleksTissen, Location: Aleks Tissen PostPosted: 09 Jun 2007 10:33
    —
Code:

oApp := CreateObject("V77.Application")

oApp:Initialize(oApp:RMTrade, '/D' +HB_OemToAnsi('e:\Aleks\1c_base\veresk\gate\ /NExchange /P1'), 'NO_SPLASH_SHOW')

sStr :='CreateObject('+chr(34)+Oemtoansi("Справочник.Фирмы")+chr(34)+')'
Firma := oApp:EvalExpr(sStr)
Firma:FindByCode("00001")

sStr :='CreateObject('+chr(34)+Oemtoansi("Документ.ПоступлениеТМЦ")+chr(34)+')'

oDocP := oApp:EvalExpr(sStr)

oDocP:invoke('New',)

oDocP:invoke('SetAttrib('+chr(34)+OemToAnsi("Фирма")+chr(34)+',),'+Firma:invoke('Currentltem',))


На последней команде вывалиается
Подскажите как над
#21:  Author: AleksTissen, Location: Aleks Tissen PostPosted: 09 Jun 2007 10:51
    —
Code:
oDocP:invoke('SetAttrib('+chr(34)+OemToAnsi("Фирма")+chr(34)+','+Firma:Currentltem()+')',)


и так не хоче
#22:  Author: nordk, Location: Горбунов Константин PostPosted: 09 Jun 2007 12:52
    —
Скажите пожалуйста а Вы отладчиком пользуетесь ?
Попробуйте поискать решение в окне отладчика
?firma:invoke() что возвращает наприме
#23:  Author: AleksTissen, Location: Aleks Tissen PostPosted: 09 Jun 2007 13:05
    —
?Firma:invoke() возвращает неверный аргумент.

не отрабатывает oFirm:=Firma:Currentltem
#24:  Author: AleksTissen, Location: Aleks Tissen PostPosted: 09 Jun 2007 13:17
    —
Извиняюсь

Отработало oDocP:SetAttrib(OemToAnsi("Фирма"),Firma:CurrentItem())
#25:  Author: nordk, Location: Горбунов Константин PostPosted: 13 Jun 2007 14:52
    —
разобрались с вопросом ?
-> Программирование в БЭСТ-4


output generated using printer-friendly topic mod. All times are GMT + 4 Hours

Goto page Previous  1, 2  :| |:
Page 2 of 2

Powered by phpBB © 2001, 2005 phpBB Group