OBS/Makros und Scripting/Allgemeines/Übersicht Globale Variablen: Unterschied zwischen den Versionen

Aus OBS Wiki
Zur Navigation springen Zur Suche springen
Keine Bearbeitungszusammenfassung
Keine Bearbeitungszusammenfassung
 
(Eine dazwischenliegende Version von einem anderen Benutzer wird nicht angezeigt)
Zeile 1: Zeile 1:
{{Makros und Scripting}}
Hier sehen Sie, welche globalen Artikel Ihnen OBS für Ihre Makros zur Verfügung stellt.
Hier sehen Sie, welche globalen Artikel Ihnen OBS für Ihre Makros zur Verfügung stellt.
=Datenbank-Verbindung (TxDB)=
=Datenbank-Verbindung (TxDB)=
Zeile 10: Zeile 11:
*oApplication.DatabaseName
*oApplication.DatabaseName
:Name der Datenbank für die OBS-Installtion
:Name der Datenbank für die OBS-Installtion
'''Beispiel: Macro'''
<source lang="delphi">
Meldung('Mandant'+oApplication.UserNr);
</source>
<source lang="delphi">
lSqlDebug        : Boolean;
lSqlListeDebug  : Boolean;
lDebug          : Boolean;
lSqlProtokoll    : Boolean;
lSqlDebugVisible : Boolean;
lServiceDebug    : Boolean;
lUserDebug      : Boolean;
lDeletelog      : Boolean;
lService        : Boolean;
cServiceNr      : String;
UserLevel        : Integer;
UserNr          : String;
oSqlProtoToken  : TStringList;
cSqlDebugFilter  : String;    // Nur im Debug Filter enthaltene Zeilen werden im SQL Debug angezeigt
nSqlDebugmSec    : integer;
lTapiDebug      : Boolean;
lDebugProcedure  : Boolean;
lNoThread        : Boolean;
loDBThreadCheck  : Boolean;
//DB
cDBType          : DBType;
AliasName        : String;
ServerName      : String;
DatabaseName    : String;
ParameterDB      : String;
DatabasePath    : String;
CharacterSet    : String;
Collation        : String;
cSQLTrue        : String;
cSQLFalse        : String;
cDBOwner        : String;
nDBVersion      : Integer;              // Datenbankversion
lVersion5        : Boolean;
lForceInnoDB    : Boolean;
lBDE            : Boolean;
lNoException    : Boolean;
lErrorSQL        : Boolean;
lDBStructure    : Boolean;              // Wenn OBSDB eingelesen dann True
lDBConnectionLog : Boolean;
lUseThread      : Boolean;
lDebugThread    : Boolean;
lDeleteOBSSsys  : Boolean;
cPcNr            : String;
cSachbearbeiter  : String;
</source>
==oSystem==
==oSystem==
In diesem Objekt sind Informationen zum System und dem angemeldeten Benutzer enthalten. Folgende Einträge sind für Makros interessant:
In diesem Objekt sind Informationen zum System und dem angemeldeten Benutzer enthalten. Folgende Einträge sind für Makros interessant:
Zeile 16: Zeile 72:
*oSystem.cSachbearbeiter
*oSystem.cSachbearbeiter
:interne Nummer des angemeldeten Sachbearbeiters
:interne Nummer des angemeldeten Sachbearbeiters
'''Beipiel : Makro'''
<source lang="delphi">
Meldung('Mandant'+oSystem.UserNr);
</source>
<source lang="delphi">
lKassenModus        : Boolean;
lSteuerung          : Boolean;
lUpdateRestart      : Boolean;
lMacroDebug        : Boolean;
lMacroRunSource    : Boolean;
lScriptprofiler    : Boolean;
lShopDebug          : Boolean;
lExitProgramm      : Boolean;
lEntwicklung        : Boolean;    // Debug Anzeige  + Shortcuts Entwicklung
lAdministrator      : Boolean;
//Für Drucke
UserNr              : String;
UserLevel          : Integer;
nKassenLevel        : Integer;
cSachbearbeiter    : String;
nUserVar            : Integer;
frmMain            : TxForm;
User                : String;
UserName            : String;
Passwort            : String;
UserLagNr          : String;
cOrt                : String;
cMitarb            : String;
colMailSpam        : TColor;
colMailExe          : TColor;
colMailDanger      : TColor;
colfMailSpam        : TColor;
colfMailExe        : TColor;
colfMailDanger      : TColor;
colListBack        : TColor;
colListBack2        : TColor;
colHighlight        : TColor;
colHighMark        : TColor;
colFeldBack        : TColor;
colFeldMark        : TColor;
colFeldMarkCombo    : TColor;
colStatusErledigt  : TColor;
colStatusTeil      : TColor;
colStatusOffen      : TColor;
cFontSize          : String;
cFont              : String;
cRTFFont            : String;
lScale              : Boolean;
nEditScaleFaktor    : Double;
lVollListe          : Boolean;
lshstbold          : Boolean;
lFormularEigen      : Boolean;
lTerminalBen        : Boolean;
lOBSUpdateModus    : Boolean;
cOpenWordDocs      : String;
cDelYear            : String;
cVersion            : String;
cBruttoKasse        : String;
cWidMonitor        : String;
lNoCloseCheck      : Boolean;
lUpdateMode        : Boolean;
cUpdateProto        : String;
cAutoUser          : String;
cAutoPass          : String;
cLastUser          : String;
cLastPass          : String;
cStyle              : String;
cLanguage          : String;
lSofortDruck        : Boolean;            // Druck ohne Druckabfrage
lNoVersionCheck    : Boolean;
dPCReboot          : TDateTime;
lCustomizeEnabled  : Boolean;
cOBSVersion        : String;
cOBSBasisVersion    : String;
lClearMemory        : Boolean;            // Speicher nach dem Start wieder freigeben
lInternalErrorLog  : Boolean;
lMemoryErrorLog    : Boolean;
</source>
==oOBS==
==oOBS==
In diesem Objekt sind Informationen zu den Einstellungen der OBS-Installation und des Benutzers enthalten.
In diesem Objekt sind Informationen zu den Einstellungen der OBS-Installation und des Benutzers enthalten.
Zeile 23: Zeile 162:
*oOBS.cSachbearbName
*oOBS.cSachbearbName
*oOBS.cFiliale
*oOBS.cFiliale
'''Beipiel : Makro'''
<source lang="delphi">
Meldung('Mandant'+oOBS.cManNr);
</source>
<source lang="delphi">
cManNr              : String;
cUserManNr          : String;
cManName            : String;
cAktPeriode          : String; //Aktuelle Buchungsperiode
cDruckPeriode        : String; //Periode in der Reports ausgeführt werden
cAktJahr            : String; //Aktuelles Buchhaltungsjahr
cStartJahr          : String; //Normalerweise FibuJahr (kann aber 1 Jahr weiter sein)
cErloesJahr          : String; //Aktuelles WaWi Jahr
cErloesPeriode      : String; //Aktuelle WaWi Periode
cJahresWechsel      : String;
cOutlookPfad        : String;
cMD5EXE              : String;
cFiliKuNr            : String;
cFiliBestUeber      : String;
cFiliSysUID          : String;
InstPath            : String;
cSelectJahre        : String;
cPersFilter          : String;
cReport              : String;
lReport              : Boolean;
cVertreter          : String;
cAbteilung          : String;
cBenutzergruppe      : String;
oVertreterList      : TStringList;
oMandantenList      : TStringList;
oAbteilungsList      : TStringList;
cSachbearbName      : String;
cFiliale            : String;
lnewbeep            : Boolean;
linfo                : Boolean;
nDispo              : Integer;
lshortcut            : Boolean;
lshortcutstandard    : Boolean;
lshortcutaf          : Boolean;    //Anfrage
lshortcutan          : Boolean;
lshortcutau          : Boolean;
lshortcutls          : Boolean;
lshortcutrg          : Boolean;
lshortcutek          : Boolean;
lshortcutra          : Boolean;
lshortcutge          : Boolean;
lshortcutsp          : Boolean;
lshortcutla          : Boolean;
lshortcutpe          : Boolean;
lshortcutfa          : Boolean;
lshortcutdm          : Boolean;
lshortcutsm          : Boolean;
lshortcutte          : Boolean;
lshortcutar          : Boolean;
lshortcutle          : Boolean;
lshortcuttb          : Boolean;
lshortcutpr          : Boolean;
lshortcutve          : Boolean;
lshortcutwo          : Boolean;
lshortcutex          : Boolean;
lshortcutem          : Boolean;
lshortcutka          : Boolean;
lshortcutto          : Boolean;
lshortcuttr          : Boolean;
lshortcutEl          : Boolean;
lshortcutBe          : Boolean;
lshortcutRet        : Boolean;
lshortcutAL          : Boolean;
lshortcutml          : Boolean;
lshortcutprl        : Boolean;
lshortcutfma        : Boolean;
lshortcutKD          : Boolean;
lKopfPosSichtb      : Boolean;
lFussPosSichtb      : Boolean;
lFormVergroessern    : Boolean;
lLeseModus          : Boolean;
lFullPos            : Boolean;
nMailSort            : Integer;
lRemoteSystem        : Boolean;
lImportSystem        : Boolean;
lShopSystem          : Boolean;
lDatamining          : Boolean;
lWidgetinit          : Boolean;
lLibreOffice        : Boolean;
cMacroMeldung        : String;
nTapiInfo            : integer;
nTapiAusInfo        : integer;
oWidRichEdit        : TObject; //RichWidget
nLevelBrief          : integer;
nLevelTermin        : integer;
cKasNr              : String;
cPcOSVersion        : String;
lVertreterFilter    : Boolean;
lMandantenFilter    : Boolean;
lArtikelInfo        : Boolean;
lFilialauswahl      : Boolean;
nLastReportOutput    : Integer;
cKtoPorto            : String;
cKtoVerpackung      : String;
cKtoPortoEG          : String;
cKtoVerpackungEG    : String;
cKtoPorto0P          : String;
cKtoVerpackung0P    : String;
cSonderErloesKonten  : String;
SB_LagNr            : String;
aVorgFarben          : VorgangsFarben;
cRemoteKassenName    : String;
lDatevFibuLiveCheck  : Boolean;
</source >
==oBSKas==
'''Beipiel : Makro'''
<source lang="delphi">
Meldung('Mandant'+OBSKas.cManNr);
</source>
<source lang="delphi">
cManNr        : String;
cManName      : String;
cKassenname    : String;
cKassierer    : String;
cKassiererName : String;
cKasLevel      : String;
cAktPeriode    : String;
cAktJahr      : String;
cErloesJahr    : String;
cErloesPeriode : String;
cJahresWechsel : String;
cOutlookPfad  : String;
InstPath      : String;
cSelectJahre  : String;
cPersFilter    : String;
cReport        : String;
cLastRuckgeld  : String;
cLastBonbetrag : String;
cKasKunde      : String;
lReport        : Boolean;
SB_LagNr      : String;
</source>

