PC Toledo

Olá!
JSON está morto 🤯 -> Token-Oriented Object Notation (TOON)

Um novo formato chamado TOON está se tornando viral por sua capacidade de reduzir o uso de tokens pela metade sem perder a integridade dos dados.

Claro como YAML, compacto como CSV:

- 30–60% menos fichas.
- Custos até 50% menores ...

... cPass, vPORTSMTP, cCC, cBCC, vEMAIL_CONF, wSSL_EMAIL )

LOCAL lRet := .F.
LOCAL oCfg, oError, oMsg
LOCAL lAut := .T.

TRY
oCfg := CREATEOBJECT( "CDO.Configuration" )

WITH OBJECT oCfg:Fields

:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := cServerIp ...

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