OpenOffice.org Basic

[iGrok]

Кто-нить с этой штукой работал?
Я с ним уже неделю мучаюсь.. В целом - бейсик бейсиком.. Но объекты совершенно другие.. И толковой справки нету (((

Но.. "Платный офис ставить нельзя, так что мучайтесь с этим, люди добрыя.."

Надо поднимать файлики в OEM кодировке, и по ним строить ТТН(накладную).. Как отконвертить это дело самим ООО - не нашел.. Пришлось на VB утилитку писать... Теперь вот с созданием диалогов мучаюсь..

Во. Никто не знает, как ООО связать с VB? Какая-нить библа для работы с ods файлами, например?

[alibek]

Почитай по форуму, не так давно подобная тема поднималась.
Но намучаешься ты OO и VB сопрягать. Лучше делай бланки в RTF.

[iGrok]

Бланк товарно-транспортной накладной на двух листах с таблицей товаров в RTF??? 0_o
Научишь?

Ок. Поищу у нас.

Ммм.. Класс. Пошел пробовать =)
Может, так действительно будет удобнее..

[gaidar]

Сколько ПК в организации? Может быть стоит убедить руководство в необходимости внедрения правильного Office?

[Денис]

Да блин. Либо нажимай на руководство в плане офиса либо пиши вообще с нуля в ООо - тоесть не перетягивая из других сред ничего. Просто в ООо специфика своя (идиотская, ИМХО) программирование на бейсике в стиле линух и духе гпл

[iGrok]

Сколько ПК в организации? Может быть стоит убедить руководство в необходимости внедрения правильного Office?

Тех, на которые надо это ставить? Порядка сотни. Если задача окажется невыполнимой под ООО - мы откажемся от такого пути решения этой задачи. Такова политика, и я знаю, почему она такова =) Так что не катит.

Да блин. Либо нажимай на руководство в плане офиса либо пиши вообще с нуля в ООо - тоесть не перетягивая из других сред ничего. Просто в ООо специфика своя (идиотская, ИМХО) программирование на бейсике в стиле линух и духе гпл

Да я все, что нужно, уже на ООО сделал.. Просто интересно на будущее.. Ибо кажется придется с ним и дальше работать.. Может пригодиться связка. Ну да как связать я уже понял. Попробую как только время выдастся.

З.Ы. В чём её "идиотскость"? =)

[SSecurity]

Код: Выделить всё

Private Declare Function CharToOemBuff Lib "user32" Alias "CharToOemBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long
Private Declare Function OemToCharBuff Lib "user32" Alias "OemToCharBuffA" (ByVal lpszSrc As String, ByVal lpszDst As String, ByVal cchDstLength As Long) As Long


Function ToAnsi(s As String) As String
  Dim Buffer As String
  Buffer = Space(Len(s) + 1)
  OemToCharBuff s, Buffer, Len(s)
  ToAnsi = Left(Buffer, Len(s))
End Function

Function ToOEM(s As String) As String
  Dim Buffer As String
  Buffer = Space(Len(s) + 1)
  CharToOemBuff s, Buffer, Len(s)
  ToOEM = Left(Buffer, Len(s))
End Function



Код не мой ... но досовские файлы в нормальный виндовый вид "понимательный" для басика смогешь сделать

С Уважением,
Сергей

[iGrok]

Спасибо, конечно, но это я и сам уже давно сделал отдельной софтинкой на VB.. Теперь в батнике её вызываю перед открытием опеноффисовского документа..

Вот если бы мне кто показал как сделать то же самое на OOO...
Эта зараза работает с API, но строки внутри себя хранит в Unicode, поэтому эти ф-ции не работают.((

[keks-n]

Вызывай W-версии функций или перегоняй через WideCharToMultiByte и обратно.

[iGrok]

Вроде пробовал и не помогало.. Попробую еще раз.