Pesquisar na Comunidade

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?