IsKart

 STATIC FUNCTION IsKart(nMode)
 //------------------------------------------------------------------------//
 LOCAL Ret:=iMKART->(DBSEEK(UPPER(iMLABEL->Grup+iMLABEL->NNum)))
 LOCAL RetM := .F.,RetM45 := .F., cName
 //altd()
 IF !Ret
   Ret := iSPR_PART->(DBSEEK(UPPER(iMLABEL->Grup+iMLABEL->NNum)))
 ENDIF
 IF !Ret
   Ret := RetM := IsMdocM(iMLABEL->Grup+iMLABEL->NNum)
 ENDIF
 IF !Ret
   Ret := RetM45 := IsS45M(iMLABEL->Grup+iMLABEL->NNum)
 ENDIF
 IF !Ret
   Ret := ISSEEKNOM(GETPREFIX(),iMLABEL->Grup,iMLABEL->NNum,,@cName)
 ENDIF
 IF (Ret)
   IF (nMode==1)
     @ M->GETLIST[2]:ROW,M->GETLIST[2]:COL+14 SAY "[Задействован]" COLOR COL_INPUT
     lIsNomer := .F.
     AEVAL(MEMVAR->GETLIST,{|oGet| oGet:DISPLAY() })
   ELSEIF cName != NIL
     SAYERROR(" Номенклатура используется в "+cName)
   ELSE
     SAYERROR(IF(RetM45,{'ЕСТЬ ДВИЖЕНИЕ ПО ДАННОЙ НОМЕНКЛАТУРЕ'},IF(RetM,'ТМЦ задействован в документах склада !','ТМЦ числится в картотеке!')))
   ENDIF
 ELSEIF(nMode==1)
   @ M->GETLIST[2]:ROW,M->GETLIST[2]:COL+14 SAY SPACE(15) COLOR COL_INPUT
   lIsNomer := .T.
   AEVAL(MEMVAR->GETLIST,{|oGet| oGet:DISPLAY() })
 ENDIF
 RETURN !Ret