hleorj

Reinstalar tudo

@geazi, [-] Correção das colunas valor do desconto e valor liquido trocadas, quando é solicitado a impressão do valor liquido; Enviado ao SVN.. Grato

Pode até ser uma programação orientada a gambiarra ( P.O.G ). Faça o alguns testes e verifique se melhorou a performance do mesmo.

Por favor , faça alguns testes .. com o arquivo anexo. ACBrNFeDANFEFRDM.pas

@ornei, revision: 11988 Atualize o ACbr. Faça novos testes .. algumas alterações foram aplicadas na Danfe retrato.

@FLEXNET, não encontrei problemas na utilização. Verifique a instalação do ACbr.

1- Faça alguns testes com o demo 2- Verifique a propriedade LarguraProd 3- Verifique se está marcado ExibirEan 4- Atualize os seus códigos 5- Se fez a 4 ,, volte ao item 1 6- Se o código do produto estive com 60 caracteres, não existe solução no ACbr. 7- Post o seu arquivo xml para analise. Obrigado, pelos seu cometários pois são de grande ajuda.

Enviando na revisão 11939. uma solução. [*] Ajustes para Habilitar ou não a Banda Fatura, através da propriedade ExibirCampoFatura. [+] Ajuste para Habilitar ou não a Banda Fatura, no caso da forma de pagamento igual a OUTROS e existir dados de fatura. Relatem novas sugestões em um novo post. Obrigado

Me add no skype : hleorj

@Ariboni, Use a danfeRetratonovo.fr3.. Ps : Notas em lotes ..não esta funcional. na parte de Numeração de Paginas / Folhas

@Waldir Paim, segue outro teste 25.rar

Faz sentido . segue meu teste de impressão..sem muita conferência. TEste.rar

Bem.. com as linhas abaixo .. não existe mas dataset controlando a impressão dos itens. procedure TfrlDANFeRLRetrato.RLBand1BeforePrint(Sender: TObject; var PrintIt: Boolean); begin inherited; with FNFe.Det.Items[FNumItem] do begin txtCodigo1.Lines.Clear; txtCodigo1.Lines.Add(TACBrNFeDANFeRL(Owner).ManterCodigo(Prod.cEAN, Prod.CProd)); rlmDescricao1.Lines.Clear; rlmDescricao1.Lines.Add(ManterXpod( Prod.XProd , FNumItem )); txtNCM1.Lines.Clear; txtNCM1.Lines.Add(Prod.NCM); txtCST1.Caption := Prod.NCM; case FNFe.Emit.CRT of crtRegimeNormal, crtSimplesExcessoReceita : txtCST1.Caption := OrigToStr(Imposto.ICMS.orig) + CSTICMSToStr(Imposto.ICMS.CST); crtSimplesNacional : txtCST1.Caption := OrigToStr(Imposto.ICMS.orig) + CSOSNIcmsToStr(Imposto.ICMS.CSOSN); end; txtCFOP1.Caption := Prod.CFOP; txtUnidade1.Caption := Prod.UCom; txtQuantidade1.Caption := TACBrNFeDANFeRL(Owner).FormatQuantidade( Prod.qCom); txtValorUnitario1.Caption := TACBrNFeDANFeRL(Owner).FormatValorUnitario( Prod.vUnCom); txtValorTotal1.Caption := FormatFloatBr(Prod.vProd, ',#0.00'); txtValorDesconto1.Caption := FormatFloatBr(ManterDesPro( Prod.vDesc ,Prod.vProd), ',#0.00'); txtBaseICMS1.Caption := FormatFloatBr(Imposto.ICMS.VBC, ',#0.00'); txtValorICMS1.Caption := FormatFloatBr(Imposto.ICMS.VICMS, ',#0.00'); txtValorIPI1.Caption := FormatFloatBr(Imposto.IPI.VIPI, ',#0.00'); txtAliqICMS1.Caption := FormatFloatBr(Imposto.ICMS.PICMS, ',#0.00'); txtAliqIPI1.Caption := FormatFloatBr(Imposto.IPI.PIPI, ',#0.00'); end; end; procedure TfrlDANFeRLRetrato.subItensDataRecord(Sender: TObject; RecNo, CopyNo: Integer; var Eof: Boolean; var RecordAction: TRLRecordAction); begin inherited; FNumItem := RecNo - 1 ; Eof := (RecNo > FNFe.Det.Count) ; RecordAction := raUseIt ; end; procedure TfrlDANFeRLRetrato.RLNFeDataRecord(Sender: TObject; RecNo, CopyNo: Integer; var Eof: Boolean; var RecordAction: TRLRecordAction); begin inherited; Eof := (RecNo > 1); RecordAction := raUseIt; end;