Aktuelle Version vom 27. Dezember 2019, 13:21 Uhr


Hier sehen Sie, welche globalen Artikel Ihnen OBS für Ihre Makros zur Verfügung stellt.

Datenbank-Verbindung (TxDB)

oDB

In den Makros steht Ihnen diese Variable für den Zugriff auf die Datenbank zur Verfügung. Für viele Funktionen zur Datenmanipulation wird diese Variable als Wert für Parameter des Typs TxDB benötigt.

OBS-System

oApplication

In diesem Objekt sind Informationen über die Anwendung enthalten.

  • oApplication.ServerName
Enthält den Namen des Servers, auf dem OBS installiert ist
  • oApplication.DatabaseName
Name der Datenbank für die OBS-Installtion

Beispiel: Macro

Meldung('Mandant'+oApplication.UserNr);
lSqlDebug        : Boolean;
lSqlListeDebug   : Boolean;
lDebug           : Boolean;
lSqlProtokoll    : Boolean;
lSqlDebugVisible : Boolean;
lServiceDebug    : Boolean;
lUserDebug       : Boolean;
lDeletelog       : Boolean;
lService         : Boolean;
cServiceNr       : String;
UserLevel        : Integer;
UserNr           : String;
oSqlProtoToken   : TStringList;
cSqlDebugFilter  : String;    // Nur im Debug Filter enthaltene Zeilen werden im SQL Debug angezeigt
nSqlDebugmSec    : integer;
lTapiDebug       : Boolean;
lDebugProcedure  : Boolean;
lNoThread        : Boolean;
loDBThreadCheck  : Boolean;

