Edson.pol

Boa noite pessoal ! Graça: Concordo com você. Comecei uma homologação no Santander, e se eu não fosse tão calmo como sou, já teria desistido. Envio e-mail num dia, espero uns 3 dias para ter retorno, e pedem pra corrigir uma coisinha mínima. Envio outro teste, e mais uns 3 ou 4 dias para retorno e pedindo outra coisinha. Nesta "lenga-lenga", o cliente está usando o Itaú e acabou descobrindo que é bem melhor que o Santander... talvez até feche a conta lá. Bem feito pra eles No Itaú eu já tinha feito homologação há mais de uma ano, e agora, pediram pra trocar as strings. Eles querem tirar o corpo fora de qualquer chance de atrito com o sacado, (ops, agora é "pagador"... quanta diferença...) Do jeito que está indo, o ACBr vai ter que "internacionalizar" o componente, separando as strings para cada campo, para cada banco. Jacinto Junior: Estamos falado da unit "ACBrBoletoFCFortesFr.pas" correto? Eu tinha atualizado os fontes semana passada, hoje atualizei de novo e não tem as alterações. Pra tirar a dúvida, deletei a pasta inteira, apaguei os ACBR*.bpl, etc, baixei o ACBr inteiro pelo SVN, instalei pelo ACBrInstall. Mesmo assim não vieram as alterações (ainda bem que fiz um backup em outro drive). Vanderson: Sei que você usa QuickReport, mas você poderia se basear no que foi feito no Fortes, ou seja, quebrar os dados em dois campos: Nome do Cedente (e CNPJ na mesma linha) Endereço do cedente (logradouro, numero, complemento, cidade, estado, uf, cep) Anexei o DFM alterado (não mexi no LFM). []´s Edson. ACBrBoletoFCFortesFr.rar

Boa noite. Ontem tentei homologar boletos no Itaú, e pediram para alterar algumas strings: "Agência / Código do Cedente" Susbstituir por: "Agência / Código do Beneficiário" "Instruções (Todas as informações deste bloqueto são de exclusiva responsabilidade do cedente.)" Susbstituir por: "Instruções (Instruções de responsabilidade do beneficiário. Qualquer dúvida sobre este boleto, contate o beneficiário.)" "Cedente" Substituir por: "Beneficiário" "Sacado" Substituir por: "Pagador" -- Também ficam proibidos: Boletos sem valor, sem vencimento, ou com informações: "Vencimento a Vista" ou "Contra Apresentação" Acho que estas alterações valem pra todos os bancos, pois é da Lei Federal 12.039. Circular BACEN 3598 e 3656 de 28/06/2013 Alterei aqui, somente para uso com o FortesReport. Não anexei o arquivo alterado, porque tem que alterar o LFM, e não tenho o Lazarus instalado. []´s Edson.

Estou sem ela agora pra revisar, mas o que fiz foi o seguinte: Depois de instalar o driver, que cria a porta virtual, reiniciei o micro, e alterei no gerenciador de dispositivos, a velocidade da porta COM6, que estava em 9600 para 115200. No ACBr, também alterei a configuração para 115200, porém, percebi que no log nunca aparecia 115200. O estranho é que só acontece no Windows 7. No XP rodou tudo certo. O cliente levou as ECFs pra São Paulo, quando estivem instaladas vou tentar configurar pelo acesso remoto. []´s Edson.

Bom dia! Estou na mesma situação. Adquiri duas impressoras FS700 (Mach 1), e pretendia usar o cabo USB. Como tive que entregar com urgência para instalação em outra cidade, tive que entregar com o cabo serial, pois não tinha mais tempo para achar a solução. Ao instalar o driver da Daruma, foi criada uma porta virtual (COM6), setei a velocidade dela para 115200, configurei o ACBr para 115200, mas no log, sempre mostrava 9600. Trecho do log: -------------------------------------------------------------------------------- ATIVAR - 23/06/14 14:52:42:674 - Modelo: Daruma - Porta: COM6 - TimeOut: 3 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0 -------------------------------------------------------------------------------- -- 14:52:42:692 TX -> [ESC][239][CR] Daruma: Falha no Envio do CMD. Tentativa: 1 - Erro: 0 - Estendido: 0 -> Erro não documentado Cod.Aviso: 0 14:52:45:775 RX <- ----------------- ERRO ----------------- Impressora Daruma não está respondendo ---------------------------------------- Aumentei o time-out para 10, 20, 30.. o itervalo também aumentei, mas não resolveu. Este erro ocorre no Windows Seven. Testei num outro PC com Windows XP (e os drivers que vieram no CD), e lá funcionou corretamente. []´s Edson.

