PC Toledo

... 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 = JPPEDIDO.PDCADASTRO ...

... completa, alguns ajustes ainda são necessários, mas já estamos traduzindo código complexo de verdade, não apenas código base:
Exemplo de código:

SELECT 10
SET FILTER TO !DELETED()

LIStvenWidth := ( Cuadro3[1][4] * 2 ) - 80
@ ( Cuadro3[1][1] + 9 ) , ( Cuadro3[1][2] + 11 ) xBrowse listven fields ...

... LETO" )
ENDIF

// 2) abre PSW (sempre via LETO)
IF ! Used( "PSW" )
USE ( cPathLeto + "psw" ) VIA "LETO" SHARED NEW ALIAS "PSW"
ELSE
DbSelectArea( "PSW" )
ENDIF

// 3) garante CDX/TAGs (se não existir, cria)
IF ! leto_file( cPathLeto + "psw" + indexext() )

INDEX ON USUARIO TAG pswcx ...

... OK
? "Connection error:"
? PQerrorMessage( conn )
RETURN
ENDIF

/* 2. Verifica se o database existe */
res := PQexecParams( conn, ;
"SELECT 1 FROM pg_database WHERE datname = $1", ;
{ cDB } )

IF PQresultStatus( res ) != PGRES_TUPLES_OK
? "Erro ao verificar database ...

... botão novo.
Talvez o ENDIF antes de somar colunas.


FUNCTION Carrega_Botoes_Artigos( aNomeButton )

LOCAL xNomeBotao, ColunaBotao, LinhaBotao

SELECT('GRUPOS')
OrdSetFocus('Familias')
IF ! GRUPOS->( DBSEEK( aNomeButton ) )
RETURN Nil
ENDIF
SELECT("ARTIGOS")
OrdSetFocus('ArtGrupo')
IF ...

FUNCTION Carrega_Botoes_Artigos( aNomeButton )
LOCAL xNomeBotao, ColunaBotao, LinhaBotao

SELECT('GRUPOS')
OrdSetFocus('Familias')
IF GRUPOS->(DBSEEK( aNomeButton ))
SELECT("ARTIGOS")
OrdSetFocus('ArtGrupo')
IF ARTIGOS->(DBSEEK( aNomeButton ) )
LinhaBotao :=0
ColunaBotao :=0
SELECT('P_MESAS ...

... salta fora do ciclo, e ainda não descobri o porquê. Segue a rotina de anulação abaixo:
FUNCTION AnulaBotoesArtigos( oldNomeBT )
LOCAL oButton

SELECT('GRUPOS')
OrdSetFocus('Familias')
IF GRUPOS->(DBSEEK(oldNomeBT))
SELECT("ARTIGOS")
OrdSetFocus("ArtGrupo")
IF ARTIGOS->(DBSEEK(oldNomeBT))
DO ...

... retorno e só obtenho .F.. Com o control criado ou não.
FUNCTION Carrega_Botoes_Artigos( aNomeButton )
LOCAL xNomeBotao, ColunaBotao, LinhaBotao

SELECT('GRUPOS')
OrdSetFocus('Familias')
IF GRUPOS->(DBSEEK( aNomeButton ))
SELECT("ARTIGOS")
OrdSetFocus('ArtGrupo')
IF ARTIGOS->(DBSEEK( aNomeButton ...

... o botão e da erro de parametros.
Vejam a rotina: FUNCTION Carrega_Botoes_Artigos( aNomeButton )
LOCAL LinhaBotao, ColunaBotao
PRIVATE xNomeBotao

SELECT('GRUPOS')
IF GRUPOS->(DBSEEK( aNomeButton ))
SELECT("ARTIGOS")
OrdSetFocus('ArtGrupo')
IF ARTIGOS->(DBSEEK( aNomeButton ))
LinhaBotao :=0 ...

... 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 com a IA.

No caso do MySQL, ou SQL, poderia pedir o SELECT se Empty(), apesar de também tomar tempo do servidor.
Por coincidência, olhei hoje:

modelos.png

Se eu fizer um SELECT * de 600.000 XMLs... vai ser uma eternidade.
Tenho um arquivo separado apenas pra consulta, e só pego XMLs quando necessário.
Os ...

... não existe UPLOAD do DBF todo. A medida que é manipulado/navegado, é mostrado no browse.

Mesma coisa até pior é no MYSQL a pessoa fazer um SELECT de 100 registros cheio de imagens/PDFs... Vai ficar lento da mesma forma.
O que todo mundo faz é subir só o link e deixa o arquivo lá na pasta dele.

... ele veio como download.
Falta o teste do nome no novo fórum, pra ver se vai bater.
Se der certo, dá pra fazer pelo harbour.

Mais ou menos isto:

SELECT id, physical_name from phpbb_attachments
do while ! eof()
downloadfile( "forumantigo/phpdownload.php?" + Ltrim( Str( id )), "nome fisico ...

... Application" )
oExcel:WorkBooks:Open( cCaminho+"\"+cNomeArquivo )
oExcel:Visible := .F.
oSheet := oExcel:Get( "ActiveSheet" )
oSheet:Cells( 1, 1 ):Select()

nLin:=2 // Pula o cabeçalho
do while !EMPTY(oSheet:Cells( nLin, 1 ):Value)
// Caso a célula 1 estiver vazia, irá sair automaticamente do ...

... win_OleCreateObject( "CAPICOM.SignedData" )

// Seleciona o certificado (pode abrir a janela de seleção)
oSigner:Certificate := oSigner:Select()

// Define o conteúdo a ser assinado
oSignedData:Content := cTexto

// Assina o conteúdo
cAssinatura := oSignedData:Sign( oSigner, .F., 0 ...