Ecf.numloja

[SAOliveira]

Quer seja via programa ou ExecutarEcfTestes, o sempre retorna NUM Loja: ( 001),

mas nos documentos impressos aparece Lj:002

[Juliomar Marchetti]

Bom dia

Qual a marca e modelo da ECF?

[Daniel Simoes]

Por favor anexe o LOG

[SAOliveira]

ECF.ModeloSTR
OK: Daruma
ECF.SubModeloECF
OK: MACH2
ECF.NumECF
OK: 001
ECF.NumLoja
OK: 001

[EMBarbosa]

Acho que você esqueceu o Log.

[SAOliveira]

Este trecho, foi copiado do LOG.txt

 

Gerei um novo.

 

ACBrMonitor Ver. 0.10.2.3
Conectado em: 06/06/14 14:16:49
Máquina: 127.0.0.1
Esperando por comandos.
ECF.Ativar
OK: :0000000Ñ
Ö
ACBR.Ocultar
OK:
ECF.ModeloSTR
OK: Daruma
ECF.SubModeloECF
OK: MACH2
ECF.NumECF
OK: 001
ECF.NumLoja
OK: 001

Editado 6 Junho, 2014 por SAOliveira

[Daniel Simoes]

Esse é o LOG do ACBrMonitor... precisamos analisar o Log gerado pelo ACBrECF (aba ECF)

[SAOliveira]

--------------------------------------------------------------------------------
ATIVAR - 06/06/14 15:29:45:014 - Modelo: Daruma - Porta: COM1 - TimeOut: 3
         Device: BAUD=115200 DATA=8 PARITY=N STOP=1 HANDSHAKE=RTS/CTS HARDFLOW MAXBANDWIDTH=0
--------------------------------------------------------------------------------

-- 15:29:45:014 06/06/2014 Desativar
                TX -> [ESC][239][CR]
   15:29:45:186 RX <- :[ESC][239]000120006491529430606201400000000000000000000000002819749[CR]
-- 15:29:45:186
                TX -> [GS][255][CR]
   15:29:45:326 RX <- :A0E20C000000[CR]
-- 15:29:45:326
                TX -> [FS]R[200]082[188]
   15:29:45:467 RX <- :[200]082010064[CR][198]
-- 15:29:45:467
                TX -> [FS]R[200]083[189]
   15:29:45:623 RX <- :[200]083010000[CR][197]
-- 15:29:45:623
                TX -> [FS]R[200]139[189]
   15:29:45:779 RX <- :[200]13932[CR][197]
-- 15:29:45:779
                TX -> [GS][bS][CR]
   15:29:45:920 RX <- :[CR]
-- 15:29:45:920 Estado
                TX -> [FS]R[200]056[181]
   15:29:46:076 RX <- :[200]0560[CR][252]
-- 15:29:46:076
                TX -> [GS][ACK][ESC]
   15:29:46:217 RX <- :0030B80000C100[CR]<
-- 15:29:53:156 SubModeloECF
                TX -> [FS]R[200]107[176]
   15:29:53:281 RX <- :[200]107001[CR][248]

[EMBarbosa]

Parece que o comando que pega o NumLoja não foi pego no log. Poderia verificar se faltou chamar esse refazendo os passos?

[SAOliveira]

ACBrMonitor Ver. 0.10.2.3
Conectado em: 06/06/14 16:42:48
Máquina: 127.0.0.1
Esperando por comandos.
ECF.Ativar
OK:
ACBR.Ocultar
OK:
ECF.Ativar
OK:
ECF.LeituraX
OK: :0000040ë000654
ï
ECF.ModeloSTR
OK: Daruma
ECF.SubModeloECF
OK: MACH2
ECF.NumECF
OK: 001
ECF.NumLoja
OK: 001
ECF.AbreGaveta
OK: :T060614164342

ECF.AbreCupom("")
OK: :0000000È000655000321
É
ECF.DataHora
OK: 06/06/14 16:43:43
ECF.VendeItem(567, "SOLVCRYLL 1L", "18.00", 1.000, 20.00, 0.0000, "LT")
OK: :0000000Ï001000000002000
û
ECF.SubTotalizaCupom(0.00)
OK: :0000000Î000000002000
Ë
ECF.EfetuaPagamento("01", 20.00)
OK: :0000000Ñ+000000000000
ý
ECF.FechaCupom("**  ICMS a ser recolhido conforme LC 123/2006 ****              Simples Nacional              *****Vlr Aprox Trib R$ 7,17 (35,85%) Fonte:IBPT***|")
OK: :0000040Ò000655000000002000

