Willkommen Gast! (Neue Beiträge) Forum
Die letzten 5 Beiträge in diesem Thema
Dieses Thema enthält mehr als 5 Beiträge. Klicken Sie hier, um das ganze Thema zu lesen.
Betreff: Re: Per Info: Zwei Felder verknüpfen
Danke, danke, danke für die vielen Tips.
Ich bin mittlerweile erfolgreich gewesen.
Die hier genannten Beispiele werde ich mir gut abspeichern.
Grüße
C. W.
Danke, danke, danke für die vielen Tips.
Ich bin mittlerweile erfolgreich gewesen.
Die hier genannten Beispiele werde ich mir gut abspeichern.
Grüße
C. W.
Betreff: Re: Per Info: Zwei Felder verknüpfen
Hallo,
wenn das der Text im Feld1 eine konstante Länge hat ist es einfach.
Hier ein Beispiel:
TITEL 'ZTST001 Test'
AUSWAHL FIRMA
FIRMA EQ '10'
*/ Einfach Konstante Länge /*
RECHNE FELD1 FORMAT(30 C) = 'Der Text ist 30 Zeichen lang: '
RECHNE FELD2 FORMAT( 6 C) = '112567'
RECHNE FELD3 FORMAT(50 C) = FELD1 LAENGE=30
RECHNE FELD3 STELLE=31 = FELD2 LAENGE=6
*/ Mehr Arbeit variable Länge /*
RECHNE FELD10 FORMAT(30 C) = 'Nur 9 Z:'
RECHNE FELD30 FORMAT(50 C) = FELD10 LAENGE=30
RECHNE L FORMAT(2 0) = 0
RECHNE L = 1 (FELD10 STELLE=1 EQ ' ')
RECHNE L = 2 (FELD10 STELLE=2 GT ' ')
RECHNE L = 3 (FELD10 STELLE=3 GT ' ')
RECHNE L = 4 (FELD10 STELLE=4 GT ' ')
RECHNE L = 5 (FELD10 STELLE=5 GT ' ')
RECHNE L = 6 (FELD10 STELLE=6 GT ' ')
RECHNE L = 6 (FELD10 STELLE=6 GT ' ')
RECHNE L = 7 (FELD10 STELLE=7 GT ' ')
RECHNE L = 8 (FELD10 STELLE=8 GT ' ')
RECHNE L = 9 (FELD10 STELLE=9 GT ' ')
RECHNE L = 10 (FELD10 STELLE=10 GT ' ')
*/ etc. /*
RECHNE L = L + 2 */ Ein Leerzeichen dazischen /*
RECHNE FELD30 STELLE=1 = FELD2 LAENGE=6 (L EQ 1)
RECHNE FELD30 STELLE=2 = FELD2 LAENGE=6 (L EQ 2)
RECHNE FELD30 STELLE=3 = FELD2 LAENGE=6 (L EQ 3)
RECHNE FELD30 STELLE=4 = FELD2 LAENGE=6 (L EQ 4)
RECHNE FELD30 STELLE=5 = FELD2 LAENGE=6 (L EQ 5)
RECHNE FELD30 STELLE=6 = FELD2 LAENGE=6 (L EQ 6)
RECHNE FELD30 STELLE=7 = FELD2 LAENGE=6 (L EQ 7)
RECHNE FELD30 STELLE=8 = FELD2 LAENGE=6 (L EQ
RECHNE FELD30 STELLE=9 = FELD2 LAENGE=6 (L EQ 9)
RECHNE FELD30 STELLE=10 = FELD2 LAENGE=6 (L EQ 10)
RECHNE FELD30 STELLE=11 = FELD2 LAENGE=6 (L EQ 11)
*/ etc. /*
AUSGABE LISTE
SORT FIRMA
LEVEL FIRMA
ZEILE 'Feld1 : ' FELD1
ZEILE 'Feld2 : ' FELD2
ZEILE 'Feld3 : ' FELD3
ZEILE 'L : ' L
ZEILE 'Feld10: ' FELD10
ZEILE 'Feld30: ' FELD30
Grüße
R.P.S.
Hallo,
wenn das der Text im Feld1 eine konstante Länge hat ist es einfach.
Hier ein Beispiel:
TITEL 'ZTST001 Test'
AUSWAHL FIRMA
FIRMA EQ '10'
*/ Einfach Konstante Länge /*
RECHNE FELD1 FORMAT(30 C) = 'Der Text ist 30 Zeichen lang: '
RECHNE FELD2 FORMAT( 6 C) = '112567'
RECHNE FELD3 FORMAT(50 C) = FELD1 LAENGE=30
RECHNE FELD3 STELLE=31 = FELD2 LAENGE=6
*/ Mehr Arbeit variable Länge /*
RECHNE FELD10 FORMAT(30 C) = 'Nur 9 Z:'
RECHNE FELD30 FORMAT(50 C) = FELD10 LAENGE=30
RECHNE L FORMAT(2 0) = 0
RECHNE L = 1 (FELD10 STELLE=1 EQ ' ')
RECHNE L = 2 (FELD10 STELLE=2 GT ' ')
RECHNE L = 3 (FELD10 STELLE=3 GT ' ')
RECHNE L = 4 (FELD10 STELLE=4 GT ' ')
RECHNE L = 5 (FELD10 STELLE=5 GT ' ')
RECHNE L = 6 (FELD10 STELLE=6 GT ' ')
RECHNE L = 6 (FELD10 STELLE=6 GT ' ')
RECHNE L = 7 (FELD10 STELLE=7 GT ' ')
RECHNE L = 8 (FELD10 STELLE=8 GT ' ')
RECHNE L = 9 (FELD10 STELLE=9 GT ' ')
RECHNE L = 10 (FELD10 STELLE=10 GT ' ')
*/ etc. /*
RECHNE L = L + 2 */ Ein Leerzeichen dazischen /*
RECHNE FELD30 STELLE=1 = FELD2 LAENGE=6 (L EQ 1)
RECHNE FELD30 STELLE=2 = FELD2 LAENGE=6 (L EQ 2)
RECHNE FELD30 STELLE=3 = FELD2 LAENGE=6 (L EQ 3)
RECHNE FELD30 STELLE=4 = FELD2 LAENGE=6 (L EQ 4)
RECHNE FELD30 STELLE=5 = FELD2 LAENGE=6 (L EQ 5)
RECHNE FELD30 STELLE=6 = FELD2 LAENGE=6 (L EQ 6)
RECHNE FELD30 STELLE=7 = FELD2 LAENGE=6 (L EQ 7)
RECHNE FELD30 STELLE=8 = FELD2 LAENGE=6 (L EQ
RECHNE FELD30 STELLE=9 = FELD2 LAENGE=6 (L EQ 9)
RECHNE FELD30 STELLE=10 = FELD2 LAENGE=6 (L EQ 10)
RECHNE FELD30 STELLE=11 = FELD2 LAENGE=6 (L EQ 11)
*/ etc. /*
AUSGABE LISTE
SORT FIRMA
LEVEL FIRMA
ZEILE 'Feld1 : ' FELD1
ZEILE 'Feld2 : ' FELD2
ZEILE 'Feld3 : ' FELD3
ZEILE 'L : ' L
ZEILE 'Feld10: ' FELD10
ZEILE 'Feld30: ' FELD30
Grüße
R.P.S.
Betreff: Re: Per Info: Zwei Felder verknüpfen
Hallo, hier ein Vorschlag.
*/--- Text ---/*
RECHNE FELD1 FORMAT (10 C) = PLZLANG
*/--- Kostenstelle ---/*
RECHNE FELD2 FORMAT (6 C) = ABKOSTST
RECHNE FELD3 FORMAT (17 C) = '-----------------'
RECHNE FELD3 STELLE = 1 = FELD1 STELLE = 1 LAENGE = 10
RECHNE FELD3 STELLE = 11 = '/'
RECHNE FELD3 STELLE = 12 = FELD2 STELLE = 1 LAENGE = 6
Viel Erfolg
Hallo, hier ein Vorschlag.
*/--- Text ---/*
RECHNE FELD1 FORMAT (10 C) = PLZLANG
*/--- Kostenstelle ---/*
RECHNE FELD2 FORMAT (6 C) = ABKOSTST
RECHNE FELD3 FORMAT (17 C) = '-----------------'
RECHNE FELD3 STELLE = 1 = FELD1 STELLE = 1 LAENGE = 10
RECHNE FELD3 STELLE = 11 = '/'
RECHNE FELD3 STELLE = 12 = FELD2 STELLE = 1 LAENGE = 6
Viel Erfolg
Betreff: Re: Per Info: Zwei Felder verknüpfen
Vielen Dank für das Beispiel. Jetzt wird es deutlich für mich.
Danke für die Hilfe.
Vielen Dank für das Beispiel. Jetzt wird es deutlich für mich.
Danke für die Hilfe.
Betreff: Re: Per Info: Zwei Felder verknüpfen
Hier ein Beispiel :
RECHNE AUS-TT FORMAT (2 0) = AUSDATUM
RECHNE AUS-MM FORMAT (2 0) = AUSDATUM * 0,01
RECHNE AUS-JJ FORMAT (2 0) = AUSDATUM * 0,0001
RECHNE AUS-TTC FORMAT (2 C) = AUS-TT
RECHNE AUS-MMC FORMAT (2 C) = AUS-MM
RECHNE AUS-JJC FORMAT (2 C) = AUS-JJ
RECHNE AUSTRITT FORMAT (8 C) = '00000000'
RECHNE AUSTRITT STELLE = 1 ='20' AUSDATUM NE 0
RECHNE AUSTRITT STELLE = 3 = AUS-JJC
RECHNE AUSTRITT STELLE = 5 = AUS-MMC
RECHNE AUSTRITT STELLE = 7 = AUS-TTC
Gruß
H.-H. Müller
Hier ein Beispiel :
RECHNE AUS-TT FORMAT (2 0) = AUSDATUM
RECHNE AUS-MM FORMAT (2 0) = AUSDATUM * 0,01
RECHNE AUS-JJ FORMAT (2 0) = AUSDATUM * 0,0001
RECHNE AUS-TTC FORMAT (2 C) = AUS-TT
RECHNE AUS-MMC FORMAT (2 C) = AUS-MM
RECHNE AUS-JJC FORMAT (2 C) = AUS-JJ
RECHNE AUSTRITT FORMAT (8 C) = '00000000'
RECHNE AUSTRITT STELLE = 1 ='20' AUSDATUM NE 0
RECHNE AUSTRITT STELLE = 3 = AUS-JJC
RECHNE AUSTRITT STELLE = 5 = AUS-MMC
RECHNE AUSTRITT STELLE = 7 = AUS-TTC
Gruß
H.-H. Müller
Alle Zeitangaben in GMT +02:00. Aktuelle Uhrzeit: 08:32.