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

null
    • Rafael_Sanchis
    • vor 3 Monaten
    • Gemeldet - anzeigen

    I need this

Content aside

  • Status Answered
  • vor 3 MonatenZuletzt aktiv
  • 1Antworten
  • 46Ansichten
  • 1 Folge bereits