13 respuestas en este tema

[edgar_prospero]

que hay amigos aqui estoy con un problema del cual no se bien como explicarlo tratare de dar un ejemplo de lo que necesito aver si me doy a entender, tengo una base de datos en mysql con los siguientes datos:
nombre de la tabla: entradas
con los campos codigo, nombre, cantidad, documento fecha, folio un ejemlplo de mi base de datos con informacion

delphi

CODIGO   NOMBRE       FECHA         FOLIO     DOCUMENTO     CANTIDAD
A01        buro       24/09/2012      1            E           8
A01        buro       03/12/2011      2            S           2

ahora lo que quiero lograr es que me muestre los que corresponden a documento E como entradas la cantidad 8 y salidas la cantidad 2 algo asi

delphi

CODIGO        NOMBRE         FECHA          FOLIO      ENTRADAS     SALIDAS
A01             buro          24/09/2012        1           8
A01             buro          03/12/2012        2                      2

[Rolphy Reyes]

Saludos.

Puedes hacer uso de la sentencia CASE conjuntamente con la sentencia SUM, con esto creo que perfectamente obtienes lo que deseas.

[edgar_prospero]

no tengo mucho conocimiento en mysql pero lo intente de esta manera:

delphi

SELECT codigo, nombre,documento, fecha, folio, cantidad AS entradas FROM entradas WHERE documento='E'
UNION
SELECT codigo, nombre, documento, fecha, folio, cantidad AS salidas FROM entradas  WHERE documento='S'

pero el resultado me lo ponia en un solo campo de la siguiente manera

delphi

CODIGO        NOMBRE         FECHA          FOLIO      ENTRADAS   
 A01             buro        24/09/2012        1               8
 A01             buro        03/12/2012        2               2

buscare algo de la manera que dices

[Rolphy Reyes]

Saludos.

Lo que te indique son sentencias genéricas del Ansi Sql, te exhorto a que busques información sobre el tema.

[poliburro]

Estuvo muy bien tu acercamiento, pero el union debe ser de la siguiente manera

      SELECT codigo, nombre,documento, fecha, folio, cantidad AS entradas, 0 Salidas 
        FROM entradas 
       WHERE documento='E'
  UNION
   SELECT codigo, nombre, documento, fecha, folio, 0 Entradas, Cantidad AS salidas 
    FROM entradas  WHERE documento='S'

[edgar_prospero]

gracias por la respuesta poliburro, de esa forma ahora si me funciona en mysql pero ahora tengo problemas para ajustarlo en delphi lo intento de la siguiente manera pero no se deja a ver si tu me puedes detectar mi falla:

delphi

procedure TForm16.imprimirClick(Sender: TObject);
begin
tabla.close ;
tabla.SQL.Clear;
 
 
tabla.sql.add(' SELECT codigo, nombre, folio, cantidad AS cantidad, 0 cantsal'+
        'FROM entradas '+
       'WHERE documento="E" and codigo>=:inicial and codigo<=:final '+
  'UNION '+
  ' SELECT codigo, nombre, documento, fecha, folio, 0 cantidad, Cantidad AS cantsal'+
    'FROM entradas  WHERE documento="S"  and codigo>=:inicial and codigo<=:final ');
 
tabla.ParamByName('inicial').Asstring:=inicial.Text;
tabla.ParamByName('final').Asstring:=final.Text;
 
tabla.PREPARE;
tabla.Active:=TRUE;
form17.reporte.Preview;
 
inicial.SetFocus;
fecha2.date:=date;
fecha1.Date:=StrToDate( '01/01/2012');
 
end;

[poliburro]

hasta donde recuerdo solo puedes definir un parámetro de entrada en las consultas... si lo usarás más de una vez deberás ponerle otro nombre... considerando esto prueba lo siguiente:

delphi

procedure TForm16.imprimirClick(Sender: TObject);
begin
tabla.close ;
tabla.SQL.Clear;
 
 
tabla.sql.add(' SELECT codigo, nombre, folio, cantidad AS cantidad, 0 cantsal'+
        'FROM entradas '+
       'WHERE documento="E" and codigo>=:inicial and codigo<=:final '+
  'UNION '+
  ' SELECT codigo, nombre, documento, fecha, folio, 0 cantidad, Cantidad AS cantsal'+
    'FROM entradas  WHERE documento="S"  and codigo>=:inicialsalida and codigo<=:finalsalid ');
 
tabla.ParamByName('inicial').Asstring:=inicial.Text;
tabla.ParamByName('final').Asstring:=final.Text;
tabla.ParamByName('inicialsalida').Asstring:=inicial.Text;
tabla.ParamByName('finalsalida').Asstring:=final.Text;
 
 
tabla.PREPARE;
tabla.Active:=TRUE;
form17.reporte.Preview;
 
inicial.SetFocus;
fecha2.date:=date;
fecha1.Date:=StrToDate( '01/01/2012');
 
end;

[edgar_prospero]

ya lo intente como me lo indicaste pero me marca lo siguiente:

delphi

#42000 you have an error in your SQL syntax; check the manual that corresponds to your mysql server version for te right syntax to user near ' entradas WHERE documento="E" and codigo>=? and codigo<=? UNION SELECT codigo, n' at line 1

[poliburro]

mmmm a ver, postea por favor la consulta como la tienes, identada por favor

[edgar_prospero]

no creo que el error este en los parametros , porque trato de correrlo sin parametros y me marca el mismo error:

delphi

tabla.sql.add(' SELECT codigo, nombre, folio, cantidad AS cantidad, 0 cantsal'+
        'FROM entradas '+
       'WHERE documento="E"  '+
  'UNION '+
  ' SELECT codigo, nombre, documento, fecha, folio, 0 cantidad, Cantidad AS cantsal'+
    'FROM entradas  '+
   ' WHERE documento="S"  ');

[poliburro]

Ya vi el error.

El problema es que no estas indentando correctamente tus consultas... por eso tienes esos errores

esto :

tabla.sql.add(' SELECT codigo, nombre, folio, cantidad AS cantidad, 0 cantsal'+
        'FROM entradas '+

genera esta sentencia


SELECT codigo, nombre, folio, cantidad AS cantidad, 0 cantsalFROM entradas

notas el error?

[Rolphy Reyes]

Saludos.

Como indique en mi mensaje previo:

SELECT codigo, nombre,documento, fecha, folio,
 SUM(CASE documento WHEN 'E'  THEN cantidad ELSE 0 END) ENTRADAS,
SUM(CASE documento WHEN 'S'  THEN cantidad ELSE 0 END) SALIDAS
FROM entradas
WHERE codigo BETWEEN :inicial and :final

[edgar_prospero]

gracias por sus respuestas poliburro ahi estaba el asunto con eso funciono y Rolphy Reyes lo intente como tu lo indicaste y tambien funciono,

saludos!!!!

[poliburro]

gracias por sus respuestas poliburro ahi estaba el asunto con eso funciono y Rolphy Reyes lo intente como tu lo indicaste y tambien funciono,

saludos!!!!

Así es Amigo... ambas consultas al final dan el mismo resultado...  saludox