Tengo mas de una década que deje VFP te comparto esto:
el valor del atributo idCCP es un Identificador único GUID con formato
00000000-0000-0000-0000-000000000000
Patrón
[C]{3}[a-f0-9A-F]{5}-[a-f0-9A-F]{4}-[a-f0-9A-F]{4}-[a-f0-9A-F]{4}-[a-f0-9A-F]{12}
donde se cambiar los primeros 3 caracteres por CCC
Ejemplo:
CCC36B0F-73CE-4CEE-A30C-2AC7727D5855
El código que sigue genera el GUID en cumplimiento del estándar RFC 4122 solo debes REEMPLAZAR los primero 3 caracteres con CCC para cumplir con la especificación del atributo
DECLARE INTEGER CoCreateGuid IN Ole32.dll ;
STRING @cGUIDStruc
DECLARE INTEGER StringFromGUID2 IN Ole32.dll ;
STRING cGUIDStruc, ;
STRING @cGUID, ;
LONG nSize
LOCAL lcStruc_GUID, lcGUID, lnSize
*** Simulate GUID strcuture with a string
lcStruc_GUID = REPLICATE(" ",16)
lcGUID = REPLICATE(" ",80)
lnSize = INT(LEN(lcGUID) / 2)
IF CoCreateGuid(@lcStruc_GUID) # 0
RETURN ""
ENDIF
*** Now convert the structure to the GUID string
IF StringFromGUID2(lcStruc_GUID,@lcGuid,lnSize) = 0
RETURN ""
ENDIF
RETURN StrConv(LEFT(lcGUID,76),6)
* EOP: CreateGUID