Elisângela Borato

Boa tarde, Fazendo migração NFSe para NFSeX. Provedor SimplISS, cidade São João da Boa Vista/SP. Comando: CancelarNFSe Retorno: E1005-O serviço não está disponível para este município-Realizar o procedimento através do Sistema Web.|X209-Retorno do Cancelamento não encontrada. No NFSe consigo cancelar normalmente. O componente NFSeX não suporta cancelamento? Há algo que eu possa fazer para adaptar para que proceda com o cancelamento ou isso já esta sendo trabalhado? Desde já agradeço pela atenção.

Boa tarde, Afim de atender demanda de cliente, alterei o ACBrNFSeXDANFSeRLRetrato para ficar com impressão próximo ao que é emitido pelo provedor SimplISS (imagem abaixo). Disponibilizo em anexo os arquivos alterados para caso alguém precise e, se julgarem interessante, incorporar ao componente. ACBrNFSeXDANFSeRLRetrato.lfm ACBrNFSeXDANFSeRLRetrato.pas ACBrNFSeXDANFSeRLRetrato.dfm

Corrigindo: De Quantidade := ObterConteudo(AuxNode.Childrens.FindAnyNs('Quantidade'), tcDe2); ValorUnitario := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorUnitario'), tcDe4); Para Quantidade := ObterConteudo(ANodes[i].Childrens.FindAnyNs('Quantidade'), tcDe2); ValorUnitario := ObterConteudo(ANodes[i].Childrens.FindAnyNs('ValorUnitario'), tcDe4); Portanto o trecho inserido fica assim: /// adicionado ///////////// ANodes := AuxNode.Childrens.FindAllAnyNs('ItensServico'); for i := 0 to Length(ANodes) - 1 do begin NFSe.Servico.ItemServico.New; with NFSe.Servico.ItemServico[i] do begin Descricao := ObterConteudo(ANodes[i].Childrens.FindAnyNs('Descricao'), tcStr); Quantidade := ObterConteudo(ANodes[i].Childrens.FindAnyNs('Quantidade'), tcDe2); ValorUnitario := ObterConteudo(ANodes[i].Childrens.FindAnyNs('ValorUnitario'), tcDe4); end; end; /////////////////////////// ACBrNFSeXLerXml_ABRASFv1.pas

Bom dia Renato, Coloquei o ponto de parada e caí no arquivo ACBrNFSeXLerXml_ABRASFv1.pas . Percebi que a procedure LerServico não estava carregando os ItensServico. Adicionei o código, conforme abaixo, que solucionou o problema, carregou o ItensServico e por conseguinte sanou o erro que estava dando no envio do lote. procedure TNFSeR_ABRASFv1.LerServico(const ANode: TACBrXmlNode); var AuxNode: TACBrXmlNode; CodigoItemServico: string; ANodes: TACBrXmlNodeArray; i: integer; begin if not Assigned(ANode) or (ANode = nil) then Exit; AuxNode := ANode.Childrens.FindAnyNs('Servico'); if AuxNode <> nil then begin LerValores(AuxNode); CodigoItemServico := ObterConteudo(AuxNode.Childrens.FindAnyNs('ItemListaServico'), tcStr); with NFSe.Servico do begin ItemListaServico := NormatizarItemListaServico(CodigoItemServico); xItemListaServico := ItemListaServicoDescricao(ItemListaServico); CodigoCnae := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoCnae'), tcStr); CodigoTributacaoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoTributacaoMunicipio'), tcStr); Discriminacao := ObterConteudo(AuxNode.Childrens.FindAnyNs('Discriminacao'), tcStr); CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoMunicipio'), tcStr); if CodigoMunicipio = '' then CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('MunicipioPrestacaoServico'), tcStr); end; end; /// adicionado ///////////// ANodes := AuxNode.Childrens.FindAllAnyNs('ItensServico'); for i := 0 to Length(ANodes) - 1 do begin NFSe.Servico.ItemServico.New; with NFSe.Servico.ItemServico[i] do begin Descricao := ObterConteudo(ANodes[i].Childrens.FindAnyNs('Descricao'), tcStr); Quantidade := ObterConteudo(AuxNode.Childrens.FindAnyNs('Quantidade'), tcDe2); ValorUnitario := ObterConteudo(AuxNode.Childrens.FindAnyNs('ValorUnitario'), tcDe4); end; end; /////////////////////////// end; Peço que por gentileza adicionem o código aos fontes svn. Grata. ACBrNFSeXLerXml_ABRASFv1.pas

