Competencia ACBr NFSe

[Werberth]

bom dia, 

estou com um problema na hora de gerar nfse com competência anterior, seto o parâmetro  "Competencia" mas o mesmo não é obedecido,

 

segue um o trecho do código.

 

   with NotasFiscais.Add.NFSe do
      begin
        IdentificacaoRps.Numero := FormatFloat('#########0', StrToInt( AIdNFSe ));

         // Para o provedor ISS.NET em ambiente de Homologação mudar a série para '8'
        IdentificacaoRps.Serie := 'A';

        //  Competencia := StrToDate('30/08/2013');

          // TnfseTipoRPS = ( trRPS, trNFConjugada, trCupom );
        IdentificacaoRps.Tipo := trRPS;

        DataEmissao :=  now;

        Competencia := '05/05/2016';

 

 

alguém poderia me ajudar?

servidor utilizado "WEBISS" Palmas TO

verifiquei no Código ACBR e o mesmo seta a data de competência com a data de emissão!

 

procedure TACBrNFSeDANFSeFR.CarregaIdentificacao(ANFSe: TNFSe);
begin
  with cdsIdentificacao do
  begin
    EmptyDataSet;
    Append;

    with ANFSe do
    begin
            FieldByName('Id').AsString                := IdentificacaoRps.Numero + IdentificacaoRps.Serie;
            if(FormatarNumeroDocumentoNFSe) then 
              FieldByName('Numero').AsString            := FormatarNumeroDocumentoFiscalNFSe(IdentificacaoRps.Numero) 
            else
              FieldByName('Numero').AsString            := IdentificacaoRps.Numero;
      FieldByName('Serie').AsString             := IdentificacaoRPS.Serie;
            FieldByName('Competencia').AsString       := FormatDateTime('MM"/"yyyy', DataEmissao ) ;

            if(FormatarNumeroDocumentoNFSe) then
              FieldByName('NFSeSubstituida').AsString   := FormatarNumeroDocumentoFiscalNFSe(NfseSubstituida)
            else
              FieldByName('NFSeSubstituida').AsString   := ANFSe.NfseSubstituida;

            if(FormatarNumeroDocumentoNFSe) then
              FieldByName('NumeroNFSe').AsString        := FormatarNumeroDocumentoFiscalNFSe(Numero) 
            else
              FieldByName('NumeroNFSe').AsString        := ANFSe.Numero;
            if(Provedor = proGINFES ) then
                FieldByName('DataEmissao').AsString       := FormatDateTimeBr(ANFSe.DataEmissao) 
            else
                FieldByName('DataEmissao').AsString       := FormatDateBr(DataEmissao);
      FieldByName('CodigoVerificacao').AsString := CodigoVerificacao;
    end;
    Post;
  end;
end;

alguém tem alguma solução?

[Italo Giurizzato Junior]

Bom dia Werberth,

O código que você postou se refere a impressão do DANFSE em Fast Report, correto?

Pois bem o que você pode fazer é verificar se a propriedade Competencia possui um valor caso afirmativo imprimir esse valor, caso contrario utilizar o valor da propriedade DataEmissao.