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    = 07TN21. 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!?