Ver Mensaje Individual
  #1 (permalink)  
Antiguo 02/04/2009, 15:10
calichet
 
Fecha de Ingreso: marzo-2009
Mensajes: 23
Antigüedad: 15 años, 2 meses
Puntos: 0
VB inner join Rompimientos - una ayuda pls

Hola:

Estoy en la tarea de realizar en vb un prog de analisis presupuestal. Despues de ires y venires ya estoy en un momento casi casi final.

El programa como tal, define modelos presupuestales, por compañia, Area de produccion, centros de costo, conceptos, mes, etc etc.

Pero, necesito generar unos totales de rompimiento por concepto, centro de costo, area de produccion.

La sentencia es:

SELECT PPTO_EJECUCION.Id_Ejecucion,
PPTO_INFORME_CABECERA.Id_Modelo,
PPTO_ENTRADA.Compania,
PPTO_ENTRADA.Grupo,
PPTO_ENTRADA.Centro_Costo,
PPTO_ENTRADA.Concepto,
PPTO_ENTRADA.Valor,
MONTH(PPTO_ENTRADA.Mes) AS Mes,
sum(PPTO_ENTRADA.Valor),
INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME AS Columna,
PPTO_INFORME_DETALLE.Signo
FROM INFORMATION_SCHEMA.COLUMNS
INNER JOIN PPTO_INFORME_DETALLE
ON SUBSTRING(INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME, 6,LEN(INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME)) = PPTO_INFORME_DETALLE.Columna
INNER JOIN PPTO_INFORME_CABECERA
ON PPTO_INFORME_DETALLE.FK_Modelo = PPTO_INFORME_CABECERA.Id_Modelo
INNER JOIN PPTO_ENTRADA
ON PPTO_INFORME_DETALLE.FK_Proceso = PPTO_ENTRADA.Proceso
INNER JOIN PPTO_EJECUCION
ON PPTO_INFORME_DETALLE.FK_Modelo = PPTO_EJECUCION.FK_Modelo
INNER JOIN PROCESO
ON PPTO_ENTRADA.Proceso = PROCESO.ID_PROCESO
WHERE (INFORMATION_SCHEMA.COLUMNS.TABLE_NAME = 'PPTO_MOVIMIENTO')
AND (SUBSTRING(INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME, 1,5) = 'Campo') AND (PPTO_EJECUCION.Id_Ejecucion = '1')
AND (PPTO_INFORME_CABECERA.Id_Modelo = '1')
Group by PPTO_EJECUCION.Id_Ejecucion,PPTO_INFORME_CABECERA. Id_Modelo,
PPTO_ENTRADA.Compania,
PPTO_ENTRADA.Grupo,
PPTO_ENTRADA.Centro_Costo,
PPTO_ENTRADA.Concepto,
PPTO_ENTRADA.Valor,
PPTO_ENTRADA.Mes,
INFORMATION_SCHEMA.COLUMNS.COLUMN_NAME,
PPTO_INFORME_DETALLE.Signo
ORDER BY PPTO_ENTRADA.Proceso, PPTO_ENTRADA.Mes

Por favor una ayuda con los rompimientos ya que yo me estoy rompiendo la cabeza definiendolos.... gracias