Classe para gerar xml nfe/nfce

[JoséQuintas]

Atualmente uso em MySQL, abaixo parcial:

Código: Selecionar todos

...
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.

[Softwhouse]

Sei lá... Sou ignorante, mas acho que tem gente que precisa mesmo é voltar a primeira série e aprender a escrever....

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.

[Jairo Maia]

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

[Devair]

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 ***

[malcarli]

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

[Devair]

Não esta achando esta função.

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

[Devair]

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

[malcarli]

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

[Devair]

Obrigado pela atenção.

[Devair]

Esta classe esta escrita em C ?

[malcarli]

Não está em harbour nativo