Ajustes - Assessor Publico

[José Jair de Oliveira]

Bom dia Italo, tudo bem?
Segue mais algumas observações das últimas atualizações do provedor AssessorPublico.

1)

Na unit AssessorPublico.LerXml.pas:
function TNFSeR_AssessorPublico.LerXmlNfse(const ANode: TACBrXmlNode): Boolean;

Linha 254

O sinal (+) deve ser (*)...está resultando em valores totais dos itens incorretos na DANFESeX

 Está ==> ValorTotal := Quantidade + ValorUnitario;  

 Correto ==> ValorTotal := Quantidade * ValorUnitario;  

 

2)

Ao carregar o XML *sem ser na consulta do lote*, usando ACBrNFSeX1.NotasFiscais.LoadFromFile, retorna erro proper UTF-8...acredito que devido a tag <LINK> ou <SERIEDESC> ou <OBSSERVICO> ou <ATIVDESC> ou <PRESTNOMERAZAO> retornarem informações acentuadas ou com caracteres codificados ...vou anexar algum retorno para seus testes.

temp.xml

[Juliomar Marchetti]

Anexe a unit alterada

[José Jair de Oliveira]

AssessorPublico.LerXml.pas

[Italo Giurizzato Junior]

Boa tarde José,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-2613

[Italo Giurizzato Junior]

Bom dia José,

Já esta no SVN.

[José Jair de Oliveira]

Boa tarde
Obrigado Italo.

Erro 1) resolvido

Erro 2) ainda permanece

Numa reimpressão da Nota no sistema, estou salvando o XML original num arquivo, carrego em outro componente, trato as codificações, etc, salvo e depois carrego no ACBrNFSeX

        QR_NOTAnfe_xml.SaveToFile(GetEnvironmentVariable('TEMP')+'\temp.xml');
        MemoResp.Lines.LoadFromFile(GetEnvironmentVariable('TEMP')+'\temp.xml');
        if ACBrNFSeX1.Configuracoes.Geral.Provedor=proAssessorPublico then
        begin
           MemoResp.Lines.Text:=TratarXmlUTF8(MemoResp.Text);
           MemoResp.Lines.SaveToFile(GetEnvironmentVariable('TEMP')+'\temp.xml');
        end;
        ACBrNFSeX1.NotasFiscais.LoadFromFile(GetEnvironmentVariable('TEMP')+'\temp.xml');

 

provedor ISSDSF (Sorocaba) não gera o erro do AssessorPublico(Votorantim)

Obrigado.

[Italo Giurizzato Junior]

Boa noite José,

Já inclui na minha lista de tarefas. TK-2624

[Italo Giurizzato Junior]

Boa tarde José,

Favor atualizar os fontes, reinstale o ACBr e faça novos testes.

[José Jair de Oliveira]

Boa tarde Italo,

Atualizei os fontes, reinstalei o ACBR e recompilei a aplicação, mas ainda retorna ERRO UTF ao ler o XML original.

Vou anexar outro para novos testes.

Outro ponto que notei.

Na impressão da DANFE, os OBS (informações complementares) não eram exibidas..o provedor AcessorPublico aparentemente não tem um campo de OBS Gerais da NF apenas a tag <OBSSERVICO> e a DANFE exibe informações do objeto NFSe.OutrasInformacoes, então ajustei a unit AssessorPublico.LerXml.pas, linha 147 a 151 (segue em anexo).

No meu envio das informações para o componente estou preenchendo os 2 campos   Servico.Discriminacao e  OutrasInformacoes com as observações da NF, onde Servico.Discriminacao chega ao WebService e registra na NF e  OutrasInformacoes apenas caso queiram visualizar a NF antes da transmissão.

A DANFE também não exibe o endereço, mas nesse caso no XML retornado do provedor, as tags estão em branco.

Obrigado.

AssessorPublico.LerXml.pas XML AcessorPublico.xml

[Italo Giurizzato Junior]

Boa tarde José,

Muito obrigado pela colaboração, já inclui na minha lista de tarefas. TK-2644

[Italo Giurizzato Junior]

Bom dia José,

Favor atualizar os fontes e faça novos testes.

[José Jair de Oliveira]

Italo, boa tarde.

Fiz os testes e tudo OK
Leitura do XML original e Observações

Essas observações eu estava fazendo nas minhas emissões de notas e agora vou atualizar o sistema em um cliente que emite com mais frequência, mas acredito que não tenhamos maiores transtornos.

Desde já meu muito obrigado pelos retornos.

Abraço

[Italo Giurizzato Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.