GeMIS_WEB/GUI/DruckProgramme/Huber/Offerte.p

&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure 
/*------------------------------------------------------------------------
    File        : 
    Purpose     :

    Syntax      :

    Description :

    Author(s)   :
    Created     :
    Notes       :
  ----------------------------------------------------------------------*/
/*          This .W file was created with the Progress AppBuilder.      */
/*----------------------------------------------------------------------*/

/* ***************************  Definitions  ************************** */

DEF INPUT  PARAMETER iphParam   AS HANDLE           NO-UNDO.
DEF OUTPUT PARAMETER opcResult  AS CHAR             NO-UNDO.

DEF VAR iSeite     AS INT    NO-UNDO.
DEF VAR iAnzDok    AS INT    NO-UNDO.
DEF VAR iLauf      AS INT    NO-UNDO.
DEF VAR lFirst     AS LOG    INIT FALSE NO-UNDO.
DEF VAR lLast      AS LOG    INIT FALSE NO-UNDO.
DEF VAR lPreis     AS LOG    NO-UNDO.

DEF VAR cFirma     AS CHAR   NO-UNDO.
DEF VAR AdFirma    AS CHAR   NO-UNDO.
DEF VAR nFakBetr   AS DEC    NO-UNDO.
DEF VAR dFakDatum  AS DATE   NO-UNDO.
DEF VAR iFaknr     AS INT    NO-UNDO.
DEF VAR iSprcd     AS INT    NO-UNDO.
DEF VAR nTotale    AS DEC    EXTENT 15 NO-UNDO.
DEF VAR cFormtext  AS CHAR   EXTENT 30 NO-UNDO.
DEF VAR cRabText   AS CHAR   NO-UNDO.
DEF VAR cZusText   AS CHAR   NO-UNDO.
DEF VAR cEpzText   AS CHAR   NO-UNDO.
DEF VAR cBesrKopf  AS CHAR   EXTENT 12 NO-UNDO.
DEF VAR lDebIncl   AS LOG    NO-UNDO.
DEF VAR Rundbetr   AS DEC    DECIMALS 4 NO-UNDO.
DEF VAR RundCode   AS INT    INIT 1 NO-UNDO.
DEF VAR htTabTexte AS HANDLE NO-UNDO.
DEF VAR hAufko     AS HANDLE NO-UNDO.

DEF BUFFER bAufko   FOR Aufko   .
DEF BUFFER bAufze   FOR Aufze   .
DEF BUFFER FDebst   FOR Debst   .       /*  Fakturaadresse  */
DEF BUFFER LDebst   FOR Debst   .       /*  Lieferadresse   */
DEF BUFFER LAdresse FOR Adresse .
DEF BUFFER bAdresse FOR Adresse .
DEF BUFFER bWust    FOR Wust    .
DEF BUFFER bSteuer  FOR Steuer  .

DEF VAR hExcel AS COM-HANDLE NO-UNDO.
DEF VAR cZelle AS CHAR       NO-UNDO.
DEF VAR iZeile AS INT        NO-UNDO.

{ incl/ttdruckparam.i }

DEF TEMP-TABLE tTotale
    FIELD nMwstPfl AS DEC EXTENT 12
    FIELD nMwstBet AS DEC EXTENT 12
    FIELD nSammTot AS DEC
    FIELD nSkBer   AS DEC
    FIELD nWW      AS DEC
    .
DEF TEMP-TABLE sAufko
    FIELD cFirma   AS CHAR
    FIELD iAufnr   AS INT
    FIELD iFak_Knr AS INT
    FIELD iSamm_Nr AS INT
    FIELD iRecid   AS RECID
    FIELD iFaknr   AS INT
    .
DEF TEMP-TABLE tAufko LIKE Aufko
    FIELD iRecid AS RECID
    .
DEF TEMP-TABLE tAufze
    FIELD Aufnr  AS INT
    FIELD Sort1  AS CHAR
    FIELD Sort2  AS CHAR
    FIELD Sort3  AS CHAR
    FIELD Artnr  AS INT
    FIELD Inhalt AS INT
    FIELD Jahr   AS INT
    FIELD Pos    AS INT
    FIELD Zeile  AS RECID
    FIELD Preis  AS DEC   DECIMALS 4
    FIELD Aktion AS LOG
    FIELD LagOrt AS CHAR
    FIELD MGeli  AS DEC
    FIELD MRuek  AS DEC
    
    INDEX tAufze-k1 IS PRIMARY
    Aufnr
    Sort1
    Sort2
    Sort3
    .
DEF TEMP-TABLE tSpeRab
    FIELD Rab_Grp  AS INT
    FIELD Auf_Betr AS DEC DECIMALS 4
    .
DEF TEMP-TABLE tGebKto
    FIELD Sort_Cd  AS CHAR
    FIELD Geb_Cd   AS CHAR
    FIELD Bez      AS CHAR
    FIELD Preis    AS DEC
    FIELD A_Anz    AS DEC
    FIELD A_Betrag AS DEC
    FIELD E_Anz    AS DEC
    FIELD E_Betrag AS DEC
    FIELD MWST_Art AS INT
    FIELD MWST_Cd  AS INT
    .
DEF TEMP-TABLE tRabSumm
    FIELD Rab_Summ  AS INT
    FIELD Bez       AS CHAR
    FIELD F_Rab_Art AS INT
    FIELD F_Wert    AS DEC  DECIMALS 4
    FIELD A_Rab_Art AS INT
    FIELD A_Wert    AS DEC  DECIMALS 4
    FIELD Auf_Rab   AS DEC  DECIMALS 4
    FIELD Abh_Rab   AS DEC  DECIMALS 4
    .
DEF TEMP-TABLE tTabTexte
    FIELD cRecArt AS CHAR
    FIELD iZeile  AS INT
    FIELD cFeld1  AS CHAR
    FIELD cFeld2  AS CHAR
    FIELD cFeld3  AS CHAR
    FIELD iFeld1  AS INT
    FIELD iFeld2  AS INT
    FIELD iFeld3  AS INT
    
    INDEX tTabTexte-k1 IS PRIMARY
    cRecArt
    iZeile.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK 

/* ********************  Preprocessor Definitions  ******************** */

&Scoped-define PROCEDURE-TYPE Procedure
&Scoped-define DB-AWARE no



/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME



/* *********************** Procedure Settings ************************ */

