Invalid variant type cast NFSe Blumenau

[Rodrigo Pachesen ApoioInf.]

Boa tarde.

Enviando NFS-e para prefeitura de Blumenau e ao buscar o retorno temos "ERRO: Invalid variant type cast"

No fonte pnfsNFSeW_ABRASFv2 Linha 883 e 884, para provedor proSimplISSv2 e preenchido o campo NFSe.Competencia, esta sendo feito a conversão para tcDat.

Porem na leitura deste campo no fonte pnfsNFSeR esta lendo como tcStr, não realizando a conversão para formato data.

Ao gerar o XML sem a Competencia, então o ACBR ao ler utiliza a data de emissão que esta no padrão data, mas se informado esta campo ou se der um load no xml para consultar o retorno, ele gera o erro.

Em anexo somente comentei "proSimplISSv2" do case para ser executado a conversão com o tcStr e o problema esta resolvido.

Anexado o font para analise.

pnfsNFSeW_ABRASFv2.pas

[Italo Giurizzato Junior]

Bom dia Rodrigo,

O XML que é lido que resulta no erro é do RPS ou da NFSe?

Você poderia anexar o XML, para que possamos analisar melhor esse problema?

[Rodrigo Pachesen ApoioInf.]

Bom dia.

Na minha aplicação segui exemplo do ACBRMonitorPlus, e para buscar o resultado do RPS realizei a sequencia abaixo.

ACBrNFSe1.NotasFiscais.LoadFromFile('c:\.....\56810-rps.xml');

e depois 

ACBrNFSe1.ConsultarNFSeporRps(parametros....);

Em seguida processo o retorno e gero uma resposta, similar ao ACBRMonitorPlus para NF-e.

Note que no RPS já esta assinado, porque eu gerei no RPS simples, e fiz o LoadFromFile no componente e depois enviei para a prefeitura, no rps que gerei eu não preencho a tag <Competencia>, o ACBR coloca a data de emissão quando não preenchido, se no envio for informado esta tag, também geraria o mesmo problema.

O xml em anexo foi enviado para produção, gerou o erro reclamado, fiz a alteração recomendada, após foi gerado nota e já esta cancelado.

Att. Rodrigo.

56820-rps.xml

[Italo Giurizzato Junior]

Bom dia Rodrigo,

Ao carregar o XML do RPS para realizar a consulta da NFS-e por RPS não vejo nenhum problema com relação a tag <Competencia>, pelo que me recordo nessa consulta ela não é utilizada pra nada.

O que não ficou claro para mim é: você gera o XML do RPS salva em disco, depois carrega para poder enviar, é isso?

Se sim, porque não gera e envia de uma vez?

[Rodrigo Pachesen ApoioInf.]

Bom dia.

Sim. Gero o XML do RPS salva em disco, depois carrega para poder enviar.

Adicionei a rotina igual ao AcbrMonitorPlus, para fazer o processo igual feito nas NF-e, isso porque tenho muitos cliente que tem o servidor que processa as notas, também porque utilizo o Delphi 7 e o ACBR não seria mais compatível.

Att. Rodrigo

[Juliomar Marchetti]

Ele tem um aviso mas funciona no delphi 7 igual

[Rodrigo Pachesen ApoioInf.]

Sim Juliomar Marchetti, continuamos com o Lazarus para fazer estes processos, porque se parar o desenvolvimento para o D7, não vou ter problemas.

Se gerar um RPS e informar a data de "Competencia", e tentar enviar utilizando o app de exemplo do ACBR, vai ocorrer o mesmo problema.

O post abaixo mostra este exemplo.

 

 

[Juliomar Marchetti]

notei que foi marcado como resolvido esse tópico.

e a msg ali é o tipo de cast, chegou a fazer o deploy e parar onde ele dispara o erro?

[Rodrigo Pachesen ApoioInf.]

Se utilizar a opção "Consultar NFSe por RPS" do app exemplo, ao importar o xml que esta no post, o erro é apresentado.

Juliomar, o erro é aprestando no fonte pnfsNFSeW_ABRASFv2 Linha 884, porque tenta converter uma string em data, e esta string não foi formata na maneria correta para data. (Se entendi corretamente sua pergunta)

[Italo Giurizzato Junior]

Boa tarde Rodrigo,

Mas vendo o XML do RPS que você anexou o conteúdo da tag Competência esta exatamente igual ao da tag DataEmissao.

Uma coisa importante, com o ACBrInstall_Trunk2 eu consigo compilar e instalar todos os componentes no D7.

 

[Rodrigo Pachesen ApoioInf.]

Boa tarde Italo

Sim, os dois campos são iguais, mas no aplicativo de exemplo do ACBR, quando realiza a opção "Consultar NFSe por RPS", vou tentar descrever abaixo a sequencia em resumo

No fonte ACBrNFSeNotasFiscais
    Na linha 1058         LerXML(AXML);    
        No Fonte - pnfsNFSeR    
            Linha 559  Leitor.rCampo(tcStr, 'Competencia');                Resultado da leitura '2020-06-19' 
            Linha 570 ou 571, Leitor.rCampo(tcDat, 'DataEmissao'); Resultado da leitura 44001     
    
    Em seguida no fonte ACBrNFSeNotasFiscais 
    Na linha 1061         GerarXML;
        No Fonte - pnfsNFSeR
            //Data de emissão
                Linha 842 - proModernizacaoPublica: Gerador.wCampo(tcDat, '#4', 'DataEmissao', 10, 10, 1, NFSe.DataEmissao, DSC_DEMI); //OK Tudo funcionando
            //Data de Competencia
                Linha 884 - proModernizacaoPublica: Gerador.wCampo(tcDat, '#4', 'Competencia', 10, 10, 1, NFSe.Competencia, DSC_DEMI);    Aqui gera o erro.  

 

Ou seja, tenta converter  o texto '2020-06-19'  para data, porque na leitura do xml, trata como texto.

Outra alternativa, seria na leitura do XML, tratar como data(tcDat)

[Italo Giurizzato Junior]

Bom dia Rodrigo,

Coloquei na minha lista de tarefas, vou analisar e assim que tiver uma solução, envio para o repositório e te aviso aqui.

[Rodrigo Pachesen ApoioInf.]

Bom dia Italo.

Obrigado pela atenção. 

[Italo Giurizzato Junior]

Bom dia Rodrigo,

Apliquei uma possível correção, já esta no repositório.

Favor atualizar os fontes e faça novos testes.

[Rodrigo Pachesen ApoioInf.]

Boa tarde Italo

Após a atualização, o erro não é mais apresentado.

Porém a conversão ficou de '2020-06-19' para '30/12/1899'.

 

[Italo Giurizzato Junior]

Bom dia Rodrigo,

Favor atualizar novamente e faça novos testes.

[Rodrigo Pachesen ApoioInf.]

Boa tarde Italo.

Perfeito, agora esta de acordo.

Obrigado pela atenção.

[Juliana Tamizou]

Obrigado por reportar.

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