Привет.

Как-то так. Пример с Восточной Школы во Врангеле.

Method UpdateOnServer() As %Status [ ZenMethod ]
{
// получаем компонент таблицы и её хранилище данных
set Grid=..%GetComponentById("grid")
set DataSet=Grid.dataSet

for i=1:1:DataSet.%GetDimSize() {
set id=DataSet.%GetValue(i,1)
if id="" {
set DemantIn=##class(kpp.DemantIn).%New()
} else {
set DemantIn=##class(kpp.DemantIn).%OpenId(id)
}

set DemantIn.DemantDate=##class(p6.dt.Date).DisplayToLogical(
DataSet.%GetValue(i,4)
)
set DemantIn.DemantTime=##class(p6.dt.Time).DisplayToLogical(
DataSet.%GetValue(i,5)
)
set DemantIn.TypeOfGood=DataSet.%GetValue(i,6)
set sc=DemantIn.Save()
if $$$ISERR(sc) &js<alert('Произошла ошибка' +
#(..QuoteJS(
##class(p6.CspMethods).StatusForAlert(sc)))#);
>
}
quit $$$OK
}

В цикле обрабатываются строки.

=Сергей Шутов
ООО Димас, Хабаровск
Posted via ActualForum NNTP Server 1.4