PC Toledo

... define NORMAL_FONT 8

PROCEDURE PJPPEDIDOFATURA( nIdPedido ) // do Pedido

LOCAL oPDF, nCont, cExtenso, acTxt
LOCAL cnSQL := ADOLocal()

WITH OBJECT cnSQL
:cSQL := "SELECT JPPEDIDO.*, JPCADASTRO.*, JPEMPRESA.*" + ;
" FROM JPPEDIDO" + ;
" LEFT JOIN JPCADASTRO ON JPCADASTRO.IDCADASTRO ...

Olá!
o melhor é parar e reescrever o programa em object pascal.
Pois, se vc usa Object Pascal vai precisar usar X11, vc mesmo se entrega nas coisas que escreve.
Pq é gráfico. E o Harbour no Linux, compatível com Lazarus(Object Pascal), só usando Hwgui ou FiveWin for Linux.
Não vai ter TERMINAL, se é ...

fico muito agradecido pela ajuda, mas não estou conseguindo ter progresso; o melhor é parar e reescrever o programa em object pascal.
uso muito pouco o windows, no mes não chega a uma hora. uso linux.
esse aplicativo (quase trinta mil linhas escritas) roda em tela pequena do terminal. no wine roda em ...

... AL_LEFT, AL_RIGHT, AL_RIGHT} SIZE ( Cuadro3[1][4] - Cuadro3[1][2] - 22 ),(Cuadro3[1][3] - Cuadro1[1][1] - ( (Cuadro3[1][3] * .17 ) ) )

WITH OBJECT ListVen
:bClrGrad := { | lInvert | If( ! lInvert, { { 0.20 , 4144959, 16777215 } , { 0.20 , 16777215 , 4144959 } }, { { 0.50 , 128 , 16777215 ...

... 08:35.2354943-03:00",

"erros":[{"Codigo":"RNG6110","Descricao":"Falha Schema Xml","Complemento":"Xml mal formado. System.NullReferenceException: Object reference not set to an instance of an object.\r\n at Serpro.Sped.NFSe.Schemas.Controle.ControleValidarSchema.Validar(String xml ...

... 43:20.5713716-03:00",

"erros":[{"Codigo":"RNG6110","Descricao":"Falha Schema Xml","Complemento":"Xml mal formado. System.NullReferenceException: Object reference not set to an instance of an object.\r\n at Serpro.Sped.NFSe.Schemas.Controle.ControleValidarSchema.Validar(String xml ...

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