jJsonObject1JSON / ArrayObligatorio
Base de comparación.
FUNCIóNEn revisión
framework.types.json.Compare
framework.types.json.Compare( jJsonObject1, jJsonObject2, [@cRet] ) --> lRetCompara objetos JSON por propiedades y valores.
Descripción general
Función evita comparar solo serialización textual. Ficha describe comparación independiente del orden de propiedades/arrays y nombres sensibles a mayúsculas; si orden del array es contractual, no suponer igualdad estricta por posición. Requiere LIB 20211004 o superior y binario compatible TLPP. Entradas del mismo tipo, JSON/JSON o Array/Array, con salvedades para arrays JSON raíz. Ejemplo usa objetos simples reordenados. code/qty son claves fijas del contrato didáctico conservadas en idiomas. (TOTVS, s.f., ref. 1)
Sintaxis
framework.types.json.Compare( jJsonObject1, jJsonObject2, [@cRet] ) --> lRetParámetros
jJsonObject2JSON / ArrayObligatorio
Objeto/array del mismo tipo de base.
cRetCarácterOpcional
Diagnóstico por referencia.
Retorno
Lógico de comparación; cRet puede recibir diagnóstico por referencia.
Ejemplo comentado
#Include "Protheus.ch"
User Function Ed392()
Local jBase := JsonObject():New()
Local jComparado := JsonObject():New()
Local cDiferencias := ""
// JSONs fijos validos; solo difiere orden de propiedades.
jBase:FromJson('{"code":"A","qty":2}')
jComparado:FromJson('{"qty":2,"code":"A"}')
ConOut(cValToChar(framework.types.json.Compare(jBase,jComparado,@cDiferencias)))
FreeObj(jBase)
FreeObj(jComparado)
Return NilResultado esperado
Verdadero en ambiente compatible; orden de propiedades no cambia contenido. En revisión: ejemplo editorial no compilado ni ejecutado en Protheus. Comprobar includes, release, RDD y contexto antes de probar.
- Validar parseo externo y diagnóstico. Comparación no valida negocio ni autenticidad.
- En revisión: ejemplo editorial no compilado ni ejecutado en Protheus. Comprobar includes, release, RDD y contexto antes de probar.
Comentarios
Todavía no hay comentarios aprobados.
Inicia sesión con Google o Microsoft para comentar.