Alteração No Componente - Goiânia

[Lucio Bittes]

Bom dia!

 

Pesquisei aqui no fórum sobre algum tópico de alterações mas não achei. Então...

Estou implementado o NFS-e para Goiânia e achei um pequeno problema que tive que fazer adaptação do componente, para não efetuar toda vez que eu atualizar o mesmo gostaria que fosse avaliado para implantação definitiva.

 

Segue alterações.

 

Para pegar o GetLinkNFSe era passado os parâmetros.

(ACodMunicipio, ANumeroNFSe: Integer; ACodVerificacao: String; AAmbiente: Integer)

Para Goiânia temos que passar a IM para a consulta, mas para essa alteração tive que alterar essa procedure em todos os provedores. Com a alteração a nova procedure ficou assim.

(ACodMunicipio, ANumeroNFSe: Integer; ACodVerificacao, AInscricaoM: String; AAmbiente: Integer)

A classe TNFSeLinkNFSe Ficou Assim.

 

  TNFSeLinkNFSe = Class(TWebServicesBase)
  private
    FNotasFiscais : TNotasFiscais;
    FNumeroNFSe: integer;
    FCodVerif: String;
    FLink: String;
    FIM: string;
  public
    function Executar: Boolean; override;
    constructor Create(AOwner : TComponent; ANotasFiscais : TNotasFiscais); reintroduce;


    property NumeroNFSe: integer read FNumeroNFSe;
    property CodVerif: String read FCodVerif;
    property Link: String read FLink;
    property IM: string read FIM; 
  end;

Classe TACBrNFSe foi alterado a função.

function LinkNFSe(ANumeroNFSe: Integer; ACodVerificacao, AInscricaoM: String): String;

Classe TNFSeGerarLoteRps foi alterado a função.

function LinkNFSeGerada(ANumeroNFSe: Integer; ACodVerificacao, AInscricaoM: String): String;

Provedor de Goiãnia foi alterado.

 

function TProvedorGoiania.GetLinkNFSe(ACodMunicipio, ANumeroNFSe: Integer;
  ACodVerificacao, AInscricaoM: String; AAmbiente: Integer): String;
Var
   vUrlNota : string;
begin
  vUrlNota := 'http://www2.goiania.go.gov.br/sistemas/snfse/asp/snfse00200w0.asp?inscricao=' + AInscricaoM;
  vUrlNota := vUrlNota + '&nota=' + IntToStr(ANumeroNFSe) + '&verificador=' + ACodVerificacao;
  Result   := vUrlNota;
end;

 

Segue em anexo as alterações.

 

Obs: Meu repositorio estava atualizado. Fico aguardando retorno para alteração para atualizar novamente. Obrigado!

 

ACBrNFSe.rar

ACBrNFSe.rar

[Lucio Bittes]

Como a classe era virtual e os provedores override, tive que alterar em todos os provedores. Fico a disposição para quaisquer dúvidas. Mais uma vez, obrigado!

[Italo Giurizzato Junior]

Boa noite luciolt,

 

Proposta implementada no componente, favor atualizar e testar.

[Lucio Bittes]

Italo, bom dia!

 

Irei testar. Obrigado!