Главная
Новый форум
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

OLE и 1С Поможет кто?
Goto page Previous  1, 2
 
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4
View previous topic :: View next topic  
Author Message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 06 Oct 2005 11:19    Post subject: Reply with quote

Может будет полезна такая инфа
В Excel пишется так, например
oAS.Range("A1:D2").Merge
а в харборе - так
oAS:Range("A1:D2"):Merge()
Back to top
View user's profile Send private message Send e-mail
GVA



Joined: 16 Oct 2003
Posts: 99
Location: Gaponenko
Occupation: HDM
Interests: Москва

PostPosted: 06 Oct 2005 18:27    Post subject: Теперь похоже все. Reply with quote

Все! Пробился!
Только через Invoke. Здесь важна запятая. В итоге конкретный пример выглядит как:
sStr :='CreateObject('+chr(34)+Oemtoansi("Документ.ПоступлениеТМЦ")+chr(34)+')'
goDOC := goV77:EvalExpr(sstr)
!!! goDoc:invoke('New',)

Для последователей - методы, которым не обязательно параметры допустимо, наверно и корректнее, набирать вообще без скобок, например goDoc:CurrentDocument() как goDoc:CurrentDocument
GoDoc:NewLine() как GoDoc:NewLine
Back to top
View user's profile Send private message
DmitrySolomatov



Joined: 22 Dec 2005
Posts: 1
Location: Solomatov
Occupation: Enima
Interests: Novosibirsk

PostPosted: 23 Dec 2005 07:37    Post subject: Reply with quote

Просто неча использовать в 1С русские операторы есть же English language user
Back to top
View user's profile Send private message
GVA



Joined: 16 Oct 2003
Posts: 99
Location: Gaponenko
Occupation: HDM
Interests: Москва

PostPosted: 24 Dec 2005 17:08    Post subject: Если бы было просто :( Reply with quote

DmitrySolomatov wrote:
Просто неча использовать в 1С русские операторы есть же English language user


В том то и дело что не просто. Безусловно опробовались и английские синонимы ( в примерах кстати проглядывается), тут все таки специфика интерфейсов.
Хотя за напоминание о языках спасибо. Наверняка кто либо из последователей наткнется и на эти грабли.
Back to top
View user's profile Send private message
AleksTissen



Joined: 09 Jun 2007
Posts: 4
Location: Aleks Tissen
Occupation: Atom
Interests: Chelabinsk

PostPosted: 09 Jun 2007 10:33    Post subject: Reply with quote

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',))


На последней команде вывалиается
Подскажите как над
Back to top
View user's profile Send private message
AleksTissen



Joined: 09 Jun 2007
Posts: 4
Location: Aleks Tissen
Occupation: Atom
Interests: Chelabinsk

PostPosted: 09 Jun 2007 10:51    Post subject: Reply with quote

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


и так не хоче
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 09 Jun 2007 12:52    Post subject: Reply with quote

Скажите пожалуйста а Вы отладчиком пользуетесь ?
Попробуйте поискать решение в окне отладчика
?firma:invoke() что возвращает наприме
Back to top
View user's profile Send private message Send e-mail
AleksTissen



Joined: 09 Jun 2007
Posts: 4
Location: Aleks Tissen
Occupation: Atom
Interests: Chelabinsk

PostPosted: 09 Jun 2007 13:05    Post subject: Reply with quote

?Firma:invoke() возвращает неверный аргумент.

не отрабатывает oFirm:=Firma:Currentltem
Back to top
View user's profile Send private message
AleksTissen



Joined: 09 Jun 2007
Posts: 4
Location: Aleks Tissen
Occupation: Atom
Interests: Chelabinsk

PostPosted: 09 Jun 2007 13:17    Post subject: Reply with quote

Извиняюсь

Отработало oDocP:SetAttrib(OemToAnsi("Фирма"),Firma:CurrentItem())
Back to top
View user's profile Send private message
nordk



Joined: 27 Jun 2005
Posts: 1000
Location: Горбунов Константин
Occupation: БЭСТ-Партнер
Interests: СПб

PostPosted: 13 Jun 2007 14:52    Post subject: Reply with quote

разобрались с вопросом ?
Back to top
View user's profile Send private message Send e-mail
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view     Forum Index -> Программирование в БЭСТ-4 All times are GMT + 4 Hours
Goto page Previous  1, 2
Page 2 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © phpBB Group

Rambler
Rambler's Top100 Рейтинг@Mail.ru