&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 --- */ /* 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 Aufko.Auf_Text NO-UNDO. DEF VAR XTelnr LIKE Aufko.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 BESRGedr AS LOG NO-UNDO. DEF VAR BOpen AS LOG NO-UNDO. DEF VAR BESRName AS CHAR NO-UNDO. DEF VAR LiefAdr AS CHAR NO-UNDO. DEF VAR iSprcd AS INT NO-UNDO. DEF VAR cUSER AS CHAR NO-UNDO. DEF VAR FormText AS CHAR FORMAT "x(80)" EXTENT 40. DEF BUFFER BAufko FOR Aufko. DEF BUFFER XAufko FOR Aufko. DEF BUFFER BAufze FOR Aufze. DEF BUFFER BAufGebKo FOR AufGebKo. DEF BUFFER FDebst FOR Debst. DEF BUFFER LDebst FOR Debst. DEF BUFFER BTabel FOR Tabel. DEF BUFFER TFakart FOR Tabel. DEF BUFFER TAufsta FOR Tabel. DEF BUFFER BAdresse FOR Adresse. DEF BUFFER LAdresse 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 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. 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 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 RID AS RECID. DEF TEMP-TABLE TSpeRab FIELD Rab_Grp AS INT FIELD Auf_Betr AS DEC DECIMALS 4. DEF STREAM BESR_Stream. DEF STREAM Out_Stream. /* ---------- 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" } /* _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_KOPIE F_Aufnr 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_KOPIE F_Aufnr 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_KOPIE F_Aufnr 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 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 45 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 45 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. /* ************************ Frame Definitions *********************** */ DEFINE FRAME DEFAULT-FRAME F_Drucker AT ROW 2 COL 25.6 COLON-ALIGNED E_Adresse AT ROW 2 COL 76.6 NO-LABEL F_Schrift AT ROW 3 COL 25.6 COLON-ALIGNED F_Tzz AT ROW 4 COL 25.6 COLON-ALIGNED F_Kzz AT ROW 5 COL 25.6 COLON-ALIGNED F_Fzz AT ROW 6 COL 25.6 COLON-ALIGNED F_KOPIE AT ROW 6 COL 63.4 COLON-ALIGNED F_Aufnr AT ROW 7 COL 25.6 COLON-ALIGNED F_Faknr AT ROW 8 COL 25.6 COLON-ALIGNED F_Datum AT ROW 9 COL 25.6 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 134.8 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 Auftragsdokumenten" HEIGHT = 10.48 WIDTH = 128 MAX-HEIGHT = 46.52 MAX-WIDTH = 256 VIRTUAL-HEIGHT = 46.52 VIRTUAL-WIDTH = 256 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 Auftragsdokumenten */ 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 Auftragsdokumenten */ 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}. 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 = BAufko.Ablad_Vor AND Tabel.Sprcd = 1 NO-LOCK NO-ERROR. IF NOT AVAILABLE tabel THEN DO: XAblade = BAufko.Ablad_Vor_Text. RETURN. END. IF LENGTH(Tabel.Bez1) > 4 THEN XAblade = Tabel.Bez1. IF BAufko.Ablad_Vor_Text <> '' THEN DO: IF XAblade <> '' THEN XAblade = XAblade + " / ". XAblade = BAufko.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 Aufze.Artnr = 0: SUBSTRING(VZeile,036) = STRING(Aufze.Bez1,"x(30)"). { v8/putstream.i "1" } IF Aufze.Bez2 <> '' THEN DO: VZeile = RZeile. SUBSTRING(VZeile,036) = STRING(Aufze.Bez2,"x(30)"). { v8/putstream.i "1" } END. RETURN. END. FIND Artst OF Aufze NO-LOCK. FIND GGebinde WHERE GGebinde.Firma = GVFirma AND GGebinde.Geb_Cd = Aufze.GGeb_Cd NO-LOCK NO-ERROR. FIND VGebinde WHERE VGebinde.Firma = GVFirma AND VGebinde.Geb_Cd = Aufze.VGeb_Cd NO-LOCK NO-ERROR. FIND KGebinde WHERE KGebinde.Firma = GVFirma AND KGebinde.Geb_Cd = Aufze.KGeb_Cd NO-LOCK NO-ERROR. VZeile = RZeile. SUBSTRING(VZeile,001) = STRING(Aufze.Artnr,"999999"). IF Aufze.GGeb_Me <> 0 THEN DO: SUBSTRING(VZeile,008) = STRING(Aufze.GGeb_Me ,"->9"). SUBSTRING(VZeile,012) = STRING(GGebinde.KBez ,"x(08)"). { v8/putstream.i "1" } VZeile = RZeile. END. IF Aufze.VGeb_Me <> 0 THEN DO: SUBSTRING(VZeile,008) = STRING(Aufze.VGeb_Me ,"->9"). SUBSTRING(VZeile,012) = STRING(VGebinde.KBez ,"x(08)"). END. SUBSTRING(VZeile,021) = STRING(Aufze.MGeli ,"->>>9"). SUBSTRING(VZeile,027) = STRING(KGebinde.KBez ,"x(08)"). SUBSTRING(VZeile,036) = STRING(Aufze.Bez1 ,"x(30)"). IF Aufze.Alk_Gehalt <> 0 THEN DO: SUBSTRING(VZeile,066) = STRING(Aufze.Alk_Gehalt,"z9.9%"). END. IF Aufze.Jahr > 9 THEN DO: SUBSTRING(VZeile,072) = SUBSTRING(STRING(Aufze.Jahr,"9999"),03). END. IF FPreis THEN DO: SUBSTRING(VZeile,075) = STRING(Aufze.Preis ,"zz9.99"). END. IF FBetrag THEN DO: IF Aufze.Bru_Betr > 0 THEN SUBSTRING(VZeile,082) = STRING(Aufze.Bru_Betr ,">>>,>>9.99"). ELSE SUBSTRING(VZeile,082) = STRING(Aufze.Bru_Betr ,"->>,>>9.99"). SUBSTRING(VZeile,093) = STRING(Aufze.WuCd ,"z9"). END. { v8/putstream.i "1" } IF Aufze.Bez2 <> '' THEN DO: VZeile = RZeile. SUBSTRING(VZeile,036) = STRING(Aufze.Bez2,"x(30)"). { v8/putstream.i "1" } END. IF Aufze.Aktion THEN DO: VZeile = RZeile. SUBSTRING(VZeile,036) = STRING(Aufze.Aktion_Text,"x(30)"). { v8/putstream.i "1" } END. DO WHILE FBetrag: IF Aufze.Rab_Betr = 0 THEN LEAVE. VZeile = RZeile. RabWert = ABSOLUTE(Aufze.Rab_Wert). IF Aufze.Rab_Art = 3 THEN RabText = VEpzText. ELSE DO: IF Aufze.Rab_Betr < 0 THEN RabText = VZusText. IF Aufze.Rab_Betr > 0 THEN RabText = VRabText. END. SUBSTRING(VZeile,036) = TRIM(RabText). IF Aufze.Rab_Art = 1 THEN SUBSTRING(VZeile,055) = STRING(RabWert,"->9.9 %"). IF Aufze.Rab_Art = 2 OR Aufze.Rab_Art = 3 THEN SUBSTRING(VZeile,055) = STRING(RabWert,"-9.99 Fr."). SUBSTRING(VZeile,082) = STRING(- Aufze.Rab_Betr ,"->>,>>9.99"). { v8/putstream.i "1" } LEAVE. END. DO WHILE FBetrag: IF Aufze.Zus_Betr = 0 THEN LEAVE. VZeile = RZeile. RabWert = ABSOLUTE(Aufze.Zus_Wert). IF Aufze.Zus_Art = 3 THEN RabText = VEpzText. ELSE DO: IF Aufze.Zus_Betr > 0 THEN RabText = VZusText. IF Aufze.Zus_Betr < 0 THEN RabText = VRabText. END. SUBSTRING(VZeile,036) = TRIM(RabText). IF Aufze.Zus_Art = 1 THEN SUBSTRING(VZeile,055) = STRING(RabWert,"->9.9 %"). IF Aufze.Zus_Art = 2 OR Aufze.Zus_Art = 3 THEN SUBSTRING(VZeile,055) = STRING(RabWert,"-9.99 Fr."). SUBSTRING(VZeile,082) = STRING(+ Aufze.Zus_Betr ,"->>,>>9.99"). { v8/putstream.i "1" } LEAVE. END. /* ---- Summengruppen-Total -------------------------------------------- */ IF Aufze.Rab_Su_Grp <> 0 THEN DO: FIND FIRST TRabSumm WHERE TRabSumm.Rab_Summ = Aufze.Rab_Su_Grp NO-ERROR. IF AVAILABLE TRabSumm THEN DO: TRabSumm.Auf_Rab = TRabSumm.Auf_Rab + Aufze.Auf_Rab. TRabSumm.Abh_Rab = TRabSumm.Abh_Rab + Aufze.Abh_Rab. END. END. /* ---- Warengruppen-Totale -------------------------------------------- */ FIND FIRST TUmsGrp WHERE TUmsGrp.Ums_Grp = Artst.Wg_Grp 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. IF AVAILABLE WarenGrp THEN TUmsGrp.Bez = WarenGrp.Bez1. ELSE TUmsGrp.Bez = "??????????". END. TUmsGrp.Ums_Betr = TUmsGrp.Ums_Betr + Aufze.Net_Betr - Aufze.Auf_Rab - Aufze.Abh_Rab. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE ARTIKELZEILE_KASSE C-Win PROCEDURE ARTIKELZEILE_KASSE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ RZeile = ''. DO WHILE Aufze.Artnr = 0: SUBSTRING(VZeile,009) = STRING(Aufze.Bez1,"x(30)"). { v8/putstream_epson_pos.i "1" } IF Aufze.Bez2 <> '' THEN DO: VZeile = RZeile. SUBSTRING(VZeile,009) = STRING(Aufze.Bez2,"x(30)"). { v8/putstream_epson_pos.i "1" } END. { v8/putstream_epson_pos.i "1" } RETURN. END. FIND Artst OF Aufze NO-LOCK. FIND GGebinde WHERE GGebinde.Firma = GVFirma AND GGebinde.Geb_Cd = Aufze.GGeb_Cd NO-LOCK NO-ERROR. FIND VGebinde WHERE VGebinde.Firma = GVFirma AND VGebinde.Geb_Cd = Aufze.VGeb_Cd NO-LOCK NO-ERROR. FIND KGebinde WHERE KGebinde.Firma = GVFirma AND KGebinde.Geb_Cd = Aufze.KGeb_Cd NO-LOCK NO-ERROR. SUBSTRING(VZeile,001) = STRING(Aufze.Artnr,"999999"). SUBSTRING(VZeile,009) = Aufze.Bez1 . VZeile = CHR(27) + 'G' + CHR(01) + VZeile + CHR(27) + 'G' + CHR(02). { v8/putstream_epson_pos.i "1" } IF Aufze.Bez2 <> '' THEN DO: SUBSTRING(VZeile,009) = Aufze.Bez2. VZeile = CHR(27) + 'G' + CHR(01) + VZeile + CHR(27) + 'G' + CHR(02). { v8/putstream_epson_pos.i "1" } END. SUBSTRING(VZeile,001) = STRING(KGebinde.KBez ,"x(08)"). SUBSTRING(VZeile,011) = STRING(Aufze.MGeli ,"->>>9"). SUBSTRING(VZeile,018) = STRING(Aufze.Preis ,"zz9.99"). SUBSTRING(VZeile,029) = STRING(Aufze.Bru_Betr ,"->>>9.99"). SUBSTRING(VZeile,039) = STRING(Aufze.WuCd ,"z9"). { v8/putstream_epson_pos.i "1" } IF Aufze.Aktion THEN DO: SUBSTRING(VZeile,009) = Aufze.Aktion_Text. { v8/putstream_epson_pos.i "1" } END. DO WHILE FBetrag: IF Aufze.Rab_Betr = 0 THEN LEAVE. RabWert = ABSOLUTE(Aufze.Rab_Wert). IF Aufze.Rab_Art = 3 THEN RabText = VEpzText. ELSE DO: IF Aufze.Rab_Betr < 0 THEN RabText = VZusText. IF Aufze.Rab_Betr > 0 THEN RabText = VRabText. END. SUBSTRING(VZeile,001) = TRIM(RabText). IF Aufze.Rab_Art = 1 THEN SUBSTRING(VZeile,016) = STRING(RabWert,"->>>9.9 %"). IF Aufze.Rab_Art = 2 OR Aufze.Rab_Art = 3 THEN SUBSTRING(VZeile,016) = STRING(RabWert,"->>>9.99Fr."). SUBSTRING(VZeile,029) = STRING(- Aufze.Rab_Betr ,"->>>9.99"). { v8/putstream_epson_pos.i "1" } LEAVE. END. DO WHILE FBetrag: IF Aufze.Zus_Betr = 0 THEN LEAVE. RabWert = ABSOLUTE(Aufze.Zus_Wert). IF Aufze.Zus_Art = 3 THEN RabText = VEpzText. ELSE DO: IF Aufze.Zus_Betr > 0 THEN RabText = VZusText. IF Aufze.Zus_Betr < 0 THEN RabText = VRabText. END. SUBSTRING(VZeile,001) = TRIM(RabText). IF Aufze.Rab_Art = 1 THEN SUBSTRING(VZeile,016) = STRING(RabWert,"->>>9.9 %"). IF Aufze.Rab_Art = 2 OR Aufze.Rab_Art = 3 THEN SUBSTRING(VZeile,016) = STRING(RabWert,"->>>9.99Fr."). SUBSTRING(VZeile,029) = STRING(+ Aufze.Zus_Betr ,"->>>9.99"). { v8/putstream_epson_pos.i "1" } LEAVE. END. /* { v8/putstream_epson_pos.i "1" } */ /* ---- Summengruppen-Total -------------------------------------------- */ IF Aufze.Rab_Su_Grp <> 0 THEN DO: FIND FIRST TRabSumm WHERE TRabSumm.Rab_Summ = Aufze.Rab_Su_Grp NO-ERROR. IF AVAILABLE TRabSumm THEN DO: TRabSumm.Auf_Rab = TRabSumm.Auf_Rab + Aufze.Auf_Rab. TRabSumm.Abh_Rab = TRabSumm.Abh_Rab + Aufze.Abh_Rab. END. END. /* ---- Warengruppen-Totale -------------------------------------------- */ FIND FIRST TUmsGrp WHERE TUmsGrp.Ums_Grp = Artst.Wg_Grp 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. IF AVAILABLE WarenGrp THEN TUmsGrp.Bez = WarenGrp.Bez1. ELSE TUmsGrp.Bez = "??????????". END. TUmsGrp.Ums_Betr = TUmsGrp.Ums_Betr + Aufze.Net_Betr - Aufze.Auf_Rab - Aufze.Abh_Rab. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE BANKKONTO C-Win PROCEDURE BANKKONTO : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR X AS INT NO-UNDO. DEF VAR Y AS INT NO-UNDO. DEF VAR cString AS CHAR FORMAT "x(130)" NO-UNDO. PUT STREAM Out_Stream CONTROL CHR(27) "(s4102t0b0p0s17H". PUT STREAM Out_Stream CONTROL CHR(027) '9'. PUT STREAM Out_Stream CONTROL CHR(027) '*t300R'. X = 100. Y = 3010. cString = ''. PUT STREAM Out_Stream CONTROL CHR(027) '*p' STRING(Y) 'y' STRING(X) 'X'. PUT STREAM Out_Stream CONTROL cString CHR(10). /* X = 100. */ /* Y = 3000. */ cString = ''. SUBSTRING(cString,001) = 'Conto corrente postale'. SUBSTRING(cString,031) = 'Banca Cantonale GR'. SUBSTRING(cString,061) = 'Banca Raiffeisen'. SUBSTRING(cString,091) = 'B. Popolare Sondrio Suisse'. PUT STREAM Out_Stream CONTROL CHR(027) '*p' STRING(Y) 'y' STRING(X) 'X'. PUT STREAM Out_Stream CONTROL cString CHR(10). Y = Y + 40. cString = ''. SUBSTRING(cString,001) = 'Postcheck-Koknto Nr.'. SUBSTRING(cString,031) = 'Graubündner Kantonalbank'. SUBSTRING(cString,061) = 'Raiffeisenbank'. SUBSTRING(cString,091) = ''. PUT STREAM Out_Stream CONTROL CHR(027) '*p' STRING(Y) 'y' STRING(X) 'X'. PUT STREAM Out_Stream CONTROL cString CHR(10). Y = Y + 40. cString = ''. SUBSTRING(cString,001) = ' 60-610913-9'. SUBSTRING(cString,031) = 'CH26 0077 4110 1965 2630 0'. SUBSTRING(cString,061) = 'CH60 8110 3000 0043 2046 5'. SUBSTRING(cString,091) = 'CH04 0825 2012 0798 C000 C'. PUT STREAM Out_Stream CONTROL CHR(027) '*p' STRING(Y) 'y' STRING(X) 'X'. PUT STREAM Out_Stream CONTROL cString CHR(10). X = 0. Y = 0. PUT STREAM Out_Stream CONTROL CHR(027) '*p' STRING(Y) 'y' STRING(X) 'X'. PUT STREAM Out_Stream CONTROL CHR(027) "(s4102t0b0p0s12H". 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 = BAufko.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 iSize AS INT NO-UNDO. AnzKopien = BLiDruck.ListCopy. IF AnzKopien = 0 THEN AnzKopien = 1. IF BDrucker.Emul = 'TERMINAL' THEN AnzKopien = 1. iSize = DYNAMIC-FUNCTION('putDateiToPrinter':U, VTemp, RECID(bSchrift), 0, 250, 'IBM850', 1) NO-ERROR. /* DO VCopy = 1 TO AnzKopien: DO WHILE BDrucker.Emul <> "TERMINAL": /* IF F_TZZ = 0 THEN DO: */ /* OUTPUT STREAM Out_Stream */ /* TO PRINTER VALUE(BSchrift.Schname) */ /* CONVERT TARGET "ibm850" PAGED PAGE-SIZE 5000. */ /* END. */ /* ELSE DO: */ /* OUTPUT STREAM Out_Stream */ /* TO PRINTER VALUE(BSchrift.Schname) */ /* CONVERT TARGET "ibm850" PAGED PAGE-SIZE 5000. */ /* END. */ /* */ /* PUT STREAM Out_Stream CONTROL BSchrift.Schseqbeg. * IF BLiDruck.Listlq THEN PUT STREAM Out_Stream CONTROL BDrucker.Drulqb. * IF BLiDruck.Schacht > 0 THEN PUT STREAM Out_Stream CONTROL BDrucker.DruSchacht[Schacht].*/ SESSION:PRINTER-NAME = BSchrift.Schname. OUTPUT STREAM Out_Stream TO PRINTER CONVERT TARGET "ibm850" PAGED PAGE-SIZE 5000. INPUT STREAM In_Stream FROM VALUE(VTemp) NO-ECHO NO-MAP. REPEAT ON STOP UNDO, LEAVE WITH FRAME f_Print: IMPORT STREAM In_Stream UNFORMATTED VZeile. DISPLAY STREAM Out_Stream VZeile WITH FRAME f_Print NO-LABELS STREAM-IO NO-BOX USE-TEXT WIDTH 255. END. /* PUT STREAM Out_Stream CONTROL CHR(12). */ OUTPUT STREAM Out_Stream CLOSE. INPUT STREAM In_Stream CLOSE. LEAVE. END. DO WHILE BDrucker.Emul = "TERMINAL": RUN "v8/d-liste.w" ( INPUT FormText[02] ). LEAVE. END. END. */ END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE DRUCKAUSGABE_BESR C-Win PROCEDURE DRUCKAUSGABE_BESR : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ RUN OCRB_LOAD ( BSchrift.Schname ). OUTPUT STREAM Out_Stream TO PRINTER VALUE(BSchrift.Schname) CONVERT TARGET "ibm850" PAGED PAGE-SIZE 5000. INPUT STREAM In_Stream FROM VALUE(BESRName) NO-ECHO NO-MAP. REPEAT ON STOP UNDO, LEAVE WITH FRAME f_Print: IMPORT STREAM In_Stream UNFORMATTED VZeile. DISPLAY STREAM Out_Stream VZeile WITH FRAME f_Print NO-LABELS STREAM-IO NO-BOX USE-TEXT WIDTH 255. END. /* PUT STREAM Out_Stream CONTROL CHR(12). */ OUTPUT STREAM Out_Stream CLOSE. INPUT STREAM In_Stream CLOSE. 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. VDokArt = Tabel.Bez2. F_DokArt = Tabel.Bez2. SFaknr = 0. 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 BAufko WHERE RECID(BAufko) = CRecid NO-LOCK NO-ERROR. IF NOT AVAILABLE BAufko THEN RETURN. F_Aufnr = BAufko.Aufnr. F_Faknr = BAufko.Faknr. F_Datum = BAufko.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 = BAufko.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 = BAufko.Auf_Sta AND TAufsta.Sprcd = 1 NO-LOCK NO-ERROR. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = BAufko.Fak_Knr NO-LOCK NO-ERROR. iSprcd = IF AVAILABLE Adresse THEN Adresse.Sprcd ELSE LVSprcd. E_Adresse = ''. IF BAufko.Adresse[05] <> '' THEN DO: E_Adresse = CHR(10) + CHR(10) + BAufko.Adresse[01] + CHR(10) + BAufko.Adresse[02] + CHR(10) + BAufko.Adresse[03] + CHR(10) + BAufko.Adresse[04] + CHR(10) + BAufko.Adresse[05]. END. ELSE DO: E_Adresse = Adresse.Anschrift[04] + CHR(10) + 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]. END. DISPLAY {&List-1}. RUN LIBILD. FOR EACH SammFak: DELETE SammFak. END. IF BAufko.Samm_Nr <> 0 AND NOT VDokArt BEGINS 'Ruest' THEN DO: RUN SAMMELSUCHEN. END. ELSE DO: CREATE SammFak. ASSIGN SammFak.Knr = BAufko.Fak_Knr SammFak.Aufnr = BAufko.Aufnr SammFak.Samm_Nr = BAufko.Aufnr SammFak.RID = RECID(BAufko). END. DOpen = FALSE. BOpen = FALSE. 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 BAufko WHERE RECID(BAufko) = SammFak.RID NO-LOCK NO-ERROR. F_Aufnr = BAufko.Aufnr. DISPLAY F_Aufnr WITH FRAME {&FRAME-NAME}. VWg_Grp = 0. VProd_Grp = 0. VArt_Grp = 0. VFak_Betr = 0. FErste = FALSE. FOR EACH TAufze: DELETE TAufze. 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. FLetzt = FALSE. FErste = TRUE. TiDruck = TRUE. VSeite = 0. END. FOR EACH BAufze USE-INDEX Aufze-k1 WHERE BAufze.Firma = BAufko.Firma AND BAufze.Aufnr = BAufko.Aufnr NO-LOCK: IF BAufze.Artnr <> 0 THEN DO: FIND GGebinde WHERE GGebinde.Firma = GVFirma AND GGebinde.Geb_Cd = BAufze.GGeb_Cd NO-LOCK NO-ERROR. FIND VGebinde WHERE VGebinde.Firma = GVFirma AND VGebinde.Geb_Cd = BAufze.VGeb_Cd NO-LOCK NO-ERROR. FIND KGebinde WHERE KGebinde.Firma = GVFirma AND KGebinde.Geb_Cd = BAufze.KGeb_Cd NO-LOCK NO-ERROR. END. CREATE TAufze. ASSIGN TAufze.Aufnr = BAufze.Aufnr TAufze.Artnr = BAufze.Artnr TAufze.Inhalt = BAufze.Inhalt TAufze.Jahr = BAufze.Jahr TAufze.Pos = BAufze.Pos TAufze.Zeile = RECID(BAufze) TAufze.Aktion = BAufze.Aktion TAufze.Preis = BAufze.Preis. IF BAufze.Artnr <> 0 THEN DO: FIND Artst OF BAufze 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 TAufze.Sort1 = STRING(VWg_Grp ,"999") TAufze.Sort2 = STRING(VProd_Grp ,"999") TAufze.Sort3 = STRING(VArt_Grp ,"999"). END. IF BAufze.Artnr = 0 THEN DO: ASSIGN TAufze.Artnr = AArtnr TAufze.Inhalt = AInhalt TAufze.Jahr = AJahr. END. IF BAufze.Artnr = 0 THEN NEXT. /* Spezial-Auftrags-Rabatt -------------------------------------------- */ 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 ------------------------------------------------ */ 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 USE-INDEX RabSumm-k1 WHERE RabSumm.Firma = GVFirma AND RabSumm.Rab_Summ = BAufze.Rab_Su_Grp NO-LOCK 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 ( 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). IF BOpen THEN DO: OUTPUT STREAM BESR_Stream CLOSE. BOpen = FALSE. RUN DRUCKAUSGABE_BESR. END. IF BESRName <> '' THEN OS-DELETE VALUE(BESRName) NO-ERROR. 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 DRUCKPOSITION C-Win PROCEDURE DRUCKPOSITION : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR SX AS INT INIT 0. DEF VAR SY AS INT INIT 12. DEF INPUT PARAMETER Aufloesung AS INT. DEF INPUT PARAMETER X AS INT. DEF INPUT PARAMETER Y AS INT. X = X + SX. Y = Y + SY. PUT STREAM BESR_Stream CONTROL CHR(027) '9'. PUT STREAM BESR_Stream CONTROL CHR(027) '*t' STRING(Aufloesung) 'R'. PUT STREAM BESR_Stream CONTROL CHR(027) '*p' STRING(Y) 'y' STRING(X) 'X'. 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_KOPIE F_Aufnr 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_KOPIE F_Aufnr 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 TAufze NO-LOCK BY TAufze.Aufnr /* BY TAufze.Sort1 BY TAufze.Sort2 BY TAufze.Sort3 BY TAufze.Artnr BY TAufze.Inhalt BY TAufze.Jahr */ BY TAufze.Pos : IF (BLiDruck.Listtzz - VLine - 2) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. FIND Aufze WHERE RECID(Aufze) = TAufze.Zeile NO-LOCK. RUN ARTIKELZEILE. VFak_Betr = VFak_Betr + Aufze.Net_Betr. END. VZeile = FILL('-', StBreite). { v8/putstream.i "1" } SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[10],41,20)). SUBSTRING(VZeile,081) = 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,082) = '=========='. { v8/putstream.i "2" } FUeber = FALSE. RUN ZAHLUNGSKONDITION. RUN SCHLUSSTEXT. RUN UMSATZVERTEILUNG. RUN KOPF_MUTATION. Rundbetr = VFak_Betr. VesrKnr = BAufko.Fak_Knr. VesrFnr = BAufko.Faknr. RUN VESR_DRUCK. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE FAKTURAKIESEN C-Win PROCEDURE FAKTURAKIESEN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ RUN FAKTURA. 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. PUT STREAM Out_Stream CONTROL CHR(27) "&l0O" /* Hochformat */ CHR(27) "&l5H" /* Schacht 3 */ CHR(27) "(10U" /* CODEPAGE 850 */ CHR(27) "(s4102t0b0p0s12H". /* LetterGotic 12cpi */ RUN BANKKONTO. /* Fusszeile Bankkonto */ IF VSeite = 1 THEN DO: IF SFaknr = 0 THEN DO: SFaknr = BAufko.Faknr. REPEAT WHILE SFaknr = 0 TRANSACTION: RUN "v8/steunr.p" ( INPUT 2, OUTPUT VFaknr ). IF RETURN-VALUE <> '' THEN NEXT. SFaknr = VFaknr. END. END. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = BAufko.Fak_Knr NO-LOCK NO-ERROR. FIND LDebst USE-INDEX Debst-k1 WHERE LDebst.Firma = GVFirma AND LDebst.Knr = BAufko.Knr NO-LOCK NO-ERROR. FIND FDebst USE-INDEX Debst-k1 WHERE FDebst.Firma = GVFirma AND FDebst.Knr = BAufko.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 BAufko.Adresse[05] <> '' THEN DO: DO ix = 1 TO 5: SUBSTRING(VZeile,012) = BAufko.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,012) = Adresse.Anschrift[ix]. IF ix = 11 THEN DO: { v8/putstreamf.i "1" }. END. ELSE DO: { v8/putstream.i "1" }. END. END. END. SUBSTRING(VZeile,054) = TRIM(SUBSTRING(FormText[02],01,20)) + STRING(SFaknr,"z999999") + " /" + STRING(VSeite,"zz9"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,054) = TRIM(SUBSTRING(FormText[18],01,20)) + " " + BSteuer.MWST_Nr. { v8/putstream.i "1" } SUBSTRING(VZeile,054) = TRIM(SUBSTRING(FormText[07],01,20)) + " " + STRING(FDatum,"99.99.9999"). { v8/putstream.i "1" } LiefAdr = ''. IF BAufko.Knr <> BAufko.Fak_Knr THEN DO: FIND BAdresse USE-INDEX Adresse-k1 WHERE BAdresse.Firma = AdFirma AND BAdresse.Knr = BAufko.Knr NO-LOCK NO-ERROR. LiefAdr = BAdresse.Anzeig_Br. END. IF LiefAdr <> '' THEN DO: VZeile = LiefAdr. { v8/putstreamf.i "1" } END. { v8/putstream.i "1" } DO WHILE VSeite = 1. SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],21,20)) + " " + BAufko.I_Best. { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[17],21,20)) + " " + STRING(BAufko.Aufnr,"9999999"). SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[07],41,20)) + " " + STRING(BAufko.Auf_Datum,"99.99.9999"). SUBSTRING(VZeile,071) = TRIM(SUBSTRING(FormText[08],01,20)) + " " + STRING(BAufko.Fak_Knr,"9999999"). { v8/putstream.i "2" } XAuf_Text = BAufko.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 = BAufko.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,082) = 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 AufGKon USE-INDEX AufGKon-k1 WHERE AufGKon.Firma = BAufko.Firma AND AufGKon.Aufnr = BAufko.Aufnr AND AufGKon.Depot <> 0 NO-LOCK: IF AufGKon.Eingang = 0 AND AufGKon.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 AufGKon USE-INDEX AufGKon-k1 WHERE AufGKon.Firma = BAufko.Firma AND AufGKon.Aufnr = BAufko.Aufnr AND AufGKon.Depot <> 0 NO-LOCK: IF AufGKon.Eingang = 0 AND AufGKon.Ausgang = 0 THEN NEXT. FIND GebKonto USE-INDEX GebKonto-k1 WHERE GebKonto.Firma = GVFirma AND GebKonto.Geb_Cd = AufGKon.Geb_Cd NO-LOCK. i1 = AufGKon.Ausgang - AufGKon.Eingang. Rundbetr = AufGKon.Betrag. VWC = AufGKon.MWSt_Cd. VZTot = VZTot + Rundbetr. SUBSTRING(VZeile,004) = GebKonto.Bez. SUBSTRING(VZeile,035) = STRING(AufGKon.Ausgang,"->>,>>9"). SUBSTRING(VZeile,045) = STRING(AufGKon.Eingang,"->>,>>9"). SUBSTRING(VZeile,055) = STRING(i1 ,"->>,>>9"). SUBSTRING(VZeile,065) = STRING(Rundbetr ,"->>,>>9.99"). SUBSTRING(VZeile,093) = STRING(VWC ,"z9"). { v8/putstream.i "1" } i5 = i5 + 1. END. IF i5 > 0 THEN DO: SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[11],21,20)). SUBSTRING(VZeile,082) = STRING(VZTot,"->>,>>9.99"). { v8/putstream.i "1" } VFak_Betr = VFak_Betr + VZTot. END. IF NOT FSamm THEN DO: SUBSTRING(VZeile,027) = FILL('-', StBreite - 026). { v8/putstream.i "1" } SUBSTRING(VZeile,027) = TRIM(SUBSTRING(FormText[15],21,20)). SUBSTRING(VZeile,082) = STRING(VFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,027) = FILL('-', StBreite - 026). { v8/putstream.i "1" } END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE GEBINDE_ABRECHNUNG_KASSE C-Win PROCEDURE GEBINDE_ABRECHNUNG_KASSE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ i5 = 0. VZTot = 0. /* SUBSTRING(VZeile,001) = FormText[12]. { v8/putstream_epson_pos.i "1" } */ IF NOT FDebst.Geb_Rg THEN RETURN. FOR EACH AufGKon USE-INDEX AufGKon-k1 WHERE AufGKon.Firma = BAufko.Firma AND AufGKon.Aufnr = BAufko.Aufnr AND AufGKon.Depot <> 0 NO-LOCK: IF AufGKon.Eingang = 0 AND AufGKon.Ausgang = 0 THEN NEXT. FIND GebKonto USE-INDEX GebKonto-k1 WHERE GebKonto.Firma = GVFirma AND GebKonto.Geb_Cd = AufGKon.Geb_Cd NO-LOCK. i1 = AufGKon.Ausgang - AufGKon.Eingang. Rundbetr = AufGKon.Betrag. VWC = AufGKon.MWSt_Cd. VZTot = VZTot + Rundbetr. SUBSTRING(VZeile,001) = STRING(GebKonto.Bez,"x(10)"). SUBSTRING(VZeile,011) = STRING(AufGKon.Ausgang,"->>>9"). SUBSTRING(VZeile,017) = STRING(AufGKon.Eingang,"->>>9"). SUBSTRING(VZeile,023) = STRING(i1 ,"->>>9"). SUBSTRING(VZeile,029) = STRING(Rundbetr ,"->>>9.99"). SUBSTRING(VZeile,039) = STRING(VWC ,"z9"). { v8/putstream_epson_pos.i "1" } i5 = i5 + 1. FIND FIRST TUmsGrp WHERE TUmsGrp.Ums_Grp = 1001 NO-ERROR. IF NOT AVAILABLE TUmsGrp THEN DO: FIND WarenGrp USE-INDEX WarenGrp-k1 WHERE WarenGrp.Firma = GVFirma AND WarenGrp.Wgr = 1001 NO-LOCK NO-ERROR. CREATE TUmsGrp. ASSIGN TUmsGrp.Ums_Grp = 1001 TUmsGrp.Bez = 'Gebindesaldo'. END. TUmsGrp.Ums_Betr = TUmsGrp.Ums_Betr + AufGKon.Betrag. END. IF i5 > 0 THEN DO: VFak_Betr = VFak_Betr + VZTot. SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[11],21,20)). SUBSTRING(VZeile,029) = STRING(VFak_Betr,"->>>9.99"). VZeile = CHR(27) + 'G' + CHR(01) + VZeile + CHR(27) + 'G' + CHR(02). { v8/putstream_epson_pos.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 ------------------------------------------- */ DEF VAR cTextArt AS CHAR NO-UNDO. VTabTexte = ''. cTextArt = SUBSTITUTE('GEBINDERETOUR&1', STRING(bAufko.Fak_Art,'99')). FIND TabTexte NO-LOCK USE-INDEX TabTexte-k1 WHERE TabTexte.Firma = GVFirma AND TabTexte.TextArt = cTextArt AND TabTexte.Sprcd = LVSprcd NO-ERROR. IF NOT AVAILABLE TabTexte THEN DO: FIND TabTexte NO-LOCK USE-INDEX TabTexte-k1 WHERE TabTexte.Firma = GVFirma AND TabTexte.TextArt = cTextArt AND TabTexte.Sprcd = 1 NO-ERROR. END. IF NOT AVAILABLE TabTexte THEN DO: cTextArt = 'GEBINDERETOUR'. FIND TabTexte NO-LOCK USE-INDEX TabTexte-k1 WHERE TabTexte.Firma = GVFirma AND TabTexte.TextArt = cTextArt AND TabTexte.Sprcd = LVSprcd NO-ERROR. END. IF NOT AVAILABLE TabTexte THEN DO: FIND TabTexte NO-LOCK USE-INDEX TabTexte-k1 WHERE TabTexte.Firma = GVFirma AND TabTexte.TextArt = cTextArt AND TabTexte.Sprcd = 1 NO-ERROR. END. IF AVAILABLE TabTexte THEN 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 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 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE KASSE C-Win PROCEDURE KASSE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ VSeite = 0. VFak_Betr = 0. LiKopf = TRUE. FPreis = TRUE. FBetrag = TRUE. FRabatt = TRUE. FUeber = TRUE. FSamm = FALSE. VKopfArt = 'KASSE_KOPF'. RUN VALUE(VKopfArt). FOR EACH TAufze NO-LOCK BY TAufze.Aufnr BY TAufze.Sort1 BY TAufze.Sort2 BY TAufze.Sort3 BY TAufze.Artnr BY TAufze.Inhalt BY TAufze.Jahr BY TAufze.Pos : FIND Aufze WHERE RECID(Aufze) = TAufze.Zeile NO-LOCK. RUN ARTIKELZEILE_KASSE. VFak_Betr = VFak_Betr + Aufze.Net_Betr. END. SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[10],41,20)). SUBSTRING(VZeile,029) = STRING(VFak_Betr,"->>>9.99"). VZeile = CHR(27) + 'G' + CHR(01) + VZeile + CHR(27) + 'G' + CHR(02). { v8/putstream_epson_pos.i "1" } RUN SUMMENRABATTE_KASSE. RUN GEBINDE_SALDO. RUN GEBINDE_ABRECHNUNG_KASSE. RUN MEHRWERTSTEUER_KASSE. RUN KASSE_ABSCHLUSS. RUN KOPF_MUTATION. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE KASSE_ABSCHLUSS C-Win PROCEDURE KASSE_ABSCHLUSS : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ IF BAufko.Bar_Betr <> 0 THEN DO: { v8/putstream_epson_pos.i "1" } SUBSTRING(VZeile,001) = TRIM(FormText[19]). { v8/putstream_epson_pos.i "2" } END. SUBSTRING(VZeile,001) = TRIM(FormText[20]). { v8/putstream_epson_pos.i "2" } VZeile = ' '. { v8/putstream_epson_pos.i "6" } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE KASSE_KOPF C-Win PROCEDURE KASSE_KOPF : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ /* RUN NEUE_SEITE. */ IF SFaknr = 0 THEN DO: SFaknr = BAufko.Faknr. REPEAT WHILE SFaknr = 0 TRANSACTION: IF BAufko.Fak_Art = 99 THEN VFaknr = BAufko.Aufnr. ELSE DO: RUN "v8/steunr.p" ( INPUT 2, OUTPUT VFaknr ). IF RETURN-VALUE <> '' THEN NEXT. END. SFaknr = VFaknr. END. END. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = BAufko.Fak_Knr NO-LOCK NO-ERROR. FIND LDebst USE-INDEX Debst-k1 WHERE LDebst.Firma = GVFirma AND LDebst.Knr = BAufko.Knr NO-LOCK NO-ERROR. FIND FDebst USE-INDEX Debst-k1 WHERE FDebst.Firma = GVFirma AND FDebst.Knr = BAufko.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. F_Seite = VSeite. F_Faknr = SFaknr. DISPLAY F_Seite F_Faknr WITH FRAME {&FRAME-NAME}. PUT STREAM Out_Stream CONTROL CHR(27) '@' CHR(27) '!' CHR(8). VZeile = 'Quittung/Ricevuta'. { v8/putstreamf_epson_pos.i "2" } FIND Steuer USE-INDEX Steuer-k1 WHERE Steuer.Firma = GVFirma NO-LOCK NO-ERROR. IF Steuer.Firma1 <> '' THEN DO: SUBSTRING(VZeile,001) = Steuer.Firma1. { v8/putstream_epson_pos.i "1" } END. IF Steuer.Firma2 <> '' THEN DO: SUBSTRING(VZeile,001) = Steuer.Firma2. { v8/putstream_epson_pos.i "1" } END. IF Steuer.Strasse <> '' THEN DO: SUBSTRING(VZeile,001) = Steuer.Strasse. { v8/putstream_epson_pos.i "1" } END. IF Steuer.Ort <> '' THEN DO: SUBSTRING(VZeile,001) = Steuer.Ort. { v8/putstream_epson_pos.i "1" } END. SUBSTRING(VZeile,001) = TRIM(TRIM(SUBSTRING(FormText[18],01,20)) + " " + BSteuer.MWST_Nr). { v8/putstream_epson_pos.i "1" } SUBSTRING(VZeile,001) = TRIM(TRIM(SUBSTRING(FormText[07],01,20)) + " " + STRING(FDatum,"99.99.9999")). { v8/putstream_epson_pos.i "2" } SUBSTRING(VZeile,001) = TRIM(TRIM(SUBSTRING(FormText[02],01,20)) + STRING(SFaknr,"z999999") + " /" + STRING(BAufko.Aufnr,"9999999")). { v8/putstreamf_epson_pos.i "2" } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE KOPF_MUTATION C-Win PROCEDURE KOPF_MUTATION : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DO TRANSACTION WHILE TRUE: FIND Tabel USE-INDEX Tabel-k1 WHERE Tabel.Firma = GVFirma AND Tabel.RecArt = 'FAKART' AND Tabel.CodeC = '' AND Tabel.CodeI = BAufko.Fak_Art AND Tabel.Sprcd = 1 NO-LOCK NO-ERROR. IF Tabel.Int_3 > 2 THEN DO: FIND Aufko WHERE RECID(Aufko) = RECID(BAufko). Aufko.Fak_Datum = FDatum. Aufko.Faknr = SFaknr. RELEASE Aufko. END. RUN AUFTRAG_GEDRUCKT ( INPUT BAufko.Aufnr ). RELEASE Aufko. LEAVE. END. FIND Aufko WHERE RECID(Aufko) = RECID(BAufko) NO-LOCK. 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 = "". DO WHILE TRUE: FOR EACH LiBild USE-INDEX LiBild-k1 WHERE LiBild.Sprcd = iSprcd AND LiBild.Prog = VProgname AND LiBild.Tenr > 0 NO-LOCK ix = 1 TO 40: FormText[ix] = LiBild.Litext. END. IF iSprcd = LVSprcd THEN LEAVE. IF ix > 1 THEN LEAVE. iSprcd = LVSprcd. END. 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('|', 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(06)"). SUBSTRING(RZeile,082) = STRING(' ',"x(10)"). SUBSTRING(RZeile,093) = 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 TAufze NO-LOCK BY TAufze.Aufnr /* BY TAufze.Sort1 BY TAufze.Sort2 BY TAufze.Sort3 BY TAufze.Artnr BY TAufze.Inhalt BY TAufze.Jahr */ BY TAufze.Pos : IF (BLiDruck.Listtzz - VLine - 2) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. FIND Aufze WHERE RECID(Aufze) = TAufze.Zeile NO-LOCK. RUN ARTIKELZEILE. VFak_Betr = VFak_Betr + Aufze.Net_Betr. END. VZeile = FILL('-', StBreite). { v8/putstream.i "1" } SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[10],41,20)). SUBSTRING(VZeile,081) = 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,082) = "__________". { v8/putstreamf.i "2" } SUBSTRING(VZeile,050) = TRIM(SUBSTRING(FormText[18],41,20)). SUBSTRING(VZeile,082) = "__________". { v8/putstreamf.i "2" } RUN GEBINDE_RUECKNAHME_TABELLE. RUN KOPF_MUTATION. Rundbetr = 0. VesrKnr = BAufko.Fak_Knr. VesrFnr = BAufko.Faknr. RUN VESR_DRUCK. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE LIEFERFAKKIESEN C-Win PROCEDURE LIEFERFAKKIESEN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ RUN LIEFERFAK. 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. PUT STREAM Out_Stream CONTROL CHR(27) "&l0O" /* Hochformat */ CHR(27) "&l5H" /* Schacht 3 */ CHR(27) "(10U" /* CODEPAGE 850 */ CHR(27) "(s4102t0b0p0s12H". /* LetterGotic 12cpi */ RUN BANKKONTO. /* Fusszeile Bankkonto */ IF VSeite = 1 THEN DO: IF SFaknr = 0 THEN DO: SFaknr = BAufko.Faknr. REPEAT WHILE SFaknr = 0 TRANSACTION: RUN "v8/steunr.p" ( INPUT 2, OUTPUT VFaknr ). IF RETURN-VALUE <> '' THEN NEXT. SFaknr = VFaknr. END. END. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = BAufko.Fak_Knr NO-LOCK NO-ERROR. FIND LDebst USE-INDEX Debst-k1 WHERE LDebst.Firma = GVFirma AND LDebst.Knr = BAufko.Knr NO-LOCK NO-ERROR. FIND FDebst USE-INDEX Debst-k1 WHERE FDebst.Firma = GVFirma AND FDebst.Knr = BAufko.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 BAufko.Adresse[05] <> '' THEN DO: DO ix = 1 TO 5: SUBSTRING(VZeile,012) = BAufko.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,012) = Adresse.Anschrift[ix]. IF ix = 11 THEN DO: { v8/putstreamf.i "1" }. END. ELSE DO: { v8/putstream.i "1" }. END. END. END. SUBSTRING(VZeile,054) = TRIM(SUBSTRING(FormText[02],01,20)) + STRING(SFaknr,"z999999") + " /" + STRING(VSeite,"zz9"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,054) = TRIM(SUBSTRING(FormText[18],01,20)) + " " + BSteuer.MWST_Nr. { v8/putstream.i "1" } SUBSTRING(VZeile,054) = 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)) + " " + BAufko.I_Best. SUBSTRING(VZeile,061) = TRIM(SUBSTRING(FormText[08],21,20)) + STRING(BAufko.Gewicht,"zzz,zz9.999-"). { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],41,20)) + " " + STRING(BAufko.Auf_Datum,"99.99.9999"). SUBSTRING(VZeile,033) = TRIM(SUBSTRING(FormText[08],01,20)) + STRING(BAufko.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(BAufko.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(BAufko.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 = BAufko.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 = BAufko.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,082) = 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 TAufze NO-LOCK BY TAufze.Aufnr /* BY TAufze.Sort1 BY TAufze.Sort2 BY TAufze.Sort3 BY TAufze.Artnr BY TAufze.Inhalt BY TAufze.Jahr */ BY TAufze.Pos : IF (BLiDruck.Listtzz - VLine - 2) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. FIND Aufze WHERE RECID(Aufze) = TAufze.Zeile NO-LOCK. RUN ARTIKELZEILE. VFak_Betr = VFak_Betr + Aufze.Net_Betr. END. VZeile = FILL('-', 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 LIEFERPREISKIESEN C-Win PROCEDURE LIEFERPREISKIESEN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ RUN LIEFERPREIS. 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 TAufze NO-LOCK BY TAufze.Aufnr /* BY TAufze.Sort1 BY TAufze.Sort2 BY TAufze.Sort3 BY TAufze.Artnr BY TAufze.Inhalt BY TAufze.Jahr */ BY TAufze.Pos : IF (BLiDruck.Listtzz - VLine - 2) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. FIND Aufze WHERE RECID(Aufze) = TAufze.Zeile NO-LOCK. RUN ARTIKELZEILE. VFak_Betr = VFak_Betr + Aufze.Net_Betr. END. VZeile = FILL('-', 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 LIEFERSCHEINKIESEN C-Win PROCEDURE LIEFERSCHEINKIESEN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ RUN LIEFERSCHEIN. 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. PUT STREAM Out_Stream CONTROL BSchrift.Schseqbeg. /* PUT STREAM Out_Stream CONTROL CHR(27) "&l0O" /* Hochformat */ * CHR(27) "&l4H" /* Schacht 2 */ * CHR(27) "(10U" /* CODEPAGE 850 */ * CHR(27) "(s4102t0b0p0s12H". /* LetterGotic 12cpi */*/ IF VSeite = 1 THEN DO: FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = BAufko.Knr NO-LOCK NO-ERROR. FIND LDebst USE-INDEX Debst-k1 WHERE LDebst.Firma = GVFirma AND LDebst.Knr = BAufko.Knr NO-LOCK NO-ERROR. FIND FDebst USE-INDEX Debst-k1 WHERE FDebst.Firma = GVFirma AND FDebst.Knr = BAufko.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 = BAufko.Faknr. DISPLAY F_Seite F_Faknr WITH FRAME {&FRAME-NAME}. VZeile = ''. { v8/putstream.i BLiDruck.Listkzz }. IF BAufko.Adresse[05] <> '' THEN DO: DO ix = 1 TO 5: SUBSTRING(VZeile,012) = BAufko.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,012) = Adresse.Anschrift[ix]. IF ix = 11 THEN DO: { v8/putstreamf.i "1" }. END. ELSE DO: { v8/putstream.i "1" }. END. END. END. SUBSTRING(VZeile,054) = TRIM(SUBSTRING(FormText[02],01,20)) + STRING(BAufko.Aufnr,"z999999") + " /" + STRING(VSeite,"zz9"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,054) = TRIM(SUBSTRING(FormText[18],01,20)) + " " + BSteuer.MWST_Nr. { v8/putstream.i "1" } SUBSTRING(VZeile,054) = 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)) + " " + BAufko.I_Best. SUBSTRING(VZeile,061) = TRIM(SUBSTRING(FormText[08],21,20)) + STRING(BAufko.Gewicht,"zzz,zz9.999-"). { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],41,20)) + " " + STRING(BAufko.Auf_Datum,"99.99.9999"). SUBSTRING(VZeile,033) = TRIM(SUBSTRING(FormText[08],01,20)) + STRING(BAufko.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(BAufko.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 = BAufko.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 = BAufko.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 BAufko.WPfl[ix] = 0 THEN NEXT. VWpfl[ix] = BAufko.Wpfl[ix]. VWust[ix] = BAufko.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 <= BAUfko.Kond_Datum NO-LOCK. SUBSTRING(VZeile,027) = MWSTAns.Bez. SUBSTRING(VZeile,064) = STRING(VWpfl[ix],"->>>,>>9.99"). SUBSTRING(VZeile,082) = STRING(VWust[ix],"->>,>>9.99"). SUBSTRING(VZeile,093) = 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('-', StBreite - 026). { v8/putstream.i "1" } SUBSTRING(VZeile,027) = TRIM(FormText[16]). SUBSTRING(VZeile,081) = STRING(VFak_Betr,"->>>,>>9.99"). { v8/putstreamf.i "1" } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE MEHRWERTSTEUER_KASSE C-Win PROCEDURE MEHRWERTSTEUER_KASSE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ { v8/putstream_epson_pos.i "1" } VWpfl = 0. VWust = 0. DO ix = 1 TO 11: IF BAufko.WPfl[ix] = 0 THEN NEXT. VWpfl[ix] = BAufko.Wpfl[ix]. VWust[ix] = BAufko.Wust[ix]. 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 <= BAufko.Kond_Datum NO-LOCK. SUBSTRING(VZeile,001) = SUBSTRING(MWSTAns.Bez,01,20). SUBSTRING(VZeile,020) = STRING(VWpfl[ix],"->>>9.99"). SUBSTRING(VZeile,029) = STRING(VWust[ix],"->>>9.99"). SUBSTRING(VZeile,039) = STRING(ix ,"z9"). { v8/putstream_epson_pos.i "1" } VFak_Betr = VFak_Betr + VWust[ix]. END. Rundbetr = VFak_Betr. Rundcode = 1. RUN "v8/runden.p". VFak_Betr = Rundbetr. SUBSTRING(VZeile,001) = TRIM(FormText[16]). SUBSTRING(VZeile,029) = STRING(VFak_Betr,"->>>9.99"). VZeile = CHR(27) + 'G' + CHR(01) + VZeile + CHR(27) + 'G' + CHR(02). { v8/putstream_epson_pos.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 CONTROL 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 OCRB_LOAD C-Win PROCEDURE OCRB_LOAD : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF INPUT PARAMETER ipAusgabe AS CHAR NO-UNDO. DEF VAR FontDatei AS CHAR NO-UNDO. DEF VAR mFont AS MEMPTR NO-UNDO. DEF VAR iSize AS INT NO-UNDO. DEF VAR cString AS CHAR NO-UNDO. DEF VAR cDrucker AS CHAR NO-UNDO. DEF VAR i1 AS INT NO-UNDO. DEF VAR i2 AS INT NO-UNDO. /* FIND Tabel NO-LOCK USE-INDEX Tabel-k1 WHERE Tabel.Firma = GVFirma AND Tabel.RecArt = 'OCRB' AND Tabel.CodeI = 0 AND Tabel.CodeC = '' AND Tabel.Sprcd = 1 NO-ERROR. IF AVAILABLE Tabel THEN DO: iSize = LENGTH(Tabel.BezL). SET-SIZE(mFont) = iSize. END. FontDatei = 'ocrb\OCRB.sfp'. FontDatei = SEARCH(FontDatei). IF FontDatei = ? THEN DO: MESSAGE 'OCRB-Font nicht gefunden ( ..\ocrb\ORCB.sfp )' VIEW-AS ALERT-BOX ERROR. RETURN. END. FILE-INFO:FILE-NAME = FontDatei. iSize = FILE-INFO:FILE-SIZE. SET-SIZE(mFont) = iSize. FontDatei = FILE-INFO:FULL-PATHNAME. /*COPY-LOB FILE FontDatei TO mFont NO-CONVERT NO-ERROR.*/ cDrucker = ''. DO WHILE TRUE: i2 = INDEX(ipAusgabe, 'Gugger'). IF i2 > 0 THEN DO: cDrucker = '\\Gugger\HpDeskJet'. LEAVE. END. END. IF cDrucker = '' THEN RETURN. OUTPUT STREAM Out_Stream TO PRINTER VALUE(cDrucker) BINARY NO-MAP NO-CONVERT. cString = CHR(27) + 'E' + CHR(27) + '*c0F' + CHR(27) + '*c10D'. PUT STREAM Out_Stream CONTROL cString. DO i1 = 1 TO iSize: i2 = GET-BYTE(mFont, i1). IF i2 < 1 THEN PUT STREAM Out_Stream CONTROL NULL. ELSE PUT STREAM Out_Stream CONTROL CHR(i2). END. cString = CHR(27) + '*c5F' + CHR(27) + 'E'. PUT STREAM Out_Stream CONTROL cString. SET-SIZE(mFont) = 0. OUTPUT STREAM Out_Stream CLOSE. */ 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 = BAufko.Fak_Knr AND SammFak.Samm_Nr = BAufko.Samm_Nr NO-ERROR. IF AVAILABLE SammFak THEN RETURN. FOR EACH Aufko USE-INDEX Aufko-k5 WHERE Aufko.Firma = BAufko.Firma AND Aufko.Fak_Art = BAufko.Fak_Art AND Aufko.Samm_Nr = BAufko.Samm_Nr : IF Aufko.Auf_Sta < 4 THEN DO: Aufko.Faknr = 0. NEXT. END. CREATE SammFak. ASSIGN SammFak.Knr = Aufko.Fak_Knr SammFak.Aufnr = Aufko.Aufnr SammFak.Samm_Nr = Aufko.Samm_Nr SammFak.RID = RECID(Aufko). IF SFaknr = 0 THEN SFaknr = Aufko.Faknr. 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(BAufko.Aufnr,"zzzzzzzzz9"). { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[07],41,20)) + " " + STRING(BAufko.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. FOR EACH TAufze NO-LOCK BY TAufze.Aufnr /* BY TAufze.Sort1 BY TAufze.Sort2 BY TAufze.Sort3 BY TAufze.Artnr BY TAufze.Inhalt BY TAufze.Jahr */ BY TAufze.Pos : IF (BLiDruck.Listtzz - VLine - 2) < BLiDruck.Listfzz THEN DO: RUN VALUE(VKopfArt). END. FIND Aufze WHERE RECID(Aufze) = TAufze.Zeile NO-LOCK. RUN ARTIKELZEILE. VFak_Betr = VFak_Betr + Aufze.Net_Betr. END. VZeile = FILL('-', StBreite). { v8/putstream.i "1" } SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[10],41,20)). SUBSTRING(VZeile,081) = 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] + BAufko.Wpfl[ix]. GTWust[ix] = GTWust[ix] + BAufko.Wust[ix]. END. GTFak_Betr = GTFak_Betr + VFak_Betr. GTSk_Ber = GTSk_Ber + BAufko.Sk_Ber. RUN KOPF_MUTATION. FIND Aufko WHERE RECID(Aufko) = RECID(BAufko) NO-LOCK. TiDruck = FALSE. IF FLetzt THEN RUN SAMMFAK_ENDE. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SAMMFAKKIESEN C-Win PROCEDURE SAMMFAKKIESEN : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ RUN SAMMFAK. 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('-', StBreite - 026). { v8/putstream.i "1" } SUBSTRING(VZeile,027) = TRIM(SUBSTRING(FormText[14],01,20)). SUBSTRING(VZeile,081) = STRING(GTFak_Betr,"->>>,>>9.99"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,027) = FILL('-', 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 <= BAufko.Kond_Datum NO-LOCK. SUBSTRING(VZeile,027) = MWSTAns.Bez. SUBSTRING(VZeile,064) = STRING(GTWpfl[ix],"->>>,>>9.99"). SUBSTRING(VZeile,082) = STRING(GTWust[ix],"->>,>>9.99"). SUBSTRING(VZeile,093) = STRING(ix ,"z9"). { v8/putstream.i "1" } END. Rundbetr = GTFak_Betr. Rundcode = 1. RUN "v8/runden.p". GTFak_Betr = Rundbetr. SUBSTRING(VZeile,027) = FILL('-', StBreite - 026). { v8/putstream.i "1" } SUBSTRING(VZeile,027) = TRIM(FormText[16]). SUBSTRING(VZeile,081) = STRING(GTFak_Betr,"->>>,>>9.99"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,082) = FILL('=', StBreite - 082). { v8/putstream.i "2" } FIND Kondi USE-INDEX Kondi-k1 WHERE Kondi.Kond = BAufko.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,081) = STRING(Rundbetr,"->>>,>>9.99"). END. END. ELSE DO: SUBSTRING(VZeile,001) = FILL('?', 30). END. { v8/putstream.i "2" } RUN SCHLUSSTEXT. RUN UMSATZVERTEILUNG. Rundbetr = GTFak_Betr. VesrKnr = BAufko.Fak_Knr. VesrFnr = BAufko.Faknr. 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: ------------------------------------------------------------------------------*/ DEF VAR cAdresse AS CHAR NO-UNDO. RUN NEUE_SEITE. PUT STREAM Out_Stream CONTROL CHR(27) "&l0O" /* Hochformat */ CHR(27) "&l5H" /* Schacht 3 */ CHR(27) "(10U" /* CODEPAGE 850 */ CHR(27) "(s4102t0b0p0s12H". /* LetterGotic 12cpi */ RUN BANKKONTO. /* Fusszeile Bankkonto */ IF VSeite = 1 THEN DO: IF SFaknr = 0 THEN DO: SFaknr = BAufko.Faknr. REPEAT WHILE SFaknr = 0 TRANSACTION: RUN "v8/steunr.p" ( INPUT 2, OUTPUT VFaknr ). IF RETURN-VALUE <> '' THEN NEXT. SFaknr = VFaknr. END. END. FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = BAufko.Fak_Knr NO-LOCK NO-ERROR. FIND LDebst USE-INDEX Debst-k1 WHERE LDebst.Firma = GVFirma AND LDebst.Knr = BAufko.Knr NO-LOCK NO-ERROR. FIND FDebst USE-INDEX Debst-k1 WHERE FDebst.Firma = GVFirma AND FDebst.Knr = BAufko.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}. cAdresse = ''. VZeile = ''. { v8/putstream.i BLiDruck.Listkzz }. IF BAufko.Knr <> BAufko.Fak_Knr AND BAufko.Fak_Knr <> 0 THEN DO: FIND LAdresse NO-LOCK USE-INDEX Adresse-k1 WHERE LAdresse.Firma = AdFirma AND LAdresse.Knr = BAufko.Knr NO-ERROR. cAdresse = CHR(27) + "(s3b15H" + "(" + LAdresse.Anzeig_br + ")" + CHR(27) + "(s3b12H". END. DO ix = 6 TO 12: SUBSTRING(VZeile,012) = Adresse.Anschrift[ix]. IF ix = 11 THEN DO: { v8/putstreamf.i "1" }. END. ELSE DO: { v8/putstream.i "1" }. END. END. SUBSTRING(VZeile,054) = TRIM(SUBSTRING(FormText[02],01,20)) + STRING(SFaknr,"z999999") + " /" + STRING(VSeite,"zz9"). { v8/putstreamf.i "1" } SUBSTRING(VZeile,054) = 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"). SUBSTRING(VZeile,053) = TRIM(SUBSTRING(FormText[08],01,20)) + STRING(BAufko.Fak_Knr,"zz999999"). { v8/putstream.i "2" } IF VSeite = 1 THEN DO: END. DO WHILE TiDruck. SUBSTRING(VZeile,001) = TRIM (SUBSTRING(FormText[17],21,20)) + " " + STRING(BAufko.Aufnr,"zzzzzzzzz9"). { v8/putstream.i "1" } SUBSTRING(VZeile,001) = TRIM (SUBSTRING(FormText[07],41,20)) + " " + STRING(BAufko.Auf_Datum,"99.99.9999") + " " + cAdresse. { 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,082) = STRING(VFak_Betr,"->>,>>9.99"). { v8/putstreamf.i "2" } END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SCHLUSSTEXT C-Win PROCEDURE SCHLUSSTEXT : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ /* Schlusstext -------------------------------------------------------- */ FIND TabTexte USE-INDEX TabTexte-k1 WHERE TabTexte.Firma = GVFirma AND TabTexte.TextArt = 'DOK' + STRING(BAufko.Fak_Art,'99') AND TabTexte.Sprcd = LVSprcd NO-LOCK NO-ERROR. IF NOT AVAILABLE TabTexte THEN DO: FIND TabTexte USE-INDEX TabTexte-k1 WHERE TabTexte.Firma = GVFirma AND TabTexte.TextArt = 'DOK' + STRING(BAufko.Fak_Art,'99') AND TabTexte.Sprcd = 1 NO-LOCK NO-ERROR. END. IF AVAILABLE TabTexte THEN 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 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 AufGKon USE-INDEX AufGKon-k1 WHERE AufGKon.Firma = BAufko.Firma AND AufGKon.Aufnr = BAufko.Aufnr AND AufGKon.Gebuehr <> 0 AND AufGKon.Betrag <> 0 NO-LOCK: Zuszz = Zuszz + 1. END. IF Zuszz > 0 THEN Zuszz = Zuszz + 3. 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 AufRabSu NO-LOCK USE-INDEX AufRabSu-k1 WHERE AufRabSu.Firma = BAufko.Firma AND AufRabSu.Aufnr = BAufko.Aufnr AND AufRabSu.Rab_Summ = TRabSumm.Rab_Summ. IF AufRabSu.F_Proz_Betr THEN WText = "%". ELSE WText = "Fr.". RabWert = ABSOLUT(AufRabSu.F_Wert). SUBSTRING(VZeile,036) = RText + " " + TRabSumm.Bez. SUBSTRING(VZeile,055) = STRING(RabWert,"z9.99-") + WText. SUBSTRING(VZeile,081) = 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 AufRabSu NO-LOCK USE-INDEX AufRabSu-k1 WHERE AufRabSu.Firma = BAufko.Firma AND AufRabSu.Aufnr = BAufko.Aufnr AND AufRabSu.Rab_Summ = TRabSumm.Rab_Summ. IF AufRabSu.A_Proz_Betr THEN WText = "%". ELSE WText = "Fr.". RabWert = ABSOLUT(AufRabSu.A_Wert). SUBSTRING(VZeile,036) = RText + " " + TRabSumm.Bez. SUBSTRING(VZeile,055) = STRING(RabWert,"z9.99-") + WText. SUBSTRING(VZeile,081) = 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 AufSpRab USE-INDEX AufSpRab-k1 WHERE AufSpRab.Firma = BAufko.Firma AND AufSpRab.Aufnr = BAufko.Aufnr AND AufSpRab.Rab_Grp = TSpeRab.Rab_Grp NO-LOCK. IF AufSpRab.Auf_Proz_Betr THEN WText = "%". ELSE WText = "Fr.". RabWert = ABSOLUT(AufSpRab.Auf_Wert). SUBSTRING(VZeile,036) = RText + " " + TRIM(Tabel.Bez1). SUBSTRING(VZeile,055) = STRING(RabWert,"z9.99-") + WText. SUBSTRING(VZeile,081) = 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,081) = STRING(VFak_Betr,"->>>,>>9.99"). { v8/putstreamf.i "1" } END. /* Recycling-Gebühren ------------------------------------------------ */ i5 = 0. FOR EACH AufGKon USE-INDEX AufGKon-k1 WHERE AufGKon.Firma = BAufko.Firma AND AufGKon.Aufnr = BAufko.Aufnr AND AufGKon.Gebuehr <> 0 AND AufGKon.Betrag <> 0 NO-LOCK: VFak_Betr = VFak_Betr + AufGKon.Betrag. IF NOT FRabatt THEN NEXT. VWC = AufGKon.MWSt_Cd. SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[11],41,20)). SUBSTRING(VZeile,081) = STRING(AufGKon.Betrag ,"->>>,>>9.99"). SUBSTRING(VZeile,093) = STRING(AufGKon.MWSt_Cd ,"z9"). { v8/putstream.i "1" } i5 = i5 + 1. END. IF i5 > 0 THEN DO: SUBSTRING(VZeile,036) = TRIM(SUBSTRING(FormText[14],41,20)). SUBSTRING(VZeile,081) = STRING(VFak_Betr,"->>>,>>9.99"). { v8/putstreamf.i "1" } END. END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE SUMMENRABATTE_KASSE C-Win PROCEDURE SUMMENRABATTE_KASSE : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ DEF VAR RText AS CHAR FORMAT "x(20)" NO-UNDO. DEF VAR WText AS CHAR NO-UNDO. DEF VAR xLeer AS LOG NO-UNDO. DEF VAR fGedruckt AS LOG INIT FALSE NO-UNDO. /* Auftragsrabatt ---------------------------------------------------- */ i5 = 0. xLeer = FALSE. 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 AufRabSu NO-LOCK USE-INDEX AufRabSu-k1 WHERE AufRabSu.Firma = BAufko.Firma AND AufRabSu.Aufnr = BAufko.Aufnr AND AufRabSu.Rab_Summ = TRabSumm.Rab_Summ. IF AufRabSu.F_Proz_Betr THEN WText = "%". ELSE WText = "Fr.". RabWert = ABSOLUT(AufRabSu.F_Wert). SUBSTRING(VZeile,001) = RText + " " + TRabSumm.Bez. VZeile = TRIM(SUBSTRING(VZeile,01,20)). SUBSTRING(VZeile,020) = STRING( RabWert ,"->>>9.99"). SUBSTRING(VZeile,029) = STRING(- Rundbetr,"->>>9.99"). { v8/putstream_epson_pos.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 AufRabSu NO-LOCK USE-INDEX AufRabSu-k1 WHERE AufRabSu.Firma = BAufko.Firma AND AufRabSu.Aufnr = BAufko.Aufnr AND AufRabSu.Rab_Summ = TRabSumm.Rab_Summ. IF AufRabSu.A_Proz_Betr THEN WText = "%". ELSE WText = "Fr.". RabWert = ABSOLUT(AufRabSu.A_Wert). SUBSTRING(VZeile,001) = RText + " " + TRabSumm.Bez. VZeile = TRIM(SUBSTRING(VZeile,01,20)). SUBSTRING(VZeile,020) = STRING( RabWert ,"->>>9.99"). SUBSTRING(VZeile,029) = STRING(- Rundbetr,"->>>9.99"). { v8/putstream_epson_pos.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 AufSpRab USE-INDEX AufSpRab-k1 WHERE AufSpRab.Firma = BAufko.Firma AND AufSpRab.Aufnr = BAufko.Aufnr AND AufSpRab.Rab_Grp = TSpeRab.Rab_Grp NO-LOCK. IF AufSpRab.Auf_Proz_Betr THEN WText = "%". ELSE WText = "Fr.". RabWert = ABSOLUT(AufSpRab.Auf_Wert). SUBSTRING(VZeile,001) = RText + " " + TRIM(Tabel.Bez1). VZeile = TRIM(SUBSTRING(VZeile,01,20)). SUBSTRING(VZeile,020) = STRING( RabWert ,"->>>9.99"). SUBSTRING(VZeile,029) = STRING(- Rundbetr,"->>>9.99"). { v8/putstream_epson_pos.i "1" } i5 = i5 + 1. END. IF i5 > 0 THEN DO: SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[14],21,20)). SUBSTRING(VZeile,029) = STRING(VFak_Betr,"->>>9.99"). VZeile = CHR(27) + 'G' + CHR(01) + VZeile + CHR(27) + 'G' + CHR(02). { v8/putstream_epson_pos.i "1" } xLeer = TRUE. fGedruckt = TRUE. END. /* Recycling-Gebühren ------------------------------------------------ */ i5 = 0. FOR EACH AufGKon USE-INDEX AufGKon-k1 WHERE AufGKon.Firma = BAufko.Firma AND AufGKon.Aufnr = BAufko.Aufnr AND AufGKon.Gebuehr <> 0 AND AufGKon.Betrag <> 0 NO-LOCK: VFak_Betr = VFak_Betr + AufGKon.Betrag. IF NOT FRabatt THEN NEXT. VWC = AufGKon.MWSt_Cd. FIND GebKonto OF AufGKon NO-LOCK NO-ERROR. IF AVAILABLE GebKonto THEN SUBSTRING(VZeile,001) = TRIM(SUBSTRING(GebKonto.Bez,01,28)). ELSE SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[11],41,20)). SUBSTRING(VZeile,029) = STRING(AufGKon.Betrag ,"->>>9.99"). SUBSTRING(VZeile,039) = STRING(AufGKon.MWSt_Cd ,"z9"). { v8/putstream_epson_pos.i "1" } i5 = i5 + 1. FIND FIRST TUmsGrp WHERE TUmsGrp.Ums_Grp = 1000 NO-ERROR. IF NOT AVAILABLE TUmsGrp THEN DO: FIND WarenGrp USE-INDEX WarenGrp-k1 WHERE WarenGrp.Firma = GVFirma AND WarenGrp.Wgr = 1000 NO-LOCK NO-ERROR. CREATE TUmsGrp. ASSIGN TUmsGrp.Ums_Grp = 1000 TUmsGrp.Bez = 'Recyclinggebühren'. END. TUmsGrp.Ums_Betr = TUmsGrp.Ums_Betr + AufGKon.Betrag. END. IF i5 > 0 THEN DO: SUBSTRING(VZeile,001) = TRIM(SUBSTRING(FormText[14],41,20)). SUBSTRING(VZeile,029) = STRING(VFak_Betr,"->>>9.99"). VZeile = CHR(27) + 'G' + CHR(01) + VZeile + CHR(27) + 'G' + CHR(02). { v8/putstream_epson_pos.i "1" } xLeer = TRUE. fGedruckt = TRUE. END. IF NOT fGedruckt THEN RETURN. { v8/putstream_epson_pos.i "1" } END PROCEDURE. /* _UIB-CODE-BLOCK-END */ &ANALYZE-RESUME &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE UMSATZVERTEILUNG C-Win PROCEDURE UMSATZVERTEILUNG : /*------------------------------------------------------------------------------ Purpose: Parameters: Notes: ------------------------------------------------------------------------------*/ 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. FOR EACH TUmsGrp WHERE TUmsGrp.Ums_Betr <> 0 NO-LOCK BY TUmsGrp.Ums_Grp : SUBSTRING(VZeile,001) = TUmsGrp.Bez. SUBSTRING(VZeile,040) = BSteuer.Fwc03. SUBSTRING(VZeile,050) = STRING(TUmsGrp.Ums_Betr,"->>>,>>9.99"). { v8/putstream.i "1" } END. 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 = BAufko.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: ------------------------------------------------------------------------------*/ DEF VAR VVESR AS CHAR FORMAT "x(90)" EXTENT 25. DEF VAR PZBetrag AS CHAR FORMAT "x(13)" NO-UNDO. DEF VAR PZReferenz AS CHAR FORMAT "x(27)" NO-UNDO. DEF VAR PZTNummer AS CHAR FORMAT "x(09)" NO-UNDO. DEF VAR VSZeile AS CHAR FORMAT "x(58)" NO-UNDO. DEF VAR VZeile AS CHAR FORMAT "x(58)" NO-UNDO. DEF VAR cBESRZe AS CHAR EXTENT 20 NO-UNDO. DEF VAR cBESRKo AS CHAR EXTENT 02 NO-UNDO. DEF VAR cBESRTn AS CHAR NO-UNDO. DEF VAR cBESRBn AS CHAR NO-UNDO. DEF VAR XArt AS INT NO-UNDO. DEF VAR XAnz AS INT NO-UNDO. DEF VAR XBetr AS CHAR FORMAT "x(20)" NO-UNDO. DEF VAR VESR_P AS CHAR FORMAT "x(02)" NO-UNDO. DEF VAR VESR AS CHAR FORMAT "x(02)" NO-UNDO. DEF VAR DruBetr AS DEC NO-UNDO. DEF VAR XBetrag AS CHAR FORMAT "x(12)" NO-UNDO. DEF VAR XCodeC AS CHAR NO-UNDO. DEF VAR XP AS INT NO-UNDO. DEF VAR YP AS INT NO-UNDO. DEF BUFFER BESRTabel FOR Tabel. IF VBesr = 0 THEN RETURN. IF NOT BOpen THEN DO: OUTPUT STREAM BESR_Stream TO VALUE(BESRName). BOpen = TRUE. END. DruBetr = Rundbetr. FIND Kondi USE-INDEX Kondi-k1 WHERE Kondi.Kond = BAufko.Kond AND Kondi.Sprcd = LVSprcd NO-LOCK NO-ERROR. IF AVAILABLE Kondi THEN DO: IF Kondi.Skonto[01] <> 0 THEN DruBetr = 0. END. cBESRZe = ''. cBESRKo = ''. cBESRTn = ''. cBESRBn = ''. FOR EACH BESRTabel USE-INDEX Tabel-k1 WHERE BESRTabel.Firma = GVFirma AND BESRTabel.RecArt = 'EZ' AND BESRTabel.CodeC = STRING(FDebst.BESR_Art,'999999') AND BESRTabel.Sprcd = 1 NO-LOCK: CASE BESRTabel.CodeI: WHEN 0 THEN DO: cBESRKo[01] = BESRTabel.Bez1. cBESRKo[02] = BESRTabel.Bez2. cBESRBn = STRING(BESRTabel.Dec_1,'99999999999999'). cBESRTn = BESRTabel.BezL. END. OTHERWISE DO: cBESRZe[BESRTabel.CodeI + 00] = BESRTabel.Bez1. cBESRZe[BESRTabel.CodeI + 08] = BESRTabel.Bez2. END. END CASE. END. DO WHILE TRUE: PZBetrag = ''. 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 = SUBSTRING(cBESRBn,01,12) + STRING(VesrKnr,"999999") + "0" + STRING(VesrFnr,"9999999") + " ". PZTNummer = cBESRTn. RUN PRUEFZIFFER ( INPUT-OUTPUT PZBetrag , INPUT-OUTPUT PZReferenz, INPUT-OUTPUT PZTNummer, OUTPUT VSZeile ). END. PUT STREAM BESR_Stream CONTROL CHR(27) "&l4H". /* Schacht 1 */ PUT STREAM BESR_Stream CONTROL CHR(27) "&l1O" /* Querformat */ CHR(27) "(10U" /* CODEPAGE 850 */ CHR(27) "(s4102t0b0p0s14H". /* LetterGotic 12cpi */ XP = 0980. YP = 600. VZeile = ''. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). SUBSTRING(VZeile,001) = cBESRZe[01]. SUBSTRING(VZeile,036) = cBESRZe[09]. PUT STREAM BESR_Stream CONTROL VZeile CHR(10). YP = YP + 50. VZeile = ''. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). SUBSTRING(VZeile,001) = cBESRZe[02]. SUBSTRING(VZeile,036) = cBESRZe[10]. PUT STREAM BESR_Stream CONTROL VZeile CHR(10). YP = YP + 50. VZeile = ''. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). SUBSTRING(VZeile,001) = cBESRZe[03]. SUBSTRING(VZeile,036) = cBESRZe[11]. PUT STREAM BESR_Stream CONTROL VZeile CHR(10). YP = YP + 50. VZeile = ''. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). SUBSTRING(VZeile,001) = cBESRZe[04]. SUBSTRING(VZeile,036) = cBESRZe[12]. PUT STREAM BESR_Stream CONTROL VZeile CHR(10). YP = YP + 50. VZeile = ''. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). SUBSTRING(VZeile,001) = cBESRZe[05]. SUBSTRING(VZeile,036) = cBESRZe[13]. PUT STREAM BESR_Stream CONTROL VZeile CHR(10). YP = YP + 50. VZeile = ''. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). SUBSTRING(VZeile,001) = cBESRZe[06]. SUBSTRING(VZeile,036) = cBESRZe[14]. PUT STREAM BESR_Stream CONTROL VZeile CHR(10). YP = YP + 50. VZeile = ''. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). SUBSTRING(VZeile,001) = cBESRZe[07]. SUBSTRING(VZeile,036) = cBESRZe[15]. PUT STREAM BESR_Stream CONTROL VZeile CHR(10). YP = YP + 50. VZeile = ''. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). SUBSTRING(VZeile,001) = cBESRZe[08]. SUBSTRING(VZeile,036) = cBESRZe[16]. PUT STREAM BESR_Stream CONTROL VZeile CHR(10). YP = YP + 55. VZeile = ''. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). PUT STREAM BESR_Stream CONTROL CHR(27) "(10U" /* CODEPAGE 850 */ CHR(27) "(s4102t0b0p0s12H". /* LetterGotic 12cpi */ SUBSTRING(VZeile,013) = cBESRKo[01]. SUBSTRING(VZeile,043) = cBESRKo[02]. SUBSTRING(VZeile,062) = STRING(PZReferenz,"XX XXXXX XXXXX XXXXX XXXXX XXXXX"). PUT STREAM BESR_Stream CONTROL VZeile CHR(10). YP = YP + 110. XP = 0987. VZeile = ''. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). SUBSTRING(VZeile,004) = STRING(XBetrag,"XXXXXXXXXX XX"). SUBSTRING(VZeile,033) = STRING(XBetrag,"XXXXXXXXXX XX"). PUT STREAM BESR_Stream CONTROL VZeile CHR(10). YP = YP + 90. XP = 0980. VZeile = ''. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). PUT STREAM BESR_Stream CONTROL CHR(27) "(10U" /* CODEPAGE 850 */ CHR(27) "(s4102t0b0p0s16H". /* LetterGotic 16cpi */ SUBSTRING(VZeile,001) = STRING(PZReferenz,"XX XXXXX XXXXX XXXXX XXXXX XXXXX"). PUT STREAM BESR_Stream CONTROL VZeile CHR(10). FIND Adresse USE-INDEX Adresse-k1 WHERE Adresse.Firma = AdFirma AND Adresse.Knr = VesrKnr NO-LOCK NO-ERROR. YP = YP + 160. PUT STREAM BESR_Stream CONTROL CHR(27) "(10U" /* CODEPAGE 850 */ CHR(27) "(s4102t0b0p0s12H". /* LetterGotic 12cpi */ RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). DO ix = 11 TO 6 BY -1: VZeile = ''. SUBSTRING(VZeile,059) = Adresse.Anschrift[ix]. IF ix = 11 THEN VZeile = BDrucker.Drufettb + VZeile + BDrucker.Drufette. PUT STREAM BESR_Stream CONTROL VZeile CHR(10). YP = YP - 48. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). END. YP = 1430. PUT STREAM BESR_Stream CONTROL CHR(27) "(10U" /* CODEPAGE 850 */ CHR(27) "(s4102t0b0p0s13H". /* LetterGotic 14cpi */ RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). DO ix = 11 TO 7 BY -1: VZeile = ''. SUBSTRING(VZeile,001) = STRING(Adresse.Anschrift[ix],"x(30)"). PUT STREAM BESR_Stream CONTROL VZeile CHR(10). YP = YP - 43. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). END. YP = 1490. VZeile = ''. PUT STREAM BESR_Stream CONTROL CHR(27) "(1O" /* CODEPAGE OCR-B */ CHR(27) "(s110t1b0p0s10h12V". /* OCR-B 10 cpi */ XP = XP + 15. RUN DRUCKPOSITION ( INPUT 300, INPUT XP, INPUT YP ). XP = XP - 15. SUBSTRING(VZeile,022) = "H". SUBSTRING(VZeile,027) = STRING(VSZeile,"x(53)"). PUT STREAM BESR_Stream CONTROL VZeile CHR(10). VLine = 0. VSeite = 0. 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'. BESRName = Tabel.Bez1 + 'BESR' + 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 = BAufko.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 = BAufko.Sk_Ber * Kondi.Skonto[01] / 100. IF DebInkl THEN DO: Rundcode = 1. RUN "v8/runden.p". END. SUBSTRING(VZeile,081) = 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