---

Hi,
Folgendes problem, jede Zeichnung kreigt bei uns einen Standstempel, den wir als Einzelteil zuladen. Dann müssen wir jedes mal das Datum ändern.
Da kam mir die Idee, 2 Buttons zu erstellen. Drückt man auf den ersten Button drauf kommt der Standstempel mit aktuellem Datum. Und wenn man mal irgendwann die Zeichnung wieder ändert muß man ja auch wieder den Standstempel ändern. Also dachte ich mir da, kann man dann den 2 Button drücken und das eingefügte Datum ändert sich auf das aktuelle Datum.

Ist es möglich solch ein Script zu schreiben was das aktuelle Datum vom System nimmt und es in den Standstempel einfügt, bzw. bei einer Änderung das Datum mit der Systemzeit abgleicht? (2 Buttons)

MfG homerpower

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

guten Morgen,
kein Problem. Erstelle eine Zeichnung mit dem Stempel. Hänge an den Datum-Text die Info "Datum_Standstempel", mache aus der Zeichnung ein Symbol.

DEFINE LADE_AKT
  local p0
  local datum
  let datum (DATE)  (* ggf. noch etwas formatieren *)
  load subpart "stempel"
  read last_prompt last_feedback p0
  p0 end
  change_text datum select global infos "Datum_Standstempel" confirm
  end
END_DEFINE

Das Aktualisieren geht genauso, nur die Zeilen mit dem Laden entfallen.

alles ganz einfach - viel Erfolg

------------------
Grüsse aus dem Schwarzwald 
www.Andreas-Baumgartner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

danke
aber ich hab damit ein problem, denn das datum ändert sich nicht, mus ich da irgend wie ein bestimmtes format einhalten, oder irgend welche sonderzeichen setzten da wo dann das datum erscheinen soll?

mfg homerpower

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo,
habe es nicht getestet, sehe aber keinen Grund warum es so nicht laufen könnte. Wie sieht denn Deine Zeichnung aus, die Du da herein laden tust? Hast Du dem Datumstext auch die vorgeschlagenen Infos angehängt? Was macht das Makro beim Laufen? Lass mal einen TRACE mitlaufen. Welche Fehlermeldungen/Meldungen gibt ME10 aus?

------------------
Grüsse aus dem Schwarzwald 
www.Andreas-Baumgartner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

da kommt das datum vom standstempel wie ich ihn abgespeichert habe. mus das datumfeld nciht irgend wie leer sein wenn man es abspeichert? nur ein gewisser wert drin stehn, den er dann ändert beim einfügen zum datum?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

und was sagt TRACE dazu?

EDIT: so habe mir jetzt die Mühe gemacht die Sache zu testen. Es läuft und läuft und läuft... Denke bei einem Fehler hätten die anderen Kollegen meinerseits längst Ihr berechtigtes Veto eingelegt.

Also nochmals TRACE! Hast Du den Info richtig gesetzt?
------------------
Grüsse aus dem Schwarzwald  
www.Andreas-Baumgartner.de

[Diese Nachricht wurde von baumgartner am 11. Juni 2003 editiert.]

[Diese Nachricht wurde von baumgartner am 11. Juni 2003 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

morgen, der trace hat gezeigt das es funktioniert, aber mein symbol war wohl nicht ganz perfekt, ahbe es jetzt neu gemacht und es funktioniert jetzt,

wie kann ich das datumsformat anpassen, damit er es so ausgibt

12.06.2003

mehr nicht ahja und davor sollte Stand: stehen, den mus man dann wohl noch an einer stelle in den quelltext drücken.

Stand: 12.06.2003
so wär es schön wenn es möglich ist

mfg homerpower

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von homerpower:
...
mehr nicht ahja und davor sollte Stand: stehen, den mus man dann wohl noch an einer stelle in den quelltext drücken.

Stand: 12.06.2003
so wär es schön wenn es möglich ist

mfg homerpower

---

nur weil ich so was ähnliches mal vor Jahren geschrieben hab ...

schreib statt
  LET Datum (DATE)
einfach
  Formatiere_datum
und lad dieses Makro noch dazu:

Code:

---

DEFINE Formatiere_datum
  LOCAL D
  LOCAL Tag
  LOCAL Monat
  LOCAL Jahr
  LET D (DATE)
  LET Tag (SUBSTR D 1 2)
  IF ((SUBSTR Tag 1 1) = ' ')
    LET Tag ('0' + SUBSTR Tag 2 1)
  END_IF
  LET Monat (UPC (SUBSTR D 4 3))
  IF (Monat='JAN')
    LET Monat '01'
  ELSE_IF (Monat='FEB')
    LET Monat '02'
  ELSE_IF (Monat='MAR')
    LET Monat '03'
  ELSE_IF (Monat='APR')
    LET Monat '04'
  ELSE_IF ((Monat='MAI') OR (Monat='MAY'))
    LET Monat '05'
  ELSE_IF (Monat='JUN')
    LET Monat '06'
  ELSE_IF (Monat='JUL')
    LET Monat '07'
  ELSE_IF (Monat='AUG')
    LET Monat '08'
  ELSE_IF (Monat='SEP')
    LET Monat '09'
  ELSE_IF ((Monat='OKT') OR (Monat='OCT'))
    LET Monat '10'
  ELSE_IF (Monat='NOV')
    LET Monat '11'
  ELSE_IF ((Monat='DEZ') OR (Monat='DEC'))
    LET Monat '12'
  END_IF
  LET Jahr (SUBSTR D 8 4)
  LET Datum ( "STAND: " + Tag + '.' + Monat + '.' + Jahr)
END_DEFINE

---

(untested, wie immer)

Gruß,
Hannes

------------------
undmiadanwosmadanundmiadanawosondas
oisdeswosmadanundwosondasdamara

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

jo funktoniert super, danke
kann cih dem programm aber noch irgend wie den fad sagen, weil ejtzt funktioniert es ja nur wenn es in meinem verzeichnis liegt, aber in wirklichkeit soll sie in einem anderen ordner liegen, was mus ich da noch einpassen?

mfg homerpower

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

...
load subpart "C:\pfad\und-pfad\stempel"
...

Danke auch für die noch nicht erhaltenen Unities.

------------------
Grüsse aus dem Schwarzwald 
www.Andreas-Baumgartner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

danke,
hm das hat ich auch probiert, aber bei mir hat es nicht geklappt, aber es lag an einem tipfehler im pfad.

zu den Unities, legt ihr da wirklcih wert drauf? ich weiß doch das ihr die besten seit und immer mit rat und tat zur hilfe steht!

mfg homerpower

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP