... likely needs headers from Windows SDK)
basically a non issue, but HB_CPU and HB_PLATFORM are not guessed
from HB_ZIG_TARGET - conversion table seems to be doable, if
someone is interested in making a patch.
2025-10-16 22:04 UTC+0200 Aleksander Czajczynski (hb fki.pl)
* utils/hbmk2/hbmk2 ...
Pesquisa resultou em 873 ocorrências: +Table
Termo pesquisado: +table
- 20 Out 2025 11:18
- Fórum: [x]Harbour
- Tópico: Atualização do Harbour 20-10-2025 Compilador ZIG
- Respostas: 4
- Exibições: 213
- 18 Ago 2025 18:22
- Fórum: MiniGui
- Tópico: Só uma idéia que veio na cabeça pra OOP na HMG3
- Respostas: 12
- Exibições: 1593
Só uma idéia que veio na cabeça pra OOP na HMG3
O que me parece agora:
_HMG_SYSDATA é a variável pública com tudo.
Digamos assim, cada nova variável que a HMG precisa, é adicionada uma nova coluna a esse array.
De certa forma, é o que fazemos com classes, a diferença é que está tudo nesse array público.
O array é multidimensional.
Compare com ...
_HMG_SYSDATA é a variável pública com tudo.
Digamos assim, cada nova variável que a HMG precisa, é adicionada uma nova coluna a esse array.
De certa forma, é o que fazemos com classes, a diferença é que está tudo nesse array público.
O array é multidimensional.
Compare com ...
- 18 Jul 2025 22:47
- Fórum: Contribuições, Dicas e Tutoriais
- Tópico: Definindo a nova tributaçào no aplicativo
- Respostas: 13
- Exibições: 3323
Definindo a nova tributaçào no aplicativo
... IF ! IsMaquinaJPA()
RETURN Nil
ENDIF
WITH OBJECT cnSQL
IF ! :FieldExists( "TRCLAFIS", "JPTRANSACAO" )
:ExecuteNoReturn( "ALTER TABLE JPTRANSACAO ADD COLUMN TRCLAFIS VARCHAR(6) NOT NULL DEFAULT ''" )
ENDIF
IF ! :FieldExists( "TRICADCLAFIS", "JPTABTRICAD" )
:ExecuteNoReturn ...
RETURN Nil
ENDIF
WITH OBJECT cnSQL
IF ! :FieldExists( "TRCLAFIS", "JPTRANSACAO" )
:ExecuteNoReturn( "ALTER TABLE JPTRANSACAO ADD COLUMN TRCLAFIS VARCHAR(6) NOT NULL DEFAULT ''" )
ENDIF
IF ! :FieldExists( "TRICADCLAFIS", "JPTABTRICAD" )
:ExecuteNoReturn ...
- 18 Jul 2025 11:44
- Fórum: Contribuições, Dicas e Tutoriais
- Tópico: Tabela de CST/Classificação fiscal em PRG
- Respostas: 4
- Exibições: 1700
Tabela de CST/Classificação fiscal em PRG
... Tá meio chato importar pra uma tabela, porque os campos não tem um padrão correto, e talvez precisemos deles assim.
Próxima tentativa:
CREATE TABLE IF NOT EXISTS JPTABCFIS (
IDCFIS VARCHAR(6) NOT NULL DEFAULT '000000',
CFISNOME VARCHAR(255) NOT NULL DEFAULT '',
CFISOBS TEXT ,
CFISLEI TEXT NOT ...
Próxima tentativa:
CREATE TABLE IF NOT EXISTS JPTABCFIS (
IDCFIS VARCHAR(6) NOT NULL DEFAULT '000000',
CFISNOME VARCHAR(255) NOT NULL DEFAULT '',
CFISOBS TEXT ,
CFISLEI TEXT NOT ...
- 11 Jul 2025 19:08
- Fórum: Legislação Fiscal e Tributária
- Tópico: Passando a limpo a nova tributação
- Respostas: 31
- Exibições: 5891
Passando a limpo a nova tributação
Para empresas de desenvolvimento de software, a Reforma Tributária de 2025 traz impactos relevantes — e exige atenção estratégica. Vamos destrinchar o que muda e como isso afeta sua carga tributária:
Alíquotas aplicáveis
- CBS (federal): 8,8%
- IBS (estadual/municipal): 17,7%
- Total estimado ...
- 17 Jun 2025 22:42
- Fórum: Contribuições, Dicas e Tutoriais
- Tópico: SEFAZ: Monitor de status do serviço.
- Respostas: 0
- Exibições: 2178
SEFAZ: Monitor de status do serviço.
... aspx"
SysWait(5)
cPathRaiz := cPathDados
if lFazTeste
cXMLSedex := []
cXMLSedex := cXMLSedex + [<html>]
cXMLSedex := cXMLSedex + [<table class="tabelaListagemDados" cellspacing="0" rules="all" border="1" id="ctl00_ContentPlaceHolder1_gdvDisponibilidade2">]
cXMLSedex := cXMLSedex ...
SysWait(5)
cPathRaiz := cPathDados
if lFazTeste
cXMLSedex := []
cXMLSedex := cXMLSedex + [<html>]
cXMLSedex := cXMLSedex + [<table class="tabelaListagemDados" cellspacing="0" rules="all" border="1" id="ctl00_ContentPlaceHolder1_gdvDisponibilidade2">]
cXMLSedex := cXMLSedex ...
- 11 Jun 2025 11:05
- Fórum: MiniGui
- Tópico: Aquisição de arquivo JPG em arquivo .RC
- Respostas: 2
- Exibições: 890
Aquisição de arquivo JPG em arquivo .RC
... cFileName )
LOCAL cTxt
cFileName := Lower( cFileName )
DO CASE
CASE cFileName == "jpsenha.sql"; #pragma __binarystreaminclude "sql\table\jpsenha.sql" | RETURN %s
CASE cFileName == "jpbinary.sql"; #pragma __binarystreaminclude "sql\table\jpbinary.sql" | RETURN %s
CASE cFileName ...
LOCAL cTxt
cFileName := Lower( cFileName )
DO CASE
CASE cFileName == "jpsenha.sql"; #pragma __binarystreaminclude "sql\table\jpsenha.sql" | RETURN %s
CASE cFileName == "jpbinary.sql"; #pragma __binarystreaminclude "sql\table\jpbinary.sql" | RETURN %s
CASE cFileName ...
- 26 Mai 2025 13:03
- Fórum: MiniGui
- Tópico: Mais outro teste daqueles
- Respostas: 5
- Exibições: 1092
Mais outro teste daqueles
... include "demo.ch"
// don't initialize values here
STATIC nRowPos, nColPos
FUNCTION DemoA( lWithDialog, xDlg )
LOCAL aList := {}, nCont, nTable, xButton
hb_Default( @lWithDialog, .T. )
nColPos := -1
nRowPos := -1
FOR nCont = 1 TO 35
AAdd( aList, nCont + 50 )
NEXT
IF lWithDialog ...
// don't initialize values here
STATIC nRowPos, nColPos
FUNCTION DemoA( lWithDialog, xDlg )
LOCAL aList := {}, nCont, nTable, xButton
hb_Default( @lWithDialog, .T. )
nColPos := -1
nRowPos := -1
FOR nCont = 1 TO 35
AAdd( aList, nCont + 50 )
NEXT
IF lWithDialog ...
- 24 Abr 2025 13:26
- Fórum: Banco de Dados
- Tópico: preços
- Respostas: 3
- Exibições: 3345
preços
Tô aqui preparando pra mexer nas tabelas de preço.....
Idéia inicial
CREATE TABLE IF NOT EXISTS JPPRECOFLEX (
IDPRECOFLEX INT(11) NOT NULL AUTO_INCREMENT,
PFTIPO INT(11) NOT NULL DEFAULT '0',
PFNUMERO INT(11) NOT NULL DEFAULT '0',
PFPRODUTO INT(11) NOT NULL DEFAULT '0',
PFCADASTRO INT(11) NOT NULL ...
Idéia inicial
CREATE TABLE IF NOT EXISTS JPPRECOFLEX (
IDPRECOFLEX INT(11) NOT NULL AUTO_INCREMENT,
PFTIPO INT(11) NOT NULL DEFAULT '0',
PFNUMERO INT(11) NOT NULL DEFAULT '0',
PFPRODUTO INT(11) NOT NULL DEFAULT '0',
PFCADASTRO INT(11) NOT NULL ...
- 23 Mar 2025 13:20
- Fórum: [x]Harbour
- Tópico: Algumas considerações usando mod_harbour
- Respostas: 6
- Exibições: 2706
Algumas considerações usando mod_harbour
... cLogin, cTab
Function HRBMAIN
PARAMETERS cPar1, cPar2 (opcional)
LOCAL cHtml
Private cTab := ""
IF AbreDb(...)
(cAlias)->(dbgotop())
cTab := "<table><tr><th>Código..."
DO while (cAlias)->(!eof())
cTab += ...(Aqui o código misturado html com prg)
//Por exemplo:
cTab := "<tr><td>" + (cAlias ...
Function HRBMAIN
PARAMETERS cPar1, cPar2 (opcional)
LOCAL cHtml
Private cTab := ""
IF AbreDb(...)
(cAlias)->(dbgotop())
cTab := "<table><tr><th>Código..."
DO while (cAlias)->(!eof())
cTab += ...(Aqui o código misturado html com prg)
//Por exemplo:
cTab := "<tr><td>" + (cAlias ...
- 08 Mar 2025 03:26
- Fórum: SQL
- Tópico: Carga do DBF para MySql/Postgres e LetoDbf juntos!
- Respostas: 12
- Exibições: 16410
Carga do DBF para MySql/Postgres e LetoDbf juntos!
Uso pra fazer backup, não sei como vai fazer isso no SQLMIX:
SHOW CREATE TABLE nometabela
O nome do campo é "create table"
Também tem:
SHOW CREATE FUNCTION xxxx
SHOW CREATE PROCDURE xxxx
O nome do campo é "create function" ou "create procedure"
Eles retornam o comando equivalente pra ...
SHOW CREATE TABLE nometabela
O nome do campo é "create table"
Também tem:
SHOW CREATE FUNCTION xxxx
SHOW CREATE PROCDURE xxxx
O nome do campo é "create function" ou "create procedure"
Eles retornam o comando equivalente pra ...
- 07 Mar 2025 10:01
- Fórum: SQL
- Tópico: Carga do DBF para MySql/Postgres e LetoDbf juntos!
- Respostas: 12
- Exibições: 16410
Carga do DBF para MySql/Postgres e LetoDbf juntos!
... K_ESC .OR. cConfirma != "SIM"
LOOP
ENDIF
CopyDbfToSQL( cFileDbf, .F., .T., .F., cFileDbf )
ENDDO
RETURN Nil
FUNCTION CopyDbfToSQL( cTable, lTransfere, lCria, lZera, cNewTable )
LOCAL oStru
LOCAL cSQL, xValue, nCont, cSQLFix
LOCAL lBegin := .T., cTxt, cKeyName
LOCAL cnGERAL ...
LOOP
ENDIF
CopyDbfToSQL( cFileDbf, .F., .T., .F., cFileDbf )
ENDDO
RETURN Nil
FUNCTION CopyDbfToSQL( cTable, lTransfere, lCria, lZera, cNewTable )
LOCAL oStru
LOCAL cSQL, xValue, nCont, cSQLFix
LOCAL lBegin := .T., cTxt, cKeyName
LOCAL cnGERAL ...
- 13 Fev 2025 18:04
- Fórum: [x]Harbour
- Tópico: SQL no DBF em breve (promessa) Aleksander Czajczynski
- Respostas: 33
- Exibições: 22188
SQL no DBF em breve (promessa) Aleksander Czajczynski
cmdConfirma.Enabled = False
Dim Rs As ADODB.Recordset
Dim cSQL As String
Dim nCont As Long
If Dir("lixo.dbf") <> "" Then SqlExecute "drop table lixo"
cSQL = "select " & _
"cnDatEmi DtEmissao, " & _
"count(*) CtrcQtd, " & _
"Sum(cnPeso) CtrcPeso, " & vbCrLf & _
"Sum(cnValor) CtrcValor ...
- 28 Jan 2025 12:03
- Fórum: Banco de Dados
- Tópico: Instalação MariaDB falhando em Windows 11
- Respostas: 12
- Exibições: 5068
Instalação MariaDB falhando em Windows 11
... utf8mb4_general_ci (ou utf8mb4_unicode_ci para uma ordenação mais precisa de acordo com as regras Unicode).
Exemplo de uso:
sql
Copy
CREATE TABLE minha_tabela (
id INT PRIMARY KEY,
nome VARCHAR(255) CHARACTER SET utf8mb4 COLLATE utf8mb4_general_ci
);
Isso garantirá que sua tabela suporte ...
Exemplo de uso:
sql
Copy
CREATE TABLE minha_tabela (
id INT PRIMARY KEY,
nome VARCHAR(255) CHARACTER SET utf8mb4 COLLATE utf8mb4_general_ci
);
Isso garantirá que sua tabela suporte ...
- 27 Jan 2025 10:56
- Fórum: Banco de Dados
- Tópico: Instalação MariaDB falhando em Windows 11
- Respostas: 12
- Exibições: 5068
Instalação MariaDB falhando em Windows 11
... a maquina que tem a versão 11.3 e deu pau, os campos que contem caracteres especiais não foi reconhecido nesta versão,
no backup esta assim:
DROP TABLE IF EXISTS `empresa`;
/*!40101 SET @saved_cs_client = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `empresa ...
no backup esta assim:
DROP TABLE IF EXISTS `empresa`;
/*!40101 SET @saved_cs_client = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `empresa ...