Weber

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

Boa tarde. Layout, somente isso.

Amigos, devido a necessidade de um cliente fiz uma alteração no layout do boleto do fortes report adicionando mais um comprovante de entrega ficando opcional sendo modelo "comprovante de entrega simplificado" se puderem adicionar no SVN fico muito agradecido. ACBrBoleto.pas ACBrBoleto.pas ACBrBoletoFCFortesFr.pas

Se fizer do contra ... ai diz que indica que tem movimento porém o arquivo esta sem movimento.. mas achei o problema e foi Resolvido. O problema estava no arquivo E que era quem tinha movimento e estava marcado como sem movimento ajustando ele, o arquivo E deu certo.

Juliomar Marchetti.. o arquivo esta correto.. veja: H001|1 = sem dados H001|0 = com dados

Ao validar o SPED estou com erro no registro H, no meu arquivo esta assim: e no validador da este erro:

Conforme solicitado segue arquivo em anexo. Manual CNAB 400.pdf ACBrBancoCecred.pas Manual CNAB 400.pdf ACBrBancoCecred.pas

Conforme solicitações.. segue o manual em anexo...

for ContLinha := 1 to ARetorno.Count - 2 do begin Linha := ARetorno[ContLinha] ; if (Copy(Linha,1,1) <> '7') then Continue; Titulo := ACBrBanco.ACBrBoleto.CriarTituloNaLista; with Titulo do begin SeuNumero := copy(Linha,38,25); NumeroDocumento := copy(Linha,117,10); OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef( copy(Linha,109,2),0)); CodOcorrencia := StrToInt(IfThen(copy(Linha,109,2) = '00','00',copy(Linha,109,2))); if (CodOcorrencia = 5) or (CodOcorrencia = 6) or (CodOcorrencia = 7) or (CodOcorrencia = 8) or (CodOcorrencia = 15) or (CodOcorrencia = 46) then begin CodigoLiquidacao := copy(Linha,109,2); CodigoLiquidacaoDescricao := TipoOcorrenciaToDescricao(OcorrenciaOriginal.Tipo); end; if(CodOcorrencia >= 2) and ((CodOcorrencia <= 10)) then begin MotivoLinha:= 81; CodMotivo:= StrToInt(IfThen(copy(Linha,MotivoLinha,2) = '00','00',copy(Linha,MotivoLinha,2))); MotivoRejeicaoComando.Add(copy(Linha,MotivoLinha,2)); DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(OcorrenciaOriginal.Tipo,CodMotivo)); end; DataOcorrencia := StringToDateTimeDef( Copy(Linha,111,2)+'/'+ Copy(Linha,113,2)+'/'+ Copy(Linha,115,2),0, 'DD/MM/YY' ); Vencimento := StringToDateTimeDef( Copy(Linha,147,2)+'/'+ Copy(Linha,149,2)+'/'+ Copy(Linha,151,2),0, 'DD/MM/YY' ); ValorDocumento := StrToFloatDef(Copy(Linha,153,13),0)/100; ValorIOF := StrToFloatDef(Copy(Linha,215,13),0)/100; ValorAbatimento := StrToFloatDef(Copy(Linha,228,13),0)/100; ValorDesconto := StrToFloatDef(Copy(Linha,241,13),0)/100; ValorRecebido := StrToFloatDef(Copy(Linha,306,13),0)/100; ValorMoraJuros := StrToFloatDef(Copy(Linha,267,13),0)/100; ValorOutrosCreditos := StrToFloatDef(Copy(Linha,280,13),0)/100; NossoNumero := Copy(Linha,72,9); Carteira := Copy(Linha,107,2); ValorDespesaCobranca := StrToFloatDef(Copy(Linha,182,07),0)/100; ValorOutrasDespesas := StrToFloatDef(Copy(Linha,189,13),0)/100; if StrToIntDef(Copy(Linha,176,6),0) <> 0 then DataCredito:= StringToDateTimeDef( Copy(Linha,176,2)+'/'+ Copy(Linha,178,2)+'/'+ Copy(Linha,180,2),0, 'DD/MM/YY' ); end; end;

Amigos depois de muito sofrer eis que uma alma abençoado por Deus da uma ajuda significativa a esta caso. ao qual descrevo abaixo. Obrigado a Miria Menezes Atendente da CAF de SC. O DF é sujeito ativo do ICMS (tributo estadual) e do ISS (tributo municipal). O cadastro de contribuintes do DF é composto por contribuintes do ICMS e do ISS e tem Inscrição no CF/DF. O problema acontece quando vendemos para um prestador do serviço do DF, apesar do destinatário afirmar que não tem IE - Inscrição Estadual, a SEFAZ faz a validação do CNPJ e da IE do destinatário e vai encontrar uma IE no CF/DF e a nota fiscal será rejeitada com o código: 232 -IE do destinatário não informada. Para resolver o problema, é necessário obter a CF/DF do destinatário ou consultar o Cadastro Centralizado de Contribuintes (CCC) para descobrir qual é a IE deste destinatário. Consultas da I.E. ou CF/DF: https://www.sefaz.rs.gov.br/NFE/NFE-CCC.aspx

Muito obrigado, deu certo com o endereço de São Paulo, o que me deixa encucado é que se consultar na receita federal o endereço é outro.. Esta desinformação entre os estados e a União complicam nossa vida.

Encontrada uma solução que não faz parte das boas práticas mas resolve, emitir primeiro a devolução da NF-e dos produtos com finalidade de devolução e a NF-e da mão de obra, normal apenas para a contabilidade conseguir fazer os estornos devidos.