// Summary: <specify the procedure action>
// Syntax:
//CreateCamposRuntime (<gNomeRelatorio>, <gParametersReletario>)
//
// Parameters:
// gNomeRelatorio:
// gParametersReletario: <specify the role of gParametersReletario>
// Example:
// <Specify a usage example>
//
Procedure CreateCamposRuntime(gNomeRelatorio, gParametersReletario)

OBJ is string

xControl is Control

i,y is int = 0

total is int = StringCount(gParametersReletario,";",IgnoreCase)

//TITULO

OBJ = "SC_AreaPlotagem.STC_TextoX"
xControl <- ControlClone(STC_Texto, OBJ)
xControl.Width = STC_Texto.Width
xControl.X = 30
xControl.Y = 30
xControl.Caption = gNomeRelatorio

//CAMPOS
LOOP (total)
i++
IF i = 1 THEN
y = 75
ELSE
y+= 35
END
OBJ = "SC_AreaPlotagem.EDT_"+ NoSpace(ExtractString(gParametersReletario, i, ";", FromBeginning),sscAll)
xControl <- ControlClone(EDT_Texto, OBJ)
xControl.Width = EDT_Texto.Width
xControl.X = 35
xControl.Y = y
xControl.Caption = ExtractString(gParametersReletario, i, ";", FromBeginning)
END