PC Toledo

Algo assim?


#include "fivewin.ch"

FUNCTION Main()

LOCAL oHTTP := HTTPRequest():New()
LOCAL cURL := "http://your-server.com/upload" // Replace with your target URL
LOCAL cBoundary := "----WebKitFormBoundary7MA4YWxkTrZu0gW" // A unique boundary string

// Set the Content-Type header for ...

Olá!
Windows 11: update corrige bugs, mas cria outros no Explorador de Arquivos
Um update opcional do Windows 11 corrige um bug que fazia o Explorador de Arquivos congelar, mas cria bugs visuais no tema escuro.
https://www.tecmundo.com.br/software/409009-windows-11-update-corrige-bugs-mas-cria ...

Olá!
O mundo do Alexander Kresin caminhando normalmente devagar e sempre.
Ele e o pessoal do Harbour, correções ajustes aqui e ali e o xBase (Open Source) segue em frente!
Pelo menos mais 10 Anos ai já abertos!


2025-12-01 11:20 UTC+0300 Alexander Kresin <alex@belacy.ru>
* source/gtk/hcontrol.c ...

Olá!

https://www.phoronix.com/assets/categories/linuxkernel.webp
https://www.phoronix.com/news/LInux-6.18-Features-Reminder
Atenção para esse Sheaves e DM-PCACHE.

2. Sheaves
O que é ? "Sheaves" (ou "feixes", em tradução literal) é uma nova camada de cache opcional (opt-in) por CPU, integrada ...

Olá!
Mais em 30/11/2025
Tô aqui programando no Linux em Hwgui(GTK) e acompanhado a evolução da HwguiQT. Tomara que fique USÁVEL!!
No KDE(QT) Vc tecla CTRL e o sinal de "+" Aumenta e diminui as letras igual aos browses(navegadores de internet)
Será uma mudança de paradigma ENORME!!! (bem, se ficar ...

Olá!
Aqui, essa parte e as demais mesmo eu colocando o valor o ACBrMonitor muda para 0(zero)

[gIBSCBS001]
vBC=100.00
vIBS=0.10
No XML
Fica assim lá no XML, já homolado aqui na BA.


<IBSCBS>
<CST>000</CST>
<cClassTrib>000001</cClassTrib>
<gIBSCBS>
<vBC>0.00</vBC>
<gIBSUF>
<pIBSUF>0.1000</pIBSUF ...

DO WHILE ! Eof()
SKIP
ENDDO


Isso, por si só, já está lendo registros.
E o registro contém.... campos incluindo memo

Sei lá se o letodbf vai fazer diferente.
Se testa Empty() ou não.... o registro já vai ter vindo.
SQL também seria assim, a não ser que peça length() ou algo assim, e só depois ...

Mais uma complementar: rota pra passar em várias UFs.
É selecionado o caminho com menos UFs, pode não ser o mais curto, e pode não ser o caminho mais usado.


PROCEDURE Main

SetMode(33,100)
CLS
AltD()
? "SP-RN-RS-RJ"
? hb_ValToExp( TrajetoVariasUFs( "SP", "RN", "RS", "RJ" ) )
//? "SP-SE ...

Como funciona:

Começa SP, SP
Vizinhos:

{ "SP", { "RJ", "MG", "MS", "PR" } }, ;


Isso cria uma lista de 4 itens
Item RJ, e lista SP,RJ
Item MG, e lista SP,MG
Item MS, e lista SP,MS
Item PR, e lista SP,PR

Como encontra nessa nova lista RJ, pega o array SP,RJ

Se esse primeiro nome for o destino ...

A IA me deu uma rotina que achei interessante, mas não funcionava.
Acabei refazendo, porque achei a idéia interessante.
Tem a lista de cada UF, e a lista das UFs vizinhas de cada uma.
A rotina vai testando a passagem pelas vizinhas, até encontrar uma lista que chegue ao destino.





PROCEDURE Main ...

Olá!
Mais hoje 20/11/2025
Tá trabalhando em cima do hcedit(editor)

itamar@itamar-pc:~/dev/hwguiqt$ git pull
remote: Counting objects: 32, done
remote: Finding sources: 100% (17/17)
remote: Getting sizes: 100% (17/17)
remote: Total 17 (delta 14), reused 17 (delta 14)
Unpacking objects: 100% (17/17 ...

- Declarar LOCAL GetList := {}, a partir da lista de erros

- Renomear fontes duplicados

- Transformar Achoice() e dbEdit() pra codeblock

- Alterar FUNCTION pra STATIC FUNCTION, se possível

- Alterar pra tratamento de rede

Etc. etc.

Ficar repetindo manualmente cansou, então fui criando pra fazer ...

Cuidado, depende muito de estruturas e outras coisas.

Declarar FIELDS pra campos de DBF:



#include "directry.ch"
#include "dbstruct.ch"

PROCEDURE Main

LOCAL aDBFList, aFile, aStru, aField, cPath := "", aFieldList := {}
LOCAL aItem, nPos, cTxt, cTxtLine

SetMode(33,132)
SetColor("W/B")
CLS ...

Sei lá....
Mexendo com aplicativo velho, e criando ferramentas pra tentar ajudar em alguma coisa.
A mais recente foi esta, como quebra galho, direcionado ao uso encontrado.


#include "directry.ch"
#include "inkey.ch"

PROCEDURE main

LOCAL aPRGList := {}, aItem, aItem2, aNewList := {}, nPos ...

Olá!
Arquivo completo data de atualização 14/11/2025

[infNFe]
versao=4.00
[Identificacao]
; Código da NFe (cNF) deve ser gerado código Aleatório de 8 dígitos (Não deve ser o Número da NFe)
cNF=
natOp=Venda de Mercadoria
indPag=0
mod=55
serie=10
nNF=000001401
dhEmi=14/09/2018 10:00:50
dhSaiEnt ...