IGNACIO RODRIGUES

Alguma novidade sobre a FS800i, voce receberam ela, detectaram alguma mudança?

Só mais uma pergunta, nesse metodo "procedure TACBrECFEscECFResposta.SetResposta(const Value: AnsiString);", estou recebendo essa mensagem de erro, o que seria? Erro CHK Resposta. Calculado:190 Recebido:205

ok

Alguma dessas configurações que fiz esta errada, ou influenciaria no metodo efetuarPagamento? FDataModule.ACBrECF.Modelo := TACBrECFModelo(GetEnumValue(TypeInfo(TACBrECFModelo), Configuracao.ModeloImpressora)); if FDataModule.ACBrECF.Modelo = ecfEscECF then begin FDataModule.ACBrECF.ControlePorta := true; FDataModule.ACBrECF.Device.HandShake := ACBrDevice.hsRTS_CTS; FDataModule.ACBrECF.Device.HardFlow := true; end; FDataModule.ACBrECF.Porta := Configuracao.PortaECF; FDataModule.ACBrECF.Device.Baud := Configuracao.BitsPorSegundo; FDataModule.ACBrECF.Device.Data := 8; FDataModule.ACBrECF.Device.Parity := ACBrDevice.TACBrSerialParity.pNone; FDataModule.ACBrECF.Device.Stop := ACBrDevice.TACBrSerialStop.s1; FDataModule.ACBrECF.TimeOut := 10;//Configuracao.TimeOutECF; FDataModule.ACBrECF.IntervaloAposComando := 100;//Configuracao.IntervaloECF; FDataModule.ACBrECF.MaxLinhasBuffer := 0; FDataModule.ACBrECF.ReTentar := false; FDataModule.ACBrECF.BloqueiaMouseTeclado := true; FDataModule.ACBrECF.ExibeMensagem := true; FDataModule.ACBrECF.ArredondaPorQtd := false; FDataModule.ACBrECF.GavetaSinalInvertido := false; FDataModule.ACBrECF.DescricaoGrande := true; FDataModule.ACBrECF.ArredondaItemMFD := false; FDataModule.ACBrECF.MsgAguarde := ''; FDataModule.ACBrECF.Operador := ''; FDataModule.ACBrECF.Device.ParamsString := 'BAUD=115200 HANDSHAKE=RTS/CTS HARDFLOW'; FDataModule.ACBrECF.ConfigBarras.MostrarCodigo := true; FDataModule.ACBrECF.IgnorarTagsFormatacao := false;

Certo Daniel, por acaso voce faria um acesso remoto pra ver se esclarece melhor o local onde esta o erro?

O primeiro log é o log do ACBrECF, o segundo log é o log do meu aplicativo. No segundo log não mostra que tem erro o que ocorre é que não tem retorno da impressora, e o programa não fecha o cupom por não ter resposta da impressora após efetuar pagamento, no programa exemplo do ACBrECF o cupom é fechado sem problemas. Seguem em anexo a imagem da mensagem do erro.

