ACBRMter - esta pulando uma linha nas chamadas

tiagopassarella · 26 Dezembro, 2018

Bom Dia pessoal...

vamos ver se vcs conseguem me ajudar...

eu estou implantando o Micro terminal em meu sistema, e a minha dificuldade esta que sempre que mando um texto ele fica um poco cortado pois da impressao que esta pulando uma linha apos o texto...

vou postar aki o meu codigo pra ver se vcs podem me ajudar...

e um print do texto como ta ficando no micro terminal...

este e o codigo para alterar o estado do micro terminal...

function TFrmPrincipal.AlterarEstadoTerminal(aIP: String;
  aEstado: Integer): Boolean;
begin
      Result := True;
      try
            ACBrMTer1.LimparDisplay(aIP);
            _EstadoMicroterminal := aEstado;
            case aEstado of
                  0: Exit;
                  1: ACBrMTer1.EnviarTexto(aIP, 'Operador: ');
                  2: ACBrMTer1.EnviarTexto(aIP, 'Comanda: ');
                  3: ACBrMTer1.EnviarTexto(aIP, 'Item: ');
            end;
      finally
        Result := false;
      end;
end;

aqui e o que ele faz com as chamadas...

procedure TFrmPrincipal.AvaliarRespostaTerminal(aIP: AnsiString;
  var aString: AnsiString);
var
Qry:TSQLQuery;
begin
     case _EstadoMicroterminal of
          1: // PEDE OPERADOR
          begin
                 Qry := TSQLQuery.Create(nil);
                 qry.SQLConnection := DataModule1.Conexao;

                 qry.SQL.Text := 'SELECT ID,NOME FROM TBVENDEDORES WHERE ID=:p1';
                 QRY.ParamByName('p1').AsInteger := StrToInt(_RespostaMicroterminal);
                 QRY.Open;
                 if not QRY.IsEmpty then
                 begin
                       ACBrMTer1.EnviarTexto(aIP,' - ' + QRY.FieldByName('NOME').AsString);
                       Sleep(1000);
                 END ELSE begin
                       Qry.SQL.Clear;
                       Qry.Close;
                       Qry.Free;
                       _RespostaMicroterminal := '';
                       ACBrMTer1.LimparDisplay(aIP);
                       ACBrMTer1.EnviarTexto(aIP, 'OPERADOR NAO CADASTRADO');
                       Sleep(2000);
                       Passou := false;
                       ACBrMTer1.LimparDisplay(aIP);
                       AlterarEstadoTerminal(aIP,1);
                 end;
                 Qry.SQL.Clear;
                 Qry.Close;
                 Qry.Free;
                 _RespostaMicroterminal := '';
                 Passou := true;
                 AlterarEstadoTerminal(aIP,2); // AKI ESTA O PROBLEMA
          end;

          2: // PEDE COMANDA
          begin

          end;

          3: // PEDE ITEM
          begin

          end;
     end;
end;

O PROBLEMA ESTA NESSA PARTE...

AlterarEstadoTerminal(aIP,2); // AKI ESTA O PROBLEMA

apos ele entrar ai ele volta pedindo o numero da comanda... e junto com a solicitação ele esta indo um ENTER nao sei por que...

ai o texto fica cortado conforme imagem abaixo