Nummernkreise auch in anderen Bereichen nutzbar machen
Moderator: SYNERPY
-
- Beiträge: 125
- Registriert: Fr Okt 29, 2004 10:34 am
- Wohnort: Bückeburg
Nummernkreise auch in anderen Bereichen nutzbar machen
Hallo,
die neue Nummernkreisfunktion ist eine der Funktionen auf die ich in AvERP gewartet habe. Hier gibt es für die verschiedenen Vörgänge jeweils andere Nummernkreise mit ebenfalls unterschiedlichen Strukturen und es war bisher echt lästig, z.B. bei Bestellungen immer manuell einen Text mit der "richtigen" Bestellnummer einzufügen.
Es gibt meiner Meinung nach jedoch noch Bereiche, wo die Nummernkreisfunktion auch hilfreich sein könnte. Folgende Bereiche sind dies unter anderem:
Adressanlage (Adressnummer)
Lieferantenanlage (Lieferantennummer)
Kundenanlage (Kundennummer)
usw
Diese Bereiche werden bei den meisten zwar nicht so häufig genutzt, aber, wie gesagt, es könnte auch hier sehr hilfreich sein.
Gruß Oliver
die neue Nummernkreisfunktion ist eine der Funktionen auf die ich in AvERP gewartet habe. Hier gibt es für die verschiedenen Vörgänge jeweils andere Nummernkreise mit ebenfalls unterschiedlichen Strukturen und es war bisher echt lästig, z.B. bei Bestellungen immer manuell einen Text mit der "richtigen" Bestellnummer einzufügen.
Es gibt meiner Meinung nach jedoch noch Bereiche, wo die Nummernkreisfunktion auch hilfreich sein könnte. Folgende Bereiche sind dies unter anderem:
Adressanlage (Adressnummer)
Lieferantenanlage (Lieferantennummer)
Kundenanlage (Kundennummer)
usw
Diese Bereiche werden bei den meisten zwar nicht so häufig genutzt, aber, wie gesagt, es könnte auch hier sehr hilfreich sein.
Gruß Oliver
-
- Beiträge: 74
- Registriert: Mi Jan 12, 2005 10:19 am
- Wohnort: Aachen
-
- Beiträge: 125
- Registriert: Fr Okt 29, 2004 10:34 am
- Wohnort: Bückeburg
Sehr geehrter Herr Hendrik,
MfG Oliver Tonn
erstmal vielen Dank für die Antwort. Könnten Sie etwas konkreter werden, ich weiß leider überhaupt nicht wo ich wie anfangen soll.prodesse hat geschrieben:Sehr geehrter Herr Tonn,
die Erweiterung der Nummernkreise auf diese Tabellen ist trivial zu realisieren.
Einfach diese Tabellen in der Prozedur ergänzen.
MfG Oliver Tonn
Sehr geehrter Herr Tonn,
Sie müssen pro neue Tabelle die Sie im Nummernkreis ergänzen möchten folgende Zeilen in der Prozedur "P_MASKENKEY_INDIVUAL" ergänzen und einen neuen Nummernkreis in der Maske "Nummerkreis" definieren.
BKUND muss durch die entsprechenden Tabellennamen ersetzt werden !
(Formularname ab dem Unterstrich)
Dieses Beispiel ist für die Kundennummer.
Ich hoffe ich konnte Ihnen helfen und verbleibe
mit freundlichen Grüßen
Hendrik Hackmann
Sie müssen pro neue Tabelle die Sie im Nummernkreis ergänzen möchten folgende Zeilen in der Prozedur "P_MASKENKEY_INDIVUAL" ergänzen und einen neuen Nummernkreis in der Maske "Nummerkreis" definieren.
Code: Alles auswählen
...
...
ELSE IF (MYTABELLE = 'BKUND') THEN
SELECT MAX(MASKENKEY) FROM BKUND WHERE MASKENKEY STARTING :MYSTART INTO :MYDEFAULT;
(Formularname ab dem Unterstrich)
Dieses Beispiel ist für die Kundennummer.
Ich hoffe ich konnte Ihnen helfen und verbleibe
mit freundlichen Grüßen
Hendrik Hackmann
Sehr geehrter Her Tonn,
ich habe Ihnen nur den Teil gepostet den Sie im IBExpert hinzufügen müssen den Rest (AvERP Designer) hatte ich einfach übersehen
Hier folgt das Beispiel! Diese Codezeilen einfach in der AfterInsert Routine des Formulars (FRMV_BKUND) ergänzen.
Ist ungetestet aber sollte so funktionieren.
Nicht vergessen vorher GDB sichern !
Falls Sie weiteren Bedarf an Customizing und Erweiterungen haben stehen wir Ihnen natürlich gerne zur Verfügung.
Mit freundlichen Grüßen
Hendrik Hackmann
ich habe Ihnen nur den Teil gepostet den Sie im IBExpert hinzufügen müssen den Rest (AvERP Designer) hatte ich einfach übersehen
Hier folgt das Beispiel! Diese Codezeilen einfach in der AfterInsert Routine des Formulars (FRMV_BKUND) ergänzen.
Code: Alles auswählen
// Mandantenvorbelegung
frmdata.StP_Universal.StoredProcname := 'P_BMAND_CHECK';
frmdata.StP_Universal.Execute;
BMAND_ID := AsInteger(frmdata.StP_Universal.FieldByName('BMAND_ID'));
// Maskenkey
frmdata.StP_Universal.StoredProcname := 'P_MASKENKEY_INDIVIDUAL';
frmdata.StP_Universal.ParamByName('MyTabelle', 'BKUND');
frmdata.StP_Universal.ParamByName('BMAND_ID', BMAND_ID);
frmdata.StP_Universal.Execute;
D := AsString(frmdata.StP_Universal.Fieldbyname('MyDefault'));
M := Q_1.FieldByName('MaskenKey');
SetString(M, D);
Nicht vergessen vorher GDB sichern !
Falls Sie weiteren Bedarf an Customizing und Erweiterungen haben stehen wir Ihnen natürlich gerne zur Verfügung.
Mit freundlichen Grüßen
Hendrik Hackmann
-
- Beiträge: 125
- Registriert: Fr Okt 29, 2004 10:34 am
- Wohnort: Bückeburg
Hallo Herr Hackmann,
MfG Oliver Tonn
erstmal vielen Dank für die Hilfe. Ich steige zwar mittlerweile recht gut durch, allerdings habe ich was die Editierung der Funktionen im Designer angeht in der Programmierdoku nicht wirklich etwas gefunden. In der Maske die ich ändern möchte (BADR) existiert AfterInsert noch gar nicht. Ich weiß zwar, dass die Scripte als TListBox eingefügt werden, aber leider nicht wie neue eingefügt werden und wie bestehende editiert werden, hier ist die Programmierdoku etwas dünn.Hendrik Hackmann hat geschrieben:Hier folgt das Beispiel! Diese Codezeilen einfach in der AfterInsert Routine des Formulars (FRMV_BKUND) ergänzen.
MfG Oliver Tonn
Anlage neuer Methoden
Sehr geehrter Herr Tonn,
Sie können in dem Formular BADR einfach den Object Inspector öffnen und die rechte Maustaste auf diesem betätigen. Dann Klicken Sie auf den Eintrag "After Insert" und fertig
Mit freundlichen Grüßen
Hendrik Hackmann
Sie können in dem Formular BADR einfach den Object Inspector öffnen und die rechte Maustaste auf diesem betätigen. Dann Klicken Sie auf den Eintrag "After Insert" und fertig
Mit freundlichen Grüßen
Hendrik Hackmann
-
- Beiträge: 125
- Registriert: Fr Okt 29, 2004 10:34 am
- Wohnort: Bückeburg
Re: Anlage neuer Methoden
Sehr geehrter Herr Hackmann,
Ich habe die Lösung kurz vor Ihrer Antwort durch ein wenig logisches Denken selbst herausbekommen und es läuft perfekt, DANKE.
MfG Oliver Tonn
manchmal sollte ich mir das vorschnelle Fragen stellen schenken.Anonymous hat geschrieben:Sie können in dem Formular BADR einfach den Object Inspector öffnen und die rechte Maustaste auf diesem betätigen. Dann Klicken Sie auf den Eintrag "After Insert" und fertig
Ich habe die Lösung kurz vor Ihrer Antwort durch ein wenig logisches Denken selbst herausbekommen und es läuft perfekt, DANKE.
MfG Oliver Tonn