Valdir Dill

Bom dia, Ainda não sei se é para todas a UF, mas no caso do MT precisa gerar um token válido mesmo em homologação. Aquele token montado com o CNPJ não funciona. Tive esse mesmo problema e resolveu depois disso. Endereço para o usuário gerar o token: http://homologacao.sefaz.mt.gov.br/nfce/codigosegurancactbn/ViewCadastroPublicoCSC.jsp

Obrigado pela dica! Uso esse DM em várias situações, então para deixá-lo não auto create só para um seria muito trabalho. E se eu tirar o componente do ACBR do DM e colocá-lo no próprio form onde a NFe é emitida/impressa? Esse form é criado dinamicamente. Pelas análises que você fez aí quando o erro ocorria, você acredita que esse procedimento também poderia resolver? O problema maior meu é que como mencionei, não tenho como testar se essa ou aquela mudança vai trazer ou não uma solução. Obrigado.

Uso o Fast Report para o Danfe! Mas não crio o componente ACBRNFe dinamicamente! Tenho ele em um DataModule e uso como outro componente qualquer, ou seja, sem criar e nem destruir a cada utilização. Poderia me dar mais detalhes do que poderia estar gerando o problema em função disso? Obrigado,

Bom dia, Apesar do título parecer de assunto off, acredito que não seja. Mas se for, peço desculpas aos moderadores e sintam-se a vontade para remover. Digo que não é off porque o problema acontece no meu sistema, mas sempre no módulo de emissão de notas - NFe. É o seguinte: aqui em minha máquina nunca tive esse problema. Ele apenas ocorre e esporadicamente com usuários onde não tenho como debugar ou acompanhar em que situação ocorre. O Erro retornado é: "espaço insuficiente de armazenamento para concluir a operação". Eu imagino que seja algo relacionado a algum problema da máquina (SO ou hardware), mas o fato é que ocorre quando se tenta enviar NFes, ou seja, pode também estar relacionado ao certificado digital ou mesmo alguma situação de estouro de pilha gerada pelo componente, enfim, sei que as causas podem ser bastante diversas. Estou abrindo esse post para que colegas que eventualmente também tenham passado por problema idêntico queiram me passar alguma orientação de onde tentar as buscas. Qualquer dica ajuda. Obrigado!

Olá Michel, Conseguistes resolver esse problema da Bematech cortar a margem? Obrigado.

Beleza Solivan! Era isso mesmo. Fiz esse vínculo no .fr3 e corrigiu o erro. Muito obrigado pela dica!

Sim Juliomar, atualizo até mais de uma vez por semana e recompilo sempre. Mas resolvi o erro com a orientação repassada pelo Solivan. Obrigado pela ajuda!

Boa tarde Julio, O que você quer dizer com versão completa? Você se refere a versão do Fast Report?

Este erro consegui resolver. Removi o bpl da ACBrNFeDANFEFR e reinstalei esse componente e resolveu.

Bem, eu uso Fast sim, mas não mudei nada nele. Apenas usava um .fr3 mais antigo que eu havia baixado em um download no Fórum. Quando troquei o .fr3 para um atualizado (o do svn) é que iniciou esse erro. Mas estava funcionando com o arquivo antigo. O problema era que não imprimia os itens no danfe, mesmo a propridade imprimeitens = true. Atualizei os fontes e agora tá dando outro erro já na compilação. Veja o anexo. Obrigado.

Bom dia, Estou enfrentando problema na impressão do Danfe de NFCe. O erro - cujo print está en anexo - começou a ocorrer depois que atualizei os fontes ACBR. Ao compilar notei que acontece na linha dmDanfe.frxReport.LoadFromFile(FastFile) da ACBrNFeDANFEFR.pas. Estou usando o DANFeNFCe.fr3 (atualizado) disponibilizado no svn. Alguma dica? Obrigado!

Feito. ACBrDFeUtil.pas em anexo. A alteração proposta é da linha 273 a 297, ou seja, para a "class function DFeUtil.FormatarNumeroDocumentoFiscal(AValue: String): String;" Obrigado ACBrDFeUtil.pas

Sim, sim Italo. Foi exatamente isso que eu fiz. Eu abri este post (lá em maio ainda) para sugerir que fosse feita a alteração no fonte do ACBR. Assim ficaria uma alteração permanente.

