FormCalc Diagramme Teil 1 - Säulendiagramm//FormCalc Charts Pt.1 - Bar Charts

Ein riesen Manko am LiveCycle Designer ist, dass er keine Diagramme aus den Formulardaten erstellen kann, so wie das Excel kann.
Mit etwas Einsatz vom FormCalc, kann man dies aber (schnell) beseitigen.
Dieses Beispiel ist eine Weiterentwicklung des Scripts, dass ich vor knapp einem Jahr im Acrobatusers.com-Forum geposted habe.

Es besteht aus einer Tabelle zum Eingeben der Daten (Beschreibung und Wert sowie Farbe) und einem Teilformular mit einem verstecktem Feld, dass die Diagramme per FormCalc quasi in Echtzeit berechnet.

One of LiveCycle Designers flaws is, that it can't generate chart from the form data such as Excel does.
But with some FormCalc experiences this can be solved.
This example is a new version of a script I posted about a year ago in the Acrobatusers.com community.

It contains a table for the inputs (label, value and color) and a subform with a hidden field that calculates the chart quasi in realtime.

FormCalc-Script:

var nCharts = Input.Table.ChartValues.instanceManager.count

_Chart.setInstances(nCharts)

var CurrentInstance = $.parent.index
var ChartValue = Input.Table.ChartValues[CurrentInstance].Amount
var ChartLabel = Input.Table.ChartValues[CurrentInstance].Label.value.text.value
var ChartColor = Input.Table.ChartValues[CurrentInstance].Color.value.text.value
var ChartMod = UnitValue(ChartValue / 25.4)
var Maximum = UnitValue(105 / 25.4)

if(ChartMod > Maximum) then
ChartMod = Maximum
zLine.presence = "visible"
elseif(ChartMod <= Maximum) then
zLine.presence = "invisible"
endif


var ChartMove = Round(UnitValue(ChartMod * 25.4))
var ContainerHeight = Round(UnitValue(Output.Chart.h))
var ChartStart = ContainerHeight
var ChartEnd = ChartStart - ChartMove

if (ChartValue >= 0) then
Bar.presence = "visible"
Bar.h = ChartMod
Bar.y = UnitValue(ChartEnd / 25.4 )
BarValue.value.text.value = ChartValue
BarValue.y = UnitValue(ChartEnd / 25.4 )
BarLabel.presence = "visible"
BarLabel.value.text.value = ChartLabel
BarLabel.y = UnitValue(ChartEnd / 25.4 )

if(ChartColor == "O")then
Bar.value.rectangle.fill.color.value = "255,153,0"
elseif(ChartColor == "R") then
Bar.value.rectangle.fill.color.value = "255,0,0"
elseif(ChartColor == "B") then
Bar.value.rectangle.fill.color.value = "0,0,255"
elseif(ChartColor == "G") then
Bar.value.rectangle.fill.color.value = "0,255,0"
endif

else
Bar.presence = "invisible"
Bar.presence = "invisible"
BarLabel.presence = "invisible"
endif

Säulendiagramm // Bar Chart:


Beispiel // Example:

https://acrobat.adobe.com/link/track?uri=urn:aaid:scds:US:3115b52a-c33e-402d-b6a9-8add50111edd