ACBRTEF - CLISITEF - IniciaFuncaoSiTefInterativo com restrições

[Henrique_automatizze]

Boa tarde,

Estou homologando TEF CLisitef,  na IniciaFuncaoSiTefInterativo está indo com restrições, e o homologador disse que em ambiente de homologação deveria estar vazia essas restrições.

Indo mais a fundo identifique 2 situações que preenchia essas restrições, gostaria de uma ajuda para entender melhor o código abaixo na unit ACBrTEFDCliSiTef;.

1º Caso

function TACBrTEFDCliSiTef.SuportaDesconto: Boolean;
begin
  with TACBrTEFD(Owner) do
  begin
     Result := (Identificacao.SoftwareHouse <> '') and  // porque essa validação se o componente  já tem uma propriedade SuportaDesconto
               Assigned( OnComandaECFSubtotaliza ) and
               (not AutoEfetuarPagamento) ;
  end;
end;

 

2º Caso

function TACBrTEFDCliSiTef.CRT(Valor: Double; IndiceFPG_ECF: String;
  DocumentoVinculado: String; Moeda: Integer): Boolean;
var
  Sts : Integer;
  Restr : AnsiString ;
begin
  if (Valor <> 0) then
    VerificarTransacaoPagamento( Valor );

  Restr := fRestricoes;
  if Restr = '' then  // Porque desta restrição
     Restr := '[10]' ;     // 10 - Cheques   

  if DocumentoVinculado = '' then
     DocumentoVinculado := fDocumentoFiscal;

Resultado

function TACBrTEFDCliSiTef.FazerRequisicao(Funcao: Integer;
  AHeader: AnsiString; Valor: Double; Documento: AnsiString;
  ListaRestricoes: AnsiString): Integer;
Var
  ValorStr, DataStr, HoraStr : AnsiString;
  DataHora : TDateTime ;
begin
   if not Assigned(xIniciaFuncaoSiTefInterativo) then
      raise EACBrTEFDErro.Create(ACBrStr(CACBrTEFD_CliSiTef_NaoInicializado));

   if Documento = '' then
      Documento := DocumentoFiscal;

   Req.DocumentoVinculado  := Documento;
   Req.ValorTotal          := Valor;

   if fpAguardandoResposta then
      raise EACBrTEFDErro.Create( ACBrStr( CACBrTEFD_CliSiTef_NaoConcluido ) ) ;

   if (pos('{TipoTratamento=4}',ListaRestricoes) = 0) and
      (pos(AHeader,'CRT,CHQ') > 0 ) and
      SuportaDesconto then
   begin
      ListaRestricoes := ListaRestricoes + '{TipoTratamento=4}'; // Sempre virá ListaRestricoes:= [10]{TipoTratamento=4}

 

Editado 7 Fevereiro, 2020 por Henrique_automatizze

[EMBarbosa]

Em 07/02/2020 at 16:58, Henrique_automatizze disse:

Estou homologando TEF CLisitef,  na IniciaFuncaoSiTefInterativo está indo com restrições, e o homologador disse que em ambiente de homologação deveria estar vazia essas restrições.

Isso nunca foi um problema. É a primeira vez que ouço isso.

Em 07/02/2020 at 16:58, Henrique_automatizze disse:

  Restr := fRestricoes;
  if Restr = '' then  // Porque desta restrição
     Restr := '[10]' ;     // 10 - Cheques 

Note que essas restrições são apenas para a operação atual. Não são restrições do ambiente do Sitef.

Dito isso, eu acredito que essa seja porque se você está executando um CRT. CRT é Cartão, então não teria sentido mostrar possibilidade de Cheques.

[Henrique_automatizze]

14 horas atrás, EMBarbosa disse:

Isso nunca foi um problema. É a primeira vez que ouço isso.

Note que essas restrições são apenas para a operação atual. Não são restrições do ambiente do Sitef.

Dito isso, eu acredito que essa seja porque se você está executando um CRT. CRT é Cartão, então não teria sentido mostrar possibilidade de Cheques.

Ele alegou que para homologação, precisa ter todas as opções disponíveis mesmo se não homologar Cheque como no exemplo. Enfim, vou tirar as restrições e homologar e habilitar depois disso.

Obrigado pela atenção

[EMBarbosa]

18 minutos atrás, Henrique_automatizze disse:

Ele alegou que para homologação, precisa ter todas as opções disponíveis mesmo se não homologar Cheque como no exemplo. Enfim, vou tirar as restrições e homologar e habilitar depois disso.

É uma saída. Bom trabalho por aí.