MentorQ.appUser

Beitrag von **Kaiser** » 08.06.2016, 16:55

Zum Ändern oder Erweitern der Originalkonfiguration verwenden Sie einen beliebigen Texteditor. Erstellen Sie eine neue Datei namens MentorQ.appUser und speichern Sie diese in den Mentorordner (dort, wo sich auch das Original MentorQ.app befindet).

In der Datei MentorQ.appUser müssen nur die Funktionen angegeben werden, die bestehende Funktionen ersetzen sollen.

Zuoberst geben Sie die Sektion für Funktionen an, danach können alle individuellen Funktionen definiert werden.

Code: Alles auswählen

#Section(Function);

Die Beschreibung der Syntax finden Sie in der Datei MentorQ.app.

Beitrag von **Kaiser** » 26.09.2016, 07:30

Fibu, Drucken Saldostatistik
Statt nur ein Konto kann ein Bereich Von-Bis angegeben werden

Code: Alles auswählen

 List(FiStaLst) Type(Stat) MainTable(Fibu_Buchung)
                           Join(Fibu_Kostenbuchung: Beleg;Buchung=Beleg;Buchung)
                           SelSort(0) Labels(Name) Prior(0);
  SelField(*Kontogruppe)              Type(String) Text(Kontogruppe := KwoKtoGru) Values(Fibu_Kontogruppe, Gruppe+Text);

*Weg: SelField(Konto)                     Op(=) Find(Fibu_Konto, Konto+)  NextRow(1);

*Neu Beginn
  SelField(Konto)                     Op(>=) Text(Von Konto := KwoVonKonto) Find(Fibu_Konto, Konto+)  NextRow(1);
  SelField(Konto)                     Op(<=) Text(Bis Konto := KwoBisKonto) Find(Fibu_Konto, Konto+)  NextRow(1);
*Neu Ende

  SelField(Fibu_Kostenbuchung.Kosten) Op(=) Find(Fibu_Kostenstelle, Kosten+) NextRow(1);
  SelCheck(ChkExclProvi) Text(Provisorische Buchungen ausschliessen := KwoExklProviBuc) Set(Provi = 0);

Fibu, Drucken Kontoblätter
Statt nur ein Konto kann ein Bereich Von-Bis angegeben werden

Code: Alles auswählen

List(FiKblLst) MainTable(Fibu_Buchung)
               Join(Fibu_Konto: Konto=Konto, Fibu_Kostenbuchung: Beleg;Buchung=Beleg;Buchung) Group(0)
               Sort(Konto, Datum, Beleg, Buchung, Fibu_Kostenbuchung.Satz) SelSort(1) Labels(Name)
               CheckText(Optionen := KwoOption2);
  Form(FrmKurz)   Text(Kurzliste               := KwoKurzliste)      File();
  Form(FrmKosten) Text(Liste mit Kostenstellen := KwoListeMitKosten) File();
  Form(FrmText)   Text(Ganzer Buchungstext     := KwoGanzBucText)    File();
  SelField(*Kontogruppe) Type(String) Text(Kontogruppe := KwoKtoGru) Values(Fibu_Kontogruppe, Gruppe+Text);

*Weg:  SelField(Konto)                     Op(=) Find(Fibu_Konto, Konto+)  NextRow(1);

*Neu Beginn
  SelField(Konto)                     Op(>=) Text(Von Konto := KwoVonKonto) Find(Fibu_Konto, Konto+)  NextRow(1);
  SelField(Konto)                     Op(<=) Text(Bis Konto := KwoBisKonto) Find(Fibu_Konto, Konto+)  NextRow(1);
*Neu Ende

  SelField(*Datum)       Type(Date)   Op([-]) Text(Datum := KwoDate)  NextRow(1);
  SelField(Fibu_Kostenbuchung.Kosten) Op(=) Find(Fibu_Kostenstelle, Kosten+) NextRow(1);
  SelCheck(ChkFW)        Text(Drucken Fremdwährungen                := KwoPrnFW);
  SelCheck(ChkInfo)      Text(Drucken Zusatzinformationen           := KwoPrnAux);
  SelCheck(ChkPage)      Text(Neue Seite pro Kontoblatt             := KwoNewPageKontoblatt);
  SelCheck(ChkExclProvi) Text(Provisorische Buchungen ausschliessen := KwoExklProviBuc);
  SelCheck(ChkOmitOpen)  Text(Ohne Anfangssaldo                     := KwoOmitOpen);

