Weber

Estava no layout BoletoFR porém mesmo assim tive que fazer algumas correções: Campo Agencia / Código Beneficiario imprimira 2x a agencia; Mudei o nome para Boleto237 para não dar problema com quem já esta usando e para poder ser avaliado. Segue em anexo. Boleto237.fr3

Fast Report

Amigos, em um cliente esta fazendo a validação dos boletos para o banco Bradesco e os caras estão pedindo isso: alguém já passou por isso? existe algum layout especifico para o Bradesco? Bom dia! Boletos analisados e validados. Porém se faz necessário estes ajustes: Alteração das nomenclaturas de “sacado” para “pagador” e de “cedente” para “beneficiário” Campo “Agência/Código Cedente” passa a ser denominado “Agência/Código Beneficiário”. Campo Beneficiário deve ser preenchido também o CNPJ e Endereço da Empresa. Campo local de pagamento, mencionar: “Pagável preferencialmente na Rede Bradesco ou Bradesco Expresso”. Campo agência/código beneficiário: deve ser preenchido, apenas 0356-5 / 0002308-6. Campo espécie: deve ser preenchido, R$.

Boa pergunta... vou dar uma pesquisada sobre o assunto.

Olá amigos, existe algum forma automática de incorporar o XML de carta correção ao XML original da Nota fiscal eletrotônica assim como é feito com o evento de cancelamento?

isso, meu erro era que já estava colocando o convenio junto com o nosso número, separei deu certo! Abraços.

Bom dia, Seguinte, o banco passou para meu cliente os dados e nestes estão carteira 17/019, convênio de 7 posições, porém querem que gere nosso número com 17 posições.. e estava analisando a validação do ACBR ele não aceita 17 posições na carteira 17 com convênio de 7 posições, a informação do banco esta errada? ou precisa de algum ajuste no arquivo do banco? ------------------------ Detalhamento do Convenio ----------------------------Agencia : 2011 7 - CORUPA Cart/Variacao : 17/019 SIMPLES COM REGISTRO Tipo Convenio : 4 Cliente: Numera, emite e expede Situacao : 1 Normal com retorno Nr.Convenio : 2245549 Nr.Conv.Lider : 2245549 Tipo Ret.Lider: 6 CNAB240 - Ger.Financ./Mainf-Mainf Detalhe tipo 7Posições 064 a 080: Preencher o nosso número da seguinte forma: '2245549NNNNNNNNNN' onde 'N' = numeração livre a cargo da empresa RESOLVIDO... arrumei no sistema o nosso numero para 10 posições deixando o ACBR preencher o convenio que faltava.

Em anexo.. 42160305063495000111550770000000271000000271-nfe.xml 42160305063495000111550770000000231000000230-nfe.xml

if Engine.FinalPass then begin if ( ( Trim(VarToStr(<ISSQN."vBC">)) = '' ) or ( Trim(VarToStr(<ISSQN."vBC">)) ='0') and ( Trim(VarToStr(<ISSQN."vISS">)) = '' ) or ( Trim(VarToStr(<ISSQN."vISS">)) ='0') and ( Trim(VarToStr(<ISSQN."vServ">)) = '' ) or ( Trim(VarToStr(<ISSQN."vServ">)) ='0') ) then begin ColumnFooter1.Visible := False; ColumnFooter1.Height := 0; end; end; na verdade o correto seria ficar assim: if Engine.FinalPass then begin if ( (( Trim(VarToStr(<ISSQN."vBC">)) = '' ) or ( Trim(VarToStr(<ISSQN."vBC">)) ='0')) and (( Trim(VarToStr(<ISSQN."vISS">)) = '' ) or ( Trim(VarToStr(<ISSQN."vISS">)) ='0')) and (( Trim(VarToStr(<ISSQN."vServ">)) = '' ) or ( Trim(VarToStr(<ISSQN."vServ">)) ='0')) ) then begin ColumnFooter1.Visible := False; ColumnFooter1.Height := 0; end; end; com um "(" entre os AND. Abraço.

Arquivo corrigido em anexo.. do jeito que estava mesmo arrumando os espaços não estava funcionando. Deste jeito não deu certo, arrumei uns erros e mudei a logica, em anexo o arquivo para verificação. if Engine.FinalPass then begin if ( ( Trim(VarToStr(<ISSQN."vBC">)) = '' ) or ( Trim(VarToStr(<ISSQN."vBC">)) ='0') and ( Trim(VarToStr(<ISSQN."vISS">)) = '' ) or ( Trim(VarToStr(<ISSQN."vISS">)) ='0') and ( Trim(VarToStr(<ISSQN."vServ">)) = '' ) or ( Trim(VarToStr(<ISSQN."vServ">)) ='0') ) then begin ColumnFooter1.Visible := False; ColumnFooter1.Height := 0; end; end; DANFeRetrato.fr3

