..!interpreter german translate
.. easy2lg - generiert
.. Generated by ADAPT Elektronik GmbH <Hocke>
.. at 2020-10-29, 07:33
.. file: \\10.190.200.143\erp-spx\owis\FMTAUSCH.spx
..
..  FMTAUSCH
..
.. kopf
..==============================================================================
..==
..==  Name              : FMTAUSCH
..==
..==  Pfad                : owis
..==
..==  Funktion          : Programm fr IS FMTAUSCH
..==
..==  Erstellungsdatum  : 16.10.2020
..==
..==  Autor             : ADAPT Elektronik GmbH
..==
..==
..==  notwendige Pfade  :
..==
..==  Menuepunkte       :
..==
..==  Maskenprioritaet
..==  bei EFOP          :
..==
..==  Besonderheiten    :
..==
..==
..==
..==
..==
..==                      nderungshistorie
..==                      =================
..==
..==  nderungsindex (1) Datum:
..==                     Autor:
..==                     nderungsgrund:
..==
..==============================================================================..
..
.. Variablendefinition
..... procedure stack pointer .....
.ART integer   xprocsp
.ART bool       xbDummy
.ART datum      xdDummy
.ART integer    xiDummy
.ART real       xrDummy
.ART text       xtDummy
.ART woche      xwDummy
..
.SETZE Nachfrage -
..
.. --------------------   BLOCK  --------------------
.. BOOLsche - Variablen
.. -------------------- ENDBLOCK --------------------
..
.. --------------------   BLOCK  --------------------
.. DATUMs - Variablen
.. -------------------- ENDBLOCK --------------------
..
.. --------------------   BLOCK  --------------------
.. INTEGER - Variablen
.. -------------------- ENDBLOCK --------------------
..
.. --------------------   BLOCK  --------------------
.. REAL - Variablen
.. -------------------- ENDBLOCK --------------------
..
.. --------------------   BLOCK  --------------------
.. TERMIN - Variablen
.. -------------------- ENDBLOCK --------------------
..
.. --------------------   BLOCK  --------------------
.. TEXT - Variablen
.ART TEXT xtsel      ? _F|defined(U|xtsel)
.ART TEXT xtkommd    ? _F|defined(U|xtkommd)
..
.ART TEXT xtcmd      ? _F|defined(U|xtcmd)
..
.. -------------------- ENDBLOCK --------------------
..
.. --------------------   BLOCK  --------------------
.. WOCHEN - Variablen
.. -------------------- ENDBLOCK --------------------
..
.. Subroutinen
.. Defaultwerte fr Programmierumgebung setzten
.EINGABE ARB
.EINGABE DEFAULT.INI
.ein is/ABASFARBEN.DEF
.ein ARTBESCHREIBUNG.INI
..
.. Initialisierungssequenz
.. initialize procedure stack pointer
.FORMEL xprocsp = 0
.. Escape-Sequenzen
..(s16H   -> kleinschrift
..&k2G LF -> LF+CR ...
..
.. ----------------------------------------
.WEITER EPROCDEF
.. Prozedurdefinition
..
!PROC001: ----- MACHZEILE -----
.MACHE MASKE ZEILE +
.. Felder aus Artikel fllen
.FORMEL M|ytersetz     = G|true
.FORMEL M|ytartikel    = H|artikel^id
.FORMEL M|ytartikelbez = M|ytartikel^namebspr
.FORMEL M|ytfl         = H|id
.. Werte aus Fertigungsliste eintragen
.FORMEL M|ytpos          = H|vpos
.FORMEL M|ytorig         = H|elex^id
.FORMEL M|ytporigbez     = M|ytorig^namebspr
.FORMEL M|ytorigfertin   = H|yfertin
..
.. Wert aus Wkz1
.FORMEL M|ytlawkz1        = H|elex^ylawkz1
..
..
.weiter 'xprocst.xprocsp'
..
!EPROCDEF: ----- end procedure definitions -----
.. ----------------------------------------
..
..
.. =====   CASE001   =====
.weiter BRK001 ? _('evtart' = "maskein")
.weiter ESAC001
!BRK001
.weiter BRK002 ? _('evtart' = "buttonnach")
..
.. =====   CASE002   =====
.weiter BRK003 ? _('evtvar' = "bstart")
.. Hauptfunktion
.mache maske zeile --
..
..
.weiter EL001 ? _((_('M|yartvon' = "")) ; (_('M|yartbis' = "")))
.. IF001
..
.weiter EL002 ? _(_('M|yartbis' = ""))
.. IF002
.FORMEL U|xtsel = "$,,artikel=" + 'M|yartvon' + "!" + 'M|yartbis'
..
.weiter FI002
!EL002
.FORMEL U|xtsel = "$,,artikel==" + 'M|yartvon'
..
!FI002
..
!EL001
.. FI001
..
..
.weiter EL003 ? _(_('M|yfertvon' = ""))
.. IF003
..
.weiter EL004 ? _(U|xtsel = "")
.. IF004
.FORMEL U|xtsel = "$,,elex==" + 'M|yfertvon'
..
.weiter FI004
!EL004
.FORMEL U|xtsel = 'U|xtsel' + ";elex==" + 'M|yfertvon'
..
!FI004
..
!EL003
.. FI003
..
..
.weiter EL005 ? _('U|xtsel' = "")
.. IF005
.. Fertigungsliste fr Artikel mit freigegebener Stckliste holen
.FORMEL U|xtsel = "$,,nummer=;such=;artikel^bsart=eigenfertigung;artikel^ybok1=true"
..
.weiter FI005
!EL005
.FORMEL U|xtsel = 'U|xtsel' + ";nummer=;such=;artikel^bsart=eigenfertigung;artikel^ybok1=true"
..
!FI005
..
.HOLE FERTIGUNGSLISTE 'xtsel'
..
..
!LOOP001: ==============================
.weiter ELOP001 ? _(mehr)
.. Zeile aus Fertigungsliste hole und in Infosystem schreiben wenn Fertigungsmittel
.HOLE zeile
..
..
!LOOP002: ==============================
.weiter ELOP002 ? _(mehr)
..
.weiter EL006 ? _(H|elex^gruppe = 2)
.. IF006
..
.weiter EL007 ? _(_(H|yfertin = H|elex^ylawkz1))
.. IF007
.. hier gehts mit dem Alternativen Werkzeug weiter ylawkz2
..
..
.weiter EL008 ? _(_(H|yfertin = H|elex^ywkz2^ylawkz1))
.. IF008
..
.weiter EL009 ? _(_(H|yfertin = H|elex^ywkz3^ylawkz1))
.. IF009
..
.weiter EL010 ? _(_(H|yfertin = H|elex^ywkz4^ylawkz1))
.. IF010
..
.weiter EL011 ? _(_(H|yfertin = H|elex^ywkz5^ylawkz1))
.. IF011
.aus
.ein DATEI.F
'H|nummer' - 'H|such' - 'H|artikel^nummer' - 'H|elex' - 'H|yfertin' -->  ylawkz1: 'H|elex^ylawkz1' - ylawkz2: 'H|elex^ywkz2' : 'H|elex^ywkz2^ylawkz2' - ylawkz3: 'H|elex^ywkz3' : 'H|elex^ywkz3^ylawkz3' - ylawkz4: 'H|elex^ywkz4' : 'H|elex^ywkz4^ylawkz4' - ylawkz5: 'H|elex^ywkz5' : 'H|elex^ywkz5^ylawkz5'
.. hier gehts dann mit dem nchsten eingetragenem Werkzeug weiter
..
.weiter FI011
!EL011
.. jetzt Prfung ob gesperrt und ob P99
..
..
.weiter EL012 ? _((_(H|elex^ywkz5^ygesp = G|true)) & (_('H|elex^ywkz5^platz' = "P99")))
.. IF012
..
.weiter EL013 ? _(H|elex = H|elex)
.. IF013
.formel xprocsp = xprocsp + 1
.art text xprocst.xprocsp ? _defined(xprocst.xprocsp)
.formel xprocst.xprocsp = "RET001" 
.weiter PROC001
!RET001
.formel xprocsp = xprocsp - 1
..
.. FM ersetzen
.FORMEL M|ytersatz       = H|elex^ywkz5^id
.FORMEL M|ytersatzbez    = M|ytersatz^namebspr
..
..
!EL013
.. FI013
..
!EL012
.. FI012
..
!FI011
..
.weiter FI010
!EL010
.. jetzt Prfung ob gesperrt und ob P99
..
..
.weiter EL014 ? _((_(H|elex^ywkz4^ygesp = G|true)) & (_('H|elex^ywkz4^platz' = "P99")))
.. IF014
..
.weiter EL015 ? _(H|elex = H|elex)
.. IF015
.formel xprocsp = xprocsp + 1
.art text xprocst.xprocsp ? _defined(xprocst.xprocsp)
.formel xprocst.xprocsp = "RET002" 
.weiter PROC001
!RET002
.formel xprocsp = xprocsp - 1
..
.. Felder zum ersetzen vorbelegen
.FORMEL M|ytersatz       = H|elex^ywkz4^id
.FORMEL M|ytersatzbez    = M|ytersatz^namebspr
..
..
!EL015
.. FI015
..
!EL014
.. FI014
..
!FI010
..
.weiter FI009
!EL009
.. jetzt Prfung ob gesperrt und ob P99
..
..
.weiter EL016 ? _((_(H|elex^ywkz3^ygesp = G|true)) & (_('H|elex^ywkz3^platz' = "P99")))
.. IF016
..
.weiter EL017 ? _(H|elex = H|elex)
.. IF017
.formel xprocsp = xprocsp + 1
.art text xprocst.xprocsp ? _defined(xprocst.xprocsp)
.formel xprocst.xprocsp = "RET003" 
.weiter PROC001
!RET003
.formel xprocsp = xprocsp - 1
..
.. Felder zum ersetzen vorbelegen
.FORMEL M|ytersatz       = H|elex^ywkz3^id
.FORMEL M|ytersatzbez    = M|ytersatz^namebspr
..FORMEL M|ytersatzfertin = M|ytersatz^yfertin
..
..
!EL017
.. FI017
..
!EL016
.. FI016
..
!FI009
..
.weiter FI008
!EL008
.. jetzt Prfung ob gesperrt und ob P99
..
..
.weiter EL018 ? _((_(H|elex^ywkz2^ygesp = G|true)) & (_('H|elex^ywkz2^platz' = "P99")))
.. IF018
..
.weiter EL019 ? _(H|elex = H|elex)
.. IF019
.formel xprocsp = xprocsp + 1
.art text xprocst.xprocsp ? _defined(xprocst.xprocsp)
.formel xprocst.xprocsp = "RET004" 
.weiter PROC001
!RET004
.formel xprocsp = xprocsp - 1
..
.. Felder zum ersetzen vorbelegen
.FORMEL M|ytersatz       = H|elex^ywkz2^id
.FORMEL M|ytersatzbez    = M|ytersatz^namebspr
..FORMEL M|ytersatzfertin = M|ytersatz^yfertin
..
..
!EL019
.. FI019
..
!EL018
.. FI018
..
!FI008
..
.weiter FI007
!EL007
.. wenn Yfertin = Land aus Fertigungsmittel dann nichts machen
..
!FI007
..
!EL006
.. FI006
..
.. nchste Zeile holfen
.HOLE ZEILE
..
.weiter LOOP002
!ELOP002: ==============================
..
.HOLE FERTIGUNGSLISTE
..
.weiter LOOP001
!ELOP001: ==============================
..
.weiter ESAC002
!BRK003
.weiter BRK004 ? _('evtvar' = "yverwersatz")
.. Verwendersatz aufrufen
..
.weiter EL020 ? _(M|ytersetz = G|true)
.. IF020
.FORMEL U|xtcmd = "INFOSYSTEM VERWENDERSADAPT ? nurflstd=false|yfl=" + 'M|ytfl^id' +  "|yartikel=" + 'M|ytartikel^id' + "|original=" + 'M|ytorig^id' + "|ersatz=" + 'M|ytersatz' + "|bstart=true"
.KOMMANDO -WARTEN 'U|xtcmd'
.FORMEL M|ytersetz = G|false
.SCHUTZ -geschuetzt M|ytersetz 'M|aktzeile'
..
.weiter FI020
!EL020
.box
Zeile ist nicht frs ersetzen des Fertigungsmittels freigegeben!
..
!FI020
..
.weiter ESAC002
!BRK004
.weiter BRK005 ? _('evtvar' = "yfmtauschen")
.. alle markierten Fertigungsmittel tauschen
.HOLE MASKE KOPF
.HOLE MASKE ZEILE 1
..
..
!LOOP003: ==============================
.weiter ELOP003 ? _(G|mehr)
..
.weiter EL021 ? _(M|ytersetz = G|true)
.. IF021
.FORMEL U|xtcmd = "INFOSYSTEM VERWENDERSADAPT ? nurflstd=false|ystart=true|yfl=" + 'M|ytfl^id' +  "|yartikel=" + 'M|ytartikel^id' + "|original=" + 'M|ytorig^id' + "|ersatz=" + 'M|ytersatz' + "|bstart=true"
.KOMMANDO -WARTEN 'U|xtcmd'
.FORMEL M|ytersetz = G|false
.SCHUTZ -geschuetzt M|ytersetz 'M|aktzeile'
..
!EL021
.. FI021
..
.HOLE MASKE ZEILE
..
.weiter LOOP003
!ELOP003: ==============================
..
.weiter ESAC002
!BRK005
.weiter BRK006 ? _('evtvar' = "yalleausw")
.. alle Zeilen markieren
.HOLE MASKE KOPF
..
.HOLE MASKE ZEILE 1
..
..
!LOOP004: ==============================
.weiter ELOP004 ? _(G|mehr = G|true)
.FORMEL M|ytersetz = G|true
..
.HOLE MASKE ZEILE
..
.weiter LOOP004
!ELOP004: ==============================
..
.weiter ESAC002
!BRK006
.weiter BRK007 ? _('evtvar' = "yauswentf")
.. Auswahl bei allen entfernen
.HOLE MASKE KOPF
.HOLE MASKE ZEILE 1
..
..
!LOOP005: ==============================
.weiter ELOP005 ? _(G|mehr)
.FORMEL M|ytersetz = G|false
..
.HOLE MASKE ZEILE
..
.weiter LOOP005
!ELOP005: ==============================
..
.weiter ESAC002
!BRK007
!ESAC002: =====   ENDCASE   =====
..
.weiter ESAC001
!BRK002
.weiter BRK008 ? _('evtart' = "feldaus")
.. evtart = feldaus
..
.. =====   CASE003   =====
.weiter BRK009 ? _('evtvar' = "yartvon")
.FORMEL M|yartvonbez = M|yartvon^namebspr
..
.weiter ESAC003
!BRK009
.weiter BRK010 ? _('evtvar' = "yfertvon")
.FORMEL M|yfertvonbez = M|yfertvon^namebspr
..
.weiter ESAC003
!BRK010
.weiter BRK011 ? _('evtvar' = "yartbis")
.FORMEL M|yartbisbez = M|yartbis^namebspr
..
.weiter ESAC003
!BRK011
.weiter BRK012 ? _('evtvar' = "ytersatz")
.FORMEL M|ytersatzbez = M|ytersatz^namebspr
..
.weiter ESAC003
!BRK012
!ESAC003: =====   ENDCASE   =====
..
.weiter ESAC001
!BRK008
!ESAC001: =====   ENDCASE   =====
..