ECF.NumCupom
OK: 000655
ECF.DataHora
OK: 06/06/14 16:43:46
ECF.NumEcf
OK: 001
ECF.NumLoja
OK: 001

 

************************************************************

 

-- 16:42:56:520 LeituraX
                TX -> [FS]F[235]0[129]
   16:42:59:361 RX <- :0000040[235]000654[CR][239]
-- 16:43:42:554 AbreGaveta
                TX -> [ESC]p000[CR]
   16:43:43:179 RX <- :[CR]
-- 16:43:43:179
                TX -> [ESC][230][CR]
   16:43:43:335 RX <- :T060614164342[CR]
-- 16:43:43:335 AbreCupom( , ,  )
                TX -> [FS]F[200][255][255][255]m
   16:43:43:817 RX <- :0000000[200]000655000321[CR][201]
-- 16:43:43:817 DataHora
                TX -> [FS]R[200]066[182]
   16:43:43:973 RX <- :[200]06606062014164343[CR][207]
-- 16:43:43:973 VendeItem( 567 , SOLVCRYLL 1L , 18.00 , 1 , 20 , 0 , LT , % , D , -1 )
                TX -> [FS]F[207]0300010000000200000000000000000567           LT TSOLVCRYLL 1L[255]1
   16:43:44:177 RX <- :0000000[207]001000000002000[CR][251]
-- 16:43:44:177 SubtotalizaCupom( 0 ,  )
                TX -> [FS]F[206]1000000000000[165]
   16:43:44:474 RX <- :0000000[206]000000002000[CR][203]
-- 16:43:44:474 EfetuaPagamento( 01 , 20 , , 0, 0 )
                TX -> [FS]F[209]01000000002000[255]w
   16:43:44:645 RX <- :0000000[209]+000000000000[CR][253]
-- 16:43:44:645 FechaCupom( **  ICMS a ser recolhido conforme LC 123/2006 ****              Simples Nacional              *****Vlr Aprox Trib R$ 7,17 (35,85%) Fonte:IBPT***[LF] )
                TX -> [FS]F[210]0**  ICMS a ser recolhido conforme LC 123/2006 ****              Simples Nacional              *****Vlr Aprox Trib R$ 7,17 (35,85%) Fonte:IBPT***[CR][LF][255]g
   16:43:46:971 RX <- :0000040[210]000655000000002000[CR]
-- 16:43:46:971 NumCupom
                TX -> [FS]R[200]066[182]
   16:43:47:112 RX <- :[200]06606062014164346[CR][202]

 

 

 

 

Editado 6 Junho, 2014 por SAOliveira

[Daniel Simoes]

Notei nos fontes de ACBrECFDaruma.pas, que não estava implementado o método GetNumLoja

 

Apliquei modificações no SVN com a implementação

[SAOliveira]

Ok vou aguardar a liberação.

[Solivan]

Notei nos fontes de ACBrECFDaruma.pas, que não estava implementado o método GetNumLoja

 

Apliquei modificações no SVN com a implementação

Muito bom pq utilizo e notei ha um certo tempo que não estava mesmo retornando corretamente.

Editado 7 Junho, 2014 por Solivan

[renesul]

Boa tarde.

 

A alteração da revisão 6980 gerou um problema no retorno do método novo.

 

function TACBrECFDaruma.GetNumLoja: String;

Var

  RetCmd : AnsiString ;

begin

  if Trim(fsNumECF) = '' then   o fsNumECF sempre vem com informação correta portanto nunca está pegando o número da loja

  begin

    if fpMFD then

       fsNumLoja := RetornaInfoECF('129')

    else

       fsNumLoja := inherited GetNumLoja ;

  end ;

 

  Result := fsNumLoja ;

end;

 

 

Não entendi o motivo do if mas ele está evitando a leitura na impressora Mach II. Se comentado funcionou 100%

 

 

Até mais.

[Daniel Simoes]

Corrigido no SVN...