16 respuestas en este tema

[edgar_prospero]

que hay amigos aqui estoy con un problema a ver quien me puede echar la mano, tengo una base de datos en  mysql donde tengo los campos nombre, codigo, documento, cantidad  lo que quiero es restar el campo cantidad , donde lo que diferenciaria seria el campo documento ya que puede ser "E" o "S", entonces seria sumar la cantidad donde documento="E" y restarle la suma de documento="S" no se si me explique lo que quiero lograr

[poliburro]

Pues, debes ser mucho más claro sobre lo que necesitas, por que a bote pronto se me ocurre esto:

Select (Select Sum(Cantidad) From Tabla where documento="E") - 
         (Select Sum(Cantidad) From Tabla where documento="S") Total

[edgar_prospero]

si algo asi es mas o menos lo que necesito nomas que con esa respuesta nomas me aparece el resultado y me gustari que apareciera nombre, codigo y ya el resultado intente agregarle en el select nombre y codigo pero me dice que no existen esas columnas

[poliburro]

Entonces  quieres el resultado de las operaciones  de entrada y salida

ok... lo ideal sería tomar los datos de código y nombre de tu catálogo de artículos pero como no se la estructura de tus tablasl o sacare de tus tablas de operación, que aclaro es algo ineficiente

    Select Distinct Datos.Codigo, Datos.Nombre
              coalesce(Entradas.Entradas,0) -
              coalesce(Salidas.Salidas,0)  CantidadTotal
      From TablaDatos Datos
Left join (
               Select Codigo, Sum(Cantidad) Entradas
                   from TablaDatos
                 WHERE documento="E"              
              Group by Codigo
            ) Entradas
       On Datos.Codigo = Entradas.Codigo
Left join (
               Select Codigo, Sum(Cantidad) Salidas
                   from TablaDatos
                 WHERE documento="S"              
              Group by Codigo
            ) Salidas
       On Datos.Codigo = Salidas.Codigo

[edgar_prospero]

sabes que no me funcion o mas bien no supe como adaptarlo no se si necesites un pco mas de informacion , pero mi base de datos se llama cuauhtemoc la tabla se llama entradas

CODIGO      NOMBRE        DOCUMENTO      CANTIDAD
A01              BURO              E                          15
A01              BURO                E                            3
A01              BURO                S                            10

entonces en mi reporte quiero qe me salga de la siguiente forma

CODIGO      NOMBRE              TOTAL
A01            BURO                    8

         

[poliburro]

entonces en mi reporte quiero qe me salga de la siguiente forma

CODIGO      NOMBRE              TOTAL
A01            BURO                    8

         

La segunda consulta  da de hecho ese resultado.... qué problema te da

[edgar_prospero]

me sale este error amigo:


Error Code : 1064
You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'COALESCE(Entradas.Entradas,0) -
              COALESCE(Salidas.Salidas,0)  Cant' at line 2

Execution Time : 00:00:00:000
Transfer Time  : 00:00:00:000
Total Time    : 00:00:00:000

[poliburro]

que versión de mysql usas?

prueba quitando la función coalesce y el alias...

[edgar_prospero]

la version que tengo es esta: appserv-win32-2.5.10, ahora me esta marcando esto:


Error Code : 1305
FUNCTION datos.Nombre does not exist

Execution Time : 00:00:00:000
Transfer Time  : 00:00:00:000
Total Time    : 00:00:00:000

y si le quito la parte de datos me pone lo siguiente:

Error Code : 1052
Column 'Codigo' in field list is ambiguous

Execution Time : 00:00:00:000
Transfer Time  : 00:00:00:000
Total Time    : 00:00:00:000

[poliburro]

la version que tengo es esta: appserv-win32-2.5.10, ahora me esta marcando esto:

Esa es la versión del paquete... yo te preguntaba la versión de mysql.

    Select Datos.Codigo, Datos.Nombre,

             Entradas.Entradas - Salidas.Salidas

      From (

                Select distinct Codigo, Nombre

                    From TablaDatos 

             )  Datos

Left join (

               Select Codigo, Sum(Cantidad) Entradas

                   from TablaDatos

                 WHERE documento="E"              

              Group by Codigo

            ) Entradas

       On Datos.Codigo = Entradas.Codigo

Left join (

               Select Codigo, Sum(Cantidad) Salidas

                   from TablaDatos

                 WHERE documento="S"              

              Group by Codigo

            ) Salidas

       On Datos.Codigo = Salidas.Codigo

a ver ahora

[edgar_prospero]

jeje disculpa la version es la 5.0.51b y ya me aparece el resultado aunque esto lo hago directamente de mysql, me imagino que este mismo lo puedo adaptar para un reporte en tquickreport o no me sirve?? bueno por lo pronto tratare de adecuarlo a ver como me va porque necesito que me arroje el resultado en un rango de codigos

[poliburro]

Puedes usar el resultado para enviarlos a QuickReport, o FastReport, o Cristal o el reporteador que necesites...

[edgar_prospero]

ok por ultimo amigo al tratar de adecuarla ya en delphi lo intento de esta manera:

p

delphi

