PC Toledo

... do Windows (HRESULT: 0x80040154) que significa "Classe Não Registrada", ocorrendo quando um aplicativo tenta usar um componente COM (Component Object Model) que não está corretamente registrado no sistema ou há um conflito de arquitetura (32-bit vs. 64-bit), sendo comum em aplicações .NET/Visual ...

... o GTK não selecionar todo o GET, 3 linhas apenas no hwg_gtk_init()

{
GtkSettings *settings = gtk_settings_get_default();
if (settings) {
g_object_set(settings, "gtk-entry-select-on-focus", FALSE, NULL);
}
}

Eu nunca iria achar ou saber. Depende sempre da forma que começamos a conversar ...

... Kresin <alex@kresin.ru>
* www - http://www.kresin.ru
*/

#include "hwgui.ch"
#include "hblang.ch"
#include "hbclass.ch"

CLASS HPaintCB INHERIT HObject

DATA aCB INIT {}

METHOD New() INLINE Self
METHOD Set( nId, block, cId )
METHOD Get( nId )

ENDCLASS

METHOD Set( nId, block, cId ) CLASS ...

... macroTextSymbol()
to fix strict mode in CI, manifested with either of those messages:
error: 'memcpy' specified bound 4294967295 exceeds maximum object size
2147483647 [-Werror=stringop-overflow=]
error: 'memcpy' accessing 4294967295 bytes at offsets 4 and 0 overlaps
6442450943 bytes at offset ...

... anulada: Não foi possível criar um canal seguro para SSL/TLS.
StackTrace| em Unimake.Business.DFe.ConsumirBase.ExecutarServico(XmlDocument xml, Object servico, X509Certificate2 certificado)
em Unimake.Business.DFe.Servicos.ServicoBase.Executar()
em Unimake.Business.DFe.Servicos.NFe.ServicoBase ...

... RETURN hb_DefaultValue( ControlByIndex( nIndex ):CTRL018, 0 ) // for SplitBox

FUNCTION GetControlSafeCol ( nIndex )

RETURN hb_DefaultValue( ControlByIndex( nIndex ):CTRL019, 0 ) // for SplitBox


Nessas horas que você se convence que vale a pena não duplicar nomes, igual o uso de WITH OBJECT.

... 37 ] [k] := T37
_HMG_SYSDATA [ 38 ] [k] := T38
_HMG_SYSDATA [ 39 ] [k] := T39
_HMG_SYSDATA [ 40 ] [k] := T40


No final vai ser assim:

WITH OBJECT oHmgApp()
oTmp := :aControlList[ J ]
:aControlList[ J ] := :aControlList[ K ]
:aControlList[ K ] := oTmp
:aControlList[ J ]:Index := J ...

... 149 ] -> Current Report HTML Code
* _HMG_SYSDATA [ 150 ] -> Current Report PDF File Generator Flag
* _HMG_SYSDATA [ 151 ] -> Current Report PDF Object Variable
* _HMG_SYSDATA [ 152 ] -> Current Report Header Band Height
* _HMG_SYSDATA [ 153 ] -> Current Report Detail Band Height
* _HMG_SYSDATA ...

... Algorithm="http://www.w3.org/2000/09/xmldsig#sha1"/>'+;
'<ds:DigestValue/>' +;
'</ds:Reference>'+;
'</ds:SignedInfo>'+;
'<ds:SignatureValue/>'+;
'<ds:Object Id="obj">String de teste</ds:Object>'+;
'</ds:Signature>' )



Será que alguém consegue me dar uma luz no assunto?

Obrigado,
Jair

... Update0717()

LOCAL cnSQL := ADOLocal(), cTabela, cSQL

SayScroll( "2025-07-15 Atualização" )

IF ! IsMaquinaJPA()
RETURN Nil
ENDIF

WITH OBJECT cnSQL
IF ! :FieldExists( "TRCLAFIS", "JPTRANSACAO" )
:ExecuteNoReturn( "ALTER TABLE JPTRANSACAO ADD COLUMN TRCLAFIS VARCHAR(6) NOT NULL DEFAULT ...

... como euInformo ao enviador o SSL e o TLS?

Obg. abs,
Pode-se usar o CDOSYS, nativo do Windows.
oMail := TOleAuto():New("CDO.Message")

WITH OBJECT oMail
:From := "seu@email.com"
:To := "destinatario@email.com"
:Subject := "Assunto"
:TextBody := "Corpo do e-mail"
:Configuration:Fields ...

... df[col] = df[col].round(2)

# Aplica a função de remoção de acentos apenas nas colunas do tipo string
for col in df.select_dtypes(include=['object']):
df[col] = df[col].map(remover_acentos)

csv_cabec = []
csv_dados = []
dados = []
for i in range(len(df.columns)):
if i in [0, 1, 4, 5 ...

... A INCLUIR NO PAGAMENTO:', nLi, nCi, nLf, nCf, ) == 0
MsgError( "Erro ao abrir Janela de dados." )
Return
EndIf

* Define a new TBrowse object
oBrowse := TBrowse():New( nLi + 1, nCi, nLf -3, nCf )

aDados := aAdados
oBrowse:cargo := {aDados, 1}
oBrowse:colorspec := drvcorbox ...

... A INCLUIR NO PAGAMENTO:', nLi, nCi, nLf, nCf, ) == 0
MsgError( "Erro ao abrir Janela de dados." )
Return
EndIf

* Define a new TBrowse object
oBrowse := TBrowse():New( nLi + 1, nCi, nLf -3, nCf )

aDados := aAdados
oBrowse:cargo := {aDados, 1}
oBrowse:colorspec := drvcorbox ...

... Se encerrar pelo GET, dá umas mensagens de erro. Se encerra pelo BOTÃO CONFIRMA, não aparece erro nenhum...
Bom passa tempo! rsrsrsrs

GLib-GObject-CRITICAL **: 20:26:59.234: g_object_ref: assertion 'G_IS_OBJECT (object)' failed
g_object_freeze_notify: assertion 'G_IS_OBJECT (object)' failed
IA ...