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;