rocedure TForm12.imprimirClick(Sender: TObject);
begin
tabla.close ;
tabla.SQL.Clear;
 
tabla.sql.add('SELECT Datos.Codigo, Datos.Nombre, COALESCE(Entradas.Entradas,0) - COALESCE(Salidas.Salidas,0) cantidad  '+
'FROM (SELECT DISTINCT Codigo, Nombre FROM entradas)  Datos LEFT JOIN ( SELECT Codigo, SUM(Cantidad) Entradas'+
'FROM entradas WHERE documento=:doc1 and codigo<= :inicial GROUP BY Codigo) Entradas ON Datos.Codigo = Entradas.Codigo LEFT JOIN (SELECT Codigo, SUM(Cantidad) Salidas FROM entradasWHERE documento= :doc2 codigo<= :final GROUP BY Codigo)'+
'Salidas ON Datos.Codigo = Salidas.Codigo ');
tabla.ParamByName('inicial').Asstring:=inicial.Text;
tabla.ParamByName('final').Asstring:=final.Text;
tabla.ParamByName('doc1').Asstring:=doc1.Text;
tabla.ParamByName('doc2').Asstring:=doc2.Text;
 
tabla.PREPARE;
tabla.Active:=TRUE;
form13.reporte.Preview;
inicial.SetFocus;
 
end;

pero me sale un error el cual es el siguiente:

#42000 you have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ' entradas where documento=? and codigo<=?' group by codigo) entradas ON Datos.cod at line1.

[poliburro]

no se le entiende nada a tu código sql... por favor indenta correctamente tu consulta para hacerla más legible... así no le entiendo nada...

[edgar_prospero]

jeje disculpa a ver ahora que te parece, ya con esto si me sale el reporte pero me salen todos los registros,  tengo 2 edit que son los parametros que quiero que tome para mostra la informacion pero no mes los respeta y me manda todo

delphi

procedure TForm12.imprimirClick(Sender: TObject);
begin
tabla.close ;
tabla.SQL.Clear;
 
tabla.sql.add('SELECT Datos.Codigo, Datos.Nombre, '+
 
 'COALESCE(Entradas.Entradas,0) - COALESCE(Salidas.Salidas,0)  cantidad'+
 
    '  FROM ('+
             '   SELECT DISTINCT Codigo, Nombre '+
                '    FROM entradas '+
           '  )  Datos          '+
'LEFT JOIN (                      '+
               'SELECT Codigo, SUM(Cantidad) Entradas '+
                  ' FROM entradas                     '+
                 'WHERE documento="E"  and codigo>=:inicial   '+
            '  GROUP BY Codigo                        '+
            ') Entradas                               '+
      ' ON Datos.Codigo = Entradas.Codigo             '+
'LEFT JOIN (                                          '+
              ' SELECT Codigo, SUM(Cantidad) Salidas  '+
                  ' FROM entradas                            '+
                ' WHERE documento="S" and codigo<=:final  '+
             ' GROUP BY Codigo                                   '+
           ' ) Salidas                                          '+
      ' ON Datos.Codigo = Salidas.Codigo');
 
 
tabla.ParamByName('inicial').Asstring:=inicial.Text;
tabla.ParamByName('final').Asstring:=final.Text;
 
 
tabla.PREPARE;
tabla.Active:=TRUE;
form13.reporte.Preview;
inicial.SetFocus;
 
end;

[poliburro]

Podrías hacerlo de esta manera:

delphi

Tabla.close;
Tabla.SQL.Clear;
tabla.sql.text := 
  '  SELECT Datos.Codigo, ' + 
  '         Datos.Nombre,  ' + 
  '         COALESCE(Entradas.Entradas,0) - COALESCE(Salidas.Salidas,0) cantidad   ' + 
  '    FROM (SELECT DISTINCT Codigo, Nombre  ' + 
  '            FROM entradas ' + 
  '           Where Codigo >=  ' + inicial.Text + ' And ' +
  '                 Codigo <=  ' + Final.Text +
  '         )   Datos  ' +
  '  LEFT JOIN ( SELECT Codigo, SUM(Cantidad) Entradas ' +
  '                FROM entradas  ' +
  '               WHERE documento="E" and  ' +
  '                     Codigo >= ' + inicial.Text + ' And ' +
  '                     Codigo <= ' + Final.Text   +
  '            GROUP BY Codigo ' +
  '            ) Entradas  ' +
  '         ON Datos.Codigo = Entradas.Codigo    ' +
  '  LEFT JOIN (  SELECT Codigo, SUM(Cantidad) Salidas  ' +
  '                FROM entradas  ' +
  '               WHERE documento="S" and  ' +
  '                     Codigo >= ' + inicial.Text + ' And ' +
  '                     Codigo <= ' + Final.Text   +
  '            GROUP BY Codigo ' +
  '           ) Salidas  ' +
  '        ON Datos.Codigo = Salidas.Codigo  ';
Tabla.Active:=TRUE;
form13.reporte.Preview;
Inicial.SetFocus;

[edgar_prospero]

listo ya quedo solucionado muchas gracias por tu ayuda y paciencia