Sergio Jonas

Segue a classe com as alterações para geração dos dados corretamente. Desde já Obrigado! ACBrADRCST_Bloco1_Class.pas

Bom Dia, Tudo Certo? Estou tendo problemas ao gerar o arquivo ADRC-ST quando se refere a atributos numéricos do manual, que por sua vez nas classes da ACBR estão como Tipo Integer. como exemplo vamos tomar como nota o registro 1110 que possuí os atributos CST_CSOSN e N_NF que ambos estão sendo gerados no arquivo de texto como data, conforme segue em anexo o arquivo com nome Arquivo Gerado pelo Exemplo. Problema, Como nas classes do ADRC-ST os atributos numéricos foram declarados como Integer no momento de gerar os dados chama o método LFill da classe ACBrTXTClass e não tem um método desse sobrescrito com o tipo de dados Integer está caindo no método sobrescrito de data. Desde já Agradeço.

Boa Tarde, Pessoal! Identifiquei que na enumeração TindSusp está faltando 2 opções na unit pcnConversaoReinf.pas Segue em anexo unit ajustada. 02 - Depósito Judicial do Montante Integral 03 - Depósito Administrativo do Montante Integral Conforme Página 7 do manual Versão 1.3.02 em anexo. pcnConversaoReinf.pas Leiautes da EFD-Reinf v1.3.02.pdf

Bom Dia Pessoal, Estou tendo muita dificuldade para resolver o problema apresentado abaixo! Uso o Componente ACBR Atualizado Trunk2 pela IDE Delphi 2010 para Clientes no MS, usando o protocolo EscECF para Impressoras Blindadas Bematech Modelo MP-4200 TH FI II, versão da ECF segue em anexo, mas acontece muitos erro de Impressora Bematech não está respondendo, já fiz inúmeras tentativas que seguem abaixo e o problema persiste em todos os Clientes, já não sei mais o que tentar(Esgotei minhas possíbilidades). -> Usando Velocidade da Serial em 9600/115200 -> Fazendo testes Aumentando o Timeout até 3000. -> Reinstalamos Driver da porta. -> Trocamos cabo. -> Entramos em contato com a Bematech. -> Problema vem ocorrendo desde 2016 quando começaram a usar as impressoras com porta serial Virtual(USB), mas que a partir da versão Julho 2017 o problema tornou se mais frequente, chegando a exibir a mensagem logo após a ativação da ECF, conforme trecho de log abaixo. -------------------------------------------------------------------------------- ATIVAR - 25/08/17 08:37:00:078 - Modelo: EscECF - Porta: COM6 - TimeOut: 50 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=DTR/DSR MAXBANDWIDTH=0 SENDBYTESCOUNT=0 SENDBYTESINTERVAL=0 -------------------------------------------------------------------------------- -- 25/08 08:37:00:078 Sincronismo TX -> [22] -- 25/08 08:37:00:093 Sincronismo RX <- [22][131] -- 25/08 08:37:00:093 -- 25/08 08:37:03:094 ----------------- ERRO ----------------- Impressora EscECF não está em linha ---------------------------------------- -- 25/08 08:37:05:360 -------------------------------------------------------------------------------- ATIVAR - 25/08/17 08:37:05:360 - Modelo: EscECF - Porta: COM6 - TimeOut: 50 Device: BAUD=9600 DATA=8 PARITY=N STOP=1 HANDSHAKE=DTR/DSR MAXBANDWIDTH=0 SENDBYTESCOUNT=0 SENDBYTESINTERVAL=0 -------------------------------------------------------------------------------- -- 25/08 08:37:05:391 Sincronismo TX -> [22] -- 25/08 08:37:05:391 Sincronismo RX <- [22][131] -- 25/08 08:37:05:391 -- 25/08 08:37:05:391 TX -> [SOH][132][26][NUL][ENQ][NUL]15|0|1 -- 25/08 08:37:05:406 RX <- [ACK] -- 25/08 08:37:05:406 Status TX -> [ENQ][NUL] -- 25/08 08:37:05:422 Resposta: SEQ:132 CMD:26 EXT:0 CAT:0 RET:[SOH][NUL][NUL][NUL] TBR:321 BRS:"BEMATECH|MP-4200 TH FI II|ECF-IF|BE111710101110018280|004|-------------|-------------|26406017000137|282595880|161|R$|02|06|01.00.03|AUTO POSTO BAENA LTDA|AUTO POSTO BAENA LTDA|RUA: DR. COUTINHO, S/N CHAC 84 ZONA SUBURBANAFONE:(0**67)3453-1202 CEP:79940-000 CAARAPO-MS|QWERTYUIOP|-------------|02.00|MS||0|null|null|" CHK:248 -- 25/08 08:37:05:532 RX <- [SOH][132][26][NUL][NUL][SOH][NUL][NUL][NUL]A[SOH]BEMATECH|MP-4200 TH FI II|ECF-IF|BE111710101110018280|004|-------------|-------------|26406017000137|282595880|161|R$|02|06|01.00.03|AUTO POSTO BAENA LTDA|AUTO POSTO BAENA LTDA|RUA: DR. COUTINHO, S/N CHAC 84 ZONA SUBURBANAFONE:(0**67)3453-1202 CEP:79940-000 CAARAPO-MS|QWERTYUIOP|-------------|02.00|MS||0|null|null|[248] Pela análise do LOG da ACBR o problema acontece após o Fechamento do Cupom Fiscal ao chamar NumGRG. acbrlog.txt

