ACBrECF.InfoRodapeCupom.PostoCombustivel

[Poliany Tabosa]

Bom dia, dei uma vasculhada antes de criar esse tópico, mas infelizmente não achei nada sobre o mesmo...

Alguém poderia me dar uma força de como utilizar a rotina para imprimir no cupom informações como tanque, bomba e item pelo componente, pois tenho bico EI e EF

Grata!

Editado 23 Dezembro, 2015 por Poliany Tabosa

[EMBarbosa]

Se estiver funcionando como o restante, basta preencher antes de fechar o cupom e pronto. Mas não estou usando ela, então posso estar enganado.

[Régys Silveira]

Utilize assim:

  ACBrECF1.InfoRodapeCupom.PostoCombustivel.Imprimir := true;

  ACBrECF1.InfoRodapeCupom.PostoCombustivel.Clear;
  with ACBrECF1.InfoRodapeCupom.PostoCombustivel.New do
  begin
    Bico       := ;
    EI         := ;
    EF         := ;
    Volume     := ;
    Automatico := ;
  end;

Lembrando que pode ter mais de um, por isso o método .new, para criar um novo.

[Poliany Tabosa]

Bom dia pessoas!

Tô com uma dúvida. Segundo o requisito XXXVIII que remete a posto de combustível, tem uma hipótese de abastecimento manual, aí deve sair a letra M após o volume, lá em informações do rodapé do cupom. Bom vasculhando o componente vi que ele tem bico, EI, EF, Volume e uma booleana Automatico,onde quando está TRUE sai o "A" após o volume, mas não encontrei nenhuma variável que eu informasse quando fosse manual, letra "M". Alguém poderia me ajudar? Minha homologação é semana que vem e me deparei com isso agora.

Grata pessoal pelo excelente trabalho que vcs fazem facilitando as nossas vidas!

Que Deus os abençoe!

[Régys Silveira]

Atualize seu ACBr e na propriedade "Automatico" informe "false" quando for abastecimento manual.

[Poliany Tabosa]

Boa tarde Régis, obrigada por responder, estou fazendo conforme vc me falou, enquanto to fazendo surgiu uma dúvida:

Temos 3 formas de emissão de cupom pra Posto: CUPOM FISCAL (sem emissão automática), CUPOM FISCAL PENDENTE(Com emissão automática) e CUPOM FISCAL MANUAL, ai vê só: Se eu colocar Automatico pra false vai emitir com o "M" no final do volume (pelo menos foi o que entendi acima, desculpa se eu tiver errada), se Automatico tiver true emitirá o cupom com "A" no final, mas e àqueles que forem emitidos normalmente não vão poder ter letras no final correto? Como o componente se comporta?

Desde já agradeço!

[Poliany Tabosa]

Oi Régis, fui atualizar meu acbr e gerou um log de erro, segue anexo, vc poderia me ajudar?

A instalação foi pra win64, caso seja necessária essa informação

log_Delphi_2010.txt

[Poliany Tabosa]

Em 19/05/2016 at 13:31, Régys Silveira disse:

Atualize seu ACBr e na propriedade "Automatico" informe "false" quando for abastecimento manual.

Régis, havia encontrado um problema na instalação no BlocoX

eu fiz uma mudança

ANTES:

procedure TValidarBlocoX.DefinirDadosMsg;
begin
  FPDadosMsg := '<pXml>'+ParseText(XML,False)+'</pXml>'+
                '<pValidarPafEcf>'+BoolToStr(FValidarPafEcf,'true','false')+'</pValidarPafEcf>'+ 
                '<pValidarEcf>'+BoolToStr(FValidarEcf,'true','false')+'</pValidarEcf>';
end;

Assim dava erro de pra compilar o pacote 

 

DEPOIS

procedure TValidarBlocoX.DefinirDadosMsg;
begin
  FPDadosMsg := '<pXml>'+ParseText(XML,False)+'</pXml>'+
                '<pValidarPafEcf>'+BoolToStr(FValidarPafEcf,true)+'</pValidarPafEcf>'+ //BoolToStr(FValidarPafEcf,'true','false')
                '<pValidarEcf>'+BoolToStr(FValidarEcf,true)+'</pValidarEcf>';
end;

