Escecf Abrenaofiscal Não Obdecendo Os Parâmentros De Cliente

[Daniel Carus]

No comando AbreNaoFiscal do modelo escECF não esta levando em conta os parâmetros de cliente que envio.

Ta pegando direto o que esta preenchido no consumidor.

 

ta faltando o seguinte codigo no inicio da função:

  if Trim(CPF_CNPJ) <> '' then
     Consumidor.AtribuiConsumidor(CPF_CNPJ,Nome,Endereco);

Este código tem nos outros modelos, copiei de la e coloquei isso no ACBrECFEscECF.pas e funcionou.

procedure TACBrECFEscECF.AbreNaoFiscal(CPF_CNPJ: String; Nome: String;
   Endereco: String);
begin
  if Trim(CPF_CNPJ) <> '' then
     Consumidor.AtribuiConsumidor(CPF_CNPJ,Nome,Endereco);
  ///
  EscECFComando.CMD := 16;
  EscECFComando.AddParamString(LeftStr(OnlyNumber(Consumidor.Documento),14)) ;
  EscECFComando.AddParamString(LeftStr(Consumidor.Nome,30)) ;
  EscECFComando.AddParamString(LeftStr(Consumidor.Endereco,79)) ;
  EnviaComando;

estou com a svn atualizada com a versão mais recente até o momento (8980) deste arquivo e não tinha esta opção, fica a sugestão de implementação.

 

Obrigado pela atenção.

 

[Daniel Simoes]

Correção enviada para o SVN.. Obrigado pelo BugReport