Cancelamento Nfse

[dionatan]

Pessoal fui cancelar uma Nota de serviço porem esta dando o seguinte erro:

 

Não foi Possivel Cancelar a NFE.

'201400000000423' is not a valid integer value

 

Como estou programando carrego o xml em anexo 

 

  ACBrNFSe1.NotasFiscais.LoadFromFile(varCaminho);

                ACBrNFSe1.CancelarNFSe(IntToStr(varCodigoCancelamento)); //Nesse caso 1

 

Porém na Unit: ACBrNFSeWebServices.pas

 

Na linha 1807:

 

  else FDadosMsg := TNFSeG.Gera_DadosMsgCancelarNFSe(Prefixo4,

                                                       NameSpaceDad,

                                                       TNFSeCancelarNfse(Self).FNumeroNFSe,

                                                       TNFSeCancelarNfse(Self).FCnpj,

                                                       TNFSeCancelarNfse(Self).FIM,

                                                       TNFSeCancelarNfse(Self).FCodigoMunicipio,

                                                       TNFSeCancelarNfse(Self).FCodigoCancelamento,

                                                       FTagI, FTagF, FProvedor);

 

pnfsNFSeG.pas

 

class function TNFSeG.Gera_DadosMsgCancelarNFSe(Prefixo4, NameSpaceDad, NumeroNFSe,

  CNPJ, IM, CodMunicipio, CodCancelamento: String; TagI,

  TagF: AnsiString; AProvedor: TnfseProvedor = proNenhum): AnsiString;

 

else DadosMsg := '<' + Prefixo4 + 'IdentificacaoNfse>' +

                    '<' + Prefixo4 + 'Numero>' +

                      NumeroNFse +

                    '</' + Prefixo4 + 'Numero>' +

 

                    // alterado por Akai - L. Massao Aihara 12/11/2013

                   DFeUtil.SeSenao(AProvedor in [pro4R, proISSe, profintelISS, proFiorilli,proDigifred,

                                                 proVirtual, proISSDigital, proSaatri, proCoplan, proVitoria, proTecnos],

 

                    '<' + Prefixo4 + 'CpfCnpj>' +

                     '<' + Prefixo4 + 'Cnpj>' +

                      Cnpj +

                     '</' + Prefixo4 + 'Cnpj>' +

                    '</' + Prefixo4 + 'CpfCnpj>',

 

                    '<' + Prefixo4 + 'Cnpj>' +

                      Cnpj +

                    '</' + Prefixo4 + 'Cnpj>') +

 

                    '<' + Prefixo4 + 'InscricaoMunicipal>' +

                      IM +

                    '</' + Prefixo4 + 'InscricaoMunicipal>' +

                    '<' + Prefixo4 + 'CodigoMunicipio>' +

                      CodMunicipio +

                    '</' + Prefixo4 + 'CodigoMunicipio>' +

                   '</' + Prefixo4 + 'IdentificacaoNfse>' +

                   '<' + Prefixo4 + 'CodigoCancelamento>' +

 

                     // Codigo de Cancelamento

                     // 1 - Erro de emissão

                     // 2 - Serviço não concluido

                     // 3 - RPS Cancelado na Emissão

 

                     CodCancelamento +

 

                   '</' + Prefixo4 + 'CodigoCancelamento>' +

                   DFeUtil.SeSenao(AProvedor = proTecnos, '<Id>' + CNPJ + IM + IntToStrZero(StrToInt(NumeroNFse), 16) + '</Id>', '') +

                  '</' + Prefixo4 + 'InfPedidoCancelamento>';

 

 

 

o erro esta ai pois realmente 201400000000423 e muito grande para um inteiro...

 

O que posso fazer?

201400000000423.xml

201400000000423.xml

Editado 28 Janeiro, 2014 por dionatan

[dionatan]

Solucinado..

 

Alterei

 

StrToInt para StrToInt64....

 

 

Att

[Italo Giurizzato Junior]

Boa tarde Dionatan,

 

Mais uma vez obrigado, assim que possível vou disponibilizar.