PC Toledo

Comecei a alterar a HMG3 pra objetos.
Acho que o problema maior vai ser definir os nomes únicos pra tudo.

Esta lista, que na verdade tem até mais coisas


* _HMG_SYSDATA [ 1 ] -> Control Data
* _HMG_SYSDATA [ 2 ] -> Control Data
* _HMG_SYSDATA [ 3 ] -> Control Data
* _HMG_SYSDATA [ 4 ...

Peguei um texto do fórum minigui pra gerar fonte.


Here's the application functionality I need:
Create a simple data entry form for storing and displaying employee information. The form should include the following fields:
- Employee ID: (Numeric, read-only, automatically generated)
- First Name ...

Olá!
Tem que usar essa versão. hbxlsxwriter 1.1.5
Não sei onde baixar.

// Begin code.

/*
Test.prg
https://groups.google.com/g/harbour-users/c/zosdM49E5Cs
Using : Windows 10 Family 22H2
Harbour 3.2.0dev (r2104281802)
hbxlsxwriter 1.1.5
Compile with -lhbwin
This code is a basic sample for ...

... query, abaixo segue um exemplo que talvez te ajude a resolver o problema.


WITH CTE AS
(
SELECT ID,
Email,
ProductName,
ProductModel,
ROW_NUMBER() OVER (PARTITION BY Email ORDER BY ID DESC) AS RowNumber
FROM Products
)
SELECT ID,
Email,
ProductName,
ProductModel
FROM CTE
WHERE ...

Vi aqui: https://github.com/harbour/core/pull/185/files , que cSepColor deve ser uma string (Caracter) e o valor que a mensagem retorna diz que foi passado um inteiro de valor "0".
Mas depende muito da ver do Harbour/xHarbour.
//Fonte extraído de: https://github.com/harbour/core/pull/185/files
VAR ...

Bom dia Clodoaldo,
no seu exemplo faltou essa função: xmlWriteRow
Tem como postar ela aqui?

Está na segunda postagem das funções, mas segue ela aqui:
/////////////////////////////////////////////////////////////////////////////
//Para Cell com Formula, usa-se ss:Formula.
// - Ex.: col D [= A ...

Bom dia.

Fiz umas atualizações nos fontes, incluindo uma rotina para verificar os CRLF e transformar em espaço em branco, e outras correções de caracteres.
Inclui também verificações e mensagens na hora de Criar, Salvar e Copiar arquivo XML.
Acho que na primeira já tinha Cabeçalho e Rodapé.

Uma ...

Olá.

Depois de um tempo procurando exportar meus relatórios para Excel, tentando com DLLs, "CreateObject( "ADODB.Connection" )" ou "CreateObject( "Excel.Application" )", achei uma forma fácil, rápida e sem a dependência de soluções de terceiros, que foi escrever um XML com o padrão que o Excel ...

/*
PCONTSALDO - CONSULTA AOS VALORES DO PLANO DE CONTAS
1991.04 - José Quintas
*/

#include "inkey.ch"
#include "josequintas.ch"

PROCEDURE pContSaldo

LOCAL nIdCtConta := 0, nCont, nAnoAtual, GetList := {}, cnSQL := ADOLocal(), dInicial, dFinal
LOCAL nFechaMes, nFechamento, dFechamento ...

Olá!
O link do exemplo em xbase esta quebrado. Alguém teria o código para compartilhar?
Na pasta contrib do Harbour. => \contrib\hbsqlit3\tests

#require "hbsqlit3"

#define TRACE
#define TABLE_SQL "CREATE TABLE t1( id INTEGER PRIMARY KEY AUTOINCREMENT, name TEXT, age INTEGER )"

PROCEDURE Main ...

Bom dia!

Teria algum exemplo carlaoonline para postar aqui ?

Não tenho nada didático pronto, mas vou postar aqui uma planilha feita e a função que chamei para faze-la.

Essa planilha foi chamada dessa forma.

EXPORTA_TO_NEW_EXCEL("CT_FERIAS")

Dê uma olhada na função apenas para ter uma ideia de ...

Olá!

Postando o código novamente pois havia alguns erros:
#include "ado.ch"

PROCEDURE DbfImport()

LOCAL bWhile, nCount, cString, cSQL, nQtd, nTotal

bWhile := { || <condição while> }

cString := "INSERT INTO QTRACS (CARRO, MCT, LATITUDE, LONGITUDE, DATA, HORA, VELOC, LOCAL) VALUES "
nCount ...

Olá!

Realmente está com valor errado. Executando o teste da forma como está, não houve mudança.
Ao ver a descrição desta característica...
^ RowVers 8 Row version number; modification count of this record
... imaginei que ao ser incluída uma linha na tabela, o valor da coluna seria inicializado ...

Olá!
Não.
A única indicação é a data da última atualização do próprio DBF, como já indicaram, mas isso seria quase o mesmo de usar a data do arquivo.
Ué... então em algum lugar fica indicado que o DBF sofreu alteração...

Pelo que o autor dá a entender, ele quer saber se o DBF foi alterado. Com ...

Mais tipos


Harbour extended Field Types

D Date 3, 4 or 8 Date
M Memo 4 or 8 Memo
+ AutoInc 4 Auto increment
= ModTime 8 Last modified date & time of this record
^ RowVers 8 Row version number; modification count of this record
@ DayTime 8 Date & Time
I Integer 1, 2, 3, 4 or 8 Signed ...