Filippe Maymone

Bom dia pessoal... no dia 01/06/2022 teve esse atualização no boleto Bradesco quando esta BancoEmite no manual diz que se o responsavel pela emissão é o banco e informarmos o campo nosso numero o branco utiliza o nosso numero enviado .. senão o banco gera o nosso numero.. Ai na rotina abaixo .. qunado eu informo o nosso numero 00000000009 o arquivo de remessa esta entrando 00000000000 Acredito que esse iF if (ACBrTitulo.NossoNumero = '') or (ACBrTitulo.NossoNumero = PadLeft(ACBrTitulo.NossoNumero,ACBrBanco.TamanhoMaximoNossoNum,'0')) then begin ANossoNumero := StringOfChar('0', CalcularTamMaximoNossoNumero(ACBrTitulo.Carteira, ACBrTitulo.NossoNumero) ); ADigVerificador := '0'; end Teria que ser assim if (ACBrTitulo.NossoNumero = '') Then begin ANossoNumero := StringOfChar('0', CalcularTamMaximoNossoNumero(ACBrTitulo.Carteira, ACBrTitulo.NossoNumero) ); ADigVerificador := '0'; end procedure TACBrBancoBradesco.ValidaNossoNumeroResponsavel(out ANossoNumero: String; out ADigVerificador: String; const ACBrTitulo: TACBrTitulo); begin ANossoNumero := '0'; ADigVerificador := '0'; if (ACBrTitulo.ACBrBoleto.Cedente.ResponEmissao = tbBancoEmite) then begin if (ACBrTitulo.NossoNumero = '') or (ACBrTitulo.NossoNumero = PadLeft(ACBrTitulo.NossoNumero,ACBrBanco.TamanhoMaximoNossoNum,'0')) then begin ANossoNumero := StringOfChar('0', CalcularTamMaximoNossoNumero(ACBrTitulo.Carteira, ACBrTitulo.NossoNumero) ); ADigVerificador := '0'; end else begin ANossoNumero := ACBrTitulo.NossoNumero; ADigVerificador := CalcularDigitoVerificador(ACBrTitulo); end; end else begin ANossoNumero := ACBrTitulo.NossoNumero; ADigVerificador := CalcularDigitoVerificador(ACBrTitulo); if (ANossoNumero = EmptyStr) then ADigVerificador := '0'; end; end; Manual Bradesco ACBrBancoBradesco.pas

Foi certinho com essa Unit .. valeu @Innovae Brasil Engenharia

Nossa estou com esse mesmo problema despois de atualizar ... vou baixar essa unit .. valeu ...

Fiz o seguinte .. .apos o erro .. abri o delphi mandei instalar o pacote acbrPagFor na mão .. depois abri o instalador de novo .. e mandei instalar tudo de novo .. e foi certinho....

Estou com um erro na instalação do PagFor Cleaning package cache for ACBr_PagFor.bpl Cleaning ok Compiling package C:\Componentes\ACBR\Pacotes\Delphi\ACBrPagFor\ACBr_PagFor.dpk "C:\Program Files (x86)\Embarcadero\Studio\20.0\bin\dcc32.exe" "C:\Componentes\ACBR\Pacotes\Delphi\ACBrPagFor\ACBr_PagFor.dpk" Embarcadero Delphi for Win32 compiler version 33.0 Copyright (c) 1983,2018 Embarcadero Technologies, Inc. Error: E1026 File not found: 'ACBr_PagFor.otares' Compilation failure Erro ao compilar o pacote "ACBr_PagFor.dpk". Abortando... Ocorreram erros na compilação dos pacotes. Deixei marcado para remover arquivos antigos e mesmo assim não instala. Alguem com uma dica do que pode ser... grato,

Também estou processando o retorno e fica desta forma .. CNAB 240 Conseguiu achar uma solução ? abraços,

Minha contabilidade acabou de entrar em contato com o posto fiscal e me passou a seguinte resposta: Acabo de verificar junto ao Posto Fiscal SP e nossa consultoria tributária que o SEFAZ cometeu algum erro em relação a virada da versão da NFE ontem. O XML de venda a não contribuinte não está sendo validado, pois o sistema entende que deve ser já com as novas regras, porém a Lei passa a valer somente a partir de 01.01.2016. Solicito aos clientes que aguardem novas posições, pois infelizmente esse problema independe dos esforços da parte do TI ou da área contábil.

Estou com o mesmo problema.... De ontem pra hoje ...

Obrigado Ricardo. Deu certinho, não tinha visto essa propriedade ... Agora ja fiz na gravação na tabela arredondando, totalizando e gerando o financeiro ja com o arredondamento do item a item. Deu tudo certinho .. até que enfim .. valeu por mais um .. kkk

