my.clients.calculation.html

PMS³² Online- Hilfereferenz

MY.CLIENTS.CALCULATION

Calculation - Enthält alle relevanten Auswertungen von PMS.

Hilfe: Berechnungen in PMS_35.DLL

Enthält alle relevanten Auswertungen von PMS.

Code: Berechnungen in PMS_35.DLL

*/ Kurzbeispiel für den Zugriff auf diese Struktur
*/ Der Zugriff erfolgt über: My.Clients.Calculation
*/ Wird dieses Objekt in einem REPLACE oder einer Schleife SCAN ... ENDSCAN | FOR ... NEXT benötigt
*/ so sollte vor der Schleife die Objektstruktur in eine Variable geholt werden!
*/ Die Ausführungsgeschwindigkeit wird dadurch sehr vergrößert!
*/ Beispiel:
*/ Definieren einer LOKALEN Variablen
LOCAL loCalculation AS My.Clients.Calculation
*/ Setzen der Variablen
loCalculation = My.Clients.Calculation
*/ Jetzt erst die Schleifen durchlaufen... man beachte ALL, dass können ne Menge Sätze sein...
REPLACE ALL Feldname1 WITH loCalculation.Function1(),Feldname2 WITH loCalculation.Function1(), ...
*/ Oder in einer Schleife...
SCAN
	lvValue = loCalculation.Function(Alias.Spalte) + 25
	lvValue = loCalculation.Function2(m.lvValue)
	REPLACE Feldname WITH m.lvValue,...
ENDSCAN
*/ Es sind auch geschachtelte Aufrufe möglich...

Liste der Methoden von Calculation

CAEtoEPL() - CAE-Liste nach EPLAN schreiben

Rückgabe:[Variant], Überträgt die Daten von PMS32 an das CAE-System mittels ASCII Dateien

Hilfeinformation

Rückgabe:[Variant], Überträgt die Daten von PMS32 an das CAE-System mittels ASCII Dateien

Aufrufinformation

Variant = My.Clients.Calculation.CAEtoEPL(tcStructure AS VARIANT,tcIde10 AS STRING,tcProperty AS STRING @,teValueSet AS VARIANT)
Variant = My.Clients.Calculation.CAEtoEPL(tcStructure,tcIde10,@tcProperty,teValueSet)

Codeinformation

CalcB01() - Klakulation des Artikelstamms

Rückgabe:[Variant], Kalkulieren des Artikelstamms. Hier muss eine Filterbedingung angegeben werden.

Hilfeinformation

Rückgabe:[Variant], Kalkulieren des Artikelstamms. Hier muss eine Filterbedingung angegeben werden.

Aufrufinformation

Variant = My.Clients.Calculation.CalcB01(tcStructure AS VARIANT,tcFilter AS STRING,tcProperty AS STRING @,teValueSet AS VARIANT)
Variant = My.Clients.Calculation.CalcB01(tcStructure,tcFilter,@tcProperty,teValueSet)

Codeinformation

CalcE10() - Kalkulation eines Vorgangs

Rückgabe:[Variant], Berechnen der Kalkulation für einen Vorgang

Hilfeinformation

Rückgabe:[Variant], Berechnen der Kalkulation für einen Vorgang

Aufrufinformation

Variant = My.Clients.Calculation.CalcE10(tcStructure AS VARIANT,tcIde10 AS STRING,tcProperty AS STRING @,teValueSet AS VARIANT)
Variant = My.Clients.Calculation.CalcE10(tcStructure,tcIde10,@tcProperty,teValueSet)

Codeinformation

Controlling() - OLAP Controlling ausführen

Rückgabe:[Variant], Ermittelt die Daten des PMS (OLAP) Controllings aus der Datenbank. Gibt .T. zurück, wenn die Procedure ohne

Hilfeinformation

Rückgabe:[Variant], Ermittelt die Daten des PMS (OLAP) Controllings aus der Datenbank. Gibt .T. zurück, wenn die Procedure ohne

Aufrufinformation