Bom dia, Me desculpe Italo, mas só vi hoje essa tua resposta/pergunta neste tópico. Veja se consigo te passar a sequência correta dos caminhos que o componente executa: 1) Executo ACBrNFSe1.NotasFiscais.Imprimir 2) A function TACBrNFSeDANFSeFR.PrepareReport(NFSe: TNFSe): Boolean (linha 141 da ACBrNFSeDANFSeFR.pas) chama a dmDanfse.CarregaDados; 3) A TdmACBrNFSeFR.CarregaDados (na linha 130 da ACBrNFSeDANFSeFR.pas) chama a TdmACBrNFSeFR.CarregaIdentificacao; 4) A TdmACBrNFSeFR.CarregaIdentificacao, (linha 163 da ACBrNFSeDANFSeFRDM.pas) é executada a formatação do número da nota - linha abaixo: FieldByName('NumeroNFSe').AsString := DFeUtil.FormatarNumeroDocumentoFiscal(Numero); Como a função DFeUtil.FormatarNumeroDocumentoFiscal acima limite o tamanho do número em 9 dígitos, quando o número da nota é maior que isso, como é o caso de BH (exemplo de um nr de NFSe de um cliente 201400000000084), ocorre o problema. Entendeu? Obs.: atualizei os fontes hoje e a situação persiste. Obrigado.

Perfeito! Atualizado, testado e NFSe para Bacabal-MA funcionando 100%. Esse Fiorilli é mesmo de matar, rs! Muito mais exigente que outros provedores. Obrigado Italo pela sua presteza de sempre! Abraços.

Boa tarde, No envio de NFSe de Bacabal-MA - provedor Fiorilli - estou tendo problema de falta da informação no campo CodigoTributacaoMunicipio, ou seja, essa informação é obrigatória para esse provedor. Contudo, na linha 540 da pnfsNFSeW.pas está assim: " if FProvedor <> proFiorilli then Gerador.wCampoNFSe(tcStr, '#31', 'CodigoTributacaoMunicipio', 01, 0020, 0, SomenteNumeros(NFSe.Servico.CodigoTributacaoMunicipio), ''); " Ou seja, do jeito que está, essa tag só deve ser gerada se o provedor não for Fiorilli. Como proceder nesse caso? Obrigado Valdir

Bom dia Italo, Bem, o problema do componente fazer a substituição duas vezes eu localizei. Veja se abaixo eu consigo explicar onde está o erro no componente. 1) na procedure TNFSeW.GerarXML_ABRASF_V1 da pnfsNFSeW.pas ele chama a função GerarTomador 2) Dentro da GeraTomador, temos a linha "Gerador.wCampoNFSe(tcStr, '#38', 'RazaoSocial', 001, 115, 0, NFSe.Tomador.RazaoSocial, '')", que acaba chamando a FiltrarTextoXML e gera a tag RazaoSocial formatada (já com o "&" substituído por "&amp"). 3) Depois temos a "procedure TNotasFiscais.Assinar(AssinaRPS: Boolean = True)" da ACBrNFSeNotasFiscais.pas. Nessa procedure temos a linha "FConfiguracoes."Geral.Save(NotaUtil.PathWithDelim(CaminhoArquivo) + Self.Items.NFSe.InfID.ID+'-Rps2.xml', LocNFSeW.Gerador.ArquivoFormatoXML)", que chama a função abaixo: "function TGeralConf.Save(AXMLName: String; AXMLFile: WideString; aPath: String = ''): Boolean" da ACBrNFSeConfiguracoes.pas. Nessa função save é executada a linha abaixo: //..SILVIO/RODRIGO estamos trocando o & por causa de erro na abertura do arquivo XML - 06-02-2014 vSalvar.Text := StringReplace(vSalvar.Text, '&', '&amp;', [rfReplaceAll]); Com esta última rotina todo o conteúdo do xml passa NOVAMENTE pela substituição do caractere "&" por "&amp" . Eu comentei essa linha vSalvar.Text := StringReplace(vSalvar.Text, '&', '&amp;', [rfReplaceAll]) e aí gerou corretamente, ou seja, ao invés de substituir o "&" por "&" por "&amp;amp;", substituiu por "&amp;". Mas o erro inicial de "unexpected character" e que gera a rejeição pelo web service permanece. Obrigado!

Eu concordo plenamente contigo meu caro Italo e agradeço sua resposta. Mas acho que não cabe a nós esse julgamento. Até porque o cliente nosso (que é quem vai utilizar o nosso sistema), pode precisar emitir uma nota para um alemão, um polaco e até russo,....e aí quantos "unexpected character" não poderemos ter? O que faríamos nesse caso? Substituir tudo? Claro que não seria possível! Acho que a saída é adequarmos o sistema para que não ocorra esse erro. Eu até verifiquei que o ACBR faz isso, ou seja, ele troca o "&" por "&amp;amp;" na função FiltrarTextoXML da pcnAuxiliar.pas. Não entendo muito disso, mas será que o problema não está no .xsd do BHISS que não consegue interpretar isso? Por hora vou fazer conforme você sugeriu, ou seja, vou trocar "&" por "e", mas acho que teria que te outra saída, pois, como mencionei, em nomes de pessoas (seja PJ, seja PF), não somos nós desenvolvedores que podemos determinar como vai ser. Obrigado pela sua costumeira ajuda Italo!

