4D Doc Center : PV Add format

4D View v14

PV Add format


PV Add format ( area ; cadeia ) -> Resultado

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D View
cadeia	cadeia	Cadeia do formato
Resultado	Inteiro longo	Número do formato

Descrição

O comando PV Add format associa o formato cadeia a area e devolve seu identificador único.

Se cadeia já existe, o comando PV Add format devolve sua identificação (este número também pode se obter utilizando o comando PV GET FORMAT LIST).

Exemplo

Queremos apagar o formato monetário americano disponível para a area ativa, mas devemos nos assegurar da presença do formato monetário europeu (Euros).

 C_STRING(255;$OldFormat) `Cadeia do formato a eliminar de Area

 C_STRING(255;$NewFormat) `Cadeia do formato a adicionar a Area

 

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

 ARRAY STRING(255;$FormatStringArray;0) `Array das cadeias de formatos

 C_INTEGER($Position) `Posição do formato a eliminar os arrays de números e de nomes

 

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

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

 

 PV GET FORMAT LIST(Area;$FormatNumArray;$FormatStringArray) `Lista dos formatos disponíveis

 

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

 If($Position#-1) `Formato a eliminar presente em área?

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

 End if

 

  `¿Formato a adicionar não disponível em área?

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

    $Position:=Size of array($FormatStringArray)+1 `Adicionamos

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

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

    $FormatStringArray{$Position}:=$NewFormat `Atribuição do novo formato

    $FormatNumArray{$Position}:=PV Add format(Area;$NewFormat) `Atribuição do número

 End if