GravaArqINIVirtual

[Gutierres]

Bom dia.

Estou usando TACBrECFVirtualNFCeClass

Estava com problema quando o cliente começava a vender e algo acontecia que fechava o programa ao retornar para o sistema recupero a venda para ele dar continuidade, ao dar continuidade para fechar o cupom estava dano erro no método

procedure TACBrECFVirtualNFCeClass.VendeItemVirtual(
  ItemCupom: TACBrECFVirtualClassItemCupom);
var
  Det: TDetCollectionItem;
  AliqECF: TACBrECFAliquota;
begin

  with fsACBrNFCe do
  begin
    Det := NotasFiscais.Items[0].NFe.Det.Add;
 

 

Então verifiquei que o GravaArqINIVirtual tinha duas linhas comentadas. 

Deixei o Método desta forma é funcionou recuperando o que estava aberto.

Estou mandando o ACBrECFVirtualNFCe em anexo se estiver correto dar commit por favor.

procedure TACBrECFVirtualNFCeClass.GravaArqINIVirtual(ConteudoINI: TStrings);
begin
  // Se cupom está aberto, deve persistir o CFe //
  if (fpEstado in estCupomAberto) and (fsEhVenda) then
    fsACBrNFCe.NotasFiscais.GravarXML(fsNomeArqTempXML)
  else if (fsNomeArqTempXML <> '') and FileExists(fsNomeArqTempXML) then
    DeleteFile(fsNomeArqTempXML);

  inherited GravaArqINIVirtual(ConteudoINI);
end;

ACBrECFVirtualNFCe.pas

[Régys Silveira]

Revisado e integrado, obrigado pela contribuição.