Variant = My.Clients.Calculation.Controlling(tcStructure AS VARIANT,tcIdk10 AS STRING,tcIde10 AS STRING,tlPacked AS VARIANT)
Variant = My.Clients.Calculation.Controlling(tcStructure,tcIdk10,tcIde10,tlPacked)

Codeinformation

D03ToB01() - Datentransfer von D03 nach B01 (EK-Daten)

Rückgabe:[Variant], Überträgt EK-Daten aus der Artikel-Lieferantenbeziehung (D03) in den Artikelstamm (B01). 1 <= tnWhat <= 5

Hilfeinformation

Rückgabe:[Variant], Überträgt EK-Daten aus der Artikel-Lieferantenbeziehung (D03) in den Artikelstamm (B01). 1 <= tnWhat <= 5

Aufrufinformation

Variant = My.Clients.Calculation.D03ToB01(tcIdx02 AS STRING,tnWhat AS VARIANT,tlShowThermos AS VARIANT,tlIgnoreDate AS VARIANT,tcFilter AS VARIANT)
Variant = My.Clients.Calculation.D03ToB01(tcIdx02,tnWhat,tlShowThermos,tlIgnoreDate,tcFilter)

Codeinformation

*/ Beispielcode
*/ Setzen des Startpfades von PMS32 (lokal)
CD C:\PMS32
*/ Aktivieren von My
My = NEWOBJECT("pmsmy","pmsmyhandler.vcx","pmsmyhandler.app")
*/ Setzen des zuletzt gewählten Mandanten
My.cIdx02=My.cIdx02
*/ Standard Übertragung Parameter2=1
=My.Clients.Calculation.D03ToB01(My.cIdx02,1,.T.)
* Parameter2=1 : Standardübertragung
* Parameter2=2 : KLEINSTER EK aus D03
* Parameter2=3 : GRÖSSTER EK aus D03
* Parameter2=4 : MITTLERER EK aus D03
* Parameter2=5 : Wie 1, jedoch nur deren Datum neuer ist
*/ Zusätzlich kann dem Aufruf noch ein Flag +8 mitgegeben werden, wenn NUR der Hauptlieferant berechnet werden soll
*/ Kleinster EK, jedoch nur Daten, die mit dem Hauptlieferanten übereinstimmen
=My.Clients.Calculation.D03ToB01(My.cIdx02,2+8,.T.)

EPLtoCAE() - ASCII Datei von EPLAN einlesen

Rückgabe:[Variant], Import von ASCII Listen nach PMS32. Struktur der EPLAN-5 CAE LISTEN

Hilfeinformation

Rückgabe:[Variant], Import von ASCII Listen nach PMS32. Struktur der EPLAN-5 CAE LISTEN

Aufrufinformation

Variant = My.Clients.Calculation.EPLtoCAE(tcStructure AS VARIANT,tcIde10 AS STRING,tcNoIdk10 AS STRING @,teValueSet AS VARIANT)
Variant = My.Clients.Calculation.EPLtoCAE(tcStructure,tcIde10,@tcNoIdk10,teValueSet)

Codeinformation

FibuToExtern() - Ausgabe der Fibudaten

Rückgabe:[Variant], Überträgt die Daten aus H03 und H04 an eine angeschlossene Finanzbuchhaltung

Hilfeinformation

Weitere Information siehe im Codebeispiel

Aufrufinformation

Variant = My.Clients.Calculation.FibuToExtern(tcIdh01 AS STRING,tcIdh02L AS STRING,tiFibu AS VARIANT,teValueSet AS VARIANT)
Variant = My.Clients.Calculation.FibuToExtern(tcIdh01,tcIdh02L,tiFibu,teValueSet)

Codeinformation

