IsMdocM

 FUNCTION IsMdocM(cKey)
   //------------------------------------------------------------------------//
   // Поиск в документах склада
   LOCAL aBase := {{GETPREFIX()+"MDOCM",GETPREFIXPATH()+"MDOCM"}}
   LOCAL lRet := .F., nRec
   DBOPENBASES(aBase,,,,.T.)
   SELECT iMDOCM
   ORDSETFOCUS("MDOCM_S")
   lRet := DBSEEK(UPPER(cKey)) .OR. MSEEK(cSelDocM,"MDOCM_AM",cKey,{|| iMDOCM->SCHET_A })
   DBCLOSEBASES(aBase)
   RETURN lRet