/*------------------------------------------------------------------------
    File        : HoReLagerNullStellung.p
    Purpose     : 

    Syntax      :

    Description : 

    Author(s)   : walter.riechsteiner
    Created     : Thu Jul 08 22:08:42 CEST 2021
    Notes       :
  ----------------------------------------------------------------------*/

/* ***************************  Definitions  ************************** */


/* ********************  Preprocessor Definitions  ******************** */


/* ***************************  Main Block  *************************** */

DISABLE TRIGGERS FOR LOAD OF HoReLager.

OUTPUT TO 'HoReLager.d' NO-MAP NO-CONVERT.
FOR EACH HoReLager
    WHERE HoReLager.Firma  = '1000'
    AND   HoReLager.Lager  = 0
    AND   HoReLager.Art    = 2:

    EXPORT HoReLager.

    ASSIGN  
        HoReLager.Artnr        = 0
        HoReLager.Inhalt       = 0
        HoReLager.Jahr         = 0
        HoReLager.Beschreibung = ''
        HoReLager.Bestand      = 0
        HoReLager.Eingang      = ?
        HoReLager.iStatus      = 0
        HoReLager.Knr          = 0
        HoReLager.Lotnummer    = ''
        HoReLager.PalettNr     = 0
        HoReLager.ProdNummer   = ''
        HoReLager.Verfall      = ?
        .
END.
OUTPUT CLOSE.