Galera, Estou com um problema, ja tenho SAT implantado em varios clientes e tudo correndo bem. Porem tem um cliente que vende produto pesável (Restaurante por KG); Me deparei com um problema que não consigo resolver, que são as casas decimais no totalizador dos itens X Pagamento. Gerando o seguinte erro: Rejeição: Valor total do CF-e-SAT maior que o somatório dos valores de Meio de Pagamento empregados em seu pagamento. Por que o Meu total de produto esta resultando 47,2217 e o recebimento 47,22 Segue o exemplo do XML. <?xml version="1.0" encoding="UTF-8"?> <CFe> <infCFe versaoDadosEnt="0.06"> <ide> <CNPJ>16716114000172</CNPJ> <signAC>SGR-SAT SISTEMA DE GESTAO E RETAGUARDA DO SAT</signAC> <numeroCaixa>001</numeroCaixa> </ide> <emit> <CNPJ>61099008000141</CNPJ> <IE>111111111111</IE> <IM>123123</IM> <indRatISSQN>N</indRatISSQN> </emit> <dest> <CPF>29921043889</CPF> </dest> <det nItem="1"><prod> <cProd>5</cProd> <xProd>DIVERSOS LOJISTA</xProd> <NCM>99</NCM> <CFOP>5102</CFOP> <uCom>UN</uCom> <qCom>0.5370</qCom> <vUnCom>39.90</vUnCom> <indRegra>A</indRegra> </prod> <imposto> <vItem12741>2.14</vItem12741> <ICMS> <ICMS00> <Orig>0</Orig> <CST>00</CST> <pICMS>0.00</pICMS> </ICMS00></ICMS> <PIS> <PISSN> <CST>49</CST></PISSN></PIS> <COFINS> <COFINSSN> <CST>49</CST> </COFINSSN> </COFINS> </imposto> </det> <det nItem="2"> <prod> <cProd>5</cProd> <xProd>DIVERSOS LOJISTA</xProd> <NCM>99</NCM> <CFOP>5102</CFOP> <uCom>UN</uCom> <qCom>0.4460</qCom> <vUnCom>39.90</vUnCom> <indRegra>A</indRegra> </prod> <imposto> <vItem12741>1.78</vItem12741> <ICMS> <ICMS00> <Orig>0</Orig> <CST>00</CST> <pICMS>0.00</pICMS> </ICMS00></ICMS> <PIS> <PISSN> <CST>49</CST> </PISSN></PIS> <COFINS><COFINSSN> <CST>49</CST> </COFINSSN></COFINS> </imposto> </det> <det nItem="3"> <prod> <cProd>2</cProd> <xProd>REFRIGERANTE</xProd> <NCM>99</NCM> <CFOP>5102</CFOP> <uCom>UN</uCom> <qCom>2.0000</qCom> <vUnCom>4.00</vUnCom> <indRegra>A</indRegra> </prod> <imposto> <vItem12741>0.80</vItem12741> <ICMS> <ICMS00> <Orig>0</Orig> <CST>00</CST> <pICMS>0.00</pICMS> </ICMS00> </ICMS> <PIS> <PISSN> <CST>49</CST> </PISSN> </PIS> <COFINS> <COFINSSN> <CST>49</CST> </COFINSSN> </COFINS> </imposto> </det> <total> <vCFeLei12741>4.72</vCFeLei12741> </total> <pgto> <MP> <cMP>03</cMP> <vMP>47.22</vMP> </MP> </pgto> <infAdic> <infCpl>Gerado por:G-SAT Versao 1.0.0.1 - site: www.gecon.inf.br</infCpl> </infAdic> </infCFe> </CFe>

Bom dia Galera. Meu sistema ja esta com o SAT. Porem tenho um cliente que ele emite alguns cupons e começa a receber mensagem de TimeOut. e não consegue mais emitir o cupom. alguem ja passou por isso .. Segue o erro...

Italo .. Localizei o problema. Para digitar a carta de correção eu tenho um Memo, onde o usuário pode digitar a carta de correção. O problema é quando o usuário da um <enter> no meno que traz o carácter #13. Não fiz nenhuma alteração, fiz um teste so digitando sem <enter> e funcionou certinho ... Será que esta com algum problema ou é assim mesmo ??? se for assim, vou tratar para o usuário não digitar mais <enter> Obrigado pela Luz .. kkkk

No texto não .. que era so de teste ... e esta so assim: "asd asdasdasdsad sad asdasd asd as dasdasdas dasd asd as dasd" Vou verificar nos demais campo se tem alguma sujeira ...

