ACBrECFEscECF - Daruma FS800i - ProgramaRelatorioGerencial

[ivan]

Bom. Não sei o que pode ser feito, mas quando tentei programar um relatório gerencial, ocorreu erro informando que o índice passado já existia.

Executando o CarregaRelatoriosGerenciais, resultou em:

---------------------------------
RG: 1 -> ParÔmetros Prog CER:0
RG: 2 -> Relatorio       CER:0
RG: 4 -> Troca F Pagto   CER:0
RG: 5 -> Fechamento Dia  CER:0
RG: 6 -> DAV - ORCAMENTO CER:0
---------------------------------

Ou seja. O RG 3 não existe. Isto deve ter ocasionado o erro.  

Será que em todas as FS800i não existe o índice 3 ?  

Aqui eu programei apenas o DAV - ORCAMENTO.  Os outros vieram programados.

Na procedure TACBrECFEscECF.ProgramaRelatorioGerencial(var Descricao: String; Posicao: String) existe a linha  

PosRel := RelatoriosGerenciais.Count + 1; o que faz com que o ACBr "pense" que o próximo Rel Gerencial seja o 6, mas o 6 já está criado.

 

 

[Daniel Simoes]

Qual é exatamente o erro que você está reportando ?

O que não funciona ? como deveria funcionar ? Qual a exata mensagem de erro ?

[ivan]

Vamos lá: Tento programar um relatório gerencial, utilizando o comando:

ACBrECF1.ProgramaRelatoriosGerenciais('DAV-PEDIDO')

Erro apresentado: 

Categoria 14: Programação

Motivo: 6-Índice de relatório gerencial já existente ao tentar gerar a impressão do DAV.

Por que isto ocorreu ? 

Por que na procedure TACBrECFEscECF.ProgramaRelatorioGerencial, está pegando o nº de relatórios gerenciais já existentes e adicionando 1, nesta linha:

PosRel := RelatoriosGerenciais.Count + 1;

Como na impressora o rel gerencial de índice 3 não existe, o PosRel  = 6,  e então tenta criar o gerencial com este índice. 

Porém o índice 6 já está cadastrado, conforme abaixo. É neste momento que ocorre o erro.

RG: 1 -> ParÔmetros Prog CER:0
RG: 2 -> Relatorio       CER:0
RG: 4 -> Troca F Pagto   CER:0
RG: 5 -> Fechamento Dia  CER:0
RG: 6 -> DAV - ORCAMENTO CER:0

Não sei lhe dizer se isto é normal, faltar um relatório gerencial. Eu nunca tinha visto.

Apenas quis reportar por que outras pessoas podem passar pelo mesmo problema.

[Daniel Simoes]

Compreendido, vou verificar como podemos corrigir...

[Daniel Simoes]

Enviei as seguintes modificações para o SVN

[-] Correção de GetNumLoja para Epson TM-T800
[+] Implementação de GetNumLoja para Daruma FS800i
[+] Implementação de chamada a Metodos de uso da DLL (Ex: EspelhoMFD_DLL) em Daruma
    (a testar)
[-] Correção para numeração automática de Posição em ProgramaAliquota,
    ProgramaFormaPagamento, ProgramaRelatorioGerencial, ProgramaComprovanteNaoFiscal

 

[ivan]

Seguem testes sobre o que foi modificado:

GetNumLoja: retornou as letras "ARIC"

#1#10#26#0#0#1#0#0@#4#0ARIC#710

 

ProgramaAliquota, ProgramaFormaPagamento, ProgramaRelatorioGerencial, ProgramaComprovanteNaoFiscal : TUDO OK!

 

Implementação de chamada a Métodos de uso da DLL (Ex: EspelhoMFD_DLL) em Daruma.

Testei com Espelho por Data e COO, 

- ERRO AO EXECUTAR rGerarEspelhoMFD_ECF_DARUMA.
Cod.: -1 Erro do Método

Outros métodos ainda estou testando.

[Daniel Simoes]

Agora realmente não tenho como aplicar correções nos fontes, sem um ECF real...

Vamos aguardar o posicionamento do Regys...

[Régys Silveira]

GetNumLoja aqui está normal, retornando o que está na impressora.

Quanto a MFD não consegui testar ainda estou correndo hoje com algumas entregas, assim que finalizar já testo.