-
Total de ítens
26.246 -
Registro em
-
Última visita
-
Days Won
749
Community Answers
-
Daniel Simoes's post in Sugestão De Configuração De Computador Usado Para Emissão De Cupom Fiscal was marked as the answer
Acho que importa mais a estabilidade... em termos de processador mesmo um "Celeron" dá conta do recado, Alguns requisitos desejáveis:
- maquina sem ventoinha
- lacrada (imune a poeira)
- várias portas seriais
Os fabricantes de ECF possuem equipamentos específicos para automação... (porém são um pouco mais caros que os PCs tradicionais)
http://www.sweda.com.br/v2011/br/produtos.asp
-
Daniel Simoes's post in Correção Na Função Buscarecf No Acbrcniee was marked as the answer
Acho que não precisamos de duas comparações... O problema é que o código atual não remove os espaços do parâmetro informado pelo usuário...
Por favor tente dessa maneira:
function TACBrCNIEE.BuscarECF(const AMarca, AModelo, AVersaoSB: String; const RemoveEspacos: Boolean): TACBrCNIEERegistro; var I: Integer; Marca, Modelo, VersaoSB: String; MarcaAtual, ModeloAtual, VersaoAtual: String; begin // abrir a tabela se estiver fechada if Cadastros.Count <= 0 then begin if not Self.AbrirTabela then raise EACBrCNIEE.Create('Não foi possível abrir a tabela de CNIEE.'); end; Marca := AnsiUpperCase(AMarca); Modelo := AnsiUpperCase(AModelo); VersaoSB := AnsiUpperCase(ACBrUtil.OnlyNumber(AVersaoSB)); if RemoveEspacos then begin Marca := StringReplace(Marca, ' ', '', [rfReplaceAll]); Modelo := StringReplace(Modelo, ' ', '', [rfReplaceAll]); VersaoSB := StringReplace(VersaoSB, ' ', '', [rfReplaceAll]); end; Result := nil; for I := 0 to Cadastros.Count - 1 do begin MarcaAtual := AnsiUpperCase(Cadastros[I].DescrMarca); ModeloAtual := AnsiUpperCase(Cadastros[I].DescrModelo); VersaoAtual := AnsiUpperCase(ACBrUtil.OnlyNumber(Cadastros[I].Versao)); if RemoveEspacos then begin MarcaAtual := StringReplace(MarcaAtual, ' ', '', [rfReplaceAll]); ModeloAtual := StringReplace(ModeloAtual, ' ', '', [rfReplaceAll]); VersaoAtual := StringReplace(VersaoAtual, ' ', '', [rfReplaceAll]); end; if (MarcaAtual = Marca) and (ModeloAtual = Modelo) and (VersaoAtual = VersaoSB) then begin Result := Cadastros[I]; Exit; end; end; end; -
Daniel Simoes's post in Erro Ao Tentar Gerar Arquivo Mfd Em Ecf Bematech was marked as the answer
Anexe o LOG gerado pelo ACBrECF e se possível o LOG gerado pelas DLLs
-
Daniel Simoes's post in Gerar Md5, Porem Sp Nao Necessita Homologar was marked as the answer
Em SP o TEF pode ser dispensado se o estabelecimento autorizar o envio das informações de Cartão de Credito das Operadoras para o Fisco...
-
Daniel Simoes's post in Estornar Pagamento was marked as the answer
Acho o estorno de pagamentos totalmente dispensável...
Hoje com as novas regras do TEF ( Cielo premia ) a aplicação já precisa bufferizar todos os pagamentos até completar o total pago...
Ou seja, como nada ainda foi impresso, da pra desfazer o que você quiser...
-
Daniel Simoes's post in Pafecf - Menu Fiscal - Arquivo Mf was marked as the answer
Pode ser que vc esteja apontando para o repositório de fontes antigo...
Por favor veja: http://www.projetoacbr.com.br/forum/index.php?/forum-3/announcement-2-novo-caminho-para-o-c%C3%B3digo-fonte-do-acbr-no-sourceforge/
-
Daniel Simoes's post in Erro Ao Abrir Cupom Vinculado Bematech Mp-4000 was marked as the answer
Depende do modelo do ECF, geralmente é uma letra (V) no lado da descrição da Forma de Pagamento
Em todos usuários aparecem "Alerta"... note que o seu está zerado (sem alertas)
-
Daniel Simoes's post in Nº Coo Evento Comandaecfabrevinculado Pegando Do Arq. De Retorno was marked as the answer
humm.. agora compreendo melhor... esse tópico é recorrente aqui no fórum (tente usar a pesquisa)... normalmente a sugestão do pessoal da homologação é alterar também o COO do arquivo anterior...
-
Daniel Simoes's post in Emulador Mp-4200 Th Fi - Impressora Não Está Em Linha was marked as the answer
Sim, funciona normalmente até mesmo no Windows 8
Você esta usando o modelo ecfEscEcf ?
Você criou um par de portas seriais virtuais em sua maquina ?
-
Daniel Simoes's post in Erro: Digitação Não Permitida was marked as the answer
A mensagem vem do SiTEF...
-
Daniel Simoes's post in Ncn Em Operação Adm Abortada was marked as the answer
Um WorkAround seria:
1543 // Amex retorna 101 e não FF 1544 if (pos(UpperCase(Resp.Conteudo.LeInformacao(9,0).AsString), 'FF|101') > 0) then 1545 ApagaEVerifica( ArqResp ); -
Daniel Simoes's post in Erro Após Atualização was marked as the answer
Recompile os pacotes básicos do ACBr, como por exemplo a ACBrComum
-
Daniel Simoes's post in Erro: 020 "data Inferior Ao Do Ultimo Documento" (Daruma) was marked as the answer
Você nunca conseguirá deixar a Data/Hora inferior ao último documento emitido, basta deixar o ECF em intervenção, aguardando chegar a data/hora do último documento emitido, e então ajustar...
-
Daniel Simoes's post in Acbrmonitor Com Ecf Bematech Usb was marked as the answer
Não há como para esse marca... apenas usando um conversor USB <-> Serial
Daruma e Sweda: possuem drivers USB que geram uma Porta COM virtual no windows...
Epson: basta instalar o driver e configurar a porta como "USB"
-
Daniel Simoes's post in Erro Ecfteste: Elgin K Erro: 11000 Ao Executar Dados Ultima Rz Com Elgin/fiscnet was marked as the answer
Realmente havia um Bug na rotina.. acabei de subir uma correção... favor atualizar e verificar
-
Daniel Simoes's post in Código De Barras Em Um Comprovante 40 Colunas was marked as the answer
Pesquise sobre Esc/Pos ... É uma protocolo de impressão de linha , onde todos os comandos iniciam com ESC
Usar um gerador de relatórios ( se isso for uma opção ) seria muito mais simples... Dominar o ESC/POS não é tarefa fácil
-
Daniel Simoes's post in Impostometro was marked as the answer
No ACBrMonitor, todas strings devem estar entre aspas duplas... E você nao fez isso no comando de fechamento...
-
Daniel Simoes's post in Daruma Abre E Finaliza Rg Incompleto was marked as the answer
O problema pode estar relacionado a atualização do Sw.Básico do ECF... parece que a sua versão não suporta o comando de Expandido
Seria mais fácil usar:
ACBrECF1.IgnorarTagsFormatacao := True;
-
Daniel Simoes's post in Texto Livre was marked as the answer
Experimente:
ACBrECF1.EnviaComando( 'SUA LINHA DE IMPRESSAO' );
-
Daniel Simoes's post in Repetição Da Identificação Do Consumidor Na Sweda was marked as the answer
Você tem razão, apliquei um refactoring nessas rotinas
-
Daniel Simoes's post in Sweda - Erro-Atributo Invalido was marked as the answer
Deve ser o TimeOut...
Envie de 3 em 3 linhas, ou simplesmente configure:
ACBrECF.MaxLinhasBuffer := 3
-
Daniel Simoes's post in Crt Para Cartões Diferentes (Índices Diferentes No Ecf) was marked as the answer
Você pode ter várias formas de pagamento, até mesmo com o mesmo indice... como por exemplo:
02 CARTAO 20,00
02 CARTAO 20,00
01 DINHEIRO 10,00
Mas nem todos ECFs suportam a abertura de 2 Vinculados (CCD) com o mesmo índice de forma de pagamento (a Bematech não permite)
Por isso é muito melhor "bufferizar" tudo em uma única forma de pagamento
02 CARTAO 40,00
01 DINHEIRO 10,00
-
Daniel Simoes's post in Erro #255#255#0#1 Ao Cadastrar Forma De Pagamento was marked as the answer
Sim, você atingiu o limite de 20 formas de pagamento... não há espaços para programar outra...
Somente levando o ECF para intervenção técnica, será possível apagar as formas de pagamento não utilizadas
-
Daniel Simoes's post in Fechamento Cupom Sweda St100 was marked as the answer
Parece que seus fontes do ACBr não estão atualizados...
Compacte o LOG, e anexe o mesmo no tópico (não cole o conteúdo do mesmo como texto)
ps: Acabei de subir para o SVN uma modificação para a correta identificação do consumidor no rodapé