21. Juni 2007 10:06
21. Juni 2007 10:27
21. Juni 2007 10:33
21. Juni 2007 10:44
21. Juni 2007 10:55
21. Juni 2007 11:07
21. Juni 2007 11:14
sreutemann hat geschrieben:Klar ist das unter dem Reiter "Zahlung", aber wo lege ich fest, was Standardmäßig bei einer Neuanlage eines Debitoren vergeben wird.
21. Juni 2007 11:29
sreutemann hat geschrieben:[...] bei 2.60 geht das auch irgendwo!
21. Juni 2007 11:31
21. Juni 2007 11:37
21. Juni 2007 11:43
21. Juni 2007 12:04
21. Juni 2007 13:20
sreutemann hat geschrieben:Also, es ist tatsächlich im Coder der Table 18 irgendwas festgehalten. Mein Vorvorgänger hat dort vermerkt, dass ein bestimmter Zlg.-Bedingungscode heir als Standard vergeben wird. ich kann jedoch nicht finden, wo das definiert wird.
21. Juni 2007 13:30
G W S - Warenwirtschaft mit System
--------------------------------------------------------------------------------
Project: Technischer Großhandel
Version: 2.00
Lfd.Nr : gws:xx
Manager : gwsrak Peter Rakus
Developer: gwsrak Peter Rakus
© Copyright 2007 - All rights reserved
No. Date Developer Task Description
--------------------------------------------------------------------------------
01 31.05.07 gwsrak Anforderung Neue Felder eingefügt: 50015,50016,50017
BOG Informationstechnologie & Services
----------------------------------------------------------------------------------
Projekt: Technischer Großhandel
Version: 2.01
Leitung: Walter Albiker (bog.wa)
Nr. Datum Entwicklung Beschreibung
----------------------------------------------------------------------------------
01 03.08.01 Nitro.FS CDK-Kassenanbindung, Kundenkartenverwaltung
17.08.01 bog.wa Erweiterung
- Neue Felder eingefügt:
'Erstellt am'
'Erstellt um'
'Erstellt von'
'Kontonr. (Fibu)'
02 16.10.01 bog.wa Debitorensuche
- Neue Funktion 'SuchtextAktualisieren' eingefügt.
BOG Informationstechnologie & Services
----------------------------------------------------------------------------------
Projekt: Technischer Großhandel - Baustoffhandel
Version: 2.00
Entwicklung: Walter Albiker (bog.wa)
Nr. Datum Autor Beschreibung
----------------------------------------------------------------------------------
01 16.12.00 bog.wa Ansprechpartnerverwaltung
18.12.00 bog.wa Versandartenverwaltung
31.01.01 ov.mb Bonusverwaltung
23.06.01 bog.wa Warengruppenrabatt
BOG Informationstechnologie & Services
--------------------------------------
Projekt: Technischer Großhandel
Version: 1.00
Entwicklung: Walter Albiker (WA)
Nr. Datum Autor Beschreibung
-----------------------------------------------------------------------------------
01 25.08.98 RF Neue Felder "Rechnungsart", "Preis/Rabatt Ausweis", "Auftragssperre",
"Art", "Alternativartikel zugelassen" eingefügt.
02 21.08.99 WA Neue Felder "Korrigiert um", "Korrigiert von" eingefügt.
03 05.01.00 WA Neues Feld "Anzahl Lieferscheinkopien" eingefügt.
04 09.02.00 WA Debitor löschen: Konditionszuordnung löschen,
30.09.00 WA "Deb.-Artikelnr." löschen
23.10.00 WA "Debitor Artikel VK-Preisliste" löschen
05 10.03.00 WA Neues Feld "Konditionen drucken" eingefügt.
06 25.05.00 WA Neues Feld "Lieferschein mit Preis" eingefügt.
07 28.09.00 WA Property "InitValue" von Feld "Preis/Rabatt Ausweis" geändert.
08 04.10.00 WA Neues Feld "Deb.-/Artikelkonditionsgr." eingefügt.
09 12.11.00 WA Neues Feld "Kassenpreise" eingefügt.
BEDAV GmbH
-----------------------------------
Projekt: Technischer Großhandel,
autom. Rückstandsauflösung
Nr. Datum Autor Beschreibung
-----------------------------------------------------------------------------------
01 13.09.99 TOLdp Felder "Auftrag immer komplett", "Artikel immer komplett", "Restauftragsmenge"
"Artikelfilter" eingefügt
impuls Informationsmanagement GmbH
----------------------------------------------------------------------------------
Projekt: Technischer Großhandel
Händler: BOG Informationstechnologie & Services
Beginn : 01.09.99
imp.jb := impuls.Jörg Brugman
Nr Datum Kennz. Text
----------------------------------------------------------------------------------
01 21.11.1999 imp.jb Neues Feld eingefügt:
Rech.-Adresse ersetzen
Dieses Feld hat als InitValue "Ja".
02 08.12.1999 imp.jb Neues Feld eingefügt:
Bestpreisfindung
syscon Unternehmensberatungs GmbH
-----------------------------------------------------------------------------------
Projekt: Technischer Großhandel
Kassenanbindung (Datenübertragung)
Händler: BOG Informationstechnologie & Services
Beginn : 08.12.99
sw = Sabine Wenke
Nr. Datum Autor Beschreibung
-----------------------------------------------------------------------------------
@1 08.12.99 sw Änderungsprotokoll schreiben
dokumentiert werden in einer Änderungsprotokolldatei Ändern,
Anlegen, Löschen sowie Rename eine Datensatzes
KS Thommel TG-Update 2.01.01
----------------------------
Feste Vorbelegung bei Neuanlage:
Mahnmethodencode = IMMER
Zinskonditionencode = 01
Preisgruppencode = B
Zahlungsbedingung = 07TN
Kreditlimit = 1000
Rechnungsrabattcode = GR4-NETTO
Mengenrabatte zulass = nein
Deb/Artiklkond.Gruppe= STANDARD
Deb Bonusgruppe = STANDARD
Spediteurcode = LEER
Konditionen drucken = Alle
Status = 4
Bestpreisfindung = NEIN
Geschäftsbuchhungsgr.= INLAND
MWST-Buchungsgr. = INLAND
Debitorenbuchungsgr. = INLAND
Rech.Adr.ersetzen = NEIN
Debitorsuchtext wurde erweitert um das Feld Suchbegriff
Damit kann ein Suchtext mitgegeben werden der in der eigentlichen Debitoren-
adresse nicht vorkommt : Beispiel MMW für Müller Weingarten
BGT für Bodensee Gerätetechnik
Feldlänge wird bei Wertzuweisung per COPYSTR auf 200 begrenzt.
Preisgruppencode =
24.09.2001 bei Änderung des Preisgruppencodes wird automatisch geprüft ob die Preisgruppe
inkl. oder zuzüglich MwSt ist
OnInsert()
IF "Nr." = '' THEN BEGIN
VerkEinrichtung.GET;
VerkEinrichtung.TESTFIELD(Debitorennummern);
NrSerienVerw.InitSerie(VerkEinrichtung.Debitorennummern,xRec.Nummernserie,0D,"Nr.",Nummernserie);
Rechnungsrabattcode := "Nr.";
END;
InteressVonDebAktual.BeimEinfügen(Rec);
// - TG2.01::01 -------------------------------------------------------------------
"Erstellt am" := TODAY;
"Erstellt um" := TIME;
"Erstellt von" := USERID;
// + TG2.01::01 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// @1 -sw
ÄnderungsprotokollKasse.DatensatzEinfügen(0,0,"Nr.",'',0);
// +sw
// - TG2.01::01 -------------------------------------------------------------------
KassenExpÄndTab.DebitorÄnderung(Rec,KassenExpÄndTab.Art::Insert);
// + TG2.01::01 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// - TG2.01::02 -------------------------------------------------------------------
SuchtextAktualisieren;
// + TG2.01::02 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// + KS Thommel TG-Update 2.01.01 ----------------------------
Mahnmethodencode := 'IMMER';
Zinskonditionencode := '01';
Preisgruppencode := 'BASIS';// 'B';
"Zlg.-Bedingungscode" := '07TN';
"Kreditlimit (MW)" := 250;// 1000;
Rechnungsrabattcode := 'GR4-NETTO';
"Mengenrabatt zulassen" := FALSE;
"Deb.-/Artikelkonditionsgr." := 'STANDARD';
Debitorenbonusgruppe := 'STANDARD';
Spediteurcode := 'LEER';
Status := FORMAT(4);
"Bestpreisfindung VK-Preisliste" := FALSE;
Geschäftsbuchungsgruppe := 'INLAND';
"MWSt Geschäftsbuchungsgruppe" := 'INLAND';
Debitorenbuchungsgruppe := 'INLAND';
"Rech.-Adresse ersetzen" := FALSE;
"BranchenCode THOMMEL" := '7';
// + KS Thommel TG-Update 2.01.01 ++++++++++++++++++++++++++++
OnModify()
"Korrigiert am" := TODAY;
// TG1.00, Start
"Korrigiert um" := TIME;
"Korrigiert von" := USERID;
// TG1.00, Ende
IF ("Nr." <> xRec."Nr.") OR
(Name <> xRec.Name) OR
(Suchbegriff <> xRec.Suchbegriff) OR
("Name 2" <> xRec."Name 2") OR
(Adresse <> xRec.Adresse) OR
("Adresse 2" <> xRec."Adresse 2") OR
(Ort <> xRec.Ort) OR
("Telefonnr." <> xRec."Telefonnr.") OR
(Gebietscode <> xRec.Gebietscode) OR
(Kostenstellencode <> xRec.Kostenstellencode) OR
(Kostenträgercode <> xRec.Kostenträgercode) OR
(Währungscode <> xRec.Währungscode) OR
(Sprachcode <> xRec.Sprachcode) OR
(Verkäufercode <> xRec.Verkäufercode) OR
(Ländercode <> xRec.Ländercode) OR
("Faxnr." <> xRec."Faxnr.") OR
("USt-IdNr." <> xRec."USt-IdNr.") OR
("PLZ Code" <> xRec."PLZ Code") OR
(Bundesregion <> xRec.Bundesregion) OR
("E-Mail" <> xRec."E-Mail") OR
(Homepage <> xRec.Homepage)
THEN
InteressVonDebAktual.BeimÄndern(Rec);
// @1 -sw
ÄnderungsprotokollKasse.DatensatzEinfügen(0,1,"Nr.",'',0);
// +sw
// - TG2.01::01 -------------------------------------------------------------------
KassenExpÄndTab.DebitorÄnderung(Rec,KassenExpÄndTab.Art::Modify);
// + TG2.01::01 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// - TG2.01::02 -------------------------------------------------------------------
SuchtextAktualisieren;
// + TG2.01::02 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
OnDelete()
PostenUmbenennen.DebPostenUmbenennen(Rec);
BemerkZeile.SETRANGE(Tabellenname,BemerkZeile.Tabellenname::Debitor);
BemerkZeile.SETRANGE("Nr.","Nr.");
BemerkZeile.DELETEALL;
DebitorBankKto.SETRANGE("Debitorennr.","Nr.");
DebitorBankKto.DELETEALL;
LieferAnAdr.SETRANGE("Debitorennr.","Nr.");
LieferAnAdr.DELETEALL;
AuftragZeile.SETCURRENTKEY(Belegart,"Rech. an Deb.-Nr.");
AuftragZeile.SETRANGE(Belegart,AuftragZeile.Belegart::Auftrag);
AuftragZeile.SETRANGE("Rech. an Deb.-Nr.","Nr.");
IF AuftragZeile.FIND('-') THEN
ERROR(
'Sie können nicht löschen %1 %2, da noch Aufträge auf diesem Debitor vorhanden sind.',
TABLENAME,"Nr.");
InteressVonDebAktual.BeimLöschen(Rec);
// TG1.00:04, Start
DebArtKond.SETRANGE("Debitorennr.","Nr.");
DebArtKond.DELETEALL;
DebArtNr.SETRANGE("Debitorennr.","Nr.");
DebArtNr.DELETEALL;
DebArtVKPreisl.SETRANGE("Debitorennr.","Nr.");
DebArtVKPreisl.DELETEALL;
// TG1.00:04, Ende
// - TG2.01::02 -------------------------------------------------------------------
Kundenkarte.SETRANGE("Debitorennr.","Nr.");
Kundenkarte.DELETEALL;
IF DebSuchText.GET("Nr.") THEN
DebSuchText.DELETE;
// + TG2.01::02 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// @1 -sw
ÄnderungsprotokollKasse.DatensatzEinfügen(0,2,"Nr.",'',0);
// +sw
// - TG2.01::01 -------------------------------------------------------------------
KassenExpÄndTab.DebitorÄnderung(Rec,KassenExpÄndTab.Art::Delete);
// + TG2.01::01 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
// - 02:TG2.00 --------------------------------------------------------------------
LicPermission.GET(
LicPermission."Object Type"::Table,
DATABASE::"Deb.-/Kred.-Verband");
IF LicPermission."Delete Permission" = LicPermission."Delete Permission"::Yes THEN BEGIN
DebVerband.SETRANGE(Art,DebVerband.Art::Debitor);
DebVerband.SETRANGE(Code,"Nr.");
DebVerband.DELETEALL;
END;
LicPermission.GET(
LicPermission."Object Type"::Table,
DATABASE::Bonuskopf);
IF LicPermission."Modify Permission" = LicPermission."Modify Permission"::Yes THEN BEGIN
Bonuskopf.SETRANGE("Debitorennr.","Nr.");
Bonuskopf.MODIFYALL("Debitorennr.",'',TRUE);
END;
// + 02:TG2.00 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
OnRename()
"Korrigiert am" := TODAY;
// TG1.00, Start
"Korrigiert um" := TIME;
"Korrigiert von" := USERID;
// TG1.00, Ende
// @1, -sw
ÄnderungsprotokollKasse.DatensatzEinfügen(0,2,xRec."Nr.",'',0);
ÄnderungsprotokollKasse.DatensatzEinfügen(0,0,"Nr.",'',0);
// +sw
// - TG2.01::01 -------------------------------------------------------------------
KassenExpÄndTab.DebitorÄnderung(xRec,KassenExpÄndTab.Art::Delete);
KassenExpÄndTab.DebitorÄnderung(Rec,KassenExpÄndTab.Art::Insert);
// + TG2.01::01 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Nr. - OnValidate()
IF "Nr." <> xRec."Nr." THEN BEGIN
VerkEinrichtung.GET;
NrSerienVerw.PrüfeManuelleNr(VerkEinrichtung.Debitorennummern);
Nummernserie := '';
END;
Rechnungsrabattcode := "Nr.";
// - TG2.01::01 -------------------------------------------------------------------
IF "Nr." <> '' THEN BEGIN
Kundenkarte.SETCURRENTKEY(Barcode);
Kundenkarte.SETRANGE(Barcode,"Nr.");
IF Kundenkarte.FIND('-') THEN
ERROR(TGText001,"Nr.");
END;
// + TG2.01::01 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Nr. - OnLookup()
Name - OnValidate()
// IF (Suchbegriff = UPPERCASE(xRec.Name)) OR (Suchbegriff = '') THEN Suchbegriff := Name;
// KS THOMMEL - nur bei Neuanlage wird kopiert, damit auch alternative ---
// Suchbegriffe mitgegeben werden können
//
IF Suchbegriff = '' THEN Suchbegriff := Name;
// KS THOMMEL ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Name - OnLookup()
Suchbegriff - OnValidate()
Suchbegriff - OnLookup()
Name 2 - OnValidate()
Name 2 - OnLookup()
Adresse - OnValidate()
Adresse - OnLookup()
Adresse 2 - OnValidate()
Adresse 2 - OnLookup()
Ort - OnValidate()
Ort - OnLookup()
Kontaktperson - OnValidate()
Kontaktperson - OnLookup()
Telefonnr. - OnValidate()
Telefonnr. - OnLookup()
Telexnr. - OnValidate()
Telexnr. - OnLookup()
Unsere Kontonr. - OnValidate()
Unsere Kontonr. - OnLookup()
Gebietscode - OnValidate()
Gebietscode - OnLookup()
Kostenstellencode - OnValidate()
Kostenstellencode - OnLookup()
Kostenträgercode - OnValidate()
Kostenträgercode - OnLookup()
Kette - OnValidate()
Kette - OnLookup()
Budgetierter Betrag - OnValidate()
Budgetierter Betrag - OnLookup()
Kreditlimit (MW) - OnValidate()
Kreditlimit (MW) - OnLookup()
Debitorenbuchungsgruppe - OnValidate()
Debitorenbuchungsgruppe - OnLookup()
Währungscode - OnValidate()
Währungscode - OnLookup()
Preisgruppencode - OnValidate()
Preisgruppencode - OnLookup()
Sprachcode - OnValidate()
Sprachcode - OnLookup()
Statistikgruppe - OnValidate()
Statistikgruppe - OnLookup()
Zlg.-Bedingungscode - OnValidate()
Zlg.-Bedingungscode - OnLookup()
Zinskonditionencode - OnValidate()
Zinskonditionencode - OnLookup()
Verkäufercode - OnValidate()
Verkäufercode - OnLookup()
Lieferbedingungscode - OnValidate()
Lieferbedingungscode - OnLookup()
Spediteurcode - OnValidate()
Spediteurcode - OnLookup()
Transitstelle - OnValidate()
Transitstelle - OnLookup()
Rechnungsrabattcode - OnValidate()
Rechnungsrabattcode - OnLookup()
Deb.-/Artikelrabattgr. - OnValidate()
Deb.-/Artikelrabattgr. - OnLookup()
Ländercode - OnValidate()
Ländercode - OnLookup()
Einzugsverfahren - OnValidate()
Einzugsverfahren - OnLookup()
Betrag - OnValidate()
Betrag - OnLookup()
Bemerkung - OnValidate()
Bemerkung - OnLookup()
Gesperrt - OnValidate()
Gesperrt - OnLookup()
Anzahl Rechnungskopien - OnValidate()
Anzahl Rechnungskopien - OnLookup()
Letzte Kontoauszugsnr. - OnValidate()
Letzte Kontoauszugsnr. - OnLookup()
Kontoauszüge drucken - OnValidate()
Kontoauszüge drucken - OnLookup()
Rech. an Deb.-Nr. - OnValidate()
Rech. an Deb.-Nr. - OnLookup()
Priorität - OnValidate()
Priorität - OnLookup()
Zahlungsformcode - OnValidate()
Zahlungsformcode - OnLookup()
Korrigiert am - OnValidate()
Korrigiert am - OnLookup()
Datumsfilter - OnValidate()
Datumsfilter - OnLookup()
Kostenstellenfilter - OnValidate()
Kostenstellenfilter - OnLookup()
Kostenträgerfilter - OnValidate()
Kostenträgerfilter - OnLookup()
Saldo - OnValidate()
Saldo - OnLookup()
Saldo (MW) - OnValidate()
Saldo (MW) - OnLookup()
Bewegung - OnValidate()
Bewegung - OnLookup()
Bewegung (MW) - OnValidate()
Bewegung (MW) - OnLookup()
Verkauf (MW) - OnValidate()
Verkauf (MW) - OnLookup()
DB (MW) - OnValidate()
DB (MW) - OnLookup()
Rechnungsrabatte (MW) - OnValidate()
Rechnungsrabatte (MW) - OnLookup()
Skonto (MW) - OnValidate()
Skonto (MW) - OnLookup()
Fälliger Saldo - OnValidate()
Fälliger Saldo - OnLookup()
Fälliger Saldo (MW) - OnValidate()
Fälliger Saldo (MW) - OnLookup()
Zahlungen - OnValidate()
Zahlungen - OnLookup()
Fakturierter Betrag - OnValidate()
Fakturierter Betrag - OnLookup()
Gutgeschriebener Betrag - OnValidate()
Gutgeschriebener Betrag - OnLookup()
Zinsrechnungsbetrag - OnValidate()
Zinsrechnungsbetrag - OnLookup()
Bezahlt (MW) - OnValidate()
Bezahlt (MW) - OnLookup()
Fakturierter Betrag (MW) - OnValidate()
Fakturierter Betrag (MW) - OnLookup()
Gutgeschriebener Betrag (MW) - OnValidate()
Gutgeschriebener Betrag (MW) - OnLookup()
Zinsrechnungsbetrag (MW) - OnValidate()
Zinsrechnungsbetrag (MW) - OnLookup()
Auftragsbestand - OnValidate()
Auftragsbestand - OnLookup()
Nicht fakt. Lieferungen - OnValidate()
Nicht fakt. Lieferungen - OnLookup()
Ausgleichsmethode - OnValidate()
Ausgleichsmethode - OnLookup()
Mengenrabatt zulassen - OnValidate()
Mengenrabatt zulassen - OnLookup()
VK-Preise inkl. MWSt - OnValidate()
VK-Preise inkl. MWSt - OnLookup()
Lagerortcode - OnValidate()
Lagerortcode - OnLookup()
Faxnr. - OnValidate()
Faxnr. - OnLookup()
Telex Namengeber - OnValidate()
Telex Namengeber - OnLookup()
USt-IdNr. - OnValidate()
USt-IdNr. - OnLookup()
Sammelrechnung - OnValidate()
Sammelrechnung - OnLookup()
Geschäftsbuchungsgruppe - OnValidate()
IF xRec.Geschäftsbuchungsgruppe <> Geschäftsbuchungsgruppe THEN
IF GeschBuchungsgruppe.ValidateMWStGeschBuchGruppe(GeschBuchungsgruppe,Geschäftsbuchungsgruppe) THEN
VALIDATE("MWSt Geschäftsbuchungsgruppe",GeschBuchungsgruppe."Vorg. MWSt Geschäftsbuch.Gr.");
Geschäftsbuchungsgruppe - OnLookup()
Bild - OnValidate()
Bild - OnLookup()
PLZ Code - OnValidate()
IF PLZahl.GET("PLZ Code") THEN
Ort := PLZahl.Ort;
PLZ Code - OnLookup()
Bundesregion - OnValidate()
Bundesregion - OnLookup()
Sollbetrag - OnValidate()
Sollbetrag - OnLookup()
Habenbetrag - OnValidate()
Habenbetrag - OnLookup()
Sollbetrag (MW) - OnValidate()
Sollbetrag (MW) - OnLookup()
Habenbetrag (MW) - OnValidate()
Habenbetrag (MW) - OnLookup()
E-Mail - OnValidate()
E-Mail - OnLookup()
Homepage - OnValidate()
Homepage - OnLookup()
Mahnmethodencode - OnValidate()
Mahnmethodencode - OnLookup()
Mahnbeträge - OnValidate()
Mahnbeträge - OnLookup()
Mahnbeträge (MW) - OnValidate()
Mahnbeträge (MW) - OnLookup()
Nummernserie - OnValidate()
Nummernserie - OnLookup()
Steuergebietscode - OnValidate()
Steuergebietscode - OnLookup()
Steuerpflichtig - OnValidate()
Steuerpflichtig - OnLookup()
MWSt Geschäftsbuchungsgruppe - OnValidate()
MWSt Geschäftsbuchungsgruppe - OnLookup()
Währungsfilter - OnValidate()
Währungsfilter - OnLookup()
Auftragsbestand (MW) - OnValidate()
Auftragsbestand (MW) - OnLookup()
Nicht fakt. Lieferungen (MW) - OnValidate()
Nicht fakt. Lieferungen (MW) - OnLookup()
Reservieren - OnValidate()
Reservieren - OnLookup()
Innendienst - OnValidate()
Innendienst - OnLookup()
Auftragsbest. Hinweis - OnValidate()
Auftragsbest. Hinweis - OnLookup()
Status - OnValidate()
Status - OnLookup()
Grund für Berechnung sperren - OnValidate()
Grund für Berechnung sperren - OnLookup()
Nur interne Buchung - OnValidate()
IF "Nur interne Buchung" THEN
IF (Lagerortcode = '') OR ("Ziellagerort interne Buchung" = '') THEN
ERROR('Sie müssen zuerst die Lagerorte eintragen.');
Nur interne Buchung - OnLookup()
Ziellagerort interne Buchung - OnValidate()
IF ("Ziellagerort interne Buchung" = '') AND ("Nur interne Buchung") THEN
ERROR('Sie müssen zuert "Nur interne Buchung" deaktivieren.');
Ziellagerort interne Buchung - OnLookup()
BranchenCode THOMMEL - OnValidate()
BranchenCode THOMMEL - OnLookup()
Steuernummer - OnValidate()
Steuernummer - OnLookup()
Boni Ja/Nein - OnValidate()
Boni Ja/Nein - OnLookup()
BranchenCode - OnValidate()
BranchenCode - OnLookup()
Premium Werkzeugkatalog - OnValidate()
Premium Werkzeugkatalog - OnLookup()
Premium Elektrowerkzeugkatalog - OnValidate()
Premium Elektrowerkzeugkatalog - OnLookup()
Arbeitsschutzkatalog - OnValidate()
Arbeitsschutzkatalog - OnLookup()
Suchtext THOMMEL - OnValidate()
Suchtext THOMMEL - OnLookup()
Anzahl Lieferscheinkopien - OnValidate()
Anzahl Lieferscheinkopien - OnLookup()
Konditionen drucken - OnValidate()
Konditionen drucken - OnLookup()
Korrigiert um - OnValidate()
Korrigiert um - OnLookup()
Korrigiert von - OnValidate()
Korrigiert von - OnLookup()
Klasse - OnValidate()
Klasse - OnLookup()
Rech.-Adresse ersetzen - OnValidate()
Rech.-Adresse ersetzen - OnLookup()
Bestpreisfindung VK-Preisliste - OnValidate()
Bestpreisfindung VK-Preisliste - OnLookup()
Auftrag immer komplett - OnValidate()
Auftrag immer komplett - OnLookup()
Artikel immer komplett - OnValidate()
Artikel immer komplett - OnLookup()
Restauftragsmenge - OnValidate()
Restauftragsmenge - OnLookup()
Artikelfilter - OnValidate()
Artikelfilter - OnLookup()
Rechnungsart - OnValidate()
Rechnungsart - OnLookup()
Preis-/Zeilenrabattdruck - OnValidate()
Preis-/Zeilenrabattdruck - OnLookup()
Auftragssperre - OnValidate()
Auftragssperre - OnLookup()
Art - OnValidate()
Art - OnLookup()
Alternativartikel zugelassen - OnValidate()
Alternativartikel zugelassen - OnLookup()
Lieferschein mit Preis - OnValidate()
Lieferschein mit Preis - OnLookup()
Deb.-/Artikelkonditionsgr. - OnValidate()
Deb.-/Artikelkonditionsgr. - OnLookup()
Kassenpreise - OnValidate()
Kassenpreise - OnLookup()
Versandartencode - OnValidate()
Versandartencode - OnLookup()
Frachtzonengruppe - OnValidate()
Frachtzonengruppe - OnLookup()
Versandkostendruck - OnValidate()
Versandkostendruck - OnLookup()
Debitorenbonusgruppe - OnValidate()
Debitorenbonusgruppe - OnLookup()
Bonus - OnValidate()
Bonus - OnLookup()
// - 02:TG2.00 --------------------------------------------------------------------
Bonuskopf.SETRANGE(Bonusart,Bonuskopf.Bonusart::"Gruppen-/Direktbonus");
Bonuskopf.SETFILTER("Debitorennr.",'=%1|%2',"Nr.",'');
Bonuskopf.SETRANGE(Verkauf,TRUE);
IF FORM.RUNMODAL(FORM::Bonusübersicht,Bonuskopf) = ACTION::LookupOK THEN
Bonus := Bonuskopf.Code;
// + 02:TG2.00 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Deb.-/Warengruppenkond.-Gr. - OnValidate()
Deb.-/Warengruppenkond.-Gr. - OnLookup()
Erstellt am - OnValidate()
Erstellt am - OnLookup()
Erstellt um - OnValidate()
Erstellt um - OnLookup()
Erstellt von - OnValidate()
Erstellt von - OnLookup()
Kontonr. (Fibu) - OnValidate()
Kontonr. (Fibu) - OnLookup()
AssistEdit(AlterDeb : Record Debitor) : Boolean
WITH Deb DO BEGIN
Deb := Rec;
VerkEinrichtung.GET;
VerkEinrichtung.TESTFIELD(Debitorennummern);
IF NrSerienVerw.WähleSerie(VerkEinrichtung.Debitorennummern,AlterDeb.Nummernserie,Nummernserie) THEN BEGIN
VerkEinrichtung.GET;
VerkEinrichtung.TESTFIELD(Debitorennummern);
NrSerienVerw.SetzeSerie("Nr.");
Rec := Deb;
EXIT(TRUE);
END;
END;
++++ TG +++()
SuchtextAktualisieren()
// - TG2.01::02 -------------------------------------------------------------------
DebSuchText.INIT;
DebSuchText."Debitorennr." := "Nr.";
//TG-Standard DebSuchText.Suchtext := Name + "Name 2" + Adresse + "Adresse 2" + "PLZ Code" + Ort;
//Thommel TG-Update 2.01.01 Erweiterung um Suchbegriff und Copystr
DebSuchText.Suchtext := COPYSTR(Suchbegriff +' '+Name +' '+ "Name 2"+' '
+Adresse+' '+"Adresse 2"+' '+"PLZ Code"
+' '+Ort,1,200);
IF NOT DebSuchText.INSERT THEN
DebSuchText.MODIFY;
// + TG2.01::02 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
21. Juni 2007 13:41
"Zlg.-Bedingungscode" := '07TN';
KS Thommel TG-Update 2.01.01
----------------------------
Feste Vorbelegung bei Neuanlage:
...
Zahlungsbedingung = 07TN
21. Juni 2007 13:52
21. Juni 2007 21:41
21. Juni 2007 23:35
SilverX hat geschrieben:Hmm, ist ja mal zugegeben eine etwas ältere Version. Aber ist bzw. war so etwas gängig? Im Code z.B. harte Werte setzen?
SilverX hat geschrieben:Sowas (den Vorbelegungsteil) könnte man doch sehr viel eleganter auch ohne Vorlagentabellen mit einem definierten Vorlagen-Debitor machen dessen Nr. in einer Einrichtungstabelle steht!?