/*------------------------------------------------------------------------
    File        : lotnrfuntion,p
    Purpose     : 

    Syntax      :

    Description : 

    Author(s)   : walter.riechsteiner
    Created     : Sun Aug 16 14:33:17 CEST 2020
    Notes       :
  ----------------------------------------------------------------------*/

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

BLOCK-LEVEL ON ERROR UNDO, THROW.

DEFINE VARIABLE cFirma    AS CHARACTER NO-UNDO.
DEFINE VARIABLE cBenutzer AS CHARACTER NO-UNDO.

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

/* ************************  Function Prototypes ********************** */


FUNCTION isLotnr RETURNS LOGICAL 
    (ipiArtnr AS INTEGER,
    ipiInhalt AS INTEGER,
    ipiJahr AS INTEGER) FORWARD.

FUNCTION isVerfall RETURNS LOGICAL 
    (ipiArtnr AS INTEGER,
    ipiInhalt AS INTEGER,
    ipiJahr AS INTEGER) FORWARD.


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



/* **********************  Internal Procedures  *********************** */

PROCEDURE NEUERMANDANT:
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    DEFINE INPUT PARAMETER ipcBenutzer  AS CHARACTER NO-UNDO.
    DEFINE INPUT PARAMETER ipcFirma     AS CHARACTER NO-UNDO.
    
    ASSIGN  
        cFirma    = ipcFirma
        cBenutzer = ipcBenutzer.

END PROCEDURE.

SUBSCRIBE TO 'NEUERMANDANT' ANYWHERE. 

/* ************************  Function Implementations ***************** */


FUNCTION isLotnr RETURNS LOGICAL 
    ( ipiArtnr AS INTEGER, ipiInhalt AS INTEGER, ipiJahr AS INTEGER ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE lFlag AS LOG NO-UNDO.

    DEFINE BUFFER bArtst FOR Artst.
    
    FIND bArtst NO-LOCK 
        WHERE bArtst.Firma  = cFirma
        AND   bArtst.Artnr  = ipiArtnr
        AND   bArtst.Inhalt = ipiInhalt
        AND   bArtst.Jahr   = ipiJahr NO-ERROR.
    lFlag = (IF AVAILABLE bArtst THEN bArtst.lLotnr ELSE FALSE ).
    
    RETURN lFlag. 
        
END FUNCTION.

FUNCTION isVerfall RETURNS LOGICAL 
    ( ipiArtnr AS INTEGER, ipiInhalt AS INTEGER, ipiJahr AS INTEGER ):
    /*------------------------------------------------------------------------------
     Purpose:
     Notes:
    ------------------------------------------------------------------------------*/

    DEFINE VARIABLE lFlag AS LOG NO-UNDO.

    DEFINE BUFFER bArtst FOR Artst.
    
    FIND bArtst NO-LOCK 
        WHERE bArtst.Firma  = cFirma
        AND   bArtst.Artnr  = ipiArtnr
        AND   bArtst.Inhalt = ipiInhalt
        AND   bArtst.Jahr   = ipiJahr NO-ERROR.
    lFlag = (IF AVAILABLE bArtst THEN bArtst.lVerfall ELSE FALSE ).
    
    RETURN lFlag. 
        
END FUNCTION.