Boa tarde Haroldo... Problema resolvido ! No meu caso, Zeos 5.4.1, não tem o componente ZConnection. Então, nas queries, alterei a propriedade "options -> doHourGlass" para False. []´s Edson.

Bom dia! Acontece tanto local quanto em rede. A maioria não tem o gbplugin instalado. Alguns tem, mas o problema ocorre com e sem ele. No meu PC, já tinha percebido alguma perda de desempenho, dá pra contar as piscadas do cursor SQL por exemplo. No Windows XP éra "pá-puff"... Ao acessar um TMainMenu, leva alguns segundos para aparecer o primeiro ítem (TMenuItem), e mais alguns para aparecer o segundo e o terceiro, etc. Se desabilitar a interface Aero (deixando o tema como "Windows Basic"), resolve a questão do menu, mas quanto a lentidão do SQL não sei o que fazer. Desabilitando o cursor, dá uma mascarada no problema, mas não deixa muito mais rápido. (no meu caso, acessando MySQL com componentes Zeus). Testei com o ponteiro do mouse fora da aplicação, mas deu na mesma. Preciso testar com a ultima versão do MySQL (6) e do Zeus (7.1), mas pra isso vou precisar de um bom tempo, e tempo é o que mais está em falta ultimamente. []´s Edson.

Bom dia Elton. Não conhecia esses programas "profilers". Eu uso o FastMM no Delphi 7, para evitar "memory leaks" ou o famigerado "out of memory". Vou testar o Sampling Profiler,ou outro similar. Obrigado. Edson.

Boa tarde amigos. - Delphi: 7 - Windows: 7 (Ultimate) - Banco de dados: MySQL, acessado pelo Zeos Problema: No Windows XP, tudo funciona perfeitamente (super rápido). No Windows 7, as telas ficam lentas, principalmente quando se faz acesso ao banco de dados. O cursor que nem dá pra notar no XP, fica piscando um tempão no Windows 7. Já tentei de tudo: - Desativei todos os recursos visuais do windows (interface aero), deixando o tema como "tema clássico do windows"; - Desativei o UAC; - Desativei Firewall; - Testei o sistema com micro sem anti-vírus instalado. Um fato curioso, é que quando acesso o cliente para suporte, via Ammyy Admin, o sistema fica super rápido, somente enquanto estou conectado. Um cliente me ligou dizendo que depois que trocou de micro, e de windows xp para 7, estava muito lento. Eu conectei pelo Ammyy pra analisar e, enquanto estava conectado, ele dizia que estava rápido, e quando eu desconectei voltou a ficar lento. Eu pedi pra ele instalar o Ammyy na rede local, só pra testar, e fazer um acesso de um pc para o outro. E assim fica rápido, basta desconectar e fica tudo lento. Sugeri para o cliente que instale uma placa de vídeo off-board, somente pra ver se melhora, mas acho muito estranho. Não é só em um cliente, aqui também percebi, mesmo num micro com processador I7, e vídeo off-board. Alguém já teve algum problema parecido ? []´s Edson.

Bom dia... Segue função "CharInSet", para manter compatível com Delphi 7 function CharInSet(C: AnsiChar; const CharSet: TSysCharSet): Boolean; begin Result:=C in CharSet; end; []´s Edson.

Boa tarde pessoal. Em respeito aos colaboradores do ACBr, e para não poluir o fórum com um projeto "polêmico", criei um projeto no SourceForge, para dar continuidade à unit. O link é: https://sourceforge.net/projects/recuperaxml/ Lá tem fórum também, sugiro que postem suas dúvidas e sujestões lá. Postei a última versão do ACBrHTMLtoXML.pas, revisada pelo colega Solivan, que parece que é a mais completa no momento. Na minha modesta opnião, o projeto não faz mal nenhum a ninguém, pode apenas servir para uns e não servir para outros. Poderia até ficar no SVN do ACBr, pois seria um lugar a menos pra procurar. No meu caso, por exemplo, sempre tenho consulta de escritórios de contabilidade, querendo ajuda na captura de consulta de NFe, principalmente nas notas de entrada, pois as de saída são enviadas pelos clientes aos seus contadores. Imagine uma nota com 800 ítens, sendo lançada manualmente na contabilidade. Vai um dia inteiro de digitação e depois outro pra achar um erro de centavos. Importando o XML (original, de preferência), são apenas alguns segundos. Todos estamos carecas de saber (e cansados de cobrar) os fornecedores, alguns enviam certinho, outros não. Tem os fornecedores pequenos, que usam o emissor gratuito da receita federal, que nem xml gera automático, tem que "exportar", depois enviar o xml por e-mail, e estes ainda acham que o DANFe é a NFe. []´s Edson.