Esse é o log gerado pelo teste feito pelo programa teste do ACBr. -- 10:17:33:511 EfetuaPagamento( 1 , 10,25 , , 0, 0 ) TX -> [sOH][NAK][4][NUL][FF][NUL]1|1025|1||7|[242] RX <- [ACK] Status TX -> [ENQ][NUL] RX <- [WAK][16][sOH][NUL][NUL][NUL] Status TX -> [ENQ][NUL] RX <- [WAK][16][sOH][NUL][NUL][NUL] Status TX -> [ENQ][NUL] RX <- [WAK][16][sOH][NUL][NUL][NUL] Status TX -> [ENQ][NUL] 10:17:33:768 RX <- [sOH][NAK][4][NUL][NUL][sOH][NUL][NUL]@[sOH][NUL]|[215] -- 10:17:44:059 FechaCupom( MD-5:12345678901234567890123456789012PV0000000003DAV0000000001DAV-OS0000000002NF:123456[CR][LF]Val.Aprox.Impostos R$1,23(12,00%) Fonte:IBPT[LF]Componentes ACBr[LF]http://acbr.sourceforge.net ) TX -> [sOH][22][ENQ][NUL][183][NUL]0|1|MD-5:12345678901234567890123456789012PV0000000003DAV0000000001DAV-OS0000000002NF:123456[CR][LF]Val.Aprox.Impostos R$1,23(12,00%) Fonte:IBPT[LF]Componentes ACBr[LF]http://acbr.sourceforge.net|[160] RX <- [ACK] Este é o log gerado pelo nosso aplicativo. -- 10:39:13:143 EfetuaPagamento( 1 , 10,25 , , 0, 0 ) TX -> [sOH]#[26][NUL][4][NUL]14||[158] RX <- [ACK] Status TX -> [ENQ][NUL] 10:39:13:259 RX <- [sOH]#[26][NUL][NUL][sOH][NUL][NUL]@[CR][NUL]1|Dinheiro|0|[146] -- Desativando a porta: COM10 -- Ativando a porta: COM10 -- 10:39:13:285 TX -> [sOH]$[4][NUL][FF][NUL]1|1025|1||7|[sOH] RX <- [ACK] Status TX -> [ENQ][NUL] RX <- [WAK][16][sOH][NUL][NUL][NUL] Status TX -> [ENQ][NUL] RX <- [WAK][16][sOH][NUL][NUL][NUL] Status TX -> [ENQ][NUL] 10:39:13:510 RX <- [sOH]$[4][NUL][NUL][sOH][NUL][NUL]@[sOH][NUL]|[230] -- Desativando a porta: COM10 -- Ativando a porta: COM10 -- 10:39:15:371 Estado TX -> [sOH]%[26][NUL][ENQ][NUL]16|4|[215] RX <- [ACK] Status TX -> [ENQ][NUL] 10:39:15:493 RX <- [sOH]%[26][NUL][NUL][sOH][NUL][NUL]@[sTX][NUL]0|. -- Desativando a porta: COM10 -- Ativando a porta: COM10 -- 10:39:15:530 TotalPago TX -> [sOH]&[26][NUL][4][NUL]1|1|[158] RX <- [ACK] Status TX -> [ENQ][NUL] 10:39:15:653 RX <- [sOH]&[26][NUL][NUL][sOH][NUL][NUL]@[ENQ][NUL]1|46|[25] -- Desativando a porta: COM10 Veja que o problema ocorre logo após efetuar pagamento

Deletei o arquivo e fiz outro teste, estou mandando o cupom scaneado tambem, veja que abriu cupom, vendeu item, totalizou, chegou a imprimir a forma de pagamento que é dinheiro. LogACBr.txt cupom fiscal cancelado rubens.pdf

O aplicativo vai caminhando sem problemas até ao metodo 'EfetuaPagamento(formPag' FDataModule.ACBrECF.EfetuaPagamento(formPag, cdsTotalVEnda.FieldByName('VALOR').AsCurrency). Então nesse metodo não recebo nenhuma resposta o sistema para e não faz mais nada, chego a abrir cupom, vender item. LogACBr.txt

Como faço pra ativar o log, fazer o teste. Para mandar o log para voces verem, Fazendo um teste do meu aplicativo.

Veja o log, consegui conectar quando ela estava com z pendente, mas depois que tirei a z, voltou a dizer que a impressora esta fora de linha acbrlog.txt

Mas quando uso o programa DarumaFramework_Delphi, consigo emitir leitura x por exemplo

Sim esta certo, quando eu tinha colocada modelo ecfESC ativava mas não reconhecia nenhum comando, quando coloquei modelo ecfEscECF, recebi a mensagem "Impressora EscECF não está em linha", realmente o modelo ecfESC não existe.

Além deu informar que é uma ECF esc, eu devo informar mais alguma coisa para que o acbr leia os método do darumaframework, pois parece que ele ativa a conexao com a ecf mas não consegue entender os metodos. Por exemplo quando quero lançar um leitura x logo depois de conseguir ativar a impressora. Project SIC.exe raised exception class EACBrECFCMDInvalido with message 'Procedure: LeituraX não implementada para a Impressora: Não Definido FDataModule.ACBrECF.Ativar; FDataModule.ACBrECF.LeituraX;

Ok consegui ativar a impressora usando o modelo ecfESC, porem seguindo o ACBr não esta reconhecendo o status que a impressora esta me mandando que é status "Modo Fiscal", olhei em TACBrECFEstado e la não tem modo fiscal, isso ainda será implementado?

A alguma configuração especifica que tenho que fazer para conseguir conectar a Daruma FS800i, pois uso a mesma maneira que conecto a FS600, e não conecta. estou usando o metodo ativar do acbr

Recebo a mesma resposta do ECFTeste, Communication error 1: Função incorreta - + - + - + - + - + - + - + - + - + - + - + -

Quando eu uso o modelo 'ecfNaoFiscal' recebo essa mensagem: Este Emulador destina-se EXCLUSIVAMENTE para auxiliar no desenvolvimento de aplicativos para as impressoras fiscais. Usar o emulador para fins comerciais sem a devida impressão do Cupom Fiscal ou Nota Fiscal pode caracterizar crime de Sonegação Fiscal. Continua com o do Emulador?

Quando uso a solução ACBr eu uso as dll da bematech, na solução DarumaFrameWork eu uso a dll direto sem o uso do ACBr, mas que tenho que ter a solução ACBr tambem.

Eu tenho duas soluções, uma eu uso o DarumaFrameWork para conectar a impressora Bematch MP-4200 TH não fiscal, e a outra solução que estou desenvolvendo é usando o ACBr, tambem estou tentando conecta na impressora MP-4200 TH não fiscal, eu apenas mencionei o uso do DarumaFrameWork para afirmar que a impressora MP-4200 TH não fiscal esta instalado corretamente.

FDataModule.ACBrECF.Modelo := TACBrECFModelo(GetEnumValue(TypeInfo(TACBrECFModelo), 'ecfBematech')); //ecfBematech FDataModule.ACBrECF.Porta := Configuracao.PortaECF; //'COM6' FDataModule.ACBrECF.TimeOut := Configuracao.TimeOutECF; //100 FDataModule.ACBrECF.IntervaloAposComando := Configuracao.IntervaloECF; //0 FDataModule.ACBrECF.Device.Baud := Configuracao.BitsPorSegundo; //9600 FDataModule.ACBrECF.Ativar; esta ocorrendo esse erro > 'Communication error 1:Função incorreta', eu consigo acessar e imprimir a impressora diretamento pelo DarumaFrameWork, a impressora esta na porta virtual COM6 e velocidade 9600, então acredito que com isso o drive esteja instalado corretamente, para acessar com o ACBr coloco as dll da bematech na pasta principal da minha aplicação e tambem na system32, 'BemaFI32.dll', 'BemaFI32.ini' e 'mp2032.dll', então com o DarumaFrameWork eu consigo fazer tudo, vender, efetuar pagamento e imprimir o danfe. Acredito que não seja problema de instalação da impressora no PC, o que pode estar causando o erro.

procedure TACBrBancoHSBC.GerarRegistroHeader400(NumeroRemessa : Integer; aRemessa: TStringList); var wLinha: String; begin with ACBrBanco.ACBrBoleto.Cedente do begin wLinha:= '0' + // ID do Registro '1' + // ID do Arquivo( 1 - Remessa) 'REMESSA' + // Literal de Remessa '01' + // Código do Tipo de Serviço padL( 'COBRANCA', 15 ) + // Descrição do tipo de serviço '0' + // Zero padR(OnlyNumber(Agencia), 4, '0') + // Agencia cedente '55' + // Sub-Conta padR(OnlyNumber(Conta)+ContaDigito, 11, '0') + // Conta Corrente //Removi agencia repetido //ALFEU MOTA // padL( '', 2,' ') + // Uso do banco padL( Nome, 30,' ') + // Nome da Empresa '399' + // Número do Banco na compensação padL('HSBC', 15) + // Nome do Banco por extenso FormatDateTime('ddmmyy',Now) + // Data de geração do arquivo '01600' + // Densidade de gravação 'BPI' + // Literal Densidade padL( '', 2,' ') + // Uso do banco 'LANCV08' + // Sigla Layout padL( '', 277,' ') + // Uso do Banco '000001' ; // Número Seqüencial aRemessa.Text:= aRemessa.Text + UpperCase(wLinha); end; end; Na linha onde informa o numero da conta com a contaDigito esta errado "padR(OnlyNumber(Conta)+ContaDigito, 11, '0') ", o correto é padR(Agencia + Conta, 11, '0'), tem que ser 4 digitos do numero da agencia, mais 7 digitos com o numero da conta, completando com zero a esquerda depois do numero da agencia e antes do numero da conta, formando assim 7 digitos com o numero da conta e 4 dígitos com o numero da agencia. http://www.hsbc.com.br/1/PA_esf-ca-app-content/content/hbbr-pws-gip16/portugues/business/comum/pdf/cob400_jan.pdf ver nota explicativa 1

Acho que não é problema de aspas, tentei de todo jeito tanto com aspas simples quanto com aspas dupla, desta maneira: NFE.CriarEnviarNFe('[identificacao] ... , 1') NFE.CriarEnviarNFe("[identificacao] ... , 1") 'NFE.CriarEnviarNFe([identificacao] ... , 1)' "NFE.CriarEnviarNFe([identificacao] ... , 1)" tentei com aspas destas 4 maneiras.

Estou enviando este mesmo arquivo texto para o acbrMonitor, tanto na versão 0.8.10.2 - CAPICOM, quando na versão 0.8.7.0 - CAPICOM. Na versão 0.8.7.0 imprime sem nenhum problema. Ja na versão 0.8.10.2 esta mostrando o seguinte erro: ERRO: '' is not a valid floating point value é como se eu estivesse mandando algum valor vazio em branco no lugar de algum valor em float preenchido, mas isso so ocorre na versão, 0.8.10.2. Seque o arquivo texto que estou testando nas duas versão, preciso da versão mais atual que esta com problema. porque nessa versão mais atual não da estouro de margem do danfe. NFE.CriarEnviarNFe( [identificacao] NaturezaOperacao=Venda interna mod=65 tpImp=4 indFinal=1 indPres=1 Codigo=10562 Numero=10562 Emissao=16/09/2014 Saida=16/09/2014 [Emitente] CNPJ=09428584000175 IE=283468068 Razao=ANDRADE ABREU & CIA LTDA Fantasia=ANDRADE ABREU & CIA LTDA Fone=9733732256 CEP=69800000 Logradouro=Rua Edmundo Monteiro Numero=10530 Complemento=Antigo Bairro do Banheiro heheeh Bairro=Nova Humaita CidadeCod=1301704 Cidade=Humaita UF=AM [Destinatario] CNPJ=05403329412 IE= ISUF= NomeRazao=JAKELLINE ANDRADE SANTANA Fone=9733733633 CEP=56511110 Logradouro=RUA EDMUNDO MONTEIRO Numero=1906 Complemento= Bairro=SAO PEDRO CidadeCod=1301704 Cidade=HUMAITA UF=AM [Produto001] Codigo=7898409952098 EAN=7898409952098 Descricao=GELATINA EM PO FLEISCMANN 30G MARACUJA.-FLEISCHMANN NCM=32041912 CFOP=5102 Unidade=UN Quantidade=123.00 ValorUnitario=0.80 ValorTotal=98.40 cEANTrib=7898409952098 [iCMS001] Aliquota=17 CST=40 ValorBase=98.40 Valor=16.73 [Total] BaseICMS=98.40 ValorICMS=16.73 ValorProduto=98.40 ValorNota=98.40 [Transportador] FretePorConta=9 [PAG001] tpag=01 vpag=98.40 [DadosAdicionais] Complemento=Teste Emissão NFCe. , 1 , 1 , 1 , 1 , 1)

Consegui imprimir na minha MP-4200 TH, impressora não fiscal a nota consumidor, através do monitor mas esta comendo o ultimo caracter, como faço pra ajustar as margem do monitor, pois naquela aba Danfe/Dacte que tem os campos para as margens não esta resolvendo nada.