//DB
cDBType          : DBType;
AliasName        : String;
ServerName       : String;
DatabaseName     : String;
ParameterDB      : String;
DatabasePath     : String;
CharacterSet     : String;
Collation        : String;
cSQLTrue         : String;
cSQLFalse        : String;
cDBOwner         : String;
nDBVersion       : Integer;               // Datenbankversion
lVersion5        : Boolean;
lForceInnoDB     : Boolean;
lBDE             : Boolean;
lNoException     : Boolean;
lErrorSQL        : Boolean;
lDBStructure     : Boolean;              // Wenn OBSDB eingelesen dann True
lDBConnectionLog : Boolean;

lUseThread       : Boolean;
lDebugThread     : Boolean;
lDeleteOBSSsys   : Boolean;

cPcNr            : String;
cSachbearbeiter  : String;

oSystem

In diesem Objekt sind Informationen zum System und dem angemeldeten Benutzer enthalten. Folgende Einträge sind für Makros interessant:

  • oSystem.UserNr
Nummer des angemeldeten Benutzers
  • oSystem.cSachbearbeiter
interne Nummer des angemeldeten Sachbearbeiters

Beipiel : Makro

Meldung('Mandant'+oSystem.UserNr);
lKassenModus        : Boolean;
lSteuerung          : Boolean;
lUpdateRestart      : Boolean;
lMacroDebug         : Boolean;
lMacroRunSource     : Boolean;
lScriptprofiler     : Boolean;
lShopDebug          : Boolean;
lExitProgramm       : Boolean;
lEntwicklung        : Boolean;     // Debug Anzeige  + Shortcuts Entwicklung
lAdministrator      : Boolean;

