frommann.org

Beschreibung:

Dieses Perl-Skript setzt das Sperrkennzeichen (bel_sperrkz) eines einzelnen Belegs in der Tabelle beleg zurück auf 0, sodass der Beleg wieder freigegeben ist.

Funktionen:

• Beleg finden: Sucht den Beleg anhand der übergebenen Belegnummer in der Tabelle beleg.
• Sperrkennzeichen zurücksetzen: Setzt bel_sperrkz auf 0, sofern der Beleg gefunden wurde.
• Protokollierung: Hält Zeitpunkt, Benutzer sowie alten und neuen Wert in einer Protokolldatei fest.

Verarbeitungsschritte:

1. Prüfen, ob eine Belegnummer als Parameter übergeben wurde (sonst Abbruch mit Hinweis).
2. Öffnen der Beleg-Tabelle und Suche nach der angegebenen Belegnummer.
3. Bei Fund: Sperrkennzeichen auf 0 setzen und Änderung speichern.
4. Protokollieren von Zeitpunkt, Benutzer und altem/neuem Wert.

Technisches:

• Programmiersprache: Perl (PAL-Umgebung, ohne weitergehende Fehlerbehandlung)
• Erfordert gesetzte Shellvariable: BASIS
• Protokolliert nach: $BASIS/tmp/vtr_beleg_korr_LS.PROT

Hinweise:

• Ändert direkt den Live-Datensatz, ohne weitere Rückfrage vor dem Speichern.
• Nur für die gezielte Korrektur eines einzelnen Belegs vorgesehen, keine Stapelverarbeitung.
• Belegnummer vor dem Aufruf sorgfältig prüfen.

Aufruf:

perl sperrkz_nullen.pl 1001001

Beschreibung:

Dieses Perl-Skript verarbeitet Verkaufs- und Lieferdaten, um zusätzliche Historieneinträge für Stücklisten-Kopfpositionen zu erzeugen. Es identifiziert relevante Lieferscheine innerhalb eines definierten Zeitraums, markiert bestehende Einträge als TEILE-Position und ergänzt – sofern erforderlich – aggregierte Einträge für die zugehörige KOPF-Position in der Tabelle historie.

Funktionen:

• Kopfposition anlegen: Ergänzt bei Bedarf eine Kopfposition (POS_NO = 0) für zusammengesetzte Artikel.
• Teilepositionen kennzeichnen: Markiert alle untergeordneten Artikelpositionen mit dem Typ TEILE.
• Historie erweitern: Ergänzt oder aktualisiert Einträge in der Spalte his_x_fertigart für Auswertungen.

Verarbeitungsschritte:

1. Ermitteln aller relevanten Lieferscheine innerhalb der letzten 90 Tage
2. Filtern nach echten Lieferbelegen (kein Proforma, beltyp ≤ 5)
3. Auslesen der Lieferpositionen und zugehörigen Artikelpositionen
4. Markieren der TEILE-Positionen und Anlegen/Aktualisieren der KOPF-Position
5. Protokollieren der Änderungen

Technisches:

• Programmiersprache: Perl (ohne use strict, da für Testzwecke)
• Verwendete Felder: his_x_fertigart zur Typ-Kennzeichnung
• Protokolliert nach: /tmp/stck2his.PROT.MON<FIRMAKURZ>

Hinweise:

• Keine Fehlerbehandlung oder Transaktionssicherheit enthalten
• Nur für Test- oder Analyseumgebungen vorgesehen
• Vor Einsatz sollten Backups und manuelle Prüfungen erfolgen

Aufruf:

perl stck2hisMonat.pl 20250501

Beschreibung:

Dieses Perl-Skript setzt den Teuerungszuschlag (art_vkzuschl_002) für alle Artikel in der Datenbanktabelle artikel auf den Wert 0, sofern ein Zuschlag vorhanden ist. Das Skript iteriert über alle Datensätze und entfernt gezielt nur die Zuschläge, ohne andere Felder zu verändern.

Funktionen:

• Datenbanksicherung (optional): Ein Backuppfad ist vorbereitet, jedoch auskommentiert. Die Datei artikel kann vorab manuell gesichert werden.
• Datenbearbeitung: Das Feld art_vkzuschl_002 wird bei allen Artikeln mit vorhandenem Zuschlag auf 0 gesetzt.
• Protokollausgabe: Für jeden betroffenen Artikel wird die Artikelnummer sowie der alte und neue Zuschlagswert in die Konsole ausgegeben.

Verarbeitungsschritte:

1. Öffnen der Artikeltabelle
2. Iterieren über alle Artikel-Datensätze
3. Überspringen von Artikeln ohne gesetzten Teuerungszuschlag
4. Zuschlag auf 0 setzen und Artikelnummer mit altem/neuem Wert ausgeben

Technisches:

• Programmiersprache: Perl (ohne use strict; und ohne Fehlerbehandlung)
• Erfordert gesetzte Shellvariablen: AB1000_DA, AB1000_ALL
• Protokolliert: keine Protokolldatei, nur Konsolenausgabe je geändertem Artikel

Hinweise:

• Die Routine ist für den produktiven Einsatz nicht abgesichert (z. B. keine Transaktionen oder Fehlerprüfungen).
• Vor der Ausführung ist ein Backup der Artikeldaten dringend empfohlen (im Code vorbereitet, aber auskommentiert).
• Nutzung erfolgt auf eigene Verantwortung – richtet sich an erfahrene Nutzer mit Kenntnis des Datenmodells.

Aufruf:

perl Teuerungszuschlag_leeren.pl

Beschreibung:

Dieses PAL-Skript liest Verrechnungspreise aus der Artikeltabelle und überträgt sie in das ABS-Bestelldatenverzeichnis für den jeweils zugeordneten Lieferanten.

Funktionen:

• Preise einlesen: Liest Verrechnungspreise aus der Artikeltabelle.
• Lieferanten zuordnen: Ermittelt für jeden Artikel den zuständigen Lieferanten.
• ABS-Dateien erzeugen: Formatiert und schreibt die Preise in das ABS-Bestelldatenverzeichnis des jeweiligen Lieferanten.
• Logging: Protokolliert übertragene und übersprungene Datensätze zur Nachvollziehbarkeit.

Verarbeitungsschritte:

1. Auslesen aller relevanten Artikel mit Verrechnungspreis
2. Zuordnung des Lieferanten und Ermittlung des Zielpfads
3. Aufbereitung der Preisdaten im erforderlichen ABS-Format
4. Schreiben der Datei(en) in das jeweilige ABS-Verzeichnis
5. Protokollierung und optionales Reporting

Technisches:

• Programmiersprache: Perl (PAL-Umgebung)
• Erfordert gesetzte Shellvariablen: AB1000_DA, AB1000_ALL, BASIS, FIRMAKURZ
• Protokolliert nach: /tmp/verechnugs_preis2ABS_<FIRMAKURZ>.log, Ausgabedatei <ABSPFAD>/verechnugs_preis2ABS_<FIRMAKURZ>.txt

Hinweise:

• Vor dem Einsatz unbedingt in einer Testumgebung prüfen.
• Sicherstellen, dass Backups der Artikeldaten vorhanden sind.
• Die Routine prüft nicht alle möglichen Fehlerfälle; bei Unsicherheit manuell nachkontrollieren.

Aufruf:

perl verechnugs_preis2ABS.pl