DEF VAR cFirma  AS CHAR INIT '1000'.
DEF VAR WuCdK   AS INT  INIT 1.
DEF VAR ivprGrp AS INT  INIT 13.
DEF VAR ibPrGrp AS INT  INIT 18.
DEF VAR iPrGrp  AS INT  INIT 13.
DEF VAR lBrutto AS LOG  INIT FALSE.

DO iPrGrp = ivPrGrp TO ibPrGrp:
    FIND FIRST Tabel NO-LOCK
        WHERE Tabel.Firma  = cFirma
        AND   Tabel.RecArt = 'PREGRP'
        AND   Tabel.CodeI  = iPrGrp NO-ERROR.
    lBrutto = (IF Tabel.Int_1 = 1 THEN TRUE ELSE FALSE ).

    FOR EACH Artst NO-LOCK
        WHERE Artst.Firma = cFirma
        AND   Artst.Aktiv = TRUE:
        
        FIND LAST ArtPreis
            WHERE ArtPreis.Firma     = Artst.Firma
            AND   ArtPreis.Artnr     = Artst.Artnr
            AND   ArtPreis.Inhalt    = Artst.Inhalt
            AND   ArtPreis.Jahr      = Artst.Jahr 
            AND   ArtPreis.Preis_Grp = iPrGrp
            AND   ArtPreis.Ab_Datum <= TODAY NO-ERROR.
        IF NOT AVAILABLE ArtPreis THEN NEXT.
        
        IF lBrutto THEN DO:
            ArtPreis.VK_Brutto = ArtPreis.VK_Netto.
            IF ArtPreis.Aktiv = FALSE THEN ArtPreis.Aktiv = TRUE.
            NEXT.
        END.
        
        FIND Wust NO-LOCK
            WHERE Wust.CodeK = WuCdK
            AND   Wust.CodeA = Artst.Mwst.
        FIND LAST MwstAns NO-LOCK
            WHERE MwstAns.Mwst_Cd = Wust.WuCd
            AND   MwstAns.Datum  < ArtPreis.Ab_Datum NO-ERROR.
        ArtPreis.VK_Brutto = ArtPreis.VK_Netto * (100 + MwstAns.Ansatz) / 100.
        IF ArtPreis.Aktiv = FALSE THEN ArtPreis.Aktiv = TRUE.
    END.
END.