4D Doc Center : PV Add format

4D View v14

PV Add format


PV Add format ( area ; cadena ) -> Resultado

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D View
cadena	Cadena	Cadena del formato
Resultado	Entero largo	Número del formato

Descripción

El comando PV Add format asocia el formato cadena al area y devuelve su identificador único.

Si cadena ya existe, el comando PV Add format devuelve su identificación (este número también se puede obtener utilizando el comando PV GET FORMAT LIST).

Ejemplo

Queremos borrar el formato monetario americano disponible para el area activa, pero debemos asegurarnos de la presencia del formato monetario europeo (Euros).

 C_STRING(255;$OldFormat) `Cadena del formato a eliminar de Area

 C_STRING(255;$NewFormat) `Cadena del formato a añadir a Area

 

 ARRAY LONGINT($FormatNumArray;0) `Array de los números de formatos

 ARRAY STRING(255;$FormatStringArray;0) `Array de las cadenas de formatos

 C_INTEGER($Position) `Posicion del formato a eliminar en los arrays de números y de nombres

 

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

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

 

 PV GET FORMAT LIST(Area;$FormatNumArray;$FormatStringArray) `Lista de los formatos disponibles

 

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

 If($Position#-1) `¿Formato a eliminar presente en area?

    PV REMOVE FORMAT(Area;$FormatNumArray{$Position}) `Eliminarlo

 End if

 

  `¿Formato a añadir no disponible en area?

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

    $Position:=Size of array($FormatStringArray)+1 `Lo añadimos

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

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

    $FormatStringArray{$Position}:=$NewFormat `Asignación del nuevo formato

    $FormatNumArray{$Position}:=PV Add format(Area;$NewFormat) `Asignación del número

 End if