//Für Drucke

UserNr              : String;
UserLevel           : Integer;
nKassenLevel        : Integer;
cSachbearbeiter     : String;
nUserVar            : Integer;
frmMain             : TxForm;
User                : String;
UserName            : String;
Passwort            : String;
UserLagNr           : String;
cOrt                : String;
cMitarb             : String;
colMailSpam         : TColor;
colMailExe          : TColor;
colMailDanger       : TColor;
colfMailSpam        : TColor;
colfMailExe         : TColor;
colfMailDanger      : TColor;
colListBack         : TColor;
colListBack2        : TColor;
colHighlight        : TColor;
colHighMark         : TColor;
colFeldBack         : TColor;
colFeldMark         : TColor;
colFeldMarkCombo    : TColor;
colStatusErledigt   : TColor;
colStatusTeil       : TColor;
colStatusOffen      : TColor;
cFontSize           : String;
cFont               : String;
cRTFFont            : String;
lScale              : Boolean;
nEditScaleFaktor    : Double;
lVollListe          : Boolean;
lshstbold           : Boolean;
lFormularEigen      : Boolean;
lTerminalBen        : Boolean;
lOBSUpdateModus     : Boolean;
cOpenWordDocs       : String;
cDelYear            : String;
cVersion            : String;
cBruttoKasse        : String;
cWidMonitor         : String;
lNoCloseCheck       : Boolean;
lUpdateMode         : Boolean;
cUpdateProto        : String;
cAutoUser           : String;
cAutoPass           : String;
cLastUser           : String;
cLastPass           : String;
cStyle              : String;
cLanguage           : String;
lSofortDruck        : Boolean;             // Druck ohne Druckabfrage
lNoVersionCheck     : Boolean;
dPCReboot           : TDateTime;
lCustomizeEnabled   : Boolean;
cOBSVersion         : String;
cOBSBasisVersion    : String;
lClearMemory        : Boolean;             // Speicher nach dem Start wieder freigeben
lInternalErrorLog   : Boolean;
lMemoryErrorLog     : Boolean;

oOBS

In diesem Objekt sind Informationen zu den Einstellungen der OBS-Installation und des Benutzers enthalten.

  • oOBS.cManNr
  • oOBS.cManName
  • oOBS.cAbteilung
  • oOBS.cSachbearbName
  • oOBS.cFiliale

Beipiel : Makro

