Форум

Local aMass2:={{{1},{2}},{2}}
aMass1:=aMass2

Procedue StartPlugin()
Memvar PROVERKA
Private PROVERKA
.......
OtherProcedure()
......
return



STATIC Procedure OtherProcedure()
//Переменная PROVERKA не определена в данной процедуре.
//Но к ней можно обратиться. ИМХО неправильно.
.........
PROVERKA:=11
.......
return

STATIC Procedure OtherProcedure()
Memvar PROVERKA
.........
PROVERKA:=11
.......
return

STATIC Procedure OtherProcedure(PROVERKA)
.........
//Или Local PROVERKA
PROVERKA:=11
.......
return

  oApp := OleCreateObject("com.sun.star.ServiceManager") 
//(Хотя как я понял там еще что-то требуется, чтобы "создать" CAlc)

 oWorkBook:=oApp:WorkBooks:Add() //добавление рабочей книги
 oAS:=oWorkBook:Worksheets():Add() //добавление таблицы


 oAS:Name:="Имя табл" //присвоение имени таблице
 oRange:=oAS:Range("A1:F1") //определение интервала ячеек
 oRange:font:bold:=.T. //выдленный шрифт на этом интервале
 oRange:MergeCells:=.T. //объединение ячеек в интервале
 oRange:value:="Готовые изделия на складе для организации " //запись текста
 oAS:columns(1):ColumnWidth:=7 //ширина 1-й колонки


 oAS:Range("A2"):formula:="Группа"//"Дт счет" //Запись заголовов столбцов

 oRange:=oAS:Range("A1:F2") //определение интервала ячеек
 oRange:font:bold:=.T. //выдленный шрифт на этом интервале

 oRange:HorizontalAlignment:=xlCenter // по горизонтали - в центре
 oRange:VerticalAlignment:=xlTop //по вертикали - у верхнего края


   oAS:Cells(nLine,2):NumberFormat:="@" //текстовой формат
   oAS:Cells(nLine,2):Value:=(AllTrim(TempF->NNUM))
   oAS:Range("C"+Var2Char(nLine)):WrapText:=.T. //свойство ячеек -перенос текста



 oRange:Borders(11):LineStyle:=xlContinuous //снизу - граница сплошной линией
 oRange:Borders(xlEdgeBottom):Weight:=xlThin //ширина линии - обычная

 IF(Rlock())
          MDOC->STATUS:="3"
          MDOC->STATUS1:=0
          Unlock
        ENDIF

DbGotop()
Do While !(EoF())
   MakeMEtKA()
   skip
enddo