ACBrECF - Cancela Cupom Daruma com vários CCDs

[edgarbottini]

Ola, no componente ACBrECF na unit da Daruma tem uma programação para cancelar o CCD (quando necessário) e depois cancelar o cupom fiscal. A programação funciona apenas

quando se tem um CCD depois do cupom fiscal, impossibilitando o cancelamento de cupom fiscal quando se tem mais de um CCD (tef com multiplos cartões). Então, o código era assim:

procedure TACBrECFDaruma.CancelaCupom;

var

  RetCmd : String ;

  NumCupCCD : String ;

  NumCupom: String;

begin

  fsNumCupom := '';

  AguardaImpressao := True ;


  if fpMFD then

  begin

    RetCmd := EnviaComando( FS + 'R' + #200 + '046');  // Verifica se precisa cancelar CCD; Autor: Andre Bohn

    if copy(RetCmd, 6, 1) <> '0' then

    begin

      try

        RetCmd := EnviaComando( FS + 'R' + #200 + '050');

        NumCupCCD := GetNumCupom;

        NumCupom  := copy(RetCmd, 6, 6);

        if NumCupom <> NumCupCCD then

        begin

          EnviaComando(FS + 'F' + #214 , 15); // Fecho o CCD caso ainda não esteja fechado

          EnviaComando(FS + 'F' + #218 + NumCupCCD +#255+#255+#255, 15); // Cancela Conprovante Não Fiscal

          EnviaComando(FS + 'F' + #214 , 15); // Fecha Comprovante de estorno Cancela Conprovante Não Fiscal

        end;

      except

      end;


      EnviaComando(FS + 'F' + #211, 15) ;  // Cancela Cupom


      RespostasComando.Clear;

      RespostasComando.AddField('COO', Copy(fpRespostaComando, 10, 6));

      RespostasComando.AddField('CCF', Copy(fpRespostaComando, 16, 6));

      RespostasComando.AddField('ValorCancelado', Copy(fpRespostaComando, 22, 12));


    end

    else

      raise EACBrECFCMDInvalido.Create( ACBrStr('Não existe documento para cancelar.') );

  end


  else if fsNumVersao = '2000' then

     EnviaComando(ESC + #211, 15)

  else

     EnviaComando(ESC + #206, 15) ;


  ZeraTotalApagar;


  FechaRelatorio ;   { Fecha relatorio se ficou algum aberto (só por garantia)}

end;

e eu alterei para que faça o cancelamento de vários CCDs, ficando assim:

procedure TACBrECFDaruma.CancelaCupom;

var

  RetCmd : String ;

  NumUltimoCupom : String ;

  NumCupomCancelavel: String;

  iNumUltimoCupom, iNumCupomCancelavel: integer;

begin

  fsNumCupom := '';

  AguardaImpressao := True ;


  if fpMFD then

  begin

    RetCmd := EnviaComando( FS + 'R' + #200 + '046');  // Verifica se precisa cancelar CCD;

    if copy(RetCmd, 6, 1) <> '0' then

    begin

      try

        RetCmd := EnviaComando( FS + 'R' + #200 + '050'); // retorna numero do cupom cancelavel

        NumCupomCancelavel  := copy(RetCmd, 6, 6);

        NumUltimoCupom := GetNumCupom;

        iNumUltimoCupom := StrToInt(NumUltimoCupom);

        iNumCupomCancelavel := StrToInt(NumCupomCancelavel);


        while iNumCupomCancelavel < iNumUltimoCupom do

        begin

          NumUltimoCupom := FormatFloat('000000',iNumUltimoCupom);

          EnviaComando(FS + 'F' + #214 , 15); // Fecho o CCD caso ainda não esteja fechado

          EnviaComando(FS + 'F' + #218 + NumUltimoCupom +#255+#255+#255, 15); // Cancela Conprovante Não Fiscal

          EnviaComando(FS + 'F' + #214 , 15); // Fecha Comprovante de estorno Cancela Conprovante Não Fiscal

          dec(iNumUltimoCupom);

        end;


      except

      end;



      EnviaComando(FS + 'F' + #211, 15) ;  // Cancela Cupom


      RespostasComando.Clear;

      RespostasComando.AddField('COO', Copy(fpRespostaComando, 10, 6));

      RespostasComando.AddField('CCF', Copy(fpRespostaComando, 16, 6));

      RespostasComando.AddField('ValorCancelado', Copy(fpRespostaComando, 22, 12));


    end

    else

      raise EACBrECFCMDInvalido.Create( ACBrStr('Não existe documento para cancelar.') );

  end


  else if fsNumVersao = '2000' then

     EnviaComando(ESC + #211, 15)

  else

     EnviaComando(ESC + #206, 15) ;


  ZeraTotalApagar;


  FechaRelatorio ;   { Fecha relatorio se ficou algum aberto (só por garantia)}

end;

Resolveu aqui pra mim, tenho uma FS-600 e testei com até 3 CCDs depois do cupom.

Espero er ajudado

[Daniel Simoes]

Oi Edgar,

Muito bacana sua alteração.. obrigado...

@Regys,

pode testar e subir ?

[Fabrício G. Araújo]

Colegas... me desculpem a ignorancia... mas para homologar TEF eu não tenho que ter apenas 1 CCD com todas as vias dos cartões TEF? Ou existem as duas opções?

Fabrício Gomes Araújo

[Régys Silveira]

quando são múltiplos, cada forma em um CCD diferente, porque no CCD saem os dados do pagamento.

[Daniel Simoes]

Depende Regys... tb é permitido abrir um CCD e imprimir todas as vias de todos os cartoes nele...

Eu particularmente prefiro assim, pq em alguns ECFs, como por exemplo na bematech, não é permitido abrir 2 CDC usando a mesma Forma de Pagamento, no mesmo cupom...

[Fabrício G. Araújo]

Realmente se utilizar formas de pagamentos distintas no ECF faz sentido ter mais de um CCD, entendi Régys. Obrigado.

Homologuei TEF a menos de um mês, só que no meu caso utilizo apenas uma forma de pagamento com a soma dos cartões (Ex: Amex 1,00 e Redecard 3,00, então forma de pagamento: Cartao 4,00), então coloco tudo em um único CCD. Nunca tive problemas com a homologação tratando dessa forma.

Mais uma vez obrigado pelas explicações.

Fabrício Gomes Araújo

[edgarbottini]

Legal ter ajudado, visitarei a Autocom desse ano, voces estarão com um stand lá né?

[Daniel Simoes]

Sim.. no estande 16 (DJSystem), pertinho da Epson...

Ficaremos muito contentes com a sua visita..