Complementando... pelo que percebi o comando ACBrNFSeX.NotasFiscais.LoadFromString() não esta carregando os itens do serviço por isso do erro quando envio o lote (após o load o ACBrNFSeX.NotasFiscais.Items[0].NFSe.Servico.ItemServico.Count retorna zero). eu faço isso de carregar o xml e enviar o lote de rps com o componente ACBrNFSe... estou migrando para o ACBrNFSeX e emperrei nesse ponto. qualquer ajuda é bem vinda, esgotei minhas possibilidades aqui... grata

Boa tarde Ítalo. Meu cenário real é que recebo de um outro sistema o XML do rps para que eu o carregue no ACBrNFSeX e faça o envio do rps. Espero ter respondido a sua pergunta. Agradeço pela atenção.

Bom dia Renato, Sim, os fontes estão atualizados e configurei o município no componente antes de ler o arquivo. Sim, o rps gerado pelo componente tem a mesma estrutura, inclusive fiz teste alimentando o componente e depois extraindo o XmlRps do componente e salvando em arquivo para então fazer o LoadFromFile. Grata pela atenção. P.S.: me desculpe pelo flooding, me organizarei melhor nas próximas postagens.

Boa tarde, Por gentileza, os comandos LoadFromString e LoadFromFile estão funcionando plenamente no NFSeX? Preciso carregar o xml do rps, que é modo como eu alimento o componente para enviar os lotes. Uso os comandos ACBrNFseX.NotasFiscais.LoadFromString e ACBrNFseX.NotasFiscais.LoadFromFile Eu já fazia assim no componente NFSe. Porém, no NFSeX, aparentemente não estão sendo carregados os itens de serviço: Testei pegando o xml do próprio projeto de teste. O xml é carregado sem erros, porém há zero itemServico carregados: Muito embora o xml tenha um ItemServico: Daí, quando vou enviar o lote rps assíncrono dá falha na validação: Alguém poderia me ajudar a solucionar esta situação por gentileza? Estou sem saber se o comando esta com problemas ou se eu me esqueci de algo. RPS-teste.xml

