ECF FechaCupom

[Filipe Natividade]

Pessoal bom dia.

Me ajudem a entender, essa regra está correta?

Em: if (not Consumidor.Enviado) and (not IdentificaConsumidorRodape) then

no momento em que meu aplicativo fecha o cupom os parâmetros estão com os seguintes valores:

Consumidor.Enviado = False;

IdentificaConsumidorRodape = True;

e com essa validação não informa o consumidor no rodapé do cupom.

procedure TACBrECF.FechaCupom(Observacao: AnsiString; IndiceBMP : Integer);
var
  Tratado : Boolean;
  RodapePafECF, InfoConsumidorRodapeBobina: String;
begin
  if (Observacao = '') then
     Observacao := fsMensagemRodape ;

  if (not Consumidor.Enviado) and (not IdentificaConsumidorRodape) then
  begin
     if Consumidor.Documento <> '' then
        Observacao := Observacao + '|CPF/CNPJ consumidor: '+Consumidor.Documento ;

     if Consumidor.Nome <> '' then
        Observacao := Observacao + '|Nome: '+Consumidor.Nome ;

     if Consumidor.Endereco <> '' then
        Observacao := Observacao + '|Endereco: '+Consumidor.Endereco ;
  end
  else
  begin
    {$IFNDEF NOGUI}
    if IdentificaConsumidorRodape and MemoAssigned then
    begin
      InfoConsumidorRodapeBobina := '';

      if Consumidor.Documento <> '' then
        InfoConsumidorRodapeBobina := InfoConsumidorRodapeBobina + '|CPF/CNPJ consumidor: '+Consumidor.Documento ;

      if Consumidor.Nome <> '' then
        InfoConsumidorRodapeBobina := InfoConsumidorRodapeBobina + '|Nome: '+Consumidor.Nome ;

      if Consumidor.Endereco <> '' then
        InfoConsumidorRodapeBobina := InfoConsumidorRodapeBobina + '|Endereco: '+Consumidor.Endereco ;

      InfoConsumidorRodapeBobina := StringReplace(InfoConsumidorRodapeBobina,CR+LF,#10,[rfReplaceAll]) ;
      InfoConsumidorRodapeBobina := StringReplace(InfoConsumidorRodapeBobina,'|',#10,[rfReplaceAll]) ;

      InfoConsumidorRodapeBobina := Trim(DecodificarPaginaDeCodigoECF(InfoConsumidorRodapeBobina));

      InfoConsumidorRodapeBobina := AjustaLinhas( InfoConsumidorRodapeBobina, fsMemoColunas, 8 ) ;
      MemoAdicionaLinha( InfoConsumidorRodapeBobina );
    end ;
    {$ENDIF}
  end;

  /*Restante do código*/

end;

 

[Daniel Simoes]

4 horas atrás, Filipe Natividade disse:

Em: if (not Consumidor.Enviado) and (not IdentificaConsumidorRodape) then

Esse IF determina se o ECF tem capacidade de informar o consumidor no Rodapé, em local específico...

Caso não a capacidade de identificar o consumidor no Rodapé, o ACBrECF usará as linhas de Observação ( mas dessa maneira o arquivo magnético gerado pela captura da MFD, não conterá o CPF)

[Filipe Natividade]

36 minutos atrás, Daniel Simoes disse:

Esse IF determina se o ECF tem capacidade se informar o consumidor no Rodapé, em local específico...

Caso não a capacidade de identificar o consumidor no Rodapé, o ACBrECF usará as linhas de Observação ( mas dessa maneira o arquivo magnético gerado pela captura da MFD, não conterá o CPF)

Muito obrigado @Daniel Simoes.