Vinicius Sanchez

Pessoal estamos com um Problema na seguinte situação: Foi acrescentado no manual do Sped Fiscal no registro 0200, o campo 13 que se trata do CEST: Porem no leiaute da Contmatic, este campo foi acrescentado na posição 34: Como proceder nesta situação, alguém já passou por isso?

Eu estava vendo os fontes do ITAU por exemplo: Hoje ele realmente está pegando o ACBrTitulo.ValorDocumento Não sei se pode ou não passar o Valor do documento já com o desconto, se não poder teremos que criar uma propriedade no ACBrTitulo, falando se inclui o desconto no código de barras ou não... e ai no código acima validar essa propriedade.... A questão é, se for implementado isso, vocês moderadores do projeto, vão incluir isso nas atualizações do projeto? Porque se não forem, não da pra mim ficar atualizando os fontes todas as vezes que eu atualizar o ACBr... Desde já agradeço a atenção de todos...

Pessoal, bom dia Primeiramente peço desculpas ao fórum... Eu identifiquei essa classe aqui que estava desatualizada (não sei porque ela estava ai rs) Sendo que na verdade ela deveria estar apenas aqui: Foi só remover a unit la que estava errada que compilou... Obrigado pela atenção de todos e mais uma vez desculpas... Vou deixar o tópico aqui ainda pois pode ser que alguém passe pelo mesmo problema... isso deve ter acontecido pois o ACBr aqui da empresa que trabalho estava um "pouquinho" desatualizado rs Att: Vinicius Sanchez

Eu não só atualizei, como também apaguei o ACBr e baixei tudo de novo para tentar corrigir o problema.

Boa noite pessoal, Acabei de atualizar o meu ACBr e estou tendo o seguinte problema: Fiz uma comparação com a unit antiga que eu fiz um backup e vi que na unit antiga esses atributos estavam declarados na classe TACBrSATExtratoESCPOS e que depois que eu atualizei não está mais... Antes de atualiza estava assim: Depois que atualizei ficou assim: A minha pergunta é: Eu posso voltar o código que estava? Pois estou parado aqui e meu sistema não compila mais... Ou tem algum motivo pra isso e eu estou fazendo alguma coisa errada? Att: Vinicius Sanchez

Também passei pelo mesmo problema e esse tópico resolveu...

Boa tarde, também estou com o mesmo problema.... Realmente deveria ser avisado antes, pois agora temos que sair ajustando nossos sistemas correndo por algo que poderia ser evitado. Obrigado BigWings sua resposta nos ajudou

Charbel, bom dia. Seu ACBr está atualizado? Está utilizando o FC ou QR? Usando o trunk1 ou trunk2? Att: Vinicius Sanchez

Boa tarde, Você utiliza o windows 10? Eu tive um problema durante a instalação também mas foi referente as permissões do windows. Se tentava instalar direto no C:\ACBR não funcionada e dava o problema que você comentou. Aqui além da ajuda do pessoal do Fórum tive que instalar em C:\COMPONENTES\ACBR ai funcionou de boa. Att: Vinicius Sanchez

Juliomar e Isaque, obrigado pela ajuda. Mandei instalar no 32 bits e deu certo. Att: Vinicius Sanchez

Juliomar, boa noite. Entao ru usei o .bat do acbr para apagar. So isso. Me aconselha a fazer mais alguma coisa? Isaque, nao tem nenhum outro jeito entao? Porque se eu pego o trunk1 ele não tem a opção do Delphi 10, ou estou errado? O que posso estar fazendo?

Boa tarde, estou tentando e já tentei de diversas formas instalar o ACBr no Delphi 10 Seattle mas não consigo. Se eu mandar instalar somente os pacotes que já vem marcado como padrão já da erro, eles não instalam. A Anexei ao tópico o arquivo de log gerado na instalação. Se alguém puder me ajudar, desde já agradeço. OBS: Estou utilizando o ACBrInstall_Trunk2 e o mesmo está sempre atualizado. O link que estou utilizando é este: svn://svn.code.sf.net/p/acbr/code/trunk2 e minha máquina está o Windows 10 (utilizava o 7 e atualizou) e 64x Att: Vinicius Sanchez log_Delphi_10_Seattle.txt

