4D Doc Center : PV Add format

Home

4D View v14

PV Add format


PV Add format ( Bereich ; String ) -> Funktionsergebnis

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D View Bereich
String	String	String für Format
Funktionsergebnis	Lange Ganzzahl	Formatnummer

Beschreibung

Die Funktion PV Add format fügt in Bereich das Format String hinzu und gibt seine Nummer zurück.

Ist String bereits vorhanden, gibt die Funktion PV Add format diese Nummer zurück. Diese Nummer erhalten Sie auch über den Befehl PV GET FORMAT LIST.

Beispiel

Im aktiven Bereich soll das amerikanische Währungsformat entfernt werden, es soll jedoch sichergestellt werden, dass das europäische Währungsformat weiterhin verfügbar ist.

 C_STRING(255;$OldFormat) `Format, das aus Bereich entfernt werden soll

 C_STRING(255;$NewFormat) `Format, das in Bereich hinzugefügt werden soll

 

 ARRAY LONGINT($FormatNumArray;0) `Array mit Formatnummern

 ARRAY STRING(255;$FormatStringArray;0) `Array mit Format Strings

 C_INTEGER($Position) `Position des zu entfernenden Formats in Arrays Nummer und Name

 

 $OldFormat:="$###,##0.00"

 $NewFormat:="### ##0,00 EUR"

 

 PV GET FORMAT LIST(Bereich;$FormatNumArray;$FormatStringArray)

  `Liste verfügbarer Formate

 

 $Position:=Find in array($FormatStringArray;$OldFormat)

 If($Position#-1) `Altes Format im Bereich vorhanden?

    PV REMOVE FORMAT(Bereich;$FormatNumArray{$Position}) `Entfernen

 End if

 

  `In Bereich nicht vorhandenes Format hinzufügen?

 If(Find in array($FormatStringArray;$NewFormat)=-1)

    $Position:=Size of array($FormatStringArray)+1 `Hinzufügen

    INSERT IN ARRAY($FormatStringArray;$Position) `Arrays...

    INSERT IN ARRAY($FormatNumArray;$Position) `...anpassen

    $FormatStringArray{$Position}:=$NewFormat  `Neues Format zuweisen

    $FormatNumArray{$Position}:=PV Add format(Bereich;$NewFormat)

  `Nummer zuweisen

 End if