PC Toledo

Quando forem criar variavéis para Json, criem com Hash() e depois convertam para cJson se desejam transmitir por algum body:http
apllication/json, sem precisar criar com: cJson := '{ hnfe: { num: '+cNum+', Emissao: '+Dtoc(date)... dá muito trabalho criar cjson
dessa maneira.

// Criando exemplo ...

... do produto, último da lista, etc.
Pode dizer lista do mercado, lista da farmácia, lista do açougue.

Notou alguma semelhança ?
ARRAY
#define
HASH
CLASSE / OBJETO

Antigamente.... eram só variáveis básicas


lista01 := "tomate 1kg"
lista02


um pouco pra frente vieram os arrays - listas ...

... ainda.

Nessa primeira fase de mudança, tanto faz, tá sempre compatível.
Só nos blocos acima poderão ser meses pra mexer.

Se fosse mudar pra HASH... vixe... já acabaria toda compatibilidade logo na primeira alteração.


Entendeu ?
É alterar uma coisa em qualquer fonte, e continuar usando.
Não ...

... que o Array da forma que está, precisa a todo tempo consultar a tabela de referencia dos elementos (saber sua função).

Mudar _HMG_SYSDATA para Hash vai quebrar compatibilidade com qualquer código de usuário que utilize o Array diretamente.
Mudar _HMG_SYSDATA para Static idem, pois muda a forma ...

... X'
If oHmgApp():FormByIndex( i ):Handle != ModalHandle
DisableWindow ( oHmgApp():FormByIndex( i ):Handle )
EndIf
EndIf
EndIf
Next i


Com hash:

For i := 1 To Len( _HMG_SYSDATA[ "form_name" ] )
If ! _HMG_SYSDATA [ "form_deleted" ] [i]
IF _HMG_SYSDATA [ "form_handle" ] [i] != 'X'
IF ...

Hash não vai mudar nada, só vai piorar as coisas.
Quanto mais alternativas pior, mais difícil consertar depois.
HMG Extended acho que vai ser difícil refazer, por tantas opções alternativas que foram criadas e ainda são mantidas.
Manter compatibilidade com tudo que inventaram torna tudo cada vez mais ...

Mudar _HMG_SYSDATA para hash seria opção (intenção de melhorar a legibilidade) ?


*--------------------------------------------------------------------*
Function GetSplitChildWindowHandle (cFormName, cParentForm)
*--------------------------------------------------------------------*
LOCAL i, hWnd ...

... bibliotecas como ACBr (se aplicável): Se você usa o componente ACBr, a funcionalidade já está implementada
...
Sim, José — a codificação da string para assinatura deve ser em UTF-8, sem BOM (Byte Order Mark). Isso é essencial para garantir que o hash gerado seja exatamente o esperado pela SEFAZ.

... causa de multithread, mas pra LIB GUI acaba sendo interessante.

Opções:

- Classe
Não vai ter checagem se colocar nome errado

- um único array ou hash
Não vai ter checagem,

- array + define
Passa a ter checagem

#define VAR_IMPRESSORA 2
pub_var[ VAR_IMPRESSORA ]


- Função estática array
Cai no ...

... hbmxml do harbour adicionar ao seu projeto hbmxml.hbc

/* ************************************************************************ */
function hb_hashToXML( hValue, n, cEOL )
LOCAL cXML

if valtype( n ) != "N"
n := -2
endif
if cEOL == NIL
cEOL := iif( n >= -1, hb_eol(), "" )
endif
cXML ...

Pra quem quiser.
Lembrando que tá saindo nova quase toda semana.
Mas talvez dê pra avaliar necessidades.

Convertida da tabela disponível no portal NFE nacional.

Formato PRG, carrega duas variáveis com hash/json.

Segue o código base:

Proc Mit_Json()

Local hMit := hb_Hash()
Local cFile := "C:\Temp\" + ; // Pasta
"00000000" + ; // CNPJ
"-MIT-" + ; // -MIT-
StrZero( Year( Date() ), 2 ) + ; // Ano
StrZero( Month( Date() ), 2 ) + ; // Mes
'.json'

hMit[ "$schema" ] := "http://json-schema.org/draft-07 ...

... x>, <n> ) => iif( ! HB_ISNUMERIC( <n> ), hb_mutexLock( <x> ) ;
iif( <n> <= 0, hb_MutexTryLock( <x> ), ;
hb_MutexTimeOutLock( <x>, <n> ) ) )

/* Hash item functions */
#xtranslate hb_Hash( [<x,...>] ) => Hash( <x> )
#xtranslate hb_HHasKey( [<x,...>] ) => HHasKey( <x> )
#xtranslate hb_HPos( [<x ...

Oi José..
sim, normalmente eu uso nomes de variáveis melhores, identificando.
usei dessa forma pra testes
muito obrigado

Legal, mas tem algo estranho, compilação -w3 -es2 teria avisado.

Criou aitem3, o que facilitaria, mas não usou.
Poderia ser assim


IF cret!=NIL .AND. !EMPTY(CRET)
hresultado := cret["resultados"]
hItemList := aresultado['itens'] // antigo aitem1
hUmItem := hItemList[1] // antigo aitem2 ...