ACBrECF Cancelamento Comprovante Não Fiscal

[Juliomar Marchetti]

Bom dia

Efetuei mudanças na emissão de Comprovante Não Fiscal.

notei que ao cancelar o comprovante ele não estava jogando no espelho do cupom

que no caso o memo ou webbrowser.

em anexo segue a unica para avaliação e também estou colando o trecho do código que alterei.

procedure TACBrECF.CancelaNaoFiscal;

Var

  Tratado : Boolean;

  OldEstado : TACBrECFEstado ;

  Docto     : String ;

  SubTot    : Double ;

begin

  OldEstado := estDesconhecido ;

  SubTot    := 0 ;

  Docto     := '' ;


  {$IFNDEF CONSOLE}

  if MemoAssigned  then

  begin

     OldEstado := Estado ;

     SubTot    := Subtotal ;

     Docto     := IntToStrZero( StrToInt(NumCupom) ,6) ;

  end ;

  {$ENDIF}


  ComandoLOG := 'CancelaNaoFiscal';


  if Assigned( fOnAntesCancelaNaoFiscal ) then

     fOnAntesCancelaNaoFiscal(Self);


  try

    Tratado := False;

    fsECF.CancelaNaoFiscal ;

  except

     if Assigned( FOnErrorCancelaNaoFiscal ) then

        FOnErrorCancelaNaoFiscal(Tratado);


     if not Tratado then

        raise;

  end;


  {$IFNDEF CONSOLE}

   if MemoAssigned then

   begin

      fsMemoOperacao := 'CancelaNaoFiscal' ;


      if OldEstado in [estNaoFiscal] then

       begin

          MemoTitulo('* COMPROVANTE NÃO-FISCAL *');

          MemoTitulo('***      CANCELADO     ***');


          if OldEstado = estVenda then

             MemoAdicionaLinha( '

TOTAL R$

'+FormatFloat('###,##0.00',SubTot)+'

') ; MemoAdicionaLinha( fsMemoRodape ); end else begin MemoAdicionaCabecalho ; MemoTitulo('* COMPROVANTE NÃO-FISCAL *'); MemoTitulo('*** CANCELADO ***'); MemoAdicionaLinha( '

COO do CNF Cancelado:

'+Docto+'

' + sLineBreak + sLineBreak + '

Valor da Operacao R$:

'+FormatFloat('#,###,##0.00',SubTot)+'

' + sLineBreak + sLineBreak + fsMemoRodape ) ; end ; end ; {$ENDIF} if RFDAtivo then fsRFD.Documento('NC'); if Assigned( FOnDepoisCancelaNaoFiscal ) then FOnDepoisCancelaNaoFiscal(Self); end; [/code]

[Régys Silveira]

Enviado para o repositório.

Muito obrigado pela ajuda.

[Juliomar Marchetti]

Disponha

Estou em um processo de reformulação do sistema e estou verificando tudo no ACBr

as correções e novos recursos estarei repassando através do fórum para melhorar ainda mais o projeto.