@Waldir Paim.. Seria está opção : Usar a lista de itens do TNFe. E temos uma outra base como seguir : ACBrDANFCeFortesFr e ACBrDANFCeFortesFrA4 Anexo segue meu teste de viabilidade da implementação. ACBrNFeDANFeRLRetrato.pas ACBrNFeDANFeRLRetrato.dfm

@Waldir Paim, to dentro em eliminar o Banco de dados da nfe Fortes Report. Inicie que faço os devidos testes de implementação.

Bem lembrado .. Poderia verificar a mesma situação na Unit ACBrNFeDANFEFRDM. cdsIdentificacao := TClientDataSet.Create(nil); FfrxIdentificacao := TfrxDBDataset.Create(nil); with FfrxIdentificacao do begin DataSet := cdsIdentificacao; OpenDataSource := False; Enabled := False; UserName := 'Identificacao'; end;

Quais as vantagens , @Waldir Paim ? {$IFDEF BORLAND} {$IF CompilerVersion > 22} FireDAC.Comp.Client, {$ELSE} DBClient, {$IFEND} {$ELSE} BufDataset, {$ENDIF} DB;

Se não post o código .. fica impossível alguém lhe passar um dica Anexe o código.

@Marcelo Calvi Belanga, fiz alguns testes e não consegui reproduzir o erro, segue anexo pdf gerado pelo Demo do Acbr. e nem visualizar e salvar em pdf. 35160668168368000105550010000107131802039452-nfe.pdf 35160668168368000105550010000107131802039452.pdf

Se você expor seu problema e mostrar que existem outro(s) post falando do assunto. Facilitaria o entendimento do seu problema. O que ficamos chateado é reler todo o post para entender o seu problema.

Para ajudar no momento : você esta adicionando varias linhas em branco. *** VALORES PERCENTUAIS APROXIMADOS RELATIVOS A CARGA TRIBUTARIA 14,26% - LEI 12.741/2012 DEC. 8.264/2014. *** ; ; ; "DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACIONAL"; "NAO GERA DIREITO A CREDITO FISCAL DE IPI"; ; "SRS. CLIENTES, FAVOR CONFERIR A MERCADORIA AO RECEBER, NAO ACEITAREMOS RECLAMACOES APOS 2 DIAS. OBRIGADA".; "PERMITE APROVEITAMENTO DO CREDITO DE ICMS NO VALOR DE R$ 21,19, CORRESPONDENTE A ALIQUOTA DE 3,41% NOS TERMOS DO ARTIGO 23 DA LC 173." removendo alguns ";' , caberia o texto sem problemas; *** VALORES PERCENTUAIS APROXIMADOS RELATIVOS A CARGA TRIBUTARIA 14,26% - LEI 12.741/2012 DEC. 8.264/2014. *** ; "DOCUMENTO EMITIDO POR ME OU EPP OPTANTE PELO SIMPLES NACIONAL"; "NAO GERA DIREITO A CREDITO FISCAL DE IPI"; "SRS. CLIENTES, FAVOR CONFERIR A MERCADORIA AO RECEBER, NAO ACEITAREMOS RECLAMACOES APOS 2 DIAS. OBRIGADA".; "PERMITE APROVEITAMENTO DO CREDITO DE ICMS NO VALOR DE R$ 21,19, CORRESPONDENTE A ALIQUOTA DE 3,41% NOS TERMOS DO ARTIGO 23 DA LC 173." @Marcelo Calvi Belanga, Sempre abra um novo post , relatando o seu problema. Grato

Explique o seu problema ou faça um novo post. @Marcelo Calvi Belanga Para facilitar o entendimento anexe PDF. O assunto do post ainda continua em estudos. Grato

@Paulo Aguiar, esta utilizando a ultima versão do SVN ?

@Paulo Aguiar, está com disposição para usar a força para testar ? Observe a informação a seguir : na unit FieldByName('ValorAcrescimos').AsString := FormatFloatBr( Prod.vProd + Prod.vOutro,'###,###,##0.00'); no fr3 calculo: [<DadosProdutos."vProd> + <DadosProdutos."VOtro">] Qual arquivo fr3 você esta usando ?

Eu tenho certeza que sim , dara problemas nas outras danfes