PC Toledo

... READ

INIT DIALOG
CONTROLES...
Só que pára, se tiver um GET aqui "penúltimo" e não sai com enter então o VALID {||etc} não funciona.
Se o ultimo objeto/controle for por exemplo BUTTON pega FOCO, OWNERBUTTON não pega foco.
END DIALOG //READ

Funcionava antes, saia do último GET, depois ficou da ...

... 1. Carregar o certificado
Set store = CreateObject("CAPICOM.Store")
store.Open 2, "My", 0
Set cert = store.Certificates.Item(1)


✅ 2. Criar o objeto SignedData
Set signed = CreateObject("CAPICOM.SignedData")
signed.Content = xmlSemAssinatura


✅ 3. Assinar
Set signer = CreateObject("CAPICOM ...

... FLAT .T.
NOXPSTYLE .T.
END BUTTONEX

(xDlg)

RETURN Nil


E por fim lib_oohg.prg
OOHG tem opção tradicional igual as outras minigui, ou objeto.
Note que. igual fivewin, tem a opção de button que cancela VALID


STATIC FUNCTION gui_ButtonCreate( xDlg, xParent, xControl, nRow, nCol, nWidth ...

Hoje tava olhando uma postagem OOHG, e acabei olhando as coisas....

pedaço de i_var.ch

#xtranslate _OOHG_ActiveControlInfo => _OOHG_AppObject():Value_Pos01
#xtranslate _OOHG_ActiveToolBar => _OOHG_AppObject():Value_Pos02
#xtranslate _OOHG_AdjustFont => _OOHG_AppObject():Value_Pos03
#xtranslate ...

Uma coisa que não sei fazer.

https://github.com/JoseQuintas/dlgauto/tree/main/testmix

Nesse teste dá pra escolher GTWVG, HWGUI e ( HMG 3 ou HMG Extended ou OOHG ).
Ao fechar HMG3 fecha o aplicativo inteiro.
Como impedir isso ?

Com HWGUI ok, dá pra fechar toda hwgui e o resto continua.
Com ...

Não consegui postar no hmgforum.com, pra um teste mais amplo.
O projeto está em:

https://github.com/JoseQuintas/hmg3_fork

Como atualizo este projeto com mais frequência, toda geração está nele
https://github.com/JoseQuintas/sefazclass/blob/master/.github/workflows/buildall.yml

Nesse workflow ...

Muy bueno José!!! Gracias por compartir

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