Painel de líderes

Como alguns já devem saber, estamos fazendo um imenso trabalho nos fontes do ACBr, para compatibilizar o mesmo com os compiladores Delphi para Linux (POSIX), e Android (NEXTGEN). Essas plataformas, utilizam o Framework, FMX ou FireMonkey. Estou muito impressionado com a facilidade e capacidade do Delphi Rio, em gerar aplicações, Ricas, bonitas e rápidas, para Android... e creio que a FMX, será o futuro do Delphi. A compatibilização com esses novos compiladores, não foi algo trivial, pois infelizmente, eles introduziram grandes modificações na base do Object Pascal. Leia esse artigo, para saber mais sobre essas diferenças... Ok... legal... quero iniciar minhas aplicações em Android com o ACBr... o que devo fazer ? 1 - Informar que o seu projeto está usando FMX Para que o ACBr possa suportar compilação em VCL, FMX, LCL (Lazarus), Windows, Linux, Android... o código do ACBr, recebeu várias modificações com diretivas de compilação (IFDEFs) Para que essas diretivas sejam utilizadas, precisamos sinalizar para o ACBr, que o Projeto em questão, usa a FMX. Isso pode ser feito de duas maneiras: 1.1 - Inserindo uma Diretiva nas opções do Projeto (recomendado) Abra as opções do Projeto, Project -> Options (Shit-Ctrl-F11) Selecione: Building -> Delphi Compiler Em Target selecione All Configurations - All Plataforms Em Conditional Defines, escreva: FMX 1.2 - A segunda forma é modificar o ACBr.inc, ativando a diretiva FMX.. Porém use essa opção com cuidado, pois ela afetará todos os seus projetos, e você terá que comentar a linha novamente, quando for compilar um projeto VCL // Para usar FMX (Firemonkey) Windows / Delphi descomente essa linha {$DEFINE FMX} 2 - Informe o "Unit Scope Names" As novas versões do Delphi, usam notações com Pontos nas Units, como por exemplo: "System.SysUtils" ao invés de apenas "SysUtils". Para que o código fonte do ACBr, permaneça compatível com Delphi 7, não podemos modificar essa nomenclatura... Informar o Unit Scope Names, instruirá o compilador, a onde encontrar as Units com os novos nomes, mesmo usando a nomenclatura antiga... Vá em: Project -> Options -> Building -> Delphi Compiler (mesma tela do passo anterior) e informe os Unit Scopes necessários... exemplo: "System;Xml;Data;Datasnap;Web;Soap" 3 - Certifique-se que o Compilador conhece os Paths dos fontes Projeto ACBr Atualmente, o instalador do ACBr, adiciona automaticamente todos os diretórios dos Fontes do Projeto ACBr, em sua váriável Global, de LibPath dos Compiladores de Win32 e Win64... isso economiza um grande trabalho... Porém o instalador ainda não faz o mesmo, para os compiladores Linux e Android... então precisamos fazer isso manualmente... A maneira mais simples, é copiar os Paths do Compilador Win32 para o Android e Linux... Veja o passo a passo: 3.1 - Acesse: Tools -> Options -> Language -> Delphi -> Library Observe que a primeira Linha mostra o Library Path para Windos 32 bits... Marque toda a Linha e copie: 3.2 - Agora cole o conteúdo em um Editor (NotePad++), e modifique o texto isolando todos os diretórios do ACBr, Fortes Report, e outros que achar interessante... 3.3 - Mude a Plataforma selecionada, no combo box acima, para Android 32 3.4 - Vá ao final da Linha, e Cole o conteúdo, com os diretórios do ACBr (lembre-se de separar os diretórios com ; ) 3.5 - Repita o mesmo para Android 64 e Linux 64 4 - Solicite as permissões que o seu projeto precisará no Android A tela abaixo, é do Demo do ACBrMail para Android, que já disponível no SVN em: "\ACBr\Exemplos\ACBrTCP\ACBrMail\Android" Observe que marcamos a opção para ter acesso a internet, pois isso é necessário nessa aplicação De acordo com as novas políticas de segurança do Android, também será necessário, requisitar essas permissões em tempo de execução... Você pode ver como isso é feito, nos fontes do Demo do ACBrMail. Use a força, leia os fontes, e procure pelo método: function TACBrMailTestForm.PedirPermissoes: Boolean; 5 - Modifique o Deployment, para inserir as bibliotecas necessárias Vá em: Project -> Deployment, e adicione as Bibliotecas do OpenSSL, e substitua as Imagens que achar necessário Veja por exemplo, a tela do Deployment do Demo do ACBrMail Nota sobre as dependências externas do ACBr: OpenSSL e LibXML2 Após algum esforço, conseguimos compilar as bibliotecas do OpenSSL e a LibXML2, para Android em 32 e 64 Bits... e o binário delas já se encontram no SVN, na pasta: \ACBr\DLLs\Android\ Use as versões dinâmicas das bibliotecas, ou seja, os arquivos com extensão .SO Para 32 Bits use a biblioteca com prefixo "ARM" Para 64 Bits use e "AARCH64" Configure o "Remote Path", para ".\assets\internal\", pois é nesse local, que os fontes do ACBr, tentará encontrar as bibliotecas IMPORTANTE: Os arquivos da pasta remota: .\assets\internal\ poderão ser acessados de dentro da aplicação com: TPath.GetDocumentsPath (que na será traduzido para "$(ApplicationPath)\file") Porém, quem faz a copia dos arquivos da pasta de $(APK)\assets\internal\, para a pasta $(ApplicationPath)\file é a Unit System.StartUpCopy, que por padrão, é adicionada no inicio de Todo novo projeto FMX. Exemplo: program Project1; uses System.StartUpCopy, // <-- Olha ela aqui FMX.Forms, Se essa Unit não for adicionada, os arquivos que estão na pasta "assets\internal" do APK, não serão copiados para a pasta "files" de sua aplicação, após a mesma ser iniciada... e como consequencia, você não consegirá acessá-los.. A correção é bem simples.. basta adicionar a System.StartUpCopy, conforme demonstrado acima... Leia também:

Finalmente escrevi um tópico mais completo, sobre como configurar a compilação para FMX com outras plataformas

Boa tarde senhores(as), consegui descobrir o erro dos espaçamentos, quer dizer, descobrir como os tamanhos voltam ao normal! quando o transportador era por conta do destinatário, não sei porque isso ocorre (espaçamentos) mas tá aí, está imprimindo certinho, removi essas linhas, ou seja, na condição em que o frete era por conta do destinatário na minha concepção tinha que limpar os campos abaixo, aí que estava o erro...fica a dica ai...comentei essas linhas. Transp.Transporta.CNPJCPF := ''; Transp.Transporta.xNome := ''; Transp.Transporta.IE := ''; Transp.Transporta.xEnder := ''; Transp.Transporta.xMun := ''; Transp.Transporta.UF := ''; Transp.retTransp.vServ := 0; Transp.retTransp.vBCRet := 0; Transp.retTransp.pICMSRet := 0; Transp.retTransp.vICMSRet := 0; Transp.retTransp.CFOP := ''; Transp.retTransp.cMunFG := 0; Transp.veicTransp.placa := ''; Transp.veicTransp.UF := ''; Transp.veicTransp.RNTC := ''; // Transp.Vol.New.qVol := 0; Transp.Vol.New.esp := ''; Transp.Vol.New.marca := ''; Transp.Vol.New.nVol := ''; Transp.Vol.New.pesoL := 0; Transp.Vol.New.pesoB := 0;

Boa tarde, Fabiano Cunha e Daniel, entao, fui hj no cliente e verifiquei o protocolo da balanca, é o P03, Como mostra na imagem, eu ja tinha olhado os dois topicos que vc citou Fabiano, ajudou pra ententer mais do assunto, porem hoje cheguei a conclusao que o problema la é cabo mesmo, pois nos testes que fiz hj, nao obtive nenhum resultado da balanca. Entao foi solicitado a visita de um tecnico da toledo pra que possamos fazer testes de comunicacao com a balança, provavelmente ele so va na empresa no final do mes, no dia da visita eu irei la para conversar com ele. Apos isso dou um retorno aqui pra concluir o assunto. Desde ja agradeço a atenção e boa vontade de vcs em ajudar. BalLog.txt