Meldung('Mandant'+oOBS.cManNr);
cManNr               : String;
cUserManNr           : String;
cManName             : String;
cAktPeriode          : String; //Aktuelle Buchungsperiode
cDruckPeriode        : String; //Periode in der Reports ausgeführt werden
cAktJahr             : String; //Aktuelles Buchhaltungsjahr
cStartJahr           : String; //Normalerweise FibuJahr (kann aber 1 Jahr weiter sein)
cErloesJahr          : String; //Aktuelles WaWi Jahr
cErloesPeriode       : String; //Aktuelle WaWi Periode
cJahresWechsel       : String;
cOutlookPfad         : String;
cMD5EXE              : String;
cFiliKuNr            : String;
cFiliBestUeber       : String;
cFiliSysUID          : String;
InstPath             : String;
cSelectJahre         : String;
cPersFilter          : String;
cReport              : String;
lReport              : Boolean;
cVertreter           : String;
cAbteilung           : String;
cBenutzergruppe      : String;
oVertreterList       : TStringList;
oMandantenList       : TStringList;
oAbteilungsList      : TStringList;
cSachbearbName       : String;
cFiliale             : String;
lnewbeep             : Boolean;
linfo                : Boolean;
nDispo               : Integer;
lshortcut            : Boolean;
lshortcutstandard    : Boolean;
lshortcutaf          : Boolean;    //Anfrage
lshortcutan          : Boolean;
lshortcutau          : Boolean;
lshortcutls          : Boolean;
lshortcutrg          : Boolean;
lshortcutek          : Boolean;
lshortcutra          : Boolean;
lshortcutge          : Boolean;
lshortcutsp          : Boolean;
lshortcutla          : Boolean;
lshortcutpe          : Boolean;
lshortcutfa          : Boolean;
lshortcutdm          : Boolean;
lshortcutsm          : Boolean;
lshortcutte          : Boolean;
lshortcutar          : Boolean;
lshortcutle          : Boolean;
lshortcuttb          : Boolean;
lshortcutpr          : Boolean;
lshortcutve          : Boolean;
lshortcutwo          : Boolean;
lshortcutex          : Boolean;
lshortcutem          : Boolean;
lshortcutka          : Boolean;
lshortcutto          : Boolean;
lshortcuttr          : Boolean;
lshortcutEl          : Boolean;
lshortcutBe          : Boolean;
lshortcutRet         : Boolean;
lshortcutAL          : Boolean;
lshortcutml          : Boolean;
lshortcutprl         : Boolean;
lshortcutfma         : Boolean;
lshortcutKD          : Boolean;
lKopfPosSichtb       : Boolean;
lFussPosSichtb       : Boolean;
lFormVergroessern    : Boolean;
lLeseModus           : Boolean;
lFullPos             : Boolean;
nMailSort            : Integer;
lRemoteSystem        : Boolean;
lImportSystem        : Boolean;
lShopSystem          : Boolean;
lDatamining          : Boolean;
lWidgetinit          : Boolean;
lLibreOffice         : Boolean;
cMacroMeldung        : String;
nTapiInfo            : integer;
nTapiAusInfo         : integer;
oWidRichEdit         : TObject; //RichWidget
nLevelBrief          : integer;
nLevelTermin         : integer;
cKasNr               : String;
cPcOSVersion         : String;
lVertreterFilter     : Boolean;
lMandantenFilter     : Boolean;
lArtikelInfo         : Boolean;
lFilialauswahl       : Boolean;
nLastReportOutput    : Integer;
cKtoPorto            : String;
cKtoVerpackung       : String;
cKtoPortoEG          : String;
cKtoVerpackungEG     : String;
cKtoPorto0P          : String;
cKtoVerpackung0P     : String;
cSonderErloesKonten  : String;
SB_LagNr             : String;
aVorgFarben          : VorgangsFarben;
cRemoteKassenName    : String;
lDatevFibuLiveCheck  : Boolean;

oBSKas

Beipiel : Makro

Meldung('Mandant'+OBSKas.cManNr);
cManNr         : String;
cManName       : String;
cKassenname    : String;
cKassierer     : String;
cKassiererName : String;
cKasLevel      : String;
cAktPeriode    : String;
cAktJahr       : String;
cErloesJahr    : String;
cErloesPeriode : String;
cJahresWechsel : String;
cOutlookPfad   : String;
InstPath       : String;
cSelectJahre   : String;
cPersFilter    : String;
cReport        : String;
cLastRuckgeld  : String;
cLastBonbetrag : String;
cKasKunde      : String;
lReport        : Boolean;
SB_LagNr       : String;