[email protected]

Boa tarde. Depois de muita insistência, ainda não consegui homologar meu boleto e o mesmo ainda continua me fazendo exigências. Ele me passou um layout de boleto e me garantiu que se implementar o mesmo eles o homologarão. Como disse acima, vou gerar esse layout, realizar todos os testes e assim que eles homologarem e der tudo certo posto aqui os fontes e as alterações para que se possível vocês adicionarem ao ACBR. Desde já agradeço pela atenção. Att: Vinicius Sanchez

Bom dia, Assim como Staff falou "O manual do banco diz que é recomendável, sendo assim os boletos devem ser homologados mesmo sem essa informação na guia do pagador", porém o banco aqui da minha cidade continua pedindo a linha para homologar os boletos. Com isso uma das funcionárias aqui da empresa chega até a modificar esses boletos adicionando a linha digitável para que o mesmo seja aceito. Existe algo que eu possa fazer? Isso caberia a um processo contra a agência bancária? Att: Vinicius Sanchez

Bom dia, De acordo com as Especificações Técnicas para emissão de Boletos Cobrança Bancária CAIXA - SIGCB, no item 3.2.3, está descrito "É recomendável que também no Recibo do Pagador conste a Linha Digitável (Representação Numérica), de forma a facilitar eventual consulta. ". Ao tentar homologar um boleto gerado para a CAIXA, eles me cobraram essa eventual linha digitável. Existe alguma previsão e / ou possibilidade para implementação do mesmo? Segue em anexo a imagem do possível boleto utilizando a linha digitável no recibo do pagador e também o documento disponibilizado pelo banco. Att: Vinicius Sanchez Especificaçoes Tecnicas para Emissao de Boletos 67.119.pdf

Estou gerando os boletos pelo ACBR, porém o mesmo não exporta para PDF e nem é consigo fazer o envio por e-mail do boleto. Banco: Todos Componente: ACBRBoleto + QuickReport Delphi 2010 Att: Vinicius Sanchez

Com relação a modificação do nome Cedente por Beneficiário e Sacado por Pagador estão listados nas normas em anexo. Acredito que esse link também pode ser útil: http://www.febraban.org.br/7Rof7SWg6qmyvwJcFwF7I0aSDf9jyV/sitefebraban/BoletoBanc%E1rio.pdf Att: Vinicius Sanchez circ_3598_v1_O.pdf circ_3656_v1_O.pdf

Segue anexo da CAIXA que condiz com as normas para Homologação do boleto. Especificaçoes Tecnicas para Emissao de Boletos 67.119.pdf

Boa tarde, Fui cobrado pelo pessoal da CAIXA que meus boletos (gerados pelo ACBr) estão sendo gerados com Cedente no lugar de Beneficiário e Sacado no lugar de Pagador. Atualizei meus componentes do ACBR para verificar se eu que estava desatualizado e não era. Mesmo com o projeto atualizado no relatório montado no Quick Report de boletos, está saindo como Cedente e Pagador. O banco ainda me cobrou que para Homologar meus boletos seria necessário adicionar ao mesmo a Linha digitável na parte de Recibo do Sacado e na frente do nome do Beneficiário (Cedente) deveria sair o CNPJ e endereço do mesmo. O ACBR está mesmo desatualizado? O que eu posso fazer? Att: Vinicius Sanchez

