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?