GeMIS_WEB/GUI/DruckProgramme/oswald/Lieferschein.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 VAR cInstallation AS CHAR   NO-UNDO.
DEF VAR iBesrArt      AS INT    NO-UNDO.
DEF VAR cBenutzer     AS CHAR   NO-UNDO.

DEF VAR iMaxPos       AS INT    INIT 2650 NO-UNDO.
DEF VAR cvpr_Dokument AS CHAR   NO-UNDO.
DEF VAR iArtZeile     AS INT    NO-UNDO.
DEF VAR iVPagePos     AS INT    NO-UNDO.
DEF VAR iVGroupPos    AS INT    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  .

{ incl/properties.i   }
{ incl/ttdruckparam.i }

DEF TEMP-TABLE tDokument
    FIELD cGruppe AS CHAR
    FIELD iZeile  AS INT
    FIELD cFeld   AS CHAR
    FIELD cInhalt AS CHAR
    
    INDEX tDokument-k1 IS PRIMARY
    cGruppe
    iZeile
    cFeld
    .
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 iKnr     AS INT
    FIELD iSamm_Nr AS INT
    FIELD iRecid   AS RECID
    FIELD iFaknr   AS INT
    FIELD dFakDat  AS DATE
    .
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 tRueckst LIKE tAufze
    .

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 tUmsGrp
    FIELD Ums_Grp  AS INT
    FIELD Mwst     AS INT
    FIELD Ansatz   AS DEC
    FIELD Bez      AS CHAR
    FIELD lInkl    AS LOG
    FIELD Ums_Betr 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


/* ************************  Function Prototypes ********************** */

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD calcBlock Procedure 
FUNCTION calcBlock RETURNS INTEGER (ipGruppe AS CHAR) FORWARD.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD fillFormular Procedure 
FUNCTION fillFormular RETURNS LOGICAL
    (  )  FORWARD.

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

&ENDIF


/* *********************** 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             = 18.62
         WIDTH              = 59.4.
/* END WINDOW DEFINITION */
                                                                        */
&ANALYZE-RESUME

 


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


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

opcResult = ''.
cInstallation = DYNAMIC-FUNCTION('getInstallation':U) NO-ERROR.
cBenutzer     = DYNAMIC-FUNCTION('getBenutzer':U) NO-ERROR.

