Aufrufinformation

String = My.Action.HoleWert(tcDbf AS String,tcSField AS String,tvSearch AS Variant,tcRField AS String,tcSI AS String)
String = My.Action.HoleWert(tcDbf,tcSField,tvSearch,tcRField,tcSI)

Codeinformation

*/ Codebeispiel
LOCAL lnEk
*/ Ermitteln der EK-Brutto aus dem Artikelstamm bei "teilweise" bekannter Artikelnummer
lnEk = My.Action.HoleWert("B01","ARTNR","SIE.3TH","EKBR")
*/ Diese Beispiel ermittelt den EK-Brutto des "ersten" Artikels mit obiger Artikelnummer

*/ Der "letzte" Parameter kann angegeben werden, wenn die Tabelle sprachabhängig ist!
*/ In diesem Fall wird der Sprachindex mitgegeben: "DE ","FR ","EN ",...
*/ Dies gilt für alle Funktionen (GetVar,GetVar2,HoleWert), die Werte ermitteln.
lcBez = My.Action.HoleWert("C22","IDC22","UPS","BEZEI","DE ")

Liste der Properties von Action

Hilfeinformation

String = My.Action.VY01[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
String = My.Action.VY01[tcIndex1|,tiIndex1,tiIndex2]

*/ Codebeispiel
LOCAL loY01 AS Object
*/ Abruf der Informationen für eine Auftragsbestätigung
loY01 = My.Action.vY01["101"]
WAIT WINDOW loY01.Bezei

String = My.Action.cIdx02

*/ Abfrage der Mandanten-ID
WAIT WINDOW My.Action.cIdx02

*/ Wenn man mittels VFP Zugriff auf die Applikation braucht:

*/ 1. vfp9.exe öffenen
*/ 2. In das Startverzeichnis von PMS32 wechseln (MUSS)
CD c:\pms\pms32
*/ 3. My Instanziieren
My = NEWOBJECT("pmsmy","pmsmyhandler.vcx","pmsmyhandler.app")
*/ 4. Den letzten aktuellen Mandanten zuweisen
My.cIdx02 = My.cIdx02
*/ 5. Los gehts...

String = My.Action.cMethod

*/ Abruf...
WAIT WINDOW My.Action.cMethod

Number = My.Action.iDim[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Number = My.Action.iDim[tcIndex1|,tiIndex1,tiIndex2]

*/ Dieses Codebeispiel funktioniert nur unter der Laufzeitumgebung von PMS32!
LOCAL liDim AS Interger
*/ Abfrage, welche Aktionen für den Master der Maske gedimmt werden müssen
liDim = My.Action.iDim["MASTER"]
*/ Die Rückgabe ist eine 32 Bit Integer, wobei jede Binärstelle ausgewertet werden kann
IF BITTEST(m.liDim,0)
	*/ Bit-0 ist 1 => dimmen
ENDIF
*...
IF BITTEST(m.liDim,31)
	*/ Bit-31 ist 1 => dimmen
ENDIF

Number = My.Action.iEnable[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Number = My.Action.iEnable[tcIndex1|,tiIndex1,tiIndex2]

*/ Dieses Codebeispiel funktioniert nur unter der Laufzeitumgebung von PMS32!
LOCAL liEnable AS Interger
*/ Abfrage, welche Aktionen für den Master der Maske gedimmt werden müssen
liEnable = My.Action.iEnable["MASTER"]
*/ Die Rückgabe ist eine 32 Bit Integer, wobei jede Binärstelle ausgewertet werden kann
IF BITTEST(m.liEnable,0)
	*/ Bit-0 ist 1 => freigegeben
ENDIF
*...
IF BITTEST(m.liEnable,31)
	*/ Bit-31 ist 1 => freigegeben
ENDIF

Number = My.Action.iTDim[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Number = My.Action.iTDim[tcIndex1|,tiIndex1,tiIndex2]

Number = My.Action.iTEnable[tcIndex1 AS String | tiIndex1 AS Integer , tiIndex2 AS Integer]
Number = My.Action.iTEnable[tcIndex1|,tiIndex1,tiIndex2]

Boolean = My.Action.lReset

My.Action.lReset = .T.

Number = My.Action.nError

WAIT WINDOW My.Action.nError

Number = My.Action.nLine

WAIT WINDOW My.Action.nLine