Boa tarde Elton. Então, é que teve uma empresa, que emitiu as notas com aliquota e valor do pis/cofins errados. (a empresa mudou de regime tributário e não alterou as alíquotas). E o contador quer importar com o valor correto, senão tem que alterar um por um no SPED. (são mais de 6.000 ítens de notas fiscais). O sistema que gerou o arquivo texto tem um esquema de fechamento mensal, então teriam que desfazer o fechamento, alterar os lançamentos e fechar novamente. Pra isto teriam que parar a produção, aí já viu. Alterei o txt, mas só dá pra alterar as alíquotas... não dá pra refazer os cálculos. Até consegui fazer pelo MySQL, mas o hash travou tudo. Não consegui "decifrar" o esquema, só sei que é hash é do tipo SHA1, mas não sei como gerar novamente o hash. A solução vai ser levar o validador na empresa e deixar uns funcionários alterando manualmente. []´s Edson.

Boa tarde Juliomar. Deu certo. Tem que acessar o banco de dados com o SPED aberto, estava tentando com ele fechado. Realmente a questão do hash pegou... Não adianta alterar os registros sem alterar o hash. Agora voltei a estaca zero ! Vou pesquisar sobre isto, se achar alguma coisa posto aqui. []´s Edson.

Bom dia amigos. Preciso ajudar um amigo a alterar alíquotas, base e valor do pis/cofins, "por dentro" do banco de dados (MySQL). Até achei uma dica, com a porta 3338, usuário e senha: spedfiscal, mas não conecta. Tentei várias senhas, no chute, mas não consegui acessar. Alguém sabe a senha correta ? ( SPED EFD Contribuições versão 2.0.5 ) []´s Edson.

schrsistemas, Testa pela unit postada no outro tópico: Depois deixa o seu feedback pra ver se falta mais alguma campo. []´s Edson.

Boa noite. Segue unit alterada. Testei com notas simples e funcionou. Falta testar com notas "complexas", com várias duplicatas, com vários volumes, etc. Não testei com notas da versão 1.0 Só não resolvi os campos NFe.procNFe.nProt := LerCampo(Grupo, 'Protocolo'); NFe.procNFe.dhRecbto := StrToDateDef(LerCampo(Grupo,'Data/Hora'),0); Porque tem uma seção de eventos, que não éra tratada antes. Caso alguém tenha tempo pra resolver, meus agradecimentos. []´s Edson. ACBrHTMLtoXML.pas

Falei tanto que esqueci de postar a "solução". Na unit ACBrHTMLtoXML, alterar a linha: if Trim(Versao)<>'2.00' then para: if (Trim(Versao)<>'2.00') and (Trim(Versao)<>'XML2.00') then Pelo que vi, na consulta completa mudou somente a versão: de "2.00" para "XML2.00" []´s Edson.

Boa noite Ítalo. Não se preocupe, você está longe de ser "chato". O problema do Brasil e dos brasileiros não é falta de Leis ou de Normas, o que falta é gente que se preocupe em cumprí-las. No meu sistema, os usuários não tem como não enviar os arquivos por e-mail, deixei fixo e obrigatório. Se o destinatário não tiver e-mail, mesmo assim um e-mail é enviado para o próprio emitente, para que ele "se lembre" que o cliente não tem e-mail cadastrado e conserte isto. Por outro lado, na minha empresa, em algumas compras de hardware, em determiandos fornecedores, não recebo e-mail com XML, e tenho que ligar solicitando ao fornecedor. Aí enviam, mas na compra seguinte, ou seguinte da seguinte... nada de XML. Quando não recebo, nem estou mais perdendo tempo, envio a "manifestação do destinatário", confirmando a operação e baixo o XML, depois envio um e-mail "elogiando" o fornecedor, por ser tão prestativo e correto. Não sei se só acontece comigo, mas tenho clientes que não entendem que DANFE não é NFe. Que tem receber e manter arquivo o XML por 5 anos, que é responsabilidade dele e não do contador, mas... parece que nem dão bola pro problema. Então, é só aguardar uma "diligência fiscal" para aplicar as multas, aí, quando doer no bolso, eles vão entender. O problema é com as empresas pequenas, que não tem nem "departamentos". Uma transportadora pequena, que tem 1 ou 2 funcionários na área administrativa, nem pensam em "incomodar" o cliente, solicitando o XML... vai que o cliente se "ofenda" e troque de transportadora ? Então digitam tudo, tomando 10 vezes mais tempo do que uma importação simples de XML. Estou quebrando um galho recuperando o XML da receita, somente pra agilizar o trabalho do funcionário da transportadora, e enquanto isto, tentando convencer gregos e troianos a trabalharem direito. Sinceramente, acho que as transportadora não deveriam ter os XMLs autorizados. Deveria haver uma consulta específica, somente com os dados pertinentes ao tranporte. Não gostaria de ver um simpatizante do Edward Snowden distribuindo cópias de notas dos meus clientes para os concorrentes. Mas aí já é outra história. []´s Edson.