&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
   Type: Procedure
   Allow: 
   Frames: 0
   Add Fields to: Neither
   Other Settings: CODE-ONLY COMPILE
 */
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS

/* *************************  Create Window  ************************** */

&ANALYZE-SUSPEND _CREATE-WINDOW
/* DESIGN Window definition (used by the UIB) 
  CREATE WINDOW Procedure ASSIGN
         HEIGHT             = 15
         WIDTH              = 60.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

 


&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure 


/* ***************************  Main Block  *************************** */

opcResult = ''.

CREATE tParam.
htParam:BUFFER-COPY(iphParam).
    
ASSIGN  
    cFirma  = tParam.cFirma
    iAnzDok = 1.
            
FIND bSteuer NO-LOCK WHERE bSteuer.Firma = cFirma.
AdFirma = bSteuer.AdFirma.

RUN AUFTRAG_ERMITTELN.
IF opcResult <> '' THEN RETURN.
    
FOR EACH sAufko
    BY sAufko.iFak_Knr:

    FIND bAdresse NO-LOCK
        WHERE bAdresse.Firma = AdFirma
        AND   bAdresse.Knr   = sAufko.iFak_Knr.
    iSprcd = bAdresse.Sprcd.
    RUN GET_FORMTEXT ( tParam.cInstall, tParam.cDokument, iSprcd,
        OUTPUT cFormText ) NO-ERROR.
    cRabText =   TRIM(SUBSTRING(cFormText[21],01,20)).
    cZusText =   TRIM(SUBSTRING(cFormText[21],21,20)).
    cEpzText =   TRIM(SUBSTRING(cFormText[21],41,20)).
    RELEASE bAdresse.
        
    DO iLauf = 1 TO iAnzDok:
        
        dFakDatum = TODAY.
        iSeite    = 0.
        iFaknr    = sAufko.iAufnr.
        lFirst    = TRUE.
        lPreis    = TRUE.
        lLast     = FALSE.
                    
        EMPTY TEMP-TABLE tTotale    .
            
        CREATE  tTotale.
            
        FOR EACH bAufko NO-LOCK
            WHERE bAufko.Firma      = sAufko.cFirma
            AND   bAufko.Aufnr      = sAufko.iAufnr:

            EMPTY TEMP-TABLE tAufze     .
            EMPTY TEMP-TABLE tGebKto    .
            EMPTY TEMP-TABLE tRabSumm   .
            EMPTY TEMP-TABLE tSpeRab    .
            EMPTY TEMP-TABLE tTabTexte  .
                
            FIND bAdresse NO-LOCK USE-INDEX Adresse-k1
                WHERE bAdresse.Firma = AdFirma
                AND   bAdresse.Knr   = bAufko.Fak_Knr NO-ERROR.
            FIND LDebst NO-LOCK USE-INDEX Debst-k1
                WHERE LDebst.Firma  = cFirma
                AND   LDebst.Knr    = bAufko.Knr NO-ERROR.
            FIND FDebst NO-LOCK USE-INDEX Debst-k1
                WHERE FDebst.Firma  = cFirma
                AND   FDebst.Knr    = bAufko.Fak_Knr NO-ERROR.
            FIND bWust NO-LOCK USE-INDEX Wust-k1
                WHERE bWust.CodeK    = LDebst.MWST
                AND   bWust.CodeA    = 99 NO-ERROR.
            lDebIncl = FALSE.
            IF AVAILABLE bWust THEN lDebIncl = bWust.Incl.
        
            /*  Texte und Werte aus Tabelle 'Tabel' laden für RecArt */
            /*  FAKART, AUFSTATUS, LIEFART, FAHRER, WISO, ABLAD      */
                
            hAufko     = BUFFER bAufko:HANDLE.
            htTabTexte = TEMP-TABLE tTabTexte:DEFAULT-BUFFER-HANDLE.
            RUN CREATE_TABTEXTE ( hAufko, INPUT-OUTPUT htTabTexte ) NO-ERROR.
                
            RUN FUELLEN_tAufze ( bAufko.Aufnr ) NO-ERROR.
                
            FOR EACH tAufze
                WHERE tAufze.Artnr > 0:
                
                FIND bAufze NO-LOCK WHERE RECID(bAufze) = tAufze.Zeile.
                    
                /*  Spezial-Auftragsrabatt pro Lieferschein bilden  */
                
                IF bAufze.Auf_Sp_Grp > 0 THEN 
                DO:
                    FIND FIRST tSpeRab
                        WHERE tSpeRab.Rab_Grp = bAufze.Auf_Sp_Grp NO-ERROR.
                    IF NOT AVAILABLE tSpeRab THEN 
                    DO:
                        CREATE  tSpeRab.
                        ASSIGN  
                            tSpeRab.Rab_Grp = bAufze.Auf_Sp_Grp.
                    END.
                    tSpeRab.Auf_Betr = tSpeRab.Auf_Betr + bAufze.Auf_Sp_Rab.
                END.
                    
                /*  Summengruppen-Totale pro Lieferschein bilden  */
                    
                DO WHILE bAufze.Rab_Su_Grp > 0:
                    FIND FIRST tRabSumm
                        WHERE tRabSumm.Rab_Summ = bAufze.Rab_Su_Grp NO-ERROR.
                    IF NOT AVAILABLE tRabSumm THEN 
                    DO:
                        FIND FIRST RabSumm NO-LOCK
                            WHERE RabSumm.Firma    = bAufze.Firma
                            AND   RabSumm.Rab_Summ = bAufze.Rab_Su_Grp NO-ERROR.
                        IF NOT AVAILABLE RabSumm THEN LEAVE.
                        CREATE  tRabSumm.
                        ASSIGN  
                            tRabSumm.Rab_Summ = bAufze.Rab_Su_Grp
                            tRabSumm.Bez      = RabSumm.Bez
                            tRabSumm.Auf_Rab  = 0
                            tRabSumm.Abh_Rab  = 0.
                    END.
                    LEAVE.
                END.
            END.
                
            RUN DRUCKEN.
            
        END.
    END.
END.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME


/* **********************  Internal Procedures  *********************** */

