Joselito Nascimento

Não.

Caro Italo, boa tarde. Atualizei os fontes da ACBr e tentei emitir uma NFSe pelo demo e continuou apresentando o erro. Hoje falei com uma pessoa na Secretaria de Salvador, responsável pelo portal e a mesma comentou que tem uma outra pessoa com o mesmo problema, que iriam averiguar e me retornar. Segue os arquivos dos conteúdos de envio e retorno em anexo. Obrigado! ACBr-ENV.xml ACBr-RET.xml

Bom dia Italo, Farei isso agora mesmo. Valeu.

Blz.

Caro Icaro, Consegui resposta da SEFIN de salvador, e eles me enviaram um exemplo do .XML do RPS. Pelo visto o único problema é com relação a formatação dos valores e a formatação do valor da TAG <ItemListaServico>. O que fazer para resolver ? PS: .XML enviado por Salvador, segue em anexo. IMPORTANTE: Recomendação abaixo Em retorno da demanda criada em relação ao XML enviado, o gestor de programação da Nota Salvador enviou um XML exemplo para utilizar como modelo na confecção do documento. Além disso o mesmo solicitou que altere a serie para numérica, no arquivo enviado foi informada uma série alfabética. Grato XML EXEMPLO.xml

Italo, Segue o erro: Modo de Envio : Enviar Lote Numero do Lote: 1 Data de Envio : 30/12/1899 Numero do Prot: Sucesso : False Erro(s): Código : P68 Mensagem: XML não compatível com Schema. Houve um erro na leitura do XML de envio de lote Correção: Codigo de erro SEFAZ Grato.

Bom dia Ítalo, Isso mesmo, mas mesmo resolvido esse problema, continuamos sem conseguir emitir a NFSe. Abraços

Aconteceu isso comigo também, é que agora o Código de Tributação de Salvador possui 7 caracteres. Segue anexo .PDF do Decreto com os novos códigos. Abraços Codigo Tributacao Municipal.pdf

IMPORTANTE: O arquivo .XML é validado pelo validador de Salvador.

Caro Italo, boa tarde, seguindo sua recomendação, atualizei a ACBr, instalando o novo componente ABCrNFSeX e tentei emitir uma NFSe para Salvador, em ambiente de homologação, a partir do demo da ACBr retornando o seguinte erro: Modo de Envio : Enviar Lote Numero do Lote: 1 Data de Envio : 30/12/1899 Numero do Prot: Sucesso : False Erro(s): Código : P68 Mensagem: XML não compatível com Schema. Houve um erro na leitura do XML de envio de lote Correção: Codigo de erro SEFAZ Segue anexo arquivo de envio do rps. Agradeço antecipadamente, a ajuda prestada. 1-env-lot.xml

Caro Italo, vou fazer o sugerido. Obrigado.

Boa noite Juliana, Não testei usando o demo. Na minha aplicação, já emito para o Recife, Natal e Manaus. Fortaleza devo iniciar os testes amanhã. Agora Salvador é que não consegui ainda. Eu estou usando a ACBrNFSe ainda.

Presados, ao tentar enviar RPS para Salvador ocorre um erro que retorna "XML nao compativel com Schema. Houve um erro na leitura do XML de envio de lote Codigo de erro SEFAZ". Não consegui descobrir o que há de errado no XML. Segue .XML referido, agradeço quem puder ajudar. 3521060915183600016156000000000000700-rps.xml

Caro Italo, Também estou com o mesmo problema, baixei a última atualização de Salvador.ini datada de 22/05/2018, mesmo assim, continua com o mesmo erro.

Prezados, Estou a dias com problema na inutilização de numeração de Nota Fiscal. a SEFAZ-PE retorna sempre a mensagem de Limite de tempo atingido. Já tentei aumentar o timeout e mesmo assim continua apresentando o erro. Entretanto este erro ocorre apenas em ambiente de produção, pois se executar a mesma rotina em ambiente de homologação, a numeração é inutilizada sem problema. Abaixo mostro a mensagem do erro. Agradeço antecipadamente que puder ajudar.

Valeu.... Estava com o mesmo problema.

Italo, Na verdade eu não havia observado isso, foi o cliente que me alertou para o fato, por isso, não posso afirmar com certeza, mas acredito que desde o início, só mostrava as NFe emitidas pela filial. Grato

Italo, Tem mais um detalhe, só estão aparecendo as NFe emitidas pela filial, as NFe emitidas pelos fornecedores não aparecem.

Italo, Analisei o .XML em questão e verifiquei que não foi informado nada para o grupo <autXML> (vide .XML anexo), entretanto, observei que o CNPJ da matriz está no grupo da transportadora, será que é por isso que está sendo mostrado na manifestação. Se for por isso, outra dúvida. A transportadora pode fazer a manifestação ? Grato Joselito Nascimento 002-8045.xml

Não verifiquei.... vou dá uma olhada... valeu...