Boa tarde ... Hoje também começou a dar problemas aqui. No meu caso, num sistema de emissão de CTe, uso para baixar um XML temporário e extrair dele o emitente, destinatário, qtd. de volumes, valor da nota, etc. Assim o funcionário da transportadora não precisa digitar tudo. Não é para baixar o XML autorizado, é somente para facitar o serviço. A sugestão de baixar o xml -para uma transportadora- não funciona, pq a transportadora não tem o certificado do emitente nem do destinatário, que seria necessário para baixar o xml. Nem vou falar aqui que é obrigação do emitente enviar o XML autorizado paro destinatário E PARA A TRANPORTADORA, pq é chover no molhado... Ninguém envia. Ainda não tive tempo para debugar o processo, mas deve ter alterado alguma coisa na consulta completa da NFe (no site nacional). Vou tentar debugar hoje a noite. []´s Edson.

Olá Felipe. Eu faço assim: exemplo: var xCnpjEmpresa, PathNFe: String; begin xCnpjEmpresa:='00111555111122'; PathNFe:=ExtractFilePath(Application.ExeName); // Setar as pastas onde deseja salvar os arquivos DM.ACBrNFe.Configuracoes.Arquivos.PathNFe :=PathNFe + xCnpjEmpresa; DM.ACBrNFe.Configuracoes.Arquivos.PathCan :=PathNFe + xCnpjEmpresa; DM.ACBrNFe.Configuracoes.Arquivos.PathCCe :=PathNFe + xCnpjEmpresa; DM.ACBrNFe.Configuracoes.Arquivos.PathMDe :=PathNFe + xCnpjEmpresa; DM.ACBrNFe.Configuracoes.Arquivos.PathInu :=PathNFe + xCnpjEmpresa; DM.ACBrNFe.Configuracoes.Arquivos.PathDPEC :=PathNFe + xCnpjEmpresa; DM.ACBrNFe.Configuracoes.Arquivos.Salvar := True; DM.ACBrNFe.Configuracoes.Arquivos.EmissaoPathNFe :=True; // Pasta para os PDFs DM.ACBrNFe.DANFE.PathPDF := :=PathNFe + xCnpjEmpresa+'\PDF\; // Setar a pasta de arquivos gerais DM.ACBrNFe.Configuracoes.Geral.PathSalvar := PathNFe+xCnpjEmpresa+'\Temp\'; DM.ACBrNFe.Configuracoes.Geral.Salvar := True; // Neste caso os arquivos temporários ficam numa pasta 'C:\Sistema\Cnpj da Empresa\Temp' end; []´s Edson.

Bom dia Régis... Atualmente estou gravando no banco de dados o cNF usado para gerar a chave da NFe, mas o problema é que neste cliente, fiquei uns dois dias sem gravar, e agora tenho alguns milhões de combinações possíveis. Não posso cancelar, inutilizar, etc... O cliente acabou emitindo outra nota para poder entregar a mercadoria, e esta ficou pendente pra resolver depois... Se não tiver outra saída, estou pensando em fazer um loop para consultar na Sefaz, gerando as chaves, mudando o cNF, mas pode demorar um século... Obrigado mesmo assim.

