Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3021 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Boa tarde. 

A informação da série da nota, não está sendo levada separadamente para o danfse. Observando o código do componente pude notar que o mesmo não está preenchendo o campo "Serie" do clientdataset para impressão do danfse. Gostaria que adicionassem a linha e alterassem o tamanho do campo "Serie" do clientdataset para 5.

 cdsIdentificacao := TClientDataSet.Create(nil);
  with cdsIdentificacao do
  begin
    Close;
    with FieldDefs do
    begin
      Clear;
      Add('id', ftString, 10);
      Add('Numero', ftString, 16);

      Add('Serie', ftString, 3); => Alterar o valor para 5.

      Add('Tipo', ftString, 1);
      Add('Competencia', ftString, 7);
      Add('NumeroNFSe', ftString, 16);
      Add('NFSeSubstituida', ftString, 15);
      Add('DataEmissao', ftString, 10);
      Add('CodigoVerificacao', ftString, 15);
    end;
    CreateDataSet;
    LogChanges := False;
  end;
procedure TACBrNFSeDANFSeFR.CarregaIdentificacao(ANFSe: TNFSe);
begin
  with cdsIdentificacao do
  begin
    EmptyDataSet;
    Append;

    with ANFSe do
    begin
      FieldByName('Id').AsString                := IdentificacaoRps.Numero + IdentificacaoRps.Serie;
      FieldByName('Numero').AsString            := FormatarNumeroDocumentoFiscalNFSe(IdentificacaoRps.Numero);

      FieldByName('Serie').AsString             := IdentificacaoRPS.Serie; => Adicionar esta linha

      FieldByName('Competencia').AsString       := FormatDateTime('MM"/"yyyy', DataEmissao ) ;
      FieldByName('NFSeSubstituida').AsString   := FormatarNumeroDocumentoFiscalNFSe(NfseSubstituida);
      FieldByName('NumeroNFSe').AsString        := FormatarNumeroDocumentoFiscalNFSe(Numero);
      FieldByName('DataEmissao').AsString       := FormatDateBr(DataEmissao);
      FieldByName('CodigoVerificacao').AsString := CodigoVerificacao;
    end;
    Post;
  end;
end;

 

  • Moderadores
Postado
16 horas atrás, diogo_maxx disse:

Boa tarde Juliomar, 

Fiz mais algumas alterações na unit, estou enviando a mesma para analise. 

Segue anexo.

ACBrNFSeDANFSeFR.pas

Baseou-se em algum lugar para aplicar essa alteração do tamanho do campo de serie?

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

  • Moderadores
Postado
Em 13/08/2016 at 08:45, Juliomar Marchetti disse:

Baseou-se em algum lugar para aplicar essa alteração do tamanho do campo de serie?

Acredito que o layout ABRASF já sirva como base.

http://www.abrasf.org.br/arquivos/files/NFSE-NACIONAL_Manual_De_Integracao versao 2-02.pdf

Citar

tsSerieRps C    Número de série do RPS 5

 

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

  • Moderadores
Postado
24 minutos atrás, BigWings disse:

No caso gostaria de saber em qual provedor que ele se baseou e o manual!

tu chegou a implementar isso ou foi ele?

pois esse manual eu conheço

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

Postado

Bom dia  Juliomar. 

O provedor aqui da cidade é o PRODATA e a série da nota é "UNICA" em extenso. 

Olhando o layout da ABRASF 2.1 a série realmente tem o tamanho até 5 digitos. 

  • Curtir 1
  • Moderadores
Postado
32 minutos atrás, Juliomar Marchetti disse:

No caso gostaria de saber em qual provedor que ele se baseou e o manual!

tu chegou a implementar isso ou foi ele?

pois esse manual eu conheço

Implementei um outro provedor (Agili) que também tem 5 caracteres na série do Rps.

Se for incluir o campo no DANFSe vai ter que atender a todos, não?

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

  • Moderadores
Postado
39 minutos atrás, diogo_maxx disse:

Bom dia  Juliomar. 

O provedor aqui da cidade é o PRODATA e a série da nota é "UNICA" em extenso. 

Olhando o layout da ABRASF 2.1 a série realmente tem o tamanho até 5 digitos. 

Bom dia

fiz o merge e disponibilizei

favor testar!

Obrigado pela alteração!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

Postado

 

5 horas atrás, Juliomar Marchetti disse:

Bom dia

fiz o merge e disponibilizei

favor testar!

Obrigado pela alteração!

Juliomar, fiz os testes aqui e está tudo ok!

Obrigado.

  • Este tópico foi criado há 3021 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.