Douglas Lieck

Atualizei e Testei Funcionou corretamente Muito Obrigado pela ajuda.. Att.: Douglas Lieck

Bom dia, Desculpe a demora. Passos que segui: Bematech Com4 AbrePorta AbreCupom VendeitemDepartamento: cod = 12345678901234 Descrição = MAT. ISENTO Alíquota = II Acréscimo de 1 Segue em anexo arquivo Acbrlog.txt Obrigado acbrlog.txt

Boa tarde, Ainda estou com o problema... Alterei varias formas, mas não consegui resolver o mesmo. Se alguém poder ajudar agradeço.

Boa tarde, Estou com um problema ao dar um acréscimo de valor em um item com a impressora Bematech MP20. Essa rotina na Bematech mp 4000 esta funcionando perfeitamente. O comando enviado é o seguinte: EnviaComando(#63 + AliquotaECF + ValorStr + QtdStr + DescontoStr + AcrescimoStr + StringofChar('0',22) + Unidade + Codigo + Descricao ) ; Inicialmente pensei que fosse limitação do ecf, pois tem a limitação de não ser MFD, Mas testei em um exemplo da bematech e consegui dar acréscimo no item. O erro que dá através do acbr é: [0][30][17] 15:46:27 RX <- [0][129] ----------------- ERRO ----------------- Erro retornado pela Impressora: Bematech Comando não executado Tipo de parâmetro de CMD inválido ---------------------------------------- Alguém já teve esse problema? fico no aguardo de um retorno! Obrigado desde já.

Foi resolvido.. havia um problema com a ECF

Bom dia a todos, Estou com um problema no ECF Epson, ao tentar buscar os dados da ultima redução Z o GT "grande total" está vindo zerado, fiz varios testes mas porém não consegui identificar o problema. Segue em anexo Log do Acbr e o retorno da impressora. Desde já agradeço. acbrlog.txt

recebeu as mensagens welkson?

Gostaria de saber se alguem conhece e me indique algum software que faz o mesmo que um conversor de USB/Serial, Pesquisei e achei um monte de hardware mas gostaria de um software Alguem conhece algum? Obrigado desde já.

eu subi os fontes, agora se foi atualizado eu não sei te dizer somente o Daniel pode dizer, ou verificar nos fontes se contém a implementação.

se funcionar ta valendo

Bom dia, Para urano eu uso AcbrEcfFiscnet, Implementei da seguinte maneira: //Declaração procedure EspelhoMFD_DLL(DataInicial, DataFinal: TDateTime; NomeArquivo : String; Documentos : TACBrECFTipoDocumentoSet = [docTodos] ) ; overload ; override ; procedure EspelhoMFD_DLL(COOInicial, COOFinal: Integer; NomeArquivo : String; Documentos : TACBrECFTipoDocumentoSet = [docTodos] ) ; overload ; override ; ================================================================================== procedure TACBrECFFiscNET.EspelhoMFD_DLL(DataInicial, DataFinal: TDateTime; NomeArquivo: String; Documentos: TACBrECFTipoDocumentoSet = [docTodos]); //Totall - Douglas var Linhas: TStringList; begin Linhas := TStringList.Create; LeituraMFDSerial(DataInicial, DataFinal, Linhas, Documentos); WriteToTXT(NomeArquivo, Linhas.Text, False); end; procedure TACBrECFFiscNET.EspelhoMFD_DLL(COOInicial, COOFinal: Integer; NomeArquivo: String; Documentos: TACBrECFTipoDocumentoSet); //Totall - Douglas var Linhas: TStringList; begin Linhas := TStringList.Create; LeituraMFDSerial(COOInicial, COOFinal, Linhas, Documentos); WriteToTXT(NomeArquivo, Linhas.Text, False); end; acredito que deve ter já implementado a função citada em vermelho, caso não tenha avise que posto ela tbm. para o funcionamento deve-se usar a dll leitura.dll que segue em anexo. espero ter ajudado. Urano1FIT.rar

Muito obrigado pela atenção.

Bom dia, Estou com um problemão, estou tentando usar a bematech MP 7000 em modo USB, instalei os drivers necessários e com o exemplo da bematech consegui fazer a comunicação com a impressora, porém no Acbr não consegui, adicionei uma nova porta com nome USB, mas não deu muito certo. Fui debugando e percebi que no Acbr tem um tratamento if not fpDevice.IsSerialPort then raise Exception.Create(ACBrStr('A impressora: '+fpModeloStr+' requer'+sLineBreak+ 'Porta Serial: (COM1, COM2, COM3, ...)')); função chamada pelo comando acima: function TACBrDevice.IsSerialPort: Boolean; begin Result := (pos('COM', fsPorta) = 1) {$IFDEF LINUX} or (pos('/dev/tty', fsPorta) = 1) {$ELSE} or (copy(fsPorta,1,4) = '\\.\') {$ENDIF} end; ou seja se não for COM retorna false ocasionando no raise.. como faço para conectar a impressora usando USB? Alguem já passou por esse problema? Desde já agradeço.