PC Toledo

Enviado: **08 Jul 2026 15:41**

Atualmente uso em MySQL, abaixo parcial:

...
SET cThisXml := CONCAT( cThisXml,
   '<total>',
   '<ICMSTot>',
   ze_XmlTag( 'vBC',          nIcmBas ),
   ze_XmlTag( 'vICMS',        nIcmVal ),
   ze_XmlTag( 'vICMSDeson',   '0.00' ),
   ze_XmlTag( 'vFCPUFDest',   nDifValf ),
   ze_XmlTag( 'vICMSUFDest',  nDifVali ),
   ze_XmlTag( 'vICMSUFRemet', '0.00' ),
   ze_XmlTag( 'vFCP', '0.00' ),
   ze_XmlTag( 'vBCST',        nSubBas ),
   ze_XmlTag( 'vST',          nSubVal ),
   ze_XmlTag( 'vFCPST', '0.00' ),
   ze_XmlTag( 'vFCPSTRet', '0.00' ),
   IF(  nMonoBas = 0, '',
      CONCAT( ze_XmlTag( 'qBCMonoRet', nMonoBas ),
              ze_XmlTag( 'vICMSMonoRet', ROUND( nMonoBas * nMonoAliq, 2 ) ) ) ),
   ze_XmlTag( 'vProd',        IF( nComplementar = 1, '0.00', nValPro ) ),
   ze_XmlTag( 'vFrete',       nValFre ),
   ze_XmlTag( 'vSeg',         nValSeg ),
   ze_XmlTag( 'vDesc',        nValDes ),
   ze_XmlTag( 'vII',          nIIVal ),
   ze_XmlTag( 'vIPI',         nIpiVal ),
   ze_XmlTag( 'vIPIDevol', '0.00' ),
   ze_XmlTag( 'vPIS',         nPisVal ),
   ze_XmlTag( 'vCOFINS',      nCofVal ),
   ze_XmlTag( 'vOutro',       nValOut ),
   ze_XmlTag( 'vNF',          IF( nComplementar = 1, '0.00', nValNot ) ),
   IF( nImpVal = 0, '', ze_XmlTag( 'vTotTrib',  nImpVal ) ),
   '</ICMSTot>' );
...

No programa, basta chamar a stored procedure, e ela retorna o XML.
Pode ser harbour, hwgui, fivewin, minigui, python, php, asp, etc, até mesmo linux, android ou outro.

Jairo Maia escreveu: 27 Jan 2026 22:17 Sei lá... Sou ignorante, mas acho que tem gente que precisa mesmo é voltar a primeira série e aprender a escrever....

Jairo Maia escreveu: 07 Jul 2026 10:36 Ok. Se no futuro, houver a impressão do DANFE da NFC-e, fica completo mesmo, e sem dúvidas, serei um que com serteza irá usar.

Ah, não fui eu quem escreveeu isso ai não. tenho certeza...

Alguém poderia me dizer onde estou errando. Tento compilar FGerarXml.prg junto com nfe_classe e esta dando esses erros abaixo.
O que falta colocar pra compilar.
Já coloquei as libs que pede: linkar com essas libs => C:\Borland\bcc58\Lib\PSDK\crypt32.lib;
* C:\Borland\bcc58\Lib\PSDK\advapi32.lib;
* C:\Borland\bcc58\Lib\PSDK\cryptui.lib;

Esse são os erros:
Warning W8057 D:\\PROJETOS\\SBADY\\classes\\nfe_classe.prg 2951: Parameter 'outSize' is never used in function nfse_append_field
Warning W8004 D:\\PROJETOS\\SBADY\\classes\\nfe_classe.prg 2956: 'pCert' is assigned a value that is never used in function HB_FUN_SELECIONARCERTIFICADONATIVE
Warning W8004 D:\\PROJETOS\\SBADY\\classes\\nfe_classe.prg 2955: 'hStore' is assigned a value that is never used in function HB_FUN_SELECIONARCERTIFICADONATIVE
Warning W8004 D:\\PROJETOS\\SBADY\\classes\\nfe_classe.prg 3044: 'pCert' is assigned a value that is never used in function HB_FUN_LERCERTIFICADOPFXNATIVE
Warning W8004 D:\\PROJETOS\\SBADY\\classes\\nfe_classe.prg 3043: 'hPfxStore' is assigned a value that is never used in function HB_FUN_LERCERTIFICADOPFXNATIVE
Warning W8004 D:\\PROJETOS\\SBADY\\classes\\nfe_classe.prg 3040: 'fileData' is assigned a value that is never used in function HB_FUN_LERCERTIFICADOPFXNATIVE
Warning W8004 D:\\PROJETOS\\SBADY\\classes\\nfe_classe.prg 3038: 'fileSize' is assigned a value that is never used in function HB_FUN_LERCERTIFICADOPFXNATIVE
Warning W8004 D:\\PROJETOS\\SBADY\\classes\\nfe_classe.prg 3037: 'hFile' is assigned a value that is never used in function HB_FUN_LERCERTIFICADOPFXNATIVE
Warning W8004 D:\\PROJETOS\\SBADY\\classes\\nfe_classe.prg 3169: 'base64' is assigned a value that is never used in function HB_FUN_ASSINARRPSSPNATIVE
Warning W8004 D:\\PROJETOS\\SBADY\\classes\\nfe_classe.prg 3167: 'sig' is assigned a value that is never used in function HB_FUN_ASSINARRPSSPNATIVE
Warning W8004 D:\\PROJETOS\\SBADY\\classes\\nfe_classe.prg 3160: 'hStore' is assigned a value that is never used in function HB_FUN_ASSINARRPSSPNATIVE
*** 1 errors in Compile ***

esses não são erros, são somente avisos que não influenciam na geração do executável, mas tem um erro que não está postado e provavelmente não está gerando o exe, poste o erro pfv

Não esta achando esta função.

WaitWindow([Gerando Nfe ] + oXml:cVersao + [. Aguarde término do processo...], .T.)

tirei esta função, ai compilou.
Uso, o fivewin. Esta função serve pra que?

qdo incia a execução de um trecho deixa uma msg na tela e no final apaga ela, como se fosse um label ok.

Se precisar de qq ajuda estou a disposição

Marcelo A. L. Carli
Malc Informática — Gestão em Saúde Ocupacional

Marília/SP — Capital Nacional do Alimento ®

https://malc-informatica.ueniweb.com

marceloalcarli@gmail.com

Instagram: @malcarli25
14-997943158

Obrigado pela atenção.

Esta classe esta escrita em C ?

Não está em harbour nativo

PC Toledo

Classe para gerar xml nfe/nfce

Re: Classe para gerar xml nfe/nfce

Re: Classe para gerar xml nfe/nfce

Re: Classe para gerar xml nfe/nfce

Re: Classe para gerar xml nfe/nfce

Re: Classe para gerar xml nfe/nfce

Re: Classe para gerar xml nfe/nfce

Re: Classe para gerar xml nfe/nfce

Re: Classe para gerar xml nfe/nfce

Re: Classe para gerar xml nfe/nfce

Re: Classe para gerar xml nfe/nfce

Re: Classe para gerar xml nfe/nfce