GeMIS_WEB/GUI/v8/aufnr.p

/* -------------------------------------------------------------------------- */
/* Auftragsnummer lösen                                                       */
/* -------------------------------------------------------------------------- */

DEF INPUT   PARAMETER   VFirma      LIKE SteuNr.Firma.
DEF OUTPUT  PARAMETER   VNummer     LIKE SteuNr.Nr1  .

REPEAT:
    VNummer = 0.
    REPEAT TRANSACTION:
        FIND SteuNr USE-INDEX SteuNr-k1
                    WHERE SteuNr.Firma = VFirma EXCLUSIVE-LOCK NO-ERROR NO-WAIT.
        IF AVAILABLE SteuNr THEN DO:
            SteuNr.Nr1 = SteuNr.Nr1 + 1.
            VNummer    = SteuNr.Nr1.
            RELEASE SteuNr.
            LEAVE.
        END.
        
        IF LOCKED SteuNr THEN VNummer = -1.
        LEAVE.
    END.
    LEAVE.
END.