Ответ от vitaly576 (изменено: vitaly576, 22 июня 2021 15:23:19)

  • vitaly576
  • Участник
  • Неактивен
  • Откуда: Санкт-Петербург
  • На форуме с 21 октября 2020
  • Сообщений: 122

Re: Действия в dbGrid

Как выгрузить эскиз только для текущей выделенной строчки (или получить ID эскиза)?

  • Откуда: Новосибирск
  • На форуме с 30 сентября 2003
  • Сообщений: 4,310

Re: Действия в dbGrid

Sub FormMacro_SaveEskiz(ActiveModule)

  LogObject.ScriptTimeOut = 0

  Dim Doc' as ISingleDoc
  Set Doc = theApp.SingleDoc( CSDN_COnst.dspSearchDocByVerID, ActiveModule.p_DOCVER_ID.AsInteger )
  if not Doc Is Nothing Then
    Doc.UserModuleName = Doc.UniqueUserModuleName
    theApp.DeleteModuleByUserModuleName( Doc.UserModuleName )
    Set Sketches = Doc.Properties("SKETCHES").AsIDispatch
    if Sketches.Locate( "ID", ActiveModule.p_SKETCH_ID.AsSafeInteger, 0 ) Then
       Call Sketches.SaveToFile( "C:\TEMP\" & ActiveModule.p_SKETCH_NOTE.AsSafeString )
    End If
  End If

End Sub

Пример макроса. Запускать из эскизов в ТП, стоя на эскизе котороый нужно выгрузить. Сохраняет в папку C:\Temp

Спасибо сказали: vitaly5761