" is not a valid integer value

[Alexsandro Lopes]

ao tentar imprimir este arquivo anexado ele da o erro , mesmo ele estando todo correto e sendo uma nota valida nao consigo imprimir.. oque eu estou fazendo de errado  ou eu nao vou poder imprimir esse tipo de aquivo, podendo somente a impressao dos aquivos RPS 

eu utilizo o fast report

 

nota_4953.xml

Editado 25 Janeiro, 2016 por Alexsandro Lopes

[Agnaldo Prates]

Isso ocorre em qual Report?

 

[Alexsandro Lopes]

Agora, Agnaldo Prates disse:

Isso ocorre em qual Report?

 

 

fast report 5.0 ? voce tentou imprimir o xml que eu enviei ... acho que o problema nao esta no fast report.

ainda nao consegui achar  mais tenho quase certeza que o problema e no layout desse aquivo ai que eu mandei pois ele nao e um RPS e sim uma NFSe ja autorizada pelo provedor aqui da cidade de fortaleza...

 

[Alexsandro Lopes]

procedure TACBrNFSeDANFSeFR.CarregaDados(ANFSe: TNFSe);
begin
  CarregaIdentificacao(ANFSe);
  CarregaPrestador(ANFSe);
  CarregaTomador(ANFSe);
  CarregaServicos(ANFSe);
  CarregaItensServico(ANFSe);
  CarregaParametros(ANFSe);   quando passa por aqui da o erro ...

[Agnaldo Prates]

Boa tarde.

Está normal sim, segue o Danfe em Fortesreport.

Com absoluta certeza seu Fast deve estar com algum problema.

NFS-e.pdf

Editado 25 Janeiro, 2016 por Agnaldo Prates

[Alexsandro Lopes]

12 horas atrás, Agnaldo Prates disse:

Boa tarde.

Está normal sim, segue o Danfe em Fortesreport.

Com absoluta certeza seu Fast deve estar com algum problema.

NFS-e.pdf

desta forma que voce me mando o pdf aqui em fast também faz o problema e com os aquivos que baixo do prvedor manualmente segue em anexo arquivo xml com dados de uma nfse valida e autorizada .. 

nota_4939.xml

[Agnaldo Prates]

Na linha 706 do arquivo ACBrNFSeDANFSeFR.pas, proceda a seguinte alteração:

        FieldByName('CodigoMunicipio').AsString     := CodigoMunicipio;
//        FieldByName('CodigoMunicipio').AsString     := IfThen(CodigoMunicipio <> '', CodCidadeToCidade(StrToInt(CodigoMunicipio)), '');
 

Isso resolve o seu problema.

[hleorj]

@Agnaldo Prates,  nos ajude a atualizar o código. postando a sugestão de atualização.

Grato.

[Alexsandro Lopes]

3 horas atrás, Agnaldo Prates disse:

Na linha 706 do arquivo ACBrNFSeDANFSeFR.pas, proceda a seguinte alteração:

        FieldByName('CodigoMunicipio').AsString     := CodigoMunicipio;
//        FieldByName('CodigoMunicipio').AsString     := IfThen(CodigoMunicipio <> '', CodCidadeToCidade(StrToInt(CodigoMunicipio)), '');
 

Isso resolve o seu problema.

obrigado vou colocar em período de testes e dou uma resposta final mais desde ja muito obrigado.

 

[Agnaldo Prates]

2 horas atrás, hleorj disse:

@Agnaldo Prates,  nos ajude a atualizar o código. postando a sugestão de atualização.

Grato.

Bem, o erro “is not a invalid integer value” está ocorrendo no caso do FastReport em decorrência da falta de valor no código do município no parâmetro Servico.

with Servico do

      begin
       FieldByName('CodigoMunicipio').AsString     := IfThen( CodigoMunicipio <> '', CodCidadeToCidade(StrToInt(CodigoMunicipio)), '0');
       FieldByName('ExigibilidadeISS').AsString    := ExigibilidadeISSDescricao(ExigibilidadeISS);
       FieldByName('MunicipioIncidencia').AsString := CodCidadeToCidade(StrToIntDef(CodigoMunicipio, 0));
     end;

Neste momento, o código do município chega em branco, e, consequentemente ao tentar converter para inteiro, ocorre o erro.
Importante ressaltar que, este erro eu apenas consegui reproduzi-lo ao tentar “Imprimir Danfe”, se for gerado uma NFSe, e imprimir, o erro não ocorre.

O fato é que, como na leitura do arquivo xml, o campo relativo ao Código do Município não é alimentado, assim, ao chamar o método de conversão para inteiro, o erro é disparado.

Sugestão.

No Demo, procedi a seguinte alteração no momento que vou imprimir o DANFE, uma vez carregado o arquivo XML alimentando o componente, realizo as verificações abaixo:

 

   if ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.CodigoMunicipio='' then
       ACBrNFSe1.NotasFiscais.Items[0].NFSe.Servico.CodigoMunicipio :=  edtCodCidade.Text;

   if ACBrNFSe1.NotasFiscais.Items[0].NFSe.OrgaoGerador.CodigoMunicipio='' then
      ACBrNFSe1.NotasFiscais.Items[0].NFSe.OrgaoGerador.CodigoMunicipio :=  edtCodCidade.Text;

Mas é claro, isso é uma solução paliativa para evitar o erro, antes porem se faz necessário identificar os motivos em que a variável CodigoMunicipio está ficando em branco, depois com mais tempo vou analisar o código para saber exatamente o que é.

 

[hleorj]

@Agnaldo Prates, poderia anexar um arquivo de nota de serviço ? 

[Agnaldo Prates]

3 minutos atrás, hleorj disse:

@Agnaldo Prates, poderia anexar um arquivo de nota de serviço ? 

http://www.projetoacbr.com.br/forum/applications/core/interface/file/attachment.php?id=21107

Está neste tópico mesmo.