пример кода

QPrint

 //--------------------------------------------------------------------------//

 FUNCTION QPrint(aPHeads,block,bFooter,bSayHead,bKeyHead,aGroup)
   //----------------------------------------------

PricePere

 //--------------------------------------------------------------------------//

 FUNCTION PricePere(lPrice,GET,lSkid,bnCena,bnVCena)
   //----------------------------------------------------------

SAVESETKEY

 FUNCTION SAVESETKEY()
   LOCAL aSave := HB_SetKeySave()
   LOCAL i
   LOCAL aRest := {}
   FOR i := 1 TO LEN(aSave)
     IF aSave[i][1] == K_F1.OR.;
        aSave[i][1] == K_ALT_F1.OR.;
     

SaveSet

 FUNCTION SaveSet(nTop, nLeft, nBottom, nRight)
   IF nTop==NIL
     nTop:=0
   ENDIF
   IF nLeft==NIL
     nLeft:=0
   ENDIF
   IF nBottom==NIL
     nBottom:=MAXROW()
   ENDIF
   IF nRight=

DBOpenBases

 /********
 *  Функция: DBOpenBases( <xBases>, [<cMessage>], [<lExc>], [<lRO>], [<NoProcess>], [<NoClearState>], [<lFile>])
 *
 *  Назначение: Открывает базы данных
 *
 *  Параметры:
 *
 *    

NetUse

 ****************************************************************
 * Открытие базы данных:                                        *
 * в распределенном режиме  lExc := NIL or lExc := .F.

Saldo

 FUNCTION Saldo( cVO, aPar )  // сальдо счета
   LOCAL nRez := 0, cSchet, i, cCode, cNS, cKey := '', cAlias,;
         aOst:= {0,0}
   FIELD DTOB_n,KTOB_n,DTOST,KTOST
   cNS := UPPER(aPar[1])
   

Comment

 FUNCTION Comment(lWrite,lView)
   LOCAL nWin:=WSELECT()
   LOCAL aSetKey:=SAVESETKEY(),cLastColor
   LOCAL nTop:=8,nLeft:=13,nBottom:=15,nRight:=70
   LOCAL sRest,sRest24,cSclads:=pSclads, oldCur

NControlMem

 //----------------------------------------------------------------------------//

 FUNCTION NControlMem(xKey,cPre,cAlias,lDel)
   //----------------------------------------------------------------

NVDoc

 //----------------------------------------------------------------------------//

 FUNCTION NVDoc(nAdd,nGet,cField,xKey,cPre,cTag,lRight,cAlias,bVar,lNoSoob,lClearScope,lValidEdit)
   //----------
Ленты новостей