edi.sql de SHi.SyntaxHighlight

Dos select de ejemplo para datos procedentes de EDI, Intercambio electrónico de datos, Electronic Data Interchange

-- ///////////////////////////////////////////////////////////////////////////
-- FILE    : edi.sql
-- AUTHOR  : http://www.asolver.com
-- PURPOSE : Dos select de ejemplo para datos procedentes de EDI,
-- Intercambio electrónico de datos, Electronic Data Interchange
-- ///////////////////////////////////////////////////////////////////////////

-- ///////////////////////////////////////////////////////////////////////////
-- SlsUltLst
-- ///////////////////////////////////////////////////////////////////////////

select
  Tienda.Empresa         as Empresa,
  SlsUltDat.TiendaCodigo as TiendaCodigo,
  SlsUltDat.Departamento as Departamento,
  Tienda.Sucursal        as TiendaSucursal,
  Tienda.Nombre          as TiendaNombre,
  Tienda.Provincia       as TiendaProvincia,
  Tienda.Comunidad       as TiendaComunidad,
  SlsUltDat.FechaInicio  as FechaInicio,
  SlsUltDat.FechaFin     as FechaFin,
  SlsUltDat.ProductoEAN  as ProductoEAN,
  Producto.Codigo        as ProductoCodigo,
  Producto.Nombre        as ProductoNombre,
  Producto.Formato       as ProductoFormato,
  Producto.Fabricante    as ProductoFabricante,
  SlsUltDat.Venta        as Venta,
  SlsUltDat.Devolucion   as Devolucion
from
  Tienda right join
  (SlsUltDat left join Producto on SlsUltDat.ProductoEAN = Producto.EAN)
  on Tienda.CodigoOperacional = SlsUltDat.TiendaCodigo
order by
  Empresa,
  TiendaCodigo,
  Departamento,
  FechaInicio,
  ProductoEAN;

-- ///////////////////////////////////////////////////////////////////////////
-- SlsAbeWee
-- Ventas semanales de la empresa ABE
-- Ventas - Devolucion (que hay que sumar porque son negativas).
-- ///////////////////////////////////////////////////////////////////////////

select
  Departamento,
  Format(FechaInicio,'WW',2,2) as Semana,
  min(FechaInicio) as minFecha,
  max(FechaFin)    as maxFecha,
  ProductoEAN,
  ProductoCodigo,
  ProductoNombre,
  ProductoFormato,
  Sum(Venta)+Sum(Devolucion) as VentaMenosDevolucion
from
  SlsAllLst
where
  Empresa = 'ABE' and
  (Format(FechaInicio,'WW',2,2) = Format(Now(),                'WW',2,2) or
   Format(FechaInicio,'WW',2,2) = Format(DateAdd('d',-7,Now()),'WW',2,2))
group by
  Departamento,
  Format(FechaInicio,'WW',2,2),
  ProductoEAN,
  ProductoCodigo,
  ProductoNombre,
  ProductoFormato
order by
  Format(FechaInicio,'WW',2,2),
  ProductoEAN,
  Departamento