Criei um exe onde eu posso gerar ambos os comprovantes, e, deu certo, Vou continuar revisando meus códigos aqui.

Dica olha as uses da sua unit pois a ordem delas e uma outra tendo a mesma classe vai dar problemas

Vou fazer isso também, vamos ver o que conseguimos, e claro esperar, quem sabe algum ja tenha passado por isso e saiba resolver. Muito obrigado.

Poderia dar um exemplo dos problemas encontrados ? Fica mais facil para todos poderem analisar o que esta acontecendo.

Boa tarde galera, bom, deu uma boa pesquisada e tentei gerar conforme o que vocês me falaram, e realmente, no final acabou sendo os dois casos, fiz o teste com o caso que o Leandoaoa passou e deu certo, por final testei tambem com o csosn 500 pra ver se funcionava e funcionou tambem. O problema era os valores que estavam sendo preenchidos no final do arquivo mesmo, nos totais. Nesse caso como CST 60 e CSOSN 500 não geram as tags de base de calculo, eles não contam na somatória final da nfce. Muito obrigado senhores!

Boa tarde Souza, Eis o seu erro: Transp.Vol.New.qVol := 0; Transp.Vol.New.esp := ''; Transp.Vol.New.marca := ''; Transp.Vol.New.nVol := ''; Transp.Vol.New.pesoL := 0; Transp.Vol.New.pesoB := 0; Para cada linha você esta executando o New, isso faz com que ele gere um novo item dentro da lista Vol (volume). O correto é: with Transp.Vol.New do begin qVol := 0; esp := ''; marca := ''; nVol := ''; pesoL := 0; pesoB := 0; end;

Estou com um problema aonde ao imprimir a Danfe, o campo Valor Total sobrepõe o campo Valor Desconto, após uma mudança no campo "Nova Escala" no componente ACBr, por padrão quando a NovaEscala está com o valor de 92, a impressão da DANFE corta ao lado direito, alterando para 90 o mesmo problema é resolvido, porém é gerado esse novo problema citado acima, onde um campo sobrepõe o outro.

Boa tarde. Situação está em analise. Tópico relacionado Att.

Não Juliana. Mas não é a mesma coisa, pois são dois exes diferentes. Seria o mesmo que eu executar minha aplicação por duas vezes diferentes para testar os comprovantes, e isso me daria um teste positivo. O problema é quando dois tipos são gerados em sequência, o segundo sai estragado. Vou tentar gerar um exe com apenas a geração dos comprovantes e ver se ocorre o problema.

Bom dia. Para evitar duplicidade, como foi criado um tópico especifico para a sobreposição dos campos, vou fechar aqui. Att.

Bom dia Daniel, Gostaria de agradecer pelo suporte hoje pela manhã consegui fazer a balança comunicar. Grande abraço e muito obrigado.

ESC/POS realmente não vai gerar PDF ou imprimir em impressora laser/jato de tinta, ou mesmo preview de impressão, já que ela envia comandos de impressão que devem ser interpretados pela na impressora. A única opção nesse caso seria a versão em Fortes.

Bom dia Nelson. Obrigada pelas sugestões, analisaremos com cuidado e retornaremos no tópico. Mas vale lembrar que atualmente já está em uso na implementação atual e mudar agora provavelmente traria problemas de configuração passar a estar incorreta. Att.

Itala, obrigado pela resposta... Enviei um e-mail p pessoal da memory. Estou aguardando o retorno... Breve post aqui..

Italo, parece que o problema estava no servidor da Gov. Tentei utilizar o Gerar, mas ocorreu erro desconhecido Utilizando o Enviar, parece que deu certo. Retornou a msg abaixo..

Precisei implementar no carregamento do S5001 o campo infoPerRef. Segue em anexo as alterações na unit pcesS5001.pas caso seja útil utilizarem no ACBR. pcesS5001.pas

