Provedor Aspec

[GuilhermeAraujo]

Boa tarde, para o provedor ASPEC, tive que realizar uma alteração no fonte, acho que seria válido adicionar no SVN;

 

 

function TNFSeW_Aspec.GerarLocalPrestacaoServico: TACBrJSONObject;
begin
  if nfse.LogradouLocalPrestacaoServico = llpPrestador then
     Result := TACBrJSONObject.Create
                 .AddPair('codIBGE', StrToInt(NFSe.Prestador.Endereco.CodigoMunicipio))
  else
   Result := TACBrJSONObject.Create
                 .AddPair('codIBGE', StrToInt(NFSe.Tomador.Endereco.CodigoMunicipio))
end;

 

att

Aspec.GravarJson.pas

[Italo Giurizzato Junior]

Boa tarde @GuilhermeAraujo,

Muito obrigado pela colaboração, já foi criado a tarefa ACBR-8259  para analise.

[Italo Giurizzato Junior]

Boa tarde @GuilhermeAraujo,

Já esta no SVN.