vandermga

Bom dia Juliana, conforme solicitado segue o arquivo Cidade.ini com a cidade de Paiçandu-PR inclusa, sobre a alteração na Unit ACBrNFSeNotasFiscais referente ao servidor (proSimplISS), percebi que ainda não foi disponibilizado também. Desde já agradeço pela atenção Att Vanderson Marocchio Cidades.ini ACBrNFSeNotasFiscais.pas

Boa tarde, Temos um sistema que faz a leitura de Notas de Serviço (NFSe) e recentemente o Município de Paiçandu-PR, efetuou a troca de sistema para emissão, passando da Assessor Público para o SIMPLISS, onde a empresa SIMPLIIS é atendida pelo ACBr, porém existe 2 ajustes a serem feitos. 1 - Adicionar a Tag da Cidade de Paiçandu no arquivo \trunk2\ACBr\Exemplos\ACBrDFe\ACBrNFSe\ArqINI\Cidades.ini [4117503] Nome=Paiçandu UF=PR Provedor=SimplISS Pode ser conferido a mudança no site do município: http://www.paicandu.pr.gov.br/ https://paicandu.simplissweb.com.br/contrib/Account/Login 2 - Alterar a unit ACBrNFSeNotasFiscais, onde ao ler o XML com mais de uma nota fiscal e dentro do arquivo existir algum cancelamento, o componente carrega o cancelamento para uma nota diferente da real e também pula algumas notas devido a posição deste Copy. MÉTODO: function LoadFromString(AXMLString: String; AGerarNFSe: Boolean = True): Boolean; if N > 0 then begin // Ler os XMLs das NFS-e while N > 0 do begin AXML := copy(AXMLString, 1, N + TamTAG); AXMLString := Trim(copy(AXMLString, N + TamTAG + 1, length(AXMLString))); // Abaixo a lista de provedores cujo grupo NfseCancelamento não se encontra // dentro do grupo CompNfse if AProvedor in [{proSimplISS,} {proBetha,} proTecnos, proFISSLEX] then //Comentar proSimplISS para não concatenar a tag de cancelamento begin N:= PosNFSeCancelamento; if N > 0 then begin // concatena o grupo NfseCancelamento abaixo do grupo Nfse AXML:= AXML + copy(AXMLString, 1, N + TamTAG); AXMLString := Trim(copy(AXMLString, N + TamTAG + 1, length(AXMLString))); end; end; with Self.Add do begin LerXML(AXML); end; N := PosNFSe; end; end ---- Estou anexando o arquivo com as notas para teste caso seja necessário. Obrigado Att Vanderson Marocchio NFSe_Teste_SIMPLISS_Paicandu.xml

Bom dia Italo, atualizei novamente os fontes e com a remoção do provedor Betha da validação, funcionou corretamente. Muito obrigado att Vanderson

Boa tarde estou importando um XML de NFSe com várias Notas, gerado pelo Servidor da Empresa Betha da cidade de Mandaguaçu-PR e está pulando a segunda nota. Na unit ACBrNFSeNotasFiscais.pas, contém a seguinte validação abaixo, rotina esta que a primeira vez que passa pelo laço de repetição superior, ela concatena o bloco inteiro da primeira Nota + o Bloco inteiro da segunda nota, sendo assim a segunda vez que entra nesse laço o ACBr já está com a terceira Nota carregada. -------- // Ler os XMLs das NFS-e while N > 0 do begin AXML := copy(AXMLString, 1, N + TamTAG); AXMLString := Trim(copy(AXMLString, N + TamTAG + 1, length(AXMLString))); # CÓDIGO EM QUE ESTÁ OCASIONANDO O ERRO - Linha 953 // No caso dos provedores [SimplISS, Betha e Tecnos] o grupo NfseCancelamento fica fora do // grupo CompNfse if TACBrNFSe(FACBrNFSe).Configuracoes.Geral.Provedor in [proSimplISS, proBetha, proTecnos, proFISSLEX] then begin N:= PosNFSeCancelamento; if N > 0 then begin // concatena o grupo NfseCancelamento ao grupo Nfse AXML:= AXML + copy(AXMLString, 1, N + TamTAG); AXMLString := Trim(copy(AXMLString, N + TamTAG + 1, length(AXMLString))); end; end; with Self.Add do begin LerXML(AXML); // if AGerarNFSe then // Recalcula o XML // GerarXML; end; N := PosNFSe; end; ------ Efetuado testes foi identificado que no copy inicial do método já está carregando as tags de cancelamento não sendo necessário esta validação. Estou encaminhando em anexo um arquivo com tais informações para teste, altere a extensão para xml, se possível gostaria de um retorno. Obrigado . Vanderson Marocchio LoteNotas.txt

Boa tarde SESistemas, poderia me explicar com o você tratou a chamada separada? Estou com o mesmo problema. Obrigado