Transaktionen
Im Auftragsarbeitsplatz ist über das Eingabefeld ganz rechts unten (Eintrag TRN) das Ausführen von benutzerdefinierten Transaktionen möglich. Die Transaktionen beziehen sich dabei auf die angezeigten Datensätze. Stellen Sie also vor dem Aufruf sicher, dass die richtige Baustelle, sowie die gewünschten Datensätze angezeigt werden:
Im Feld "TRN" sind folgende Eingaben möglich:
HA1
Ableseergebnisse aus .csv lesen und eintragen (mit Zählerstand)
HA2
Ableseergebnisse aus .csv lesen und eintragen (ohne Zählerstand)
HA3
aus den Interninfos diverse felder rauslöschen!
HA4
EXPORT_TAN löschen
HA5
EXPORT_TAN setzen (auf manuelle Meldung)
HA6
aus den Zaehler_infos Werte in Feld BRIEF_NAME2 übertragen
HA7
Beurteilung via QS und Ergebnis in "Jahresverbrauch"
HA8
QS deaktivieren durch Eintrag von "QS_UMGANGEN"
HA9
Ablesehinweise und Vorgezogen aktualisieren
HAA
- alle Markieren, die in externer XLS Liste vorhanden sind
- Datei muss als .\NonDa\Bericht.xls gespeichert sein
- die Zählernummer muss in Excel-Spalte "D" angegeben sein
HAB
IDOC Schreibweisen in den InternInfos anpassen
Alt Neu aegpl_devloc= GeraeteplatzAlt= aeastl_anlage= AnlageAlt= aeger_matnr= MaterialnummerZaehlerAlt= aeger_sparte= Sparte=
HAC
- bei "Sparte=Einbau" wird "FA=," sichergestellt vorhandene Eintragungen bleiben erhalten
HE1
- Texte im Protokoll durch andere Texte ersetzen
- Erstellen Sie im Anwender-Pfad (Symbol blauer Ordner im OrgaMon-Hauptmenü) die Datei "Protokoll-Ersetzungen.txt"
FF=J;PY=J FF=N;PY=N
- In diesem Beispiel werden eingabe im Protokoll-Feld "FF" nach "PY" migriert
AY3
Daten aus den Historischen rücksichern
AY4
Ersetzen von Texten in den Textfeldern der Aufträge. Dazu wird im Anwenderverzeichnis (blauer Ordner im Hauptmenü!) die Datei AY4.txt verarbeitet:
"MONTEUR_INFO" | "INTERN_INFO" | "ZAEHLER_INFO" | "PROTOKOLL" | "LEISTUNGS_DETAILS" | "WIEDERVORLAGE_INFO" <Suchbegriff1> "|" <NeuerBegriff1> <Suchbegriff2> "|" <NeuerBegriff2> <Suchbegriff3> "|" <NeuerBegriff3> ...
AY5
- auf einen Knopfdruck ein Bilder.zip der markierten im Anwenderverzeichnis zusammenstellen
- Im Moment nur FA, FN, auf alle Bilder auf Anfrage ausbaubar
AH1
EXPORT*xml überprüfen
AH2
"Monteur Informiert" - Status aus den historischen Datensätzen löschen. Dadurch entfallen zu den aktuell angezeigten Terminen die "WEGFALL" und "TERMIN ALT:" Infos.
AH3
Die Datei ".\NonDa\Bericht.xls" wird geöffnet.
- In Spalte "C" muss sich die Postleitzahl der Liegenschaft befinden
- In Spalte "D" muss sich die Zählernummer (Alt) befinden.
Es wird eine Einzelauskunft zu allen Zählern erstellt, d.h. die angefragten Zähler werden genau in dieser Reihenfolge aufgelistet wie angefragt.
KE1
"550G" zur Zählernummer wieder dazumachen
KE2
Bei allen angezeigten Aufträgen wird die Sperre (VON-BIS) korigiert. Dazu wird aus der Interninfo der Eintrag
Ableseeinheit=
zu Rate gezogen.
Baustelle mit dem RID=355
Diese Ableseeinheit wird in der Baustelle mit dem RID=355 unter dem Feld "Zählernummer" gesucht. Die dortige Sperre wird in die aktuelle Ansicht übernommen.
Quelltext
const
cAbleseEinheit = 'Ableseeinheit';
var
n: integer;
AUFTRAG_R: integer;
qAUFTRAG: TIB_Query;
cAUFTRAG: TIB_Cursor;
InternInfos: TStringList;
AbleseEinheit: string;
sBericht: TStringList;
SperreVon, SperreBis: TAnfixDate;
_SperreVon, _SperreBis: TAnfixDate;
AktuellesJahr: integer;
FehlendeAbleseEinheiten: TStringList;
begin
BeginHourGlass;
sBericht := TStringList.create;
FehlendeAbleseEinheiten := TStringList.create;
qAUFTRAG := DataModuleDatenbank.nQuery;
cAUFTRAG := DataModuleDatenbank.nCursor;
InternInfos := TStringList.create;
with cAUFTRAG do
begin
sql.add('select SPERRE_VON,SPERRE_BIS from AUFTRAG where');
sql.add(' (BAUSTELLE_R=355) and');
sql.add(' (STATUS<>6) and');
sql.add(' (ZAEHLER_NUMMER=:CROSSREF)');
OPen;
end;
with qAUFTRAG do
begin
sql.add('select ZAEHLER_NUMMER,INTERN_INFO,SPERRE_VON,SPERRE_BIS from AUFTRAG where RID=:CROSSREF');
sql.add('for update');
OPen;
for n := 0 to pred(lRID.count) do
begin
AUFTRAG_R := integer(lRID[n]);
ParamByName('CROSSREF').AsInteger := AUFTRAG_R;
if not(eof) then
begin
// Ermittlung der AbleseEinheit noch unsicher!
FieldByName('INTERN_INFO').AssignTo(InternInfos);
AbleseEinheit := InternInfos.Values[cAbleseEinheit];
_SperreVon := DateTime2long(FieldByName('SPERRE_VON').AsDate);
_SperreBis := DateTime2long(FieldByName('SPERRE_BIS').AsDate);
SperreVon := _SperreVon;
SperreBis := _SperreBis;
if (AbleseEinheit <> ) then
begin
cAUFTRAG.ParamByName('CROSSREF').AsString := AbleseEinheit;
cAUFTRAG.ApiFirst;
if not(cAUFTRAG.eof) then
begin
SperreVon := DateTime2long(cAUFTRAG.FieldByName('SPERRE_VON').AsDate);
SperreBis := DateTime2long(cAUFTRAG.FieldByName('SPERRE_BIS').AsDate);
end
else
begin
sBericht.add(cERRORTEXT +
{ } FieldByName('ZAEHLER_NUMMER').AsString +
{ } ': Ableseeinheit "' + AbleseEinheit +
{ } '" ist unbekannt!');
if (FehlendeAbleseEinheiten.indexof(AbleseEinheit) = -1) then
FehlendeAbleseEinheiten.add(AbleseEinheit);
end;
end
else
begin
sBericht.add(cWARNINGText + ' ' + FieldByName('ZAEHLER_NUMMER').AsString + ': Ableseeinheit ist leer!');
end;
if DateOK(SperreVon) and DateOK(SperreBis) then
begin
AktuellesJahr := extractYear(DateGet);
// Die Sperre auf das aktuelle Jahr setzen
SperreVon :=
{ } Details2Long(AktuellesJahr,
{ } extractMonth(SperreVon),
{ } extractDay(SperreVon));
SperreBis :=
{ } Details2Long(AktuellesJahr,
{ } extractMonth(SperreBis),
{ } extractDay(SperreBis));
if SperreBis < SperreVon then
SperreBis :=
{ } Details2Long(AktuellesJahr + 1,
{ } extractMonth(SperreBis),
{ } extractDay(SperreBis));
if (_SperreVon <> SperreVon) or (_SperreBis <> SperreBis) then
begin
sBericht.add(cINFOText + ' ' + FieldByName('ZAEHLER_NUMMER').AsString + ' Änderung von ' +
long2date(_SperreVon) + '-' + long2date(_SperreBis) + ' auf ' + long2date(SperreVon) + '-' +
long2date(SperreBis));
edit;
FieldByName('SPERRE_VON').AsDate := Long2datetime(SperreVon);
FieldByName('SPERRE_BIS').AsDate := Long2datetime(SperreBis);
post;
end;
end;
end;
end;
close;
end;
//
if (FehlendeAbleseEinheiten.count > 0) then
begin
sBericht.add();
sBericht.add('Zusammenfassung aller fehlenden Ableseeinheiten:');
sBericht.add();
FehlendeAbleseEinheiten.sort;
sBericht.addstrings(FehlendeAbleseEinheiten);
end;
sBericht.SaveToFile(DiagnosePath + 'KE2.txt');
InternInfos.free;
qAUFTRAG.free;
sBericht.free;
FehlendeAbleseEinheiten.free;
openShell(DiagnosePath + 'KE2.txt');
EndHourGlass;
end;
KE3
BRIEF_STRASSE aus KUNDE_STRASSE übernehmen falls Hausnummer fehlt
KE4
aus den Zaehler_infos Werte in das Feld ZAEHLER_NUMMER übertragen
KE5
Zähler-Infos um Konstante "Quelle=xml" ergänzen!
KE6
erneute Geolokalisierung erzwingen
KE7
berichtigt Schreibweisen in der Intern-Info
- Leerschritte werden entfernt
- ":" wird entfernt
KE8
- "60" zur Zählernummer-neu dazumachen
KE9
- N1, N2, N3, N4 aus einer Excel-Datei korrigieren!
KEA
- Das Protokollfeld N2= befüllen aus "Regler-Nummer-Neu" oder "Regler-Nummer-Korrektur" oder "Regler-Nummer-Alt" sollte es noch keinen Wert haben.
KN1
KN2
Diese Transaktion bezieht sich auf Aufträge. In der Zählernummer ist eine RID einer Warenbewegung gespeichert. Bei dieser Warenbewegung wird BEWEGT auf 'Y' gesetzt, also das bewegt Flag wird gesetzt.
BO1
Diese Transaktion bezieht sich auf Aufträge. Aus den Verzeichnissen in dem Systemparameter FotoRecherche= werden die Fotos gesucht wie ihr ursprunglicher Name war, und nach den neuesten Erkenntnissen in die Internet-Ablage UND in die Foto-Verzeichnisse kopiert.