&IF DEFINED(EXCLUDE-ARTIKELZEILE) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ARTIKELZEILE Procedure 
PROCEDURE ARTIKELZEILE :
    /*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF INPUT PARAMETER ipRecid AS RECID            NO-UNDO.
    
    DEF VAR cString  AS CHAR NO-UNDO.
    DEF VAR nRabWert AS DEC  NO-UNDO.
    DEF VAR xRabText AS CHAR NO-UNDO.

    FIND tAufze WHERE RECID(tAufze) = ipRecid      NO-LOCK.
    FIND Aufze  WHERE RECID(Aufze)  = tAufze.Zeile NO-LOCK.

    DO WHILE Aufze.Artnr = 0:
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, INPUT Aufze.Bez1 ).
        IF Aufze.Bez2 = '' THEN RETURN.
        iZeile = iZeile + 1.
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, INPUT Aufze.Bez2 ).
        RETURN.
    END.
    
    FIND Artst OF Aufze NO-LOCK.
            
    FIND GGebinde NO-LOCK
        WHERE GGebinde.Firma  = cFirma
        AND   GGebinde.Geb_Cd = Aufze.GGeb_Cd NO-ERROR.
    FIND VGebinde NO-LOCK
        WHERE VGebinde.Firma  = cFirma
        AND   VGebinde.Geb_Cd = Aufze.VGeb_Cd NO-ERROR.
    FIND KGebinde NO-LOCK
        WHERE KGebinde.Firma  = cFirma
        AND   KGebinde.Geb_Cd = Aufze.KGeb_Cd NO-ERROR.
                  
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'A',
        INPUT iZeile, INPUT KGebinde.KBez ).
    IF Aufze.VGeb_Me <> 0 THEN 
    DO:
        cString = STRING(Aufze.VGeb_Me,'->>>')
            + 'x '
            + STRING(VGebinde.KBez,'x(10)').
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'B',
            INPUT iZeile, INPUT cString ).
    END.
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'C',
        INPUT iZeile, INPUT STRING(Aufze.MGeli,'->>>>>9') ).
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
        INPUT iZeile, INPUT Aufze.Bez1 ).
    IF Aufze.Jahr > 9 THEN
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'E',
            INPUT iZeile, INPUT STRING(Aufze.Jahr,'9999') ).
    IF Aufze.Alk_Gehalt <> 0 THEN
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'F',
            INPUT iZeile, INPUT STRING(Aufze.Alk_Gehalt,'zz9.9%') ).
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'G',
        INPUT iZeile, INPUT STRING(Aufze.Artnr,'999999') ).
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'H',
        INPUT iZeile, INPUT STRING(Aufze.Preis,'>>>>>9.99') ).
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
        INPUT iZeile, INPUT STRING(Aufze.Bru_Betr,'->>>>>9.99') ).
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'J',
        INPUT iZeile, INPUT STRING(Aufze.WuCd,'z9') ).
    
    IF Aufze.Bez2 <> '' THEN 
    DO:
        iZeile = iZeile + 1.
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, INPUT Aufze.Bez2 ).
    END.
    IF Aufze.Aktion THEN 
    DO:
        iZeile = iZeile + 1.
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, INPUT Aufze.Aktion_Text ).
    END.
    
    DO WHILE TRUE:
        IF Aufze.Rab_Betr = 0 THEN LEAVE.
        
        nRabWert = ABSOLUTE(Aufze.Rab_Wert).
        IF Aufze.Rab_Art = 3 THEN xRabText = cEpzText.
        ELSE 
        DO:
            IF Aufze.Rab_Betr < 0 THEN xRabText = cZusText.
            IF Aufze.Rab_Betr > 0 THEN xRabText = cRabText.
        END.
        iZeile = iZeile + 1.
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, INPUT TRIM(xRabText) ).
        IF Aufze.Rab_Art = 1
            THEN RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'H',
                INPUT iZeile, INPUT TRIM(STRING(nRabWert,"->9.9 %")) ).
            
        IF Aufze.Rab_Art = 2    OR
            Aufze.Rab_Art = 3
            THEN RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'H',
                INPUT iZeile, INPUT TRIM(STRING(nRabWert,"->9.99 CHF")) ).
            
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
            INPUT iZeile, INPUT TRIM(STRING(- Aufze.Rab_Betr ,"->>>9.99")) ).
        LEAVE.
    END.
    
    DO WHILE TRUE:    
        IF Aufze.Zus_Betr = 0 THEN LEAVE.
        
        nRabWert = ABSOLUTE(Aufze.Zus_Wert).
        IF Aufze.Zus_Art = 3 THEN xRabText = cEpzText.
        ELSE 
        DO:
            IF Aufze.Zus_Betr < 0 THEN xRabText = cRabText.
            IF Aufze.Zus_Betr > 0 THEN xRabText = cZusText.
        END.
        iZeile = iZeile + 1.
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, INPUT TRIM(xRabText) ).
        IF Aufze.Zus_Art = 1
            THEN RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'H',
                INPUT iZeile, INPUT TRIM(STRING(nRabWert,"->9.9 %")) ).
            
        IF Aufze.Zus_Art = 2    OR
            Aufze.Zus_Art = 3
            THEN RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'H',
                INPUT iZeile, INPUT TRIM(STRING(nRabWert,"->9.99 CHF")) ).
            
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
            INPUT iZeile, INPUT TRIM(STRING(- Aufze.Zus_Betr ,"->>>9.99")) ).
        LEAVE.
    END.
    
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-AUFTRAG_ERMITTELN) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE AUFTRAG_ERMITTELN Procedure 
PROCEDURE AUFTRAG_ERMITTELN :
    /*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF VAR iAufnr AS INT NO-UNDO.

    FIND FIRST tParam.
    
    EMPTY TEMP-TABLE sAufko.
    
    /*  Sammeln aller Aufträge pro Sammelnummer  */
    
    FOR EACH Aufko NO-LOCK USE-INDEX Aufko-k5
        WHERE Aufko.Firma       = tParam.cFirma
        AND   Aufko.Aufnr       = tParam.iAufnr :
        /*         IF tParam.iVerband <> 999999 THEN DO: */
        /*             FIND bDebst NO-LOCK */
        /*                     WHERE bDebst.Firma = Aufko.Firma */
        /*                     AND   bDebst.Knr   = Aufko.Fak_Knr NO-ERROR. */
        /*             IF NOT AVAILABLE bDebst THEN NEXT. */
        /*             IF bDebst.Verband_Grp <> tParam.iVerband THEN NEXT. */
        /*         END. */
            
        CREATE  sAufko.
        ASSIGN  
            sAufko.cFirma   = Aufko.Firma
            sAufko.iAufnr   = Aufko.Aufnr
            sAufko.iFak_Knr = Aufko.Fak_Knr
            sAufko.iSamm_Nr = 0
            sAufko.iRecid   = RECID(Aufko)
            sAufko.iFaknr   = 0.
    END.
    
    /*  Alle Auftragstotale aller Lieferscheine neu rechnen     */
    
    FOR EACH sAufko:
        FOR EACH bAufko NO-LOCK
            WHERE bAufko.Firma       = sAufko.cFirma
            AND   bAufko.Samm_Nr     = sAufko.iSamm_Nr
            AND   bAufko.Fak_Knr     = sAufko.iFak_Knr
            AND   bAufko.Lief_Datum >= tParam.dvonDatum 
            AND   bAufko.Lief_Datum <= tParam.dbisDatum:
            DYNAMIC-FUNCTION('calculateAuftragsTotal':U, bAufko.Firma,
                bAufko.Aufnr,
                OUTPUT nTotale ) NO-ERROR.
            RELEASE bAufko.
        END.
    END.
    
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-DRUCKEN) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE DRUCKEN Procedure 
PROCEDURE DRUCKEN :
    /*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF VAR cLAdresse AS CHAR NO-UNDO.
    DEF VAR RText     AS CHAR NO-UNDO.
    DEF VAR WText     AS CHAR NO-UNDO.
    DEF VAR ii        AS INT  NO-UNDO.
    DEF VAR i1        AS INT  NO-UNDO.
    DEF VAR nRabWert  AS DEC  NO-UNDO.
    DEF VAR iMwstCd   AS INT  NO-UNDO.
    DEF VAR nZeiTot   AS DEC  DECIMALS 4 NO-UNDO.
    DEF VAR cDaten    AS CHAR NO-UNDO.
    
    FIND FIRST tParam.

    nFakBetr = 0.
    iZeile   = 5.
    
    IF iSeite = 0 THEN RUN EXCEL_INIT.
    IF RETURN-VALUE <> '' THEN 
    DO:
        MESSAGE 'Problem beim Öffnen von Excel und/oder Vorlage'
            VIEW-AS ALERT-BOX.
        RETURN 'ERROR'.
    END.
    
    FIND bAdresse NO-LOCK
        WHERE bAdresse.Firma = AdFirma
        AND   bAdresse.Knr   = bAufko.Knr NO-ERROR.
    FIND LDebst NO-LOCK
        WHERE LDebst.Firma  = cFirma
        AND   LDebst.Knr    = bAufko.Knr NO-ERROR.
    FIND FDebst NO-LOCK
        WHERE FDebst.Firma  = cFirma
        AND   FDebst.Knr    = bAufko.Fak_Knr NO-ERROR.
    FIND Wust NO-LOCK
        WHERE Wust.CodeK    = LDebst.MWST
        AND   Wust.CodeA    = 99 NO-ERROR.
    iSprcd   = bAdresse.Sprcd.

    IF bAufko.Adresse[05] <> '' THEN 
    DO:
        DO ii = 1 TO 5:
            RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'E',
                INPUT iZeile,   INPUT bAufko.Adresse[ii] ).
            iZeile = iZeile + 1.
        END.
    END.
    ELSE 
    DO:
        DO ii = 7 TO 11:
            RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'E',
                INPUT iZeile,   INPUT bAdresse.Anschrift[ii] ).
            iZeile = iZeile + 1.
        END.
    END.

    cDaten  = STRING(dFakDatum,'99.99.9999').
    iZeile = iZeile + 2.
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'C',
        INPUT iZeile, INPUT cDaten ).

    iZeile = iZeile + 3.
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'C',
        INPUT iZeile, INPUT STRING(iFaknr,'>999999') ).

    iZeile = iZeile + 2.
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'C',
        INPUT iZeile, INPUT bAufko.U_Ref ).

    iZeile = 21.
    FOR EACH tAufze NO-LOCK
        BY tAufze.Aufnr
        BY tAufze.Sort1
        BY tAufze.LagOrt
        BY tAufze.Sort2
        BY tAufze.Pos  :
             
        FIND Aufze NO-LOCK WHERE RECID(Aufze) = tAufze.Zeile.
        
        RUN ARTIKELZEILE ( RECID(tAufze) ).
        
        iZeile = iZeile + 1.

        nFakBetr = nFakBetr + Aufze.Net_Betr.
        RELEASE Aufze.
    END.
    
    iZeile = iZeile + 1.
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
        INPUT iZeile, INPUT cFormText[13] ).
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
        INPUT iZeile, TRIM(STRING(nFakBetr,"->>>>9.99")) ).
                       
    RUN SUMMENRABATTE.
    RUN GEBINDE_SALDO.
    RUN GEBINDE_ABRECHNUNG.
    RUN MEHRWERTSTEUER.

    iZeile = iZeile + 1.    
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
        INPUT iZeile, TRIM(SUBSTRING(cFormText[15],21,20)) ).
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
        INPUT iZeile, TRIM(STRING(nFakBetr,'->>>>>9.99')) ).

    iZeile = iZeile + 2.    
    FIND Kondi USE-INDEX Kondi-k1
        WHERE Kondi.Kond  = bAufko.Kond
        AND   Kondi.Sprcd = iSprcd NO-LOCK NO-ERROR.
    IF AVAILABLE Kondi THEN 
    DO:
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, Kondi.Kotext ).
    END.
    
    DYNAMIC-FUNCTION('RELEASEEXCEL':U, INPUT hExcel ).

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-EXCEL_INIT) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE EXCEL_INIT Procedure 
PROCEDURE EXCEL_INIT :
    /*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF VAR cVorlage AS CHAR NO-UNDO.
    DEF VAR lRetVal  AS LOG  NO-UNDO.

    FIND FIRST tParam.

    hExcel = DYNAMIC-FUNCTION('CREATEEXCEL':U) NO-ERROR.
    IF NOT VALID-HANDLE(hExcel) THEN RETURN 'ERROR'.

    cVorlage = tParam.Template + CHR(01) + tParam.Template.
    RUN CREATEDATEI ( INPUT cVorlage ).

    cVorlage = SESSION:TEMP-DIR + tParam.Template.
    RUN OPENEXCEL ( INPUT hExcel,
        INPUT cVorlage,
        INPUT '',
        OUTPUT lRetVal ).
    IF NOT lRetVal THEN 
    DO:
        RUN RELEASEEXCEL ( INPUT hExcel ).
        RETURN 'ERROR'.
    END.
    
    RETURN ''.

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-FUELLEN_tAufze) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FUELLEN_tAufze Procedure 
PROCEDURE FUELLEN_tAufze :
    /*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF INPUT PARAMETER ipAufnr     AS INT          NO-UNDO.

    DEF VAR minPos     AS INT  NO-UNDO.
    DEF VAR maxPos     AS INT  NO-UNDO.
    DEF VAR jPlatz     AS INT  NO-UNDO.
    DEF VAR cLagOrt    AS CHAR NO-UNDO.
    DEF VAR iRuestArt  AS INT  NO-UNDO.
    DEF VAR iPlusMinus AS INT  NO-UNDO.
    DEF VAR lArtikel   AS LOG  NO-UNDO.

    EMPTY TEMP-TABLE tAufze.
    
    FIND Steuer NO-LOCK
        WHERE Steuer.Firma = cFirma NO-ERROR.
    IF AVAILABLE Steuer THEN iRuestArt = Steuer.RuestArt.
    
    ASSIGN  
        minPos     = 0
        maxPos     = 9999
        iPlusMinus = 0.
            
    /*  Kommentar zu Beginn eines Auftrages     */
    lArtikel = FALSE.
    FOR EACH Aufze NO-LOCK
        WHERE Aufze.Firma = cFirma
        AND   Aufze.Aufnr = ipAufnr
        AND   Aufze.Pos   > minPos:
        IF Aufze.Artnr > 0 THEN 
        DO:
            lArtikel = TRUE.
            LEAVE.
        END.
        
        minPos = Aufze.Pos.
        CREATE  tAufze.
        ASSIGN  
            tAufze.Aufnr  = Aufze.Aufnr
            tAufze.Artnr  = Aufze.Artnr
            tAufze.Inhalt = Aufze.Inhalt
            tAufze.Jahr   = Aufze.Jahr
            tAufze.Pos    = Aufze.Pos
            tAufze.Zeile  = RECID(Aufze)
            tAufze.Aktion = Aufze.Aktion
            tAufze.Preis  = Aufze.Preis
            tAufze.MGeli  = Aufze.MGeli
            tAufze.MRuek  = Aufze.MRuek.
                
        ASSIGN  
            tAufze.Sort1 = STRING(0,'99')
            tAufze.Sort2 = ''
            tAufze.Sort3 = STRING(tAufze.Artnr ,'999999')
                             + STRING(tAufze.Inhalt,'9999')
                             + STRING(tAufze.Jahr  ,'9999')
                             + STRING(iPlusMinus   ,'9')
                             + STRING(tAufze.Pos   ,'99999').
        tAufze.LagOrt = ''.
    END.
    
    /*  Kommentar am Ende eines Auftrages       */
    IF lArtikel THEN 
    DO:
        FOR EACH Aufze NO-LOCK
            WHERE Aufze.Firma = cFirma
            AND   Aufze.Aufnr = ipAufnr
            BY Aufze.Pos DESCENDING:
            IF Aufze.Artnr > 0 THEN LEAVE.
            
            maxPos = Aufze.Pos.
            CREATE  tAufze.
            ASSIGN  
                tAufze.Aufnr  = Aufze.Aufnr
                tAufze.Artnr  = Aufze.Artnr
                tAufze.Inhalt = Aufze.Inhalt
                tAufze.Jahr   = Aufze.Jahr
                tAufze.Pos    = Aufze.Pos
                tAufze.Zeile  = RECID(Aufze)
                tAufze.Aktion = Aufze.Aktion
                tAufze.Preis  = Aufze.Preis
                tAufze.MGeli  = Aufze.MGeli
                tAufze.MRuek  = Aufze.MRuek.
                    
            ASSIGN  
                tAufze.Sort1 = STRING(0,'99')
                tAufze.Sort2 = ''
                tAufze.Sort3 = STRING(tAufze.Artnr ,'999999')
                                 + STRING(tAufze.Inhalt,'9999')
                                 + STRING(tAufze.Jahr  ,'9999')
                                 + STRING(iPlusMinus   ,'9')
                                 + STRING(tAufze.Pos   ,'99999').
            tAufze.LagOrt = ''.
        END.
    END.
    
    /*  Artikelzeilen nach Ruestplatz und Ort   */
    cLagOrt = ''.
    FOR EACH Aufze NO-LOCK
        WHERE Aufze.Firma = cFirma
        AND   Aufze.Aufnr = ipAufnr
        AND   Aufze.Pos   > minPos
        AND   Aufze.Pos   < MaxPos
        BY Aufze.Pos DESCENDING:
            
        IF Aufze.Artnr > 0 THEN 
        DO:
            FIND ArtLager NO-LOCK
                WHERE ArtLager.Firma  = Aufze.Firma
                AND   ArtLager.Artnr  = Aufze.Artnr
                AND   ArtLager.Inhalt = Aufze.Inhalt
                AND   ArtLager.Jahr   = Aufze.Jahr
                AND   ArtLager.Lager  = Aufze.Lager.
            cLagOrt = ArtLager.Ort.
        END.
        iPlusMinus = (IF Aufze.MGeli < 0 THEN 1 ELSE 0).
        FIND LAST RuestPlatz USE-INDEX RuestPlatz-k2
            WHERE RuestPlatz.Firma     = Aufze.Firma
            AND   RuestPlatz.RuestArt  = iRuestArt
            AND   RuestPlatz.abLagOrt <= cLagOrt NO-ERROR.
        IF NOT AVAILABLE RuestPlatz THEN jPlatz = 90.
        ELSE                             jPlatz = RuestPlatz.Platz.
        CREATE  tAufze.
        ASSIGN  
            tAufze.Aufnr  = Aufze.Aufnr
            tAufze.Artnr  = Aufze.Artnr
            tAufze.Inhalt = Aufze.Inhalt
            tAufze.Jahr   = Aufze.Jahr
            tAufze.Pos    = Aufze.Pos
            tAufze.Zeile  = RECID(Aufze)
            tAufze.Aktion = Aufze.Aktion
            tAufze.Preis  = Aufze.Preis
            tAufze.MGeli  = Aufze.MGeli
            tAufze.MRuek  = Aufze.MRuek.
                
        ASSIGN  
            tAufze.Sort1 = STRING(jPlatz,'99')
            tAufze.Sort2 = cLagOrt
            tAufze.Sort3 = STRING(tAufze.Artnr ,'999999')
                             + STRING(tAufze.Inhalt,'9999')
                             + STRING(tAufze.Jahr  ,'9999')
                             + STRING(iPlusMinus   ,'9')
                             + STRING(tAufze.Pos   ,'99999').
        tAufze.LagOrt = cLagort.
                
        IF tAufze.Artnr > 0  AND
            tAufze.MGeli = 0  THEN DELETE tAufze.
    END.
    
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GEBINDE_ABRECHNUNG) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GEBINDE_ABRECHNUNG Procedure 
PROCEDURE GEBINDE_ABRECHNUNG :
    /*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF VAR cDaten  AS CHAR NO-UNDO.
    DEF VAR lTotal  AS LOG  NO-UNDO.
    DEF VAR nBetrag AS DEC  NO-UNDO.
    DEF VAR i1      AS INT  NO-UNDO.
    DEF VAR i2      AS INT  NO-UNDO.
    DEF VAR iMwstCd AS INT  NO-UNDO.
    DEF VAR nZTot   AS DEC  NO-UNDO.
    
    lTotal = FALSE.
    i2     = 0.
    nZTot  = 0.
    FOR EACH AufGKon NO-LOCK
        WHERE AufGKon.Firma    = BAufko.Firma
        AND   AufGKon.Aufnr    = BAufko.Aufnr
        AND   AufGKon.Gebuehr <> 0
        AND   AufGKon.Betrag  <> 0 :
        iMwstCd  = AufGKon.MWST_Cd.
        IF i2 = 0 THEN iZeile = iZeile + 2.
        ELSE           iZeile = iZeile + 1.

        FIND GebKonto NO-LOCK
            WHERE GebKonto.Firma  = cFirma
            AND   GebKonto.Geb_Cd = AufGKon.Geb_Cd.
        i1 = AufGKon.Ausgang.
        IF AufGKon.Depot = 0    AND
            AufGKon.Gebuehr = 0  THEN nBetrag = GebKonto.Gebuehr.
        ELSE                         nBetrag = AufGKon.Gebuehr.
        Rundbetr = i1 * nBetrag.
        iMwstCd  = AufGKon.MWSt_Cd.
        nZTot    = nZTot + Rundbetr.
        cDaten   = GebKonto.Bez.
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, INPUT cDaten ).
        cDaten = TRIM(STRING(AufGKon.Ausgang,"->>>>9")).
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'C',
            INPUT iZeile, INPUT cDaten ).
        cDaten = TRIM(STRING(nBetrag,"->>>>9.999")).
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'H',
            INPUT iZeile, INPUT cDaten ).
        cDaten = TRIM(STRING(Rundbetr,"->>>>9.999")).
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
            INPUT iZeile, INPUT cDaten ).
        cDaten = TRIM(STRING(iMwstCd,"z9")).
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'J',
            INPUT iZeile, INPUT cDaten ).
        i2 = i2  + 1.
    END.
    IF i2 > 0 THEN lTotal = TRUE.
    
    IF lTotal THEN 
    DO:
        iZeile = iZeile + 2.
        cDaten = TRIM(SUBSTRING(cFormText[11],41,20)).
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, INPUT cDaten ).
        cdaten = TRIM(STRING(nZTot,"->>>>9.99")).
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
            INPUT iZeile, INPUT cDaten ).
        nFakBetr = nFakBetr + nZTot.
    END.
    RELEASE AufGKon.

    lTotal = FALSE.
    i2     = 0.
    nZTot  = 0.
    IF FDebst.Geb_Rg THEN 
    DO:
        FOR EACH AufGKon NO-LOCK
            WHERE AufGKon.Firma    = BAufko.Firma
            AND   AufGKon.Aufnr    = BAufko.Aufnr
            AND   AufGKon.Depot   <> 0
            AND   AufGKon.Betrag  <> 0 :
            IF AufGKon.Eingang = 0  AND
                AufGKon.Ausgang = 0  THEN NEXT.
            IF i2 = 0 THEN iZeile = iZeile + 2.
            ELSE           iZeile = iZeile + 1.

            FIND GebKonto NO-LOCK
                WHERE GebKonto.Firma  = cFirma
                AND   GebKonto.Geb_Cd = AufGKon.Geb_Cd.
            i1 = AufGKon.Ausgang.
            IF AufGKon.Depot = 0    AND
                AufGKon.Gebuehr = 0  THEN nBetrag = GebKonto.Depot.
            ELSE                         nBetrag = AufGKon.Depot.
            Rundbetr = i1 * nBetrag.
            iMwstCd  = AufGKon.MWSt_Cd.
            nZTot    = nZTot + Rundbetr.
            cDaten   = GebKonto.Bez.
            RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
                INPUT iZeile, INPUT cDaten ).
            cDaten = TRIM(STRING(AufGKon.Ausgang,"->>>>9")).
            RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'C',
                INPUT iZeile, INPUT cDaten ).
            cDaten = TRIM(STRING(nBetrag,"->>>>9.999")).
            RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'H',
                INPUT iZeile, INPUT cDaten ).
            cDaten = TRIM(STRING(Rundbetr,"->>>>9.999")).
            RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
                INPUT iZeile, INPUT cDaten ).
            cDaten = TRIM(STRING(iMwstCd,"z9")).
            RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'J',
                INPUT iZeile, INPUT cDaten ).
            i2 = i2  + 1.
        END.
        IF i2 > 0 THEN lTotal = TRUE.
        
        IF lTotal THEN 
        DO:
            iZeile = iZeile + 2.
            cDaten = TRIM(SUBSTRING(cFormText[11],21,20)).
            RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
                INPUT iZeile, INPUT cDaten ).
            cDaten = TRIM(STRING(nZTot,"->>>>9.99")).
            RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
                INPUT iZeile, INPUT cDaten ).
            nFakBetr = nFakBetr + nZTot.
        END.
    END.
    
    iZeile = iZeile + 2.
    cDaten = TRIM(SUBSTRING(cFormText[15],21,20)).
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
        INPUT iZeile, INPUT cDaten ).
    cDaten = TRIM(STRING(nFakBetr,"->>>>9.99")).
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
        INPUT iZeile, INPUT cDaten ).

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-GEBINDE_SALDO) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GEBINDE_SALDO Procedure 
PROCEDURE GEBINDE_SALDO :
    /*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    FOR EACH AufGKon NO-LOCK
        WHERE AufGKon.Firma    = BAufko.Firma
        AND   AufGKon.Aufnr    = BAufko.Aufnr
        AND   AufGKon.Gebuehr  = 0
        AND   AufGKon.Depot   <> 0
        AND   AufGKon.Betrag  <> 0 :

        FIND FIRST tGebKto
            WHERE tGebKto.Geb_Cd = AufGKon.Geb_Cd NO-ERROR.
        IF NOT AVAILABLE tGebKto THEN 
        DO:
            FIND GebKonto NO-LOCK
                WHERE GebKonto.Firma  = AufGKon.Firma
                AND   GebKonto.Geb_Cd = AufGKon.Geb_Cd .
            CREATE  tGebKto.
            ASSIGN  
                tGebKto.Sort_Cd = GebKonto.Sort_Cd
                tGebKto.Geb_Cd  = GebKonto.Geb_Cd
                tGebKto.Bez     = GebKonto.Bez
                tGebKto.Preis   = AufGKon.Depot
                tGebKto.MWST_Cd = AufGKon.MWSt_Cd.
        END.
        tGebKto.A_Anz    = tGebKto.A_Anz + AufGKon.Ausgang.
        tGebKto.A_Betrag = tGebKto.A_Anz * tGebKto.Preis.
        tGebKto.E_Anz    = tGebKto.E_Anz + AufGKon.Eingang.
        tGebKto.E_Betrag = tGebKto.E_Anz * tGebKto.Preis.
    END.
    
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-MEHRWERTSTEUER) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE MEHRWERTSTEUER Procedure 
PROCEDURE MEHRWERTSTEUER :
    /*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF VAR cDaten AS CHAR NO-UNDO.
    DEF VAR ix     AS INT  NO-UNDO.
    
    iZeile = iZeile + 1.
    DO ix = 1 TO 11:
        IF bAufko.Wpfl[ix] = 0 THEN NEXT.
        FIND LAST MWSTAns USE-INDEX MWSTAns-k1
            WHERE MWSTAns.MWST_Cd = ix
            AND   MWSTAns.Datum  <= BAUfko.Kond_Datum NO-LOCK.
        iZeile = iZeile + 1.
        cDaten = MWSTAns.Bez.
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, INPUT cDaten ).
        cDaten = TRIM(STRING(bAufko.Wpfl[ix],"->>,>>9.99")).
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'H',
            INPUT iZeile, INPUT cDaten ).
        cDaten = TRIM(STRING(bAufko.Wust[ix],"->>,>>9.99")).
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
            INPUT iZeile, INPUT cDaten ).
        cDaten = TRIM(STRING(ix,"z9")).
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'J',
            INPUT iZeile, INPUT cDaten ).
        nFakBetr = nFakBetr + bAufko.Wust[ix].
    END.
    
    Rundbetr  = nFakBetr.
    Rundcode  = 1.
    RUN RUNDEN ( Rundcode, INPUT-OUTPUT Rundbetr ).
    nFakBetr  = Rundbetr.

    iZeile = iZeile + 2.
    cDaten = TRIM(cFormText[16]).
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
        INPUT iZeile, INPUT cDaten ).
    cDaten = TRIM(STRING(nFakBetr,"->>,>>9.99")).
    RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
        INPUT iZeile, INPUT cDaten ).
    
END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF

&IF DEFINED(EXCLUDE-SUMMENRABATTE) = 0 &THEN

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SUMMENRABATTE Procedure 
PROCEDURE SUMMENRABATTE :
    /*------------------------------------------------------------------------------
      Purpose:     
      Parameters:  <none>
      Notes:       
    ------------------------------------------------------------------------------*/

    DEF VAR RText    AS CHAR FORMAT "x(20)" NO-UNDO.
    DEF VAR WText    AS CHAR NO-UNDO.
    DEF VAR cDaten   AS CHAR NO-UNDO.
    DEF VAR lTotal   AS LOG  NO-UNDO.
    DEF VAR lRabatt  AS LOG  NO-UNDO.
    DEF VAR iPlus    AS INT  NO-UNDO.
    DEF VAR nRabWert AS DEC  NO-UNDO.
    DEF VAR iMwstCd  AS INT  NO-UNDO.

    /*  Auftragsrabatt  ----------------------------------------------------    */

    lTotal = FALSE.
    iPlus  = 0.
    FOR EACH tRabSumm
        WHERE tRabSumm.Auf_Rab <> 0
        BY tRabSumm.Rab_Summ:
        Rundbetr = tRabSumm.Auf_Rab.
        nFakBetr = nFakBetr - Rundbetr.
        IF NOT lRabatt THEN NEXT.
        
        IF iPlus = 0    THEN iZeile = iZeile + 2.
        ELSE                 iZeile = iZeile + 1.
        IF Rundbetr < 0 THEN RText = cZusText.
        ELSE                 RText = cRabText.
        FIND FIRST AufRabSu NO-LOCK USE-INDEX AufRabSu-k1
            WHERE AufRabSu.Firma    = bAufko.Firma
            AND   AufRabSu.Aufnr    = bAufko.Aufnr
            AND   AufRabSu.Rab_Summ = tRabSumm.Rab_Summ.
        IF AufRabSu.F_Proz_Betr THEN WText = "%".
        ELSE                         WText = "Fr.".
        nRabWert = ABSOLUT(AufRabSu.F_Wert).
        cDaten   = RText
            + " "
            + tRabSumm.Bez
            + " "
            + STRING(nRabWert,"z9.99- ")
            + WText.
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile,    INPUT cDaten ).
               
        cDaten = STRING(- Rundbetr,"->>>>9.99").
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
            INPUT iZeile, INPUT cDaten ).
        iPlus = iPlus + 1.
    END.
    IF iPlus > 0 THEN lTotal = TRUE.

    /*  Abholrabatt  -------------------------------------------------------    */
    
    iPlus = 0.
    FOR EACH tRabSumm
        WHERE tRabSumm.Abh_Rab <> 0
        BY tRabSumm.Rab_Summ:
        Rundbetr = tRabSumm.Abh_Rab.
        nFakBetr = nFakBetr - Rundbetr.
        IF NOT lRabatt THEN NEXT.

        IF iPlus = 0    THEN iZeile = iZeile + 2.
        ELSE                 iZeile = iZeile + 1.
        IF Rundbetr < 0 THEN RText = cZusText.
        ELSE                 RText = cRabText.
        FIND FIRST AufRabSu NO-LOCK USE-INDEX AufRabSu-k1
            WHERE AufRabSu.Firma    = bAufko.Firma
            AND   AufRabSu.Aufnr    = bAufko.Aufnr
            AND   AufRabSu.Rab_Summ = tRabSumm.Rab_Summ.
        IF AufRabSu.A_Proz_Betr THEN WText = "%".
        ELSE                         WText = "Fr.".
        nRabWert = ABSOLUT(AufRabSu.A_Wert).
        cDaten   = RText
            + " "
            + tRabSumm.Bez
            + " "
            + STRING(nRabWert,"z9.99- ")
            + WText.
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, INPUT cDaten ).
               
        cDaten = STRING(- Rundbetr,"->>>>9.99").
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
            INPUT iZeile, INPUT cDaten ).
        iPlus = iPlus + 1.
    END.
    IF iPlus > 0 THEN lTotal = TRUE.

    /*  Spezialpreis-Auftragsrabatte  ----------------------------------------  */

    iPlus = 0.    
    FOR EACH tSpeRab
        WHERE tSpeRab.Auf_Betr <> 0
        BY tSpeRab.Rab_Grp:
        Rundbetr = tSpeRab.Auf_Betr.
        nFakBetr = nFakBetr - Rundbetr.
        IF NOT lRabatt THEN NEXT.
        
        IF iPlus = 0    THEN iZeile = iZeile + 2.
        ELSE                 iZeile = iZeile + 1.
        IF Rundbetr < 0 THEN RText = cZusText.
        ELSE                 RText = cRabText.
        FIND Tabel NO-LOCK
            WHERE Tabel.Firma  = cFirma
            AND   Tabel.RecArt = 'ARABGRP'
            AND   Tabel.CodeC  = ''
            AND   Tabel.CodeI  = tSpeRab.Rab_Grp
            AND   Tabel.Sprcd  = 1 .
        FIND FIRST AufSpRab NO-LOCK 
            WHERE AufSpRab.Firma    = bAufko.Firma
            AND   AufSpRab.Aufnr    = bAufko.Aufnr
            AND   AufSpRab.Rab_Grp  = tSpeRab.Rab_Grp.
        IF AufSpRab.Auf_Proz_Betr THEN WText = "%".
        ELSE                           WText = "Fr.".
        nRabWert = ABSOLUT(AufSpRab.Auf_Wert).
        cDaten   = RText
            + " "
            + tRabSumm.Bez
            + " "
            + STRING(nRabWert,"z9.99- ")
            + WText.
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, INPUT cDaten ).
        cDaten = STRING(- Rundbetr,"->>>>9.99").
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
            INPUT iZeile, INPUT cDaten ).
        iPlus = iPlus + 1.
    END.
    IF iPlus > 0 THEN lTotal = TRUE.
    
    IF lTotal THEN 
    DO:
        iZeile = iZeile + 1.
        cDaten = TRIM(SUBSTRING(cFormText[14],21,20)).
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',
            INPUT iZeile, INPUT cDaten ).
        cDaten  = TRIM(STRING(nFakBetr,"->>>>9.99")).
        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',
            INPUT iZeile, INPUT cDaten ).
    END.

    /*  Recycling-Gebühren  ------------------------------------------------    */