*/ Informationen der Umsetzung (Methoden) unter poThis
*/	Anmerkung Boolsche Parameter werden, wenn nicht angegeben, als .F. interpretiert!
*/	cText = .BelegTrans(cText,nWie[,lTransform])
*/		cText		=> Text in (ANSI)
*/		nWie		= 0		- Nur Trimmen
*/		nWie		= 1		- GetJustDigit() - nur Zahlen 0-9, Fremdzeichen werden eliminiert
*/		nWie		= 2		- GetJustAlpha() - Zeichenprüfung nach DATEV-2000
*/				lTransform = .T.	=> "-+$%&$/0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZÖÄÜ abcdefghijklmnopqrstuvwxyzöäüß"
*/					Umlaute werden durch Doppelvokale ersetzt
*/				lTransform = .F.	=> "!#$%&()*+-./:;<=>?_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZÖÄÜ abcdefghijklmnopqrstuvwxyzöäüß"
*/					Umlaute werden ANSI nach OEM konvertiert. Ä=>CHR(0x8E), ANSI="ÄÖÜßäöü", OEM=CHR(0x8E)+CHR(0x99)+CHR(0x9A)+CHR(0xE1)+CHR(0x84)+CHR(0x94)+CHR(0x81)
*/		nWie		= 3		- GetJustUml() - Nur Umlaute werden konvertiert
*/				lTransform = .F.	=> Umlaute werden in Doppelvokale konvertiert
*/				lTransform = .T.	=> Umlaute werden nach OEM umgewandelt
*/		nWie				- cText wird zurückgegeben
*/	cText = .GetJustAlpha(cText[,lTransform])
*/		s.o. nWie = 2
*/	cText = .GetJustDigit(cText)
*/		s.o. nWie = 1
*/	cText = .GetJustUml(cText[,lTransform])
*/		s.o. nWie = 3
*/			lTransform = .T.	=> ANSITOOEM(für Umlaute) ANSI="ÄÖÜßäöü", OEM=CHR(0x8E)+CHR(0x99)+CHR(0x9A)+CHR(0xE1)+CHR(0x84)+CHR(0x94)+CHR(0x81)
*/			lTransform = .F.	=> Ersetzung "Ä,Ö,Ü,ä,ö,ü,ß" => "Ae,Oe,Ue,ae,oe,ue,ss"
*/	cText = .GetJustText(cText,nWie,lTransform)
*/		nWie		= 1		- Zeichenprüfung lange Version: "!#$%&()*+-./:;<=>?_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZÖÄÜ abcdefghijklmnopqrstuvwxyzöäüß"
*/		nWie		= 2		- Zeichenprüfung kurze Version: "-+$%&$/0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZÖÄÜ abcdefghijklmnopqrstuvwxyzöäüß"
*/		lTransform	= .NULL.- Keine Umwandlung der Umlaute
*/		lTransform	= .F.	- Umwandlung von Umlauten in Doppelvokale
*/		lTransform	= .T.	- Umwandlung von Umlauten in OEM
*/	Erzeugen eines Arrays für die Ausgabe der Cursor in Text
*/	iLen  = .GenArray(@aArray,cAlias)
*/	Erzeugen der Überschrift für die Ausgabe. Die Überschrift enthält KEIN abschließendes CRLF!
*/	cText = .Textline(@aArray)
*/	Erzeugen einer Datenzeile für die Ausgabe. Die Datenzeile enthält KEIN abschließendes CRLF!
*/	cText = .Dataline(@aArray,oRecord)

Fibubuch() - Daten in die FIBU (H03/H04) übertragen

Rückgabe:[Variant], Verbuchen eines Vorgangs in den Übergabetabellen der FIBU. H03 und H04

Hilfeinformation

Rückgabe:[Variant], Verbuchen eines Vorgangs in den Übergabetabellen der FIBU. H03 und H04

Aufrufinformation

Variant = My.Clients.Calculation.Fibubuch(tcIdx02 AS STRING,tcIp AS STRING,tcId AS STRING,tlStorno AS VARIANT)
Variant = My.Clients.Calculation.Fibubuch(tcIdx02,tcIp,tcId,tlStorno)

Codeinformation

OposBuch() - Buchung innerhalb der OPOS

Rückgabe:[Variant], Buchen eines OPOS Eintrags

Hilfeinformation

Rückgabe:[Variant], Buchen eines OPOS Eintrags

Aufrufinformation

Variant = My.Clients.Calculation.OposBuch(tcIdx02 AS STRING,tcIph18 AS STRING,tcIdh19 AS STRING,tcString1 AS VARIANT,tcString2 AS VARIANT,tcStructure AS VARIANT)
Variant = My.Clients.Calculation.OposBuch(tcIdx02,tcIph18,tcIdh19,tcString1,tcString2,tcStructure)

