Помогите пожалуйста разобрать код процедуры, в которую надо внести небольшие изменения.
Известно, что написана она на языке Alaska xBase++, который как я понял из яндекса, есть приемник Clipper'а.

После FoxPro синтаксис выглядит не совсем понятным.
Из имеющихся вопросов:
1. что означают скобки {} ?
2. Что означает -> ?
3. Что за команды EXTRACT(), ListToArray(), CDDialog() ?
4. Что за конструкци:
RESTR->( DB_SETORDER("SEARCH") ) ?
opJournSelect := JournSelect():new() ?
opJournSelect:AddVar( "DOCUM", ".T." ) ?
opJournSelect:SetExpression( "OPDATE.AND.CREDIT.AND.ACC.AND.DOCUM" ) ?

//реестр закупок товаров и услуг

LOCAL aParam
LOCAL cFilter
LOCAL opJournSelect
LOCAL cTabName := "RESTR"
LOCAL xTemp, nCount, aBR, aTemp, nRefBU, cFileAgree, aAcc, nI
LOCAL aGauge := {}
LOCAL cVendrAcc := ""
LOCAL cFacesAcc := ""

PRIVATE cpPeriod := ""
PRIVATE apParamF := {}


BEGIN_SEQUENCE

WindOpen( "RESTR",,"Реестр закупок товаров и услуг" )

aParam := CDDialog( "CDRZTU",,"Реестр закупок товаров и услуг" )
IF VALTYPE(aParam) == "A"
apParamF := ACLONE(aParam)
ENDIF

cFileAgree := FILE_NAME( "AGREE" )

IF !T_FILE( cFileAgree )
IF aParam[ 10 ]
ALERT( "SВ параметрах сборки указано что необходимо проверять суммы по реестру обязательств, хотя сам реестр обязательств не заполнен!!!" )
BREAK
ENDIF
ENDIF

IF !DBUSE( cFileAgree, "AGREE", .F. )
BREAK
ENDIF

AGREE->( DB_SETORDER( "DOCID" ) )

IF VALTYPE( aParam ) <> "A"
BREAK
ENDIF

IF !MacroFunc( "CreateDSD", { cTabName } )
BREAK
ENDIF

Moment("Анализ параметров сборки...")

cpPeriod := "с " + AllTrim( SayDate( aParam[4], "DD MMMMMM YYYY г." ) ) + " по " + AllTrim( SayDate( aParam[5], "DD MMMMMM YYYY г." ) )

aParam[1] := RTRIM( aParam[1] )

IF EMPTY( aParam[1] ) .OR. ( "ВСЕ"$UR( aParam[1] ) )
xTemp := EXTRACT( {}, "ARR", SprPath + "accnf.dbf", "CODE", ".T." )
aParam[1] := ArrayTOList( xTemp)
ENDIF

aTemp := ARRAY( 2 )

IF EMPTY( aParam[7] ) .OR. ( "ВСЕ"$UR( aParam[7] ) )
aTemp[1] := EXTRACT( {}, "ARR", SprPath + "refbu.dbf", "ITEMCODE", ".T." )
ELSE
aTemp[1] := ListToArray( aParam[7] )
ENDIF

IF EMPTY( aParam[2] ) .OR. ( "ВСЕ"$UR( aParam[2] ) )
aTemp[2] := getAccAnalitGroups(,,"FIELD->GROUP=7.OR.FIELD->GROUP=8")
ELSE
aTemp[2] := ListToArray( aParam[2] )
ENDIF

aParam[2] := ""

FOR xTemp := 1 TO LEN( aTemp[1] )
FOR nCount := 1 TO LEN( aTemp[2] )
aParam[2] += PADR( ALLTRIM(aTemp[1][xTemp]) + ALLTRIM(aTemp[2][nCount]), 10 ) + ","
NEXT
NEXT

IF EMPTY( aParam[6] ) .OR. ( "ВСЕ"$UR( aParam[6] ) )
xTemp := EXTRACT( {}, "ARR", SprPath + "such.dbf", "ENT", ".T." )
aParam[6] := ArrayTOList( xTemp )
ENDIF

IF EMPTY( aParam[2] ).OR.EMPTY( aParam[1] ).OR.EMPTY( aParam[6] )
BREAK
ENDIF

aAcc := ListToArray(aParam[2])

FOR nI := 1 TO LEN(aAcc)
IF GetAccField(aAcc[nI],"GROUP")== 7 // подотчетные лица
cFacesAcc += ";"+aAcc[nI]+" "
ELSE // поставщики
cVendrAcc += ";"+aAcc[nI]+" "
ENDIF
NEXT

cFilter := "KFKR $ '" + aParam[1] + "'.AND. ENTER_D $ '" + aParam[6] + "'"

IF !EMPTY( aParam[ 9 ] )
cFilter += ".AND. FIELD->ONAME == '" + aParam[ 9 ] + "'"
ENDIF

cFilter +=".AND.("

IF !EMPTY(cVendrAcc)
aParam[ 8 ] := RTRIM(aParam[ 8 ])
cFilter += "( KACC $ '"+cVendrAcc+"'.AND.TYPE_D==1.AND.!EMPTY(DONOR)"+IF(!EMPTY( aParam[ 8 ]),".AND.FIELD->DONOR $ '" +RTRIM(aParam[ 8 ]) + "'","")+")"
ENDIF

IF !EMPTY( cFacesAcc )
cFilter += IF(!EMPTY(cVendrAcc),".OR.","")+"( KACC $ '"+cFacesAcc+"'.AND.TYPE_D==2.AND.!EMPTY(DONOR)"+IF(!EMPTY( aParam[ 11 ]),".AND.SUBSTR(FIELD->DACC,2,3)!='302'"+".AND. FIELD->DONOR $ '" +RTRIM(aParam[ 11 ]) + "'","")+")"
ENDIF
cFilter +=")"

