GeMIS_WEB/GUI/Tools/ExportBeskoBesze.p

DEF VAR ii AS INT NO-UNDO.
DEF VAR dDatum   AS DATE INIT TODAY FORMAT '99.99.9999'.
/*
OUTPUT TO 'N:\20_Temp\Ge_MIS\Besko.csv' NO-MAP NO-CONVERT.
FOR EACH Besko
    WHERE Besko.Firma = '1000'
    AND   Besko.Best_Sta  = 2,
    
    FIRST Adresse NO-LOCK
            WHERE Adresse.Firma = '1000'
            AND   Adresse.Knr   = Besko.Knr:
            
    EXPORT DELIMITER ';'
        Besko.Besnr
        Besko.Knr
        Adresse.Firma1
        Adresse.Anzeig_Br
        dDatum.
    ii = ii + 1.
    IF ii MOD 5 = 0 THEN dDatum = dDatum + 1.
END.
OUTPUT CLOSE.
*/
OUTPUT TO 'N:\20_Temp\Ge_MIS\Besze.csv' NO-MAP NO-CONVERT.
FOR EACH Besko
    WHERE Besko.Firma = '1000'
    AND   Besko.Best_Sta  = 2,
    
    FIRST Adresse NO-LOCK
            WHERE Adresse.Firma = '1000'
            AND   Adresse.Knr   = Besko.Knr,
            
    EACH Besze NO-LOCK OF Besko,
    
    FIRST ArtBez NO-LOCK
        WHERE Artbez.Firma  = Besze.Firma
        AND   Artbez.Artnr  = Besze.Artnr
        AND   Artbez.Inhalt = Besze.Inhalt
        AND   Artbez.Jahr   = Besze.Jahr:
            
    EXPORT DELIMITER ';'
        Besze.Besnr
        Besze.Pos
        Besze.Artnr
        Besze.Inhalt
        Besze.Jahr
        TRIM(Artbez.Bez1 + ' ' + Artbez.Bez2)
        Besze.MBest.
END.
OUTPUT CLOSE.