Local aTabel:={},aPerson:=ARRAY(40),aTime:=ARRAY(30),i:=0,j:=0

For i:=1 to Len(aPerson)
  aPerson[i]:="Петров"+Var2Char(i)
NEXT

For j:= 1 to Len(aTime)
  aTime[j]:=0
NEXT


For i:=1 to Len(aPerson)
  AADD (aTabel,{aPerson[i],aTime})
NEXT
aTabel[2][2][3]:=1

AltD()
i:=1

 TRY
 oApp := oleCreateObject( "Excel.Application" ) //ïîïûòêà ñîçäàòü îáúåêò Excel
 CATCH oErr
 SayAndWait("Excel не установлен!")
 lOk:=.F.
 END

::bGrid1:columns(1):width:=::DS:FieldValue("width")

  ::bGrid1 := CGrid():new(0, 0, 0, 0)

  ::bGrid1:ControlPtr := LINKCONTROL("bGrid1", ::FormPtr, @::bGrid1)
  ::bGrid1:Name := 'bGrid1'
  ::bGrid1:columns(1):width:=::DS:FieldValue("width")

  ::AddControl(::bGrid1)

#include "hbclass.ch"
#include "BO_Const.ch"
class UNIT1 from UNIT1Base
endclass

#include "hbclass.ch"
#include "BO_Const.ch"

class UNIT1 from UNIT1Base
  METHOD bButton1_Click
endclass

METHOD bButton1_Click(Sender) class unit1
   ::Destroy()
RETURN .T.

Function RunTest1()
RETURN RunForm('project\unit1',.T.,{},nil)

Function RunTest1()
RETURN RunForm('project\unit1',.T.,{},nil)

C:\Program Files\BEST\BEST5_34\Client\Bin\projects\Расчеты с партнерами\unit.prg:RUNTEST1(2);RUNTEST1(0)l
SunSystem:BASE Code: 1001 Неизвестная функция

        oDocs := ScladDocs():New()
        oDocs:Hidden := 3
        oDocs:Task := "MF"

        oDoc := ScladDoc():New()
        oDoc:CodeOper := "01" 
        oDoc:Vid := "1"       
        oDoc:Type := "2"      
//        oDoc:TypeEx := "0602"      
        oDoc:Sclad := sSclad//"000001" 
        oDoc:CodeDoc := "001"     
        oDoc:NumDoc:="000200"
//        oDoc:AGENTCODE:=sAGENTCODE//"000002"
        oDoc:AGENTNAME:="Иванов" 

        For nI:= 1 to nprod
                  oDoc:AddRow(aProducts[nI][1],aProducts[nI][2],,,aProducts[nI][nFields+1],/*cEd1*/,/*nR*/,/*cNNOPERM*/,/*aAuto*/,/*aSerNo*/,;
                    ,,,/* cDef_Grup*/,/* cDef_NNUM*/,/* cDef_mDim*/, )
        NEXT               
        oDoc:NumDoc:=MDoc->(WDoc('NumDoc',UPPER(sSclad+oDoc:Vid+oDoc:Type+oDoc:CodeDoc)))
        oDocs:AddDoc(oDoc)

// В массиве aProducts информация о продукции, там, вроде все верно. По-моему что-то не так с шапкой документа.

/*METHOD AddRow(cGrup,cNNum,cMDim,cPartia,nKolOut,cEd1,nR,cNNOPERM,aAuto,aSerNo,;
     cPrd_Grup, cPrd_NNUM, cPrd_Bom, cDef_Grup, cDef_NNUM, cDef_mDim, cNZ_ID, cCommentM )*/

   oErr:=oDocs:Run()