Beitrag von **Kaiser** » 07.10.2016, 17:59

Adre, Adresstabelle
Mit nur einem Selektionsfeld wird eine Telefonnummer in Adressen und Kontaktpersonen gesucht.

Code: Alles auswählen

----------------------------------------------------------------
* Adressen, Tabelle mit Hilfstabellen
----------------------------------------------------------------
Table(AdAdrTab) MainTable(Adre_Adresse) Sort(Such, Ort)

*Neu Beginn
                Join(Adre_Kontakt: AdressNr=AdressNr)
*Neu Ende

                Seq(AdressNr, Name, Strasse, Land, PLZ, Ort, Telefon, E_Mail, Webseite, Kategorie)
                Functions(New, Duplicate, Edit, Delete, View, Print, Briefcase, Label, Payslip,
                          Transfer, Contact, Clipcopy, Word, VCard, Start)
                AlwaysEnable(Print)
                WinSize(809, 582);
  Format(Inaktiv = 1) Color(, Gray);
  SelField(*Search);
  SelField(Such);
  SelField(Ort);
  SelField(Kategorie) Op(=) Values(Syst_Code, Code+Feld01, Gruppe = KATEGORIE)  NextRow(1);
  SelField(AdressNr)  Op(=);

*Neu Beginn
  SelField(Telefon;Adre_Kontakt.Telefon);
*Neu Ende

  SelCheck(ChkActive) Text(Nur aktive Adressen := KwoOnlyActiveAdr) Set(Inaktiv   = 0);
  SelCheck(ChkCust)   Text(Kunden              := KwoOnlyCustomers) Set(Kunde     = 1);
  SelCheck(ChkSupp)   Text(Lieferanten         := KwoOnlySuppliers) Set(Lieferant = 1);
  SelCheck(ChkBirth)  Text(Geburtstage         := KwoOnlyBirthdays) Set(Adressart = 2, Geburtsmonat = *Month, Geburtstag = *Day);

Wenn die Suche unformatiert erfolgen soll, kann mit dem Parameter NoBlanks veranlasst werden, dass die Leerzeichen der Datenbankwerte vor dem Vergleich entfernt werden.

Code: Alles auswählen

  SelField(Telefon;Adre_Kontakt.Telefon) NoBlanks(1);

Beitrag von **Kaiser** » 29.10.2016, 15:55

Verk, Verkaufsaufträge
Mit der Volltextsuche wird auch auf die Positionen innerhalb der Verkaufsaufträge (beispielsweise eines bestimmten Kunden) selektiert.

Code: Alles auswählen

----------------------------------------------------------------
* Verkaufsaufträge, Tabelle
----------------------------------------------------------------
Table(VeAufTab) MainTable(Verk_Auftrag) Sort(Datum, Auftrag) Sel(Gen = 0)

*Neu Beginn
                Join(Verk_Position: Auftrag=Auftrag)