CREATE tParam.
htParam:BUFFER-COPY(iphParam).
ASSIGN  
    cFirma  = tParam.cFirma
    iAnzDok = tParam.Anzahl
    lPreis  = TRUE.
            
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.iKnr.
    iSprcd = bAdresse.Sprcd.

    RUN GET_FORMTEXT ( tParam.cInstall, tParam.Template, 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.

    { vpr.i INIT  }.
{ vpr.i START }.
                
    DO iLauf = 1 TO iAnzDok:
        
        dFakDatum = sAufko.dFakDat.
        iSeite    = 0.
        iFaknr    = sAufko.iFaknr.
        lFirst    = TRUE.
        lLast     = FALSE.
                    
        EMPTY TEMP-TABLE tUmsGrp    .
        EMPTY TEMP-TABLE tTotale    .
            
        CREATE  tTotale.
            
        FOR EACH bAufko NO-LOCK
            WHERE bAufko.Firma      = sAufko.cFirma
            AND   bAufko.Aufnr      = sAufko.iAufnr
                    
            BREAK BY bAufko.Firma
            BY bAufko.Aufnr :

            EMPTY TEMP-TABLE tAufze     .
            EMPTY TEMP-TABLE tGebKto    .
            EMPTY TEMP-TABLE tRabSumm   .
            EMPTY TEMP-TABLE tSpeRab    .
            EMPTY TEMP-TABLE tTabTexte  .
            EMPTY TEMP-TABLE tRueckst   .
                
            FIND bAdresse NO-LOCK USE-INDEX Adresse-k1
                WHERE bAdresse.Firma = AdFirma
                AND   bAdresse.Knr   = bAufko.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.
        
            hAufko     = BUFFER bAufko:HANDLE.
            htTabTexte = TEMP-TABLE tTabTexte:DEFAULT-BUFFER-HANDLE.
                
            /*  Texte und Werte aus Tabelle 'Tabel' laden für RecArt    */
            /*  FAKART, AUFSTATUS, LIEFART, FAHRER, WISO, ABLAD, TOUR1  */

            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.
                
            IF LAST-OF ( bAufko.Aufnr ) THEN lLast = TRUE.

            RUN DRUCKEN.

            /*  Auftragskopf mutieren       */

            REPEAT TRANSACTION:
                IF RETURN-VALUE = 'NOK' THEN LEAVE.
                IF iLauf < iAnzDok THEN LEAVE.
                FIND Aufko WHERE RECID(Aufko) = RECID(bAufko).
                ASSIGN  
                    Aufko.Fak_Datum = dFakDat
                    Aufko.Gedruckt  = TRUE.
                RELEASE Aufko.
                RUN AUFTRAG_GEDRUCKT ( bAufko.Aufnr ).
                LEAVE.
            END.
        END.
    END.
    { vpr.i STOP }
END.

PROCEDURE ShellExecuteA EXTERNAL "shell32.dll" :
    DEFINE INPUT PARAMETER lphwnd       AS LONG.
    DEFINE INPUT PARAMETER lpOperation  AS CHAR.
    DEFINE INPUT PARAMETER lpFile       AS CHAR.
    DEFINE INPUT PARAMETER lpParameters AS CHAR.
    DEFINE INPUT PARAMETER lpDirectory  AS CHAR.
    DEFINE INPUT PARAMETER nShowCmd     AS LONG.
    DEFINE RETURN PARAMETER hInstance   AS LONG.
END PROCEDURE.

/* _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.

    iArtZeile = iArtZeile + 1.    
    DO WHILE Aufze.Artnr = 0:
        cString = Aufze.Bez1.
        IF Aufze.Bez1 <> '' THEN 
        DO:
            cString = cString
                + (IF cString = '' THEN '' ELSE CHR(10))
                + Aufze.Bez2.
        END.
        CREATE  tDokument.
        ASSIGN  
            tDokument.cGruppe = 'ArtikelZeile1'
            tDokument.iZeile  = iArtZeile
            tDokument.cFeld   = 'Bez1'
            tDokument.cInhalt = cString.
        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 VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Artnr' , STRING(Aufze.Artnr   ,"999999") ).
    
    IF Aufze.VGeb_Me <> 0 THEN 
    DO:
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Menge_VGeb', TRIM(STRING(Aufze.VGeb_Me,'->>>>>9')) ).
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'VGebinde'  , VGebinde.KBez ).
    END.
    
    RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'KGebinde', KGebinde.Kbez ).
    RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Menge'   , TRIM(STRING(Aufze.MGeli,'->>,>>9')) ).
    
    cString = Aufze.Bez1.
    IF Aufze.Bez2 <> '' THEN 
    DO:
        cString = cString
            + (IF cString = '' THEN '' ELSE CHR(10))
            + Aufze.Bez2.
    END.
    IF Aufze.Aktion THEN 
    DO:
        cString = cString
            + (IF cString = '' THEN '' ELSE CHR(10))
            + Aufze.Aktion_Text.
    END.
    RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Bez1', cString ).
    
    IF Aufze.Alk_Gehalt <> 0 THEN 
    DO:
        cString = STRING(Aufze.Alk_Gehalt,"zz9.9%").
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Alk%', cString ).
    END.
    IF Aufze.Jahr > 9 THEN 
    DO:
        cString = STRING(Aufze.Jahr,"9999").
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'JG', cString ).
    END.

    IF NOT tParam.lPreis THEN RETURN.

    RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Preis' , STRING(Aufze.Preis   ,'>,>>9.99<') ).
    RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Betrag', STRING(Aufze.Bru_Betr,'->>>,>>9.99') ).
    RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'MC'    , STRING(Aufze.WuCd    ,'z9') ).
        
    IF Aufze.Rab_Betr <> 0 THEN 
    DO:
        iArtZeile = iArtZeile + 1.        
        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.
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Bez1', TRIM(xRabText) ).
        
        IF Aufze.Rab_Art = 1    THEN cString = STRING(nRabWert,"->9.9%").
        IF Aufze.Rab_Art = 2    OR
            Aufze.Rab_Art = 3    THEN cString = STRING(nRabWert,"-9.99").
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Preis', cString ).
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Betrag', TRIM(STRING(- Aufze.Rab_Betr,"->>>,>>9.99")) ).
    END.
    
    DO WHILE TRUE:    
        IF Aufze.Zus_Betr = 0 THEN LEAVE.
        
        iArtZeile = iArtZeile + 1.        
        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.
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Bez1', TRIM(xRabText) ).
        
        IF Aufze.Zus_Art = 1    THEN cString = STRING(nRabWert,"->9.9%").
        IF Aufze.Zus_Art = 2    OR
            Aufze.Zus_Art = 3    THEN cString = STRING(nRabWert,"-9.99").
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Preis', cString ).
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Betrag', TRIM(STRING(+ Aufze.Zus_Betr,"->>>,>>9.99")) ).
        LEAVE.
    END.
    
END PROCEDURE.

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

&ENDIF

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

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

    IF bAufko.Auf_Text = '' THEN RETURN.

    iArtZeile = 1.
    RUN VIPER_CREATE_DOKUMENT ( 'Zusatztext', iArtZeile, 'Bemerkung_1', bAufko.Auf_Text ).
    RUN AUSGABE_GRUPPE  ( 'Zusatztext' ).
    
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.
    
    DEF BUFFER bDebst FOR Debst.

    FIND FIRST tParam.
    
    EMPTY TEMP-TABLE sAufko.
    
    /*  Sammeln aller Aufträge  */
    
    FOR EACH Aufko NO-LOCK USE-INDEX Aufko-k5
        WHERE Aufko.Firma       = tParam.cFirma
        AND   Aufko.Aufnr       = tParam.iAufnr :

        FIND bDebst NO-LOCK
            WHERE bDebst.Firma = Aufko.Firma
            AND   bDebst.Knr   = Aufko.Knr NO-ERROR.
        IF NOT AVAILABLE bDebst THEN NEXT.

        iFaknr = Aufko.Aufnr.

        CREATE  sAufko.
        ASSIGN  
            sAufko.cFirma   = Aufko.Firma
            sAufko.iAufnr   = Aufko.Aufnr
            sAufko.iFak_Knr = Aufko.Fak_Knr
            sAufko.iKnr     = Aufko.Knr
            sAufko.iSamm_Nr = 0
            sAufko.iRecid   = RECID(Aufko)
            sAufko.iFaknr   = iFaknr.
        IF Aufko.Lief_Datum = ? THEN sAufko.dFakDat = TODAY.
        ELSE                         sAufko.dFakDat = Aufko.Lief_Datum.
    END.

    /*  Alle Auftragstotale aller Lieferscheine neu rechnen     */
    
    FOR EACH sAufko:
        FOR EACH bAufko NO-LOCK
            WHERE bAufko.Firma = sAufko.cFirma
            AND   bAufko.Aufnr = sAufko.iAufnr :
            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-AUSGABE_ARTIKELZEILE) = 0 &THEN

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

    DEF VAR cZellen AS CHAR NO-UNDO.
    DEF VAR cWerte  AS CHAR NO-UNDO.
    DEF VAR iPos    AS INT  NO-UNDO.
    DEF VAR lArtnr  AS LOG  NO-UNDO.
    
    FOR EACH tDokument
        WHERE tDokument.cGruppe = 'ArtikelZeile1'
        BREAK BY tDokument.cGruppe
        BY tDokument.iZeile:
        IF FIRST-OF ( tDokument.cGruppe ) THEN 
        DO:
            iVPagePos = vpr_getPageVPos() + 20.
            RUN vpr_setPageVPos  ( iVPagePos ).
            RUN vpr_setGroupVPos ( 'ArtikelZeile1', iVPagePos ).
        END.
        IF FIRST-OF ( tDokument.iZeile ) THEN 
        DO:
            cZellen = ''.
            cWerte  = ''.
            lArtnr  = FALSE.
        END.
        cWerte  = cWerte 
            + tDokument.cInhalt.
        cZellen = cZellen
            + tDokument.cFeld.
                
        CASE tDokument.cFeld:
            WHEN 'Bez1'  THEN 
                cWerte = REPLACE(cWerte, CHR(10), ' \par ').
            WHEN 'Artnr' THEN 
                lArtnr = TRUE.
        END CASE.

        IF NOT LAST-OF ( tDokument.iZeile ) THEN 
        DO:
            ASSIGN 
                cWerte  = cWerte  + CHR(01)
                cZellen = cZellen + ','.
            NEXT.
        END.
        
        RUN vpr_SetDelimiter (CHR(01)).
        RUN vpr_setGroupText ('ArtikelZeile1', cZellen, cWerte).
        iVPagePos = vpr_getPageVPos().
        IF lArtnr THEN iVPagePos = iVPagePos + 8.
        iPos = iVPagePos + vpr_getGroupHeight('ArtikelZeile1').
        IF iPos > iMaxPos THEN 
        DO:
            RUN vpr_setPageVPos ( iMaxPos ).
            RUN VIPER_NEUE_SEITE.
            RUN DRUCKEN_ADRESSE.
        END.

        RUN vpr_setGroupVPos ('ArtikelZeile1', iVPagePos).
        RUN vpr_FlushGroup   ('ArtikelZeile1').
    END.
    
    iVPagePos = vpr_getPageVPos() + 10.
    RUN vpr_setPageVPos ( iVPagePos ).
    
    FOR EACH tDokument
        WHERE tDokument.cGruppe = 'ArtikelZeile1':
        DELETE  tDokument.
    END.

