Ver Mensaje Individual
  #2  
Antiguo 15-07-2011
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.735
Reputación: 20
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
Quizás tenga demasiados niveles de IF anidados.

¿Porqué no lees simplemente el campo jugada?. Luego con Delphi puedes traducir ese código al texto que quieras:
Código Delphi [-]
procedure TFregistroNumeros.Button2Click(Sender: TObject);
var campo11:string;
begin
    with qry_rep_numeros, sql do
  begin
    //Construye query con datos del reporte.
    Close;
    Clear;
    Add('SELECT jugada AS campo11, *');
    Add('From ticket_detalle');
//    Add('where (fecha = ' +'#'+ FormatDateTime('yyyy-mm-dd', (DateTimePicker1.Date)) + '#)');
//    Add('and loteria = '+inttostr(combobox1.ItemIndex) + 'and (jugada = ' + quotedstr(edit1.text));
//    Add('or  jugada = ' + quotedstr(edit2.text) + 'or jugada = ' + quotedstr(edit3.text)+')');
//    Add('order by len(jugada),jugada');
    open;
    if eof then
    begin
      ShowMessage('No se encontraron registros. Por favor verífique los criterios indicados!.');
      exit;
      next;
    end;
    first;
  end;
  if (qry_rep_numeros.FieldByName('campo11').AsString = edit1.Text) then campo11 := 'Primera' else
  if (qry_rep_numeros.FieldByName('campo11').AsString = edit2.Text) then campo11 := 'Segunda' else
  [...]
  else
     campo11 := 'Error';
  rep_ganadores.Print;
end;
Responder Con Cita