| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107 |
- /*------------------------------------------------------------------------
- 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.
|
