ClassMethod CreateJobCostingWBG(waybillLineIds As %String, companyId As %String, dateOf As %String, contractId As %String, documentId As %String = "") As %String
{
	set sc = $$$OK
	set errMsg = "Ошибка!(CreateJobCostingWBG): "

	quit:waybillLineIds="" errMsg_"отсутствует список путевых листов."
	
	TSTART
	
	if documentId="" {
		quit:companyId="" errMsg_"не указан заказчик(клиент)." 
		quit:contractId="" errMsg_"не указан договор."
		quit:dateOf="" errMsg_"не указана дата расчета."  

		;создаем шапку документа
		set res = ##class(doc.calc.JobCostingWBG).CreateDocument(companyId, dateOf, contractId, .Document)
		quit:$get(res)'="" errMsg_$c(13)_$c(10)_res
	
	} else {
		set Document = ##class(doc.calc.JobCostingWBG).%OpenId(documentId)
		quit:$get(res)'="" errMsg_$c(13)_$c(10)_"Не удалось открыть документ."
		set dateOf = Document.CalcDate
		quit:dateOf="" errMsg_"не указана дата расчета."  
	}
	
	for k = 1:1:$LENGTH(waybillLineIds,",") {
		set waybillId = $PIECE(waybillLineIds,",",k)
		if waybillId'="" {
			set res2 = ##class(doc.calc.JobCostingWBG).CreateDocLine(Document,waybillId,dateOf)
			set:$get(res2)'="" errMsg = errMsg_$c(13)_$c(10)_res2
			goto:$get(res2)'="" errCreateJobCostingWBG
		}
	}
	
	TCOMMIT
	quit ""

errCreateJobCostingWBG
	TROLLBACK
	quit errMsg
}