Deu erro.. Vi que dia 18 foi feito um commit do arquivo DANFeRetrato.fr3 e nele ainda esta a validação do ISSQN do valor do imposto e não pelo valor do serviço, caso que acontece em casos em que o serviço não é tributado ou por algum outro motivo, o que acontece bastante aqui na nossa cidade onde sai somente o valor do Serviço sem ISSQN. if Engine.FinalPass then begin if ((Trim(VarToStr(<ISSQN."VServ">))='') or (Trim(VarToStr(<ISSQN."VServ">))='0')) then begin ColumnFooter1.Visible := False; ColumnFooter1.Height := 0; end; Deu erro.. Tem que tirar os espaços exemplo: ISSQN."vBC' >) fica ISSQN."vBC'> if Engine.FinalPass then begin if ( ( Trim(VarToStr(<ISSQN."vBC" >)) = '' ) or ( Trim(VarToStr(<ISSQN."vBC" >)) ='0') or ( Trim(VarToStr(<ISSQN."vISS" >)) = '' ) or ( Trim(VarToStr(<ISSQN."vISS" >)) ='0') or ( Trim(VarToStr(<ISSQN."vServ">)) = '' ) or ( Trim(VarToStr(<ISSQN."vServ">)) ='0') ) then begin ColumnFooter1.Visible := False; ColumnFooter1.Height := 0; end; end; Vi que dia 18 foi feito um commit do arquivo DANFeRetrato.fr3 e nele ainda esta a validação do ISSQN do valor do imposto e não pelo valor do serviço, caso que acontece em casos em que o serviço não é tributado ou por algum outro motivo, o que acontece bastante aqui na nossa cidade onde sai somente o valor do Serviço sem ISSQN. if Engine.FinalPass then begin if ((Trim(VarToStr(<ISSQN."VServ">))='') or (Trim(VarToStr(<ISSQN."VServ">))='0')) then begin ColumnFooter1.Visible := False; ColumnFooter1.Height := 0; end;

Vi que dia 18 foi feito um commit do arquivo DANFeRetrato.fr3 e nele ainda esta a validação do ISSQN do valor do imposto e não pelo valor do serviço, caso que acontece em casos em que o serviço não é tributado ou por algum outro motivo, o que acontece bastante aqui na nossa cidade onde sai somente o valor do Serviço sem ISSQN. if Engine.FinalPass then begin if ((Trim(VarToStr(<ISSQN."VServ">))='') or (Trim(VarToStr(<ISSQN."VServ">))='0')) then begin ColumnFooter1.Visible := False; ColumnFooter1.Height := 0; end; DANFeRetrato.fr3

Não, é em Jaraguá do Sul - Santa Catarina.

Em anexo.. DANFeRetrato.fr3

Olá amigos, na DANF com FAST Reporte para notas fiscais conjugas não está saindo os valor do Serviço quando o mesmo não é tributado, caso que ocorre bastante com nossos clientes. Para correção do problema poderia ser procedido com a seguinte natureza. //Anterior //if (((Trim(VarToStr(<ISSQN."vISS">))='') or (Trim(VarToStr(<ISSQN."vISS">))='0'))) then //Atual if (((Trim(VarToStr(<ISSQN."vISS">))='') or (Trim(VarToStr(<ISSQN."vISS">))='0'))) and (((Trim(VarToStr(<ISSQN."vServ">))='') or (Trim(VarToStr(<ISSQN."vServ">))='0'))) then begin end; com isso resolveria nosso problema. Grato.

Sim .. ai fica 100% Grato pela resposta! @hleorj

