Mentor

http://kaisers.ch/forum
https://kaisers.ch/forum/

MentorQ.appUser

https://kaisers.ch/forum/viewtopic.php?t=919

Seite 1 von 1

MentorQ.appUser

Verfasst: 08.06.2016, 16:55
von Kaiser
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.

Re: MentorQ.appUser

Verfasst: 26.09.2016, 07:30
von Kaiser
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);

Re: MentorQ.appUser

Verfasst: 07.10.2016, 17:59
von Kaiser
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);

Re: MentorQ.appUser

Verfasst: 29.10.2016, 15:55
von Kaiser
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);

Re: MentorQ.appUser

Verfasst: 04.11.2016, 11:27
von Kaiser
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

Re: MentorQ.appUser

Verfasst: 15.01.2017, 12:23
von Kaiser
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

Re: MentorQ.appUser

Verfasst: 24.05.2017, 08:54
von Kaiser
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);

Re: MentorQ.appUser

Verfasst: 27.02.2018, 21:52
von Kaiser
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);

Re: MentorQ.appUser

Verfasst: 02.11.2018, 10:00
von Kaiser
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);
Alle Zeiten sind UTC+01:00
Seite 1 von 1

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de