bom dia galera. Migrei para o Trunk2. Tava com alguns problemas, consegui resolver todos. Porem agora na carta de correção estou com o seguinte problema, ao tentar enviar apresenta a seguinte rejeição. "Rejeição: Valor da assinatura (SignatureValue) difere do valor calculado", utilizo mais ou menos a mesma rotina para o cancelamento e o cancelamento esta funcionando corretamente. Estou anexando o xml com problema. Estou usando a seguinte rotina para enviar a carta correção: with NFE.eventoNFe do begin ConfiguraNFe(dsetEmpresaDIRNFEEMPRESA.AsString + '\' +subdiretorio, dsetEmpresaLOGONFEMPRESA.AsString, dsetEmpresaCERTEMPRESA.AsString, tpcCartacorrecao); // Carrega a nota fiscal. if (dSetNFCabecalho.RecordCount = 1) and (dSetNFCabecalhoNFE_STATUS.AsString = 'R') and (dSetNFCabecalhoNFE_PROTOCOLO.AsString <> EmptyStr) then begin xCaminho := dsetEmpresaDIRNFEEMPRESA.AsString + '\' + FormatDateTime('DD-MM-YYYY', dSetNFCabecalhoDATAEMI.AsDateTime)+ '\' + dSetNFCabecalhoNFE_CHAVE.AsString; NFE.NotasFiscais.LoadFromFile(xCaminho + '-NFe.xml'); if (FileExists(xCaminho + '.pdf') = false) and (FileExists(xCaminho+'-nfe.PDF') = false) then NFE.NotasFiscais.ImprimirPDF; end; // Fecha Carregamento a nota fiscal. Evento.Clear; if dsetNFCCECCE_CHAVE.AsString <> EmptyStr Then begin codOrgao := Copy(dsetNFCCECCE_CHAVE.AsString, 1, 2); idLote := 1; with Evento.Add do begin infEvento.tpAmb := NFE.Configuracoes.WebServices.Ambiente; infEvento.chNFe := dsetNFCCECCE_CHAVE.AsString; // infEvento.cOrgao := strToint(codOrgao); infEvento.CNPJ := dsetEmpresaCNPJEMPRESA.AsString; infEvento.dhEvento := Now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := dsetNFCCESEQEVENTO.AsInteger; // infEvento.versaoEvento := '1.00'; // infEvento.detEvento.descEvento := dsetNFCCEDESCEVENTO.AsString; infEvento.detEvento.xCorrecao := dsetNFCCECORRECAO.AsString; // infEvento.detEvento.xCondUso := ''; // Texto fixo conforme NT 2011.003 - http://www.nfe.fazenda.gov.br/portal/exibirArquivo.aspx?conteudo=tsiloeZ6vBw= end; if NFE.EnviarEvento(idLote) = true Then begin if length(NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt) > 0 Then begin dsetNFCCE.Edit; dsetNFCCECCE_PROTOCOLO.AsString := NFe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.nProt; dsetNFCCECCE_RECIBO.AsString := NFE.WebServices.Retorno.Recibo; dsetNFCCECCE_STATUS.AsString := 'R'; frDm.SalvaDataSet(dsetNFCCE); end else begin abort; end; end; Muito Obrigado. 1101103515080303790900010255001000005968100005968601-procEventoNFe.xml

Agora foi ... Obrigado Juliomar Marchetti

Bom dia. Tive problema na minha maquina e tive que desinstalar o ACBR. Apaguei a pasta e fiz download da nova versão para instalar apartir do zero. Ao instalar o PCN2.dpk esta apresentando erro na função PadLeft dentro da UNIT pcnGerador.pas Alguém consegue me ajudar, olhei na pasta que eu tinha do acbr que era do mes passado, não tinha essa função (linha 893); Help.... Abraços,

ahh blz .. Obrigado .. abraços,

Juliomar. Gerei alguns arquivos novamente e esta tudo OK. Notei que você tirou os créditos que eu tinha colocado.(o meu nome e data de alteração). Isso não é mais permitido ? Abraços,

???

Juliana... Tem algum retorno ??? Obrigado

Cara eu tive tanto problema com o 240 para a caixa que acabei criando a UNIT para o 400.. Se quiser coloquei no Topico ... Ainda não esta SVN.. mais ja Homologuei . .esta funcionando certinho ...

Bom dia Juliana... Se puder analisar e subir os arquivo ... obrigado, CaixaSISCOB.rar

Galera. Alterei aqui a unit da CAIXA para gerar CNAB 400. Como faço para subir no servidor, esta funcionando certinho, homologado pela caixa, abraços,

Juliomar bom dia. O Grande problema é que no código não tem problema algum ... Por que pegando o mesmo exe compilado em minha maquina (win8.1) e rodando em uma maquina Win7 ou Win 8.0 funciona normalmente. Peguei esse exe e rodei em outras win 8.1 e todas apresenta o mesmo problema...

Ele continua salvando tudo vazio... Parece que ele não esta conseguindo acessar o web service da receita. O mesmo sistema (exe) eu abro em maquinas windows 7 funciona normalmente, Todas windows 8.1 que eu teste deu o mesmo erro... Em windows 8.0 funcionava certinho também...