HCRYPTPROV CryptProv;
HCRYPTHASH CryptHash;
BYTE BytesHash[16];
DWORD dwHashLen = 16;
_TCHAR theOut[MAX_PATH];

/* если задаю аргумент так, работает правильно */
// char *data = "test f_md5";
/* если беру входящий аргумент "test f_md5" из функции f_md5(ref string), то не работает правильно */
////////
char *data;
LPCTSTR lptheInput = NULL;
pbstring val = ci->pArgs->GetAt(0)->GetString();
lptheInput = m_pSession->GetString(val);
data = (LPSTR)lptheInput;
///////

BYTE *pbBuffer = (BYTE*)data;
DWORD dwBufferLen = strlen(data);
if (CryptAcquireContext(&CryptProv,
	NULL, NULL, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT | CRYPT_MACHINE_KEYSET))
	{
		if (CryptCreateHash(CryptProv, CALG_MD5, 0, 0, &CryptHash))
		{
			if (CryptHashData(CryptHash, pbBuffer, dwBufferLen, 0))
			{
				if (CryptGetHashParam(CryptHash, HP_HASHVAL, BytesHash, &dwHashLen, 0))
				{
					CHAR hexcharset[] = "0123456789abcdef";
					for (int j = 0; j < dwHashLen; j++)
					{
						theOut[j*2] = hexcharset[BytesHash[j] >> 4];
						theOut[(j*2)+1] = hexcharset[BytesHash[j] & 0x0F];
					}

				}
				else {
					//"Error CryptGetHashParam";
				}
			}
			else {
				//"Error CryptHashData";
			}
		}
		else {
			//"Error CryptCreateHash";
		}
	}
	else {
		//"Error CryptAcquireContext";
	}
	CryptDestroyHash(CryptHash);
	CryptReleaseContext(CryptProv, 0);

         ci->returnValue->SetString(theOut);

}
return pbxr;

string ls_rtn
ls_rtn = f_test(this) /* вызов функции PBX */
MessageBox("test", ls_rtn)

...
pbboolean isNull;
/* передаю параметр - объект приложения */
pbobject obj = ci->pArgs->GetAt(0)->GetObject();
pbclass cls = ci->pArgs->GetAt(0)->GetClass();
if (cls == NULL) {
   ci->returnValue->SetString(_T("Class is NULL"));
}
else {
   LPCTSTR FieldName = _T("classdefinition");
   pbfieldID fid = session->GetFieldID(cls, FieldName);
   if (fidcls == kUndefinedFieldID) {
      ci->returnValue->SetString(_T("Undefined FieldID"));
   }
   else {
      /* в GetObjectField нужен таки объект, а не класс */
      pbobject objclsdef = m_pSession->GetObjectField(obj, fid, isNull);
      if (objclsdef == NULL) {
	 ci->returnValue->SetString(_T("ObjectField is NULL"));
      }
      else {
	 ci->returnValue->SetString(_T("ObjectField is NOT NULL")); /* сюда доходит */
      }
   }
}