Estou tentando enviar um lote rps assíncrono, porém recebo o seguinte erro: ERRO: X800-Erro de Validação: 1871 - Element '{http://www.sistema.com.br/Nfse/arquivos/nfse_3.xsd}Servico': Missing child element(s). Expected is ( {http://www.sistema.com.br/Nfse/arquivos/nfse_3.xsd}ItensServico ) Em anexo segue o xml do rps, que carrego no componente através do comando: ACBrNFseX1.NotasFiscais.LoadFromFile(lFile); O provedor é o SimplISS. Alguém já passou por isso e poderia me dizer onde estou errando? RPS-teste.xml

Bom dia, Atualizei os componentes e passou a pedir informações de certificado para enviar lote rps. Como configuro para que volte a não pedir dados do certificado? (uma vez que tenho clientes que emitem somente nfse e não tem certificado) Provedor SimplISS Componente ACBrNFSe

Bom dia, Em algumas NFe's esta ocorrendo de o xml ser salvo com tag signature em branco. <Signature></Signature> Isso acontece tanto na emissão, quanto na consulta do documento fiscal. Se baixo direto no site da Sefaz o xml vem completo, com tag assinatura preenchida. Testei carregar no componente esse xml baixado da Sefaz, que tem assinatura, e então consultar a nfe. Não obtive sucesso. Mesmo dessa forma o xml continua sendo salvo pelo componente com tag assinatura vazia. Testei com ValidarDigest ativado e desativado. Ocorre o mesmo nas duas situações. Isso acontece em algumas notas apenas, não sei determinar se é coincidência, mas são notas com emitente em SP e destinatário em MG. Não recebo mensagens de erro ou exceções. Alguém já passou por isso? Saberiam me dizer como resolver essa situação?

Fortes. Era Isso. Funcionou. Grata

Bom dia. Na danfe de nfe de medicamentos, na rastreabilidade dos produtos, os dados do lote estão saindo um em cada linha (Lote, qtd, fabricação, validade, etc.). Gostaria que essas informações saíssem todas em uma linha só (para diminuir a quantidade de folhas da danfe gerada). Porém não estou tendo sucesso nessa empreitada. Saberiam me dizer como altero o componente ou se já há algo no componente que o configure para que faça a impressão dessa forma? (por agora encontrei apenas a configuração para que os dados de rastreabilidade saiam ou não na danfe, mas nada sobre eles saírem em uma mesma linha)

Olá Italo. Atualizei e funcionou, esta carregando os itens do serviço perfeito. Super agradeço! Abraço.

Olá Italo, Agradeço pelo seu retorno. Vou tentar detalhar melhor o que preciso fazer: Estou carregando o conteúdo do arquivo, que coloquei em anexo, para dentro do componente ACBBrNFSe, usando o comando "ACBrNFse1.NotasFiscais.LoadFromFile". (Faço isso para, na sequencia enviar usando o comando "ACBrNFse1.WebServices.Envia") Isto, de carregar os dados, funcionava perfeito até que por volta do dia 27 de março atualizei os componentes ACBr. Quando então o comando "ACBrNFse1.NotasFiscais.LoadFromFile" passou a não carregar os itens de serviço contidos no arquivo anexado a esta mensagem. Ele carrega os demais dados, mas despreza os itens de serviço. // nesse teste percebo que carregou a nfse, mas o count do itemservico fica zerado (embora tenha tenha itens no xml que carreguei no componente) if ACBrNFse1.NotasFiscais.Count > 0 then aux:= ACBrNFse1.NotasFiscais.Items[0].NFSe.Servico.ItemServico.Count; Se eu coloco esse mesmo arquivo de dados em versão compilada antes de 27 de março, antes de eu atualizar os componentes, ele carrega normal os itens de serviço. Atualizei novamente o ACBr, atualizei os schemas, mas ainda assim não carrega os itens de serviços. Não consegui identificar o motivo, como em versão compilada anterior a 27 de março funciona, penso que pode ter alguma modificação que não estou conseguindo identificar. Agradeço pela sua atenção, No aguardo, Abraço. dados.xml

Agradeço Italo. Fico no aguardo. Abraço.

Olá amigos, boa tarde. Depois de eu ter atualizado o ACBr o carregamento da .xml da NFSe passou a ignorar os itens do serviço. // nesse teste percebo que carregou a nfse, mas o count do itemservico fica zerado (embora tenha tenha itens no xml que carreguei no componente) if ACBrNFse1.NotasFiscais.Count > 0 then aux:= ACBrNFse1.NotasFiscais.Items[0].NFSe.Servico.ItemServico.Count; Se envio o rps, ao consultar a situação retorna o erro dizendo que o campo obrigatório "ItensServiço" não esta presente Método..... : Consultar Situação do Lote Código Erro : E962 Mensagem... : Arquivo enviado fora da estrutura do arquivo XML de entrada - campo obrigatorio faltando (ListaRps[].InfRps.Servico.ItensServico). Correção... : Inclua no arquivo o campo obrigatorio (ListaRps[].InfRps.Servico.ItensServico). Provedor... : SimplISS Já reinstalei o acbr, atualizei os schemas, mas o problema persiste. Alguém já passou por isso e saberia me dizer como corrijo?

Bom dia. Adicionado cidade Aguaí/SP que se utiliza do provedor Betha. Segue em anexo arquivo INI. Cidades.ini

Boa tarde. Adicionado cidade Espírito Santo do Pinhal/SP que se utiliza do provedor SimplISS. Segue em anexo arquivo INI. Cidades.ini

Olá, Agradeço pela explicação e me desculpo pelo tópico aberto em decorrência de minha ignorância. []'s

olá, amigos... caso interesse... o arquivo SimplISS.ini atualmente disponibilizado em trunk2\Exemplos\ACBrDFe\ACBrNFSe\ArqINI esta incompleto no tocante a listagem de cidades/URL de produção: consta apenas 9 cidades enquanto que em versão anterior chegou a constar 27 cidades. também esta setado UseCertificado=1 ao invés de UseCertificado=0 (o provedor SimplISS por agora não exige certificado). em anexo o arquivo SimplISS.ini completo (ou o mais completo que encontrei em meus backups) SimplISS.INI

Boa tarde Italo, Valeu por me lembrar deste detalhe. Adicionado no arquivo Cidades.ini as linhas abaixo: [3510807] Nome=Casa Branca UF=SP Provedor=SimplISS Cidades.ini

Boa tarde, Segue link do WS da cidade de Casa Branca-SP, atendida pelo provedor SimplISS, como sugestão para atualização do arquivo SimplISS.ini contido nos exemplos do ACBr. ; Casa Branca RecepcaoLoteRPS_3510807=http://wscasabranca.simplissweb.com.br/nfseservice.svc?wsdl SimplISS.ini

Boa tarde, Segue link atualizado do WS da cidade de Vargem Grande do Sul-SP, atendida pelo provedor SimplISS, como sugestão para atualização do arquivo SimplISS.ini contido nos exemplos do ACBr. http://wsvargemgrandedosul.simplissweb.com.br/nfseservice.svc?wsdl SimplISS.ini

Boa tarde, Caso: certificado de cliente vencendo hoje, 02/05/2018, ao emitir nfe mensagem erro: "Data de Validade do Certificado já expirou" Segue sugestão de ajuste para que não dê mensagem de já expirado para Certificado vencido no dia. Em ACBrDFeWebService.pas Original: procedure TDFeWebService.EnviarDados; Var Tentar, Tratado, TemCertificadoConfigurado: Boolean; begin { Sobrescrever apenas se necessário } FPRetWS := ''; FPRetornoWS := ''; TemCertificadoConfigurado := (FPConfiguracoes.Certificados.NumeroSerie <> '') or (FPConfiguracoes.Certificados.DadosPFX <> '') or (FPConfiguracoes.Certificados.ArquivoPFX <> ''); if TemCertificadoConfigurado then if FPConfiguracoes.Certificados.VerificarValidade then if (FPDFeOwner.SSL.CertDataVenc < Now) then raise EACBrDFeException.Create('Data de Validade do Certificado já expirou: '+ FormatDateBr(FPDFeOwner.SSL.CertDataVenc)); Alterado: procedure TDFeWebService.EnviarDados; Var Tentar, Tratado, TemCertificadoConfigurado: Boolean; lCertData, lNow: TDateTime; begin { Sobrescrever apenas se necessário } FPRetWS := ''; FPRetornoWS := ''; TemCertificadoConfigurado := (FPConfiguracoes.Certificados.NumeroSerie <> '') or (FPConfiguracoes.Certificados.DadosPFX <> '') or (FPConfiguracoes.Certificados.ArquivoPFX <> ''); lCertData:= DateOf(FPDFeOwner.SSL.CertDataVenc); lNow:= DateOf(Now); if TemCertificadoConfigurado then if FPConfiguracoes.Certificados.VerificarValidade then if (lCertData < lNow) then raise EACBrDFeException.Create('Data de Validade do Certificado já expirou: '+ FormatDateBr(FPDFeOwner.SSL.CertDataVenc)); Abraço,