*Neu Ende

                Seq(Datum, Auftrag, Kunde, Art, Text, NetInkEw, FwCode, NetInkFW, Status, Lieferadresse, Bestellnummer)
                Functions(New, Duplicate, Edit, Delete, View, Print, Briefcase, Label, Status, Process, Move, Split, Order, Parcel, Calendar, Switch, Start)
                AlwaysEnable(Print) LastPage(1) WinSize(796, 595)
                Refresh(FiKpnTab, FiKbuTab, FiBelTab, DeBucTab, LaLogTab, LaSrnTab, LaBucTab);
  Header(Adre_Adresse) Key(AdressNr = Kunde;Lieferadresse) Height(107) Functions(Edit, History, Sample)
                       Highlight(History: Adre_Historie, AdressNr = *Key)
                       Highlight(Sample: Verk_Auftrag, Kunde;Lieferadresse = *Key, Gen = 1, GenStatus <> 3)
                       Info(AdressNr, Name, Vorname, Strasse, Land+PLZ+Ort, Telefon, E_Mail, Webseite)
                       OleType(Adressen) OleKey(AdressNr) OlePath(OleDir)
                       Amounts(Kreditlimite          := KwoKreLim          := := Kredit,
                               Debitorensaldo        := KwoDebiSaldo       := := Debi_Saldo_EW,
                               Saldo Offene Aufträge := KwoSaldoOpenOrders := := Debi_Offen_EW);
  Format(Soll   =  0) Color(, Red);
  Format(Status < 95) Color(LightYellow);
  Format(Status = 11) Color(LightGreen);
  Format(Fehler =  1) Color(LightPink);
  SelField(*Search);
  SelField(Kunde;Lieferadresse) Op(=) Find(Adre_Adresse, AdressNr, 1-1-0-1);
  SelField(Datum)               Op([-]);
  SelField(StdObjektNr)         Op(=) Find(Lage_Objekt, ObjektNr);
  SelField(Auftrag)             Op(=) NextRow(1);
  SelField(Bestellnummer);
  SelField(Status) Items(Alle         := KwoAlle       := Status =,
                         Pendent      := KwoTitPendent := Status < 95,
                         Erfassen     := KwoVeSta01    := Status =  1,
                         Kein Kredit  := KwoVeSta02    := Status = 11,
                         Offerte      := KwoVeSta03    := Status = 21,
                         Bestätigung  := KwoVeSta04    := Status = 31,
                         Rüstschein   := KwoVeSta05    := Status = 41,
                         Lieferschein := KwoVeSta06    := Status = 51,
                         Lager        := KwoVeSta07    := Status = 61,
                         Rechnung     := KwoVeSta08    := Status = 71,
                         Debitoren    := KwoVeSta09    := Status = 81,
                         Storno       := KwoVeSta10    := Status = 95,
                         Erledigt     := KwoVeSta11    := Status = 99);
  SelCheck(ChkError) Text(Fehlerhafte Aufträge := KwoErrorOrder) Set(Fehler = 1);

Beitrag von **Kaiser** » 04.11.2016, 11:27

Lage, Lagerbuchungen
Mit dem Selektionsfeld "Serie" soll auf Serienummern selektiert werden.

Code: Alles auswählen

----------------------------------------------------------------
* Lagerbuchungen, Tabelle
----------------------------------------------------------------
Table(LaBucTab) MainTable(Lage_Buchung) Sort(Datum, Beleg)

*Neu Beginn
                Join(Lage_Serie: '3';Beleg=Typ;Auftrag)
*Neu Ende

                Seq(Datum, Beleg, Artikel, Variante, Art, Text, Menge, Lagerort, Klasse,
                    Charge, Verfall, Adresse, Auftrag, Abteilung, FwCode, FwKurs, MwstCode)
                Functions(New, Duplicate, Edit, Delete, View, Briefcase, Print, Label, Switch, Start)
                AlwaysEnable(Print) LastPage(1) WinSize(726, 544);
  Header(Lage_Artikel) Key(Artikel = Artikel) Functions(Edit, Delete, Move, Switch) DoubleClick(Switch)
                       Info(Verkaufshinweis, Einkaufshinweis, Artikel, Text, Abteilung+Gruppe, Webseite, Ident)
                         AddTable(Lage_Bestand) AddKey(Artikel=Artikel) AddSum(1)
                         AddColumns(Variante, Lagerort, Klasse, Charge, Verfall, Bestand, Bestellt, Reserviert, Verfuegbar);
  SelField(*Search);
  SelField(Artikel) Op(=) Find(Lage_Artikel, Artikel, 1-1);
  SelField(Datum)   Op([-]);
  SelField(Art)     Op(=) Values(Syst_Code, Code+Feld01, Gruppe = BUCHLAGE);
  SelField(Adresse) Op(=) Find(Adre_Adresse, AdressNr, 1-0-0-1) NextRow(1);
  SelField(Beleg)   Op(=);

*Neu Beginn
  SelField(Lage_Serie.Serie);
*Neu Ende

Beitrag von **Kaiser** » 15.01.2017, 12:23

Lage, Bestandesliste
Als zusätzliche Selektion sollen inaktive Artikel ausgeschlossen werden können.

Code: Alles auswählen

