PC Toledo

... oMsgItemCFaz := TMsgItem():New(oWnd:oMsgBar,,24,,,,.t.,,"level2",, "Informa SEFAZ status" )
oMsgItemCFaz:Refresh()
else
// Cria objeto principal
VerifyINI( "Geral", "ForcaContingencia", "N", cPathDados+"\nfw.ini", .T. )
VerifyINI( "SEFAZ", "Status", "ON", cPathDados+"\nfw.ini ...

... g_cModo, g_nRecno, g_cUsuOrig
// =====================================================

// -------------------------------------------------
// Objetos/controles principais
// -------------------------------------------------
STATIC ThisForm
STATIC oTab, oBrw, oEdBusca
STATIC oEdUsuario ...

... se você atribuir diretamente a propriedade depois da criação, pois se fizer antes, o pre-processador ira colocar o bloco dentro de outro bloco e provavelmente falhara.


... como posso usar esta propriedade aControls := Form.Controls porque precisava da matriz de controles associado ao objeto...

... a sua atenção e sempre que tiver dúvidas, pergunto.
Vou usar então o HIDE E SHOW para mostrar os botões, fica mais rápido.

Pergunto como posso usar esta propriedade aControls := Form.Controls porque precisava da matriz de controles associado ao objeto para poder fazer pesquisas.

Forte abraço.

Olá,

Ao definir um objeto fora da estrutura da janela, é obrigatório informar a propriedade PARENT. Caso contrário, o sistema não saberá onde alocar o objeto.
Outro adendo é: se você estiver criando o objeto acima da criação do formulário ou em módulo diferente, não esqueça de declarar a janela;
at.

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