Boa tarde Alterar o arquivo ISSNet.ini. Testei em várias cidades e o URL mudou para todas. Entrei em contato com o provedor, perguntando se todas as cidades estão utilizando essa URL, mas eles não me passaram essa informação . Antes: [URL_P] RecepcaoLoteRPS=http://ws%NomeURL_P%.issnetonline.com.br/webserviceabrasf/%NomeURL_P%/servicos.asmx Depois: [URL_P] RecepcaoLoteRPS=http://www.issnetonline.com.br/webserviceabrasf/%NomeURL_P%/servicos.asmx ISSNet.ini

Que "arquivo" Fortes Report você está precisando? Se você não tem o Fortes instalado: Se já tem o Fortes instalado precisa na instalação do ACBr marcar para instalação o componente DANFE para Fortes. Se já fez isso também basta adicionar o componente ACBrNFeDANFCeFortesA4 e vincular ao ACBrNFe.

No caso do extrato SAT não foi implementado para Fast Report. As opções são a versão em Fortes e a em ESC/POS.

Realmente voltou a funcionar, mas pelo que diz aqui https://support.google.com/a/answer/6260879?hl=pt-BR o google esta está desativando gradualmente isso.

SOLUÇÃO: Os certificados são sempre apresentados em ordem de vencimento do maior para o menor. Eu consigo ler quais os certificados estão instalados na máquina usando TElWinCertStorage. Então eu os ordeno da mesma forma e localizo a posição dele. Então quando abre a tela para selecionar, eu clico no certificado certo usando os comandos do teclado. void __fastcall TfrmNavegador::TimerSelecionarCertificadoTimer(TObject *Sender) { TimerSelecionarCertificado->Enabled = false; Application->ProcessMessages(); Sleep(1000); if(!FindWindowW(NULL, String("Segurança do Windows").c_str())) { TimerSelecionarCertificado->Enabled = true; return; } setLog("Selecionando certificado."); WebBrowser1->Silent = true; Application->ProcessMessages(); Sleep(1000); for(int i = 0; i < getPosicaoCertificado(); i++) { keybd_event(VK_DOWN, 0, 0, 0); keybd_event(VK_DOWN, 0, KEYEVENTF_KEYUP, 0); Sleep(100); } keybd_event(VK_RETURN, 0, 0, 0); keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0); }

Acho que vc deveria postar um XML como exemplo, pois assim fica muito vago. Eu sempre somo o desconto dos itens, e confiro com o total de desconto, se sobrar ou faltar adiciono ou subtrario no ultimo itens, da mesma forma como faço os parcelamentos de duplicatas.

alteração ACBrCIOT - ACBr.rar A correção que eu fiz para consertar se ajudar de alguma forma.

Dá uma olhada depois nesses dois tópicos abaixo, pode ser que te ajude. E a recomendação do @Daniel Simoes de verificar primeiro o setup da balança é essencial para descobrir qual o protocolo ela esta setado nela.

Resolvi colocando dinamicamente os valores das margens antes da impressão. with dmDados.relNF do begin MargemInferior:=8; MargemSuperior:=8; MargemEsquerda:=6; MargemDireita:=6; end; Quanto a página adicional, o campo de observações da nota tinha várias linhas adicionais que não percebi. Grato.

Certo, na segunda irei no cliente e verifico esses detalhes e reporto o resultado.

Em anexo unit com correção ACBrBancoSantander.pas

Boa tarde, Segue novos ajustes para o Refactory. Falei no Bradesco para homologação e no manual onde diz carteira posição 58(Carteira) na verdade é a característica do Titulo, notei pois estava vindo um digito 1 e estou usando a carteira 09. Então foi alterado conforme instruções. Carteira := copy(Linha, 39, 2); case strtoint(copy(Linha, 58, 1)) of '1': CaracTitulo := tcSimples; '2': CaracTitulo := tcVinculada; '3': CaracTitulo := tcCaucionada; '4': CaracTitulo := tcDescontada; '5': CaracTitulo := tcVendor; end; ACBrBoleto.pas

