&ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12 GUI &ANALYZE-RESUME /* Connected Databases anadat PROGRESS */ &Scoped-define WINDOW-NAME C-Win /* Temp-Table and Buffer definitions */ DEFINE NEW SHARED TEMP-TABLE XTermOut NO-UNDO LIKE TermOut. &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS C-Win /*------------------------------------------------------------------------ File: Description: Input Parameters: Output Parameters: Author: Created: ------------------------------------------------------------------------*/ /* This .W file was created with the Progress UIB. */ /*----------------------------------------------------------------------*/ /* Create an unnamed pool to store all the widgets created by this procedure. This is a good default which assures that this procedure's triggers and internal procedures will execute in this procedure's storage, and that proper cleanup will occur on deletion of the procedure. */ CREATE WIDGET-POOL. /* *************************** Definitions ************************** */ /* Parameters Definitions --- */ DEFINE INPUT PARAMETER iphtParam AS HANDLE NO-UNDO. /* Local Variable Definitions --- */ DEF VAR FDrucken AS LOG NO-UNDO. DEF VAR TRecid AS RECID NO-UNDO. DEF VAR RabText AS CHAR NO-UNDO. DEF VAR RabWert AS DEC NO-UNDO. DEF VAR VFak_Betr AS DEC DECIMALS 4 NO-UNDO. DEF VAR GTWpfl AS DEC EXTENT 12 NO-UNDO. DEF VAR GTWust AS DEC EXTENT 12 NO-UNDO. DEF VAR GTFak_Betr AS DEC NO-UNDO. DEF VAR GTSk_Ber AS DEC NO-UNDO. DEF VAR SFaknr AS INT NO-UNDO. DEF VAR FLetzt AS LOG NO-UNDO. DEF VAR FErste AS LOG NO-UNDO. DEF VAR VZeile AS CHAR FORMAT "x(180)" NO-UNDO. DEF VAR RZeile AS CHAR FORMAT "x(180)" NO-UNDO. DEF VAR LiKopf AS LOG NO-UNDO. DEF VAR StBreite AS INT NO-UNDO. DEF VAR VWC AS INT NO-UNDO. DEF VAR VZTot AS DEC DECIMALS 4 NO-UNDO. DEF VAR FDatum AS DATE FORMAT "99.99.9999" NO-UNDO. DEF VAR VFaknr AS INT NO-UNDO. DEF VAR VesrKnr AS INT NO-UNDO. DEF VAR VesrFnr AS INT NO-UNDO. DEF VAR VBesr AS INT NO-UNDO. DEF VAR VRabText AS CHAR FORMAT "x(20)" NO-UNDO. DEF VAR VZusText AS CHAR FORMAT "x(20)" NO-UNDO. DEF VAR VEpzText AS CHAR FORMAT "x(20)" NO-UNDO. DEF VAR XVersand AS CHAR NO-UNDO. DEF VAR XAblade AS CHAR NO-UNDO. DEF VAR XChauffeur AS CHAR NO-UNDO. DEF VAR XAuf_Text LIKE Savko.Auf_Text NO-UNDO. DEF VAR XTelnr LIKE Savko.Auf_Text NO-UNDO. DEF VAR VTemp AS CHAR FORMAT "x(100)" NO-UNDO. DEF VAR FPreis AS LOG NO-UNDO. DEF VAR FBetrag AS LOG NO-UNDO. DEF VAR FRabatt AS LOG NO-UNDO. DEF VAR FUeber AS LOG NO-UNDO. DEF VAR FSamm AS LOG NO-UNDO. DEF VAR VTabTexte LIKE TabTexte.Inhalt NO-UNDO. DEF VAR VDokArt AS CHAR NO-UNDO. DEF VAR VKopfArt AS CHAR NO-UNDO. DEF VAR LiefAdr AS CHAR NO-UNDO. DEFINE VARIABLE ARecid AS RECID NO-UNDO. DEFINE VARIABLE BRecid AS RECID NO-UNDO. DEFINE VARIABLE CRecid AS RECID NO-UNDO. DEF VAR Laser AS LOG NO-UNDO. DEF VAR Schacht AS INT NO-UNDO. DEF VAR Schacht1 AS CHAR NO-UNDO. DEF VAR Schacht2 AS CHAR NO-UNDO. DEF VAR Schacht3 AS CHAR NO-UNDO. DEF VAR Schacht4 AS CHAR NO-UNDO. DEF VAR cWag AS CHAR INIT '-' NO-UNDO. DEF VAR cSenk AS CHAR INIT '|' NO-UNDO. DEF VAR cPlus AS CHAR INIT '+' NO-UNDO. DEF VAR DruckInit AS CHAR NO-UNDO. DEF VAR SchriftInit AS CHAR NO-UNDO. DEF VAR OCRBInit AS CHAR NO-UNDO. DEF VAR cUSER AS CHAR NO-UNDO. DEF VAR FormText AS CHAR FORMAT "x(80)" EXTENT 40. DEF BUFFER BSavko FOR Savko. DEF BUFFER XSavko FOR Savko. DEF BUFFER BSavze FOR Savze. DEF BUFFER BSavGebKo FOR SavGebKo. DEF BUFFER FDebst FOR Debst. DEF BUFFER LDebst FOR Debst. DEF BUFFER BTabel FOR Tabel. DEF BUFFER DTabel FOR Tabel. DEF BUFFER TFakart FOR Tabel. DEF BUFFER TAufsta FOR Tabel. DEF BUFFER BAdresse FOR Adresse. DEF VAR DebInkl AS LOG NO-UNDO. DEF VAR VWg_Grp AS INT INIT 0 NO-UNDO. DEF VAR VProd_Grp AS INT INIT 0 NO-UNDO. DEF VAR VArt_Grp AS INT INIT 0 NO-UNDO. DEF VAR AArtnr AS INT INIT 0 NO-UNDO. DEF VAR AInhalt AS INT INIT 0 NO-UNDO. DEF VAR AJahr AS INT INIT 0 NO-UNDO. DEF TEMP-TABLE TSavze 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. 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 DEC DECIMALS 2 FIELD Bez AS CHAR FIELD Ums_Betr AS DEC DECIMALS 4. DEF TEMP-TABLE TGebuehr FIELD MWST_Cd AS INT FIELD Anz AS DEC FIELD Betrag AS DEC. DEF TEMP-TABLE SammFak FIELD Knr AS INT FIELD Samm_Nr AS INT FIELD Aufnr AS INT FIELD Faknr AS INT FIELD RID AS RECID. DEF TEMP-TABLE TSpeRab FIELD Rab_Grp AS INT FIELD Auf_Betr AS DEC DECIMALS 4. /* ---------- Globale Variablen ---------------------------------- */ { v8/globvar.i" " " " "SHARED" } { v8/debivar.i " " " " "SHARED" } { v8/artivar.i " " " " "SHARED" } { v8/contvar.i " " " " "SHARED" } { v8/listtitv.i "NEW" "SHARED" } { v8/aufkototv.i "NEW" "SHARED" } { ttdruckparam.i } /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK /* ******************** Preprocessor Definitions ******************** */ &Scoped-define PROCEDURE-TYPE Window &Scoped-define DB-AWARE no /* Name of designated FRAME-NAME and/or first browse and/or first query */ &Scoped-define FRAME-NAME DEFAULT-FRAME /* Standard List Definitions */ &Scoped-Define ENABLED-OBJECTS RECT-1 F_Drucker E_Adresse F_Schrift F_Tzz ~ F_Kzz F_Fzz F_Aufnr F_KOPIE F_Faknr F_Datum F_Dokart F_Seite &Scoped-Define DISPLAYED-OBJECTS F_Drucker E_Adresse F_Schrift F_Tzz F_Kzz ~ F_Fzz F_Aufnr F_KOPIE F_Faknr F_Datum F_Dokart F_Seite /* Custom List Definitions */ /* List-1,List-2,List-3,List-4,List-5,List-6 */ &Scoped-define List-1 F_Drucker E_Adresse F_Schrift F_Tzz F_Kzz F_Fzz ~ F_Aufnr F_KOPIE F_Faknr F_Datum F_Dokart F_Seite /* _UIB-PREPROCESSOR-BLOCK-END */ &ANALYZE-RESUME /* *********************** Control Definitions ********************** */ /* Define the widget handle for the window */ DEFINE VAR C-Win AS WIDGET-HANDLE NO-UNDO. /* Definitions of the field level widgets */ DEFINE VARIABLE E_Adresse AS CHARACTER VIEW-AS EDITOR MAX-CHARS 1000 SIZE 47.6 BY 6.19 BGCOLOR 15 FONT 6 NO-UNDO. DEFINE VARIABLE F_Aufnr AS INTEGER FORMAT "zzzzzz9":U INITIAL 0 LABEL "Auftragsnummer" VIEW-AS FILL-IN NATIVE SIZE 14 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Datum AS DATE FORMAT "99.99.9999":U LABEL "Fakturadatum" VIEW-AS FILL-IN NATIVE SIZE 19.6 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Dokart AS CHARACTER FORMAT "x(50)":U LABEL "Dokumentart" VIEW-AS FILL-IN NATIVE SIZE 29.2 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Drucker AS CHARACTER FORMAT "x(50)":U LABEL "Drucker" VIEW-AS FILL-IN NATIVE SIZE 50 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Faknr AS INTEGER FORMAT "zzzzzzz":U INITIAL 0 LABEL "Fakturanummer" VIEW-AS FILL-IN NATIVE SIZE 14 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Fzz AS INTEGER FORMAT "zz9":U INITIAL 0 LABEL "Leere Fusszeilen" VIEW-AS FILL-IN NATIVE SIZE 7 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_KOPIE AS INTEGER FORMAT "zz9":U INITIAL 0 LABEL "Anz. Kopien" VIEW-AS FILL-IN NATIVE SIZE 7 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Kzz AS INTEGER FORMAT "zz9":U INITIAL 0 LABEL "Leere Kopfzeilen" VIEW-AS FILL-IN NATIVE SIZE 7 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Schrift AS CHARACTER FORMAT "x(50)":U LABEL "Schriftbild" VIEW-AS FILL-IN NATIVE SIZE 50 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Seite AS INTEGER FORMAT "zz9":U INITIAL 0 LABEL "Seite" VIEW-AS FILL-IN NATIVE SIZE 7 BY 1 BGCOLOR 15 NO-UNDO. DEFINE VARIABLE F_Tzz AS INTEGER FORMAT "zz9":U INITIAL 0 LABEL "Total Zeilen" VIEW-AS FILL-IN NATIVE SIZE 7 BY 1 BGCOLOR 15 NO-UNDO. DEFINE RECTANGLE RECT-1 EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL SIZE 126 BY 10.95. /* ************************ Frame Definitions *********************** */ DEFINE FRAME DEFAULT-FRAME F_Drucker AT ROW 2 COL 20 COLON-ALIGNED E_Adresse AT ROW 2 COL 76.6 NO-LABEL F_Schrift AT ROW 3 COL 20 COLON-ALIGNED F_Tzz AT ROW 4 COL 20 COLON-ALIGNED F_Kzz AT ROW 5 COL 20 COLON-ALIGNED F_Fzz AT ROW 6 COL 20 COLON-ALIGNED F_Aufnr AT ROW 7 COL 20 COLON-ALIGNED F_KOPIE AT ROW 7 COL 63.4 COLON-ALIGNED F_Faknr AT ROW 8 COL 20 COLON-ALIGNED F_Datum AT ROW 9 COL 20 COLON-ALIGNED F_Dokart AT ROW 9 COL 74.6 COLON-ALIGNED F_Seite AT ROW 9 COL 115.2 COLON-ALIGNED RECT-1 AT ROW 1.24 COL 2 WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY SIDE-LABELS NO-UNDERLINE THREE-D AT COL 1 ROW 1 SIZE 128 BY 13.86. /* *********************** Procedure Settings ************************ */ &ANALYZE-SUSPEND _PROCEDURE-SETTINGS /* Settings for THIS-PROCEDURE Type: Window Allow: Basic,Browse,DB-Fields,Window,Query Other Settings: COMPILE Temp-Tables and Buffers: TABLE: XTermOut T "NEW SHARED" NO-UNDO AnaDat TermOut END-TABLES. */ &ANALYZE-RESUME _END-PROCEDURE-SETTINGS /* ************************* Create Window ************************** */ &ANALYZE-SUSPEND _CREATE-WINDOW IF SESSION:DISPLAY-TYPE = "GUI":U THEN CREATE WINDOW C-Win ASSIGN HIDDEN = YES TITLE = "Drucken von verbuchten Rechnungen" HEIGHT = 11.43 WIDTH = 128 MAX-HEIGHT = 65.57 MAX-WIDTH = 512 VIRTUAL-HEIGHT = 65.57 VIRTUAL-WIDTH = 512 RESIZE = YES SCROLL-BARS = NO STATUS-AREA = NO BGCOLOR = ? FGCOLOR = ? KEEP-FRAME-Z-ORDER = YES THREE-D = YES MESSAGE-AREA = NO SENSITIVE = YES. ELSE {&WINDOW-NAME} = CURRENT-WINDOW. /* END WINDOW DEFINITION */ &ANALYZE-RESUME /* *********** Runtime Attributes and AppBuilder Settings *********** */ &ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES /* SETTINGS FOR WINDOW C-Win VISIBLE,,RUN-PERSISTENT */ /* SETTINGS FOR FRAME DEFAULT-FRAME FRAME-NAME */ /* SETTINGS FOR EDITOR E_Adresse IN FRAME DEFAULT-FRAME 1 */ ASSIGN E_Adresse:READ-ONLY IN FRAME DEFAULT-FRAME = TRUE. /* SETTINGS FOR FILL-IN F_Aufnr IN FRAME DEFAULT-FRAME 1 */ /* SETTINGS FOR FILL-IN F_Datum IN FRAME DEFAULT-FRAME 1 */ /* SETTINGS FOR FILL-IN F_Dokart IN FRAME DEFAULT-FRAME 1 */ /* SETTINGS FOR FILL-IN F_Drucker IN FRAME DEFAULT-FRAME 1 */ /* SETTINGS FOR FILL-IN F_Faknr IN FRAME DEFAULT-FRAME 1 */ /* SETTINGS FOR FILL-IN F_Fzz IN FRAME DEFAULT-FRAME 1 */ /* SETTINGS FOR FILL-IN F_KOPIE IN FRAME DEFAULT-FRAME 1 */ /* SETTINGS FOR FILL-IN F_Kzz IN FRAME DEFAULT-FRAME 1 */ /* SETTINGS FOR FILL-IN F_Schrift IN FRAME DEFAULT-FRAME 1 */ /* SETTINGS FOR FILL-IN F_Seite IN FRAME DEFAULT-FRAME 1 */ /* SETTINGS FOR FILL-IN F_Tzz IN FRAME DEFAULT-FRAME 1 */ IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(C-Win) THEN C-Win:HIDDEN = NO. /* _RUN-TIME-ATTRIBUTES-END */ &ANALYZE-RESUME /* ************************ Control Triggers ************************ */ &Scoped-define SELF-NAME C-Win &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL C-Win C-Win ON END-ERROR OF C-Win /* Drucken von verbuchten Rechnungen */ OR ENDKEY OF {&WINDOW-NAME} ANYWHERE DO: /* This case occurs when the user presses the "Esc" key. In a persistently run window, just ignore this. If we did not, the application would exit. */ IF THIS-PROCEDURE:PERSISTENT THEN RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL C-Win C-Win ON WINDOW-CLOSE OF C-Win /* Drucken von verbuchten Rechnungen */ DO: /* This event will close the window and terminate the procedure. */ APPLY "CLOSE":U TO THIS-PROCEDURE. RETURN NO-APPLY. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &UNDEFINE SELF-NAME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK C-Win /* *************************** Main Block *************************** */ /* Set CURRENT-WINDOW: this will parent dialog-boxes and frames. */ ASSIGN CURRENT-WINDOW = {&WINDOW-NAME} THIS-PROCEDURE:CURRENT-WINDOW = {&WINDOW-NAME}. Laser = FALSE. Schacht1 = CHR(27) + '&l4H'. Schacht2 = CHR(27) + '&l1H'. Schacht3 = CHR(27) + '&l5H'. Schacht4 = CHR(27) + '&l3H'. Druckinit = CHR(27) + 'E' + CHR(27) + '&l0O' + CHR(27) + '&k2G' + CHR(27) + '&l6d26a70P' + CHR(27) + '9' + CHR(27) + '&a0L' + CHR(27) + '&l0E'. SchriftInit = CHR(27) + '(s4102t13h0b0s0P' + CHR(27) + '(10U'. OCRBInit = CHR(27) + '(1O' + CHR(27) + '(s10h0b0s0p110T'. EMPTY TEMP-TABLE tParam. htParam:BUFFER-COPY(iphtParam). FIND FIRST tParam. GVFirma = tParam.cFirma. RUN INITIALISIERUNG. ON CLOSE OF THIS-PROCEDURE RUN disable_UI. PAUSE 0 BEFORE-HIDE. MAIN-BLOCK: DO ON ERROR UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK ON END-KEY UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK: RUN enable_UI. FDrucken = TRUE. /* cUser = DYNAMIC-FUNCTION('getDBUser':U) NO-ERROR. */ VERARBEITEN: DO WHILE FDrucken: FIND FIRST Tabel USE-INDEX Tabel-k1 WHERE Tabel.Firma = GVFirma AND Tabel.RecArt = 'AUFDRUCK' AND Tabel.CodeC = cUser AND Tabel.Bez1 = '' NO-LOCK NO-ERROR. IF NOT AVAILABLE Tabel THEN DO: FDrucken = FALSE. NEXT. END. TRecid = RECID(Tabel). REPEAT TRANSACTION: FIND BTabel WHERE RECID(BTabel) = TRecid EXCLUSIVE-LOCK NO-WAIT NO-ERROR. IF AVAILABLE BTabel THEN DO: BTabel.Bez1 = 'A'. RELEASE BTabel. LEAVE. END. IF LOCKED BTabel THEN NEXT. TRecid = 0. LEAVE. END. IF TRecid = 0 THEN NEXT. FIND Tabel WHERE RECID(Tabel) = TRecid NO-LOCK. RUN DRUCKEN. REPEAT TRANSACTION: FIND BTabel WHERE RECID(BTabel) = TRecid. DELETE BTabel. RELEASE BTabel. LEAVE. END. END. /* IF NOT THIS-PROCEDURE:PERSISTENT THEN WAIT-FOR CLOSE OF THIS-PROCEDURE. */ APPLY 'CLOSE' TO THIS-PROCEDURE. END. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME /* ********************** Internal Procedures *********************** */ &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ABLADEVORSCHRIFT C-Win PROCEDURE ABLADEVORSCHRIFT : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ XAblade = ''. FIND Tabel USE-INDEX Tabel-k1 WHERE Tabel.Firma = GVFirma AND Tabel.RecArt = 'ABLAD' AND Tabel.CodeC = '' AND Tabel.CodeI = BSavko.Ablad_Vor AND Tabel.Sprcd = 1 NO-LOCK NO-ERROR. IF NOT AVAILABLE tabel THEN DO: XAblade = BSavko.Ablad_Vor_Text. RETURN. END. IF LENGTH(Tabel.Bez1) > 4 THEN XAblade = Tabel.Bez1. IF BSavko.Ablad_Vor_Text <> '' THEN DO: IF XAblade <> '' THEN XAblade = XAblade + " / ". XAblade = BSavko.Ablad_Vor_Text. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ARTIKELZEILE C-Win PROCEDURE ARTIKELZEILE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ VZeile = RZeile. DO WHILE Savze.Artnr = 0: SUBSTRING(VZeile,036) = STRING(Savze.Bez1,"x(30)"). { v8/putstream.i "1" } IF Savze.Bez2 <> '' THEN DO: VZeile = RZeile. SUBSTRING(VZeile,036) = STRING(Savze.Bez2,"x(30)"). { v8/putstream.i "1" } END. RETURN. END. FIND Artst OF Savze NO-LOCK. FIND GGebinde WHERE GGebinde.Firma = GVFirma AND GGebinde.Geb_Cd = Savze.GGeb_Cd NO-LOCK NO-ERROR. FIND VGebinde WHERE VGebinde.Firma = GVFirma AND VGebinde.Geb_Cd = Savze.VGeb_Cd NO-LOCK NO-ERROR. FIND KGebinde WHERE KGebinde.Firma = GVFirma AND KGebinde.Geb_Cd = Savze.KGeb_Cd NO-LOCK NO-ERROR. VZeile = RZeile. SUBSTRING(VZeile,001) = STRING(Savze.Artnr,"999999"). IF Savze.GGeb_Me <> 0 THEN DO: SUBSTRING(VZeile,008) = STRING(Savze.GGeb_Me,"->9"). SUBSTRING(VZeile,012) = STRING(GGebinde.KBez,"x(08)"). { v8/putstream.i "1" } VZeile = RZeile. END. IF Savze.VGeb_Me <> 0 THEN DO: SUBSTRING(VZeile,008) = STRING(Savze.VGeb_Me ,"->9"). SUBSTRING(VZeile,012) = STRING(VGebinde.KBez ,"x(08)"). END. SUBSTRING(VZeile,021) = STRING(Savze.MGeli ,"->>>9"). SUBSTRING(VZeile,027) = STRING(KGebinde.KBez ,"x(08)"). SUBSTRING(VZeile,036) = STRING(Savze.Bez1 ,"x(30)"). IF Savze.Alk_Gehalt <> 0 THEN DO: SUBSTRING(VZeile,066) = STRING(Savze.Alk_Gehalt,"z9.9%"). END. IF Savze.Jahr > 9 THEN DO: SUBSTRING(VZeile,072) = SUBSTRING(STRING(Savze.Jahr,"9999"),03). END. IF FPreis THEN DO: IF Savze.Preis > 999.99 THEN SUBSTRING(VZeile,075) = STRING(Savze.Preis,"zzz9.99"). ELSE SUBSTRING(VZeile,075) = STRING(Savze.Preis,"zz9.999"). END. IF FBetrag THEN DO: SUBSTRING(VZeile,083) = STRING(Savze.Bru_Betr ,"->>,>>9.99"). SUBSTRING(VZeile,094) = STRING(Savze.WuCd ,"z9"). END. { v8/putstream.i "1" } IF Savze.Bez2 <> '' THEN DO: VZeile = RZeile. SUBSTRING(VZeile,036) = STRING(Savze.Bez2,"x(30)"). { v8/putstream.i "1" } END. IF Savze.Aktion THEN DO: VZeile = RZeile. SUBSTRING(VZeile,036) = STRING(Savze.Aktion_Text,"x(30)"). { v8/putstream.i "1" } END. DO WHILE FBetrag: IF Savze.Rab_Betr = 0 THEN LEAVE. VZeile = RZeile. RabWert = ABSOLUTE(Savze.Rab_Wert). IF Savze.Rab_Art = 3 THEN RabText = VEpzText. ELSE DO: IF Savze.Rab_Betr < 0 THEN RabText = VZusText. IF Savze.Rab_Betr > 0 THEN RabText = VRabText. END. SUBSTRING(VZeile,036) = TRIM(RabText). IF Savze.Rab_Art = 1 THEN SUBSTRING(VZeile,055) = STRING(RabWert,"->9.9 %"). IF Savze.Rab_Art = 2 OR Savze.Rab_Art = 3 THEN SUBSTRING(VZeile,055) = STRING(RabWert,"-9.99 Fr."). SUBSTRING(VZeile,083) = STRING(- Savze.Rab_Betr ,"->>,>>9.99"). { v8/putstream.i "1" } LEAVE. END. DO WHILE FBetrag: IF Savze.Zus_Betr = 0 THEN LEAVE. VZeile = RZeile. RabWert = ABSOLUTE(Savze.Zus_Wert). IF Savze.Zus_Art = 3 THEN RabText = VEpzText. ELSE DO: IF Savze.Zus_Betr > 0 THEN RabText = VZusText. IF Savze.Zus_Betr < 0 THEN RabText = VRabText. END. SUBSTRING(VZeile,036) = TRIM(RabText). IF Savze.Zus_Art = 1 THEN SUBSTRING(VZeile,055) = STRING(RabWert,"->9.9 %"). IF Savze.Zus_Art = 2 OR Savze.Zus_Art = 3 THEN SUBSTRING(VZeile,055) = STRING(RabWert,"-9.99 Fr."). SUBSTRING(VZeile,083) = STRING(+ Savze.Zus_Betr ,"->>,>>9.99"). { v8/putstream.i "1" } LEAVE. END. /* ---- Summengruppen-Total -------------------------------------------- */ IF Savze.Rab_Su_Grp <> 0 THEN DO: FIND FIRST TRabSumm WHERE TRabSumm.Rab_Summ = Savze.Rab_Su_Grp NO-ERROR. IF AVAILABLE TRabSumm THEN DO: TRabSumm.Auf_Rab = TRabSumm.Auf_Rab + Savze.Auf_Rab. TRabSumm.Abh_Rab = TRabSumm.Abh_Rab + Savze.Abh_Rab. END. END. /* ---- Warengruppen-Totale -------------------------------------------- */ FIND FIRST TUmsGrp WHERE TUmsGrp.Ums_Grp = Artst.Wg_Grp AND TUmsGrp.MWst = Savze.MWSt% NO-ERROR. IF NOT AVAILABLE TUmsGrp THEN DO: FIND WarenGrp USE-INDEX WarenGrp-k1 WHERE WarenGrp.Firma = GVFirma AND WarenGrp.Wgr = Artst.Wg_Grp NO-LOCK NO-ERROR. CREATE TUmsGrp. ASSIGN TUmsGrp.Ums_Grp = Artst.Wg_Grp TUmsGrp.Mwst = Savze.MWSt%. IF AVAILABLE WarenGrp THEN TUmsGrp.Bez = WarenGrp.Bez1. ELSE TUmsGrp.Bez = "??????????". END. TUmsGrp.Ums_Betr = TUmsGrp.Ums_Betr + Savze.Net_Betr - Savze.Auf_Rab - Savze.Abh_Rab. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE CHAUFFEUR C-Win PROCEDURE CHAUFFEUR : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ XChauffeur = ''. FIND Tabel USE-INDEX Tabel-k1 WHERE Tabel.Firma = GVFirma AND Tabel.RecArt = 'FAHRER' AND Tabel.CodeC = '' AND Tabel.CodeI = BSavko.Fahrer AND Tabel.Sprcd = 1 NO-LOCK NO-ERROR. IF AVAILABLE Tabel THEN XChauffeur = Tabel.Bez1. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI C-Win _DEFAULT-DISABLE PROCEDURE disable_UI : /*------------------------------------------------------------------------------ Purpose: DISABLE the User Interface Parameters: Notes: Here we clean-up the user-interface by deleting dynamic widgets we have created and/or hide frames. This procedure is usually called when we are ready to "clean-up" after running. ------------------------------------------------------------------------------*/ /* Delete the WINDOW we created */ IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(C-Win) THEN DELETE WIDGET C-Win. IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE DRUCKAUSGABE C-Win PROCEDURE DRUCKAUSGABE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR AnzKopien AS INT NO-UNDO. DEF VAR sRecid AS RECID NO-UNDO. DEF VAR iSize AS INT NO-UNDO. AnzKopien = F_Kopie. IF AnzKopien = 0 THEN AnzKopien = 1. DO VCopy = 1 TO AnzKopien: sRecid = RECID(BSchrift). Schacht = BLiDruck.Schacht. iSize = DYNAMIC-FUNCTION('putDateiToPrinter':U, VTemp , RECID(BSchrift), ? , 240 , /* Blockgrösse */ 'ibm850' , 1 ). /* Anzahl Kopien */ IF iSize = 0 THEN DO: MESSAGE 'Druckvorgang gescheitert !!! ' VIEW-AS ALERT-BOX ERROR. END. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE DRUCKEN C-Win PROCEDURE DRUCKEN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DO WITH FRAME {&FRAME-NAME}: DEF VAR XFakArt AS INT NO-UNDO. DEF VAR XAufSta AS INT NO-UNDO. DEF VAR ARecid AS RECID NO-UNDO. DEF VAR BRecid AS RECID NO-UNDO. DEF VAR CRecid AS RECID NO-UNDO. ARecid = Tabel.Int_1. BRecid = Tabel.Int_2. CRecid = Tabel.Int_3. VBesr = Tabel.Dec_1. Schacht = Tabel.Dec_3. VDokArt = Tabel.Bez2. F_DokArt = Tabel.Bez2. IF Schacht > 0 THEN Laser = TRUE. ELSE Laser = FALSE. IF Laser THEN DO: cWag = CHR(142). cSenk = CHR(131). cPlus = CHR(143). END. vDokArt = 'LieferFak'. FIND BSteuer WHERE BSteuer.Firma = GVFirma NO-LOCK NO-ERROR. FIND BListen WHERE RECID(BListen) = ARecid NO-LOCK NO-ERROR. FIND BLiDruck WHERE RECID(BLiDruck) = BRecid NO-LOCK NO-ERROR. FIND BSavko WHERE RECID(BSavko) = CRecid NO-LOCK NO-ERROR. IF NOT AVAILABLE BSavko THEN RETURN. F_Aufnr = BSavko.Aufnr. F_Faknr = BSavko.Faknr. F_Datum = BSavko.Fak_Datum. IF F_Datum = ? THEN F_Datum = TODAY. FDatum = F_Datum. VSort = BListen.Sort. F_Drucker = BLiDruck.ListDru. F_Schrift = BLiDruck.ListBild. F_TZZ = BLiDruck.Listtzz. F_KZZ = BLiDruck.Listkzz. F_FZZ = BLiDruck.Listfzz. F_KOPIE = BLiDruck.ListCopy. FIND TFakart USE-INDEX Tabel-k1 WHERE TFakart.Firma = GVFirma AND TFakart.RecArt = 'FAKART' AND TFakart.CodeC = '' AND TFakart.CodeI = BSavko.Fak_Art AND TFakart.Sprcd = 1 NO-LOCK NO-ERROR. F_Dokart = TFakart.Bez1. FIND TAufsta USE-INDEX Tabel-k1 WHERE TAufsta.Firma = GVFirma AND TAufsta.RecArt = 'AUFSTATUS' AND TAufsta.CodeC = '' AND TAufsta.CodeI = BSavko.Auf_Sta AND TAufsta.Sprcd = 1 NO-LOCK NO-ERROR. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = BSavko.Fak_Knr NO-LOCK NO-ERROR. E_Adresse = ''. IF BSavko.Adresse[05] <> '' THEN DO: E_Adresse = CHR(10) + CHR(10) + BSavko.Adresse[01] + CHR(10) + BSavko.Adresse[02] + CHR(10) + BSavko.Adresse[03] + CHR(10) + BSavko.Adresse[04] + CHR(10) + BSavko.Adresse[05]. END. ELSE DO: E_Adresse = Adresse.Anschrift[05] + CHR(10) + Adresse.Anschrift[06] + CHR(10) + Adresse.Anschrift[07] + CHR(10) + Adresse.Anschrift[08] + CHR(10) + Adresse.Anschrift[09] + CHR(10) + Adresse.Anschrift[10] + CHR(10) + Adresse.Anschrift[11] + CHR(10) + Adresse.Anschrift[12]. END. DISPLAY {&List-1}. RUN LIBILD. FOR EACH SammFak: DELETE SammFak. END. IF BSavko.Samm_Nr <> 0 AND NOT VDokArt BEGINS 'Ruest' THEN DO: RUN SAMMELSUCHEN. END. ELSE DO: CREATE SammFak. ASSIGN SammFak.Knr = BSavko.Fak_Knr SammFak.Aufnr = BSavko.Aufnr SammFak.Samm_Nr = BSavko.Aufnr SammFak.RID = RECID(BSavko). END. RUN WORKFILE. IF DOpen = TRUE THEN OUTPUT STREAM Out_Stream TO VALUE(VTemp). FOR EACH SammFak BREAK BY SammFak.Knr BY SammFak.Samm_Nr BY SammFak.Aufnr : FIND BSavko WHERE RECID(BSavko) = SammFak.RID NO-LOCK NO-ERROR. F_Aufnr = BSavko.Aufnr. DISPLAY F_Aufnr WITH FRAME {&FRAME-NAME}. VWg_Grp = 0. VProd_Grp = 0. VArt_Grp = 0. VFak_Betr = 0. FErste = FALSE. FOR EACH TSavze: DELETE TSavze. END. FOR EACH TGebKto: DELETE TGebKto. END. FOR EACH TRabSumm: DELETE TRabSumm. END. FOR EACH TSpeRab: DELETE TSpeRab. END. FOR EACH TGebuehr: DELETE TGebuehr. END. IF FIRST-OF ( SammFak.Samm_Nr ) THEN DO: FOR EACH TUmsGrp : DELETE TUmsGrp . END. GTWpfl = 0. GTWust = 0. GTFak_Betr = 0. GTSk_Ber = 0. SFaknr = BSavko.Faknr. FLetzt = FALSE. FErste = TRUE. TiDruck = TRUE. VSeite = 0. END. FOR EACH BSavze USE-INDEX Savze-k1 WHERE BSavze.Firma = BSavko.Firma AND BSavze.Aufnr = BSavko.Aufnr NO-LOCK: IF BSavze.Artnr <> 0 THEN DO: FIND GGebinde WHERE GGebinde.Firma = GVFirma AND GGebinde.Geb_Cd = BSavze.GGeb_Cd NO-LOCK NO-ERROR. FIND VGebinde WHERE VGebinde.Firma = GVFirma AND VGebinde.Geb_Cd = BSavze.VGeb_Cd NO-LOCK NO-ERROR. FIND KGebinde WHERE KGebinde.Firma = GVFirma AND KGebinde.Geb_Cd = BSavze.KGeb_Cd NO-LOCK NO-ERROR. END. CREATE TSavze. ASSIGN TSavze.Aufnr = BSavze.Aufnr TSavze.Artnr = BSavze.Artnr TSavze.Inhalt = BSavze.Inhalt TSavze.Jahr = BSavze.Jahr TSavze.Pos = BSavze.Pos TSavze.Zeile = RECID(BSavze) TSavze.Aktion = BSavze.Aktion TSavze.Preis = BSavze.Preis. IF BSavze.Artnr <> 0 THEN DO: FIND Artst OF BSavze NO-LOCK. VWg_Grp = Artst.Wg_Grp. VProd_Grp = Artst.Prod_Grp. VArt_Grp = Artst.Art_Grp. AArtnr = Artst.Artnr. AInhalt = Artst.Inhalt. AJahr = Artst.Jahr. END. IF VSort = 1 THEN DO: ASSIGN TSavze.Sort1 = STRING(VWg_Grp ,"999") TSavze.Sort2 = STRING(VProd_Grp ,"999") TSavze.Sort3 = STRING(VArt_Grp ,"999"). END. IF BSavze.Artnr = 0 THEN DO: ASSIGN TSavze.Artnr = AArtnr TSavze.Inhalt = AInhalt TSavze.Jahr = AJahr. END. IF BSavze.Artnr = 0 THEN NEXT. /* Spezial-Auftrags-Rabatt -------------------------------------------- */ IF BSavze.Auf_Sp_Grp > 0 THEN DO: FIND FIRST TSpeRab WHERE TSpeRab.Rab_Grp = BSavze.Auf_Sp_Grp NO-ERROR. IF NOT AVAILABLE TSpeRab THEN DO: CREATE TSpeRab. ASSIGN TSpeRab.Rab_Grp = BSavze.Auf_Sp_Grp. END. TSpeRab.Auf_Betr = TSpeRab.Auf_Betr + BSavze.Auf_Sp_Rab. END. /* Summengruppen-Totale ------------------------------------------------ */ DO WHILE BSavze.Rab_Su_Grp > 0: FIND FIRST TRabSumm WHERE TRabSumm.Rab_Summ = BSavze.Rab_Su_Grp NO-ERROR. IF NOT AVAILABLE TRabSumm THEN DO: FIND FIRST RabSumm USE-INDEX RabSumm-k1 WHERE RabSumm.Firma = GVFirma AND RabSumm.Rab_Summ = BSavze.Rab_Su_Grp NO-LOCK NO-ERROR. IF NOT AVAILABLE RabSumm THEN LEAVE. CREATE TRabSumm. ASSIGN TRabSumm.Rab_Summ = BSavze.Rab_Su_Grp TRabSumm.Bez = RabSumm.Bez TRabSumm.Auf_Rab = 0 TRabSumm.Abh_Rab = 0. END. LEAVE. END. END. IF LAST-OF ( SammFak.Samm_Nr ) THEN DO: FLetzt = TRUE. END. RUN VALUE(VDokArt). IF NOT FLetzt THEN NEXT. END. /* FOR EACH SammFak */ IF DOpen THEN OUTPUT STREAM Out_Stream CLOSE. DOpen = FALSE. RUN DRUCKAUSGABE. IF VTemp <> '' THEN OS-DELETE VALUE(VTemp). REPEAT TRANSACTION: FIND BListen WHERE RECID(BListen) = ARecid. BListen.Listfl = ''. RELEASE BListen. LEAVE. END. END. /* DO WITH FRAME */ RETURN NO-APPLY. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI C-Win _DEFAULT-ENABLE PROCEDURE enable_UI : /*------------------------------------------------------------------------------ Purpose: ENABLE the User Interface Parameters: Notes: Here we display/view/enable the widgets in the user-interface. In addition, OPEN all queries associated with each FRAME and BROWSE. These statements here are based on the "Other Settings" section of the widget Property Sheets. ------------------------------------------------------------------------------*/ DISPLAY F_Drucker E_Adresse F_Schrift F_Tzz F_Kzz F_Fzz F_Aufnr F_KOPIE F_Faknr F_Datum F_Dokart F_Seite WITH FRAME DEFAULT-FRAME IN WINDOW C-Win. ENABLE RECT-1 F_Drucker E_Adresse F_Schrift F_Tzz F_Kzz F_Fzz F_Aufnr F_KOPIE F_Faknr F_Datum F_Dokart F_Seite WITH FRAME DEFAULT-FRAME IN WINDOW C-Win. {&OPEN-BROWSERS-IN-QUERY-DEFAULT-FRAME} VIEW C-Win. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FAKTURA C-Win PROCEDURE FAKTURA : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ VSeite = 0. VFak_Betr = 0. LiKopf = TRUE. FPreis = TRUE. FBetrag = TRUE. FRabatt = TRUE. FUeber = TRUE. FSamm = FALSE. VKopfArt = 'FAKTURA_KOPF'. RUN VALUE(VKopfArt). FOR EACH TSavze NO-LOCK BY TSavze.Aufnr BY TSavze.Sort1 BY TSavze.Sort2 BY TSavze.Sort3 BY TSavze.Artnr BY TSavze.Inhalt BY TSavze.Jahr BY TSavze.Pos : IF (BLiDruck.Listtzz - VLine - 2) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. FIND Savze WHERE RECID(Savze) = TSavze.Zeile NO-LOCK. RUN ARTIKELZEILE. VFak_Betr = VFak_Betr + Savze.Net_Betr. END. VZeile = FILL(cWag, StBreite). { v8/putstream.i "1" } SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[10],41,20)). SUBSTRING(VZeile,083) = STRING(VFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "1" } LiKopf = FALSE. RUN SUMMENRABATTE. { v8/putstream.i "1" } RUN GEBINDE_SALDO. RUN GEBINDE_ABRECHNUNG. RUN MEHRWERTSTEUER. SUBSTRING(VZeile,083) = '=========='. { v8/putstream.i "2" } FUeber = FALSE. RUN ZAHLUNGSKONDITION. RUN UMSATZVERTEILUNG. RUN KOPF_MUTATION. Rundbetr = VFak_Betr. VesrKnr = BSavko.Fak_Knr. VesrFnr = BSavko.Faknr. IF VBesr = 2 THEN RUN VESR_DRUCK02. ELSE RUN VESR_DRUCK. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FAKTURA_KOPF C-Win PROCEDURE FAKTURA_KOPF : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ RUN NEUE_SEITE. IF VSeite = 1 THEN DO: IF Laser THEN DO: VZeile = DruckInit + SchriftInit. CASE Schacht: WHEN 1 THEN VZeile = VZeile + Schacht1. WHEN 2 THEN VZeile = VZeile + Schacht2. WHEN 3 THEN VZeile = VZeile + Schacht3. WHEN 4 THEN VZeile = VZeile + Schacht4. END CASE. PUT STREAM Out_Stream CONTROL VZeile. END. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = BSavko.Fak_Knr NO-LOCK NO-ERROR. FIND LDebst USE-INDEX Debst-k1 WHERE LDebst.Firma = GVFirma AND LDebst.Knr = BSavko.Knr NO-LOCK NO-ERROR. FIND FDebst USE-INDEX Debst-k1 WHERE FDebst.Firma = GVFirma AND FDebst.Knr = BSavko.Fak_Knr NO-LOCK NO-ERROR. FIND Wust USE-INDEX Wust-k1 WHERE Wust.CodeK = LDebst.MWST AND Wust.CodeA = 99 NO-LOCK NO-ERROR. LVSprcd = Adresse.Sprcd. DebInkl = FALSE. IF AVAILABLE Wust THEN DebInkl = Wust.Incl. XTelnr = ''. IF DebInkl THEN DO: IF Adresse.Tel-2 <> '' THEN XTelnr = Adresse.Tel-2. ELSE XTelnr = Adresse.Tel-1. END. ELSE DO: IF Adresse.Tel-1 <> '' THEN XTelnr = Adresse.Tel-1. ELSE XTelnr = Adresse.Tel-2. END. END. F_Seite = VSeite. F_Faknr = SFaknr. DISPLAY F_Seite F_Faknr WITH FRAME {&FRAME-NAME}. VZeile = ''. { v8/putstream.i BLiDruck.Listkzz }. IF BSavko.Adresse[05] <> '' THEN DO: DO ix = 1 TO 5: SUBSTRING(VZeile,053) = BSavko.Adresse[ix]. IF ix = 5 THEN DO: { v8/putstreamf.i "1" }. END. ELSE DO: { v8/putstream.i "1" }. END. END. END. ELSE DO: DO ix = 7 TO 11: SUBSTRING(VZeile,053) = Adresse.Anschrift[ix]. IF ix = 11 THEN DO: { v8/putstreamf.i "1" }. END. ELSE DO: { v8/putstream.i "1" }. END. END. END. SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[02],01,20)) + STRING(SFaknr,"z999999") + " /" + STRING(VSeite,"zz9"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[18],01,20)) + " " + BSteuer.MWST_Nr. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],01,20)) + " " + STRING(FDatum,"99.99.9999"). { v8/putstream.i "2" } DO WHILE VSeite = 1. SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],21,20)) + " " + BSavko.I_Best. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[17],21,20)) + " " + STRING(BSavko.Aufnr,"9999999"). SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[07],41,20)) + " " + STRING(BSavko.Auf_Datum,"99.99.9999"). SUBSTRING(VZeile,071) = TRIM(SUBSTRING(FormText[08],01,20)) + " " + STRING(BSavko.Fak_Knr,"999999"). { v8/putstream.i "2" } XAuf_Text = BSavko.Auf_Text. i1 = INDEX(XAuf_Text, CHR(10)). i2 = 0. DO WHILE i1 > 0: SUBSTRING(VZeile,001) = SUBSTRING(XAuf_Text,01,i1 - 1). { v8/putstreamf.i "1" } XAuf_Text = SUBSTRING(XAuf_Text,i1 + 1). i1 = INDEX(XAuf_Text, CHR(10)). i2 = i2 + 1. END. IF XAuf_Text <> '' THEN DO: SUBSTRING(VZeile,001) = XAuf_Text. { v8/putstreamf.i "1" } i2 = i2 + 1. END. IF i2 > 0 THEN DO: { v8/putstream.i "1" } END. XAuf_Text = BSavko.Abh_Text. i1 = INDEX(XAuf_Text, CHR(10)). i2 = 0. DO WHILE i1 > 0: SUBSTRING(VZeile,001) = SUBSTRING(XAuf_Text,01,i1 - 1). { v8/putstreamf.i "1" } XAuf_Text = SUBSTRING(XAuf_Text,i1 + 1). i1 = INDEX(XAuf_Text, CHR(10)). i2 = i2 + 1. END. IF XAuf_Text <> '' THEN DO: SUBSTRING(VZeile,001) = XAuf_Text. { v8/putstreamf.i "1" } i2 = i2 + 1. END. IF i2 > 0 THEN DO: { v8/putstream.i "1" } END. LEAVE. END. IF LiKopf THEN DO: SUBSTRING(VZeile,001) = FormText[03]. SUBSTRING(VZeile,071) = FormText[04]. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = FormText[05]. SUBSTRING(VZeile,071) = FormText[06]. StBreite = LENGTH(VZeile). { v8/putstream.i "1" } END. ELSE DO: { v8/putstream.i "1" } END. IF VSeite > 1 AND FUeber = TRUE THEN DO: SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[09],41,20)). SUBSTRING(VZeile,083) = STRING(VFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "2" } END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GEBINDE_ABRECHNUNG C-Win PROCEDURE GEBINDE_ABRECHNUNG : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ Zuszz = 0. FOR EACH SavGKon USE-INDEX SavGKon-k1 WHERE SavGKon.Firma = BSavko.Firma AND SavGKon.Aufnr = BSavko.Aufnr AND SavGKon.Depot <> 0 NO-LOCK: IF SavGKon.Eingang = 0 AND SavGKon.Ausgang = 0 THEN NEXT. Zuszz = Zuszz + 1. END. Ja = FALSE. IF Zuszz > 0 THEN DO: Zuszz = Zuszz + 2. Ja = TRUE. END. IF (BLiDruck.Listtzz - VLine - Zuszz) <= BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. i5 = 0. VZTot = 0. IF Ja THEN DO: SUBSTRING(VZeile,001) = FormText[12]. SUBSTRING(VZeile,071) = FormText[13]. { v8/putstreamf.i "1" } END. FOR EACH SavGKon USE-INDEX SavGKon-k1 WHERE SavGKon.Firma = BSavko.Firma AND SavGKon.Aufnr = BSavko.Aufnr AND SavGKon.Depot <> 0 NO-LOCK: IF SavGKon.Eingang = 0 AND SavGKon.Ausgang = 0 THEN NEXT. FIND GebKonto USE-INDEX GebKonto-k1 WHERE GebKonto.Firma = GVFirma AND GebKonto.Geb_Cd = SavGKon.Geb_Cd NO-LOCK. i1 = SavGKon.Ausgang - SavGKon.Eingang. Rundbetr = SavGKon.Betrag. VWC = SavGKon.MWSt_Cd. VZTot = VZTot + Rundbetr. SUBSTRING(VZeile,004) = GebKonto.Bez. SUBSTRING(VZeile,035) = STRING(SavGKon.Ausgang,"->>,>>9"). SUBSTRING(VZeile,045) = STRING(SavGKon.Eingang,"->>,>>9"). SUBSTRING(VZeile,055) = STRING(i1 ,"->>,>>9"). SUBSTRING(VZeile,065) = STRING(Rundbetr ,"->>,>>9.99"). SUBSTRING(VZeile,094) = STRING(VWC ,"z9"). { v8/putstream.i "1" } i5 = i5 + 1. FIND LAST MWSTAns USE-INDEX MWSTAns-k1 WHERE MWSTAns.MWST_Cd = VWC AND MWSTAns.Datum <= FDatum NO-LOCK NO-ERROR. FIND FIRST TUmsGrp WHERE TUmsGrp.Ums_Grp = 9990 AND TUmsGrp.Mwst = MWSTAns.Ansatz NO-ERROR. IF NOT AVAILABLE TUmsGrp THEN DO: CREATE TUmsGrp. ASSIGN TUmsGrp.Ums_Grp = 9990 TUmsGrp.Mwst = MWSTAns.Ansatz TUmsGrp.Bez = 'Gebinde-Kosten'. END. TUmsGrp.Ums_Betr = TUmsGrp.Ums_Betr + Rundbetr. END. IF i5 > 0 THEN DO: SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[11],21,20)). SUBSTRING(VZeile,083) = STRING(VZTot,"->>,>>9.99"). { v8/putstream.i "1" } VFak_Betr = VFak_Betr + VZTot. END. IF NOT FSamm THEN DO: SUBSTRING(VZeile,027) = FILL(cWag, StBreite - 026). { v8/putstream.i "1" } SUBSTRING(VZeile,027) = TRIM(SUBSTRING(FormText[15],21,20)). SUBSTRING(VZeile,083) = STRING(VFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,027) = FILL(cWag, StBreite - 026). { v8/putstream.i "1" } END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GEBINDE_LIEFERUNG C-Win PROCEDURE GEBINDE_LIEFERUNG : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ Zuszz = 0. FOR EACH TGebKto NO-LOCK: Zuszz = Zuszz + 1. END. IF Zuszz > 0 THEN Zuszz = Zuszz + 2. Zuszz = (Zuszz + 1) / 2. IF (BLiDruck.Listtzz - VLine - Zuszz) <= BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. i5 = 0. VZTot = 0. SUBSTRING(VZeile,001) = BDrucker.DruUnterB + TRIM(SUBSTRING(FormText[10],01,20)) + BDrucker.DruUnterE. { v8/putstream.i "2" } i1 = 1. i2 = 0. FOR EACH TGebKto BY TGebKto.Sort_Cd BY TGebKto.Geb_Cd : i2 = i2 + 1. IF i2 MOD 2 = 0 THEN i1 = 41. ELSE i1 = 01. SUBSTRING(VZeile,i1) = STRING(TGebKto.A_Anz,"->>>>9") + " " + STRING(TGebKto.Bez,"x(30)"). IF i1 > 30 THEN DO: { v8/putstream.i "1" } i5 = i5 + 1. END. END. IF VZeile <> '' THEN DO: { v8/putstream.i "1" } i5 = i5 + 1. END. IF i5 > 0 THEN DO: { v8/putstream.i "1" } END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GEBINDE_RUECKNAHME_TABELLE C-Win PROCEDURE GEBINDE_RUECKNAHME_TABELLE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ /* Gebinderücknahmetabelle ------------------------------------------- */ DEFINE VARIABLE cTextArt AS CHARACTER NO-UNDO. cTextArt = 'GEBINDERETOUR' + STRING(bSavko.Fak_Art,'99'). FIND TabTexte USE-INDEX TabTexte-k1 WHERE TabTexte.Firma = GVFirma AND TabTexte.TextArt = cTextArt AND TabTexte.Sprcd = LVSprcd. VTabTexte = TabTexte.Inhalt. Zuszz = NUM-ENTRIES(VTabTexte, CHR(10)). IF Zuszz > 0 THEN Zuszz = Zuszz + 2. IF (BLiDruck.Listtzz - VLine - Zuszz) <= BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. DO WHILE TRUE: ix = INDEX(VTabTexte, CHR(10)). IF ix = 0 THEN DO: VZeile = VTabTexte. LEAVE. END. VZeile = SUBSTRING(VTabTexte,01,ix - 1). VTabTexte = SUBSTRING(VTabTexte,ix + 1). { v8/putstream.i "1" }. END. IF VZeile <> '' THEN DO: { v8/putstream.i "1" }. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GEBINDE_SALDO C-Win PROCEDURE GEBINDE_SALDO : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ FOR EACH SavGKon USE-INDEX SavGKon-k1 WHERE SavGKon.Firma = BSavko.Firma AND SavGKon.Aufnr = BSavko.Aufnr AND SavGKon.Depot <> 0 AND SavGKon.Betrag <> 0 NO-LOCK: FIND FIRST TGebKto WHERE TGebKto.Geb_Cd = SavGKon.Geb_Cd NO-ERROR. IF NOT AVAILABLE TGebKto THEN DO: FIND GebKonto USE-INDEX GebKonto-k1 WHERE GebKonto.Firma = SavGKon.Firma AND GebKonto.Geb_Cd = SavGKon.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 = SavGKon.Depot TGebKto.MWST_Cd = SavGKon.MWSt_Cd. END. TGebKto.A_Anz = TGebKto.A_Anz + SavGKon.Ausgang. TGebKto.A_Betrag = TGebKto.A_Anz * TGebKto.Preis. TGebKto.E_Anz = TGebKto.E_Anz + SavGKon.Eingang. TGebKto.E_Betrag = TGebKto.E_Anz * TGebKto.Preis. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE INITIALISIERUNG C-Win PROCEDURE INITIALISIERUNG : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEFINE VARIABLE VProgName AS CHARACTER NO-UNDO. DEFINE VARIABLE VListnr AS INTEGER NO-UNDO. DEFINE VARIABLE cTemplate AS CHARACTER NO-UNDO. DEFINE BUFFER aTabel FOR Tabel. FIND FIRST tParam. cUser = tParam.cBenutzer. REPEAT TRANSACTION ON ERROR UNDO, LEAVE: FIND bSavko NO-LOCK WHERE bSavko.Firma = tParam.cFirma AND bSavko.Aufnr = tParam.iAufnr NO-ERROR. FIND aTabel NO-LOCK USE-INDEX Tabel-k1 WHERE aTabel.Firma = GVFirma AND aTabel.RecArt = 'FAKART' AND aTabel.CodeC = '' AND aTabel.CodeI = bSavko.Fak_Art AND aTabel.Sprcd = 1 NO-ERROR. IF NOT AVAILABLE aTabel THEN RETURN. . LVCodeC = aTabel.Bez2. cTemplate = aTabel.Bez2. FIND FIRST HilfsTab NO-LOCK USE-INDEX HilfsTab-k1 WHERE HilfsTab.Firma = cFirma AND HilfsTab.Sort_1 = tParam.cBenutzer AND HilfsTab.Sort_2 = cTemplate NO-ERROR. IF NOT AVAILABLE HilfsTab THEN DO: FIND FIRST HilfsTab NO-LOCK USE-INDEX HilfsTab-k1 WHERE HilfsTab.Firma = cFirma AND HilfsTab.Sort_1 = '' AND HilfsTab.Sort_2 = cTemplate NO-ERROR. END. IF NOT AVAILABLE HilfsTab THEN RETURN 'NOK'. FIND bSchrift NO-LOCK WHERE bSchrift.Schname = HilfsTab.Zeichen_1 AND bSchrift.Schbild = HilfsTab.Zeichen_2 NO-ERROR. FIND bDrucker NO-LOCK WHERE bDrucker.Drucker = bSchrift.Schdru NO-ERROR. VProgname = TRIM(cUser) + '!AUFTRAG'. FIND FIRST Listen USE-INDEX Listen-k1 WHERE Listen.Firma = GVFirma AND Listen.Progname = VProgname AND Listen.Listfl = '' NO-ERROR. IF NOT AVAILABLE Listen THEN DO: FIND LAST Listen USE-INDEX Listen-k1 WHERE Listen.Firma = GVFirma NO-LOCK NO-ERROR. IF AVAILABLE Listen THEN VListnr = Listen.Listnr + 1. ELSE VListnr = 1. CREATE Listen. ASSIGN Listen.Firma = GVFirma Listen.Listnr = VListnr Listen.Progname = VProgname Listen.Listfl = '' Listen.Jahr = YEAR(TODAY) Listen.Sprcd = GVSprcd Listen.Sort = 1 Listen.ProgWahl = 1. END. Listen.Listfl = 'A'. FIND LiDruck USE-INDEX LiDruck-k1 WHERE LiDruck.Firma = GVFirma AND LiDruck.Listnr = Listen.Listnr AND LiDruck.ProgWahl = Listen.ProgWahl NO-ERROR. IF NOT AVAILABLE LiDruck THEN DO: CREATE LiDruck. ASSIGN LiDruck.Firma = GVFirma LiDruck.Listnr = Listen.Listnr LiDruck.ProgWahl = Listen.ProgWahl LiDruck.Listprog = 'AUFTRAG' + STRING(Listen.ProgWahl,'99') LiDruck.ListCopy = 1 LiDruck.Schacht = 0 LiDruck.Listlq = FALSE. END. ASSIGN LiDruck.ListDru = HilfsTab.Zeichen_1 LiDruck.ListBild = HilfsTab.Zeichen_2 LiDruck.Listtzz = HilfsTab.Zahl[01] LiDruck.Listkzz = HilfsTab.Zahl[02] LiDruck.Listfzz = HilfsTab.Zahl[03] LiDruck.ListCopy = HilfsTab.Zahl[04] LiDruck.Schacht = HilfsTab.Zahl[05] VBesr = HilfsTab.Zahl[07] Schacht = HilfsTab.Zahl[08]. IF LiDruck.ListCopy = 0 THEN LiDruck.ListCopy = 1. FIND LAST Tabel NO-LOCK USE-INDEX Tabel-k1 WHERE Tabel.Firma = GVFirma AND Tabel.RecArt = 'AUFDRUCK' AND Tabel.CodeC = cUser NO-ERROR. IF AVAILABLE Tabel THEN i1 = Tabel.CodeI + 1. ELSE i1 = 1. CREATE Tabel. ASSIGN Tabel.Firma = GVFirma Tabel.RecArt = 'AUFDRUCK' Tabel.CodeC = cUser Tabel.CodeI = i1 Tabel.Sprcd = 1 Tabel.Int_1 = INTEGER(RECID(Listen)) Tabel.Int_2 = INTEGER(RECID(LiDruck)) Tabel.Int_3 = INTEGER(RECID(bSavko)) Tabel.Dec_1 = DECIMAL(VBesr) Tabel.Dec_2 = INTEGER(RECID(HilfsTab)) Tabel.Dec_3 = Schacht Tabel.Bez1 = '' Tabel.Bez2 = cTemplate Tabel.BezL = SUBSTITUTE('&1;&2;&3;&4', HilfsTab.Zahl[05], HilfsTab.Zahl[06], HilfsTab.Zahl[08], HilfsTab.Zahl[07]). ASSIGN TRecid = RECID(Tabel) ARecid = RECID(Listen) BRecid = RECID(LiDruck) CRecid = RECID(bSavko) . RELEASE Tabel . RELEASE Listen . RELEASE LiDruck . RELEASE HilfsTab. LEAVE. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE KOPF_MUTATION C-Win PROCEDURE KOPF_MUTATION : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LIBILD C-Win PROCEDURE LIBILD : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR VProgName AS CHAR NO-UNDO. VProgName = BSteuer.Fwc10 + ":" + VDokArt. FormText = "". FOR EACH LiBild USE-INDEX LiBild-k1 WHERE LiBild.Sprcd = GVSprcd AND LiBild.Prog = VProgname AND LiBild.Tenr > 0 NO-LOCK ix = 1 TO 40: FormText[ix] = LiBild.Litext. END. Formtext[05] = REPLACE(Formtext[05], '-', cWag ). Formtext[05] = REPLACE(Formtext[05], '+', cPlus). Formtext[06] = REPLACE(Formtext[06], '-', cWag ). Formtext[06] = REPLACE(Formtext[06], '+', cPlus). Fuell = SUBSTRING(FormText[01],01,01). Breite = INTEGER(SUBSTRING(FormText[01],02,03)). VRand = INTEGER(SUBSTRING(FormText[01],68,03)). Dattxt = SUBSTRING(FormText[01],05,10). Seitxt = SUBSTRING(FormText[01],15,10). Zeitxt = SUBSTRING(FormText[01],25,10). Firtxt = SUBSTRING(FormText[01],35,10). Jahtxt = SUBSTRING(FormText[01],45,10). Ueber1 = "". Ueber2 = "". Ueber3 = "". ap = 1. XDruDat = ?. VRabText = TRIM(SUBSTRING(FormText[21],01,20)). VZusText = TRIM(SUBSTRING(FormText[21],21,20)). VEpzText = TRIM(SUBSTRING(FormText[21],41,20)). SUBSTRING(VZeile,001) = FormText[05]. SUBSTRING(VZeile,071) = FormText[06]. StBreite = LENGTH(VZeile). RZeile = FILL(cSenk, Breite). SUBSTRING(RZeile,001) = STRING(' ',"x(06)"). SUBSTRING(RZeile,008) = STRING(' ',"x(03)"). SUBSTRING(RZeile,012) = STRING(' ',"x(08)"). SUBSTRING(RZeile,021) = STRING(' ',"x(05)"). SUBSTRING(RZeile,027) = STRING(' ',"x(08)"). SUBSTRING(RZeile,036) = STRING(' ',"x(35)"). SUBSTRING(RZeile,072) = STRING(' ',"x(02)"). SUBSTRING(RZeile,075) = STRING(' ',"x(07)"). SUBSTRING(RZeile,083) = STRING(' ',"x(10)"). SUBSTRING(RZeile,094) = STRING(' ',"x(02)"). RZeile = SUBSTRING(RZeile,01,StBreite). VZeile = ''. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LIEFERFAK C-Win PROCEDURE LIEFERFAK : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ VSeite = 0. VFak_Betr = 0. LiKopf = TRUE. FPreis = TRUE. FBetrag = TRUE. FRabatt = TRUE. FUeber = TRUE. FSamm = FALSE. VKopfArt = 'LIEFERFAK_KOPF'. RUN VALUE(VKopfArt). FOR EACH TSavze NO-LOCK BY TSavze.Aufnr BY TSavze.Sort1 BY TSavze.Sort2 BY TSavze.Sort3 BY TSavze.Artnr BY TSavze.Inhalt BY TSavze.Jahr BY TSavze.Pos : IF (BLiDruck.Listtzz - VLine - 2) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. FIND Savze WHERE RECID(Savze) = TSavze.Zeile NO-LOCK. RUN ARTIKELZEILE. VFak_Betr = VFak_Betr + Savze.Net_Betr. END. VZeile = FILL(cWag, StBreite). { v8/putstream.i "1" } SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[10],41,20)). SUBSTRING(VZeile,083) = STRING(VFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "1" } LiKopf = FALSE. RUN SUMMENRABATTE. { v8/putstream.i "1" } RUN GEBINDE_SALDO. RUN GEBINDE_ABRECHNUNG. RUN MEHRWERTSTEUER. { v8/putstream.i "1" } SUBSTRING(VZeile,050) = TRIM(SUBSTRING(FormText[18],21,20)). SUBSTRING(VZeile,083) = "__________". { v8/putstreamf.i "2" } SUBSTRING(VZeile,050) = TRIM(SUBSTRING(FormText[18],41,20)). SUBSTRING(VZeile,083) = "__________". { v8/putstreamf.i "2" } RUN GEBINDE_RUECKNAHME_TABELLE. RUN KOPF_MUTATION. Rundbetr = 0. VesrKnr = BSavko.Fak_Knr. VesrFnr = BSavko.Faknr. IF VBesr = 2 THEN RUN VESR_DRUCK02. ELSE RUN VESR_DRUCK. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LIEFERFAK_KOPF C-Win PROCEDURE LIEFERFAK_KOPF : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ RUN NEUE_SEITE. IF VSeite = 1 THEN DO: IF Laser THEN DO: VZeile = DruckInit + SchriftInit. CASE Schacht: WHEN 1 THEN VZeile = VZeile + Schacht1. WHEN 2 THEN VZeile = VZeile + Schacht2. WHEN 3 THEN VZeile = VZeile + Schacht3. WHEN 4 THEN VZeile = VZeile + Schacht4. END CASE. PUT STREAM Out_Stream CONTROL VZeile. END. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = BSavko.Fak_Knr NO-LOCK NO-ERROR. FIND LDebst USE-INDEX Debst-k1 WHERE LDebst.Firma = GVFirma AND LDebst.Knr = BSavko.Knr NO-LOCK NO-ERROR. FIND FDebst USE-INDEX Debst-k1 WHERE FDebst.Firma = GVFirma AND FDebst.Knr = BSavko.Fak_Knr NO-LOCK NO-ERROR. FIND Wust USE-INDEX Wust-k1 WHERE Wust.CodeK = LDebst.MWST AND Wust.CodeA = 99 NO-LOCK NO-ERROR. LVSprcd = Adresse.Sprcd. DebInkl = FALSE. IF AVAILABLE Wust THEN DebInkl = Wust.Incl. XTelnr = ''. IF DebInkl THEN DO: IF Adresse.Tel-2 <> '' THEN XTelnr = Adresse.Tel-2. ELSE XTelnr = Adresse.Tel-1. END. ELSE DO: IF Adresse.Tel-1 <> '' THEN XTelnr = Adresse.Tel-1. ELSE XTelnr = Adresse.Tel-2. END. END. F_Seite = VSeite. F_Faknr = SFaknr. DISPLAY F_Seite F_Faknr WITH FRAME {&FRAME-NAME}. VZeile = ''. { v8/putstream.i BLiDruck.Listkzz }. IF BSavko.Adresse[05] <> '' THEN DO: DO ix = 1 TO 5: SUBSTRING(VZeile,053) = BSavko.Adresse[ix]. IF ix = 5 THEN DO: { v8/putstreamf.i "1" }. END. ELSE DO: { v8/putstream.i "1" }. END. END. END. ELSE DO: DO ix = 7 TO 11: SUBSTRING(VZeile,053) = Adresse.Anschrift[ix]. IF ix = 11 THEN DO: { v8/putstreamf.i "1" }. END. ELSE DO: { v8/putstream.i "1" }. END. END. END. SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[02],01,20)) + STRING(SFaknr,"z999999") + " /" + STRING(VSeite,"zz9"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[18],01,20)) + " " + BSteuer.MWST_Nr. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],01,20)) + " " + STRING(FDatum,"99.99.9999"). { v8/putstream.i "2" } DO WHILE VSeite = 1. RUN ABLADEVORSCHRIFT. RUN VERSANDART. RUN CHAUFFEUR. SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],21,20)) + " " + BSavko.I_Best. SUBSTRING(VZeile,061) = TRIM(SUBSTRING(FormText[08],21,20)) + STRING(BSavko.Gewicht,"zzz,zz9.999-"). { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],41,20)) + " " + STRING(BSavko.Auf_Datum,"99.99.9999"). SUBSTRING(VZeile,033) = TRIM(SUBSTRING(FormText[08],01,20)) + STRING(BSavko.Knr,"zz999999"). SUBSTRING(VZeile,061) = TRIM(SUBSTRING(FormText[08],41,20)) + " " + XTelnr. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[09],21,20)) + " " + STRING(BSavko.Lief_Datum,"99.99.9999"). SUBSTRING(VZeile,033) = TRIM(SUBSTRING(FormText[09],01,20)) + " " + XVersand. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[17],21,20)) + " " + STRING(BSavko.Aufnr,"9999999"). SUBSTRING(VZeile,033) = TRIM(SUBSTRING(FormText[22],01,20)) + " " + XChauffeur. { v8/putstream.i "2" } IF XAblade <> '' THEN DO: SUBSTRING(VZeile,001) = XAblade. { v8/putstreamf.i "2" } END. XAuf_Text = BSavko.Auf_Text. i1 = INDEX(XAuf_Text, CHR(10)). i2 = 0. DO WHILE i1 > 0: SUBSTRING(VZeile,001) = SUBSTRING(XAuf_Text,01,i1 - 1). { v8/putstreamf.i "1" } XAuf_Text = SUBSTRING(XAuf_Text,i1 + 1). i1 = INDEX(XAuf_Text, CHR(10)). i2 = i2 + 1. END. IF XAuf_Text <> '' THEN DO: SUBSTRING(VZeile,001) = XAuf_Text. { v8/putstreamf.i "1" } i2 = i2 + 1. END. IF i2 > 0 THEN DO: { v8/putstream.i "1" } END. XAuf_Text = BSavko.Abh_Text. i1 = INDEX(XAuf_Text, CHR(10)). i2 = 0. DO WHILE i1 > 0: SUBSTRING(VZeile,001) = SUBSTRING(XAuf_Text,01,i1 - 1). { v8/putstreamf.i "1" } XAuf_Text = SUBSTRING(XAuf_Text,i1 + 1). i1 = INDEX(XAuf_Text, CHR(10)). i2 = i2 + 1. END. IF XAuf_Text <> '' THEN DO: SUBSTRING(VZeile,001) = XAuf_Text. { v8/putstreamf.i "1" } i2 = i2 + 1. END. IF i2 > 0 THEN DO: { v8/putstream.i "1" } END. LEAVE. END. IF LiKopf THEN DO: SUBSTRING(VZeile,001) = FormText[03]. SUBSTRING(VZeile,071) = FormText[04]. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = FormText[05]. SUBSTRING(VZeile,071) = FormText[06]. { v8/putstream.i "1" } END. ELSE DO: { v8/putstream.i "1" } END. IF VSeite > 1 AND FUeber = TRUE THEN DO: SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[09],41,20)). SUBSTRING(VZeile,083) = STRING(VFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "2" } END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LIEFERPREIS C-Win PROCEDURE LIEFERPREIS : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ VSeite = 0. VFak_Betr = 0. LiKopf = TRUE. FPreis = TRUE. FBetrag = FALSE. FRabatt = FALSE. FSamm = FALSE. VKopfArt = 'LIEFERSCHEIN_KOPF'. RUN VALUE(VKopfArt). FOR EACH TSavze NO-LOCK BY TSavze.Aufnr BY TSavze.Sort1 BY TSavze.Sort2 BY TSavze.Sort3 BY TSavze.Artnr BY TSavze.Inhalt BY TSavze.Jahr BY TSavze.Pos : IF (BLiDruck.Listtzz - VLine - 2) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. FIND Savze WHERE RECID(Savze) = TSavze.Zeile NO-LOCK. RUN ARTIKELZEILE. VFak_Betr = VFak_Betr + Savze.Net_Betr. END. VZeile = FILL(cWag, StBreite). { v8/putstream.i "2" } LiKopf = FALSE. RUN GEBINDE_SALDO. RUN GEBINDE_LIEFERUNG. RUN GEBINDE_RUECKNAHME_TABELLE. RUN KOPF_MUTATION. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LIEFERSCHEIN C-Win PROCEDURE LIEFERSCHEIN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ VSeite = 0. VFak_Betr = 0. LiKopf = TRUE. FPreis = FALSE. FBetrag = FALSE. FRabatt = FALSE. FSamm = FALSE. VKopfArt = 'LIEFERSCHEIN_KOPF'. RUN VALUE(VKopfArt). FOR EACH TSavze NO-LOCK BY TSavze.Aufnr BY TSavze.Sort1 BY TSavze.Sort2 BY TSavze.Sort3 BY TSavze.Artnr BY TSavze.Inhalt BY TSavze.Jahr BY TSavze.Pos : IF (BLiDruck.Listtzz - VLine - 2) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. FIND Savze WHERE RECID(Savze) = TSavze.Zeile NO-LOCK. RUN ARTIKELZEILE. VFak_Betr = VFak_Betr + Savze.Net_Betr. END. VZeile = FILL(cWag, StBreite). { v8/putstream.i "2" } LiKopf = FALSE. RUN GEBINDE_SALDO. RUN GEBINDE_LIEFERUNG. RUN GEBINDE_RUECKNAHME_TABELLE. RUN KOPF_MUTATION. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LIEFERSCHEIN_KOPF C-Win PROCEDURE LIEFERSCHEIN_KOPF : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ RUN NEUE_SEITE. IF VSeite = 1 THEN DO: IF Laser THEN DO: VZeile = DruckInit + SchriftInit. CASE Schacht: WHEN 1 THEN VZeile = VZeile + Schacht1. WHEN 2 THEN VZeile = VZeile + Schacht2. WHEN 3 THEN VZeile = VZeile + Schacht3. WHEN 4 THEN VZeile = VZeile + Schacht4. END CASE. PUT STREAM Out_Stream CONTROL VZeile. END. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = BSavko.Knr NO-LOCK NO-ERROR. FIND LDebst USE-INDEX Debst-k1 WHERE LDebst.Firma = GVFirma AND LDebst.Knr = BSavko.Knr NO-LOCK NO-ERROR. FIND FDebst USE-INDEX Debst-k1 WHERE FDebst.Firma = GVFirma AND FDebst.Knr = BSavko.Fak_Knr NO-LOCK NO-ERROR. FIND Wust USE-INDEX Wust-k1 WHERE Wust.CodeK = LDebst.MWST AND Wust.CodeA = 99 NO-LOCK NO-ERROR. LVSprcd = Adresse.Sprcd. DebInkl = FALSE. IF AVAILABLE Wust THEN DebInkl = Wust.Incl. XTelnr = ''. IF DebInkl THEN DO: IF Adresse.Tel-2 <> '' THEN XTelnr = Adresse.Tel-2. ELSE XTelnr = Adresse.Tel-1. END. ELSE DO: IF Adresse.Tel-1 <> '' THEN XTelnr = Adresse.Tel-1. ELSE XTelnr = Adresse.Tel-2. END. END. F_Seite = VSeite. F_Faknr = BSavko.Faknr. DISPLAY F_Seite F_Faknr WITH FRAME {&FRAME-NAME}. VZeile = ''. { v8/putstream.i BLiDruck.Listkzz }. IF BSavko.Adresse[05] <> '' THEN DO: DO ix = 1 TO 5: SUBSTRING(VZeile,053) = BSavko.Adresse[ix]. IF ix = 5 THEN DO: { v8/putstreamf.i "1" }. END. ELSE DO: { v8/putstream.i "1" }. END. END. END. ELSE DO: DO ix = 7 TO 11: SUBSTRING(VZeile,053) = Adresse.Anschrift[ix]. IF ix = 11 THEN DO: { v8/putstreamf.i "1" }. END. ELSE DO: { v8/putstream.i "1" }. END. END. END. SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[02],01,20)) + STRING(BSavko.Aufnr,"z999999") + " /" + STRING(VSeite,"zz9"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[18],01,20)) + " " + BSteuer.MWST_Nr. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],01,20)) + " " + STRING(FDatum,"99.99.9999"). { v8/putstream.i "2" } DO WHILE VSeite = 1. RUN ABLADEVORSCHRIFT. RUN VERSANDART. RUN CHAUFFEUR. SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],21,20)) + " " + BSavko.I_Best. SUBSTRING(VZeile,061) = TRIM(SUBSTRING(FormText[08],21,20)) + STRING(BSavko.Gewicht,"zzz,zz9.999-"). { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],41,20)) + " " + STRING(BSavko.Auf_Datum,"99.99.9999"). SUBSTRING(VZeile,033) = TRIM(SUBSTRING(FormText[08],01,20)) + STRING(BSavko.Knr,"zz999999"). SUBSTRING(VZeile,061) = TRIM(SUBSTRING(FormText[08],41,20)) + " " + XTelnr. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[09],21,20)) + " " + STRING(BSavko.Lief_Datum,"99.99.9999"). SUBSTRING(VZeile,033) = TRIM(SUBSTRING(FormText[09],01,20)) + " " + XVersand + " / " + XChauffeur. { v8/putstream.i "2" } /* SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[22],01,20)) * + " " * + XChauffeur. * { v8/putstream.i "2" } * */ IF XAblade <> '' THEN DO: SUBSTRING(VZeile,001) = XAblade. { v8/putstreamf.i "2" } END. XAuf_Text = BSavko.Auf_Text. i1 = INDEX(XAuf_Text, CHR(10)). i2 = 0. DO WHILE i1 > 0: SUBSTRING(VZeile,001) = SUBSTRING(XAuf_Text,01,i1 - 1). { v8/putstreamf.i "1" } XAuf_Text = SUBSTRING(XAuf_Text,i1 + 1). i1 = INDEX(XAuf_Text, CHR(10)). i2 = i2 + 1. END. IF XAuf_Text <> '' THEN DO: SUBSTRING(VZeile,001) = XAuf_Text. { v8/putstreamf.i "1" } i2 = i2 + 1. END. IF i2 > 0 THEN DO: { v8/putstream.i "1" } END. XAuf_Text = BSavko.Abh_Text. i1 = INDEX(XAuf_Text, CHR(10)). i2 = 0. DO WHILE i1 > 0: SUBSTRING(VZeile,001) = SUBSTRING(XAuf_Text,01,i1 - 1). { v8/putstreamf.i "1" } XAuf_Text = SUBSTRING(XAuf_Text,i1 + 1). i1 = INDEX(XAuf_Text, CHR(10)). i2 = i2 + 1. END. IF XAuf_Text <> '' THEN DO: SUBSTRING(VZeile,001) = XAuf_Text. { v8/putstreamf.i "1" } i2 = i2 + 1. END. IF i2 > 0 THEN DO: { v8/putstream.i "1" } END. LEAVE. END. IF LiKopf THEN DO: SUBSTRING(VZeile,001) = FormText[03]. SUBSTRING(VZeile,071) = FormText[04]. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = FormText[05]. SUBSTRING(VZeile,071) = FormText[06]. StBreite = LENGTH(VZeile). { v8/putstream.i "1" } END. ELSE DO: { v8/putstream.i "1" } END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE MEHRWERTSTEUER C-Win PROCEDURE MEHRWERTSTEUER : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ VWpfl = 0. VWust = 0. Zuszz = 0. DO ix = 1 TO 11: IF BSavko.WPfl[ix] = 0 THEN NEXT. VWpfl[ix] = BSavko.Wpfl[ix]. VWust[ix] = BSavko.Wust[ix]. Zuszz = Zuszz + 1. END. IF Zuszz > 0 THEN Zuszz + 4. IF (BLiDruck.Listtzz - VLine - Zuszz) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. DO ix = 1 TO 11: IF VWpfl[ix] = 0 THEN NEXT. FIND LAST MWSTAns USE-INDEX MWSTAns-k1 WHERE MWSTAns.MWST_Cd = ix AND MWSTAns.Datum <= BSavko.Kond_Datum NO-LOCK. SUBSTRING(VZeile,027) = MWSTAns.Bez. SUBSTRING(VZeile,065) = STRING(VWpfl[ix],"->>,>>9.99"). SUBSTRING(VZeile,083) = STRING(VWust[ix],"->>,>>9.99"). SUBSTRING(VZeile,094) = STRING(ix ,"z9"). { v8/putstream.i "1" } VFak_Betr = VFak_Betr + VWust[ix]. END. Rundbetr = VFak_Betr. Rundcode = 1. RUN "v8/runden.p". VFak_Betr = Rundbetr. SUBSTRING(VZeile,027) = FILL(cWag, StBreite - 026). { v8/putstream.i "1" } SUBSTRING(VZeile,027) = TRIM(FormText[16]). SUBSTRING(VZeile,083) = STRING(VFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "1" } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE NEUE_SEITE C-Win PROCEDURE NEUE_SEITE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR A AS INT NO-UNDO. DEF VAR B AS INT NO-UNDO. DO WHILE VSeite > 0: IF DOpen THEN DO: PUT STREAM Out_Stream CHR(12). LEAVE. END. A = BLiDruck.Listtzz. DO B = VLine TO A: VZNr = VZNr + 1. CREATE XTermOut. ASSIGN XTermOut.ZNr = VZNr XTermOut.Zeile = ''. END. LEAVE. END. VLine = 0. VSeite = VSeite + 1. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE PRUEFZIFFER C-Win PROCEDURE PRUEFZIFFER : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ /* ------------------------------------------------------------------------- */ /* Prufziffer MODULO 10, Rekursiv (27 Stellig Ref.-Nr.) */ /* ------------------------------------------------------------------------- */ /* */ /* Uebergabe Variable: 1. String Betrag (12-stellig) */ /* 2. String Referenz (27-stellig) */ /* 3. String Teilnehmernummer ( 9-stellig) */ /* */ /* Erstellung der VESR-Codierzeile */ /* */ /*---------------------------------------------------------------------------*/ DEF INPUT-OUTPUT PARAMETER PZBetrag AS CHAR FORMAT "x(13)". DEF INPUT-OUTPUT PARAMETER PZReferenz AS CHAR FORMAT "x(27)". DEF INPUT-OUTPUT PARAMETER PZTNummer AS CHAR FORMAT "x(09)". DEF OUTPUT PARAMETER VSZeile AS CHAR FORMAT "x(58)". DEF VAR l1 AS INT. DEF VAR l2 AS INT. DEF VAR l3 AS INT. DEF VAR PZ AS INT. DEF VAR x1 AS INT. DEF VAR x2 AS INT. DEF VAR x3 AS INT. DEF VAR VMOD10 AS CHAR FORMAT "x(11)" EXTENT 11. VMOD10[01] = "09468271350". VMOD10[02] = "94682713509". VMOD10[03] = "46827135098". VMOD10[04] = "68271350947". VMOD10[05] = "82713509466". VMOD10[06] = "27135094685". VMOD10[07] = "71350946824". VMOD10[08] = "13509468273". VMOD10[09] = "35094682712". VMOD10[10] = "50946827131". l1 = 12. l2 = 26. l3 = 08. DO WHILE SUBSTRING(PZBetrag,01,01) <> " ": /* Mit Betrag */ x2 = 1. x1 = INT(SUBSTRING(PZBetrag ,01 ,01)). x2 = INT(SUBSTRING(VMOD10[x2],x1 + 1,01)). DO x3 = 2 TO 12: x1 = INT(SUBSTRING(PZBetrag ,x3 ,01)). x2 = INT(SUBSTRING(VMOD10[x2 + 1],x1 + 1,01)). END. PZ = INT(SUBSTRING(VMOD10[x2 + 1],11,1)). SUBSTRING(PZBetrag,13) = STRING(PZ,"9"). LEAVE. END. DO WHILE SUBSTRING(PZBetrag,01,01) = " ": /* Ohne Betrag */ x2 = 11. x1 = INT(SUBSTRING(PZBetrag ,01 ,01)). x2 = INT(SUBSTRING(VMOD10[x2],x1 + 1,01)). DO x3 = 12 TO 12: x1 = INT(SUBSTRING(PZBetrag ,x3 ,01)). x2 = INT(SUBSTRING(VMOD10[x2 + 1],x1 + 1,01)). END. PZ = INT(SUBSTRING(VMOD10[x2 + 1],11,1)). SUBSTRING(PZBetrag,13) = STRING(PZ,"9"). LEAVE. END. DO WHILE l2 = 26: x2 = 1. x1 = INT(SUBSTRING(PZReferenz,01 ,01)). x2 = INT(SUBSTRING(VMOD10[x2],x1 + 1,01)). DO x3 = 2 TO 26: x1 = INT(SUBSTRING(PZReferenz ,x3 ,01)). x2 = INT(SUBSTRING(VMOD10[x2 + 1],x1 + 1,01)). END. PZ = INT(SUBSTRING(VMOD10[x2 + 1],11,1)). SUBSTRING(PZReferenz,27) = STRING(PZ,"9"). LEAVE. END. DO WHILE l3 = 08: x2 = 1. x1 = INT(SUBSTRING(PZTNummer ,01 ,01)). x2 = INT(SUBSTRING(VMOD10[x2],x1 + 1,01)). DO x3 = 2 TO 08: x1 = INT(SUBSTRING(PZTNummer ,x3 ,01)). x2 = INT(SUBSTRING(VMOD10[x2 + 1],x1 + 1,01)). END. PZ = INT(SUBSTRING(VMOD10[x2 + 1],11,1)). SUBSTRING(PZTNummer,09) = STRING(PZ,"9"). LEAVE. END. VSZeile = "". SUBSTRING(VSZeile,01) = PZBetrag. SUBSTRING(VSZeile,14) = ">". SUBSTRING(VSZeile,15) = PZReferenz. SUBSTRING(VSZeile,42) = "+ ". SUBSTRING(VSZeile,44) = PZTNummer. SUBSTRING(VSZeile,53) = ">". SUBSTRING(VSZeile,58) = "H". END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SAMMELSUCHEN C-Win PROCEDURE SAMMELSUCHEN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ FIND FIRST SammFak WHERE SammFak.Knr = BSavko.Fak_Knr AND SammFak.Samm_Nr = BSavko.Samm_Nr NO-ERROR. IF AVAILABLE SammFak THEN RETURN. SFaknr = 0. FOR EACH Savko USE-INDEX Savko-k4 WHERE Savko.Firma = BSavko.Firma AND Savko.Knr = BSavko.Knr AND Savko.Fak_Art = BSavko.Fak_Art AND Savko.Faknr = BSavko.Faknr AND Savko.Samm_Nr = BSavko.Samm_Nr NO-LOCK: IF SFaknr = 0 THEN SFaknr = Savko.Faknr. CREATE SammFak. ASSIGN SammFak.Knr = Savko.Fak_Knr SammFak.Aufnr = Savko.Aufnr SammFak.Samm_Nr = Savko.Faknr SammFak.RID = RECID(Savko). END. FOR EACH SammFak: SammFak.Faknr = SFaknr. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SAMMFAK C-Win PROCEDURE SAMMFAK : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ Zuszz = 8. LiKopf = TRUE. FPreis = TRUE. FBetrag = TRUE. FRabatt = TRUE. FUeber = FALSE. FSamm = TRUE. VKopfArt = 'SAMMFAK_KOPF'. IF (BLiDruck.Listtzz - VLine - Zuszz ) < BLiDruck.Listfzz THEN DO: TiDruck = TRUE. END. IF TiDruck THEN DO: RUN VALUE(VKopfArt). END. ELSE DO: { v8/putstream.i "2" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[17],21,20)) + " " + STRING(BSavko.Aufnr,"zzzzzzzzz9"). { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],41,20)) + " " + STRING(BSavko.Auf_Datum,"99.99.9999"). { v8/putstream.i "2" } SUBSTRING(VZeile,001) = FormText[03]. SUBSTRING(VZeile,071) = FormText[04]. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = FormText[05]. SUBSTRING(VZeile,071) = FormText[06]. { v8/putstream.i "1" } END. LiefAdr = ''. IF BSavko.Knr <> BSavko.Fak_Knr THEN DO: FIND BAdresse USE-INDEX Adresse-k1 WHERE BAdresse.Firma = AdFirma AND BAdresse.Knr = BSavko.Knr NO-LOCK NO-ERROR. LiefAdr = BAdresse.Anzeig_Br. END. IF LiefAdr <> '' THEN DO: VZeile = LiefAdr. { v8/putstreamf.i "1" } END. FOR EACH TSavze NO-LOCK BY TSavze.Aufnr BY TSavze.Sort1 BY TSavze.Sort2 BY TSavze.Sort3 BY TSavze.Artnr BY TSavze.Inhalt BY TSavze.Jahr BY TSavze.Pos : IF (BLiDruck.Listtzz - VLine - 2) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. FIND Savze WHERE RECID(Savze) = TSavze.Zeile NO-LOCK. RUN ARTIKELZEILE. VFak_Betr = VFak_Betr + Savze.Net_Betr. END. VZeile = FILL(cWag, StBreite). { v8/putstream.i "1" } SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[10],41,20)). SUBSTRING(VZeile,083) = STRING(VFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "1" } LiKopf = FALSE. RUN SUMMENRABATTE. { v8/putstream.i "1" } RUN GEBINDE_SALDO. RUN GEBINDE_ABRECHNUNG. DO ix = 1 TO 12: GTWpfl[ix] = GTWpfl[ix] + BSavko.Wpfl[ix]. GTWust[ix] = GTWust[ix] + BSavko.Wust[ix]. END. GTFak_Betr = GTFak_Betr + VFak_Betr. GTSk_Ber = GTSk_Ber + BSavko.Sk_Ber. RUN KOPF_MUTATION. TiDruck = FALSE. IF FLetzt THEN RUN SAMMFAK_ENDE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SAMMFAK_ENDE C-Win PROCEDURE SAMMFAK_ENDE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ SUBSTRING(VZeile,027) = FILL(cWag, StBreite - 026). { v8/putstream.i "1" } SUBSTRING(VZeile,027) = TRIM(SUBSTRING(FormText[14],01,20)). SUBSTRING(VZeile,083) = STRING(GTFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,027) = FILL(cWag, StBreite - 026). { v8/putstream.i "1" } DO ix = 1 TO 11: IF GTWpfl[ix] = 0 THEN NEXT. GTFak_Betr = GTFak_Betr + GTWust[ix]. Zuszz = Zuszz + 1. END. IF Zuszz > 0 THEN Zuszz = Zuszz + 6. IF (BLiDruck.Listtzz - VLine - Zuszz) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. DO ix = 1 TO 11: IF GTWpfl[ix] = 0 THEN NEXT. FIND LAST MWSTAns USE-INDEX MWSTAns-k1 WHERE MWSTAns.MWST_Cd = ix AND MWSTAns.Datum <= BSavko.Kond_Datum NO-LOCK. SUBSTRING(VZeile,027) = MWSTAns.Bez. SUBSTRING(VZeile,065) = STRING(GTWpfl[ix],"->>,>>9.99"). SUBSTRING(VZeile,083) = STRING(GTWust[ix],"->>,>>9.99"). SUBSTRING(VZeile,094) = STRING(ix ,"z9"). { v8/putstream.i "1" } END. Rundbetr = GTFak_Betr. Rundcode = 1. RUN "v8/runden.p". GTFak_Betr = Rundbetr. SUBSTRING(VZeile,027) = FILL(cWag, StBreite - 026). { v8/putstream.i "1" } SUBSTRING(VZeile,027) = TRIM(FormText[16]). SUBSTRING(VZeile,083) = STRING(GTFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,083) = FILL('=', StBreite - 082). { v8/putstream.i "2" } FIND Kondi USE-INDEX Kondi-k1 WHERE Kondi.Kond = BSavko.Kond AND Kondi.Sprcd = LVSprcd NO-LOCK NO-ERROR. IF AVAILABLE Kondi THEN DO: SUBSTRING(VZeile,001) = Kondi.KoText. IF Kondi.Skonto[01] <> 0 THEN DO: Rundbetr = GTSk_Ber * Kondi.Skonto[01] / 100. Rundcode = 1. RUN "v8/runden.p". SUBSTRING(VZeile,083) = STRING(Rundbetr,"->>,>>9.99"). END. END. ELSE DO: SUBSTRING(VZeile,001) = FILL('?', 30). END. { v8/putstream.i "2" } RUN UMSATZVERTEILUNG. VZeile = CHR(12). { v8/putstream.i "1" } Rundbetr = GTFak_Betr. VesrKnr = BSavko.Fak_Knr. VesrFnr = BSavko.Faknr. IF VBesr = 2 THEN RUN VESR_DRUCK02. ELSE RUN VESR_DRUCK. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SAMMFAK_KOPF C-Win PROCEDURE SAMMFAK_KOPF : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ RUN NEUE_SEITE. IF VSeite = 1 THEN DO: IF Laser THEN DO: VZeile = DruckInit + SchriftInit. CASE Schacht: WHEN 1 THEN VZeile = VZeile + Schacht1. WHEN 2 THEN VZeile = VZeile + Schacht2. WHEN 3 THEN VZeile = VZeile + Schacht3. WHEN 4 THEN VZeile = VZeile + Schacht4. END CASE. PUT STREAM Out_Stream CONTROL VZeile. END. SFaknr = BSavko.Faknr. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = BSavko.Fak_Knr NO-LOCK NO-ERROR. FIND LDebst USE-INDEX Debst-k1 WHERE LDebst.Firma = GVFirma AND LDebst.Knr = BSavko.Knr NO-LOCK NO-ERROR. FIND FDebst USE-INDEX Debst-k1 WHERE FDebst.Firma = GVFirma AND FDebst.Knr = BSavko.Fak_Knr NO-LOCK NO-ERROR. FIND Wust USE-INDEX Wust-k1 WHERE Wust.CodeK = LDebst.MWST AND Wust.CodeA = 99 NO-LOCK NO-ERROR. LVSprcd = Adresse.Sprcd. DebInkl = FALSE. IF AVAILABLE Wust THEN DebInkl = Wust.Incl. END. F_Seite = VSeite. F_Faknr = SFaknr. DISPLAY F_Seite F_Faknr WITH FRAME {&FRAME-NAME}. VZeile = ''. { v8/putstream.i BLiDruck.Listkzz }. DO ix = 6 TO 12: SUBSTRING(VZeile,056) = Adresse.Anschrift[ix]. IF ix = 11 THEN DO: { v8/putstreamf.i "1" }. END. ELSE DO: { v8/putstream.i "1" }. END. END. SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[02],01,20)) + STRING(SFaknr,"z999999") + " /" + STRING(VSeite,"zz9"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[18],01,20)) + " " + BSteuer.MWST_Nr. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],01,20)). SUBSTRING(VZeile,012) = STRING(FDatum,"99.99.9999"). { v8/putstream.i "2" } IF VSeite = 1 THEN DO: END. DO WHILE TiDruck. SUBSTRING(VZeile,001) = TRIM (SUBSTRING(FormText[17],21,20)) + " " + STRING(BSavko.Aufnr,"zzzzzzzzz9"). { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM (SUBSTRING(FormText[07],41,20)) + " " + STRING(BSavko.Auf_Datum,"99.99.9999"). SUBSTRING(VZeile,056) = TRIM(SUBSTRING(FormText[08],01,20)) + STRING(BSavko.Fak_Knr,"zz999999"). { v8/putstream.i "2" } LEAVE. END. IF LiKopf THEN DO: SUBSTRING(VZeile,001) = FormText[03]. SUBSTRING(VZeile,071) = FormText[04]. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = FormText[05]. SUBSTRING(VZeile,071) = FormText[06]. StBreite = LENGTH(VZeile). { v8/putstream.i "1" } END. ELSE DO: { v8/putstream.i "1" } END. IF VSeite > 1 AND FUeber = TRUE THEN DO: SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[09],41,20)). SUBSTRING(VZeile,083) = STRING(VFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "2" } END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SUMMENRABATTE C-Win PROCEDURE SUMMENRABATTE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR RText AS CHAR FORMAT "x(20)" NO-UNDO. DEF VAR WText AS CHAR NO-UNDO. DO WHILE FRabatt: Zuszz = 0. FOR EACH TRabSumm NO-LOCK: IF TRabSumm.Auf_Rab <> 0 THEN Zuszz = Zuszz + 1. IF TRabSumm.Abh_Rab <> 0 THEN Zuszz = Zuszz + 1. END. FOR EACH TSpeRab WHERE TSpeRab.Auf_Betr <> 0 NO-LOCK: Zuszz = Zuszz + 1. END. /* Receycling */ FOR EACH SavGKon USE-INDEX SavGKon-k1 WHERE SavGKon.Firma = BSavko.Firma AND SavGKon.Aufnr = BSavko.Aufnr AND SavGKon.Gebuehr <> 0 AND SavGKon.Betrag <> 0 NO-LOCK: Zuszz = Zuszz + 1. END. IF Zuszz > 0 THEN Zuszz = Zuszz + 7. IF (BLiDruck.Listtzz - VLine - Zuszz) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. LEAVE. END. /* Auftragsrabatt ---------------------------------------------------- */ i5 = 0. FOR EACH TRabSumm WHERE TRabSumm.Auf_Rab <> 0 BY TRabSumm.Rab_Summ: Rundbetr = TRabSumm.Auf_Rab. VFak_Betr = VFak_Betr - Rundbetr. IF NOT FRabatt THEN NEXT. IF Rundbetr < 0 THEN RText = VZusText. ELSE RText = VRabText. FIND FIRST SavRabSu USE-INDEX SavRabSu-k1 WHERE SavRabSu.Firma = BSavko.Firma AND SavRabSu.Aufnr = BSavko.Aufnr AND SavRabSu.Rab_Summ = TRabSumm.Rab_Summ NO-LOCK. IF SavRabSu.F_Art = 1 THEN WText = "%". ELSE WText = "Fr.". RabWert = ABSOLUT(SavRabSu.F_Wert). SUBSTRING(VZeile,036) = RText + " " + TRabSumm.Bez. SUBSTRING(VZeile,055) = STRING(RabWert,"z9.99-") + WText. SUBSTRING(VZeile,083) = STRING(- Rundbetr,"->>,>>9.99"). { v8/putstream.i "1" } i5 = i5 + 1. END. /* Abholrabatt ------------------------------------------------------- */ FOR EACH TRabSumm WHERE TRabSumm.Abh_Rab <> 0 BY TRabSumm.Rab_Summ: Rundbetr = TRabSumm.Abh_Rab. VFak_Betr = VFak_Betr - Rundbetr. IF NOT FRabatt THEN NEXT. IF Rundbetr < 0 THEN RText = VZusText. ELSE RText = VRabText. FIND FIRST SavRabSu USE-INDEX SavRabSu-k1 WHERE SavRabSu.Firma = BSavko.Firma AND SavRabSu.Aufnr = BSavko.Aufnr AND SavRabSu.Rab_Summ = TRabSumm.Rab_Summ NO-LOCK. IF SavRabSu.A_Art = 1 THEN WText = "%". ELSE WText = "Fr.". RabWert = ABSOLUT(SavRabSu.A_Wert). SUBSTRING(VZeile,036) = RText + " " + TRabSumm.Bez. SUBSTRING(VZeile,055) = STRING(RabWert,"z9.99-") + WText. SUBSTRING(VZeile,083) = STRING(- Rundbetr,"->>,>>9.99"). { v8/putstream.i "1" } i5 = i5 + 1. END. /* Spezialpreis-Auftragsrabatte ---------------------------------------- */ FOR EACH TSpeRab WHERE TSpeRab.Auf_Betr <> 0 BY TSpeRab.Rab_Grp: Rundbetr = TSpeRab.Auf_Betr. VFak_Betr = VFak_Betr - Rundbetr. IF NOT FRabatt THEN NEXT. FIND Tabel USE-INDEX Tabel-k1 WHERE Tabel.Firma = GVFirma AND Tabel.RecArt = 'ARABGRP' AND Tabel.CodeC = '' AND Tabel.CodeI = TSpeRab.Rab_Grp AND Tabel.Sprcd = 1 NO-LOCK. IF Rundbetr < 0 THEN RText = VZusText. ELSE RText = VRabText. FIND FIRST SavSpRab USE-INDEX SavSpRab-k1 WHERE SavSpRab.Firma = BSavko.Firma AND SavSpRab.Aufnr = BSavko.Aufnr AND SavSpRab.Rab_Grp = TSpeRab.Rab_Grp NO-LOCK. IF SavSpRab.Auf_Proz_Betr THEN WText = "%". ELSE WText = "Fr.". RabWert = ABSOLUT(SavSpRab.Auf_Wert). SUBSTRING(VZeile,036) = RText + " " + TRIM(Tabel.Bez1). SUBSTRING(VZeile,055) = STRING(RabWert,"z9.99-") + WText. SUBSTRING(VZeile,083) = STRING(- Rundbetr,"->>,>>9.99"). { v8/putstream.i "1" } i5 = i5 + 1. END. IF i5 > 0 THEN DO: SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[14],21,20)). SUBSTRING(VZeile,083) = STRING(VFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "1" } END. /* Recycling-Gebühren ------------------------------------------------ */ i5 = 0. FOR EACH SavGKon USE-INDEX SavGKon-k1 WHERE SavGKon.Firma = BSavko.Firma AND SavGKon.Aufnr = BSavko.Aufnr AND SavGKon.Gebuehr <> 0 AND SavGKon.Betrag <> 0 NO-LOCK: VFak_Betr = VFak_Betr + SavGKon.Betrag. IF NOT FRabatt THEN NEXT. VWC = SavGKon.MWSt_Cd. SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[11],41,20)). SUBSTRING(VZeile,083) = STRING(SavGKon.Betrag ,"->>,>>9.99"). SUBSTRING(VZeile,094) = STRING(SavGKon.MWSt_Cd ,"z9"). { v8/putstream.i "1" } i5 = i5 + 1. FIND LAST MWSTAns USE-INDEX MWSTAns-k1 WHERE MWSTAns.MWST_Cd = VWC AND MWSTAns.Datum <= FDatum NO-LOCK NO-ERROR. FIND FIRST TUmsGrp WHERE TUmsGrp.Ums_Grp = 9991 AND TUmsGrp.Mwst = MWSTAns.Ansatz NO-ERROR. IF NOT AVAILABLE TUmsGrp THEN DO: CREATE TUmsGrp. ASSIGN TUmsGrp.Ums_Grp = 9991 TUmsGrp.Mwst = MWSTAns.Ansatz TUmsGrp.Bez = 'Recycling-Gebühren'. END. TUmsGrp.Ums_Betr = TUmsGrp.Ums_Betr + SavGKon.Betrag. END. IF i5 > 0 THEN DO: SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[14],41,20)). SUBSTRING(VZeile,083) = STRING(VFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "1" } END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE UMSATZVERTEILUNG C-Win PROCEDURE UMSATZVERTEILUNG : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR Total1 AS DEC NO-UNDO. DEF VAR Total2 AS DEC NO-UNDO. DEF VAR Total3 AS DEC NO-UNDO. DEF VAR Brutto AS DEC NO-UNDO. DEF VAR cDaten AS CHAR NO-UNDO. DEF VAR fInkl AS LOG NO-UNDO. RUN FIND_PREISGRUPPE ( INPUT BSavko.Preis_Grp, OUTPUT cDaten ). IF INTEGER(ENTRY(3, cDaten, CHR(01))) = 0 THEN fInkl = FALSE. ELSE fInkl = TRUE. Zuszz = 0. Ja = FALSE. FOR EACH TUmsGrp NO-LOCK: Zuszz = Zuszz + 1. END. IF Zuszz > 0 THEN DO: Zuszz = Zuszz + 2. Ja = TRUE. END. IF (BLiDruck.Listtzz - VLine - Zuszz) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. IF Ja THEN DO: SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[15],41,20)). { v8/putstreamf.i "1" } END. Total1 = 0. Total2 = 0. Total3 = 0. FOR EACH TUmsGrp WHERE TUmsGrp.Ums_Betr <> 0 NO-LOCK BY TUmsGrp.Ums_Grp : IF fInkl THEN Rundbetr = TUmsGrp.Ums_Betr * TUmsGrp.Mwst / (100 + TUmsGrp.Mwst). ELSE Rundbetr = TUmsGrp.Ums_Betr * TUmsGrp.Mwst / 100. IF fInkl THEN Brutto = TUmsGrp.Ums_Betr. ELSE Brutto = TUmsGrp.Ums_Betr + Rundbetr. SUBSTRING(VZeile,001) = TUmsGrp.Bez. SUBSTRING(VZeile,040) = BSteuer.Fwc03. SUBSTRING(VZeile,050) = STRING(TUmsGrp.Ums_Betr,"->>>,>>9.99"). SUBSTRING(VZeile,065) = STRING(TUmsGrp.Mwst ,"z9.99%"). SUBSTRING(VZeile,071) = STRING(Rundbetr ,"->>>,>>9.99"). SUBSTRING(VZeile,082) = STRING(Brutto ,"->>>,>>9.99"). { v8/putstream.i "1" } Total1 = Total1 + TUmsGrp.Ums_Betr. Total2 = Total2 + Rundbetr. Total3 = Total3 + Brutto. END. SUBSTRING(VZeile,050) = STRING(Total1,"->>>,>>9.99"). SUBSTRING(VZeile,071) = STRING(Total2,"->>>,>>9.99"). SUBSTRING(VZeile,082) = STRING(Total3,"->>>,>>9.99"). { v8/putstreamf.i "1" } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE VERSANDART C-Win PROCEDURE VERSANDART : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ XVersand = ''. FIND Tabel USE-INDEX Tabel-k1 WHERE Tabel.Firma = GVFirma AND Tabel.RecArt = 'LIEFART' AND Tabel.CodeC = '' AND Tabel.CodeI = BSavko.Lief_Bed AND Tabel.Sprcd = 1 NO-LOCK NO-ERROR. IF AVAILABLE Tabel THEN XVersand = Tabel.Bez1. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE VESR_DRUCK C-Win PROCEDURE VESR_DRUCK : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ IF VBesr = 0 THEN RETURN. FIND Kondi USE-INDEX Kondi-k1 WHERE Kondi.Kond = BSavko.Kond AND Kondi.Sprcd = LVSprcd NO-LOCK NO-ERROR. IF AVAILABLE Kondi THEN DO: IF Kondi.Skonto[01] <> 0 THEN Rundbetr = 0. END. DEF VAR VVESR AS CHAR FORMAT "x(90)" EXTENT 25. DEF VAR PZBetrag AS CHAR FORMAT "x(13)". DEF VAR PZReferenz AS CHAR FORMAT "x(27)". DEF VAR PZTNummer AS CHAR FORMAT "x(09)". DEF VAR VSZeile AS CHAR FORMAT "x(58)". DEF VAR VZeile AS CHAR FORMAT "x(58)". DEF VAR XArt AS INT. DEF VAR XAnz AS INT. DEF VAR XBetr AS CHAR FORMAT "x(20)". DEF VAR VESR_P AS CHAR FORMAT "x(02)". DEF VAR VESR AS CHAR FORMAT "x(02)". DEF VAR DruBetr AS DEC NO-UNDO. DEF VAR XBetrag AS CHAR FORMAT "x(12)" NO-UNDO. i1 = BLiDruck.Listtzz - VLine. { v8/putstream.i i1 } IF Rundbetr <= 0 THEN DruBetr = 0. ELSE DruBetr = Rundbetr. DO WHILE TRUE: PZBetrag = ''. XBetrag = ''. IF DruBetr < 0 THEN DO: PZBetrag = FILL('*', 13). PZReferenz = FILL('*', 27). PZTNummer = FILL('*', 09). XBetrag = FILL('*', 12). END. ELSE DO: IF DruBetr > 0 THEN DO: PZBetrag = "01" + STRING(Rundbetr * 100,"9999999999 "). XBetrag = STRING((Rundbetr * 100),"zz,zzz,zz999"). END. IF DruBetr = 0 THEN DO: PZBetrag = " 04 ". END. PZReferenz = "996665000000" + STRING(VesrKnr,"999999") + "0" + STRING(VesrFnr,"9999999") + " ". PZTNummer = "01000530". RUN PRUEFZIFFER ( INPUT-OUTPUT PZBetrag , INPUT-OUTPUT PZReferenz, INPUT-OUTPUT PZTNummer, OUTPUT VSZeile ). END. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = VesrKnr NO-LOCK NO-ERROR. VVesr = "". SUBSTRING(VVesr[01],01) = "Graubündner Kantonalbank". SUBSTRING(VVesr[01],30) = "Graubündner Kantonalbank". SUBSTRING(VVesr[02],01) = "7002 Chur". SUBSTRING(VVesr[02],30) = "7002 Chur". SUBSTRING(VVesr[05],01) = "Oswald Getränke AG". SUBSTRING(VVesr[05],30) = "Oswald Getränke AG". SUBSTRING(VVesr[06],01) = "Via Santeri 76". SUBSTRING(VVesr[06],30) = "Via Santeri 76". SUBSTRING(VVesr[07],01) = "7130 Ilanz". SUBSTRING(VVesr[07],30) = "7130 Ilanz". SUBSTRING(VVesr[09],14) = "01-530-4". SUBSTRING(VVesr[09],43) = "01-530-4". SUBSTRING(VVesr[07],61) = STRING(PZReferenz,"XX XXXXX XXXXX XXXXX XXXXX XXXXX"). SUBSTRING(VVesr[11],09) = STRING(XBetrag,"XXXXXXXXXX XX"). SUBSTRING(VVesr[11],38) = STRING(XBetrag,"XXXXXXXXXX XX"). SUBSTRING(VVesr[11],61) = Adresse.Anschrift[08]. SUBSTRING(VVesr[12],61) = Adresse.Anschrift[09]. SUBSTRING(VVesr[13],61) = Adresse.Anschrift[10]. SUBSTRING(VVesr[14],61) = Adresse.Anschrift[11]. SUBSTRING(VVesr[15],61) = Adresse.Anschrift[12]. SUBSTRING(VZeile,001) = STRING(PZReferenz,"XX XXXXX XXXXX XXXXX XXXXX XXXXX"). SUBSTRING(VVesr[13],04) = SUBSTRING(VZeile,01,14). SUBSTRING(VVesr[14],01) = SUBSTRING(VZeile,16,17). SUBSTRING(VVesr[15],01) = Adresse.Anschrift[09]. SUBSTRING(VVesr[16],01) = Adresse.Anschrift[10]. SUBSTRING(VVesr[17],01) = Adresse.Anschrift[11]. SUBSTRING(VVesr[18],01) = Adresse.Anschrift[12]. SUBSTRING(VVesr[19],27) = STRING(VSZeile,"x(53)"). SUBSTRING(VVesr[19],84) = "H". VVesr[19] = BDrucker.Dru10cpi + BDrucker.DruLQb + CHR(27) + "k" + CHR(05) + VVesr[19] + CHR(27) + "k" + CHR(30) + BDrucker.DruLQe + BDrucker.Dru12cpi. DO ix = 1 TO 20: VZeile = VVesr[ix]. { v8/putstream.i "1" } END. LEAVE. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE VESR_DRUCK02 C-Win PROCEDURE VESR_DRUCK02 : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR rRand AS INT NO-UNDO. DEF VAR xx AS INT NO-UNDO. DEF VAR yy AS INT NO-UNDO. DEF VAR zPos AS CHAR NO-UNDO. IF VBesr <> 2 THEN RETURN. FIND Kondi USE-INDEX Kondi-k1 WHERE Kondi.Kond = BSavko.Kond AND Kondi.Sprcd = LVSprcd NO-LOCK NO-ERROR. IF AVAILABLE Kondi THEN DO: IF Kondi.Skonto[01] <> 0 THEN Rundbetr = 0. END. DEF VAR VVESR AS CHAR FORMAT "x(90)" EXTENT 25. DEF VAR PZBetrag AS CHAR FORMAT "x(13)". DEF VAR PZReferenz AS CHAR FORMAT "x(27)". DEF VAR PZTNummer AS CHAR FORMAT "x(09)". DEF VAR VSZeile AS CHAR FORMAT "x(58)". DEF VAR VZeile AS CHAR FORMAT "x(58)". DEF VAR XArt AS INT. DEF VAR XAnz AS INT. DEF VAR XBetr AS CHAR FORMAT "x(20)". DEF VAR VESR_P AS CHAR FORMAT "x(02)". DEF VAR VESR AS CHAR FORMAT "x(02)". DEF VAR DruBetr AS DEC NO-UNDO. DEF VAR XBetrag AS CHAR FORMAT "x(12)" NO-UNDO. FIND DTabel USE-INDEX Tabel-k1 WHERE DTabel.Firma = GVFirma AND DTabel.RecArt = 'FAKDRU' AND DTabel.CodeC = 'BESR02' AND DTabel.CodeI = 0 AND DTabel.Sprcd = 1 NO-LOCK NO-ERROR. VZeile = ''. CASE DTabel.Dec_3: WHEN 1.0 THEN VZeile = VZeile + Schacht1. WHEN 2.0 THEN VZeile = VZeile + Schacht2. WHEN 3.0 THEN VZeile = VZeile + Schacht3. WHEN 4.0 THEN VZeile = VZeile + Schacht4. END CASE. xx = 00. yy = 2345. VZeile = VZeile + CHR(27) + '*p' + STRING(yy) + 'y' + STRING(xx) + 'x' + CHR(10). i1 = 1. /* i1 = DTabel.Int_2. */ PUT STREAM Out_Stream CONTROL VZeile. IF Rundbetr <= 0 THEN DruBetr = 0. ELSE DruBetr = Rundbetr. DO WHILE TRUE: PZBetrag = ''. XBetrag = ''. IF DruBetr < 0 THEN DO: PZBetrag = FILL('*', 13). PZReferenz = FILL('*', 27). PZTNummer = FILL('*', 09). XBetrag = FILL('*', 12). END. ELSE DO: IF DruBetr > 0 THEN DO: PZBetrag = "01" + STRING(Rundbetr * 100,"9999999999 "). XBetrag = STRING((Rundbetr * 100),"zz,zzz,zz999"). END. IF DruBetr = 0 THEN DO: PZBetrag = " 04 ". END. PZReferenz = "996665000000" + STRING(VesrKnr,"999999") + "0" + STRING(VesrFnr,"9999999") + " ". PZTNummer = "01000530". RUN PRUEFZIFFER ( INPUT-OUTPUT PZBetrag , INPUT-OUTPUT PZReferenz, INPUT-OUTPUT PZTNummer, OUTPUT VSZeile ). END. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = VesrKnr NO-LOCK NO-ERROR. VVesr = "". SUBSTRING(VVesr[01],01) = "Graubündner Kantonalbank". SUBSTRING(VVesr[01],30) = "Graubündner Kantonalbank". SUBSTRING(VVesr[02],01) = "7002 Chur". SUBSTRING(VVesr[02],30) = "7002 Chur". SUBSTRING(VVesr[05],01) = "Oswald Getränke AG". SUBSTRING(VVesr[05],30) = "Oswald Getränke AG". SUBSTRING(VVesr[06],01) = "Via Santeri 76". SUBSTRING(VVesr[06],30) = "Via Santeri 76". SUBSTRING(VVesr[07],01) = "7130 Ilanz". SUBSTRING(VVesr[07],30) = "7130 Ilanz". SUBSTRING(VVesr[09],14) = "01-530-4". SUBSTRING(VVesr[09],43) = "01-530-4". SUBSTRING(VVesr[07],65) = STRING(PZReferenz,"XX XXXXX XXXXX XXXXX XXXXX XXXXX"). SUBSTRING(VVesr[11],09) = STRING(XBetrag,"XXXXXXXXXX XX"). SUBSTRING(VVesr[11],40) = STRING(XBetrag,"XXXXXXXXXX XX"). SUBSTRING(VVesr[11],63) = Adresse.Anschrift[08]. SUBSTRING(VVesr[12],63) = Adresse.Anschrift[09]. SUBSTRING(VVesr[13],63) = Adresse.Anschrift[10]. SUBSTRING(VVesr[14],63) = Adresse.Anschrift[11]. SUBSTRING(VVesr[15],63) = Adresse.Anschrift[12]. SUBSTRING(VZeile,001) = STRING(PZReferenz,"XX XXXXX XXXXX XXXXX XXXXX XXXXX"). SUBSTRING(VVesr[13],04) = SUBSTRING(VZeile,01,14). SUBSTRING(VVesr[14],01) = SUBSTRING(VZeile,16,17). SUBSTRING(VVesr[15],01) = Adresse.Anschrift[09]. SUBSTRING(VVesr[16],01) = Adresse.Anschrift[10]. SUBSTRING(VVesr[17],01) = Adresse.Anschrift[11]. SUBSTRING(VVesr[18],01) = Adresse.Anschrift[12]. SUBSTRING(VVesr[19],25) = STRING(VSZeile,"x(53)"). SUBSTRING(VVesr[19],82) = "H". xx = 09. yy = 3287. zPos = CHR(27) + '*p' + STRING(yy) + 'y' + STRING(xx) + 'x'. VVesr[19] = zPos + CHR(27) + '(1O' + CHR(27) + '(s10h0b0s0p110T' + VVesr[19] + SchriftInit. rRand = VRand. VRand = 0. DO ix = 1 TO 19: VZeile = VVesr[ix] + CHR(10). PUT STREAM Out_Stream CONTROL VZeile. END. VRand = rRand. LEAVE. END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE WORKFILE C-Win PROCEDURE WORKFILE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ FIND BSchrift USE-INDEX Schrift-k1 WHERE BSchrift.Schname = BLiDruck.ListDru AND BSchrift.Schbild = BLiDruck.ListBild NO-LOCK NO-ERROR. FIND BDrucker USE-INDEX Drucker-k1 WHERE BDrucker.Drucker = BSchrift.Schdru NO-LOCK NO-ERROR. DOpen = FALSE. VTemp = ''. IF BDrucker.Emul = 'TERMINAL' THEN DO: FOR EACH XTermOut: DELETE XTermOut. END. VZNr = 0. RETURN. END. DO WHILE TRUE TRANSACTION: FIND Tabel USE-INDEX Tabel-k1 WHERE Tabel.Firma = GVFirma AND Tabel.RecArt = 'TEMPFILE' AND Tabel.CodeI = 0 AND Tabel.CodeC = 'AUFTRAG' AND Tabel.Sprcd = 1 NO-ERROR. IF NOT AVAILABLE Tabel THEN DO: CREATE Tabel. ASSIGN Tabel.Firma = GVFirma Tabel.RecArt = 'TEMPFILE' Tabel.CodeI = 0 Tabel.CodeC = 'AUFTRAG' Tabel.Sprcd = 1 Tabel.Bez1 = SESSION:TEMP-DIR. END. Tabel.Int_1 = Tabel.Int_1 + 1. VTemp = Tabel.Bez1 + 'Faktura' + STRING(Tabel.Int_1) + '.tmp'. RELEASE Tabel. LEAVE. END. DOpen = TRUE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ZAHLUNGSKONDITION C-Win PROCEDURE ZAHLUNGSKONDITION : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ FIND Kondi USE-INDEX Kondi-k1 WHERE Kondi.Kond = BSavko.Kond AND Kondi.Sprcd = LVSprcd NO-LOCK NO-ERROR. IF AVAILABLE Kondi THEN DO: SUBSTRING(VZeile,001) = Kondi.KoText. IF Kondi.Skonto[01] <> 0 THEN DO: Rundbetr = BSavko.Sk_Ber * Kondi.Skonto[01] / 100. IF DebInkl THEN DO: Rundcode = 1. RUN "v8/runden.p". END. SUBSTRING(VZeile,083) = STRING(Rundbetr,"->>,>>9.99"). END. END. ELSE DO: SUBSTRING(VZeile,001) = FILL('?', 30). END. { v8/putstream.i "2" } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME