almp1

Olá Pessoal, Só para completar a alteração anterior segue observação do manual Conam para a TAG TipoNFS Valore aceitos: 'RPS' e 'RPC'. RPS - Indica que o documento enviado é um RPS que deverá ser convertido numa nota fiscal eletrônica. RPC indica que o documento enviado é um Recibo Provisório Cancelado. Este documento não é convertido em nota eletrônica. É apenas um indicador de que este número foi cancelado pelo contribuinte e não deve gerar nota. Toda sequência de RPS cancelada obrigatoriamente deve ser informada.. Para o tipo RPC só devem ser informados os seguintes campos definidos mais adiante:: <NumRps> <SerRps> <DtEmi> Os demais dados são ignorados mesmo se informados. Para fins de totalização do registro 90 só devem ser considerados os valores do tipo de documento RPS. Por isso foi necessário fazer uma pequena alteração no arquivo ACBrNFSeWebServices.pas if FProvedor = proCONAM then begin AliquotaIss := FNotasFiscais.Items[0].NFSe.Servico.Valores.Aliquota; if FNotasFiscais.Items[0].NFSe.Status = srNormal then begin TipoTributacao := '4'; QtdTributos := iTributos; ValorNota := TotalServicos; ValorIss := TotalIss; ValorIssRetido := TotalIssRetido; ValorTotalDeducoes := TotalDeducoes; ValorTotalTributos := TotalTributos; {Todo:// Acrescentados estas duas linhas abaixo por masl} ExigibilidadeISS:=FNotasFiscais.Items[0].NFSe.Servico.ExigibilidadeISS; DataOptanteSimples:=FNotasFiscais.Items[0].NFSe.DataOptanteSimplesNacional; end else ValorTotalServicos := 0; end; Segue arquivo aletrado abaixo. Abraços ACBrNFSeWebServices.pas

Olá Pessoal O provedor CONAM possibilita que façamos o cancelamento do RPS mesmo antes de emitir a NF. Acredito que isso seja possível em outros provedores também. Porém o método para o cancelamento do RPS é o mesmo para transmissão. A unica mudança é a tag TipoNFS que deve mudar de RPS para RPC. Para isso fiz a seguinte mudança no arquivo pnfsNFSeW_CONAM.pas if FNFSe.Status = srNormal then Gerador.wCampoNFSe(tcStr, '', 'TipoNFS', 01, 3, 1, 'RPS' , '') else Gerador.wCampoNFSe(tcStr, '', 'TipoNFS', 01, 3, 1, 'RPC' , ''); Estou mandando o pas anexo para averiguação. Abraços,

Olá Pessoal Podem adicionar a cidade de Ferraz de Vasconcelos no Cidades.ini, segue abaixo configuração [3517707] Nome=Ferraz UF=SP Provedor=CONAM NomeURL_H=sp.ferraz NomeURL_P=sp.ferraz Obrigado Abraços

Olá Daniel obrigado pela ajuda ! Fiz teste no seguinte ambiente Linux CentOS 7 64 bits FPC 3.0 Lazarus 1.6 Consegui assinar e transmitir a NFe normalmente No ambiente 32 bits tudo continua funcionando normalmente também Abraços,

Bom dia Italo, Funcionou perfeitamente, sem afetar o envio para outros provedores. Você vai disponibilizar no SVN !? Obrigado,

Olá Italo e amigos ! Consegui resolver o problema mas não sei como corrigir. Segue abaixo minhas considerações No método XmlSecFindSignatureNode da ACBrDFeOpenSSL.pas temos as seguintes linhas if (InfElement <> '') then begin { Procura InfElement em todos os nós, filhos de Raiz, usando XMLSec } infNode := XmlSecLookUpNode(rootNode, InfElement ); . . . A variável InfElement sempre possui o valor 'ns3:LoteRps', neste caso sempre retornando infNode como Nil e causando a exceção de que o nó não foi encontrado. Eu fiz a seguinte alteração para testes { Se tem InfElement, procura pelo mesmo. Isso permitirá acharmos o nó de assinatura, relacionado a ele (mesmo pai) } InfElement:='LoteRps'; if (InfElement <> '') then begin { Procura InfElement em todos os nós, filhos de Raiz, usando XMLSec } infNode := XmlSecLookUpNode(rootNode, InfElement ); . . . . Vejam que adicionei esta linha abaixo de forma grotesca apenas para efetuar os testes substituindo o valor de ns3:LoteRps para apenas LoteRps InfElement:='LoteRps'; Com isso o nó é encontrado, a assinatura e a transmissão da NFSe são feitas com sucesso. Acredito que isso seleciona o problema, porém não sei como fazer para corrigir dentro do pacote que prevê vários provedores de NFSes Alguém pode ajudar ? []s

Olá Italo, Atualizei para revisão 12483, na compilação dos pacotes deu um erro no ACBrDevice.pas Linha 1569 Printer.Write(AString); Eu comentei essa linha e pude recompilar todos os pacotes. Porém o erro "Falha ao localizar o nó Raiz" ainda continua. Só lembrando que estou estou usando FPC com OpenSSL []s

Bom dia Italo, Me desculpe. É isso mesmo que eu quis dizer, a NFS-e é transmitida com sucesso quando usamos Capicom. Só não localiza o nó raiz quando é OpenSSL. Se precisar de qualquer outra informação, estou a disposição []s

Olá Amigos Fiz mais alguns testes usando Windows 10 com Dephi XE2. Quando uso Capicom para efetuar a assinatura consigo transmitir a NF com sucesso mas quado uso OpenSSL o erro "Falha ao localizar o nó Raiz" Continua persistindo. Alguém tem alguma ideia do que possa ser ? Grato,

Olá Paulo, Obrigado pela dica, funcionou perfeitamente []s

Olá Juliomar Eu não uso o instalador, instalo o pacote manualmente, segue o erro abaixo ACBrDFeOpenSSL.pas(966,15) Error: Identifier not found "d2iX509bio" Abraços,

Bom dia amigos Fiz atualização do ACBr hoje pela manhã e quando compilo a função d2iX509bio não está presente no pacote {$IFDEF USE_libeay32} FCert := d2i_X509_bio(b, FCert); {$ELSE} FCert := d2iX509bio(b, FCert); {$ENDIF} Quando comento a linha a compilação é feita com sucesso Abraços,

Ok ! Faz um tempo que eu não uso mais ubuntu (na minha opinião a melhor distro desktop), mas precisei migrar para CentOS há mais de um ano, a partir dai todos os meus testes foram com ele. Já tive este mesmo problema, no caso do CentOS instalei os pacotes "devel" do próprio repositório usando yum. Os pacotes necessários foram xmlsec1-devel xmlsec1-gcrypt-devel xmlsec1-gnutls-devel xmlsec1-nss-devel xmlsec1-openssl-devel Acredito que seja possível instalar usando apt-get para já resolver as dependências Provavelmente com estes pacotes você ira resolver o problema acima. Mas a assinatura no Linux 64bits ainda tem sido um problema. Espero que ajude Abraços,

Olá Adriano, Qual distribuição do linux você esta usando, e qual plataforma 32 ou 64 ?

Olá Wellington! Fico feliz por não ser o único com problema, mas tenho uma restrição referente ao uso da capicom, pois o ambiente de produção é Linux, neste caso preciso usar a OpenSSL Mesmo assim obrigado pela dica. Talvez uma informação interessante é que a emissão da NFe e NFSe para a cidade de São Paulo são emitidas normalmente neste ambiente. Por issa acredito que não seja algo relacionado ao uso da DLL diretamente. Abraços,

Olá Amigos Fiz testes também com Lazarus 2.6, FPC 3.0 e Windows 10. O resultado é o mesmo Abraços

Para complementar as informações acima Estou gerando o XML conforme segue <?xml version="1.0" encoding="UTF-8"?><!DOCTYPE test [<!ATTLIST ns3:LoteRps Id ID #IMPLIED>]><ns3:EnviarLoteRpsEnvio xmlns:ns3="http://www.ginfes.com.br/servico_enviar_lote_rps_envio_v03.xsd" xmlns:ns4="http://www.ginfes.com.br/tipos_v03.xsd"><ns3:LoteRps Id="1"><ns4:NumeroLote>1</ns4:NumeroLote> Quando debugo a função _XmlSecLookUpNode O ParentNode = LoteRps Quando entro a primeira vez no while vejam os valores abaixo ChildNode = NumeroLote NextNode = Signature Parece que ele já passou pelo nó depois disse ele varre todo o xml me retornando nil no FoundNode Espero que estas informações ajudem Abraços,

Bom dia amigos Estou tentando enviar uma NFSe para o provedor GINFES mas estou recebendo a seguinte mensagem Falha ao localizar o nó Raiz. Estou usando Lazarus 1.4, FPC 2.6 em Linux 32 bits e usando o próprio exemplo Demo_ACBrNFSe Atualizei o ACBr para revisão 12473 Alguém poderia me dar uma ajuda com isso ! Abraços,

Olá Allan, Infelizmente não estou conseguindo parar para mexer com isso, mas acredito que se o tipo da xmlSecSize deve ser um int de 4 bytes, deveríamos declara-la na libxmlsec.pas como SizeInt e não como Cardinal. xmlSecSize = SizeInt; Assim, tanto em plataformas de 32 como de 64 bits o sistema fica adequado. http://www.freepascal.org/docs-html/ref/refsu5.html Não fiz nenhuma alteração e nenhum teste, é apenas um sugestão Abraços,

Olá Italo, tudo bem ? Precisei fazer um ajuste no arquivo pnfsNFSeG.pas substituindo as linhas abaixo para podermos efetivar o cancelamento das notas De Gerador.wGrupoNFSe('SerieNota>' + SeriePrestacao + '</SerieNota'); Para Gerador.wGrupoNFSe('SerieNota>' + SerieNFSe + '</SerieNota'); Segue o arquivo alterado anexo Abraços pnfsNFSeG.pas

Olá PessoALL Também estou na mesma empreitada precisando rodar a assinatura no Linux 64bits, evoluímos um pouco conforme comentado acima, mas também precisei me envolver com outros projetos e o 64 ficou um pouco de lado. Nas próximas semanas estarei retomando o assunto. Apenas para conhecimento de vocês, eu consegui passar pela assinatura, porém, o hash da assinatura no xml é incluído no lugar errado. Estou enviando anexo o XML assinado "de forma errada" no Linux 64 bits Abraços, 35160923183669000161550010000000011000000012-nfe.xml

Olá amigos, Para o cancelamento de NF usando o provedor CONAM é necessário as seguintes informações Numero da NF Serie da NF Numero do RPS Serie do RPS Valor total da Nota Motivo do cancelamento Percebi que no método de cancelamento da nota no arquivo pnfsNFSeG.pas a serie da nota estava fixa no código Gerador.wGrupoNFSe('SerieNota>' + 'NFSE' + '</SerieNota'); Alterei conforme abaixo pois percebi que a serie da NFSe retornada pelo provedor muda por algum motivo (desconhecido). Gerador.wGrupoNFSe('SerieNota>' + SeriePrestacao + '</SerieNota'); Porém para que a mudança fosse efetiva, foi necessário alterar os arquivos pnfsNFSeR.pas para que a leitura do xml contemplasse a tag SerNf. também no ACBrNFSeWebServices.pas foi necessário repassar este valor para o método que constrói a mensagem do xml de cancelamento. Segue os arquivos alterados, caso tenham alguma dúvida estou a disposição. Abraços. ACBrNFSeWebServices.pas pnfsNFSeG.pas pnfsNFSeR.pas

Na realidade enviei o arquivo antes de aplicar a alteração Segue arquivo atualizado []s ACBrSATExtratoFortesFr.pas

Olá Amigos Acredito que aqui seja o lugar certo para esta postagem Na uinit ACBrSATExtratoFortesFr.pas fiz a alteração abaixo, se NOGUI estiver definido temos um erro nesta linha, já que a propriedade PictureLogo não é declarada quando NOGUI é definido. {$IFNDEF NOGUI} imgLogoCan.Picture.Assign( ACBrSATExtrato.PictureLogo ); {$ENDIF} Segue a unit anexa para avaliação ACBrSATExtratoFortesFr.pas

Olá Daniel Eu fiz os ajustes nos que você me enviou... esqueci de te enviar o ACBrDFeOpenSSL.pas da primeira vez. Para testar aqui, atualizei os fontes para ultima versão do svn e subscrevi com este fonte que estou te enviando anexo e consegui passar pela assinatura. Mesmo assim se continuar com problemas conte comigo para ajuda Abraços Fontes.zip