END PROCEDURE.

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

&ENDIF

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

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

    DEF INPUT PARAMETER ipGruppe    AS CHAR     NO-UNDO.

    DEF VAR cZellen AS CHAR NO-UNDO.
    DEF VAR cWerte  AS CHAR NO-UNDO.
    DEF VAR iSpace  AS INT  NO-UNDO.
    
    iSpace = vpr_getPageVPos().
    FOR EACH tDokument NO-LOCK
        WHERE tDokument.cGruppe = ipGruppe
        BREAK BY tDokument.cGruppe
        BY tDokument.iZeile:
        IF FIRST-OF ( tDokument.iZeile ) THEN iSpace = iSpace + 40.
    END.
    IF iSpace > iMaxPos THEN 
    DO:
        RUN vpr_setPageVPos  ( iMaxPos ).
        RUN VIPER_NEUE_SEITE.
        RUN DRUCKEN_ADRESSE.
    END.
    
    iVPagePos = vpr_getPageVPos().
    CASE ipGruppe:
        WHEN 'GebindeLieferung' THEN 
            DO:
                iSpace = DYNAMIC-FUNCTION ('calcBlock':U, ipGruppe) NO-ERROR.
                iSpace = iSpace + iVPagePos + 30.                
                IF iSpace > iMaxPos THEN
                DO:
                    RUN vpr_setPageVPos  ( iMaxPos ).
                    RUN VIPER_NEUE_SEITE.
                    RUN DRUCKEN_ADRESSE.
                END.
                iVPagePos = vpr_getPageVPos().
                iVPagePos = iVPagePos + 20.
                RUN vpr_setPageVPos  ( iVPagePos ).
                RUN vpr_setGroupVPos ('GebindeLieferungTitel', iVPagePos ).
                RUN vpr_FlushGroup   ('GebindeLieferungTitel').
                iVPagePos = vpr_getPageVPos().
/*                RUN vpr_setGroupVPos ('GebindeLieferung',      iVPagePos ).*/
            END.
        WHEN 'GebindeRuecknahme' THEN
            DO:
                iSpace = DYNAMIC-FUNCTION ('calcBlock':U, ipGruppe) NO-ERROR.
                iSpace = iSpace + iVPagePos + 50.                
                IF iSpace > iMaxPos THEN 
                DO:
                    RUN vpr_setPageVPos  ( iMaxPos ).
                    RUN VIPER_NEUE_SEITE.
                    RUN DRUCKEN_ADRESSE.
                END.
                iVPagePos = vpr_getPageVPos().
                iVPagePos = iVPagePos + 50.
                RUN vpr_setPageVPos  ( iVPagePos ).
