Problema Requisito XXII item 8 com Bematech MP-4000 TH FI

[leomcl]

Bom dia senhores,

Estou implementando o evento VerificarRecomporValorGT do ACBrAAC para verificar no banco de dados se o CRZ, CRO e vr. venda

bruta da última redução Z batem, para recompor o GT.

Estou tendo um problema pra buscar o vr. da venda bruta da última redução Z. Está retornando o vr. da venda bruta atual, não

o da última redução Z, ou seja, AcbrECF1.DadosReducaoZClass.ValorVendaBruta = AcbrECF1.VendaBruta. Assim, não consigo fazer

essa verificação e deixar o ACBRAAC recompor o danado do GT.

A sequencia é a seguinte:

- Chamo o procedimento ACBrECF1.DadosReducaoZ;

- Carrego do banco de dados os dados gravados da ultima redução Z, pelo num serie da impressora conectada, pelo

AcbrECF1.DadosReducaoZClass.CRZ e pelo AcbrECF1.DadosReducaoZClass.CRO;

- Verifico se AcbrECF1.DadosReducaoZClass.ValorVendaBruta = bancodedados.VrVendaBruta

Lembrando que uso Bematech MP-4000 TH FI.

Desde já agradeço a ajuda.

Leandro

[Régys Silveira]

O class ainda não está muito bem testado e funcionando, o ideal seria você ler de ACBrECF.DadosUltimaReducaoZ que vai ter retornar uma string no formato .ini, você carrega está string para um TMemIniFile e ai pode usar os comandos abaixo para ler os dados que necessita:

  ArquivoIni.ReadInteger('ECF', 'NumCRZ', 0)

  ArquivoIni.ReadInteger('ECF', 'NumCRO', 0)

  ArquivoIni.ReadFloat('Totalizadores', 'VendaBruta', 0.00)

[/code]

[leomcl]

Obrigado Regys,

Vou fazer uns testes dessa forma...

Leandro

[rogerL]

Ola todos, estou com problema DadosUltimaReducaoZ;

Estou utilizando uma Daruma FS700;

COO_INICIAL := AIni.ReadInteger('ECF','NumCOOInicial', 0); está vindo zerado

GRANDE_TOTAL:=AIni.ReadFloat('ECF','GrandeTotal', 0.00) ;está vindo zerado

a DadosReducaoZClass já está funcional?

Fiz teste na ECFTeste e não deu erro;

Muito obrigado;

[Isaque Pinheiro]

Ola todos, estou com problema DadosUltimaReducaoZ;

Estou utilizando uma Daruma FS700;

COO_INICIAL := AIni.ReadInteger('ECF','NumCOOInicial', 0); está vindo zerado

GRANDE_TOTAL:=AIni.ReadFloat('ECF','GrandeTotal', 0.00) ;está vindo zerado

a DadosReducaoZClass já está funcional?

Fiz teste na ECFTeste e não deu erro;

Muito obrigado;

Para o modelo Daruma sim, eu mesmo implementei, mas veja que se utiliza-la, os demais modelos não estão implementados.

[Isaque Pinheiro]

Ola todos, estou com problema DadosUltimaReducaoZ;

Estou utilizando uma Daruma FS700;

COO_INICIAL := AIni.ReadInteger('ECF','NumCOOInicial', 0); está vindo zerado

GRANDE_TOTAL:=AIni.ReadFloat('ECF','GrandeTotal', 0.00) ;está vindo zerado

a DadosReducaoZClass já está funcional?

Fiz teste na ECFTeste e não deu erro;

Muito obrigado;

"DadosReducaoZClass"

Para o modelo Daruma sim, eu mesmo implementei, mas veja que se utiliza-la, os demais modelos não estão implementados.