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()
И получаю ошибку. Нет прав доступа.
1. Подскажите, пожалуйста, какие именно параметры в шапке документа необходимо указывать.
2. Требуется ли создавать партию для этой продукции перед тем как запускать оприходование или она может создаваться
автоматически? Создавал партию, получаю тоже самое.