0
Need Help with dynamic print
Hi need your help if you can appreciate I need the Domains Audit are on different lines.
"Esta línea selecciona todos los registros de la tabla Audit Plan y los ordena por el campo Date (Fecha).";
let vTbl := ((select 'Audit Plan') order by 'Date Audit');
"Aquí se crea un objeto vObj a partir de vTbl con la fecha formateada (vDat), la hora (vHour), la descripción (vDesc) y un arreglo de fechas (vDatArr) basado en las fechas que coinciden en la tabla.";
let vObj := vTbl.{
vDat: format(Date, "DD.MM.YYYY"),
vHour: format(From, "hh:mm"),
vProj: Projects.'Project Name',
vDom: for domain in numbers(Domains) do
let domRec := record(DOMAINS,domain);
domRec.{
vPMI: 'PMI Dominio',
vDName: 'Domain Name'
}
end,
vDatArr: let xDat := Date;
vTbl[Date = xDat].Date
};
"Inicializa xArr como un arreglo vacío y xObj como un objeto vacío.";
let xArr := [{}];
xArr := null;
"Itera sobre cada elemento de vObj.Para el primer elemento (i = 0), agrega un atributo vSkip con valor 1 y lo añade a xArr.Para los elementos siguientes, compara los valores de vDatArr del elemento actual y el anterior. Si son iguales, establece vSkip en 0; si no, en 1, y luego lo añade a xArr.vSkip se utiliza probablemente para determinar si una fecha debe mostrarse o no en el informe, para evitar repetición de fechas.";
let xObj := {};
for i from 0 to cnt(vObj) do
xObj := item(vObj, number(i));
if i = 0 then
setItem(xObj, "vSkip", 1);
xArr := array(xArr, [xObj])
else
if item(vObj, number(i - 1)).text(vDatArr) = item(vObj, number(i)).text(vDatArr) then
setItem(xObj, "vSkip", 0);
xArr := array(xArr, [xObj])
else
setItem(xObj, "vSkip", 1);
xArr := array(xArr, [xObj])
end
end
end;
"Construye un objeto JSON pJson que contiene el nombre Rafael Sanchis y la tabla procesada xArr.";
let pJson := {
pCompany: "RSAudits inc.",
pName: "Rafael Sanchis",
pAdress: "Calle Arturo Soria 267",
pCity: "Madrid",
pMobile: "+34 617 624 239",
pTbl: xArr
};
"Esta parte genera un informe utilizando la función printAndSaveRecord, lo guarda bajo el nombre PDynamic6 y lo importa como PrintOut.pdf en la base de datos.";
Report := importFile(this, printAndSaveRecord(this, "Grouping", pJson), "PrintOut.pdf")
On you Script I add line from 8 to 14, to add the Domains to the dynamic prints.
If you need my dummy db no problem. I can send by this way
1 Antwort
-
I need this
Content aside
- Status Answered
- vor 3 MonatenZuletzt aktiv
- 1Antworten
- 46Ansichten
-
1
Folge bereits