Páginas

quinta-feira, 7 de maio de 2009

NFe em Lazarus

Graças ao Projeto PCN - http://projetocooperar.org/nfe/ consegui compatibilizar o ACBrNFe com o Lazarus. Com excessão do DANFE que no ACBrNFe é feito em Rave, todas as outras funções estão funcionando com sucesso no Lazarus.

Estou criando um novo Danfe usando o LazReport e em breve o componente estará pronto para funcionar no Lazarus. Ainda não testei no Linux, mas acho que será uma das primeiras soluções para NFe que funcionará em Windows e Linux.

A idéia é fazer com que o componente ACBrNFe use por padrão, mesmo no Delphi, as units do Projeto PCN para gerar os XMLs.

O grande problema, será compatibilizar o componente atual com o PCN, pois algumas propriedades foram mudadas.

Exemplos

Com o PCN, a identificação da NFe fica da seguinte forma:

Ide.natOp := 'VENDA PRODUCAO DO ESTAB.';
Ide.nNF := StrToInt(vAux);
Ide.cNF := StrToInt(vAux);
Ide.modelo := 55;
Ide.serie := 1;
Ide.dEmi := Date;
Ide.dSaiEnt := Date;
Ide.tpAmb := taHomologacao;
Ide.tpNF := tnSaida;
Ide.indPag := ipVista;
Ide.verProc := '1.0.0.0';
Ide.cUF := 35;
Ide.cMunFG := 3554003;

Enquanto na versão atual é da seguinte maneira:
Identificacao.NaturezaOperacao := 'VENDA PRODUCAO DO ESTAB.';
Identificacao.Codigo := StrToInt(vAux);
Identificacao.Numero := StrToInt(vAux);
Identificacao.Serie := 1;
Identificacao.DataEmissao := Date;
Identificacao.DataSaida := Date;
Identificacao.Tipo := tSaida;
Identificacao.FormaPagamento := pgAVista;

Alguma sugestão para resolver este problema?