如何在App Builder中设计报表？

Question

我只想设计新的报告正在进行中的应用程序生成器。

示例:我只想将员工编号作为输入参数，并在excel表格中获取相应的员工详细信息。关于如何编写正在进行的代码。请看图片。

​

​

谢谢,

Answer 1

当然，我不知道您的数据库实际上是如何组织的，但是类似下面的代码将导出所有与传递给该过程的雇员编号相匹配的“雇员”记录。输出将是适合Excel打开的CSV文件。它应该会给你一些关于语法的想法，你可能会想要开始。

define variable employeeNum as integer no-undo.

update employeeNum.

run exportEmployees ( input employeeNum ).


procedure exportEmployee:

  define input parameter empNum as integer no-undo.

  define buffer employee for employee.

  output to value( "employee.csv" ).
  for each employee no-lock where employee.employeeId = empNum:
    export delimiter "," employee.
  end.
  output close.

  return.

end.

Answer 2

将数据导入excel的一种简单方法是使用导出。

即

OUTPUT TO file.csv.
FOR EACH Customer NO-LOCK:
    EXPORT DELIMITER ";" Customer.
END.
OUTPUT CLOSE.

它将不带任何格式导出。

Answer 3

根据您的excel版本，您可以尝试com-handles直接与其交互，而不是打开已保存的文件。

http://knowledgebase.progress.com/articles/Article/21671

您的代码将类似于上面的示例，但是您需要将/*的Add Data */部分更改为类似下面的内容。

FOR EACH EMP NO-LOCK    
   WHERE EMP.EMPNO = INTEGER(EMPNO:SCREEN-VALUE):

    /* Add data */
    ASSIGN chWorksheet:Range("B1"):VALUE = EMP.ENAME
           chWorksheet:Range("B2"):VALUE = EMP.SAL.

END.

这里假设填充名为" EMPNO“，并且EMPNO字段是一个整数。