Bom dia, Estou tendo um erro ao enviar NFSe para Belo Horizonte. O erro que retorna é: 'Ocorreu um erro Inesperado. (Unexpected character '' (code 32) (missing name?) ate [row,col {unknows-source}]: [1,1108)' Ele ocorre por causa de um & (e comercial) que tem no nome do tomador. Se tirar esse caracter, o erro não ocorre. Veriquei no XML do RPS e o ACBR está substituindo o "&" por "&amp;amp;". O correto não seria "&amp;"? Alguma dica? Obrigado! Valdir

Resolvi o problema alterando a função DFeUtil.FormatarNumeroDocumentoFiscal (vide abaixo). Gostaria de sugerir que essa alteração fosse analisada e, se possível, implementada no no componente. função FormatarNumeroDocumentoFiscal alterada class function DFeUtil.FormatarNumeroDocumentoFiscal(AValue: String): String; Var VTamanho : Integer; begin if length(AValue) < 9 then VTamanho := 9 else VTamanho := length(AValue); AValue := Poem_Zeros(AValue, VTamanho); While VTamanho > 0 do begin if result <> '' then //na primeira volta do loop NÃO coloca o ponto. result := '.' + result; if VTamanho > 3 then begin result := copy(AValue,VTamanho-2,3) + result; Dec(VTamanho, 3); end else begin result := copy(AValue,1, VTamanho) + result; Dec(VTamanho, VTamanho); end; end; Obrigado.

Não consegui. Você saberia dizer onde (qual unit/linha) o ACBrNFe1.WebServices.Retorno.cStat recebe valor?

Estou tendo problemas na impressão de Danfe de NFSe. Na ACBrDFeUtil temos a função: class function DFeUtil.FormatarNumeroDocumentoFiscal(AValue: String): String; begin AValue := Poem_Zeros(AValue, 9); Result := copy(AValue,1,3) + '.' + copy(AValue,4,3)+ '.'+ copy(AValue,7,3); end; Na linha 163 (abaixo) da ACBrNFSeDANFSeFRDM a função acima é chamada para formatar o número da nota fiscal. FieldByName('NumeroNFSe').AsString := DFeUtil.FormatarNumeroDocumentoFiscal(Numero); Essa formatação retorna um valor no padrão "000.000.000", ou seja, até 9 dígitos. Porém, as notas de Belo Horizonte, o XML dessa cidade retorna com quantidade de dígitos bem acima. Uma exemplo de uma nota: 201400000000084. Nesse exemplo acima, o número formatado fica 201.400.000. Pergunto: - Como os colegas têm feito nesse caso? - Há alguma forma de não formatar esse campo? Obrigado.

Estou tendo problemas na impressão de Danfe de NFSe. Na ACBrDFeUtil temos a função: class function DFeUtil.FormatarNumeroDocumentoFiscal(AValue: String): String; begin AValue := Poem_Zeros(AValue, 9); Result := copy(AValue,1,3) + '.' + copy(AValue,4,3)+ '.'+ copy(AValue,7,3); end; Na linha 163 (abaixo) da ACBrNFSeDANFSeFRDM a função acima é chamada para formatar o número da nota fiscal. FieldByName('NumeroNFSe').AsString := DFeUtil.FormatarNumeroDocumentoFiscal(Numero); Essa formatação retorna um valor no padrão "000.000.000", ou seja, até 9 dígitos. Porém, as notas de Belo Horizonte, o XML dessa cidade retorna com quantidade de dígitos bem acima. Uma exemplo de uma nota: 201400000000084. Nesse exemplo acima, o número formatado fica 201.400.000. Pergunto: - Como os colegas têm feito nesse caso? - Há alguma forma de não formatar esse campo? Obrigado.

Testei de ambas as formas (com true e com false no último parâmetro). O resultado é o mesmo.

Meus arquivos do componentes ACBR estão em D:\ACBR Fiz o seguinte: 1) Um update via svn do D:\ADBR; 2) Del D:\ACBR\acbr*.bpl; 3) Del D:\ACBR\acbr*.dcu; 4) Del C:\Arquivos de programas\Embarcadero\acbr*.bpl; 5) Del C:\Arquivos de programas\Embarcadero\acbr*.dcu; 6) Del C:\users\acbr*.bpl; 7) Del C:\users\acbr*.dcu; Reinstalei todos os pacotes manual. Nunca consegui instalar pelo ACBRInstall. Então sempre abro o .dpk, dou um build e um install. Mesmo depois desses procedimentos o cstat não traz valor. A rotina abaixo é do demo do ACBR. Veja o que tem nas variáveis depois de executar a linha ACBrNFe1.Enviar(vNumLote,True, True): MemoDados.Lines.Add(''); MemoDados.Lines.Add('Envio NFe'); MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb)); --> aqui o TpAmb está igual taProducao MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic); --> aqui o verAplic está igual '' MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat)); --> aqui o cStat está igual 0 É como se ACBrNFe1.WebServices.Retorno não fosse alimentado. Obrigado.