PV Add format

4D View v16

PV Add format


PV Add format ( area ; cadeia ) -> Resultado

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D View
cadeia	String	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_TEXT($OldFormat) //String do formato a remover da Area

 C_TEXT($NewFormat) //String do formato a adicionar à Area

 

 ARRAY LONGINT($FormatNumArray;0)&nbsp; //Array dos números do formato

 ARRAY TEXT($FormatStringArray;0)&nbsp; //Arrays das strings do formato

 C_LONGINT($Position)&nbsp; //Posição do formato a remover de arrays de número e nome

 

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

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

 

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

 

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

 If($Position#-1) //Formato a remover presente na área?

    PV REMOVE FORMAT(Area;$FormatNumArray{$Position}) //Remova

 End if

 

  //Formato a adicionar indisponível na área?

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

    $Position:=Size of array($FormatStringArray)+1 //Adicione

    INSERT IN ARRAY($FormatStringArray;$Position) //Redimensione...

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

    $FormatStringArray{$Position}:=$NewFormat  //Atribue um novo formato

    $FormatNumArray{$Position}:=PV Add format(Area;$NewFormat) //Atribui número

 End if

Ver também

PV GET FORMAT LIST
PV REMOVE FORMAT