/*                RUN vpr_setGroupVPos ( 'GebindeRuecknahme', iVPagePos ).*/
/*                iVPagePos = vpr_getPageVPos().                          */
            END.
        OTHERWISE 
        DO:
        END.
    END CASE.
    
    FOR EACH tDokument
        WHERE tDokument.cGruppe = ipGruppe
        BREAK BY tDokument.cGruppe
        BY tDokument.iZeile:
        IF FIRST-OF ( tDokument.cGruppe ) THEN 
        DO:
            IF  ipGruppe <> 'Kondition' AND
                ipGruppe <> 'BESR'      AND
                ipGruppe <> 'ADRESSE'   THEN 
            DO:
                iVPagePos = vpr_getPageVPos().
                RUN vpr_setPageVPos  ( iVPagePos ).
                RUN vpr_setGroupVPos ( ipGruppe, iVPagePos ).
            END.
        END.
        IF FIRST-OF ( tDokument.iZeile ) THEN 
        DO:
            cZellen = ''.
            cWerte  = ''.
        END.
        cWerte  = cWerte 
            + tDokument.cInhalt.
        cZellen = cZellen
            + tDokument.cFeld.
                
        CASE tDokument.cFeld:
            WHEN 'Bez1' THEN 
                cWerte = REPLACE(cWerte, CHR(10), ' \par ').
        END CASE.
                
        IF NOT LAST-OF ( tDokument.iZeile ) THEN 
        DO:
            ASSIGN 
                cWerte  = cWerte  + CHR(01)
                cZellen = cZellen + ','.
            NEXT.
        END.
        
        RUN vpr_SetDelimiter (CHR(01)).
        RUN vpr_SetGroupText (ipGruppe, cZellen, cWerte).
        RUN vpr_FlushGroup   (ipGruppe).
    END.
    
    FOR EACH tDokument
        WHERE tDokument.cGruppe = ipGruppe:
        DELETE  tDokument.
    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 cText     AS CHAR NO-UNDO.
    DEF VAR xString   AS CHAR NO-UNDO.
    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 nBetrag   AS DEC  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 lJa       AS LOG  NO-UNDO.
    DEF VAR cPDFName  AS CHAR INIT '' NO-UNDO.
    DEF VAR nPfli     AS DEC  EXTENT 12 NO-UNDO.
    DEF VAR nMwst     AS DEC  EXTENT 12 NO-UNDO.
    
    DEF BUFFER bDebst FOR Debst.
    
    FIND FIRST tParam.

    nFakBetr = 0.
    IF iSeite = 0 THEN 
    DO:
        RUN VIPER_INIT.
        SESSION:PRINTER-NAME = tParam.Drucker.
    END.

    FIND bDebst NO-LOCK
        WHERE bDebst.Firma = bAufko.Firma
        AND   bDebst.Knr   = bAufko.Fak_Knr.
    iBesrArt = bDebst.BESR_Art.
                
    RUN DRUCKEN_KOPF.
    
    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) ).

        nFakBetr = nFakBetr + Aufze.Net_Betr.
        RELEASE Aufze.
    END.
    
    IF tParam.lPreis THEN 
    DO:
        iArtZeile = iArtZeile + 1.
        RUN vpr_Asc2RTF(TRIM(SUBSTRING(cFormText[10],41,20)), 'bold', OUTPUT xString ).
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Bez1' , xString ).
        
        RUN vpr_Asc2RTF(TRIM(STRING(nFakBetr,'->>>,>>9.99')), 'bold', OUTPUT xString ).
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Betrag', xString ).
        
        iArtZeile = iArtZeile + 1.
        RUN VIPER_CREATE_DOKUMENT ( 'ArtikelZeile1', iArtZeile, 'Bez1'  , ' ' ).
    END.
    
    RUN AUSGABE_ARTIKELZEILE.

    /*  Gebindelieferung  --------------------------------------------------    */

    IF FDebst.Geb_Rg THEN 
    DO:
        ii = 0.
        FOR EACH AufGKon NO-LOCK
            WHERE AufGKon.Firma    = bAufko.Firma
            AND   AufGKon.Aufnr    = bAufko.Aufnr
            AND   AufGKon.Ausgang <> 0
            AND   AufGKon.Depot   <> 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.
            ii = ii + 1.
        END.
        RELEASE AufGKon.
        
        /*  Gebindelieferungen  ------------------------------------------------    */
    
        IF ii > 0 THEN 
        DO:    
            nBetrag   = 0.
            iArtZeile = 0.
            ii        = 0.
            FOR EACH AufGKon NO-LOCK
                WHERE AufGKon.Firma    = bAufko.Firma
                AND   AufGKon.Aufnr    = bAufko.Aufnr
                AND   AufGKon.Ausgang <> 0 
                AND   AufGKon.Depot   <> 0 
                      
                BREAK BY AufGKon.Firma
                BY AufGKon.Aufnr:

                iMwstCd = AufGKon.MWSt_Cd.
                FIND LAST MwstAns NO-LOCK
                    WHERE MwstAns.Mwst_Cd = iMwstCd
                    AND   MwstAns.Datum  <= bAufko.Lief_Datum NO-ERROR.
            
                FIND GebKonto NO-LOCK
                    WHERE GebKonto.Firma  = cFirma
                    AND   GebKonto.Geb_Cd = AufGKon.Geb_Cd.
                ii = ii + 1.
                IF ii MOD 2 = 1 THEN 
                DO:
                    iArtZeile = iArtZeile + 1.
                    RUN VIPER_CREATE_DOKUMENT ( 'GebindeLieferung', iArtZeile,  'Gebindetext_L' , GebKonto.Bez ).
                    RUN VIPER_CREATE_DOKUMENT ( 'GebindeLieferung', iArtZeile,  'GebindeGel_L'  , TRIM(STRING(AufGKon.Ausgang,"->>,>>9")) ).
                END.
                ELSE 
                DO:
                    RUN VIPER_CREATE_DOKUMENT ( 'GebindeLieferung', iArtZeile,  'Gebindetext_R' , GebKonto.Bez ).
                    RUN VIPER_CREATE_DOKUMENT ( 'GebindeLieferung', iArtZeile,  'GebindeGel_R'  , TRIM(STRING(AufGKon.Ausgang,"->>,>>9")) ).
                END.
            END.
            RELEASE AufGKon.
            RELEASE GebKonto.
        END.
        
        IF iArtZeile > 0 THEN 
        DO:
            RUN AUSGABE_GRUPPE ('GebindeLieferung').
        END.
    END.
    
    /*  Gebindelrücknahmetablle  -------------------------------------------    */
        
    iArtZeile = 0.
    xString   = SUBSTITUTE('GEBINDERETOUR&1', STRING(bAufko.Fak_Art,'99')).
    cText     = ''.

    FIND TabTexte NO-LOCK USE-INDEX TabTexte-k1
        WHERE TabTexte.Firma   = bAufko.Firma
        AND   TabTexte.TextArt = xString
        AND   TabTexte.Sprcd   = iSprcd NO-ERROR.
    IF NOT AVAILABLE TabTexte THEN 
    DO:
        FIND TabTexte NO-LOCK USE-INDEX TabTexte-k1
            WHERE TabTexte.Firma   = bAufko.Firma
            AND   TabTexte.TextArt = xString
            AND   TabTexte.Sprcd   = 1 NO-ERROR.
    END.
    IF NOT AVAILABLE TabTexte THEN 
    DO:
        xString = 'GEBINDERETOUR'.
        FIND TabTexte NO-LOCK USE-INDEX TabTexte-k1
            WHERE TabTexte.Firma   = bAufko.Firma
            AND   TabTexte.TextArt = xString
            AND   TabTexte.Sprcd   = iSprcd NO-ERROR.
    END.
    IF NOT AVAILABLE TabTexte THEN 
    DO:
        FIND TabTexte NO-LOCK USE-INDEX TabTexte-k1
            WHERE TabTexte.Firma   = bAufko.Firma
            AND   TabTexte.TextArt = xString
            AND   TabTexte.Sprcd   = 1 NO-ERROR.
    END.
    IF AVAILABLE TabTexte THEN cText = TabTexte.Inhalt.

    IF cText <> '' THEN 
    DO:
        cText = REPLACE(cText, CHR(10), '\par ').
        RUN VIPER_CREATE_DOKUMENT ( 'GebindeRuecknahme', 1,  'GebindeRuecknahme_T' , cText ).
        RUN AUSGABE_GRUPPE ('GebindeRuecknahme').
    END.
    
    /*     IF NOT FDebst.Geb_Rg THEN RUN SCHLUSSTEXT. */
    
    /*  ------------------------------------------------------  */
    /*  Druckausgabe                                            */    
    /*  ------------------------------------------------------  */
    
    RUN vpr_EndDoc.

    /*     IF cBenutzer <> 'ivana' THEN DO:     */
    /*    IF cBenutzer <> '' THEN                                                            */
    /*    DO:                                                                                */
    /*        RUN vpr_SetWindowPos ( 20, 20, 725, 1000 ).                                    */
    /*        RUN vpr_SetPreviewMode('preview').                                             */
    /*        RUN vpr_ShowPreView.                                                           */
    /*                                                                                       */
    /*        MESSAGE 'Alles richtig und drucken? ' VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO*/
    /*            UPDATE  lJa.                                                               */
    /*                                                                                       */
    /*        RUN vpr_HidePreView.                                                           */
    /*                                                                                       */
    /*        IF NOT lJa THEN RETURN 'NOK'.                                                  */
    /*    END.                                                                               */
    
    cvpr_Dokument = SUBSTITUTE(cERPDokumente,
        cInstallation   ,
        'Lieferscheine' ,
        STRING(bAufko.Knr  ,'999999'),
        STRING(bAufko.Aufnr,'9999999'),
        tParam.cDokument ).
    cvpr_Dokument = SUBSTITUTE(cERPDokumente, cInstallation, 'Lieferscheine', cvpr_Dokument).
    RUN vpr_saveDoc ( cvpr_Dokument ).

    DO WHILE tParam.lDokDruck:
        SESSION:PRINTER-NAME = tParam.Drucker NO-ERROR.
        IF SESSION:PRINTER-NAME <> tParam.Drucker THEN 
        DO:
            RUN vpr_printerDialog ( OUTPUT lJa ).
            IF NOT lJa THEN LEAVE.
        END.
        RUN vpr_printDoc (0, 0).
        RUN vpr_resetDoc.
        
        LEAVE.
    END.
    
    IF tParam.lCreatePDF THEN 
    DO:
        cPDFName = REPLACE(cvpr_Dokument, '.vpr', '.pdf').
        RUN vpr_openDoc  ( cvpr_Dokument ).
        RUN vpr_printPDF ( 0, 0, INPUT-OUTPUT cPDFName ).
    END.

    IF tParam.lOpenPDF THEN 
    DO:    
        DEF VAR o-i AS i NO-UNDO.
        FILE-INFO:FILE-NAME = cPDFName.
        cPDFName = FILE-INFO:FULL-PATHNAME.
        RUN ShellExecuteA (0,
            "open",
            cPDFName,
            "",
            "",
            0,
            OUTPUT o-i).
    END.
    
