[[egostar]]

Hola georgejg

Se me hace curioso este tratamientro

Código Delphi [-]
if Pos('%',Edit1.Text) <> 0 then begin //
Memo1.Text:=(' select CODIGO_ARTICULO,CANTIDAD,PORCENTAJE,PESO,FECHA,HORA'+
                     ' from ARTICULO B, DETALLE C '+
                     ' WHERE B.CONSECUTIVO_ART = C.CONSECUTIVO_ART '+
                     ' AND C.HORA = ' + QuotedStr(Edit1.Text) +
                     ' AND C.FECHA = ' + QuotedStr(DateToStr(DataTimePicker1.Date)));
 end
else
 begin
Memo1.Text:=(' select CODIGO_ARTICULO,CANTIDAD,PORCENTAJE,PESO,FECHA,HORA'+ 
                    ' from ARTICULO B, DETALLE C '+
                    ' WHERE B.CONSECUTIVO_ART = C.CONSECUTIVO_ART '+
                    ' AND C.HORA = ' + QuotedStr(Edit1.Text) +
                    ' AND C.FECHA = ' + QuotedStr(DateToStr(DataTimePicker1.Date)));
end;

Cual es la diferencia que encuentres el signo % si haces lo mismo lo tenga o no?

Salud OS