Data Da Ultima Redução Z - Daruma Fs700 Mach 2

[Solivan]

boa noite a todos, muito boa a alteração que o Daniel fez neste não estava mesmo funcionando mas não quis reportar, por não ter certeza, agora que foi aberto o precedente, gostaria de reportar ou me informar, se for o caso, sobre a função, ACBrECF.DataHoraUltimaReducaoZ; que trata da data da ultima redução Z. estou querendo tratar no meu sistema o seguinte;

 

1 . quando iniciar-se minha aplicação gostaria de saber se a rdz z foi emitida e se foi, gostaria de saber se foi automaticamente ou pelo meu sistema.

 

2. Então uso a data da UltimaReduçãoZ pra fazer a busca no banco de dados (SQL Server), afim de confrontar tal informação.

 

3. Porem quando a função me retorna ela não traz a data do movimento da ultima rdz, mas sim a data do dia, isso quando a redução z, já foi emitida.

 

Gostaria de saber como faço, pra buscar a data que vem no arquivo txt, DataMovimento, mesmo depois que a redução z foi impressa? para consultar no banco.

 

 

att. Solivan Noleto Milhomem

 

[Daniel Simoes]

É mais simples (e rápido) você ler o CRZ (contador de reduções Z)... e procurar por uma Redução Z eom ele no seu sistema... Se não houver... ai sim, vc lê os dados da última Redução Z

[Solivan]

Muita boa a dica Daniel, dessa forma também funcionaria para mim.

 

Obrigado!

[SAOliveira]

Daniel.

 

Tem algum comando que pega direto no ECF a data (somente) da ultima redução Z ?

 

Como o GAD da daruma faz.

[Régys Silveira]

Daniel.

 

Tem algum comando que pega direto no ECF a data (somente) da ultima redução Z ?

 

Como o GAD da daruma faz.

 

Não, você deve ler os dados da última redução Z e ai terá a informação, basicamente é o que o GAD faz.

[Daniel Simoes]

ACBrECF.DataHoraUltimaReducaoZ

[SAOliveira]

Regis, hoje já faço assim, mas tem um delay que no GAD não tem.

 

Daniel no CAPICOM acho que não foi implementado.

Retorna "Comando inválido.

[Daniel Simoes]

CAPICOM ???

 

O ACBrECF não usa nada de CAPICOM... E Sim, está implementado:

function TACBrECFDaruma.GetDataHoraUltimaReducaoZ : TDateTime ;
var
  RetCmd : String ;
begin
  if fpMFD then
  begin
    RetCmd := RetornaInfoECF('154');
    Result := StringToDateTime( copy(RetCmd, 1,2) + DateSeparator +
                                copy(RetCmd, 3,2) + DateSeparator +
                                copy(RetCmd, 5,4) + ' ' +
                                copy(RetCmd, 9,2) + TimeSeparator +
                                copy(RetCmd,11,2) + TimeSeparator +
                                copy(RetCmd,13,2),
                                'dd/mm/yyyy hh:nn:ss' ) ;
  end
  else
    Result := 0;
end ;

[Régys Silveira]

Desculpem, misturei da data de movimento com a data de emissão, valeu Daniel.

[SAOliveira]

Daniel, desculpa viajei...

 

Mas  ECF.DataHoraUltimaReducaoZ

 

Retorna 

ERRO: Comando inválido (ECF.DataHoraUltimaReducaoZ)

[Daniel Simoes]

Provavelmente seus fontes ou versão do ACBrMonitor estão desatualizadas...

 

Esse comando já existe nos fontes do ACBrMonitor:

        else if Cmd.Metodo = 'datahoraultimareducaoz' then
           Cmd.Resposta := FormatDateTime('dd/mm/yy hh:nn:ss', DataHoraUltimaReducaoZ )   

[SAOliveira]

ACBrMonitor Ver. 0.10.2.3

[Siepi]

Pelo que vi, dessa versão não consta esse método.

[SAOliveira]

Então, é o que eu gostaria de saber, para não ficar importunando.

 

Mas esta versão é de 20/05/2014

 

Grato.

[Siepi]

Vi aqui o seguinte. O comando ECF.DadosUltimaReducaoZ retorna uma série de informações dentre elas a data e hora, observe o trecho que colei abaixo

 

DataECF = 23/06/14

DataMovimento = 22/06/14

DataHoraEmissao = 23/06/14 10:20:58

NumSerie = BE050675600611000668

NumSerieMFD = 6760061105848       

NumECF = 0001

NumLoja = 0001

 

O DataHoraEmissao = 23/06/14 10:20:58 deve te atender, não?