Âîïðîñû ïî èíòåðôåéñíûì ôóíêöèÿì

[rn]

Ó ìåíÿ âîïðîñ ïî èíòåðôåéñíîé ôóíêöèè InitList, â ÷àñòíîñòè êàê èñïîëüçîâàòü ñïðàâî÷íèê ñîçäàííûé ôíêöèåé MakeRefer ñîâìåñòíî ñ ôóíêöèåé InitList.
Âîïðîñ â ñëåäóþùåì, êàê çàñòàâèòü ñïðàâî÷íèê âûçûâàåìûé èç Get InitList âîçâðàùàòü çíà÷åíèå.
Ñïðàâî÷íèê âûçûâàåòñÿ èç ïîëÿ ïîäðàçäåëåíèå.
×òîáû îáëåã÷èòü çàäà÷ó ÿ ïðèâåäó êîä ïðîãðàììû.

FUNCTION MAIN()
dbpush("cardspri","cardspri")
// Ïåðåìåííûå ïðîãðàììû
Private cFio,cAdr,cKvart,cPath,cStruct,aSetKey,aSet
cFio:=''
cAdr:=''
cKvart:=''
// InitList ïåðåìåííûå
private nTop,nBottom,cColHead,aHeads,aBlock,aRef,aPict,aSortSeek
nTop:=4
nBottom:=17
// Makeref ïåðåìåííûå
Private cRefer,cHeadRef,nTypRef,aHeadsRf,aSource,aDest,cKeyVal,abFields
Private aXYN,cColor
cRefer:="Struct"
cHeadRef:="Ñïðàâî÷íèê àäðåñîâ..."
nTypRef:=1
aHeadsRf:={"Êîä","Íàìåíîâàíèå"}
// Ðàñïîëîæåíèå ñïðàâî÷íèêà
aXYN:={5,25,10}
cColor:="n/w,w+/n"
aSet:=SaveSet()
aSetKey:=SaveSetKey()
// Ñîõðàíÿåì ýêðàí è ñîñòîÿíèå êëàâèø
cPath:=loadpath()
NetUse("cards",cPath+"salary\cardspri.dbf")
NetUse("adrs",cPath+"struct.dbf")
cards->(ordsetfocus("03"))
adrs->(ordsetfocus("Code"))
adrs->(dbgotop())
cards->(dbgotop())
dbselectarea("cards")
cards->(f_setrelation("adrs","UPPER(C_STRUCT)"))
//******MakeRef****************
adrs->(Makerefer(cRefer,cHeadRef,nTypRef,aHeadsRf,aXYN,cColor,,,,{{|| code},{|| shortname}},,,,,,,,,,,,,,,,,,,,,,,,,,,"",,,,,,,,,,1))
//******InitList***************
//Ìàññèâ ññûëîê íà ñïðàâî÷íèêè
aRef:={,,,,"Struct"}
//Ìàññèâ ññûëîê íà øàáëîíû ââîäà
aPict:={}
//Ìàññèâ ïîèñêîâ è ñîðòèðîâîê
aSortSeek:={{"- ïî êîäàì ","Ââåäèòå èñêîìûé êîä","cards->Tnum","UPPER(aIn[1])"},{"-ïî ôàìèëèÿì ","Ôàìèëèÿ ","alltrim(cards->fam)","Upper(aIn[1])"}}
sayscreen("Òàá. ",3,2)
aHeads:={{"Òàáåëüíûé íîìåð...","cards->tnum"}}
aadd(aHeads,{"Ôàìèëèÿ..........","cards->fam"})
aadd(aHeads,{"Èìÿ..............","cards->name"})
aadd(aHeads,{"Îò÷åñòâî.........","cards->patr"})
aadd(aHeads,{"Ïîäðàçäåëåíèå....","adrs->code"})
aBlock:={{|| tnum},-1},{{|| fam},8},{{|| name},25},{{|| patr},41},{{|| c_struct},58}}
cards->(InitList(nTop,nBottom,cColHead,aBlock,{||CurSt(cards->fam)},aHeads,aRef,aPict,,,,,,aSortSeek,,,,,,,3))
//*****************************
cards->(dbclosearea())
adrs->(dbclosearea())
RestSetKey(aSetKey)
RestSet(aSet)
dbpop()
RETURN NIL

//********Îáúÿâëåíèå ôóíêöèé****************
FUNCTION CurSt(cFm)
sayscreen(cFm,24,5)
Return NIL
//*******************************************

[nordk]

[rn]

À êàê èìè ïîëüçîâàòüñÿ? Ïîäñêàæè

[nordk]

Ýòî îáû÷íûå ìàññèâû - â îäíîì ïåðå÷èñëÿþòñÿ èìåíà ïîëåé, â äðóãîì ïåðåìåííûå êóäà êëàñòü. Áîëåå ïîäðîáíî áóäåì ðàñïèñûâàòü â òåìå ðÿäîì ïî InitList - ãëàâíîå áåç ñóåòû è ïîñëåäîâàòåëü