Pesquisar na Comunidade

pnfsNFSeW_ABRASFv2.pasFonte alterado para passar o campo competência como data e hora para o provedor 4R. já testado em produção na cidade de adamantina - sp.

Olá, estou gerando as notas de serviço eletrônica porém o campo competência, que costumava imprimir corretamente MM/AAAA agora está imprimindo -1/AAAA, conforme na imagem abaixo. Houve alguma modificação na transmissão do RPS que eu não me atentei? Atualizei os fontes pensando que podia ser falta de atualização mas não resolveu. Alguém tem alguma ideia?

Boa tarde senhores, O fonte ACBrNFSeDANFSeFR, no método CarregaIdentificacao, é preciso alterar o valor da linha a seguir, para que na impressão contemple a informação correta, quanto ao conteúdo do campo Competencia. ... FieldByName('Competencia').AsString := FormatDateTime('MM"/"yyyy', DataEmissao ) ; ... Trocar por: ... FieldByName('Competencia').AsString := Competencia; ... Sem tal alteração, a informação impressa no DANFSe não condiz com a informação do XML. Cordialmente, Wiltomar DUARTE

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?

estou tentando enviar um rps com a data de emissao de setembro / 2013 e a data de competencia de agosto / 2013 não estou conseguindo se alguem puder me dar um dica fico grato. Obrigado Paulo