----------------------------------------------------------------
* Lage, Bestandesliste
----------------------------------------------------------------
List(LaBesLst) MainTable(Lage_Buchung)
               Join(Lage_Artikel: Artikel=Artikel, Syst_Code: 'BUCHLAGE';Art=Gruppe;Code,
                    Lage_Variante: Artikel;Variante=Artikel;Variante)
               Sort(Artikel, Variante, Lagerort, Klasse, Charge, Verfall, Beleg)
               SelSort(1) Labels(Name) CheckText(Optionen := KwoOption2);
  Form(FrmMenge)     Text(Mengen := KwoMenge2) File();
  Form(FrmEinStdExk) Text(Einkaufsbeträge, Standardardpreis exkl. Mehrwertsteuer   := KwoEinStdExk) File();
  Form(FrmEinStdInk) Text(Einkaufsbeträge, Standardardpreis inkl. Mehrwertsteuer   := KwoEinStdInk) File();
  Form(FrmEinDurExk) Text(Einkaufsbeträge, Durchschnittspreis exkl. Mehrwertsteuer := KwoEinDurExk) File();
  Form(FrmEinDurInk) Text(Einkaufsbeträge, Durchschnittspreis inkl. Mehrwertsteuer := KwoEinDurInk) File();
  Form(FrmVerStdExk) Text(Verkaufsbeträge, Standardardpreis exkl. Mehrwertsteuer   := KwoVerStdExk) File();
  Form(FrmVerStdInk) Text(Verkaufsbeträge, Standardardpreis inkl. Mehrwertsteuer   := KwoVerStdInk) File();
  Form(FrmVerDurExk) Text(Verkaufsbeträge, Durchschnittspreis exkl. Mehrwertsteuer := KwoVerDurExk) File();
  Form(FrmVerDurInk) Text(Verkaufsbeträge, Durchschnittspreis inkl. Mehrwertsteuer := KwoVerDurInk) File();
  SelField(Datum)                  Op([-]) NextRow(1);
  SelField(Lagerort)               Op(=) Values(Syst_Code, Code+Feld01, Gruppe = LAGERORT)  NextRow(1);
  SelField(Artikel)                Op(=) Find(Lage_Artikel, Artikel+, 1-1)                  NextRow(1);
  SelField(Lage_Artikel.Abteilung) Op(=) Values(Syst_Code, Code+Feld01, Gruppe = ABTEILUNG) NextRow(1);
  SelField(Lage_Artikel.Gruppe)    Op(=) Values(Syst_Code, Code+Feld01, Gruppe = ARTGRUPPE) NextRow(1);
  SelCheck(ChkCalc)  Text(Berechnen Stammwerte            := KwoCalcMaster);
  SelCheck(ChkDepl)  Text(Drucken Aufbrauch               := KwoPrnDepletion);
  SelCheck(ChkQuant) Text(Drucken Menge                   := KwoPrnQuantity);
  SelCheck(ChkStock) Text(Nur Artikel mit Bestand drucken := KwoPrnArtInStock);

*Neu Beginn
  SelCheck(ChkActive) Text(Nur aktive Artikel := KwoOnlyActiveArt) Set(Lage_Artikel.Inaktiv = 0);
*Neu Ende

Beitrag von **Kaiser** » 24.05.2017, 08:54

Adre, Adresstabelle
In der Adresstabelle sollen die OLE-Dokumente in einer Hilfstabelle aufgelistet werden.
Dazu muss folgender Code hinzugefügt werden - am besten unter dem Abschnitt Table(AdAdrTab_Rel).

Code: Alles auswählen

Table(AdAdrTab_Ole) MainTable(Syst_Text) Text(OLE-Dokumente := KwoOleDok2) Sel(Datenbank=Adressen, Name=Dok)
                    Seq(Nr, Zeile)
                    Functions(Edit, Switch);
  SelField(*Search);

Beitrag von **Kaiser** » 27.02.2018, 21:52

Verk, Verkaufsaufträge
In der Tabelle der Verkaufsaufträge sollen Selektionsfelder für Land und Ort der Kunden zur Verfügung stehen.

Code: Alles auswählen

----------------------------------------------------------------
* Verkaufsaufträge, Tabelle
----------------------------------------------------------------
Table(VeAufTab) MainTable(Verk_Auftrag) Sort(Datum, Auftrag) Sel(Gen = 0)

*Neu Beginn
                Join(Adre_Adresse: Kunde=AdressNr)
