Unterbrechungsjournal

Berichtsname

AZUBDH

Voraussetzungen

Scanner-Controller

Maschinendatenerfassung

Tabelle(n)

AZTUNB (Unterbrechungsjournal)

FEBMIT (Betriebsmittelstamm)

Prozedur

AZE_Unterbrechungsjournal

Parameter

Firmennummer

Von Betriebsmittelnummer

Bis Betriebsmittelnummer

Von Datum

Bis Datum

Ergebnistabelle

Betriebsmittelnummer

Bezeichnung des Betriebsmittels

Unterbrechungsart

Bezeichnung der Unterbrechungsart

Unterbrechungsbeginn

Unterbrechungsende

Stunden

Mitarbeiter

Status

Aufbereitung

Keine

Crystal-Reports

AZJOUR.RPT

Excel-Diagramme

 

 

CREATE PROCEDURE AZE_Unterbrechungsjournal (@OUFIRM AS VARCHAR(2), @OVAGRP AS VARCHAR(6), @OBAGRP AS VARCHAR(6), @OUBBEG AS DATETIME, @OUBEND AS DATETIME)

AS

 

-- Meldungen des SQL-Servers abschalten

--

SET NOCOUNT ON

 

-- SQL ausführen

--

SELECT

      FEBMIT.AM_GRP

,FEBMIT.AMBEZ1

,AZTUNB.OUUART

,PAUART.BGBEZ1

,AZTUNB.OUBBEG

,OUBEND  = CASE WHEN YEAR(AZTUNB.OUBEND) <= 1900 THEN NULL ELSE AZTUNB.OUBEND END

,Stunden =

          CASE

           WHEN AZTUNB.OUSTAT = 'E' THEN ROUND(DATEDIFF(mi, AZTUNB.OUBBEG, AZTUNB.OUBEND) / 60.00, 2)

           ELSE  ROUND(DATEDIFF(mi, AZTUNB.OUBBEG, GETDATE()) / 60.00, 2)

          END

,Mitarbeiter = LTRIM(FEPERS.PEVNAM + ' ' + FEPERS.PENAME)

     ,AZTUNB.OUSTAT

FROM  AZTUNB

     INNER JOIN FEBMIT ON

      AZTUNB.OUFIRM = FEBMIT.AMFIRM AND AZTUNB.OUAGRP = FEBMIT.AM_GRP

     INNER JOIN PAUART ON

      AZTUNB.OUUART = PAUART.BG_KEY

     INNER JOIN FEPERS ON

      AZTUNB.OUFIRM = FEPERS.PEFIRM AND AZTUNB.OUPERS = FEPERS.PENUMM

WHERE

      AZTUNB.OUFIRM = @OUFIRM

      AND AZTUNB.OUBBEG >= @OUBBEG

      AND AZTUNB.OUBEND <= @OUBEND

      AND AZTUNB.OUAGRP >= @OVAGRP

      AND AZTUNB.OUAGRP <= @OBAGRP

ORDER BY

      FEBMIT.AM_GRP

     ,AZTUNB.OUUART

     ,AZTUNB.OUPERS

     ,AZTUNB.OUBBEG