Codeinformation

OposListe() - Ausgabe einer OPOS Liste

Rückgabe:[Variant], Erstellt eine Tabelle, mit den Buchungsdaten der OPOS Tabellen. Die Tabelle H10 und H11 werden zu einer Tabe

Hilfeinformation

Rückgabe:[Variant], Erstellt eine Tabelle, mit den Buchungsdaten der OPOS Tabellen. Die Tabelle H10 und H11 werden zu einer Tabe

Aufrufinformation

Variant = My.Clients.Calculation.OposListe(tcIdx02 AS STRING,tnFnktov AS VARIANT,tnFnktob AS VARIANT,tcTable AS VARIANT @)
Variant = My.Clients.Calculation.OposListe(tcIdx02,tnFnktov,tnFnktob,@tcTable)

Codeinformation

OposNew() - Durchführen einer neuen OPOS Buchung

Rückgabe:[Variant], Durchführen einer neuen OPOS (Hand) Buchung.

Hilfeinformation

Rückgabe:[Variant], Durchführen einer neuen OPOS (Hand) Buchung.

Aufrufinformation

Variant = My.Clients.Calculation.OposNew(tcIdx02 AS STRING,tcIdh19s AS STRING,tcIdh19h AS STRING,tnV0b AS VARIANT,tcIph10 AS VARIANT,tcIcxxxf AS VARIANT,tdDabelf AS VARIANT,tcNotiz AS VARIANT,tcIcxxx AS VARIANT)
Variant = My.Clients.Calculation.OposNew(tcIdx02,tcIdh19s,tcIdh19h,tnV0b,tcIph10,tcIcxxxf,tdDabelf,tcNotiz,tcIcxxx)

Codeinformation

OposToDC() - Erstellen einer ASCII Datei für das Disketten Clearing

Rückgabe:[Variant], Erstellt eine Ausgabedatei für das Disketten-Clearing.

Hilfeinformation

Rückgabe:[Variant], Erstellt eine Ausgabedatei für das Disketten-Clearing.

Aufrufinformation

Variant = My.Clients.Calculation.OposToDC(tcIdx02 AS STRING,tcIph11 AS STRING,tcDirectory AS STRING,tvFiles AS VARIANT @)
Variant = My.Clients.Calculation.OposToDC(tcIdx02,tcIph11,tcDirectory,@tvFiles)

Codeinformation

OposToFibu() - Übertragen der Daten aus der OPOS in die FIBU

Rückgabe:[Variant], Übertragen der Daten aus der OPOS an die Fibu. Von H10/H11 nach H03/H04

Hilfeinformation

Rückgabe:[Variant], Übertragen der Daten aus der OPOS an die Fibu. Von H10/H11 nach H03/H04

Aufrufinformation

Variant = My.Clients.Calculation.OposToFibu(tcIdx02 AS STRING,tvShowThermos AS VARIANT,tvProperty AS VARIANT,tvValue AS VARIANT)
Variant = My.Clients.Calculation.OposToFibu(tcIdx02,tvShowThermos,tvProperty,tvValue)

Codeinformation

PCClearing() - Erzeugen der Datei für das Disketten Clearing

Rückgabe:[Variant], Übertragen / Erzeugen einer Ausgabedatei DTAUS. im Disketten-Clearing Format.

Hilfeinformation

Rückgabe:[Variant], Übertragen / Erzeugen einer Ausgabedatei DTAUS. im Disketten-Clearing Format.

Aufrufinformation

Variant = My.Clients.Calculation.PCClearing(tcIdx02 AS STRING,tcIph11 AS STRING,tcTable AS STRING,tcDirectory AS VARIANT,tvFiles AS VARIANT @)
Variant = My.Clients.Calculation.PCClearing(tcIdx02,tcIph11,tcTable,tcDirectory,@tvFiles)

Codeinformation

PCSepa() - Übertragung via SEPA Format

Rückgabe:[Variant], Übertragung via SEPA Format

