{=========================================================================== | Dateiname: prinz_schriftfeld | ============================================================================ | Copyright: | | | | Bearbeiter: Joerg Standhaft | | Stand: 30.10.2002 | ============================================================================ | Typ: ME10 | | Beschreibung: Macro zum Ausfuellen des Schriftfeldes | | | ===========================================================================} DEFINE Prinz_schriftfeld LOCAL A LOCAL Ausfuehrung LOCAL B LOCAL C LOCAL D LOCAL Datum LOCAL Delta LOCAL Dummy_dicke LOCAL Dummy_form LOCAL Dummy_breite_dm LOCAL Dummy_breite_dicke LOCAL Dummy_laenge LOCAL Dummy_menge LOCAL Dummy_menge_bom LOCAL Dummy_pos LOCAL Dummy_rohmass LOCAL Dummy_werkstoff LOCAL E LOCAL F LOCAL G LOCAL H LOCAL I LOCAL J LOCAL K LOCAL L LOCAL M LOCAL N LOCAL O LOCAL Oberflaeche LOCAL P LOCAL P1 LOCAL P2 LOCAL P3 LOCAL P4 LOCAL P5 LOCAL P6 LOCAL Q LOCAL R LOCAL S LOCAL T1 LOCAL V1 LOCAL V2 LOCAL V3 LOCAL TEXT_3 LOCAL TEXT_4 LOCAL TEXT_5 LOCAL TEXT_6 LOCAL TEXT_7 LOCAL Text_dummy LOCAL Text_schalter LOCAL Werkstoff LOCAL Zeichnungsnummer LOCAL day LOCAL mon TEXT YELLOW END TEXT_FRAME OFF TEXT_RATIO 1 TEXT_ANGLE 0 TEXT_ADJUST 5 TEXT_SIZE 2.5 LET Dummy_werkstoff '' LET Dummy_rohmass '' CREATE_LTAB 40 5 'rb_results' CREATE_LTAB 2 16 'rb_dummy_1' CREATE_LTAB 2 16 'rb_dummy_2' CREATE_LTAB 2 16 'rb_dummy_3' CREATE_LTAB 2 16 'rb_dummy_4' LET day (TRIM (SUBSTR DATE 1 2)) LET mon (SUBSTR DATE 4 3) LET year (SUBSTR DATE 8 4) IF (MATCH mon "D*") LET mon "12" ELSE_IF (MATCH mon "N*") LET mon "11" ELSE_IF (MATCH mon "Jan*") LET mon "01" ELSE_IF (MATCH mon "F*") LET mon "02" ELSE_IF (MATCH mon "Mar*") LET mon "03" ELSE_IF (MATCH mon "Ap*") LET mon "04" ELSE_IF (MATCH mon "May*") LET mon "05" ELSE_IF (MATCH mon "Jun*") LET mon "06" ELSE_IF (MATCH mon "Jul*") LET mon "07" ELSE_IF (MATCH mon "Au*") LET mon "08" ELSE_IF (MATCH mon "S*") LET mon "09" ELSE_IF (MATCH mon "O*") LET mon "10" ELSE LET mon mon END_IF LET Datum(day + '.' + mon + '.' + year) {EDIT_PART TOP} CS_REF_PT ABSOLUTE 0,0 INQ_ENV 7 {LET Zeichnungsnummer (inq 301)} LET Zeichnungsnummer (READ_LTAB 'tb' 50 2) INQ_ENV 6 LET M (inq 4) LET A (PNT_XY (-170/M) (58.5/M)) LET B (PNT_XY (-160/M) (58.5/M)) LET C (PNT_XY (-128.5/M) (58.5/M)) LET D (PNT_XY (-75.5/M) (58.5/M)) LET E (PNT_XY (-24.5/M) (58.5/M)) LET F (PNT_XY (-165/M) (30.5/M)) LET G (PNT_XY (-156.75/M) (21.5/M)) LET H (PNT_XY (-156.75/M) (3.5/M)) LET I (PNT_XY (-106/M) (23.2/M)) LET J (PNT_XY (-27.5/M) (3.5/M)) LET K (PNT_XY (-23/M) (15.2/M)) LET L (PNT_XY (-22/M) (1.2/M)) LET N (PNT_XY (-122.05/M) (16.2/M)) LET O (PNT_XY (-45/M) (282/M)) LET Q (PNT_XY (-61.9/M) (401.64/M)) LET R (PNT_XY (-173.241/M) (22.6/M)) LET S (PNT_XY (-156.75/M) (12.5/M)) LET P1 (PNT_XY (-175/M) (69/M)) LET P2 (PNT_XY (-165/M) (69/M)) LET P3 (PNT_XY (-155/M) (69/M)) LET P4 (PNT_XY (-102/M) (69/M)) LET P5 (PNT_XY (-49/M) (69/M)) LET P6 (PNT_XY 0 (69/M)) LET Delta (PNT_XY 0 (7/M)) IF (Zeichnungsnummer<>'Top') READ PNT 'Rechte untere Ecke des inneren Zeichnungsrahmens antippen' P LET A (A+P) LET B (B+P) LET C (C+P) LET D (D+P) LET E (E+P) LET F (F+P) LET G (G+P) LET H (H+P) LET I (I+P) LET J (J+P) LET K (K+P) LET L (L+P) LET N (N+P) LET O (O+P) LET Q (Q+P) LET S (S+P) LET P1 (P1+P) LET P2 (P2+P) LET P3 (P3+P) LET P4 (P4+P) LET P5 (P5+P) LET P6 (P6+P) {üüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüü} IF ( ((SUBSTR Zeichnungsnummer 1 1)='T') OR ((SUBSTR Zeichnungsnummer 1 1)='E') ) {üüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüü} READ NUMBER 'Positionsnr.' DEFAULT 0 Dummy_pos IF (Dummy_pos <> 0) TEXT (STR( Dummy_pos )) A END END_IF READ NUMBER 'Stueckzahl' DEFAULT 1 Dummy_menge IF (Dummy_menge <> 0) TEXT (STR( Dummy_menge )) B END END_IF Prinz_dateiabfrage 'Wkz_Werkstoff' READ STRING 'Werkstoff eingeben' Dummy_werkstoff SHOW_TABLE OFF 'RB_Dateiabfrage' TEXT Dummy_werkstoff D END Prinz_dateiabfrage 'Form' READ STRING 'Form eingeben' Dummy_form SHOW_TABLE OFF 'RB_Dateiabfrage' IF (Dummy_form='Fl.') READ NUMBER 'Breite eingeben:' DEFAULT 0 Dummy_breite_dm LET Dummy_breite_dm ( STR Dummy_breite_dm ) READ NUMBER 'Dicke eingeben:' DEFAULT 0 Dummy_dicke LET Dummy_dicke ( STR Dummy_dicke ) READ NUMBER 'Laenge eingeben:' DEFAULT 0 Dummy_laenge LET Dummy_laenge ( STR Dummy_laenge ) LET Dummy_rohmass (Dummy_form+' '+Dummy_breite_dm+' * '+Dummy_dicke+' * '+Dummy_laenge) TEXT Dummy_rohmass E END ELSE_IF (Dummy_form='Rd.') READ NUMBER 'Durchmesser eingeben:' DEFAULT 0 Dummy_breite_dm LET Dummy_breite_dm ( STR Dummy_breite_dm ) READ NUMBER 'Laenge eingeben:' DEFAULT 0 Dummy_laenge LET Dummy_laenge ( STR Dummy_laenge ) LET Dummy_rohmass (Dummy_form+' '+Dummy_breite_dm+' * '+Dummy_laenge) TEXT Dummy_rohmass E END ELSE_IF (Dummy_form='Rohr') READ NUMBER 'Aussendurchmesser eingeben:' DEFAULT 0 Dummy_breite_dm LET Dummy_breite_dm ( STR Dummy_breite_dm ) READ NUMBER 'Wandstaerke eingeben:' DEFAULT 0 Dummy_dicke LET Dummy_dicke ( STR Dummy_dicke ) READ NUMBER 'Laenge eingeben:' DEFAULT 0 Dummy_laenge LET Dummy_laenge ( STR Dummy_laenge ) LET Dummy_rohmass (Dummy_form+' '+Dummy_breite_dm+' * '+Dummy_dicke+' * '+Dummy_laenge) TEXT Dummy_rohmass E END ELSE_IF (Dummy_form='4kt.') READ NUMBER 'Breite eingeben:' DEFAULT 0 Dummy_breite_dm LET Dummy_breite_dm ( STR Dummy_breite_dm ) READ NUMBER 'Laenge eingeben:' DEFAULT 0 Dummy_laenge LET Dummy_laenge ( STR Dummy_laenge ) LET Dummy_rohmass (Dummy_form+' '+Dummy_breite_dm+' * '+Dummy_laenge) TEXT Dummy_rohmass E END ELSE_IF (Dummy_form='U') LET Dummy_rohmass (Dummy_form+' '+Dummy_breite_dm+' * '+Dummy_laenge) ELSE_IF (Dummy_form='L') LET Dummy_rohmass (Dummy_form+' '+Dummy_breite_dm+' * '+Dummy_dicke+' * '+Dummy_laenge) END_IF TEXT_SIZE 2.5 TEXT Datum F END TEXT_SIZE 2 TEXT_ADJUST 1 READ STRING 'Anzahl Blaetter' DEFAULT '1' TEXT_5 TEXT TEXT_5 L END {END_IF} {üüüüüü Arbeitsgangzeichnungen üüüüü} {üüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüü} ELSE_IF ((SUBSTR Zeichnungsnummer 1 2)='A4') {üüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüü} IF ((SUBSTR Zeichnungsnummer 9 2)='01') Prinz_dateiabfrage 'Werkstoff' READ STRING 'Werkstoff eingeben' Werkstoff SHOW_TABLE OFF 'RB_Dateiabfrage' LET Text_dummy Werkstoff Prinz_dateiabfrage 'Ausfuehrung' READ STRING 'AusfÏhrung eingeben' Ausfuehrung SHOW_TABLE OFF 'RB_Dateiabfrage' LET Text_dummy (Text_dummy + ' ' + Ausfuehrung) Prinz_dateiabfrage 'Oberfl_Wkst' READ STRING 'Oberflaeche eingeben' Oberflaeche SHOW_TABLE OFF 'RB_Dateiabfrage' LET Text_dummy (Text_dummy + ' ' + Oberflaeche) TEXT Text_dummy G END READ STRING 'Festigkeit ????' DEFAULT '... - ...' Festigkeit TEXT Festigkeit S END LOOP LET Text_schalter 0 READ STRING PNT 'Drahtdurchmesser' Text_dummy EXIT_IF ((TYPE Text_dummy) = STRING) LET Text_schalter 1 INQ_ELEM Text_dummy LET Text_dummy (inq 902) EXIT_IF (INQ 403 = TEXT) BEEP END_LOOP IF (Text_schalter = 1) READ STRING 'Drahtdurchmesser' DEFAULT Text_dummy Text_dummy END_IF TEXT Text_dummy H END END_IF Prinz_dateiabfrage 'Arbeitsgang' READ STRING 'Arbeitsgang' Text_dummy SHOW_TABLE OFF 'RB_Dateiabfrage' TEXT_ADJUST 4 TEXT Text_dummy I END TEXT_ADJUST 5 Prinz_dateiabfrage 'Verteiler' LOOP TEXT_SIZE 2 TEXT GREEN END READ STRING 'Verteiler' TEXT_3 EXIT_IF (TEXT_3=' E N D E') IF (TEXT_3 = 'eigener_Eintrag') READ STRING 'Verteiler' DEFAULT '...-..' TEXT_3 END_IF TEXT TEXT_3 N END LET N (N + (PNT_XY (14.9/M) 0)) NEW_SCREEN END_LOOP SHOW_TABLE OFF 'RB_Dateiabfrage' TEXT_SIZE 3.5 TEXT YELLOW END LOOP LET Text_schalter 0 READ STRING PNT 'Zeichnungsnummer' Text_dummy EXIT_IF ((TYPE Text_dummy) = STRING) LET Text_schalter 1 INQ_ELEM Text_dummy LET Text_dummy (inq 902) EXIT_IF (INQ 403 = TEXT) BEEP END_LOOP IF (Text_schalter = 1) READ STRING 'Zeichnungsnummer' DEFAULT Text_dummy Text_dummy END_IF TEXT Text_dummy J END TEXT_SIZE 2.5 TEXT Datum O END TEXT_SIZE 2 TEXT_ADJUST 1 READ STRING 'Anzahl Blaetter' DEFAULT '1' TEXT_5 TEXT TEXT_5 K END ELSE_IF ((SUBSTR Zeichnungsnummer 1 2)='A3') TEXT_SIZE 3.5 IF ((SUBSTR Zeichnungsnummer 9 2)='01') Prinz_dateiabfrage 'Werkstoff' READ STRING 'Werkstoff eingeben' Werkstoff SHOW_TABLE OFF 'RB_Dateiabfrage' LET Text_dummy Werkstoff Prinz_dateiabfrage 'Ausfuehrung' READ STRING 'AusfÏhrung eingeben' Ausfuehrung SHOW_TABLE OFF 'RB_Dateiabfrage' LET Text_dummy (Text_dummy + ' ' + Ausfuehrung) Prinz_dateiabfrage 'Oberfl_Wkst' READ STRING 'Oberflaeche eingeben' Oberflaeche SHOW_TABLE OFF 'RB_Dateiabfrage' LET Text_dummy (Text_dummy + ' ' + Oberflaeche) TEXT Text_dummy (P + (PNT_XY (-223/M) (30/M))) END READ STRING 'Festigkeit ????' DEFAULT '... - ...' Festigkeit TEXT Festigkeit (P + (PNT_XY (-223/M) (17/M))) END LOOP LET Text_schalter 0 READ STRING PNT 'Drahtdurchmesser' Text_dummy EXIT_IF ((TYPE Text_dummy) = STRING) LET Text_schalter 1 INQ_ELEM Text_dummy LET Text_dummy (inq 902) EXIT_IF (INQ 403 = TEXT) BEEP END_LOOP IF (Text_schalter = 1) READ STRING 'Drahtdurchmesser' DEFAULT Text_dummy Text_dummy END_IF TEXT Text_dummy (P + (PNT_XY (-223/M) (4/M))) END END_IF Prinz_dateiabfrage 'Arbeitsgang' READ STRING 'Arbeitsgang' Text_dummy SHOW_TABLE OFF 'RB_Dateiabfrage' TEXT_ADJUST 4 TEXT Text_dummy (P + (PNT_XY (-154/M) (32/M))) END Prinz_dateiabfrage 'Verteiler' LOOP TEXT_ADJUST 5 TEXT_SIZE 3 TEXT GREEN END READ STRING 'Verteiler' TEXT_3 EXIT_IF (TEXT_3=' E N D E') IF (TEXT_3 = 'eigener_Eintrag') READ STRING 'Verteiler' DEFAULT '...-..' TEXT_3 END_IF TEXT TEXT_3 (P + R) END LET R (R + (PNT_XY (21.213/M) 0)) NEW_SCREEN END_LOOP SHOW_TABLE OFF 'RB_Dateiabfrage' TEXT_SIZE 5 LOOP LET Text_schalter 0 READ STRING PNT 'Zeichnungsnummer' Text_dummy EXIT_IF ((TYPE Text_dummy) = STRING) LET Text_schalter 1 INQ_ELEM Text_dummy LET Text_dummy (inq 902) EXIT_IF (INQ 403 = TEXT) BEEP END_LOOP IF (Text_schalter = 1) READ STRING 'Zeichnungsnummer' DEFAULT Text_dummy Text_dummy END_IF TEXT Text_dummy (P + (PNT_XY (-38.9/M) (4.9/M))) END TEXT_SIZE 3.5 TEXT_RATIO 0.9 TEXT Datum Q END TEXT_SIZE 2.8 TEXT_ADJUST 1 TEXT_RATIO 1 READ STRING 'Anzahl Blaetter' DEFAULT '1' TEXT_5 TEXT TEXT_5 (P + (PNT_XY (-22.7/M) (21.2/M))) END {üüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüü} { ELSE } { Artikelzeichnungen } ELSE_IF ((SUBSTR Zeichnungsnummer 1 1)='Z') {üüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüüü} Prinz_dateiabfrage 'Verteiler' TEXT_ADJUST 5 TEXT_SIZE 2.5 TEXT GREEN END TEXT_RATIO 0.8 LINE GREEN END LINE SOLID END SPLITTING OFF LET V1 (PNT_XY (-17/M) (53.5/M)) LET V2 (PNT_XY (-17/M) (59/M)) LET V3 (PNT_XY 0 (59/M)) LET T1 (PNT_XY (-8.5/M) (56.25/M)) LET V1 (V1+P) LET V2 (V2+P) LET V3 (V3+P) LOOP READ STRING 'Verteiler' TEXT_7 EXIT_IF (TEXT_7=' E N D E') LINE POLYGON V1 V2 V3 END TEXT TEXT_7 (P + T1) END LET T1 (T1 + (PNT_XY (0) 5.5/M)) LET V1 (V1 + (PNT_XY (0) 5.5/M)) LET V2 (V2 + (PNT_XY (0) 5.5/M)) LET V3 (V3 + (PNT_XY (0) 5.5/M)) NEW_SCREEN END_LOOP SHOW_TABLE OFF 'RB_Dateiabfrage' {END_IF } DISPLAY "Datum aendern?" TEXT_ADJUST 5 TEXT_SIZE 2.5 TEXT YELLOW TEXT_RATIO 1 TEXT Datum F END TEXT_ADJUST 1 TEXT_SIZE 2 READ STRING 'Anzahl Blaetter' DEFAULT '1' TEXT_6 TEXT TEXT_6 L END {END_IF } {******************************************************************} ELSE_IF ((SUBSTR Zeichnungsnummer 1 1)='K') {ELSE} TEXT Datum F END IF ( ((SUBSTR Zeichnungsnummer 2 1)='3') OR ((SUBSTR Zeichnungsnummer 2 1)='4') OR ((SUBSTR Zeichnungsnummer 2 1)='5') ) TEXT_ADJUST 1 TEXT_SIZE 2 READ STRING 'Anzahl Blaetter' DEFAULT '1' TEXT_6 TEXT TEXT_6 L END END_IF ELSE BEEP DISPLAY 'Zeichnungsnummer noch nicht eingegeben !!' END_IF END_IF TEXT_SIZE 2.5 TEXT YELLOW END END_DEFINE