Gumercino

NatyEb. Acabei de conversar com Italo, ele me disse que vai verificar com o pessoal se alguém voltou alguma versão, e vai me posicionar sobre a situação. Assim que ele me posicionar eu te repasso. Eu tenho as units aqui, pois antes de fazer a atualização agora eu fiz uma cópia do meu ACBr, caso vc queira para testar me avise que te envio.

NatyEb. Estou atualizando novamente o meu ACBr para testar, um minuto.

NatyEb, Bem observado, concordo sim. Vou alterar aqui e enviar para Italo fazer a atualização do componente. Lembrando que também criei um arquivo .FR3 para o provedor que já esta disponível na versão atual do ACBr, que já vem preparada com o QRCode e demais campos. Abraços NatyEb, Observei a unit aqui e já foi feito o ajuste da mesma e disponibilizada para atualização. Atualize seu ACBr, faça o teste e me dê um retorno por gentileza. Abraços

Boa tarde NatyEb. Essa alteração que fiz foi para que seja possível informar mais de 1 serviço para o provedor EL, sendo que no momento de alimentar o componente ACBrNFSe na parte dos serviços eu incluo vários, e não utilizo o método "Serviço.ItemServico.Add" e sim o faço um loop com "Serviço.ItemServico.Insert(Index: Integer)" e passando os valores, então alterei a function TNFSeR.LerRps_EL para ler vários serviços também. Acredito que dessa forma seja melhor para trabalhar, pois foi passado para mim como dica por um técnico da EL e logo depois passei para Italo. Peço que dê um retorno se posicionando referente ao mesmo para que possamos deixar o componente da melhor maneira possível para utilização de todos. Segue exemplo: FMovNFSe.fdqryServicos.First; while not FMovNFSe.fdqryServicos.Eof do begin Servico.ItemServico.Insert(FMovNFSe.fdqryServicos.RecNo - 1); Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].Descricao := FMovNFSe.fdqryServicosNOME_SERVICO.AsString; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].Discriminacao := FMovNFSe.fdqryServicosNOME_SERVICO.AsString; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].CodServ := FMovNFSe.fdqryNFSeSERVICO_MUNICIPAL.AsString; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].CodLCServ := FMovNFSe.fdqryNFSeSERVICO_MUNICIPAL.AsString; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].Unidade := FMovNFSe.fdqryServicosUNIDADE.AsString; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].Quantidade := FMovNFSe.fdqryServicosQUANTIDADE.AsCurrency; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].ValorUnitario := FMovNFSe.fdqryServicosVL_UNITARIO.AsCurrency; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].ValorServicos := FMovNFSe.fdqryServicosVL_UNITARIO.AsCurrency; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].DescontoCondicionado := 0; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].DescontoIncondicionado := 0; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].ValorDeducoes := 0; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].ValorPis := FMovNFSe.fdqryServicosVL_PIS.AsCurrency; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].ValorCofins := FMovNFSe.fdqryServicosVL_COFINS.AsCurrency; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].ValorInss := FMovNFSe.fdqryServicosVL_INSS.AsCurrency; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].ValorIr := FMovNFSe.fdqryServicosVL_IR.AsCurrency; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].ValorCsll := FMovNFSe.fdqryServicosVL_CSLL.AsCurrency; Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].ValorTotal := RoundTo(FMovNFSe.fdqryServicosQUANTIDADE.AsCurrency * FMovNFSe.fdqryServicosVL_UNITARIO.AsCurrency, - 2); Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].BaseCalculo := RoundTo(FMovNFSe.fdqryServicosQUANTIDADE.AsCurrency * FMovNFSe.fdqryServicosVL_UNITARIO.AsCurrency, - 2); Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].Aliquota := vDadosNFSe.rAliqISS; case FMovNFSe.fdqryNFSeTIPO_ISS.AsInteger of 2: Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].ValorIss := FMovNFSe.fdqryServicosVL_ISS_RET.AsCurrency else Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].ValorIss := FMovNFSe.fdqryServicosVL_ISS.AsCurrency; end; if vDadosNFSe.rAliqISS > 0 then Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].Tributavel := snSim else Servico.ItemServico[FMovNFSe.fdqryServicos.RecNo - 1].Tributavel := snNao; FMovNFSe.fdqryServicos.Next; end;

Boa tarde Italo. Já finalize toda parte de implementação necessária para o Provedor EL, assim que estiver disponível me avise para que eu te envie os arquivos e passe tudo que alterei para que seja avaliado o atualizado.

Italo, Na unit pnfsNFSeW_EL as linhas 248 e 249 não foram alteradas, ainda estão como tcDe2, e deve ser pelo menos tcDe4 para esse provedor. Estou enviando a unit alterada para que você possa fazer o merge. Fico no aguardo de retorno. pnfsNFSeW_EL.pas

Italo. Sim, apaguei todos os arquivos para garantir e baixei tudo novamente, todos estão com a bolinha verde e esta marcado a opção para remover os arquivos antigos.

Italo. Estou com problema na instalação do ACBr, no pacote ACBr_NFe.dpk unit pcnNFeW.pas. Segue log em anexo. log_Delphi_10.1_Berlin.txt

Italo. Farei os testes e te darei um retorno.

Italo. Verifiquei aqui e realmente foi falha minha, é campo inteiro. Estou encaminhando a uses alterando para o que estava, quantidade como tipo inteiro. pnfsNFSeW_EL.pas

Italo. Ok. Vou me ajustar aqui na uses ACBrNFSe. Fiz uma nova alteração da uses pnfsNFSeW_EL alterando as casas decimais de alguns campos de acordo com o manual da EL na procedure GerarListaServicos e GerarValoresServico. Segue em anexo. pnfsNFSeW_EL.pas

Bom dia Italo. Segue em anexo as seguintes uses que foram alteradas até o momento: - ACBrNFSe - Alterei a function "LinkNFSe" para retornar o link, preparando para o provedor EL e Município de Colatina. - pnfsNFSe - Inclui a propriedade "FOutrosDescontos" na classe "TValores". - pnfsNFSeW_EL - Alterei a procedure "GerarValoresServicos" para passar o valor de OutrosDescontos. Fico no aguardo da resposta para saber se foi feito o merge e também precisamos ver como faremos a parte da impressão. Será que podemos colocar o componente para não substituir o XML quando a nota é processada, mas somente acrescentar os dados recebidos? Assim ficará correto. ACBrNFSe.pas pnfsNFSe.pas pnfsNFSeW_EL.pas

Boa tarde Italo. Fiz uma alteração na uses ACBrNFSe para obter o link da NFSe da EL no Município de Colatina. Deseja que eu envie a uses modificada para você analisar e fazer um merge?

Bom dia Italo. Desculpe ter adicionado apenas o PDF, mas é pq como eu disse, antes do envio ele esta com o XML do Lote RPS no componentes e imprimir faltando as informações que vem no retorno após a emissão, que é o normal. E após o envio o componente carrega o XML da NFSe, que tem o retorno apenas com as Tag's dataProcessamento, idNota, idRps, numero, rpsNumero e situação, assim nada mais é impresso além dessas Tags. Estou te enviando o arquivo XML e PDF de antes do envio, e após o envio. Após o envio.xml Antes do envio.pdf Antes do envio.xml Após o envio.pdf

Italo. Atualizei e funcionou o ConsultaLoteAposEnvio = True. Mas a função de imprimir não esta funcionando correto, pois quando imprimi o xml que é carregado é o de retorno da NFSe, que só vem alguns dados. Segue PDF em anexo, do retorno das funções: ACBrNFSe1.Enviar(pLote, True); ACBrNFSe1.NotasFiscais.Imprimir; Estou fazendo de maneira errada? 00180156000000000002165-nfse.pdf

Italo. E referente a opção ConsultaLoteAposEnvio? Não esta sendo feito automático, tenho que fazer manualmente. O que podemos fazer?

Ok Italo. Segue em anexo. pnfsNFSeW_EL.pas

Italo, Se eu deixar a opção ConsultaLoteAposEnvio marcada não me aparece nada, mas se eu executar os métodos ConsultarSituacao e ConsultarLoteRps me da o retorno do que esta com erro. Ai fiz o ajuste e enviou normalmente. Referente ao ajuste da linha 271 da uses pnfsNFSeW_EL referente a ISS Retido, vc vai fazer o ajuste para atualização?

Italo. Eu criei no ano passado uma DLL para comunicação com o provedor EL, e acabei de tentar fazer o envio por ela e funcionou. Vou enviar os arquivos em anexo separadamente. Obs.: Caso queira o código fonte da minha DLL eu envio. Desde já, agradeço a atenção. NFSe baixada da prefeitura.xml NFSe gerada pela minha DLL para ser enviada.xml Arquivos gerados pelo ACBr.rar

Italo, Deixei a propriedade ConsultarLoteAposEnvio como True.

Italo. Tentei vários testes aqui e ainda me retorna a mesma situação com código 4, e nenhum registro de retorno, como número ou código de verificação. Verifiquei também que na uses pnfsNFSeW_EL na linha 271 tem que ser feito uma ajuste da seguinte maneira: CÓDIGO ATUAL: Gerador.wCampoNFSe(tcDe2, '#80', 'ValorIssRetido' , 01, 15, 0, NFSe.Servico.Valores.ValorIss, ''); NOVO CÓDIGO: Gerador.wCampoNFSe(tcDe2, '#80', 'ValorIssRetido' , 01, 15, 0, NFSe.Servico.Valores.ValorIssRetido, ''); Pode me dar mais alguma dica? Segue últimos arquivos e um arquivo XML da NFSe processada, que baixei no site da prefeitura. NotasFiscais.xml 3218010523054000018556000000000000481-rps.xml 481-sesF.xml 481-sesF-soap.xml 000000692439-con-sit.xml 000000692439-con-sit-soap.xml 000000692439-sit.xml 000000692439-sit-soap.xml 481-abr-ses.xml 481-abr-ses-soap.xml 481-env-lot.xml 481-env-lot-soap.xml 481-fec-ses.xml 481-fec-ses-soap.xml 481-rec.xml 481-rec-soap.xml 481-sesA.xml 481-sesA-soap.xml

Italo. Farei novos testes agora e te darei um retorno assim que finalizar.

Italo. Será que o erro é nessas tag's que não informo? //Servico.CodigoCnae //Servico.CodigoTributacaoMunicipio //Servico.Discriminacao

Italo, ainda não consigo enviar e o retorno aparece em branco. Segue novos arquivos em anexo. 481-fec-ses.xml 481-fec-ses-soap.xml 481-rec.xml 481-rec-soap.xml 481-sesA.xml 481-sesA-soap.xml 481-sesF.xml 481-sesF-soap.xml 000000692340-con-sit.xml 000000692340-con-sit-soap.xml 000000692340-sit.xml 000000692340-sit-soap.xml 481-abr-ses.xml 481-abr-ses-soap.xml 481-env-lot.xml 481-env-lot-soap.xml O interessante é que o retorno vem com código 4, que pelo que vi significa que foi enviado e processado. Mas vou no site da prefeitura para consultar e não tem nada.

Bom dia Italo. Farei agora e darei um retorno.