Agora compilou, num sei se fiz correto, mas vou continuar meus testes aki.

 

 

Régis, tem um pequeno probleminha na propriedade automático, sempre irá escrever A ou M, certo? Mas no cupom fiscal onde não há emissão automática (os abastecimentos pendentes) e que não foi feito de forma manual não pode sair letras após o volume, pelo menos é o que eu entendi no Ato Cotepe, vc poderia averiguar isso pra mim, por favor?

[Régys Silveira]

Adicionei uma propriedade "Manual", se True imprime o M, então fica assim

Se "Automatico" = True Imprime o "A" se false verifica "Manual", se true imprime "M", em caso de false nos dois não imprime nada.

Se entendi corretamente é isso.

 

Quanto a sua instalação, realmente havia um bug, já verifiquei e enviei o acerto, reverta seu arquivo e atualize o seu repositório ACBr.

[Poliany Tabosa]

Opa, obrigada Régis, basta só atualizar o acbr neh?

[alexandre paz]

Em 30/12/2015 at 15:16, Régys Silveira disse:

Utilize assim:

  ACBrECF1.InfoRodapeCupom.PostoCombustivel.Imprimir := true;

  ACBrECF1.InfoRodapeCupom.PostoCombustivel.Clear;
  with ACBrECF1.InfoRodapeCupom.PostoCombustivel.New do
  begin
    Bico       := ;
    EI         := ;
    EF         := ;
    Volume     := ;
    Automatico := ;
  end;

Lembrando que pode ter mais de um, por isso o método .new, para criar um novo.

Caro colegas, estou desenvolvendo um programa de automação pra posto de combustivel e uso o ACBr, fiz o tratamento pra impressão dos encerrantes no cupom, coloquei a cláusula NEW em um laço, mas, mesmo retornando apenas um item são impressos 5 linhas com informação que não passei. Primeiramente achei que fosse erro no emulador de ecf, mas, ocorre o mesmo problema com uma impressora física. Grato por qualquer ajuda que venha conseguir aqui.

Editado 6 Junho, 2016 por alexandre paz

[Régys Silveira]

Em 06/06/2016 at 18:14, alexandre paz disse:

Caro colegas, estou desenvolvendo um programa de automação pra posto de combustivel e uso o ACBr, fiz o tratamento pra impressão dos encerrantes no cupom, coloquei a cláusula NEW em um laço, mas, mesmo retornando apenas um item são impressos 5 linhas com informação que não passei. Primeiramente achei que fosse erro no emulador de ecf, mas, ocorre o mesmo problema com uma impressora física. Grato por qualquer ajuda que venha conseguir aqui.

Você provavelmente está fazendo um new para cada propriedade, faça como passei:

Você deve estar fazendo assim:

ACBrECF1.InfoRodapeCupom.PostoCombustivel.New.Bico       := ;
ACBrECF1.InfoRodapeCupom.PostoCombustivel.New.EI         := ;
ACBrECF1.InfoRodapeCupom.PostoCombustivel.New.EF         := ;
ACBrECF1.InfoRodapeCupom.PostoCombustivel.New.Volume     := ;
ACBrECF1.InfoRodapeCupom.PostoCombustivel.New.Automatico := ;

O correto é usar um with ou jogar o new dentro de uma variavel.

[alexandre paz]

13 horas atrás, Régys Silveira disse:

Você provavelmente está fazendo um new para cada propriedade, faça como passei:

Você deve estar fazendo assim:

ACBrECF1.InfoRodapeCupom.PostoCombustivel.New.Bico       := ;
ACBrECF1.InfoRodapeCupom.PostoCombustivel.New.EI         := ;
ACBrECF1.InfoRodapeCupom.PostoCombustivel.New.EF         := ;
ACBrECF1.InfoRodapeCupom.PostoCombustivel.New.Volume     := ;
ACBrECF1.InfoRodapeCupom.PostoCombustivel.New.Automatico := ;

O correto é usar um with ou jogar o new dentro de uma variavel.

Foi isso mesmo, meu amigo. Eu tendo em não usar o with, já tive bronca com esse comando. Agora deu certo, se eu tivesse analisado logicamente teria percebido. Grato pela força.

[Régys Silveira]

Para não usar o with, jogue o new em uma variável e use ela para acessar as propriedades.