PC Toledo

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

... ENDSEQUENCE => END
#xcommand ENDSWITCH => END
#xcommand END SWITCH => END
#xcommand ENDWITH => END
#xcommand END WITH => END
#xcommand END OBJECT => END

#ifndef HB_SYMBOL_UNUSED
#define HB_SYMBOL_UNUSED( symbol ) ( symbol := ( symbol ) )
#endif

#define HB_GTI_CLIPBOARDPASTE HB_GTI ...

... cases. HVM does not guaranties that the QUIT signal will be always
delivered.

xBase++ compatible functions and classes:
ThreadID() -> <nID>
ThreadObject() -> <oThread>
ThreadWait( <aThreads>, <nTimeOut> ) -> <xResult>
ThreadWaitAll( <aThreads>, <nTimeOut> ) -> <lAllJoind>

Thread() -> <oThread ...

... LOCAL nCont, lInsert := .T., cnSQL := ADOLocal()

IF cChaveAcesso != Nil
lInsert := ( ADORecCount( cDatabase, cChaveAcesso ) == 0 )
ENDIF
WITH OBJECT cnSQL
:QueryCreate()
FOR nCont = 1 TO FCount()
:QueryAdd( FieldName( nCont ), FieldGet( nCont ) )
NEXT
IF lInsert
:QueryExecuteInsert ...

... a pasta, acredito que não.


No CDO perguntei pra cortana, mostrou exemplo em ASP, não muito diferente de harbour


<%
'Create the e-mail server object
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject("CDO.Configuration")

'Set and update CDO ...