GeMIS_WEB/GUI/v8/steunr.p

/*  ----------------------------------------------------------------------  */
/*  Nummer aus der SteuNr-Tabelle lösen                                     */
/*  ----------------------------------------------------------------------  */
    { v8/globvar.i " " " " "SHARED" }
    { v8/debivar.i " " " " "SHARED" }
    { v8/artivar.i " " " " "SHARED" }
    { v8/contvar.i " " " " "SHARED" }
/*  ----------------------------------------------------------------------  */
/*  INPUT PARAMETER : Art   1 = Auftragsnummer                              */
/*                          2 = Fakturanummer                               */
/*                          3 = Bestellnummer                               */
/*                          4 = Allg. Belegnummer                           */
/*                          5 = Sammelbelegnummer                           */
/*  ----------------------------------------------------------------------  */

    DEF INPUT  PARAMETER Art        AS INT.
    DEF OUTPUT PARAMETER Nummer     AS INT.

    NUMMER:
    REPEAT TRANSACTION:
        FIND SteuNr USE-INDEX SteuNr-k1
                    WHERE SteuNr.Firma = GVFirma EXCLUSIVE-LOCK NO-WAIT NO-ERROR.
        DO WHILE AVAILABLE SteuNr:
        
            CASE Art:
            
                WHEN 1 THEN DO:
                    SteuNr.Nr1 = SteuNr.Nr1 + 1.
                    Nummer     = SteuNr.Nr1.
                END.

                WHEN 2 THEN DO:
                    SteuNr.Nr2 = SteuNr.Nr2 + 1.
                    Nummer     = SteuNr.Nr2.
                END.

                WHEN 3 THEN DO:
                    SteuNr.Nr3 = SteuNr.Nr3 + 1.
                    Nummer     = SteuNr.Nr3.
                END.

                WHEN 4 THEN DO:
                    SteuNr.Nr4 = SteuNr.Nr4 + 1.
                    Nummer     = SteuNr.Nr4.
                END.

                WHEN 5 THEN DO:
                    SteuNr.Nr5 = SteuNr.Nr5 + 1.
                    Nummer     = SteuNr.Nr5.
                END.

            END CASE.
            
            RELEASE SteuNr.
            LEAVE NUMMER.
            
        END.
                   
        IF LOCKED SteuNr THEN DO:
            Ja = TRUE.
            MESSAGE 'Die Datei SteuNr ist von einem anderen Benutzer im Zugriff '
                    VIEW-AS ALERT-BOX INFORMATION BUTTONS OK-CANCEL UPDATE Ja.
            IF Ja THEN NEXT NUMMER.
        END.
        
        RELEASE SteuNr.
        RETURN 'ERROR'.

    END.

    RELEASE SteuNr.
    RETURN ''.