PC Toledo

... first stage done by GNU Make

* consider Alpha a 64-bit CPU too when it's a cross-build target
(untested)

* utils/hbmk2/hbmk2.prg
* updated stored list of Visual Studio (2013-2022) versions to C comp
revisions, which could be used in .hbp files HB_COMP_VER macro

; https://learn.microsoft ...

... não lembro se estão 100% atualizadas:

Em harbour:
https://github.com/JoseQuintas/sefazclass/blob/master/drafts/ze_inscestadual.prg

Em MySQL, stored function:
https://github.com/JoseQuintas/MySQL-functions/tree/main/source

Só uso em MySQL, vou atualizando aqui na máquina conforme aparece ...

... e outras coisas mais na pasta de rascunhos (DRAFTS)
Tem DANFE, DACTE, DAMDFE, DAEVENTO

https://github.com/JoseQuintas/MySQL-functions

STORED PROCEDURE/FUNCTION pra MySQL
Tem função de extenso, validar CPF, CNPJ, Inscrição Estadual
Pra rodar direto no servidor MySQL


Na sefazclass tem ...

Não pensei que ia ser tão rápido.

Alteraçào da rotina.

Esse percentual de biodiesel OBRIGATORIAMENTE precisa sair no DANFE.
Em produtos e em informações adicionais. aff

... com álcool, talvez tenha outra coisa pra informar.
Deixando fácil agora, pra ficar mais fácil depois.

Lembrando:
O fonte fica na base de dados, é STORED PROCEDURE, nem passa pelo harbour, e é executado pelo servidor.
MySQL não tem debug, e em caso de erro em run-time pode ficar complicado ...

Sim.
É que a rotina cria um intervalo maior que o mês, pra mostrar as possíveis semanas.
Em STORED PROCEDURE seria mais flexível, ou talvez em MariaDB ou MySQL mais moderno.
Vou ver o que dá pra fazer, talvez um limite.

... etc.
Já mostrando como gerar XML direto, cada um consegue se virar, não depende de ninguém, nem de atualização, nem nada.

No MySQL é bom criar stored procedure/function pequenas, por bloco, assim melhor pra debug, que não existe no MySQL.

Note que é a ordem exata do XML, é só olhar o XML e ...

Comecei a usar variável por referência.
Mas só funciona com STORED PROCEDURE.
Alterei toda parte de geração de XML de NFE.

Rotina de totais:

CREATE PROCEDURE ze_XmlNfeTotais( nIdNotFis INT(11), INOUT cEndXml TEXT )

BEGIN

DECLARE cThisXml TEXT CHARSET latin1;
DECLARE nIcmBas, nIcmVal, nSubBas ...

... 42, 1600 }, ;
{ "John", 31, 15000 } }

@ 10, 30 BROWSE oBrowse ;
ARRAY ;
SIZE 450, 250 ;
STYLE WS_BORDER + WS_VSCROLL + WS_HSCROLL

// array stored on browse aArray, and codeblocks using it
oBrowse:aArray := aBrowseList
oBrowse:AddColumn( HColumn():New( "Name", { | v, o | (v), o:aArray[ o ...

Dei uma olhada agora e é interessante.

show1.png

show2.png

O primeiro é MySQL, o segundo é MariaDB.

No MariaDB inclui COLLATE na stored function.

Significa que o backup de um pro outro poderia trazer problemas.

Pois é... quando não definido entra o default.
E o default nem sempre é o mesmo ...

Depende de como fez/restaurou.

Desde quando migrei de MySQL 5.6 para 5.7 e tive problemas com codepage, defino a codepage EM CADA TABELA, EM CADA STORED PROCEDURE, EM CADA STORED FUNCTION, assim não importa qual é o default do servidor.

O que eu sei é que na hora de restaurar, o HeidiSQL permite ...

... até mais caro.

É grátis.
É só falar pro provedor, caso não esteja ativado, pra ativar.
Me parece que tem até pra servidor Linux.

Que tal minha stored procedure em MySQL que retorna o extenso de um número ?
Via ASP.

http://www.jpatecnologia.com.br/extenso.asp?valor=454454.54

ASP é limitado ...

... Executes a SQL query and returns a recordset
ExecuteNoReturn | Executes a SQL query without returning a recordset
ExecuteProcedure | Executes a stored procedure
ExecuteProcedureNoReturn | Executes a stored procedure without returning a recordset
ExecuteReturnRS | Executes a SQL query and returns a ...

... drivers installed on a Windows system using Harbour, you can use the Windows Registry to retrieve the information. The relevant information is stored in the Windows Registry under the registry key HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers.

Here's an example Harbour code snippet ...

Em stored procedure/function mais fácil ainda.

CREATE FUNCTION ze_xmlnfeprodutoipi( nIdItPed INT(11) )
RETURNS TEXT CHARSET latin1

BEGIN

DECLARE cIpiCst, cIpiEnq VARCHAR(10) DEFAULT '';
DECLARE nIpiBas, nIpiAli, nIpiVal DECIMAL(16,2) DEFAULT 0;
DECLARE cXml TEXT;

SELECT
COALESCE( IPIPICST ...