Isso mesmo Daniel, amanhã vou ver com calma qual a classe adequada e posto o resultado. Obrigado pela atenção.

Pessoal eu estou tendo um problema recebendo essa mensagem em BELO HORIZONTE Arquivo enviado com erro na assinatura. Descobri que o erro está no arquivo BHISS.ini nesta parte: tem que ser alterado pra isso daqui: após feita a alteração, voltou a emitir NFSE normalmente! o engraçado é que o arquivo era correto antes, e dai depois passou a vir com esse erro. descobri pois comparei o arquivo BHISS.ini atual com outro mais antigo que tenho aqui, e o antigo emitia mas o novo não!! A única diferença entre os arquivos é realmente essa Segue o arquivo corrigido abaixo: BHISS.ini

Boa Noite !! me desculpe a demora ... log2.txt

Não é a Lib que gera um Exception, ela apebas retorna um valor negativo... Quem gera o Exception é a Classe de Alto Nível em xHarbour, e a qual você tem os fontes... ou seja, você pode modificar o método "CheckResult" para não levantar um Exception... Um T.F.A.

Obrigado Ítalo.

@José M. S. Junior Com a sua VM imprimiu a NF-e com o código de barras

Boa Noite @Ita Júnior, Esse mesmo caso do Amigo de Joinville, ocorre em Sertãozinho, SP (SmarapdABRASF), gostaria de saber se é possivel ou como eu posso configurar para gerar as tag, pois não esta gerando. Eu umas alterações na Unit pnfsNFSeW_ABRASFv2.pas, vou anexar, mas não sei se é só pois nao gerou as tag, mesmo fazendo a alteração. O que eu fiz foi onde tem o if para FProvedor = proISSJoinville, coloquei um or FProvedor = proSmarAPDABRASF, mas mesmo assim não foi Obrigado pelao Atenção pnfsNFSeW_ABRASFv2.pas

Boa, era a pasta shared mesmo.. show obrigado! fiz o check out, da basta no diretório do projeto e fiz o reload, e rodou com sucesso! Obrigado

Como você conseguiu transmitir em HTTPS usando esse certificado, isso significa que ele está funcionando corretamente com o ACBr

Estou upando as ultimas tabelas que encontrei separadas por pipe e \r\n CEST 2018.txtTabela CNAE.txttabela cfop.txt municipio cod.txt