Boa tarde pessoal, Estou implementando o processo de geração de boleto utilizando o ACBr no meu projeto. A geração funcionou perfeitamente, porem quando vou utilizar o método disponível no componente de enviar o e-mail com o boleto, o mesmo não funciona. Estava olhando os fontes do ACBr e vi que foi comentado os códigos referente ao mesmo. procedure TACBrBoleto.EnviarEmail(const sSmtpHost, sSmtpPort, sSmtpUser, sSmtpPasswd, sFrom, sTo, sAssunto: String; sMensagem : TStrings; SSL : Boolean; EnviaPDF: Boolean = true; sCC: TStrings=nil; Anexos:TStrings=nil; PedeConfirma: Boolean = False; AguardarEnvio: Boolean = False; NomeRemetente: String = ''; TLS : Boolean = True; HTML:Boolean = False); var ThreadSMTP : TSendMailThread; m:TMimemess; p: TMimepart; StreamNFe : TStringStream; i: Integer; begin m:=TMimemess.create; ThreadSMTP := TSendMailThread.Create(Self) ; // Não Libera, pois usa FreeOnTerminate := True ; StreamNFe := TStringStream.Create(''); try p := m.AddPartMultipart('mixed', nil); if sMensagem <> nil then // m.AddPartText(sMensagem, p); if HTML = true then m.AddPartHTML(sMensagem, p) else m.AddPartText(sMensagem, p); if (EnviaPDF) then begin if ACBrBoletoFC.NomeArquivo = '' then ACBrBoletoFC.NomeArquivo := 'boleto.pdf';; GerarPDF; m.AddPartBinaryFromFile(ACBrBoletoFC.NomeArquivo, p); end else begin if ACBrBoletoFC.NomeArquivo = '' then ACBrBoletoFC.NomeArquivo := 'boleto.html';; GerarHTML; m.AddPartBinaryFromFile(ACBrBoletoFC.NomeArquivo, p); end; if assigned(Anexos) then for i := 0 to Anexos.Count - 1 do begin m.AddPartBinaryFromFile(Anexos[i], p); end; m.header.tolist.add(sTo); if Trim(NomeRemetente) <> '' then m.header.From := Format('%s<%s>', [NomeRemetente, sFrom]) else m.header.From := sFrom; m.header.subject:= sAssunto; m.Header.ReplyTo := sFrom; if PedeConfirma then m.Header.CustomHeaders.Add('Disposition-Notification-To: '+sFrom); m.EncodeMessage; ThreadSMTP.sFrom := sFrom; ThreadSMTP.sTo := sTo; if sCC <> nil then ThreadSMTP.sCC.AddStrings(sCC); ThreadSMTP.slmsg_Lines.AddStrings(m.Lines); ThreadSMTP.smtp.UserName := sSmtpUser; ThreadSMTP.smtp.Password := sSmtpPasswd; ThreadSMTP.smtp.TargetHost := sSmtpHost; if trim(sSmtpPort)<>'' then // Usa default ThreadSMTP.smtp.TargetPort := sSmtpPort; ThreadSMTP.smtp.FullSSL := SSL; ThreadSMTP.smtp.AutoTLS := TLS; ThreadSMTP.Resume; // inicia a thread if AguardarEnvio then begin repeat Sleep(1000); Application.ProcessMessages; until ThreadSMTP.Terminado; end; finally m.free; StreamNFe.Free ; end; end; procedure TACBrBoletoFCQuick.Imprimir; var frACBrBoletoQuick : TACBRBoletoFCQuickFr; RLLayout: TQuickRep; //MultiExport : TQRMultiExport ; //FiltroExportacao: TQRPAbstractExportFilter; //HTMLFilter : TQRHTMLDocumentFilter ; begin inherited Imprimir; // Executa verificações padroes frACBrBoletoQuick := TACBrBoletoFCQuickFr.Create(Self); try with frACBrBoletoQuick do begin case LayOut of lCarne : RLLayout:= BoletoCarne; lPadraoEntrega : RLLayout:= LayoutPadraoEntrega; else RLLayout := LayoutBoleto; end; RLLayout.PrinterSettings.Copies := NumCopias ; case Filtro of fiPDF : begin // FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo); try // TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true; // RLLayout.ExportToFilter(FiltroExportacao); finally // FiltroExportacao.Free; end; // MultiExport := TQRMultiExport.Create(self); // try // MultiExport.Report := RLLayout ; // MultiExport.ExportFormat := qrxPDF ; // MultiExport.FileName := NomeArquivo ; // MultiExport.ShowDialog := MostrarSetup ; // MultiExport.DPI := 300 ; // MultiExport.DoExport ; // finally // MultiExport.Free ; // end ; end ; fiHTML : begin (* Codigo abaixo comentado pois não funciona... HTMLFilter := TQRHTMLDocumentFilter.Create( NomeArquivo ); try RLLayout.ExportToFilter( HTMLFilter ); finally HTMLFilter.Free ; end ; *) raise Exception.Create( ACBrStr('Exportação para HTML não implementada no QuickReport') ) ; end ; else begin if MostrarPreview then RLLayout.PreviewModal else begin if MostrarSetup then RLLayout.PrinterSetup ; if (RLLayout.Tag = 0) then RLLayout.Print; end ; end end ; end ; finally frACBrBoletoQuick.Free ; end; end; Repare que os códigos estão comentados. Alguém por favor pode me ajudar? Alguém utiliza o envio de boleto por e-mail? OBS: Utilizo o Delphi 2010 e uso o Quick Report. Att: Vinicius Sanchez

