如何导出 XML 进行中?

How to export XML in progress?

我是 OpenEdge 的新手,我正在尝试将最初的两个表导出到 XML 文件。我的最终目标是将 XML 文件导出为:

<?xml version="1.0" encoding="utf-8"?>
<LAS xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <LASRow>
  <temp_wonbr>wo01</temp_wonbr>
  <temp_id>01</temp_id>
  <Allocations>
    <AllocDetail>
        <Emplacement>SUP.TR</Emplacement>
        <Reference/>
        <NumLot>22045</NumLot>
        <Expire/>
        <Qalloc>1</Qalloc>
        <Message/>
    </AllocDetail>
    <AllocDetail>
        <Emplacement>SUP.TR</Emplacement>
        <Reference/>
        <NumLot>22046</NumLot>
        <Expire/>
        <Qalloc>1</Qalloc>
        <Message/>
    </AllocDetail>
    <Allocations>
</LASRow>

[在此处输入图片描述][1]

感谢您的帮助! [1]: https://i.stack.imgur.com/0yWOP.png

TEMP-TABLE ttTempTableName:WRITE-XML ("FILE", "c:\temp\filename.xml", TRUE, ?, ?). 

您可以通过将临时表与数据集中的关系组合并在数据集上使用 write-xml 方法来实现您想要的:

define temp-table ttlas no-undo
  field temp_wonbr as char
  field temp_id as char
  .

define temp-table ttallocations no-undo
  field parent_id as recid serialize-hidden
  .

define temp-table ttallocdetails no-undo
  field parent_id       as recid serialize-hidden

  field Emplacement as char
  field Reference   as char
  field NumLot      as int 
  field lexpire     as char serialize-name 'Expire'
  field Qalloc      as int 
  field cmessage    as char serialize-name 'Message'
  .

define buffer bulas for ttlas serialize-name 'LASRow'.
define buffer buallocation for ttallocations serialize-name 'Allocations'.
define buffer budetail for ttallocdetails serialize-name 'AllocDetail'.

define dataset dslas serialize-name 'LAS'
  for bulas, buallocation, budetail
  parent-id-relation for bulas, buallocation parent-id-field parent_id
  parent-id-relation for buallocation, budetail parent-id-field parent_id
  .

create bulas.
assign
  bulas.temp_wonbr = 'wo01'
  bulas.temp_id = '01'
  .

create buallocation.
assign
  buallocation.parent_id = recid( bulas )
  .

create budetail.
assign 
  budetail.parent_id = recid( buallocation )
  budetail.emplacement = 'SUP.TR'
  budetail.numlot = 22045
  budetail.qalloc = 1
  .

create budetail.
assign 
  budetail.parent_id = recid( buallocation )
  budetail.emplacement = 'SUP.TR'
  budetail.numlot = 22046
  budetail.qalloc = 1
  .


def var lcxml as longchar no-undo.
dataset dslas:write-xml( 'longchar', lcxml, true, ?, ?, ?, true ).

message string( lcxml ).

https://abldojo.services.progress.com/?shareId=603f5bda9585066c2197989a

使用数据集,您几乎可以导出任何 XML(有一些限制,例如无法创建 xml-评论)。

您可能不得不 fiddle 将某些数据类型替换为字符以正确创建空标签(空的或真正包含 ? 的日期将创建您可能不想要的另一个结构)。

这会让你开始

DEFINE TEMP-TABLE ttLASRow NO-UNDO SERIALIZE-NAME "LASRow"
    FIELD temp_wonbr AS CHARACTER 
    FIELD temp_id    AS CHARACTER.

DEFINE TEMP-TABLE ttAllocations NO-UNDO SERIALIZE-NAME "Allocations"    
    FIELD parentid AS RECID SERIALIZE-HIDDEN. 
    
DEFINE TEMP-TABLE ttAllocDetails NO-UNDO SERIALIZE-NAME "AllocDetails"  
    FIELD parentId    AS RECID SERIALIZE-HIDDEN 
    FIELD Emplacement AS CHARACTER
    FIELD Reference   AS CHARACTER 
    FIELD NumLot      AS INTEGER
    FIELD ExpDat      AS CHARACTER SERIALIZE-NAME "Expire"
    FIELD Qalloc      AS INTEGER 
    FIELD msg         AS CHARACTER SERIALIZE-NAME "Message".

DEFINE DATASET dsLAS SERIALIZE-NAME "LAS" FOR ttLasRow, ttAllocations, ttAllocDetails
    PARENT-ID-RELATION FOR ttLasRow, ttAllocations PARENT-ID-FIELD parentId
    PARENT-ID-RELATION FOR ttAllocations, ttAllocDetails PARENT-ID-FIELD parentId
    .

CREATE ttLasRow.
ASSIGN ttLasRow.temp_wonbr = "wo01"
       ttLasRow.temp_id    = "01".
       
CREATE ttALlocations.      
ASSIGN ttAllocations.parentId = RECID(ttLasRow).

CREATE ttAllocDetails.
ASSIGN ttAllocDetails.parentid    = RECID(ttAllocations)
       ttAllocDetails.Emplacement = "SUP.TR"
       ttAllocDetails.NumLot      = 22045
       ttAllocDetails.Qalloc      = 1.

CREATE ttAllocDetails.
ASSIGN ttAllocDetails.parentid    = RECID(ttAllocations)
       ttAllocDetails.Emplacement = "SUP.TR"
       ttAllocDetails.NumLot      = 22046
       ttAllocDetails.Qalloc      = 1.      
       
       
DATASET dsLAS:WRITE-XML("file", "c:\temp\xml.xml").