Архив рубрики: OpenOffice

Печать твердых копий из OOBase

ООфис имеет встроенные средства для создания отчетов и они наверное подойдут многим. Но откровенно говоря я склоняюсь к печати документов через программно генерируемые таблицы ООКалк.

Кто еще хочет попробовать вот много кода из которого можно и для себя взять какие-то моменты. Главное собственно вызвать ООКалк с пустым документом, а по прочим вопросам документации достаточно.

Sub PrintNZP()

  MsgBox "Закройте текущее сообщение и дождитесь сообщение <<Обработка документа окончена>>"   

  Dim oNDoc, oNSheets, oNSheet

  oNDoc = StarDesktop.loadComponentFromURL( _
    "private:factory/scalc", "_blank", 0, Array() )
  oNSheets = oNDoc.getSheets()
  oNSheet = oNSheets.getByIndex(0)
 
   
  Dim sCurrentKod As String
  Dim Connection As Variant
  Dim Statement As Variant
  Dim ResultSet As Variant
  Dim UpdateStatement As Variant
  Dim sKod As String
  Dim dPlatmin As Double
  Dim dCts As Double
  Dim dPlatkop As Double
  Dim iCountErr As Integer
  
  If FormDoc_det.isModified Then
    FormDoc_det().UpdateRow()
  End If
    
  GlobalScope.BasicLibraries.loadLibrary("aovc")
  sCurrentKod = FormDoc_h().Columns.getByName("Kod").String
  Connection = aovc.GetConnection()
  Statement = Connection.CreateStatement()
  ResultSet = Statement.ExecuteQuery("SELECT doc_det.*, doc_det.kol * doc_det.nv AS min, doc_det.kol * doc_det.rc / 100 AS grn, (SELECT DISTINCT name FROM cennic AS c WHERE c.kod = doc_det.koddet) AS namedet, (SELECT DISTINCT i.name FROM izdel AS i WHERE i.kod = doc_det.kodiz) AS nameiz FROM dbo.doc_det AS doc_det where doc_det.kod=" & sCurrentKod & " order by kod")
  
  Dim iCounter as Integer
  Dim I As Integer
  oNSheet.GetCellByPosition(7,0).string = "А К Т"
  oNSheet.GetCellByPosition(3,1).string = "инвентаризации незавершенного производства по цеху 16 на 1-е"
  oNSheet.GetCellByPosition(7,0).CharHeight = 14
  oNSheet.GetCellByPosition(3,1).CharHeight = 14
  oNSheet.GetCellByPosition(3,1).string = FormDoc_h.Columns.GetByName("prim").String
  oNSheet.GetCellByPosition(0,2).string = "№ пп"
  oNSheet.GetCellRangeByPosition(0,2,0,3).Merge(True)
  oNSheet.GetCellByPosition(0,2).Columns.GetByIndex(0).Width = "700"
  oNSheet.GetCellByPosition(0,2).isTextWrapped = True
  oNSheet.GetCellByPosition(0,2).HoriJustify = 2
  oNSheet.GetCellByPosition(0,2).VertJustify = 2

  oNSheet.GetCellByPosition(1,2).string = "Наименование изделий, деталей и узлов"
  oNSheet.GetCellByPosition(1,2).Columns.GetByIndex(0).Width = "4200"
  oNSheet.GetCellRangeByPosition(1,2,1,3).Merge(True)
  oNSheet.GetCellByPosition(1,2).isTextWrapped = True
  oNSheet.GetCellByPosition(1,2).HoriJustify = 2
  oNSheet.GetCellByPosition(1,2).VertJustify = 2

  oNSheet.GetCellByPosition(2, 2).string = "№№ деталей или узлов"
  oNSheet.GetCellByPosition(2,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(2,2,2,3).Merge(True)
  oNSheet.GetCellByPosition(2,2).HoriJustify = 2
  oNSheet.GetCellByPosition(2,2).VertJustify = 2
  oNSheet.GetCellByPosition(2,2).Columns.GetByIndex(0).Width = "1800"
  
  oNSheet.GetCellByPosition(3, 2).string = "Ед. изм."
  oNSheet.GetCellByPosition(3,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(3,2,3,3).Merge(True)
  oNSheet.GetCellByPosition(3,2).HoriJustify = 2
  oNSheet.GetCellByPosition(3,2).VertJustify = 2
  oNSheet.GetCellByPosition(3,2).Columns.GetByIndex(0).Width = "1000"

  oNSheet.GetCellByPosition(4, 2).string = "№ послед-ней закончен-ной операции"
  'oNSheet.GetCellByPosition(4,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(4,2,4,3).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(4,2,4,3).Merge(True)
  oNSheet.GetCellByPosition(4,2).HoriJustify = 2
  oNSheet.GetCellByPosition(4,2).VertJustify = 2
  oNSheet.GetCellByPosition(4,2).Columns.GetByIndex(0).Width = "2000"

  oNSheet.GetCellByPosition(5, 2).string = "Книж-ный оста-ток"
   oNSheet.GetCellByPosition(5,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(5,2,5,3).Merge(True)
  oNSheet.GetCellByPosition(5,2).HoriJustify = 2
  oNSheet.GetCellByPosition(5,2).VertJustify = 2
  oNSheet.GetCellByPosition(5,2).Columns.GetByIndex(0).Width = "1800"

  
  oNSheet.GetCellByPosition(6, 2).string = "Факти-ческое нали-чие"
  oNSheet.GetCellByPosition(6,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(6,2,6,3).Merge(True)
  oNSheet.GetCellByPosition(6,2).HoriJustify = 2
  oNSheet.GetCellByPosition(6,2).VertJustify = 2
  oNSheet.GetCellByPosition(6,2).Columns.GetByIndex(0).Width = "1400"

  oNSheet.GetCellByPosition(7, 2).string = "Результат"
  oNSheet.GetCellByPosition(7,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(7,2,8,2).Merge(True)
  oNSheet.GetCellByPosition(7,2).HoriJustify = 2
  oNSheet.GetCellByPosition(7,2).VertJustify = 2
  'oNSheet.GetCellByPosition(7,2).Columns.GetByIndex(0).Width = "1800"
  
  
  oNSheet.GetCellByPosition(7, 3).string = "Из-лиш-ки"
  oNSheet.GetCellByPosition(7,3).isTextWrapped = True
  oNSheet.GetCellByPosition(7,3).HoriJustify = 2
  oNSheet.GetCellByPosition(7,3).VertJustify = 2
  oNSheet.GetCellByPosition(7,3).Columns.GetByIndex(0).Width = "1100"
  
  oNSheet.GetCellByPosition(8, 3).string = "Недо-стача"
  oNSheet.GetCellByPosition(8,3).isTextWrapped = True
  oNSheet.GetCellByPosition(8,3).HoriJustify = 2
  oNSheet.GetCellByPosition(8,3).VertJustify = 2
  oNSheet.GetCellByPosition(8,3).Columns.GetByIndex(0).Width = "1100"
  
  
  oNSheet.GetCellByPosition(9, 2).string = "Стоимость материала"
  oNSheet.GetCellByPosition(9,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(9,2,10,2).Merge(True)
  oNSheet.GetCellByPosition(9,2).HoriJustify = 2
  oNSheet.GetCellByPosition(9,2).VertJustify = 2
  'oNSheet.GetCellByPosition(9,2).Columns.GetByIndex(0).Width = "1800"
  
  
  oNSheet.GetCellByPosition(9, 3).string = "На единицу"
  oNSheet.GetCellByPosition(9,3).isTextWrapped = True
  oNSheet.GetCellByPosition(9,3).HoriJustify = 2
  oNSheet.GetCellByPosition(9,3).VertJustify = 2
  oNSheet.GetCellByPosition(9,3).Columns.GetByIndex(0).Width = "2400"

  oNSheet.GetCellByPosition(10, 3).string = "На все количе-ство"
  oNSheet.GetCellByPosition(10,3).isTextWrapped = True
  oNSheet.GetCellByPosition(10,3).HoriJustify = 2
  oNSheet.GetCellByPosition(10,3).VertJustify = 2
  oNSheet.GetCellByPosition(10,3).Columns.GetByIndex(0).Width = "1900"


  oNSheet.GetCellByPosition(11, 2).string = "Стоимость зарплаты"
  oNSheet.GetCellByPosition(11,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(11,2,12,2).Merge(True)
  oNSheet.GetCellByPosition(11,2).HoriJustify = 2
  oNSheet.GetCellByPosition(11,2).VertJustify = 2

  oNSheet.GetCellByPosition(11, 3).string = "На единицу"
  oNSheet.GetCellByPosition(11,3).isTextWrapped = True
  oNSheet.GetCellByPosition(11,3).HoriJustify = 2
  oNSheet.GetCellByPosition(11,3).VertJustify = 2
  oNSheet.GetCellByPosition(11,3).Columns.GetByIndex(0).Width = "2400"

  oNSheet.GetCellByPosition(12, 3).string = "На все количе-ство"
  oNSheet.GetCellByPosition(12,3).isTextWrapped = True
  oNSheet.GetCellByPosition(12,3).HoriJustify = 2
  oNSheet.GetCellByPosition(12,3).VertJustify = 2
  oNSheet.GetCellByPosition(12,3).Columns.GetByIndex(0).Width = "1600"

  oNSheet.GetCellByPosition(13, 2).string = "Цехо-вые рас-ходы _____%"
  oNSheet.GetCellByPosition(13,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(13,2,13,3).Merge(True)
  oNSheet.GetCellByPosition(13,2).HoriJustify = 2
  oNSheet.GetCellByPosition(13,2).VertJustify = 2
  oNSheet.GetCellByPosition(13,2).Columns.GetByIndex(0).Width = "1600"

  oNSheet.GetCellByPosition(14, 2).string = "Обще-завод-ские рас-ходы _____%"
  oNSheet.GetCellByPosition(14,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(14,2,14,3).Merge(True)
  oNSheet.GetCellByPosition(14,2).HoriJustify = 2
  oNSheet.GetCellByPosition(14,2).VertJustify = 2
  oNSheet.GetCellByPosition(14,2).Columns.GetByIndex(0).Width = "1600"

  oNSheet.GetCellByPosition(15, 2).string = "Всего завод-ская себе-стои-мость"
  oNSheet.GetCellByPosition(15,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(15,2,15,3).Merge(True)
  oNSheet.GetCellByPosition(15,2).HoriJustify = 2
  oNSheet.GetCellByPosition(15,2).VertJustify = 2
  oNSheet.GetCellByPosition(15,2).Columns.GetByIndex(0).Width = "1800"


  
   Dim BasicBorder as New com.sun.star.table.BorderLine
   Dim BasicBorder0 as New com.sun.star.table.BorderLine
   Dim oBorder As Object
   oBorder = oNSheet.getCellRangeByPosition(0,2,15,4).TableBorder
   rem Werte für einen einfachen Rand
   BasicBorder.Color = RGB(0, 0, 0)
   BasicBorder.InnerLineWidth = 20
   BasicBorder.OuterLineWidth = 20
   BasicBorder.LineDistance =0

   BasicBorder0.Color = RGB(0, 0, 0)
   BasicBorder0.InnerLineWidth = 100
   BasicBorder0.OuterLineWidth = 0
   BasicBorder0.LineDistance = 0

   oBorder.LeftLine = BasicBorder
   oBorder.TopLine = BasicBorder
   oBorder.RightLine = BasicBorder
   oBorder.BottomLine = BasicBorder
   oBorder.HorizontalLine = BasicBorder
   oBorder.VerticalLine = BasicBorder
   oNSheet.getCellRangeByPosition(0,2,15,4).TableBorder = oBorder

  Dim currentKodDet As Long
  Dim currentKodIz As Long
  Dim Npp As Long
  Dim Total As Long
  Dim Count As Long
  
  currentKodDet = -9999
  currentKodIz = -9999
  Npp=0
  Total = 0
  Count = 0

  iCounter = 3
  
  While ResultSet.Next
  
    If ResultSet.Columns.getByName("kol").Long = 0 Then 
      GOTO lNext
    End If
    
    oBorder = oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder
    oBorder.LeftLine = BasicBorder
    oBorder.TopLine = BasicBorder
    oBorder.RightLine = BasicBorder
    oBorder.BottomLine = BasicBorder
    oBorder.HorizontalLine = BasicBorder
    oBorder.VerticalLine = BasicBorder
    oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder = oBorder

    If currentKodDet <> ResultSet.Columns.getByName("koddet").Long OR currentKodIz <> ResultSet.Columns.getByName("kodiz").Long Then

      If Count > 1 Then
        oNSheet.GetCellByPosition(5, iCounter).value = Total
        oNSheet.GetCellByPosition(6, iCounter).value = Total
        oBorder = oNSheet.getCellRangeByPosition(4, iCounter,6,iCounter).TableBorder
        oBorder.TopLine = BasicBorder0
        oNSheet.getCellRangeByPosition(4, iCounter,6,iCounter).TableBorder = oBorder
        iCounter = iCounter + 1
      End If

      oBorder = oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder
      oBorder.LeftLine = BasicBorder
      oBorder.TopLine = BasicBorder
      oBorder.RightLine = BasicBorder
      oBorder.BottomLine = BasicBorder
      oBorder.HorizontalLine = BasicBorder
      oBorder.VerticalLine = BasicBorder
      oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder = oBorder

      currentKodDet = ResultSet.Columns.getByName("koddet").Long
      Npp = Npp + 1
      Total = 0
      Count = 0
      iCounter = iCounter + 1
    End If
    
    If currentKodIz <> ResultSet.Columns.getByName("kodiz").Long Then
      oBorder = oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder
      oBorder.LeftLine = BasicBorder
      oBorder.TopLine = BasicBorder0
      oBorder.RightLine = BasicBorder
      oBorder.BottomLine = BasicBorder
      oBorder.HorizontalLine = BasicBorder
      oBorder.VerticalLine = BasicBorder
      oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder = oBorder
      currentKodIz = ResultSet.Columns.getByName("kodiz").Long
      Npp = 1
      oNSheet.GetCellByPosition(1, iCounter).string = Trim(ResultSet.Columns.getByName("nameiz").String)
      oNSheet.GetCellByPosition(1, iCounter).CharHeight = 20
      iCounter = iCounter + 1
    EndIf
   
      oBorder = oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder
      oBorder.LeftLine = BasicBorder
      oBorder.TopLine = BasicBorder
      oBorder.RightLine = BasicBorder
      oBorder.BottomLine = BasicBorder
      oBorder.HorizontalLine = BasicBorder
      oBorder.VerticalLine = BasicBorder
      oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder = oBorder

   
    Count = Count + 1

    If Count = 1 Then
      oNSheet.GetCellByPosition(1, iCounter).string = Trim(ResultSet.Columns.getByName("namedet").String) & Rem97(ResultSet.Columns.getByName("naz").Long)
      oNSheet.GetCellByPosition(0, iCounter).value = Npp
    End If

    oNSheet.GetCellByPosition(4, iCounter).String = sNop(ResultSet.Columns.getByName("nop").Long)
    oNSheet.GetCellByPosition(5, iCounter).value = ResultSet.Columns.getByName("kol").Long
    oNSheet.GetCellByPosition(6, iCounter).value = ResultSet.Columns.getByName("kol").Long

    If ResultSet.Columns.getByName("nv").Double > 0 Then
      oNSheet.GetCellByPosition(2, iCounter).value = ResultSet.Columns.getByName("nv").Double
      oNSheet.GetCellByPosition(11, iCounter).value = ResultSet.Columns.getByName("rc").Double
    Else
      oNSheet.GetCellByPosition(11, iCounter).string = "           -   "
    End If

    Total = Total + ResultSet.Columns.getByName("kol").Long

    iCounter = iCounter + 1
    lNext: REM 
  Wend
  If Count > 1 Then
    oBorder = oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder
    oBorder.LeftLine = BasicBorder
    oBorder.TopLine = BasicBorder
    oBorder.RightLine = BasicBorder
    oBorder.BottomLine = BasicBorder
    oBorder.HorizontalLine = BasicBorder
    oBorder.VerticalLine = BasicBorder
    oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder = oBorder
    oNSheet.GetCellByPosition(5, iCounter).value = Total
    oNSheet.GetCellByPosition(6, iCounter).value = Total
    oBorder = oNSheet.getCellRangeByPosition(4, iCounter,6,iCounter).TableBorder
    oBorder.TopLine = BasicBorder0
    oNSheet.getCellRangeByPosition(4, iCounter,6,iCounter).TableBorder = oBorder
    iCounter = iCounter + 1
  End If
      oBorder = oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder
      oBorder.LeftLine = BasicBorder
      oBorder.TopLine = BasicBorder
      oBorder.RightLine = BasicBorder
      oBorder.BottomLine = BasicBorder0
      oBorder.HorizontalLine = BasicBorder
      oBorder.VerticalLine = BasicBorder
      oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder = oBorder


  oNSheet.GetCellByPosition(1, iCounter + 1).string = "==========================================="
  MsgBox "Обработка документа окончена"   

End Sub

Печать твердых копий из OOBase

Sub PrintNZP()

  MsgBox "Закройте текущее сообщение и дождитесь сообщение <<Обработка документа окончена>>"   

  Dim oNDoc, oNSheets, oNSheet

  oNDoc = StarDesktop.loadComponentFromURL( _
    "private:factory/scalc", "_blank", 0, Array() )
  oNSheets = oNDoc.getSheets()
  oNSheet = oNSheets.getByIndex(0)
 
   
  Dim sCurrentKod As String
  Dim Connection As Variant
  Dim Statement As Variant
  Dim ResultSet As Variant
  Dim UpdateStatement As Variant
  Dim sKod As String
  Dim dPlatmin As Double
  Dim dCts As Double
  Dim dPlatkop As Double
  Dim iCountErr As Integer
  
  If FormDoc_det.isModified Then
    FormDoc_det().UpdateRow()
  End If
    
  GlobalScope.BasicLibraries.loadLibrary("aovc")
  sCurrentKod = FormDoc_h().Columns.getByName("Kod").String
  Connection = aovc.GetConnection()
  Statement = Connection.CreateStatement()
  ResultSet = Statement.ExecuteQuery("SELECT doc_det.*, doc_det.kol * doc_det.nv AS min, doc_det.kol * doc_det.rc / 100 AS grn, (SELECT DISTINCT name FROM cennic AS c WHERE c.kod = doc_det.koddet) AS namedet, (SELECT DISTINCT i.name FROM izdel AS i WHERE i.kod = doc_det.kodiz) AS nameiz FROM dbo.doc_det AS doc_det where doc_det.kod=" & sCurrentKod & " order by kod")
  
  Dim iCounter as Integer
  Dim I As Integer
  oNSheet.GetCellByPosition(7,0).string = "А К Т"
  oNSheet.GetCellByPosition(3,1).string = "инвентаризации незавершенного производства по цеху 16 на 1-е"
  oNSheet.GetCellByPosition(7,0).CharHeight = 14
  oNSheet.GetCellByPosition(3,1).CharHeight = 14
  oNSheet.GetCellByPosition(3,1).string = FormDoc_h.Columns.GetByName("prim").String
  oNSheet.GetCellByPosition(0,2).string = "№ пп"
  oNSheet.GetCellRangeByPosition(0,2,0,3).Merge(True)
  oNSheet.GetCellByPosition(0,2).Columns.GetByIndex(0).Width = "700"
  oNSheet.GetCellByPosition(0,2).isTextWrapped = True
  oNSheet.GetCellByPosition(0,2).HoriJustify = 2
  oNSheet.GetCellByPosition(0,2).VertJustify = 2

  oNSheet.GetCellByPosition(1,2).string = "Наименование изделий, деталей и узлов"
  oNSheet.GetCellByPosition(1,2).Columns.GetByIndex(0).Width = "4200"
  oNSheet.GetCellRangeByPosition(1,2,1,3).Merge(True)
  oNSheet.GetCellByPosition(1,2).isTextWrapped = True
  oNSheet.GetCellByPosition(1,2).HoriJustify = 2
  oNSheet.GetCellByPosition(1,2).VertJustify = 2

  oNSheet.GetCellByPosition(2, 2).string = "№№ деталей или узлов"
  oNSheet.GetCellByPosition(2,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(2,2,2,3).Merge(True)
  oNSheet.GetCellByPosition(2,2).HoriJustify = 2
  oNSheet.GetCellByPosition(2,2).VertJustify = 2
  oNSheet.GetCellByPosition(2,2).Columns.GetByIndex(0).Width = "1800"
  
  oNSheet.GetCellByPosition(3, 2).string = "Ед. изм."
  oNSheet.GetCellByPosition(3,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(3,2,3,3).Merge(True)
  oNSheet.GetCellByPosition(3,2).HoriJustify = 2
  oNSheet.GetCellByPosition(3,2).VertJustify = 2
  oNSheet.GetCellByPosition(3,2).Columns.GetByIndex(0).Width = "1000"

  oNSheet.GetCellByPosition(4, 2).string = "№ послед-ней закончен-ной операции"
  'oNSheet.GetCellByPosition(4,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(4,2,4,3).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(4,2,4,3).Merge(True)
  oNSheet.GetCellByPosition(4,2).HoriJustify = 2
  oNSheet.GetCellByPosition(4,2).VertJustify = 2
  oNSheet.GetCellByPosition(4,2).Columns.GetByIndex(0).Width = "2000"

  oNSheet.GetCellByPosition(5, 2).string = "Книж-ный оста-ток"
   oNSheet.GetCellByPosition(5,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(5,2,5,3).Merge(True)
  oNSheet.GetCellByPosition(5,2).HoriJustify = 2
  oNSheet.GetCellByPosition(5,2).VertJustify = 2
  oNSheet.GetCellByPosition(5,2).Columns.GetByIndex(0).Width = "1800"

  
  oNSheet.GetCellByPosition(6, 2).string = "Факти-ческое нали-чие"
  oNSheet.GetCellByPosition(6,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(6,2,6,3).Merge(True)
  oNSheet.GetCellByPosition(6,2).HoriJustify = 2
  oNSheet.GetCellByPosition(6,2).VertJustify = 2
  oNSheet.GetCellByPosition(6,2).Columns.GetByIndex(0).Width = "1400"

  oNSheet.GetCellByPosition(7, 2).string = "Результат"
  oNSheet.GetCellByPosition(7,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(7,2,8,2).Merge(True)
  oNSheet.GetCellByPosition(7,2).HoriJustify = 2
  oNSheet.GetCellByPosition(7,2).VertJustify = 2
  'oNSheet.GetCellByPosition(7,2).Columns.GetByIndex(0).Width = "1800"
  
  
  oNSheet.GetCellByPosition(7, 3).string = "Из-лиш-ки"
  oNSheet.GetCellByPosition(7,3).isTextWrapped = True
  oNSheet.GetCellByPosition(7,3).HoriJustify = 2
  oNSheet.GetCellByPosition(7,3).VertJustify = 2
  oNSheet.GetCellByPosition(7,3).Columns.GetByIndex(0).Width = "1100"
  
  oNSheet.GetCellByPosition(8, 3).string = "Недо-стача"
  oNSheet.GetCellByPosition(8,3).isTextWrapped = True
  oNSheet.GetCellByPosition(8,3).HoriJustify = 2
  oNSheet.GetCellByPosition(8,3).VertJustify = 2
  oNSheet.GetCellByPosition(8,3).Columns.GetByIndex(0).Width = "1100"
  
  
  oNSheet.GetCellByPosition(9, 2).string = "Стоимость материала"
  oNSheet.GetCellByPosition(9,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(9,2,10,2).Merge(True)
  oNSheet.GetCellByPosition(9,2).HoriJustify = 2
  oNSheet.GetCellByPosition(9,2).VertJustify = 2
  'oNSheet.GetCellByPosition(9,2).Columns.GetByIndex(0).Width = "1800"
  
  
  oNSheet.GetCellByPosition(9, 3).string = "На единицу"
  oNSheet.GetCellByPosition(9,3).isTextWrapped = True
  oNSheet.GetCellByPosition(9,3).HoriJustify = 2
  oNSheet.GetCellByPosition(9,3).VertJustify = 2
  oNSheet.GetCellByPosition(9,3).Columns.GetByIndex(0).Width = "2400"

  oNSheet.GetCellByPosition(10, 3).string = "На все количе-ство"
  oNSheet.GetCellByPosition(10,3).isTextWrapped = True
  oNSheet.GetCellByPosition(10,3).HoriJustify = 2
  oNSheet.GetCellByPosition(10,3).VertJustify = 2
  oNSheet.GetCellByPosition(10,3).Columns.GetByIndex(0).Width = "1900"


  oNSheet.GetCellByPosition(11, 2).string = "Стоимость зарплаты"
  oNSheet.GetCellByPosition(11,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(11,2,12,2).Merge(True)
  oNSheet.GetCellByPosition(11,2).HoriJustify = 2
  oNSheet.GetCellByPosition(11,2).VertJustify = 2

  oNSheet.GetCellByPosition(11, 3).string = "На единицу"
  oNSheet.GetCellByPosition(11,3).isTextWrapped = True
  oNSheet.GetCellByPosition(11,3).HoriJustify = 2
  oNSheet.GetCellByPosition(11,3).VertJustify = 2
  oNSheet.GetCellByPosition(11,3).Columns.GetByIndex(0).Width = "2400"

  oNSheet.GetCellByPosition(12, 3).string = "На все количе-ство"
  oNSheet.GetCellByPosition(12,3).isTextWrapped = True
  oNSheet.GetCellByPosition(12,3).HoriJustify = 2
  oNSheet.GetCellByPosition(12,3).VertJustify = 2
  oNSheet.GetCellByPosition(12,3).Columns.GetByIndex(0).Width = "1600"

  oNSheet.GetCellByPosition(13, 2).string = "Цехо-вые рас-ходы _____%"
  oNSheet.GetCellByPosition(13,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(13,2,13,3).Merge(True)
  oNSheet.GetCellByPosition(13,2).HoriJustify = 2
  oNSheet.GetCellByPosition(13,2).VertJustify = 2
  oNSheet.GetCellByPosition(13,2).Columns.GetByIndex(0).Width = "1600"

  oNSheet.GetCellByPosition(14, 2).string = "Обще-завод-ские рас-ходы _____%"
  oNSheet.GetCellByPosition(14,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(14,2,14,3).Merge(True)
  oNSheet.GetCellByPosition(14,2).HoriJustify = 2
  oNSheet.GetCellByPosition(14,2).VertJustify = 2
  oNSheet.GetCellByPosition(14,2).Columns.GetByIndex(0).Width = "1600"

  oNSheet.GetCellByPosition(15, 2).string = "Всего завод-ская себе-стои-мость"
  oNSheet.GetCellByPosition(15,2).isTextWrapped = True
  oNSheet.GetCellRangeByPosition(15,2,15,3).Merge(True)
  oNSheet.GetCellByPosition(15,2).HoriJustify = 2
  oNSheet.GetCellByPosition(15,2).VertJustify = 2
  oNSheet.GetCellByPosition(15,2).Columns.GetByIndex(0).Width = "1800"


  
   Dim BasicBorder as New com.sun.star.table.BorderLine
   Dim BasicBorder0 as New com.sun.star.table.BorderLine
   Dim oBorder As Object
   oBorder = oNSheet.getCellRangeByPosition(0,2,15,4).TableBorder
   rem Werte für einen einfachen Rand
   BasicBorder.Color = RGB(0, 0, 0)
   BasicBorder.InnerLineWidth = 20
   BasicBorder.OuterLineWidth = 20
   BasicBorder.LineDistance =0

   BasicBorder0.Color = RGB(0, 0, 0)
   BasicBorder0.InnerLineWidth = 100
   BasicBorder0.OuterLineWidth = 0
   BasicBorder0.LineDistance = 0

   oBorder.LeftLine = BasicBorder
   oBorder.TopLine = BasicBorder
   oBorder.RightLine = BasicBorder
   oBorder.BottomLine = BasicBorder
   oBorder.HorizontalLine = BasicBorder
   oBorder.VerticalLine = BasicBorder
   oNSheet.getCellRangeByPosition(0,2,15,4).TableBorder = oBorder

  Dim currentKodDet As Long
  Dim currentKodIz As Long
  Dim Npp As Long
  Dim Total As Long
  Dim Count As Long
  
  currentKodDet = -9999
  currentKodIz = -9999
  Npp=0
  Total = 0
  Count = 0

  iCounter = 3
  
  While ResultSet.Next
  
    If ResultSet.Columns.getByName("kol").Long = 0 Then 
      GOTO lNext
    End If
    
    oBorder = oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder
    oBorder.LeftLine = BasicBorder
    oBorder.TopLine = BasicBorder
    oBorder.RightLine = BasicBorder
    oBorder.BottomLine = BasicBorder
    oBorder.HorizontalLine = BasicBorder
    oBorder.VerticalLine = BasicBorder
    oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder = oBorder

    If currentKodDet <> ResultSet.Columns.getByName("koddet").Long OR currentKodIz <> ResultSet.Columns.getByName("kodiz").Long Then

      If Count > 1 Then
        oNSheet.GetCellByPosition(5, iCounter).value = Total
        oNSheet.GetCellByPosition(6, iCounter).value = Total
        oBorder = oNSheet.getCellRangeByPosition(4, iCounter,6,iCounter).TableBorder
        oBorder.TopLine = BasicBorder0
        oNSheet.getCellRangeByPosition(4, iCounter,6,iCounter).TableBorder = oBorder
        iCounter = iCounter + 1
      End If

      oBorder = oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder
      oBorder.LeftLine = BasicBorder
      oBorder.TopLine = BasicBorder
      oBorder.RightLine = BasicBorder
      oBorder.BottomLine = BasicBorder
      oBorder.HorizontalLine = BasicBorder
      oBorder.VerticalLine = BasicBorder
      oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder = oBorder

      currentKodDet = ResultSet.Columns.getByName("koddet").Long
      Npp = Npp + 1
      Total = 0
      Count = 0
      iCounter = iCounter + 1
    End If
    
    If currentKodIz <> ResultSet.Columns.getByName("kodiz").Long Then
      oBorder = oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder
      oBorder.LeftLine = BasicBorder
      oBorder.TopLine = BasicBorder0
      oBorder.RightLine = BasicBorder
      oBorder.BottomLine = BasicBorder
      oBorder.HorizontalLine = BasicBorder
      oBorder.VerticalLine = BasicBorder
      oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder = oBorder
      currentKodIz = ResultSet.Columns.getByName("kodiz").Long
      Npp = 1
      oNSheet.GetCellByPosition(1, iCounter).string = Trim(ResultSet.Columns.getByName("nameiz").String)
      oNSheet.GetCellByPosition(1, iCounter).CharHeight = 20
      iCounter = iCounter + 1
    EndIf
   
      oBorder = oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder
      oBorder.LeftLine = BasicBorder
      oBorder.TopLine = BasicBorder
      oBorder.RightLine = BasicBorder
      oBorder.BottomLine = BasicBorder
      oBorder.HorizontalLine = BasicBorder
      oBorder.VerticalLine = BasicBorder
      oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder = oBorder

   
    Count = Count + 1

    If Count = 1 Then
      oNSheet.GetCellByPosition(1, iCounter).string = Trim(ResultSet.Columns.getByName("namedet").String) & Rem97(ResultSet.Columns.getByName("naz").Long)
      oNSheet.GetCellByPosition(0, iCounter).value = Npp
    End If

    oNSheet.GetCellByPosition(4, iCounter).String = sNop(ResultSet.Columns.getByName("nop").Long)
    oNSheet.GetCellByPosition(5, iCounter).value = ResultSet.Columns.getByName("kol").Long
    oNSheet.GetCellByPosition(6, iCounter).value = ResultSet.Columns.getByName("kol").Long

    If ResultSet.Columns.getByName("nv").Double > 0 Then
      oNSheet.GetCellByPosition(2, iCounter).value = ResultSet.Columns.getByName("nv").Double
      oNSheet.GetCellByPosition(11, iCounter).value = ResultSet.Columns.getByName("rc").Double
    Else
      oNSheet.GetCellByPosition(11, iCounter).string = "           -   "
    End If

    Total = Total + ResultSet.Columns.getByName("kol").Long

    iCounter = iCounter + 1
    lNext: REM 
  Wend
  If Count > 1 Then
    oBorder = oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder
    oBorder.LeftLine = BasicBorder
    oBorder.TopLine = BasicBorder
    oBorder.RightLine = BasicBorder
    oBorder.BottomLine = BasicBorder
    oBorder.HorizontalLine = BasicBorder
    oBorder.VerticalLine = BasicBorder
    oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder = oBorder
    oNSheet.GetCellByPosition(5, iCounter).value = Total
    oNSheet.GetCellByPosition(6, iCounter).value = Total
    oBorder = oNSheet.getCellRangeByPosition(4, iCounter,6,iCounter).TableBorder
    oBorder.TopLine = BasicBorder0
    oNSheet.getCellRangeByPosition(4, iCounter,6,iCounter).TableBorder = oBorder
    iCounter = iCounter + 1
  End If
      oBorder = oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder
      oBorder.LeftLine = BasicBorder
      oBorder.TopLine = BasicBorder
      oBorder.RightLine = BasicBorder
      oBorder.BottomLine = BasicBorder0
      oBorder.HorizontalLine = BasicBorder
      oBorder.VerticalLine = BasicBorder
      oNSheet.getCellRangeByPosition(0,iCounter,15,iCounter).TableBorder = oBorder


  oNSheet.GetCellByPosition(1, iCounter + 1).string = "==========================================="
  MsgBox "Обработка документа окончена"   

End Sub

OOBase Basic

Спасибо за включение ссылки на мои заметки в Вики русскоязычного форума ООо http://wiki.forumooo.ru/wiki/%D0%9F%D0%BE%D0%BB%D0%B5%D0%B7%D0%BD%D1%8B%D0%B5_%D1%81%D1%81%D1%8B%D0%BB%D0%BA%D0%B8 (Сразу замечу, что не имел к этому никакого отношения - просто пытался старательно выполнять свою работу). Понял, что не хватает собственно файла с моими наработками. Вот он с Виртуального Диска Гуугла:

https://drive.google.com/file/d/0B1CrvL0JhNFeeFBJWWJ4TGZra1U/view?usp=sharing

OOBase Basic

OpenOfficeBase + Basic — обещанное продолжение.

После почти двухлетнего перерыва, связанного со сменой профессональных интересов и поиском красивых решений - продолжаю повествование. Что же поменялось?

Во-первых, я стал более ориентироваться на использование в качестве движка OpenOfficrBase (not OpenOfficeWriter). Это произошло в связи с тем, что 3-я версия офиса поддерживает библиотеки уроня файла базы данных, которые могут удобно распрастраняться внутри файла .odb.

Во-вторых, я перешел на использование соединения JDBC, так как "родные" офисные соединения, к сожалению, не всегда поддерживают возможности JDBC 3...4.

В-третьих, я перешел на использование вода через форму (а не прямо в таблице). Это обусловлено и большей наработкой кода, который позволяет мастерить формы без проблем. И, в большей степени, из-за обнаружившегося ограничения ввода связанных данных через список (или комбобокс) примерно 30 тыс. строк (связано с разядностью целого числа).

Теперь немного кода.

Довольно накладно заполнять форму из базы данных и сохранять значения формы в базе данных. Соблюдая некоторые соглашения об именовании, можно это сделать просто (имя поля равно имени элемента)

Sub FromBaseToDialog(oForm, oDialog)
 If oForm.IsNew Or oForm.IsAfterLast() Or oForm.IsBeforeFirst() Then
  Exit Sub
 End If
 Dim I
 Dim sName As String
 For I = 0 To Ubound(oDialog.Model.ElementNames)
  sName = oDialog.Model.ElementNames(I)
  If Mid(sName, 1, 1) <> "_" And Mid(sName, 1, 5) <> "Label" Then
   ODialog.GetControl(sName).SetText(oForm.Columns.GetByName(sName).String)
  End If
  If Mid(sName, 1, 6) = "_date_" Then
   DateFromBaseToControl(oForm.Columns.GetByName(Mid(sName, 7)), ODialog.GetControl(sName))
  End If
  If Mid(sName, 1, 7) = "_combo_"  Then
  'xRay oForm.Columns.GetByName(Mid(sName, 8))
   If oForm.Columns.GetByName(Mid(sName, 8)).String <> "" Then
    InitComboBox(oDialog, sName, oForm.Columns.GetByName(Mid(sName, 8)).String)
   End If
  End If

  
 Next I
End Sub

Sub FromDialogToBase(oDialog, oForm)
 Dim I
 Dim sName As String
 For I = 0 To Ubound(oDialog.Model.ElementNames)
  sName = oDialog.Model.ElementNames(I)
  If Mid(sName, 1, 1) <> "_" And Mid(sName, 1, 5) <> "Label" Then
   If Mid(sName,1,4) = "date" Then
    oForm.Columns.GetByName(sName).UpdateString(ctl.util.Replace(Trim(oDialog.GetControl(sName).GetText()), ",", "."))
   Else
    oForm.Columns.GetByName(sName).UpdateString(Trim(oDialog.GetControl(sName).GetText()))
   End If
  End If
  If Mid(sName, 1, 6) = "_date_" Then
   DateFromControlToBase(ODialog.GetControl(sName), oForm.Columns.GetByName(Mid(sName, 7)))
  ' DateFromBaseToControl(oForm.Columns.GetByName(Mid(sName, 7)), ODialog.GetControl(sName))
  End If
  If Mid(sName, 1, 7) = "_combo_" Then
   oForm.Columns.GetByName(Mid(sName, 8)).UpdateString(ODialog.GetControl(sName).GetModel.Tag)
  ' DateFromBaseToControl(oForm.Columns.GetByName(Mid(sName, 7)), ODialog.GetControl(sName))
  End If
 Next I
End Sub

Как видно, есть специальные имена, начинающиеся с знака подчеркивания. Они подойдут для всяких меток, которые не должны обрабатываться. И еще пока что два обрабатываемых имени _date_ и _combo_, которые обрабатываются специальным образом. О списках (комбобоксах) ма поговорим в следующий раз, а о датах можно поговорить сейчас. OpenOffice удобно обрабатывает даты вводом через календарь, но что касается перевода БД в строку, присваивания строки элементу и обратно - то тут царит полнй хаос. Для PosgreSQL я использую вспомогательные функции:

Function DateToControl(dt) As Long
 DateToControl = dt.YEAR*10000 + dt.MONTH*100 + dt.DAY
End Function

Sub DateFromBaseToControl(field, ctl)
 If DateToControl(field.DATE) > 0 Then
  ctl.SetDate(DateToControl(field.DATE)
 Else
  ctl.SetText("")
 End If
End Sub

Function DateFromControl(dt As Long) As Object
 Dim oDt As New com.sun.star.util.Date
 Dim NewDate As String
 NewDate = dt
 If dt > 0 Then
  oDt.YEAR = Mid(NewDate,1,4)
  oDt.MONTH = Mid(NewDate,5,2)
  oDt.DAY = Mid(NewDate,7,2)
 End If
 DateFromControl = oDt
End Function

Sub DateFromControlToBase(ctl, field)
 if ctl.GetDate() <> 0 Then
  field.UpdateDate(DateFromControl(ctl.GetDate()))
 else
  field.UpdateNull()
 End If
End Sub

Ну вот собственно и все.

Теперь по кнопке вызываем диалог:

Sub Dogovor_Edit(Event)
 Dim oDialog As Object
 Dim f_dogovor As Object
 f_dogovor = Thiscomponent.DrawPage.Forms.GetByName("f_dogovor")
 oDialog = GetDialog("ctl", "dogovor")
 If oDialog.Execute() = 1 Then
  If Event.Source.Model.Tag = "new" Then
   f_dogovor.MoveToInsertRow()
   ctl.util.FromDialogToBase(oDialog, f_dogovor)
   f_dogovor.InsertRow()
  Else
   ctl.util.FromDialogToBase(oDialog, f_dogovor)
   f_dogovor.UpdateRow()
  EndIf
 Else
 End If
End Sub

Пока.

OpenOfficeBase + Basic — обещанное продолжение.

Sub FromBaseToDialog(oForm, oDialog)
 If oForm.IsNew Or oForm.IsAfterLast() Or oForm.IsBeforeFirst() Then
  Exit Sub
 End If
 Dim I
 Dim sName As String
 For I = 0 To Ubound(oDialog.Model.ElementNames)
  sName = oDialog.Model.ElementNames(I)
  If Mid(sName, 1, 1) <> "_" And Mid(sName, 1, 5) <> "Label" Then
   ODialog.GetControl(sName).SetText(oForm.Columns.GetByName(sName).String)
  End If
  If Mid(sName, 1, 6) = "_date_" Then
   DateFromBaseToControl(oForm.Columns.GetByName(Mid(sName, 7)), ODialog.GetControl(sName))
  End If
  If Mid(sName, 1, 7) = "_combo_"  Then
  'xRay oForm.Columns.GetByName(Mid(sName, 8))
   If oForm.Columns.GetByName(Mid(sName, 8)).String <> "" Then
    InitComboBox(oDialog, sName, oForm.Columns.GetByName(Mid(sName, 8)).String)
   End If
  End If

  
 Next I
End Sub

Sub FromDialogToBase(oDialog, oForm)
 Dim I
 Dim sName As String
 For I = 0 To Ubound(oDialog.Model.ElementNames)
  sName = oDialog.Model.ElementNames(I)
  If Mid(sName, 1, 1) <> "_" And Mid(sName, 1, 5) <> "Label" Then
   If Mid(sName,1,4) = "date" Then
    oForm.Columns.GetByName(sName).UpdateString(ctl.util.Replace(Trim(oDialog.GetControl(sName).GetText()), ",", "."))
   Else
    oForm.Columns.GetByName(sName).UpdateString(Trim(oDialog.GetControl(sName).GetText()))
   End If
  End If
  If Mid(sName, 1, 6) = "_date_" Then
   DateFromControlToBase(ODialog.GetControl(sName), oForm.Columns.GetByName(Mid(sName, 7)))
  ' DateFromBaseToControl(oForm.Columns.GetByName(Mid(sName, 7)), ODialog.GetControl(sName))
  End If
  If Mid(sName, 1, 7) = "_combo_" Then
   oForm.Columns.GetByName(Mid(sName, 8)).UpdateString(ODialog.GetControl(sName).GetModel.Tag)
  ' DateFromBaseToControl(oForm.Columns.GetByName(Mid(sName, 7)), ODialog.GetControl(sName))
  End If
 Next I
End Sub

Function DateToControl(dt) As Long
 DateToControl = dt.YEAR*10000 + dt.MONTH*100 + dt.DAY
End Function

Sub DateFromBaseToControl(field, ctl)
 If DateToControl(field.DATE) > 0 Then
  ctl.SetDate(DateToControl(field.DATE)
 Else
  ctl.SetText("")
 End If
End Sub

Function DateFromControl(dt As Long) As Object
 Dim oDt As New com.sun.star.util.Date
 Dim NewDate As String
 NewDate = dt
 If dt > 0 Then
  oDt.YEAR = Mid(NewDate,1,4)
  oDt.MONTH = Mid(NewDate,5,2)
  oDt.DAY = Mid(NewDate,7,2)
 End If
 DateFromControl = oDt
End Function

Sub DateFromControlToBase(ctl, field)
 if ctl.GetDate() <> 0 Then
  field.UpdateDate(DateFromControl(ctl.GetDate()))
 else
  field.UpdateNull()
 End If
End Sub

Ну вот собственно и все.

Теперь по кнопке вызываем диалог:

Sub Dogovor_Edit(Event)
 Dim oDialog As Object
 Dim f_dogovor As Object
 f_dogovor = Thiscomponent.DrawPage.Forms.GetByName("f_dogovor")
 oDialog = GetDialog("ctl", "dogovor")
 If oDialog.Execute() = 1 Then
  If Event.Source.Model.Tag = "new" Then
   f_dogovor.MoveToInsertRow()
   ctl.util.FromDialogToBase(oDialog, f_dogovor)
   f_dogovor.InsertRow()
  Else
   ctl.util.FromDialogToBase(oDialog, f_dogovor)
   f_dogovor.UpdateRow()
  EndIf
 Else
 End If
End Sub

Пока.

OpenOffice Base — что же дальше

Я понимаю, что читатель истосковался по более сложному коду. И он скорo будет опубликован. Мое направление сейчас - обернуть функционалом стандартный котнрол Диалогов - ComboBox.

Напомню, что Combobox Диалогов это не совсем тот же элемент, что и Combobox Формы. Но он нам очень пригодился бы для реализации ввода во "всплывающие" и модальное диалоговое окно, где загружать форму было бы слишком неюзабельно. Пока.

OpenOffice Base — что же дальше

Объекты Connection, Statement, ResultSet в OpenOffice

Для решения простых задач достаточно декларативно задать объекты данных в Мастерах-построителях или в Палитрах свойств объектов Формы. Если бы на этом возможности OpenOffice заканчивались, то кроме игр с данными ему сложно было бы найти применение. Вспоминаю сколько раз я раскрывал Star/OpenOffice, создавал подключение к серверу баз данных и с грустью закрывал, полистав весьма скудный (и до сих пор это так) Help.

Но время не стоит на месте. В Интернете начала накапливаться полезная информация о макросах OpenOffice и вот мы здесь.

Для начала работы следует получить объект Connection. Его можно получить несколькими способами. В частности из свойства ActiveConnection объекта Form или по символическому имени DataSource, которое можно задавать из Главного меню|OpenOffice Tools|Options|OpenOffice.org Base|Databases. Если вынести функцию GetConnection в скрипт из раздела My Macros, всегда будет достаточно изменить код ровно в одном месте чтобы измененить подключение.

Function GetConnection() As Variant

  Dim DataSource As Variant

  Dim Connection As Variant

  DatabaseContext = CreateUnoService("com.sun.star.sdb.DatabaseContext") 

  DataSource = DatabaseContext.GetByName("sourcename")

  GetConnection = DataSource.GetConnection()

End Function

Получив Connection надо создать Satement или PreparedStatement.

oStatement = GetConnection().CreateStatement

oResultSet = Statement.ExecuteQuery("select * from ...")

lCount = Statement.ExecuteUpdate("update ...") 

Теперь особое предупреждение для любителей строить запросы конкатенацией строк. Не забудем, что OpenOffice является офисным приложением. Поэтому при переводе чисел с точкой в строку десятичная точка превращается... превращается ... правильно - в десятичную запятую, что скорее всего откажется воспринять ваш сервер баз данных. Для такого случая удобно воспользоваться параметрическим запросом.

pStatement = GetConnection().PrepareStatement("update ... set ... = ? where ... = ?")

pStatement.SetDouble(1, 123.456)

pStatement.SetString(2, "789" )

                                                    ' pStatement.ExecuteQuery

pStatement.ExecuteUpdate

Объект ResultSet, полученный в результате запроса поддерживает удобную (привычную) навигацию и может быть изменяемым. То есть все плюшки, известные по ODBC/JDBC/DAO/ADO и иже с ними налицо. Впрочем это все уже можно прочитать в Интернете. Я же хотел дать зацепки для поиска нужных моментов. Пока.

Объекты Connection, Statement, ResultSet в OpenOffice

Function GetConnection() As Variant

  Dim DataSource As Variant

  Dim Connection As Variant

  DatabaseContext = CreateUnoService("com.sun.star.sdb.DatabaseContext") 

  DataSource = DatabaseContext.GetByName("sourcename")

  GetConnection = DataSource.GetConnection()

End Function

Получив Connection надо создать Satement или PreparedStatement.

oStatement = GetConnection().CreateStatement

oResultSet = Statement.ExecuteQuery("select * from ...")

lCount = Statement.ExecuteUpdate("update ...") 

pStatement = GetConnection().PrepareStatement("update ... set ... = ? where ... = ?")

pStatement.SetDouble(1, 123.456)

pStatement.SetString(2, "789" )

                                                    ' pStatement.ExecuteQuery