Caros colegas, Estou com o seguinte problema, um cliente possui uma matriz e uma filial, ao tentar efetuar a manifestação do destinatário da Matriz, retorna notas fiscais emitidas pela Filial para os seus clientes. Fazendo a consulta na filial, retorna as notas fiscais dos seus fornecedores emitidas contra ela normalmente. Abaixo segue rotina e imagem da consulta incluindo consulta da NF-e no portal nacional. Agradeço a ajuda. Rotina cUFAutor := '26'; CNPJ := Dm1.sCNPJ; ANSU := ''; try if DM1.NFe.DistribuicaoDFe(StrToInt(cUFAutor),CNPJ,ultNSU,ANSU) then begin ................. Imagem do retorno

Entendo... qual seria o melhor caminho a seguir para evitar a referida mensagem de erro ?

Vou editar alguma coisa pra não ficar muito grande OK ? os UPDATES foram editados. msgEnvio := msgInicio + ' Preenchendo dados pós envio...'; with Dm1.QyAuxiliar do begin Close; if copy(CBoxTpMov.Text,1,1) = '1' then // Saida begin Sql.Text := 'UPDATE TbSaidaFiscal ... end else begin Sql.Text := 'UPDATE TbEntradaFiscal ... end; Parameters.ParamByName('NUMERONFISCAL').Value := Dm1.NFe.NotasFiscais.Items[0].NFe.Ide.nNF; Parameters.ParamByName('SERIENFISCAL').Value := IntToStr(Dm1.NFe.NotasFiscais.Items[0].NFe.Ide.serie); Parameters.ParamByName('FLGNFE').Value := 'E'; Parameters.ParamByName('PLACAVEICULO').Value := EdPlaca.Text; Parameters.ParamByName('UFPLACA').Value := EdUf.Text; Parameters.ParamByName('IDTRANSPORTADORA').Value := TbTransportadoraIDTransp.AsString; Parameters.ParamByName('DATASAIDA').Value := DatSai.Date; Parameters.ParamByName('CHAVENFE').Value := Dm1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; Parameters.ParamByName('PROTOCOLONFE').Value := m1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt; Parameters.ParamByName('NUMRECEBIMENTONFE').Value:= Dm1.NFe.WebServices.Retorno.NFeRetorno.nRec; Parameters.ParamByName('TIPOEMISSAONFE').Value := Dm1.sTipoEmissaoNFE; Parameters.ParamByName('DATAEMISSAO').Value := DatEmi.Date; ExecSQL; end; // seta canhoto da nfe Dm1.danfeRL.ExibirResumoCanhoto_Texto := 'EMISSÃO: ' + FormatDateTime('DD/MM/YYYY', Dm1.NFe.NotasFiscais.Items[0].NFe.Ide.dEmi) + ' - ' + 'DEST. / REM.: ' + Dm1.NFe.NotasFiscais.Items[0].NFe.Dest.xNome + ' - ' + 'PEDIDO: ' + Dm1.QyGeral.FieldByName('IDPEDIDO').AsString + ' - ' + 'VALOR TOTAL: R$ ' + FormatFloat('###,###,###,##0.00', Dm1.NFe.NotasFiscais.Items[0].NFe.Total.ICMSTot.vNF); Dm1.NFe.NotasFiscais.Imprimir; end; except on e: exception do begin // em caso de nota fiscal denegada, registra a ocorrencia if (Dm1.NFe.WebServices.Retorno.cStat = 110) or (Dm1.NFe.WebServices.Retorno.cStat = 301) or (Dm1.NFe.WebServices.Retorno.cStat = 302) then begin if (Dm1.NFe.WebServices.Retorno.cStat = 110) then ObsDeneg := '110-NFE DENEGADA' else if (Dm1.NFe.WebServices.Retorno.cStat = 301) then ObsDeneg := '301-NFE DENEGADA-IRREGULARIDADE FISCAL DO EMITENTE' else if (Dm1.NFe.WebServices.Retorno.cStat = 302) then ObsDeneg := '302-NFE DENEGADA-IRREGULARIDADE FISCAL DO DESTINATARIO'; with Dm1.QyAuxiliar do begin Close; Sql.Text := 'UPDATE TbSaidaFiscal .... Parameters.ParamByName('FlgNFE').Value := 'E'; Parameters.ParamByName('ChaveNFe').Value := Dm1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; Parameters.ParamByName('PROTOCOLONFE').Value := Dm1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].nProt; Parameters.ParamByName('Observacao1').Value := ObsDeneg; Parameters.ParamByName('SituacaoNFiscal').Value := 'D'; Parameters.ParamByName('NumeroNFiscal').Value := Dm1.NFe.NotasFiscais.Items[0].NFe.Ide.nNF; Parameters.ParamByName('SERIENFISCAL').Value := EdSerieNF.Text; Parameters.ParamByName('DataEmissao').Value := DatEmi.Date; ExecSQL; end; // atualiza o pedido com o numero da NF with Dm1.QyAuxiliar do begin Close; Sql.Text := 'UPDATE TbPedido SET NFEmitida = ''N'', ' + 'NFNumero = Null, NFSerie = NULL ' + 'WHERE NFNumero = :NFNumero AND NFSerie = :NFSerie ' ; Parameters.ParamByName('NFNumero').Value := Dm1.NFe.NotasFiscais.Items[0].NFe.Ide.nNF; Parameters.ParamByName('NFSerie').Value := EdSerieNF.Text; ExecSQL; end; end else begin with Dm1.QyAuxiliar do begin Close; Sql.Text := 'UPDATE TbSaidaFiscal SET DataEmissao = :DataEmissao,' + 'ChaveNFe = :ChaveNFe ' + 'WHERE NumeroNFiscal = :NumeroNFiscal ' + 'AND SERIENFISCAL = :SERIENFISCAL ' ; Parameters.ParamByName('NumeroNFiscal').Value := Dm1.NFe.NotasFiscais.Items[0].NFe.Ide.nNF; Parameters.ParamByName('SERIENFISCAL').Value := EdSerieNF.Text; Parameters.ParamByName('DataEmissao').Value := DatEmi.Date; Parameters.ParamByName('ChaveNFe').Value := Dm1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; ExecSQL; end; // Em caso de erro, não vem o numero do protocolo, aqui tentamos pegar novamente Dm1.NFe.WebServices.Consulta.NFeChave := Dm1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe; // try Application.ProcessMessages; Dm1.NFe.WebServices.Consulta.Executar; with Dm1.QyAuxiliar do begin Close; Sql.Text := 'UPDATE TBSAIDAFISCAL SET PROTOCOLONFE = ' + QuotedStr(Dm1.NFe.WebServices.Consulta.Protocolo) + ' ' + 'WHERE CHAVENFE = ' + QuotedStr(Dm1.NFe.WebServices.Retorno.NFeRetorno.ProtNFe.Items[0].chNFe) + ' ' ; ExecSQL; end; finally Cursor := crDefault; end; end; if trim(Dm1.NFe.WebServices.Retorno.Msg) = '' then begin MessageDlg(e.Message,mtError,[mbOK],0); end else begin if (Dm1.NFe.WebServices.Retorno.cStat = 110) or (Dm1.NFe.WebServices.Retorno.cStat = 301) or (Dm1.NFe.WebServices.Retorno.cStat = 302) then begin MessageDlg(Dm1.NFe.WebServices.Retorno.Msg + 'CHAVE: ' + Dm1.NFe.WebServices.Retorno.ChaveNFe + chr(13) + 'O Pedido Está Liberado Para Gerar Nova Nota Fiscal',mtError,[mbOK],0); end else begin MessageDlg(Dm1.NFe.WebServices.Retorno.Msg + chr(13) + 'CHAVE: ' + Dm1.NFe.WebServices.Retorno.ChaveNFe + chr(13) + 'Ocorreu Um Erro no Retorno do XML. Verifique Necessidade de Cancelar a NF-e',mtError,[mbOK],0); end; end; exit; end; end; // 0-fim

