GeMIS_WEB/GUI/Tools/ArtikelnummerKomplettLoeschen.p

DEF VAR hQuery  AS HANDLE   NO-UNDO.
DEF VAR hBuffer AS HANDLE   NO-UNDO.
DEF VAR hFeld   AS HANDLE   NO-UNDO.
DEF VAR cWhere  AS CHAR     NO-UNDO.

DEF VAR iArtnr  AS INT      NO-UNDO INIT 20150.
DEF VAR iInhalt AS INT      NO-UNDO INIT 45.
DEF VAR iJahr   AS INT      NO-UNDO INIT 0.

FOR EACH _Field WHERE _Field._Field-Name = 'Artnr':

    FIND _File OF _Field.
    CREATE BUFFER hBuffer FOR TABLE _File._File-Name.
    hFeld = hBuffer:BUFFER-FIELD('Firma').

    IF VALID-HANDLE(hFeld) THEN
        cWhere = SUBSTITUTE('FOR EACH &1 WHERE &1.Firma = "1000" AND &1.Artnr = &2 AND &1.Inhalt = &3 AND &1.Jahr = &4',
                _File._File-Name, iArtnr, iInhalt, iJahr ).
    ELSE 
        cWhere = SUBSTITUTE('FOR EACH &1 WHERE &1.Artnr = &2 AND &1.Inhalt = &3 AND &1.Jahr = &4',
                _File._File-Name,  iArtnr, iInhalt, iJahr ).
                               
    CREATE QUERY hQuery.
    hQuery:SET-BUFFERS(hBuffer).
    hQuery:QUERY-PREPARE(cWhere).
    hQuery:QUERY-OPEN().
    
    REPEAT TRANSACTION:
        DO WHILE hQuery:GET-NEXT(EXCLUSIVE-LOCK):
            hBuffer:BUFFER-DELETE().
        END.
        LEAVE.
    END.
                
    DELETE OBJECT hBuffer.
    DELETE OBJECT hQuery.
END.