END PROCEDURE.

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

&ENDIF

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

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

    DEF VAR cZellen AS CHAR NO-UNDO.
    DEF VAR cWerte  AS CHAR NO-UNDO.
    
    FIND FIRST tParam.
    iVPagePos = 1.

    FIND FIRST tDokument
        WHERE tDokument.cGruppe = 'KOPF'
        AND   tDokument.iZeile  = 1
        AND   tDokument.cFeld   = 'Seite' NO-ERROR.
    IF NOT AVAILABLE tDokument THEN 
    DO:
        CREATE  tDokument.
        ASSIGN  
            tDokument.cGruppe = 'KOPF'
            tDokument.iZeile  = 1
            tDokument.cFeld   = 'Seite'.
    END.
    tDokument.cInhalt = STRING(iSeite,'z9').

    cZellen = ''.
    cWerte  = ''.
    FOR EACH tDokument
        WHERE tDokument.cGruppe = 'Kopf'
        BREAK BY tDokument.cGruppe
        BY tDokument.cFeld:
        cWerte  = cWerte 
            + tDokument.cInhalt.
        cZellen = cZellen
            + tDokument.cFeld.
        IF NOT LAST-OF ( tDokument.cGruppe ) THEN ASSIGN cWerte  = cWerte  + CHR(01)
                cZellen = cZellen + ','.
    END.

    RUN vpr_SetDelimiter (CHR(01)).
    RUN vpr_setGroupText ('Kopf', cZellen, cWerte).
/*    RUN vpr_setGroupVPos ('Kopf', iVPagePos).*/
    RUN vpr_FlushGroup   ('Kopf').

    iVPagePos = iVPagePos + vpr_getGroupVPos('Kopf') + vpr_getGroupHeight ( 'Kopf' ) + 20.
    
    IF iSeite = 1 THEN 
    DO:
        cZellen = ''.
        cWerte  = ''.
        FOR EACH tDokument
            WHERE tDokument.cGruppe = 'KopfDetail'
            BREAK BY tDokument.cGruppe
            BY tDokument.cFeld:
            cWerte  = cWerte 
                + tDokument.cInhalt.
            cZellen = cZellen
                + tDokument.cFeld.
            IF NOT LAST-OF ( tDokument.cGruppe ) THEN ASSIGN cWerte  = cWerte  + CHR(01)
                    cZellen = cZellen + ','.
        END.
        RUN vpr_SetDelimiter (CHR(01)).
        RUN vpr_setGroupText ('KopfDetail', cZellen, cWerte).
        RUN vpr_setGroupVPos ('Kopf', iVPagePos).
        RUN vpr_FlushGroup   ('KopfDetail').
        iVPagePos = vpr_getPageVPos() + 20.    
    END.
    ELSE iVPagePos = 930. 
    
    RUN vpr_setPageVPos  ( iVPagePos).
    RUN vpr_setGroupVPos ('Ueberschrift', iVPagePos ).
    RUN vpr_FlushGroup   ('Ueberschrift').
    
    iVPagePos = vpr_getPageVPos() + 20.
    RUN vpr_setPageVPos ( iVPagePos ).

END PROCEDURE.

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

