[DANFE cortando informações de "DADOS ADICIONAIS"]

@Thiago FD, post o arquivo XML , q está testando.

Arquivos de testes ,  sempre possuem informações desnecessárias.

Utilizando os demos terá uma boa noção do que irá acontece.

Post o XML.

[DANFE cortando informações de "DADOS ADICIONAIS"]

@Thiago FD,

Vai imprimir sempre. 

Ps : Use a Força ( Leia o código fonte , estude os demos (..Acbr\Exemplos\ACBrDFe\ACBrNFe\Delphi DANFe FR ) )

[DANFENFCe Fast Report - [DadosProdutos."VUnCom"]]

30/01/2018
-- DANFeNFCe3_50 DANFeNFCe4_10 DANFeNFCeImagemElgin DANFeNFCeA4 DANFeNFCe4_20
   DANFeNFCe[Reduzida] DANFeNFCe --- 
[-] Alterados para apresentar o campo Valor comercial
      Por : Henrique Leonardo
@beretta   , fiz somente ajustes no campo.. qualquer outra alteração ou sugestão não foi aplicado ao SVN.

Por favor, efetue os devidos testes.

Grato 

[Erro impressão DANFe]

Bom dia.

Tentou usar o arquivo danferetratonovo.fr3 ?

[DANFE cortando informações de "DADOS ADICIONAIS"]

Favor utilizar o arquivo danferetratonvo.fr3 , na sua aplicação de Produção. Outras versões , possuem bugs não corrigidos pela equipe do ACBr e colaboradores.

Grato

 

[Calculo de tributos automático na NFe]

O nfecalc ( desenvolvjdo por @hleorj ) , foi um exercício de  cálculos sem integração com ACBr.

Acho existe um demo bem antigo no ACBr. Acho que merece uma nova atualização.

 

[Campo de Observações Complementares]

Melhor seguir a minha dica ou desista de usar fastreport.

[Campo de Observações Complementares]

25 minutos atrás, Roberto Oliveira disse:

Fastreport

DanfeRetratoNovo.fr3 não tera problemas

[Atualização NCM]

Na receita do seu estado , existe a tabela .

[CASAS DECIMAS NA QUANTIDADE NFE]

uma dica

 

[Erro ao imprimir DANFE em PDF utilizando Fortes Rerport]

Se divirta

procedure TDanfe.ImprimeDanfe( sXmlNome : String ; iNumeroCopias: Integer; bPreview, bPdf: Boolean; sProtocolo: String );
Var
  iTanProtocolo : Integer;
begin
  iTanProtocolo := Length( sProtocolo );
  with GlobalValues do
  begin
    With OBjDmDanfe.ACBrNFe1 do
    begin
      Configuracoes.Arquivos.Salvar := false;
      Configuracoes.Arquivos.AdicionarLiteral := false;
      Configuracoes.Arquivos.SepararPorAno    := false;
      Configuracoes.Arquivos.SepararPorCNPJ   := false;
      Configuracoes.Arquivos.SepararPorDia    := false;
      Configuracoes.Arquivos.SepararPorMes    := false;
      Configuracoes.Arquivos.SepararPorModelo := false;
      NotasFiscais.Clear;
      NotasFiscais.LoadFromFile( sXmlNome );
      OBjDmDanfe.ACBrNFeDANFEFR1.TributosFonte := 'IBTP';
      OBjDmDanfe.ACBrNFeDANFEFR1.ImprimirUnQtVlComercial  := iuComercial;
      OBjDmDanfe.ACBrNFeDANFEFR1.ImprimirTotalLiquido     := False;
      OBjDmDanfe.ACBrNFeDANFEFR1.ExibirTotalTributosItem  := False;
      OBjDmDanfe.ACBrNFeDANFEFR1.fastfile                 := ExtractFilePath( Application.ExeName) +'Dll\DANFeRetratonovo.fr3';
      OBjDmDanfe.ACBrNFeDANFEFR1.ShowDialog               := false;
      OBjDmDanfe.ACBrNFeDANFEFR1.ExibeCampoFatura         := (NotasFiscais.Items[0].NFe.Ide.indPag <> ipOutras);
      danfe := OBjDmDanfe.ACBrNFeDANFEFR1;
      with danfe do
      begin
        Logo          := LogoEmpresa.Logo.DataString;
        MostrarStatus := false;
        if ( iTanProtocolo > 5) then
        begin
          NFeCancelada := true;
          ProtocoloNFe := sProtocolo;
        end;
        Email           := Emissor.Email;
        Fax             := Emissor.EMI_FAX;
        Sistema         := 'Desenvolvido por [email protected]';
        Site            := Emissor.Site;
        PathPDF         := PastaTemp;
        MostrarPreview  := bPreview;
        if bPreview then
          NumCopias := 1
        else
          NumCopias := iNumeroCopias;
      end;
      if bPdf then
        NotasFiscais.ImprimirPDF
      else
        NotasFiscais.Imprimir;
    end;
  end;
