Problema con Consulta

[ecfisa]

Hola Salnhack.

No he echo la prueba, pero creo que se podría resumir a una sola consulta, más o menos así:

Código Delphi [-]
...
  with DataModule4 do
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.Add('SELECT Conceptoventa.concventa, Planventa.plventa');
    Query1.Add('FROM Conceptoventa, Plantaventa, mes');
    Query1.Add('WHERE mes.descmes = :FOUND');
    Query1.Add('AND Plantaventa.id = mes.descmes');
    Query1.ParamByName('FOUND').AsString:= suiDBLookupComboBox2.Text;
    Query1.Open;
  end;
...

Un saludo.

[Salnhack]

Hola ecfisa

He revizado el codigo que me sugeriste pero el temas es que las tablas mes y Planventa estan relacionadas 1:M, por los campos id_mes(llave primaria tabla mes) y id_mes(tabla Planventa) los campos son de tipo numero, en el combobox yo visualizo la descripcion del mes (descmes:texto) y hago una consulta para almacenar en una variable el id del mes selecionado para luego utilizarla a la hora de hacer la consulta de seleccion y despues visualizarla en el dbgrid el plan del mes correpondiente, si hay otra forma de hacerlo que sea mejor y proporciona mas robustez a la aplicacion y agilidad por favor decirme me serviria de mucho, soy algo nuevo en el trabajo con las base de dato en delphi y no conosco todas las funcionalidades del trabajo con las mismas,
Ademas con el codigo me trabaja casi bien pero a la hora de visualizar los datos de la consulta en el dbgrid se me duplican ejemplo

tengo por concepto de venta los siguiente

Venta de Software
Mantenimiento de Software
Mantenimiento de PC

cuando el dbgrid me visualiza la consulta del mes de enero
me da

Concepto de Venta Plan
Venta de Software 10
Mantenimiento de Software 10
Mantenimiento de PC 10

y en la base dato

solo tengo

Venta de Software 10

y he probado y me repite por cada concepto de venta el plan, aunque no le corresponda;


Muchas Gracias,

[ecfisa]

Hola SalnHack.

Creo que está duplicando el resultado por una omisión mía. Por favor probá de este modo:

Código Delphi [-]
 with DataModule4 do
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.Add('SELECT DISTINCT CONCEPTOVENTA.CONCVENTA, PLANVENTA.PLVENTA');
    Query1.Add('FROM CONCEPTOVENTA, PLANVENTA, MES');
    Query1.Add('WHERE MES.DESCMES = :FOUND');
    Query1.Add('AND PANVENTA.ID = MES.DESCMES');
    Query1.ParamByName('FOUND').AsString:= suiDBLookupComboBox2.Text;
    Query1.Open;
  end;

Un saludo y disculpas.

[Salnhack]

ecfisa:

volvi a verificar tu codigo pero me da un error en la consulta pues al igualar los campos en la condicion

Query1.Add('AND PLANVENTA.ID = MES.DESCMES');


Estos no son del mismo tipo

Planventa.Id_mes es de tipo numero

y
MES.DESCMES es de tipo texto

[ecfisa]

Hola.

mes y Planventa estan relacionadas 1:M, por los campos id_mes(llave primaria tabla mes) y id_mes(tabla Planventa) los campos son de tipo numero

Y mirá que me lo aclaraste bién en el ultimo mensaje...

Código Delphi [-]
with DataModule4 do
  begin
    Query1.Close;
    Query1.SQL.Clear;
    Query1.Add('SELECT DISTINCT CONCEPTOVENTA.CONCVENTA, PLANVENTA.PLVENTA');
    Query1.Add('FROM CONCEPTOVENTA, PLANVENTA, MES');
    Query1.Add('WHERE MES.DESCMES = :FOUND');
    Query1.Add('AND PLANVENTA.ID = MES.ID_MES');
    Query1.ParamByName('FOUND').AsString:= suiDBLookupComboBox2.Text;
    Query1.Open;
  end;

Un saludo.

[[oscarac]]

y de donde sacas conceptoventa?
mejor dicho como lo estas relacionando? con quien?

no sera por eso que te estan saliendo duplicados?

[Salnhack]

Hola oscarac

en cuanto a tu pregunta el concepto de venta esta en una tabla aparte relacionada con la tabla plan venta

a ver si me explico el problema con el dbgrip, en la base de dato en la tabla de planventa
esta lo siguiente

en el campo
id_concventa 79 // Corresponde al id del concepto de venta Venta de Software
id_mes 112 // Corresponde al id del mes Enero
plventa 150 // plan de venta

cuando lo visualizo en el dbgrid

me sale todos los conseptos de venta con el mismo plan cuando en realidad en la tabla plan solo existe uno el de venta de software

concepto de venta
Venta de Software 150
Mantenimiento 150
...