Amigos na impressão da DANFE no fortes reporte contem a seguinte linha: procedure TfrlDANFeRLRetrato.ISSQN; begin with FNFe.Total.ISSQNtot do begin if FNFe.Emit.IM > '' then begin rlbISSQN.Visible := True; rllISSQNInscricao.Caption := FNFe.Emit.IM; rllISSQNValorServicos.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vServ,'###,###,##0.00'); rllISSQNBaseCalculo.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vBC,'###,###,##0.00'); rllISSQNValorISSQN.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vISS,'###,###,##0.00'); end else rlbISSQN.Visible := False; end; end; Visto que exite um parâmetro para esta finalidade: MostraDadosISSQN, Pois bem, quando o parametro esta false e o Cliente possui IM ele esta imprimindo os campos da mesma forma.. minha sugestão seria que fique assim: procedure TfrlDANFeRLRetrato.ISSQN; begin with FNFe.Total.ISSQNtot do begin if (FNFe.Emit.IM > '') and (MostraDadosISSQN = True) then begin rlbISSQN.Visible := True; rllISSQNInscricao.Caption := FNFe.Emit.IM; rllISSQNValorServicos.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vServ,'###,###,##0.00'); rllISSQNBaseCalculo.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vBC,'###,###,##0.00'); rllISSQNValorISSQN.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vISS,'###,###,##0.00'); end else rlbISSQN.Visible := False; end; end; Pois tenho vários clientes que tem IM porém não fazem NF conjugada e estão reclamando dos campos desnecessários. ACBR, Desatualizado. ignorar por favor! Agora esta assim: with FNFe.Total.ISSQNtot do begin rlbISSQN.Visible := ( FNFe.Total.ISSQNtot.vISS > 0 ) and ( fMostraDadosISSQN = True ); if rlbISSQN.Visible then begin rllISSQNInscricao.Caption := FNFe.Emit.IM; rllISSQNValorServicos.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vServ,'###,###,##0.00'); rllISSQNBaseCalculo.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vBC,'###,###,##0.00'); rllISSQNValorISSQN.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vISS,'###,###,##0.00'); end; end; Porém existem empresas que são isentas de ISS, ficando o valor como zero. acho que o IF deveria ser com o valor do serviço ficando assim: with FNFe.Total.ISSQNtot do begin rlbISSQN.Visible := ( FNFe.Total.ISSQNtot.vServ > 0 ) and ( fMostraDadosISSQN = True ); if rlbISSQN.Visible then begin rllISSQNInscricao.Caption := FNFe.Emit.IM; rllISSQNValorServicos.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vServ,'###,###,##0.00'); rllISSQNBaseCalculo.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vBC,'###,###,##0.00'); rllISSQNValorISSQN.Caption := FormatFloatBr(FNFe.Total.ISSQNtot.vISS,'###,###,##0.00'); end; end;

Concordo. já é alguma coisa, tanto no CSOSN quanto na origem, no caso dos serviços é claro. Também não concordo com 900 ou 90. mas ultimamente tenho me desgastado tanto tentando explicar para muitas empresas contábeis certas coisas, que a gente acaba desanimando. Não vamos generalizar é claro tem os bons, mas esta complicado. Sem contar que quando vão te pedir alguma coisa pedem como se fossem um Deus falando com um mortal. Passam informações erradas para os clientes, procuram erros ondem não existem, inventam regras que não existem e ai temos que mostrar, explicar, desenhar.... Desculpe pelo desabafo mas desanima,

Não, em nossa cidade também aceita, corretíssimo não existem estas tag, porém na impressão da DANF quando não existe o ACBR joga como CSOSN vazio = 0 imprimindo na danfe 00 (Origem 0, CSOSN 0) queria ver pois não achei, talvez em configurar o que imprimir quando a CSOSN for fazia no meu caso sair 900 ou 90, mas tudo isso por conta de picuinha de contabilidade do cliente. Poderia até alterar os fontes e fazer para meu caso sair como eu quero, porém todo o comit do ACB ia me dar dor de cabeça sem contar que ia ficar uma gambiarra, o que pensei seria a criação de uma variavel por padrao 0, onde poderia configurar no meu caso qual padrão que desejo até em branco para não sair nada no campo na DANFE que seria o mais correto visto que serviço não tem CST e nem CSOSN..

Olá amigos, existe alguma forma de parametrizar a impressão do CSOSN para serviços pois tenho uma empresa me enchendo para que sai 900 e não 00 como é o padrão do componente..

Olá amigos tudo bem, desculpe postar aqui no fórum esta questão porém acho que aqui existam muitas pessoas que possam ter encontrado alguma solução para isso. Final de ano vem chegando e a renovação de contratos também, hoje emitidos os contratos em papel, assinamos enviamos ao cliente assina e arquivamos, será que existe alguma forma de fazer isso digitalmente, para não ter mais papel correndo.? eu assino o cliente assina digitalmente e ambos recebem via e-mail ou outro meio para arquivamento?

Boleto.Cedente.Conta := '0000023449'; Boleto.Cedente.ContaDigito := '4'; Boleto.Cedente.Agencia := 3031 Boleto.Cedente.AgenciaDigito := 0 Boleto.Cedente.CodigoCedente := 19092 Boleto.Cedente.Convenio := 19092 Boleto.Cedente.TipoInscricao := pJuridica; Boleto.Cedente.Modalidade := ''; cCarteira := 1; Conforme orientação do gerente da conta já alterei o convenio para 000001-2 e mesmo assim não deu certo. Caso precise de mais alguma informação, por favor me avise. Obrigado!

Bom dia, estou gerando boletos do SICOOB-caixa (756) e nos meus boletos o nosso número fica assim: 0000002-7 porém quem esta fazendo a homologação diz que o correto seria o DV ficar 5, assim: 000002-5 em anexo inclui uma planilha que eles me passaram. Alguém sabe se é alguma configuração ou o que posso fazer para ajustar isso. Layouts para troca de informações (2).xls

Italo, Aqui em SC estava com o mesmo problema do nosso amigo e fiz a alteração que ele comentou e deu certo, em anexo esta a unit alterada. Linha 600. ACBrNFeUtil.pas

Olá conforme solicitado segue anexo. Grato. Forum ACBR.pdf