end;

 

[NFe 4.0 - Mudança para atender nova tag pST para CST 60]

@Adryelle,  estamos estudando a melhor implementação do caso.

Em breve teremos a solução 

Grato pela sua contribuição.

 

[padronização do preview para o NF-e Fast]

Existe a mesma solução para fortes report ? 

[Banda Duplicatas (DanfeRetratoNovo.fr3)]

@Agnaldo Prates, teremos que ter outra opinião.

@Juliomar Marchetti, @BigWings podem fazer alguns no arquivo f3

[Banda Duplicatas (DanfeRetratoNovo.fr3)]

@Agnaldo Prates, não obtive os mesmos resultados em meus testes. Fiz algumas alterações no fr3 anexo.

Poderia efutar alguns no mesmo

Grato

DANFeRetratoNovo.fr3

[Banda Duplicatas (DanfeRetratoNovo.fr3)]

@Agnaldo Prates, Segue as diferenças na imagem que afetam o comportamento. A direita o seu arquivo fr3.

[Banda Duplicatas (DanfeRetratoNovo.fr3)]

@Agnaldo Prates,  o seu arquivo fr3  , tem possui ajustes que além dos descritos acima. 

Solicito ajustes na ultima versão do svn.

No aguardo para eu praticar novos testes.

Grato

[Banda Duplicatas (DanfeRetratoNovo.fr3)]

17 horas atrás, Agnaldo Prates disse:

 

Poderia mostrar um teste com 3 duplicatas ?

[Banda Duplicatas (DanfeRetratoNovo.fr3)]

@Agnaldo Prates, sempre um PDF para facilitar o entendimento na tomada de decisão.

Grato

[Banda Duplicatas (DanfeRetratoNovo.fr3)]

@Agnaldo Prates, tem PDF.

Mostrando o resultado dos devidos ajustes propostos ?

[PROBLEMA IMPRESSÃO DANFE PAISAGEM]

Poderia mostra um exemplo como ficaria? 

Tente enviar o código do produto sem os traços 

Ex.

De 0000-0000-0000

Para 0000 0000 0000

 

 

[Controle de Concorrencia no Firebird]

Segue outras ideias 

procedure TDm.AtribuiId(Genname, Campo: String; DataSet: TDataSet);
begin
  if dataset.State in [Dsinsert] then
    Dataset.FieldByName(Campo).AsInteger := ProximoId(Genname);
end;


function TDm.ProximoId(Genname: String): Integer;
Var
  Resultset : TcustomSqlDataset;
  Sqlstmt   : String;
begin
  SqlStmt   := 'select gen_id('+Genname+',1)as Id From RDB$DATABASE;';
  Resultset := nil ;
  result    := 0;
  Try
    SQLConnection1.Execute(SqlStmt,nil,@Resultset);
    if Assigned(Resultset) then
    begin
      result := Resultset.fieldbyname('id').AsInteger;
    end;
  Finally
    Resultset.Free;
  end;
end;

usando 

procedure TDm.tbAtividadeBeforePost(DataSet: TDataSet);
begin
  AtribuiId('GEN_ATIVIDADE_ID', 'ICODIGOATIVIDADE', DataSet);
end;

procedure TDm.tbAreaBeforePost(DataSet: TDataSet);
begin
 AtribuiId('GEN_AREA_ID', 'IAREADEATUACAO', DataSet);
end;

procedure TDm.tbPrepostoBeforePost(DataSet: TDataSet);
begin
  AtribuiId('GEN_PREPOSTO_ID', 'ICODIGOPREPOSTO', DataSet);
end;

 

[Pis/cofins No Cabeçalho Danfe]

@Luciano Bárbara, Não está previsto no manual de integração apresentar os dados ( Pis / cofins ) .

Utilize campo de informações adicionas para apresentar a(s) informação(ões) que deseja.

Grato.

[Problema com impressão dos dados adicionais Fortes Report]

Post o xml .. 

Dever ter alguns caracteres estranhos ( CRTL + C --> CRTL + V ) 

[NFE Versão 4.0 - alterações no DANFE]

03/11/2017
-- ACBrNFeDANFEFRDM --
[*] Ajuste para apresentar data de recebimento em Delphi 7 
        por: BigWings
 

Favor executarem os devidos testes