PC Toledo

... e | e:CTRL005 == retval } )


Eu sei que na mudança pra classe perdeu-se o Scan() que funcionava em qualquer tipo de informação.
Por objeto não funciona do mesmo jeito, os tipos (numérico,string,data,etc) precisam ser iguais.
Não é a primeira vez que aconteceu esse erro.

xTmp ...

hmg3obj.png

Estou achando bom....
É que ficou uma parte pendente pra alterar pra objeto, referente grid.
Tava tentando descobrir aonde mexer pra dar erro.
Não sei mexer nessas coisas, e na IDE pior ainda.

Totalmente orientada a objeto, incluindo a IDE.
Deu erro aonde era esperado na GRID, e é onde ...

... prc := nfeitens->prc

Next

cJson := hb_jsonencode( hnfe, .T. ) // Transforma de hnfe (hash) para cJson:txt //

Return(cJson)

/* Criando o objeto hash */

Function CreateObj()

Local oObj := {=>}

HSetCaseMatch( oObj, .F. ) // desabilita o case-sensitive
HSetAutoAdd(oObj, .t.) // Adiciona obj ...

... porque em grid/grid_ex usa diferente.

Antes de mexer era

PUBLIC _HMG_SYSDATA[518]


agora

PUBLIC _HMG_SYSDATA := {}


distribuídos pelos objetos, APP, FORM e CONTROL.

DLGAUTO funcionando com a HMG3 alterada pra objeto,_hmg_sysdata tamanho ZERO !!!!!
Alterações apenas internas, mas pronto ...

... compatível através do array, até o término da mudança.
Como vantagem, não preciso alterar esse fonte agora.
E a vantagem após alterar pra objeto... a mudança de um fonte pro outro mostra uma delas

Cada objeto está em um elemento do array, só preciso trocar os elementos de lugar.
E como o ...

... isso vai dar erro de type mismatch. tipos diferentes.

A princípio é a mesma pesquisa, mas....

Interessante isso.

Ao alterar HMG3 pra OOP, e alterar o Scan() pra objeto... já sabem o que apareceu pelo caminho.

A explicação é simples: da primeira forma só pesquisa, da segunda forma faz o "cálculo".

... ú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

Lista[1 ...

... funcionando, melhor que antes.

Não sei porque, desde 2023 o programa ficava zumbi ao fechar, e não fica mais.
Sei lá.... só estou alterando pra objeto, e testando se funciona.

Por exempo, pra testar se é textbox, label, browse, grid, etc., isso já está sendo feito pela classe.
Sinal de que está ...

o que atrapalha é errorsys de lib gráfica.


Application Internal Error - d:\github\dlgauto\source\test.exe
Terminated at: 2025-08-25 20:10:43
Unrecoverable error 9003: Too many recursive error handler calls
Called from __ERRRT_SBASE(0)
Called from _HMGAPPCLASS:ERROR(0) in ../../../tobject.prg ...

... No final sim, só alterar a classe.

VAR Type INIT ""
VAR Name INIT ""
VAR Handle INIT 0
VAR FormParent INIT 0


Só fazer isso, e já era, objeto total.

Se alterar isso agora.... vai dar erro em todas as outras partes do fonte.

É como eu disse: é alterar 6 pra meia dúzia, de um tipo de ...

Favor quem tiver conta no hmgforum.com, informar que estou mudando hmg 3 pra objeto.

Não é grande coisa, é praticamente renomear variáveis.

hmg3obj.png

Mas pra dar uma idéia, falta renomear quase 16.000 ocorrências.

É um longo trabalho, vai ser terrível perder as mudanças se sair versão nova ...

... seu\arquivo.pfx" ' Substitua pelo caminho real do seu arquivo
strPfxPassword = "sua_senha" ' Substitua pela senha do seu arquivo PFX

' --- Criar objeto CAPICOM.Store ---
Set objStore = CreateObject("CAPICOM.Store")

' --- Abrir o armazenamento de certificados ---
objStore.Open CAPICOM_CURRENT_USER ...

... oTimer
...


Coloquei em segundo plano com verificação em intervalos. Faz acesso online, leitura do HTML, recorte do resultado e obtenção dos objetos desejados.
Através de INI configuro a UF alvo.
Salvo o resultado do status em INI para serem visualizado por maquinas na rede.
A função detecta o ...

... LOCAL oPDF;
// , nTamValor;

if ::erro_status = WS_OK
oPDF := PDFClass()
IF oPDF == NIL
hwg_msginfo("Falha da criação do objeto PDF","ATENÇÃO!!!")
RETURN .F.
ENDIF
oPDF:cFileName := ::cFileName
oPDF:SetType( PDFCLASS_ROLLS )
oPDF:nPageHeight := 150
oPDF:Begin()
oPDF ...

Só pra lembrar:
A compilação do harbour transforma em fonte C, e depois o fonte C é compilado gerando o objeto (.o em mingw)
Não tem limite, mas pra que ficar aumentando o tamanho do EXE com coisas que pode baixar depois.