Bom dia ! Em meu sistema, usava a tag "cNF" zerada (Ide.cNF :=0) isto fazia a chave da nfe repetir o nr da nota, exemplo: nota 000105, a chave éra "35131099999999999999550010000001051000001051" o que deixava fácil a obtenção de qualquer chave gerada pelo sistema, e facilitaria a vida de "intrometidos", que poderiam consultar qualquer nota, com apenas algumas tentativas, mudando somente o dígito. Passei a usar um número randômico para a chave, o que resolveu o problema. Porém, não sei como, nem porquê... num cliente, houve problemas na transmissão, e o operador tentou gerar a mesma nota várias vezes, e ficaram gravados vários xmls, um para cada tentativa. Consultando na sefaz, nenhum está autorizado. Se tentar gerar novamente, dá msg de que já existe uma nota fiscal autorizada com o número informado, com chave diferente da informada. Os arquivos temporários (xml do protocolo e recibo) foram excluídos, pois ficam numa pasta "Temp" que é zerada na primeira execução do sistema. Resumindo: Não tenho a chave correta, pois numa das tentativas uma nota foi aceita. Teria como consultar a chave da nota, usando o número dela ? Ou teria na SEFAZ alguma consulta de todas as notas que a empresa emitiu ? []´s Edson.

Sugestão: Crie um relatório a parte, pode ser um "romaneio de embarque" por exemplo. No relatório, vc inclui tudo o que precisar, inclusive a imagem do código de barras (e até a foto do produto se for o caso). Quando compro equipamentos de informática, sempre recebo junto com a nota fiscal uma folha, com os números de série dos produtos da nota. Por exemplo, se compro 10 pen-drives, a lista mostra 10 números de série individuais. (dados usados para a garantia do produto). Até poderia vir impresso na DANFE, mas tem notas que dá até medo de ler as informações complementares do produto, de tanta informação que o governo exige. Um exemplo: Impressora HP Laserjet Pro P1102w - Produto com PPB conforme a Lei 8248/91 e nova redação Lei 10176/01, conforme NF 11111 e portaria interministerial NCT/MDIC/MF Nr 601 de 30/11/204, Fabricante Hewlett Packard Brasil Ltda.. Endereço: Rua xxxxx, nnn Cep xxx, Cidade: zzz CNPJ 11111111111111 IE 222222222222 Inf. Subs. Base ST 999,99, Valor ST Paga 99,99 /ICMS próprio: 99,99 e por aí vai... []´s Edson.

Respondendo, para quem mais possa precisar: GTIN14 é um padrão de codificação, não um tipo de código. O tipo de código usado na impressão é o "Interleaved 2 of 5" (2 de 5 intercalado). É usado em centros de distribuição, para indentificar caixas coletivas. Por exemplo, 1 caixa contendo 12 unidade de um produto X. Cada produto é etiquetado com seu código GTIN-13 (antigamente éra conhecido como EAN-13): "7891111222226" E a caixa coletiva tem uma etiqueta com um GTIN-14, exemplo "1 789111122222 8", sendo que o primeiro dígito é um indicador de quantas unidades existem na caixa coletiva, seguida dos doze primeiros digitos do GTIN-13 e mais um dígito verificador. Tem que ser combinado com o cliente, uma tabela que mostre a quantidade, ex: 1 = 12 unidades 2 = 18 unidades 3 = 24 unidades 4 = 36 unidades 5 = 48 unidades 6 = 54 unidades 7 = 60 unidades 8 = 66 unidades 9 = *** quantidade variável 0 = não se aplica []´s Edson.

Tenho que imprimir código de barras GTIN-14 para caixas "coletivas" e GTIN-13 para as caixas "individuais". Estou testando alguns componentes de código de barras, e no ACBrBarCode, temos: bcCodeEAN128A bcCodeEAN128B bcCodeEAN128C GTIN-14 ou ITF-14 é o mesmo que bcCodeEAN128A ? Ou seria outro, tipo bcCode_2_5_interleaved ? Grato. []´s Edson.

Boa noite. Também tive um problema parecido. Em micros sem anti-vírus instalado, o meu sistema não funciona. Dá alguma mensagem de erro no arquivo .EXE. Instalando qualquer anti-vírus, funciona normalmente. Com o AVAST, tenho problemas com o "SandBox", deixo sempre desativado. Outro problema que tem ocorrido, se o meu sistema estiver aberto, e o cliente abrir a página do Bradesco, o sistema fecha sozinho. Está na cara que é o "guardião", ou GbpPlugin que está fechando meu sistema... Mas só queria entender o porque. Antes do MSN ir pro beleleu, meus clientes reclamavam que não podiam abrir o site do Banco do Brasil que o MSN fechava "sozinho". Resumindo: Não ajudei em nada, mas compliquei mais um pouquinho []´s Edson.