&ENDIF

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

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

    DEF VAR cText   AS CHAR NO-UNDO.
    DEF VAR cString AS CHAR NO-UNDO.
    DEF VAR ii      AS INT  NO-UNDO.
    DEF VAR i1      AS INT  NO-UNDO.
    
    FIND FIRST tParam.
    iFaknr = bAufko.Aufnr.

    RUN VIPER_NEUE_SEITE.

    IF iSeite = 1 THEN 
    DO:
        FIND bSteuer NO-LOCK WHERE bSteuer.Firma = cFirma.
       
        RUN VIPER_CREATE_DOKUMENT ( 'Kopf', 1, 'MWST_T', bSteuer.Mwst_Nr ).
        
        IF bAufko.Adresse[05] <> '' THEN 
        DO:
            DO ii = 1 TO 5:
                CREATE  tDokument.
                ASSIGN  
                    tDokument.cGruppe = 'KOPF'
                    tDokument.iZeile  = 1
                    tDokument.cFeld   = 'Adresse_' + STRING((6 + ii),'99')
                    tDokument.cInhalt = bAufko.Adresse[ii].
            END.
        END.
        ELSE 
        DO:
            DO ii = 5 TO 11:
                CREATE  tDokument.
                ASSIGN  
                    tDokument.cGruppe = 'KOPF'
                    tDokument.iZeile  = 1
                    tDokument.cFeld   = 'Adresse_' + STRING(ii,'99')
                    tDokument.cInhalt = bAdresse.Anschrift[ii].
            END.
        END.
        CREATE  tDokument.
        ASSIGN  
            tDokument.cGruppe = 'KOPF'
            tDokument.iZeile  = 1
            tDokument.cFeld   = 'Ort_Datum'
            tDokument.cInhalt = TRIM(SUBSTRING(cFormText[07],01,20))
                                  + " "
                                  + STRING(TODAY,"99.99.9999").

        cString = (IF bAufko.Auf_Tot >= 0
            THEN TRIM(SUBSTRING(cFormText[02],01,20))
            ELSE TRIM(SUBSTRING(cFormText[02],21,20))).
        cString = cString
            + '  '
            + TRIM(STRING(iFaknr,'>>>>>>9'))
            + ' /'
            + STRING(bAufko.Vertr,'zz9').
        CREATE  tDokument.
        ASSIGN  
            tDokument.cGruppe = 'KOPF'
            tDokument.iZeile  = 1
            tDokument.cFeld   = 'T_Dokument'
            tDokument.cInhalt = cString.
    
        CREATE  tDokument.
        ASSIGN  
            tDokument.cGruppe = 'KOPFDETAIL'
            tDokument.iZeile  = 1
            tDokument.cFeld   = 'Auf_Datum'
            tDokument.cInhalt = STRING(bAufko.Auf_Datum,'99.99.9999').
    
        CREATE  tDokument.
        ASSIGN  
            tDokument.cGruppe = 'KOPFDETAIL'
            tDokument.iZeile  = 1
            tDokument.cFeld   = 'Lief_Datum'
            tDokument.cInhalt = STRING(bAufko.Lief_Datum,'99.99.9999').
    
        CREATE  tDokument.
        ASSIGN  
            tDokument.cGruppe = 'KOPFDETAIL'
            tDokument.iZeile  = 1
            tDokument.cFeld   = 'U_Ref'
            tDokument.cInhalt = bAufko.U_Ref.
    
        CREATE  tDokument.
        ASSIGN  
            tDokument.cGruppe = 'KOPFDETAIL'
            tDokument.iZeile  = 1
            tDokument.cFeld   = 'Knr'
            tDokument.cInhalt = STRING(bAufko.Knr,'999999').
    
        cText = ''.
        cText = (IF bAdresse.Tel-1 <> '' THEN bAdresse.Tel-1 ELSE bAdresse.Tel-2).
        IF bAdresse.Natel <> '' THEN cText = cText
                + (IF cText = '' THEN '' ELSE ' / ')
                + bAdresse.Natel.

        CREATE  tDokument.
        ASSIGN  
            tDokument.cGruppe = 'KOPFDETAIL'
            tDokument.iZeile  = 1
            tDokument.cFeld   = 'Telefon'
            tDokument.cInhalt = cText.

        cString = ''.
        FIND FIRST tTabTexte NO-LOCK
            WHERE tTabTexte.cRecArt = 'TOUR1' NO-ERROR.
        IF AVAILABLE tTabTexte THEN cString = tTabTexte.cFeld1.
        FIND FIRST tTabTexte NO-LOCK
            WHERE tTabTexte.cRecArt = 'FAHRER' NO-ERROR.
        IF AVAILABLE tTabTexte THEN cString = cString
                + (IF cString = '' THEN '' ELSE ' / ')
                + tTabTexte.cFeld1.
        
        CREATE  tDokument.
        ASSIGN  
            tDokument.cGruppe = 'KOPFDETAIL'
            tDokument.iZeile  = 1
            tDokument.cFeld   = 'Versand'
            tDokument.cInhalt = cString.
    
        CREATE  tDokument.
        ASSIGN  
            tDokument.cGruppe = 'KOPFDETAIL'
            tDokument.iZeile  = 1
            tDokument.cFeld   = 'Gewicht'
            tDokument.cInhalt = TRIM(STRING(bAufko.Gewicht,'->>>,>>9.999')).
        RUN vpr_Asc2RTF(tDokument.cInhalt, 'bold', OUTPUT tDokument.cInhalt ).
        

        CREATE  tDokument.
        ASSIGN  
            tDokument.cGruppe = 'KOPFDETAIL'
            tDokument.iZeile  = 1
            tDokument.cFeld   = 'I_Best'
            tDokument.cInhalt = TRIM(bAufko.I_Best).
    END.
    
    RUN DRUCKEN_ADRESSE.
    
    IF iSeite <> 1 THEN RETURN.
    
    cText = ''.
    IF bAufko.Abh_Text <> '' THEN 
    DO:
        cText = bAufko.Abh_Text.
    END.
    IF bAufko.Auf_Text <> '' THEN 
    DO:
        cText = cText
            + (IF cText <> '' THEN CHR(10) + CHR(10) ELSE '')
            + bAufko.Auf_Text.
    END.
    IF cText = '' THEN RETURN.
    
    CREATE  tDokument.
    ASSIGN  
        tDokument.cGruppe = 'ZusatzText'
        tDokument.iZeile  = 1
        tDokument.cFeld   = 'Bemerkung_1'
        tDokument.cInhalt = cText.
    
    iVPagePos = vpr_getPageVPos() + 30.
    RUN vpr_setPageVPos  ( iVPagePos ).
    RUN vpr_setGroupVPos ( 'ZusatzText' , iVPagePos ).
    RUN AUSGABE_GRUPPE   ( 'ZusatzText' ).
    
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.
    DEF VAR cSort      AS CHAR 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 = ''
            tAufze.Sort2 = ''
            tAufze.Sort3 = 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 = 'ZZZ'
                tAufze.Sort2 = ''
                tAufze.Sort3 = STRING(iPlusMinus  ,'9')
                                  + STRING(tAufze.Pos  ,'99999').
            tAufze.LagOrt = ''.
        END.
    END.
    
    cLagOrt = ''.
    cSort   = ''.
    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 Artst NO-LOCK
                WHERE Artst.Firma  = Aufze.Firma
                AND   Artst.Artnr  = Aufze.Artnr
                AND   Artst.Inhalt = Aufze.Inhalt
                AND   Artst.Jahr   = Aufze.Jahr NO-ERROR.
            IF AVAILABLE Artst THEN cSort = 'Artikel'.
        END.
        iPlusMinus = (IF Aufze.MGeli < 0 THEN 1 ELSE 0).
        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 = cSort
            tAufze.Sort2 = ''
            tAufze.Sort3 = STRING(iPlusMinus   ,'9')
                              + STRING(tAufze.Pos  ,'99999').
        tAufze.LagOrt = cLagort.
    END.
    