Caro André, Aí é que a porca torce o rabo, não consegui simular o erro na máquina de desenvolvimento, pelo contrário aqui a NF-e é enviada tanto em ambiente de produção como em ambiente de homologação. Mas acredito que seja algo com relação ao sistema operacional, pois em outra máquina do mesmo cliente, conseguimos enviar ontem, já em uma outra máquina dele, conseguia enviar em ambiente de homologação mas dava o erro no ambiente de produção. Para desencargo de consciência, registramos novamente a capicom.dll, a versão que trabalhamos é a 2.1.0.2. o windows do nosso cliente é o XP, com a atualização automática desativada e nada. Com relação ao nosso programa, fazemos apenas o café com leite, como segue abaixo: 01) Selecionamos os dados da NFe; 02) Alimentamos os atributos do TACBrNFe com os dados da seleção; 03) Executamos como segue abaixo: msgEnvio := msgInicio + ' Gerando NFe...'; Dm1.NFe.NotasFiscais.GerarNFe; msgEnvio := msgInicio + ' Assinando NFe...'; Dm1.NFe.NotasFiscais.Assinar; msgEnvio := msgInicio + ' Validando NFe...'; Dm1.NFe.NotasFiscais.Valida; msgEnvio := msgInicio + ' Enviando NFe...'; //Dm1.NFe.WebServices.Envia(0); Dm1.NFe.Enviar(0,false,false); 04) Tratamos o retorno. PS) O erro ocorre quando se tenta enviar para fazenda, haja visto que ocorre após a mensagem "Enviando NFe..." ser mostrada. Trocamos o Dm1.NFe.WebServices.Envia(0) por Dm1.NFe.Enviar(0,false,false), mesmo assim continuou com erro. Isso é o que eu tenho por enquanto. Grato Joselito Nascimento

Caros amigos, Desde a ultima sexta-feira, dia 28 de junho, estamos com um problema sério na envio da NFe para a SEFAZ-PE, no ambiente de homologação ocorre tudo sem problema, no entanto no ambiente de produção gera o erro: list index out of bound (0). PS: Importante, trouxe a base do cliente para minha máquina e emiti NFe sem problema tanto em produção como homologação. alguém sabe o que está gerando esse erro e como consertar ? Grato Joselito Nascimento