Boa tarde, Estou realizando a integração do meu sistema com a prefeitura de Fernandópolis, onde estou utilizando o componente ACBRNFSe. Tive alguns problemas referente ao servidor definido para o município de Fernandópolis. Fiz algumas alterações nos fontes do Acbr, onde gostaria que fosse adicionado as próximas atualizações. Anexei ao tópico os dois arquivos que tive que alterar. - Com base nos arquivos, podem ver que adicionei a linha 890 e comentei a linha 954 do arquivo "pnfsConversao". 1100114, // Jaru/RO 1100122, // Ji-Parana/RO 1508407, // Xinguara/PA 1600303, // Macapá/AP 2101202, // Bacabal/MA 2103000, // Caxias/MA 3305505, // Saquarema/RJ 3504503, // Avare/SP 3504800, // Balsamo/SP 3505203, // Bariri/SP 3512902, // Cosmorama/SP 3514502, // Duartina/SP 3516705, // Garca/SP 3540200, // Pontal/SP 3549409, // Sao Joaquim Da Barra/SP 3551603, // Serra Negra/SP 3555000, // Tupã/SP 3515509, // Fernandopolis/SP 5003207 // Corumba/MS // 5102637 // Campo Novo Do Parecis/MT : Provedor := 'Fiorilli'; 1302603, // Manaus/AM 1500800, // Ananindeua/PA 1505536, // Parauapebas/PA 1506807, // Santarem/PA 2304285, // Eusebio/PA 2304400, // Fortaleza/CE 2307650, // Maracanau/CE // 2507507, // Joao Pessoa/PB 2513653, // Santarem/PB 2604106, // Caruaru/PE 2700300, // Arapiraca/AL 2704302, // Maceio/AL 2704708, // Marechal Deodoro/AL // 2910727, // Eunapolis/BA 2933307, // Vitoria da Conquista/BA 3101607, // Alfenas/MG 3104007, // Araxá/MG 3106705, // Betim/MG 3115300, // Cataguases/MG 3117504, // Conceicao do Mato Dentro/MG 3131703, // Itabira/MG 3137601, // Lagoa Santa/MG 3143906, // Muriae/MG 3145604, // Oliveira/MG 3147105, // Para de Minas/MG 3152501, // Pouso Alegre/MG 3154606, // Ribeirao das Neves/MG 3156908, // Sacramento/MG 3169901, // Uba/MG 3170701, // Varginha/MG 3300456, // Belford Roxo/RJ 3301009, // Campos dos Goytacazes/RJ 3301900, // Itaborai/RJ 3302700, // Marica/RJ 3304300, // Rio Bonito/RJ 3503208, // Araraquara/SP 3506359, // Bertioga/SP 3510401, // Capivari/SP 3511300, // Cedral/SP 3512001, // Colina/SP 3513009, // Cotia/SP 3513801, // Diadema/SP // 3515509, // Fernandopolis/SP 3516200, // Franca/SP 3518305, // Guararema/SP 3518404, // Guaratinguetá/SP 3518701, // Guaruja/SP 3518800, // Guarulhos/SP 3519071, // Hortolandia/SP 3523909, // Itu/SP // 3524709, // Jaguariuna/SP 3525102, // Jardinopolis/SP 3525300, // Jau/SP 3525904, // Jundiai/SP 3529401, // Maua/SP 3530508, // Mococa/SP 3533908, // Olimpia/SP 3536505, // Paulinia/SP 3538006, // Pindamonhangaba/SP 3542602, // Registro/SP 3543303, // Ribeirao Pires/SP 3543402, // Ribeirao Preto/SP 3543907, // Rio Claro/SP 3545209, // Salto/SP 3547809, // Santo Andre/SP 3548500, // Santos/SP 3548708, // Sao Bernardo do Campos/SP 3548807, // Sao Caetano do Sul/SP 3548906, // Sao Carlos/SP 3549805, // Sao Jose do Rio Preto/SP 3549904, // Sao Jose dos Campos/SP 3550605, // Sao Roque/SP 3550704, // Sao Sebastiao 3552502, // Suzano/SP 3557105, // Votuporanga/SP 3704708, // Marechal Deodoro/AL 4118204, // Paranagua/PR 4125506, // Sao Jose dos Pinhais/PR 4128104, // Umuarama/PR 4202404, // Blumenau/SC 4309308, // Guaiba/RS 4314407, // Pelotas/RS 5220454 // Senador Canedo/GO //5213103 // Mineiros/GO : Provedor := 'GINFES'; - Já no arquivo "ACBrProvedorFiorilli", adicionei as linhas 187 e 188. function TProvedorFiorilli.GetConfigURL(ACodCidade: Integer): TConfigURL; var ConfigURL: TConfigURL; cURL_Producao : string; const cURL_Homologacao = 'http://201.28.69.146:5663/IssWeb-ejb/IssWebWS/IssWebWS?wsdl '; begin // URL de produção case ACodCidade of 1100114 : // Jaru cURL_Producao := 'http://201.45.58.229:5660/IssWeb-ejb/IssWebWS/IssWebWS?wsdl'; 1100122 : // Ji-Parana/RO cURL_Producao := 'http://177.124.184.59:5660/IssWeb-ejb/IssWebWS/IssWebWS'; 1508407 : // Xinguara/PA cURL_Producao := 'http://177.23.231.79:5661/IssWeb-ejb/IssWebWS/IssWebWS?wsdl'; 1600303: // Macapá/AP cURL_Producao := 'http://186.216.160.78:8080/IssWeb-ejb/IssWebWS/IssWebWS?wsdl'; 2101202 : // Bacabal/MA cURL_Producao := 'http://finanbbl.ddns.us:8080/IssWeb-ejb/IssWebWS/IssWebWS'; 2103000 : // Caxias/MA cURL_Producao := 'http://177.105.209.118:8080/IssWeb-ejb/IssWebWS/IssWebWS'; 3305505 : // Saquarema/RJ cURL_Producao := 'http://201.18.231.99:5661/IssWeb-ejb/IssWebWS/IssWebWS'; 3504503 : // Avare/SP cURL_Producao := 'http://fiorilli.avare.sp.gov.br:5661/IssWeb-ejb/IssWebWS/IssWebWS'; 3504800 : // Balsamo/SP cURL_Producao := 'http://201.28.69.146:5663/IssWeb-ejb/IssWebWS/IssWebWS'; // essa URL é a mesma de Homologação, portanto deve estar errada. 3505203 : // Bariri/SP cURL_Producao := 'http://sipweb.bariri.sp.gov.br:8080/IssWeb-ejb/IssWebWS/IssWebWS?wsdl'; 3512902 : // Cosmorama/SP cURL_Producao := 'http://189.111.140.145:8080/IssWeb-ejb/IssWebWS/IssWebWS?wsdl'; 3514502 : // Duartina/SP cURL_Producao := 'http://186.224.0.62:5661/IssWeb-ejb/IssWebWS/IssWebWS?wsdl'; 3516705 : // Garca/SP cURL_Producao := 'http://187.51.71.242:2014/IssWeb-ejb/IssWebWS/IssWebWS?wsdl'; 3540200 : // Pontal/SP cURL_Producao := 'http://131.100.72.54:8080/IssWeb-ejb/IssWebWS/IssWebWS'; // cURL_Producao := 'http://177.69.210.132:8080/IssWeb-ejb/IssWebWS/IssWebWS'; 3549409 : // Sao Joaquim Da Barra/SP cURL_Producao := 'http://187.72.128.113:5661/IssWeb-ejb/IssWebWS/IssWebWS'; 3551603 : // Serra Negra/SP cURL_Producao := 'http://intra.serranegra.sp.gov.br/IssWeb-ejb/IssWebWS/IssWebWS'; 3555000 : // Tupã/SP cURL_Producao := 'http://189.20.219.66:5661/IssWeb-ejb/IssWebWS/IssWebWS'; 5003207 : // Corumba/MS cURL_Producao := 'http://nfse.corumba.ms.gov.br:8080/IssWeb-ejb/IssWebWS/IssWebWS'; // 5102637 : // Campo Novo Do Parecis/MT // cURL_Producao := 'http://179.252.22.226:3394/IssWeb-ejb/IssWebWS/IssWebWS'; 3515509 : // Fernandópolis/SP cURL_Producao := 'http://servicos.fernandopolis.sp.gov.br:8080/IssWeb-ejb/IssWebWS/IssWebWS?wsdl'; end; Motivo da alteração: A Prefeitura da cidade passou a utilizar o serviço oferecido pela Fiorilli recentemente e não foi ajustado ao componente de vocês. Att: Vinicius Sanchez ACBrProvedorFiorilli.pas pnfsConversao.pas