END PROCEDURE.

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

&ENDIF

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

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

    FIND TabTexte NO-LOCK USE-INDEX TabTexte-k1
        WHERE TabTexte.Firma   = bAufko.Firma
        AND   TabTexte.TextArt = 'DOK' + STRING(bAufko.Fak_Art,'99')
        AND   TabTexte.Sprcd   = iSprcd NO-ERROR.
    IF NOT AVAILABLE TabTexte THEN 
    DO:
        FIND TabTexte NO-LOCK USE-INDEX TabTexte-k1
            WHERE TabTexte.Firma   = bAufko.Firma
            AND   TabTexte.TextArt = 'DOK' + STRING(bAufko.Fak_Art,'99')
            AND   TabTexte.Sprcd   = 1 NO-ERROR.
    END.
    
    IF NOT AVAILABLE TabTexte THEN RETURN.

    iArtZeile = 1.
    RUN VIPER_CREATE_DOKUMENT ( 'Zusatztext', iArtZeile, 'Bemerkung_1', TabTexte.Inhalt ).
    RUN AUSGABE_GRUPPE  ( 'Zusatztext' ).
    
END PROCEDURE.

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

&ENDIF

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

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

    DEF INPUT PARAMETER ipGruppe    AS CHAR         NO-UNDO.
    DEF INPUT PARAMETER ipZeile     AS INT          NO-UNDO.
    DEF INPUT PARAMETER ipFeld      AS CHAR         NO-UNDO.
    DEF INPUT PARAMETER ipInhalt    AS CHAR         NO-UNDO.
    
    CREATE  tDokument.
    ASSIGN  
        tDokument.cGruppe = ipGruppe
        tDokument.iZeile  = ipZeile
        tDokument.cFeld   = ipFeld
        tDokument.cInhalt = ipInhalt.

END PROCEDURE.

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

&ENDIF

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

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

    DEF VAR cTemplate AS CHAR NO-UNDO.
    DEF VAR cDokument AS CHAR NO-UNDO.
    DEF VAR cZellen   AS CHAR NO-UNDO.
    DEF VAR cZelle    AS CHAR NO-UNDO.
    DEF VAR cGruppe   AS CHAR NO-UNDO.
    DEF VAR ii        AS INT  NO-UNDO.
    DEF VAR cString   AS CHAR NO-UNDO.
    
    FIND FIRST tParam.

    IF iLauf = 1 THEN 
    DO:
        IF tParam.lCreatePDF THEN cDokument = tParam.cInstall  + '/' + tParam.Template + '.vfr'.
        ELSE                      cDokument = tParam.cInstall  + '/' + tParam.Template + '.vfr'.

        RUN vpr_ResetDoc.
        RUN vpr_LoadVFR         (cDokument).
        RUN vpr_ActivateReport  (tParam.Template).
        RUN vpr_SelectPrinter   (tParam.Drucker).
        RUN vpr_setPrinterAttrib('duplex=1,copies=2').
        RUN vpr_ResetDoc.
        RUN vpr_SetDocAttrib    ('PAPERSIZE=A4').
        RUN vpr_SetPreviewMode  ('Direct').
        RUN vpr_setDocTitle     (tParam.cDokument).
        IF tParam.Schacht_Original > 0 THEN RUN vpr_SetCurrentPageProperties ( "Papertray", tParam.Schacht_Original ).
    END.
    ELSE 
    DO:
        RUN vpr_NewPage.
        IF tParam.Schacht_Kopie    > 0 THEN RUN vpr_SetCurrentPageProperties ( "Papertray", tParam.Schacht_Kopie    ).
    END.
    RUN vpr_initGroups ('').
    RUN vpr_SetGroupAttrib ("Kopf"     , "Fixed=true").
    RUN vpr_SetGroupAttrib ("Fusstext" , "Fixed=true").
    RUN vpr_SetGroupAttrib ("Kondition", "Fixed=true").
    
    iMaxPos = 2780.
    
/*    DYNAMIC-FUNCTION('fillFormular':U) NO-ERROR.*/
    
END PROCEDURE.

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

&ENDIF

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

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

    DEF VAR iPos AS INT NO-UNDO.
    
    FIND FIRST tParam.

    DO WHILE TRUE:
        IF iSeite = 0 THEN 
        DO:
            iSeite = iSeite + 1.
            LEAVE.
        END.
        
        RUN vpr_NewPage.
        IF iLauf = 1         THEN RUN vpr_SetCurrentPageProperties ( "Papertray", tParam.Schacht_Original ).
        ELSE                      RUN vpr_SetCurrentPageProperties ( "Papertray", tParam.Schacht_Kopie    ).
        iSeite = iSeite + 1.
        LEAVE.
    END.
    
    RUN vpr_InitGroups  ('').
    RUN vpr_initGraphObj.
    
    RUN vpr_setPageVPos ( 1 ).
    
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 USE-INDEX AufGKon-k1
        WHERE AufGKon.Firma    = BAufko.Firma
        AND   AufGKon.Aufnr    = BAufko.Aufnr NO-LOCK:
        IF AufGKon.Eingang = 0  AND
            AufGKon.Ausgang = 0  THEN NEXT.

        FIND FIRST tGebKto WHERE tGebKto.Geb_Cd = AufGKon.Geb_Cd NO-ERROR.
        IF NOT AVAILABLE tGebKto THEN 
        DO:
            FIND GebKonto USE-INDEX GebKonto-k1
                WHERE GebKonto.Firma  = AufGKon.Firma
                AND   GebKonto.Geb_Cd = AufGKon.Geb_Cd NO-LOCK.
            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

