de una misma tabla

[Citlalli]

que que que que? no entendi mamcx

[rastafarey]

No es solo copiar y pegar verifiquen las sisntaxis que escribi een un cyber y no lo probe.

Código SQL [-]
Create Procedure "Nombre"
Return(
  "Mayoreo" Doble Presicion,
  "Menudeo" Doble Presicion
)
As 
  Declare Variable "C" char;
  Declare Variable "T" Doble Presicion
Begin
  For Select "Total", "Mayoreo" From "Ventas" Into :"T", :"C" Do Begin
    "Mayoreo" = Null;
    "Menudeo" = Null;
    If ("C" = 'M') Then
      "Mayoreo" = "T";
    Else
      "Menudeo" = "T";
    Suspend;
  End 
End

[jachguate]

Para algo así me parece exagerado un sp, cuando podría sacarse con:

Código SQL [-]
select fecha,
       case Mayoreo
         when 'S' then Total
         else null
       end Vtas_Mayoreo,
       case Mayoreo
         when 'N' then Total
         else null
       end Vtas_Menudeo
  from Ventas
 where condiciones;

Tampoco va probado, pero la idea es esa...

[[Caral]]

Hola
Coloca un tcombobox en el from, en este pon:
S
N
En el evento onchange del tcombobox pon:

Código Delphi [-]
 If tcombobox1.Text = 'S' then
TQuery1.sql.add(' SELECT Total FROM Ventas WHERE Mayoreo = '+tcombobox1+'' else
TQuery1.sql.add(' SELECT Total FROM Ventas WHERE Mayoreo = '+tcombobox1+'';

con esto se define que buscar S o N sin modificar el sql para cada dato, esta hecho rapido y sin probar Espero te de una idea general.
Saludos