Correção e inclusão de campos na impressão do DANFSE

[diogo_maxx]

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;

 

[Juliomar Marchetti]

Anexe o arquivo caso queira contribuir para que analisemos !

[diogo_maxx]

Boa tarde Juliomar, 

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

Segue anexo.

ACBrNFSeDANFSeFR.pas

[Juliomar Marchetti]

  Em 12/08/2016 at 20:42, diogo_maxx disse:

Boa tarde Juliomar, 

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

Segue anexo.

ACBrNFSeDANFSeFR.pasFetching info...

Expandir  

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

[BigWings]

  Em 13/08/2016 at 12:45, Juliomar Marchetti disse:

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

Expandir  

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

Expandir  

 

[Juliomar Marchetti]

  Em 15/08/2016 at 11:40, BigWings disse:

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

 

Expandir  

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

[diogo_maxx]

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. 

[BigWings]

  Em 15/08/2016 at 12:05, 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

Expandir  

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?

[Juliomar Marchetti]

  Em 15/08/2016 at 12:19, 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. 

Expandir  

Bom dia

fiz o merge e disponibilizei

favor testar!

Obrigado pela alteração!

[diogo_maxx]

 

  Em 15/08/2016 at 12:59, Juliomar Marchetti disse:

Bom dia

fiz o merge e disponibilizei

favor testar!

Obrigado pela alteração!

Expandir  

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

Obrigado.