Galera, basta fazer o uses da classe "pcnConversao" para acessar o "OrigToStr" e "CSTICMSToStr". Att: Vinicius Sanchez

Bom dia, O amigo acima disse que utiliza a linha "OrigToStr(ACBrNFe.NotasFiscais.Items[n].NFe.Det.Imposto.ICMS.orig) + CSTICMSToStr(ACBrNFe.NotasFiscais.Items[n].NFe.Det.Imposto.ICMS.CST)" para pegar o valor do CST. Porém ele utiliza o "OrigToStr" e "CSTICMSToStr". No meu projeto não consigo acessar essas funções, podem me dizer se devo fazer o import de alguma classe ou algo a mais para poder acessa-las? Att: Vinicius Sanchez

A Rejeição (226) “Código da UF do Emitente diverge da UF autorizadora” ocorre quando o campo que identifica o código da UF (cUF_B02) não condiz com a UF da Sefaz de recepção. Essa rejeição ocorre quando o código da UF (cUF_B02) informado na emissão diverge da UF de recepção e, em muitos casos, nota-se que a UF configurada no ERP não se refere à UF informada no xml da NF-e, ocasionado então a rejeição. Exemplo: Algumas empresas podem configurar o produto para emitir a uma de determinada UF e, informar no xml um código que não corresponde à UF configurada, assim, o servidor irá rejeitar a NF-e com o erro: Rejeição (226) “Código da UF do Emitente diverge da UF autorizadora”.