Boa tarde pessoal, Muitos de vocês já deve ter questionado quais são os bancos suportados pelo ACBr e e acabaram se deparando com a necessidade de checar diretamente nos fontes. Afim de trazer essa informação de forma mais rápida, segue relação até a data da publicação deste artigo. Veja relação em detalhes: Código Febrabran Banco Carteiras Configuração no ACBr (Propriedade Tipo Cobrança) Logo 001 Banco do Brasil Todas cobBancoDoBrasil 003 Banco da Amazônia Todas cobBancoDaAmazonia 004 Banco do Nordeste Todas cobBancoDoNordeste 021 Banco Banestes Todas cobBanestes 025 Banco Alfa Todas cobBancoAlfa 033 Santander Todas cobSantander 041 Banrisul Todas cobBanrisul 047 Banese Todas cobBanese 070 BRB Todas cobBRB 077 Inter Todas cobBancoInter 084 Uniprime Todas cobUniprimeNortePR 085 Cecred Todas cobBancoCECRED 091 Unicred RS Todas cobUnicredRS 097 CredSis Todas cobCrediSIS 099 Uniprime Todas cobUniprime 104 Caixa Econômica Todas cobCaixaEconomica (Layout SIGCB) cobCaixaSicob (Layout Sicob) 133 Cresol Todas cobBancoCresol 136* Unicred ES Todas cobUnicredES 174 Pefisa Todas cobBancoPefisa 208 BTG Pactual Todas cobBTGPactual 212 Original Todas cobBancoOriginal 218 BS2 Todas cobBS2 224 Fibra Todas cobBancoFibra 237 Bradesco Todas cobBradesco 246 Banco ABC Brasil Todas cobBancoABCBrasil 310 Vortx Todas cobBancoVortx 320 BicBanco Todas cobBicBanco 322 Sulcredi Todas cobBancoSulcredi 329 QITechSCD Todas cobBancoQITechSCD 336 Banco C6 Todas cobBancoC6 341 Itau Todas cobItau 389 Banco Mercantil Todas cobBancoMercantil 399 HSBC Todas cobHSBC 422 Banco Safra Todas cobBancoSafra 457 Banco UY3 Todas cobBancoUY3 604 Banco Industrial do Brasil Todas cobBancoIndustrialBrasil 633 Rendimento Todas cobBancoRendimento 637 Sofisa 121 cobBancoSofisa 643 Banco Pine Todas cobBancoPine 655 Votorantin Todas cobBancoVotorantim 707 Banco Daycoval Todas cobDaycoval 745 CitiBank Todas cobCitiBank 748 Sicredi Todas cobSicred 756 Bancoob (Sicoob) Todas cobBancoob O ACBr também suporta as variações de layout dos bancos acima, conforme relação a seguir. Código Febraban Banco Carteiras Correspondente Configuração no ACBr (Propriedade Tipo Cobrança) 756 Sicoob Todas Banco do Brasil cobBancoDoBrasilSICOOB 091 Banco Unicred RS Todas cobUnicredRS 136* Banco Unicred ES Todas cobUnicredES 136* Banco Unicred SC Todas Bradesco cobUnicredSC 237 Athena 444 Todas Bradesco cobAthenaBradesco 274 MoneyPlus Todas Bradesco cobMoneyPlus 637 Sofisa 109 Itau cobBancoSofisaItau 637 Sofisa Outras, exceto 121 Santander cobBancoSofisaSantander 133* Banco CreSol Todas Bradesco cobBancoCresolSCRS 756 Sicoob Todas Bradesco cobBradescoSICOOB 422 Safra Todas Bradesco cobSafraBradesco 643 Pine Todas Bradesco cobBancoPineBradesco *Código não localizado na tabela Febraban Importante: Este tópico será atualizado sempre que houver novas adições de bancos ou correspondentes. Para Utilização com o ACBrMonitorPlus, deve-se consultar as orientações existentes no Manual OnLine, o qual pode ser acessado aqui.

Guia ACBrBoleto – Especificidades dos Bancos Afim de tornar a documentação do ACBrBoleto mais completa, criamos um documento relacionando os pontos onde ocorrem particularidades conforme o banco a ser utilizado. Estas informações encontram-se no arquivo Particularidades.html disponível no svn, assim como nos manuais online do ACBrMonitorPlus e da ACBrLib. Att.

Para suportar a compilação em FMX, o código do ACBr, recebeu várias modificações com diretivas de compilação (IFDEFs) Para que essas diretivas sejam utilizadas, precisamos sinalizar para o ACBr, que o Projeto em questão, usa a FMX. Isso pode ser feito de duas maneiras: 1 - Inserindo uma Diretiva nas opções do Projeto (recomendado) Abra as opções do Projeto, Project -> Options (Shit-Ctrl-F11) Selecione: Building -> Delphi Compiler Em Target selecione All Configurations - All Plataforms Em Conditional Defines, escreva: FMX 2 - A segunda forma é modificar o ACBr.inc, ativando a diretiva FMX.. Porém use essa opção com cuidado, pois ela afetará todos os seus projetos, e você terá que comentar a linha novamente, quando for compilar um projeto VCL // Para usar FMX (Firemonkey) Windows / Delphi descomente essa linha //{$DEFINE FMX}

Eu gravo a versao, e a data de compilação do sistema no banco de dados quando os terminais iniciam o sistema este verifica se tem uma versão mais nova caso existe, ele manda a requisição para a rede via TCP/IP (Socket) e o terminal que tiver a versão mais nova junta todos os arquivos novos num zip e envia a este terminal que está aguardando a atualização, que descompacta substitui os arquivos e segue em frente abrindo a aplicação para uso. Funciona que é uma beleza. Dessa forma só preciso atualizar uma máquina da rede toda vez que lanço uma novidade no sistema.