Pegar O Provedor Dentro Do Danfe?

[bZottis_IG]

Oi, gostaria de saber se tem como pegar o nome do provedor no arquivo "ACBrNFSeDANFSeRLRetrato.pas".

pois preciso melhorar uma rotina que desenvolvi.

 

[Italo Giurizzato Junior]

Bom dia zottis,

 

Você pode fazer da seguinte forma:

 

1. Definir uma variável:

    FProvedor: TnfseProvedor;

 

2. Atribuir a ela o provedor:

    FProvedor := StrToProvedor(Ok, CodCidadeToProvedor(StrToIntDef(FNFSe.PrestadorServico.Endereco.CodigoMunicipio, 0)));

 

[bZottis_IG]

Obrigado Pela resposta Italo, e em que lugar seria mais "Elegante" colocar a variável?

 

no ancestral(TfrlDANFSeRL) ou no Próprio relatório("ACBrNFSeDANFSeRLRetrato.pas")?

[Italo Giurizzato Junior]

Zottis,

 

Na versão feita em Quick Report foi colocado no próprio relatório.

[bZottis_IG]

Oi Italo, consegui fazer fiz igual ao do Quick.

para funcionar, precisei declarar antes da função imprimir o código da Cidade 

ACBrNFSe1.NotasFiscais.Items[0].NFSe.PrestadorServico.Endereco.CodigoMunicipio     := dadosCad.dtsNFSEAcessosCODMUNICIPIO.AsString;

ACBrNFSe1.NotasFiscais.Imprimir;

 

Valeu Italo.

 

agora ficou certinho a impressão do QRCode do ProvedorBetha