/*    lTotal = FALSE.                                                                  */
/*    iPlus  = 0.                                                                      */
/*    FOR EACH AufGKon NO-LOCK                                                         */
/*        WHERE AufGKon.Firma    = bAufko.Firma                                        */
/*        AND   AufGKon.Aufnr    = bAufko.Aufnr                                        */
/*        AND   AufGKon.Gebuehr <> 0                                                   */
/*        AND   AufGKon.Betrag  <> 0 :                                                 */
/*        nFakBetr = nFakBetr + AufGKon.Betrag.                                        */
/*        IF NOT lRabatt THEN NEXT.                                                    */
/*                                                                                     */
/*        IF iPlus = 0 THEN iZeile = iZeile + 2.                                       */
/*        ELSE              iZeile = iZeile + 1.                                       */
/*                                                                                     */
/*        iMwstCd = AufGKon.MWSt_Cd.                                                   */
/*        FIND GebKonto OF AufGKon NO-LOCK NO-ERROR.                                   */
/*        IF NOT AVAILABLE GebKonto THEN cDaten = TRIM(SUBSTRING(cFormText[11],41,20)).*/
/*        ELSE                           cDaten = GebKonto.Bez.                        */
/*        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',                                  */
/*            INPUT iZeile, INPUT cDaten ).                                            */
/*                                                                                     */
/*        cDaten = TRIM(STRING(AufGKon.Ausgang,"->>>>>9")).                            */
/*        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'H',                                  */
/*            INPUT iZeile, INPUT cDaten ).                                            */
/*                                                                                     */
/*        cDaten = TRIM(STRING(AufGKon.Betrag,"->>>>9.99")).                           */
/*        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',                                  */
/*            INPUT iZeile, INPUT cDaten ).                                            */
/*                                                                                     */
/*        cDaten = TRIM(STRING(AufGKon.MWSt_Cd ,"z9")).                                */
/*        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'J',                                  */
/*            INPUT iZeile, INPUT cDaten ).                                            */
/*        iPlus = iPlus + 1.                                                           */
/*    END.                                                                             */
/*    IF iPlus > 0 THEN lTotal = TRUE.                                                 */
/*                                                                                     */
/*    IF lTotal THEN                                                                   */
/*    DO:                                                                              */
/*        iZeile = iZeile + 1.                                                         */
/*        cDaten = TRIM(SUBSTRING(cFormText[14],21,20)).                               */
/*        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'D',                                  */
/*            INPUT iZeile, INPUT cDaten ).                                            */
/*        cDaten  = TRIM(STRING(nFakBetr,"->>>>9.99")).                                */
/*        RUN ZELLEFUELLEN ( INPUT hExcel, INPUT 'I',                                  */
/*            INPUT iZeile, INPUT cDaten ).                                            */
/*    END.                                                                             */

END PROCEDURE.

/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME

&ENDIF