*Neu Ende
                Seq(Datum, Auftrag, Kunde, Art, Text, NetInkEw, FwCode, NetInkFW,
                    Status, Lieferadresse, Bestellnummer)
                Functions(New, Duplicate, Edit, Delete, View, /, Move, Print, Briefcase, Label, /,
                          Status, Process, Split, /, Order, Parcel, Calendar, Switch, Start)
                AlwaysEnable(Print) LastPage(1) WinSize(796, 595)
                Refresh(FiKpnTab, FiKbuTab, FiBelTab, DeBucTab, LaLogTab, LaSrnTab, LaBucTab);

  Header(Adre_Adresse) Key(AdressNr = Kunde;Lieferadresse) Height(107) Functions(Edit, History, Sample)
                       Highlight(History: Adre_Historie, AdressNr = *Key)
                       Highlight(Sample: Verk_Auftrag, Kunde;Lieferadresse = *Key, Gen = 1, GenStatus <> 3)
                       Info(AdressNr, Name, Vorname, Strasse, Land+PLZ+Ort, Telefon, E_Mail, Webseite)
                       OleType(Adressen) OleKey(AdressNr) OlePath(OleDir)
                       Amounts(Kreditlimite          := KwoKreLim          := := Kredit,
                               Debitorensaldo        := KwoDebiSaldo       := := Debi_Saldo_EW,
                               Saldo Offene Aufträge := KwoSaldoOpenOrders := := Debi_Offen_EW);
  Format(Soll   =  0) Color(, Red);
  Format(Status < 95) Color(LightYellow);
  Format(Status = 11) Color(LightGreen);
  Format(Fehler =  1) Color(LightPink);
  SelField(*Search);
  SelField(Kunde;Lieferadresse) Op(=) Find(Adre_Adresse, AdressNr, 1-1-0-1);
  SelField(Datum)               Op([-]);
  SelField(StdObjektNr)         Op(=) Find(Lage_Objekt, ObjektNr);
  SelField(Auftrag)             Op(=) NextRow(1);
  SelField(Bestellnummer);

*Neu Beginn
  SelField(Adre_Adresse.Land) OP(=) Values(Syst_Code, Code+Feld01, Gruppe = LAND);
  SelField(Adre_Adresse.Ort);
*Neu Ende

  SelField(Status) Items(Alle         := KwoAlle       := Status =,
                         Pendent      := KwoTitPendent := Status < 95,
                         Erfassen     := KwoVeSta01    := Status =  1,
                         Kein Kredit  := KwoVeSta02    := Status = 11,
                         Offerte      := KwoVeSta03    := Status = 21,
                         Bestätigung  := KwoVeSta04    := Status = 31,
                         Rüstschein   := KwoVeSta05    := Status = 41,
                         Lieferschein := KwoVeSta06    := Status = 51,
                         Lager        := KwoVeSta07    := Status = 61,
                         Rechnung     := KwoVeSta08    := Status = 71,
                         Debitoren    := KwoVeSta09    := Status = 81,
                         Storno       := KwoVeSta10    := Status = 95,
                         Erledigt     := KwoVeSta11    := Status = 99);
  SelCheck(ChkError) Text(Fehlerhafte Aufträge := KwoErrorOrder) Set(Fehler = 1);

Beitrag von **Kaiser** » 02.11.2018, 10:00

Adre, Adresstabelle
In der Adresstabelle sollen die passenden Objekte in einer Hilfstabelle aufgelistet werden.
Dazu muss folgender Code hinzugefügt werden - am besten unter dem Abschnitt Table(AdAdrTab_Rel).

Code: Alles auswählen

Table(AdAdrTab_Obj) MainTable(Lage_Objekt) Text(Objekte := KwoObjekt2) Sort(Such, ObjektNr)
                    Seq(ObjektNr, Text, Artikel, Lieferant, Kunde, Standort, Gruppe,
                        Kombination, Status, *Free)
                    Functions(Edit, View, Switch) Refresh(LaObvTab);
  SelField(*Search);

Mentor

MentorQ.appUser

MentorQ.appUser

Re: MentorQ.appUser

Re: MentorQ.appUser

Re: MentorQ.appUser

Re: MentorQ.appUser

Re: MentorQ.appUser

Re: MentorQ.appUser

Re: MentorQ.appUser

Re: MentorQ.appUser