Cancelacupom Anterior

[Arnaldo Cruz]

Estou tendo problemas para cancelar o ultimo cupom  emitido

 

Na Homologação da farmacia popular ao concluir a operação se cancela o cupom fiscal.

 

vou colocar o processo inteiro

 

1  - FDataModule.ACBrECF.AbreCupom(edtCPFPaciente.Text , edtNomePaciente.Text ,'',False);

2 - FDataModule.ACBrECF.VendeItem(cdsMedicamentoCODIGO.AsString,
                       cdsMedicamentoMEDICAMENTO.AsString,
                       cdsMedicamentoECFICMSST.AsString,
                       cdsMedicamentoQTDEFA.AsFloat,
                       cdsMedicamentoVENDA.AsFloat,0,
                       cdsMedicamentoUNIDADE.AsString);

3 - FDataModule.ACBrECF.SubtotalizaCupom(0);

 

4 - Quando tem valor a ser pago pelo paciente

4.1  Valor do MS 

        FDataModule.ACBrECF.EfetuaPagamento(FormaPagto, edtVlSaude.Value);  

4.2 Valor Pago pelo Paciente

       FDataModule.ACBrECF.EfetuaPagamento(Formas.Codigo, edtvlPaciente.Value);

 

5 -  Quando não tem valor a ser pago pelo Paciente

5.1  FDataModule.ACBrECF.EfetuaPagamento(FormaPagto, edtVlSaude.Value);  

 

6 - FDataModule.ACBrECF.InfoRodapeCupom.Imposto.Fonte  := 'IBPT';

 

7 - FDataModule.ACBrECF.InfoRodapeCupom.Imposto.ValorAproximado := valorMG;

 

8  - FDataModule.ACBrECF.InfoRodapeCupom.ParaibaLegal := true;

 

9 - FDataModule.ACBrECF.FechaCupom(Mensagem);

 

10 - FDataModule.ACBrECF.AbreRelatorioGerencial(StrToInt(RelatorioGe));

 

11 - FDataModule.ACBrECF.LinhaRelatorioGerencial(Texto); (Aqui as linhas do gerencial)

 

12 - FDataModule.ACBrECF.FechaRelatorio;

 

Até aqui perfeito sem problemas

 

Se  Ambiente for de homologação já delete o CUpom fiscal emitido

 

 

FDataModule.ACBrECF.CancelaCupom;
COOCAN:= STRTOINT(FDataModule.ACBrECF.NumCOO )- 1;

 

Aqui le entra na Unit da Daruma que retonra que não existe cupom a ser camcelado

 

procedure TACBrECFDaruma.CancelaCupom;

 

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

end
    else
      raise EACBrECFCMDInvalido.Create( ACBrStr('Não existe documento para cancelar.') ); /////////Já Cai aqui

 

 

[Arnaldo Cruz]

Já descobri o motivo

 

Ao imprimir o Cupom  Fiscal

 

Cupom Fiscal               COO = 5637

Relatorio Gerencial      COO = 5638

 

Quando envio o comando de cancelar o cupom ele tenta cancela o COO 5638

 

porem ele é de um relatório gerencial.

 

por isso não cancela

 

ALguem sabe como posso resolver isso ?

 

Obrigado

[Daniel Simoes]

Não há solução...

 

Em teoria, você poderia usar um CCD (Comprovante de Crédito Debito) ao invés de um Rel.Gerencial... mas por lei (PAF-ECF) o CCD só é permitido para operações com cardão de crédito e débito...

 

Quando o CCD é o último documento, ele pode ser cancelado, e permitindo assim o cancelamento do cupom...