View Single Post
  #10  
Old 02/11/2022
giantonti1801 giantonti1801 is offline
Miembro
 
Join Date: Oct 2022
Posts: 143
Rep Power: 4
giantonti1801 Va por buen camino
Quote:
Originally Posted by duilioisola View Post
Aquí tienes un lío de comillas.
Código Delphi [-]
Sql.Text := 'SELECT * FROM tiket T INNER JOIN (SELECT MIN(Item) AS MINIMO FROM tiket WHERE estatus =: 'NEW' ;
                                                                                                      ^^^^^ ;
                                                                                                   ^^
Debería ser
Código Delphi [-]
Sql.Text := 'SELECT * FROM tiket T INNER JOIN (SELECT MIN(Item) AS MINIMO FROM tiket WHERE estatus =: ''NEW'' ';

Admás no se bien qué es el "estatus =:"

Code:
procedure TFormCaja.SpeedButton1Click(Sender: TObject);
begin
    With ADOQuery1 do
        begin
        Close;
        Sql.Clear;
        Sql.Text := 'SELECT * FROM tiket T INNER JOIN (SELECT MIN(Item) AS MINIMO FROM tiket WHERE estatus =: ''NEW'' ';
        Open;
        ADOQuery1.First;

        while not ADOQuery1.Eof do
        begin
         Label1.Caption := 'A000' + ADOQuery1.fieldbyname('Item').asstring;
        end;


      end;
end;
Sigue dandome un error
Adjunto error

NOTA: el estatus es un campo que me dice si es nuevo 'NEW' o ya ha sido utilizado 'OLD' la idea que haga un filtro de todos lo que tengan la condicion 'NEW'

Last edited by giantonti1801 : 29/03/2023 at 20:43.
Reply With Quote