Boa Tarde, Estou com grande problema usando impressora da Bematech MP-4200 TH FI com cabo USB que emula uma Porta Serial Virtual, e o problema acontece em requisições aleatórias, retornando assim.: ----------------- ERRO ----------------- Impressora BEMATECH não está em linha ---------------------------------------- ou em alguns comandos ----------------- ERRO ----------------- Impressora EscECF não está em linha ---------------------------------------- e o Retorno continua se repetindo a toda requisição a partir de então, até que a aplicação é fechada e ao retornar a aplicação por um curto prazo, a aplicação funciona normalmente, já perdemos clientes por esse motivo, Segue em anexo LOG da ACBR e Dados da Impressora. Tentativas de correção: -> ECF já foi pra intervenção. -> Suporte da Bematech já conectou e reinstalaram drivers. -> Já aumentei o TimeOut de 3 para 30. -> Já estou usando o ControlePorta := True; -> Estou usando o Device.ProcessMessages := False; -> Estou usando o Device.Baud := 115200; -> Já pesquisei em todo o fórum na tentativa de solucionar o problema, porém sem exito, estou usando versão Trunk2 de Novembro. Desde já Agradeço, as possíveis sugestões... acbrlog19-01.txt

Bom Dia, Pessoal... Ainda estou com problemas desinstalei todos os Componentes ACBR, atualizei os Fontes da ACBR e Reinstalei o TRUNK2 na Versão do dia 30/10/2015. Atualizei o sistema no Cliente o problema ainda continua com a MP 4200 TH FI II, Cliente abre o PAF-ECF faz vendas, quando deixa o PAF-ECF parado por um tempo, ao voltar o sistema fica dando erro de Impressora não Responde, Fechando o PAF-ECF ao iniciar novamente volta a operar normalmente. Log e Propriedades Padrão Alteradas abaixo.: FACBrECF.DescricaoGrande := False; FACBrECF.ExibeMensagem := False; FACBrECF.FormMsgColor := clWindow; FACBrECF.BloqueiaMouseTeclado := False; //DEVIDO A ERROS DE ACBRECF OCUPADO, AGUARDANDO COMANDO ANTERIOR FACBrECF.Device.ProcessMessages := False; FACBrECF.IgnorarTagsFormatacao := True; FACBrECF.Modelo := TACBrECFModelo(PAFArq.ReadInteger('ECFPAF', 'MODELO_ACBR', 2)); //9600 é padrao então não precisa passar senao na elgin não funciona if PAFArq.ReadInteger('ECFPAF', 'DEVICE_BAUD', VelocidadePadraoPortaECF) <> VelocidadePadraoPortaECF then FACBrECF.Device.Baud := PAFArq.ReadInteger('ECFPAF', 'DEVICE_BAUD', VelocidadePadraoPortaECF); FACBrECF.Porta := PAFArq.ReadString('ECFPAF', 'PORTA_COM', 'COM1'); FACBrECF.ReTentar := False; FACBrECF.OnMsgPoucoPapel := ACBrECF1MsgPoucoPapel; Desde já Agradeço... acbrlog.txt

É só adicionar a configuração para a ACBR depois do Ativar ECF DecimaisPreco := 3; Se for antes do Ativar ela volta para 2 casas, tive esse problema com a MP 4200 TH FI

Muito Obrigado Amigo... Problema Solucionado!

Bom Dia Amigos... Estive Analisando uns tópicos sobre o assunto pois estavam confusos e não achei a solução para o problema enfrentado, para a impressão dos comprovantes de TEF o PAF precisa bloquear o teclado e mouse, para tanto tenho uma função pois quando travo o teclado e mouse pela minha função e chamo a função da acbr AbreCupomVinculado para a impressão das vias a mesma está desbloqueando meu teclado e mouse, alguém tem alguma dica de como resolver, ou onde posso desativar o destravamento do teclado e mouse pela acbr?