Hilfeinformation

Aufrufinformation

Variant = My.Clients.Calculation.PCSepa(tcIdx02 AS STRING,tcIph11 AS STRING,tcTable AS STRING,tcDirectory AS VARIANT,tvFiles AS VARIANT @)
Variant = My.Clients.Calculation.PCSepa(tcIdx02,tcIph11,tcTable,tcDirectory,@tvFiles)

Codeinformation

PRBerechnen() - Präsente berechnen

Rückgabe:[Variant], Berechnen der Präsente aus C55 in einen oder mehrere Vorgänge.

Hilfeinformation

Rückgabe:[Variant], Berechnen der Präsente aus C55 in einen oder mehrere Vorgänge.

Aufrufinformation

Variant = My.Clients.Calculation.PRBerechnen(tcStructure AS VARIANT,tcWhat AS STRING,tcProperty AS STRING @,teValueSet AS VARIANT)
Variant = My.Clients.Calculation.PRBerechnen(tcStructure,tcWhat,@tcProperty,teValueSet)

Codeinformation

PmsToOpos() - Übertragen der Daten von PMS an OPOS

Rückgabe:[Variant], Übertragen der Vorgangsdaten von PMS32 an die interne OPOS

Hilfeinformation

Rückgabe:[Variant], Übertragen der Vorgangsdaten von PMS32 an die interne OPOS

Aufrufinformation

Variant = My.Clients.Calculation.PmsToOpos(tcIdx02 AS STRING,tcIp AS STRING,tcId AS STRING,tlStorno AS VARIANT)
Variant = My.Clients.Calculation.PmsToOpos(tcIdx02,tcIp,tcId,tlStorno)

Codeinformation

SIBerechnen() - Verträge berechnen (Simulation)

Rückgabe:[Variant], Berechnen einer kompletten Vertrags oder Präsentlaufzeit, wenn eine Laufzeit angegeben ist. Rückgabe ist Str

Hilfeinformation

Rückgabe:[Variant], Berechnen einer kompletten Vertrags oder Präsentlaufzeit, wenn eine Laufzeit angegeben ist. Rückgabe ist Str

Aufrufinformation

Variant = My.Clients.Calculation.SIBerechnen(tcIdc55 AS VARIANT,tcWhat AS STRING,tcProperty AS STRING @,teValueSet AS VARIANT)
Variant = My.Clients.Calculation.SIBerechnen(tcIdc55,tcWhat,@tcProperty,teValueSet)

Codeinformation

VTBerechnen() - Verträge berechnen

Rückgabe:[Variant], Berechnet die Verträge aus C55 für die/den entsprechenden Vorgänge/Vorgang

Hilfeinformation

Rückgabe:[Variant], Berechnet die Verträge aus C55 für die/den entsprechenden Vorgänge/Vorgang

Aufrufinformation

Variant = My.Clients.Calculation.VTBerechnen(tcStructure AS VARIANT,tcWhat AS STRING,tcProperty AS STRING @,teValueSet AS VARIANT)
Variant = My.Clients.Calculation.VTBerechnen(tcStructure,tcWhat,@tcProperty,teValueSet)

Liste der Properties von Calculation

Siehe auch : Hauptmenü / Hauptindex / Such Index / Cursor Index / Programm Module / Tabellen Index / Tabellenmodule / Masken Index / Programmcode Index / Servicepacks / My.Struktur / Funktionen / Sonstiges Index

Lokale Benutzerhilfe : Meine eigene Hilfe / Zur�ck zur PMS³² - Hilfe

Dateiversion:1.0.04#3648 - H.U.DD#SSFF 02.12.2022 Senden Sie Ihren Kommentar zu diesem Thema an das Entwicklungsteam von PMS³² Weitere Informationen finden Sie unter der aktuellen PMS³² WEB-Hilfe
Die Informationen dieser Mitteilung sind vertraulich und nur f�r Sie bestimmt. Unbefugtes Weiterleiten, Ver�ffentlichen, Kopieren usw. sind untersagt und werden gerichtlich verfolgt. © PMS Compelec GmbH 2022 ® el-Projekt