RESTR->( DB_SETORDER("SEARCH") )

opJournSelect := JournSelect():new()

IF !opJournSelect:Create( aParam[4], aParam[5] )
ALERT( "Невозможно открыть ЖБО. ")
Moment(.F.)
BREAK
ENDIF

opJournSelect:AddVar( "OPDATE", "DTOS(OPDATE)>='" + DTOS( aParam[4] ) + "'.AND.DTOS(OPDATE)<='" + DTOS( aParam[5] ) + "'" )
opJournSelect:AddVar( "CREDIT", cFilter )
opJournSelect:AddVar( "ACC", "!( SUBSTR( FIELD->KACC, 2, 3 ) == '206' ) " )
IF !EMPTY( aParam[ 12 ] ) .AND. UR( aParam[ 12 ] ) <> "[ВСЕ]"
opJournSelect:AddVar( "DOCUM", "ALLTRIM( DOCTYPE ) $ '" + ALLTRIM( aParam[ 12 ] ) + "' " )
ELSE
opJournSelect:AddVar( "DOCUM", ".T." )
ENDIF

opJournSelect:SetExpression( "OPDATE.AND.CREDIT.AND.ACC.AND.DOCUM" )
opJournSelect:Top()

Moment(.F.)

IF !opJournSelect:Eof

aGauge := { InitGauge( "Обработка ЖБО" ), 0, D( 1, JOURN->( REC() ) ) }

DO_WHILE !opJournSelect:Eof
UpdateGauge( aGauge[2]+=aGauge[3] )
IF opJournSelect:IsVisible()
IF !aParam[ 10 ] .OR. ( aParam[ 10 ] .AND. MacroFunc( "ПроверитьСуммуДоговора") )
MacroFunc("ADDREC")
ENDIF
ENDIF
opJournSelect:Skip()
ENDDO
WindClose( aGauge[1] )

ENDIF

opJournSelect:Destroy()

SETFKEY ( {"Помощь;Help('RESTR')","Печать;Print( 'RESTR' )",,,,,,,"Кальк.;Calculator()"} )
aBr := InitTableBrowse( { OkStructure(), MEMVAR->SysPath + "dynamic.dsc", MEMVAR->SysPath + "macro.dat" } )
TableBrowse( LocalPath + cTabName + ".dbf", LocalPath+ cTabName + ".dsd", "RESTR",,,,,,,,,, 3 )
InitTableBrowse( aBr )
RESTFKEY()

END_SEQUENCE

WindClose()

RETURN

Спасибо!

Помогите разобраться с функцией ASORT().

Из справки
ASORT() Сортировка элементов массива по возрастанию значений
ASORT(<массив>, [<вырN1>], [<вырN2>]] [блок]) -->массив

Пример сортировки вложенного массива:

aKids := { {"Mary", 14}, {"Joe", 23}, {"Art", 16} }
aSortKids := ASORT(aKids,,, { |x, y| x[2] < y[2] })

Результат:

{ {"Mary", 14}, {"Art", 16}, {"Joe", 23} }

У меня есть массив apData, элементами которого являются также являются массивы из 6 элементов.
Пример:
имеем исходный массив
apData =
{
{"Name1", "n", "10531", "Petr", "14", "345"},
{"Name3", "n", "10531", "Ivan", "14", "345"},
{"Name2", "n", "10532", "Petr", "34", "545"},
{"Name1", "n", "10532", "Petr", "44", "645"},
{"Name1", "n", "10532", "Ivan", "74", "569"},
{"Name2", "n", "10531", "Ivan", "33", "987"}
}

надо отсортировать его следующим образом (по возрастанию): сначала по элементу 4, потом по элементу 3, потом по элементу 1.
Т.е. надо получить в итоге

{
{"Name2", "n", "10531", "Ivan", "33", "987"}
{"Name3", "n", "10531", "Ivan", "14", "345"},

{"Name1", "n", "10532", "Ivan", "74", "569"},

{"Name1", "n", "10531", "Petr", "14", "345"},

{"Name1", "n", "10532", "Petr", "44", "645"},
{"Name2", "n", "10532", "Petr", "34", "545"},

}

Как должна выглядеть команда ASORT() ?

Пишу asort(apData,,,{|x,y| x[4] < y[4]}), получаю сортировку по имени (элемент 4), а как дальше не знаю.

Подскажите пожалуйста.

sldможет чонить навроде
asort(apData,,,{|x,y| x[4] < y[4] .AND. x[5] < y[5] })

Пробовал с .AND., вообще не понял как отсортировалось. Т.е. и не 4, и не 5, и не 4 и внутри по 5, и не по 5 и внутри по 4.

Неужто в Clipper такой простейшей операции, как сортировка массива по нескольким признакам сразу нет?

Столкнулся с Clipper впервые и после FoxPro просто в шоке, насколько все заморочено.

Всем спасибо!

Результат достигнут.

White OwlЗато у Клиппера намного больше возможностей чем у Фокса. Когда я был вынужден перейти с Клиппера на Фокс я весь изматерился на дурацкие ограничения Фокса и его примитивный синтаксис. Переход обратно был просто счастьем и наслаждением.

Можно чуть подробнее про возможности Клиппера, т.к. это моя первая доработка проекта, но чуствую не последняя.

И если не затруднит приведите пример ограничения Фокса и примитивный синтаксис. Не ради дискуссии, а просвещения для.