/* ************************  Function Implementations ***************** */

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION calcBlock Procedure 
FUNCTION calcBlock RETURNS INTEGER (ipGruppe AS CHAR):

    DEF VAR cZellen AS CHAR NO-UNDO.
    DEF VAR cWerte  AS CHAR NO-UNDO.
    DEF VAR iSpace  AS INT  NO-UNDO.
    DEF VAR iGrpHo  AS INT  NO-UNDO.

    FOR EACH tDokument
        WHERE tDokument.cGruppe = ipGruppe
        BREAK BY tDokument.cGruppe
        BY tDokument.iZeile :

        IF FIRST-OF ( tDokument.iZeile ) THEN 
        DO:
            cZellen = ''.
            cWerte  = ''.
        END.

        cWerte  = cWerte 
                + tDokument.cInhalt.
        cZellen = cZellen
                + tDokument.cFeld.
        IF NOT LAST-OF ( tDokument.iZeile ) THEN 
        DO:
            ASSIGN 
                cWerte  = cWerte  + CHR(01)
                cZellen = cZellen + ','.
            NEXT.
        END.

        RUN vpr_setGroupText (ipGruppe, cZellen, cWerte).

        iGrpHo = vpr_getGroupHeight ( ipGruppe ).
        iSpace = iSpace + iGrpHo.
    END.
    
    RUN vpr_InitGroups(ipGruppe).
    
    RETURN iSpace.
    
END FUNCTION.

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

&ENDIF

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

&ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION fillFormular Procedure 
FUNCTION fillFormular RETURNS LOGICAL
    (  ) :
    /*------------------------------------------------------------------------------
      Purpose:  
        Notes:  
    ------------------------------------------------------------------------------*/

    RUN vpr_SetGroupText ( 'Ueberschrift', 'Artnr_T'       , ENTRY( 1, cFormText[23], ';') ).
    RUN vpr_SetGroupText ( 'Ueberschrift', 'VGeb_Menge_T'  , ENTRY( 2, cFormText[23], ';') ).
    RUN vpr_SetGroupText ( 'Ueberschrift', 'VGeb_T'        , ENTRY( 3, cFormText[23], ';') ).
    RUN vpr_SetGroupText ( 'Ueberschrift', 'KGeb_Menge_T'  , ENTRY( 4, cFormText[23], ';') ).
    RUN vpr_SetGroupText ( 'Ueberschrift', 'KGeb_T'        , ENTRY( 5, cFormText[23], ';') ).
    RUN vpr_SetGroupText ( 'Ueberschrift', 'Bez_T'         , ENTRY( 6, cFormText[23], ';') ).
    RUN vpr_SetGroupText ( 'Ueberschrift', 'Alk%_T'        , ENTRY( 7, cFormText[23], ';') ).
    RUN vpr_SetGroupText ( 'Ueberschrift', 'JG_T'          , ENTRY( 8, cFormText[23], ';') ).
    RUN vpr_SetGroupText ( 'Ueberschrift', 'Preis_T'       , ENTRY( 9, cFormText[23], ';') ).
    RUN vpr_SetGroupText ( 'Ueberschrift', 'Betrag_T'      , ENTRY(10, cFormText[23], ';') ).
    RUN vpr_SetGroupText ( 'Ueberschrift', 'MC_T'          , ENTRY(11, cFormText[23], ';') ).

    RUN vpr_SetGroupText ( 'Kopf'        , 'Seite_T'       , ENTRY( 2, cFormText[24], ';') ).

    RUN vpr_SetGroupText ( 'KopfDetail'  , 'Knr_T'         , ENTRY( 1, cFormText[20], ';') ).
    RUN vpr_SetGroupText ( 'KopfDetail'  , 'Bestellt_T'    , ENTRY( 2, cFormText[20], ';') ).
    RUN vpr_SetGroupText ( 'KopfDetail'  , 'Geliefert_T'   , ENTRY( 3, cFormText[20], ';') ).
    RUN vpr_SetGroupText ( 'KopfDetail'  , 'Versand_T'     , ENTRY( 4, cFormText[20], ';') ).
    RUN vpr_SetGroupText ( 'KopfDetail'  , 'URef_T'        , ENTRY( 1, cFormText[19], ';') ).
    RUN vpr_SetGroupText ( 'KopfDetail'  , 'Telefon_T'     , ENTRY( 2, cFormText[19], ';') ).
    RUN vpr_SetGroupText ( 'KopfDetail'  , 'Gewicht_T'     , ENTRY( 3, cFormText[19], ';') ).
    RUN vpr_SetGroupText ( 'KopfDetail'  , 'IBest_T'       , ENTRY( 4, cFormText[19], ';') ).
    
    RUN vpr_SetGroupText ( 'GebindeTitel', 'GebindeText_T' , ENTRY( 1, cFormText[25], ';') ).
    RUN vpr_SetGroupText ( 'GebindeTitel', 'GebindeGel_T'  , ENTRY( 2, cFormText[25], ';') ).
    RUN vpr_SetGroupText ( 'GebindeTitel', 'GebindeRet_T'  , ENTRY( 3, cFormText[25], ';') ).
    RUN vpr_SetGroupText ( 'GebindeTitel', 'GebindeSaldo_T', ENTRY( 4, cFormText[25], ';') ).
    RUN vpr_SetGroupText ( 'GebindeTitel', 'GebindeBetr_T' , ENTRY( 5, cFormText[25], ';') ).
    RUN vpr_SetGroupText ( 'GebindeTitel', 'GebindeTot_T'  , ENTRY( 6, cFormText[25], ';') ).

    RETURN TRUE.

END FUNCTION.

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

&ENDIF