project BLF > class XML > method ConvertXmlToTable
Parameters
ihComponent | input | handle | |
ihParentNode | input | handle | |
icTables | input | character | |
tTableRef | output | temp-table | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
BLF
QadFinancials
program code (program1/xml.p)
assign oiReturnStatus = -98.
empty temp-table tKnownTable.
empty temp-table tTableRef.
do viCnt = 1 to num-entries (icTables) by 2:
assign vhTableHandle = widget-handle (entry (viCnt, icTables))
vcTableName = entry (viCnt + 1, icTables)
no-error.
if not valid-handle (vhTableHandle)
then next.
create tKnownTable.
assign tKnownTable.tcTableName = if vcTableName = "":U
then if vhTableHandle:table begins "t_o":U
or vhTableHandle:table begins "t_s":U
or vhTableHandle:table begins "t_i":U
then substr (vhTableHandle:table, 4, -1, "CHARACTER":U)
else substr (vhTableHandle:table, 2, -1, "CHARACTER":U)
else vcTableName
tKnownTable.thTableHandle = vhTableHandle.
end.
<M-2 run ConvertXmlToTableDetail (input ihComponent (ihComponent),
input ihParentNode (ihStartNode),
input ? (ihCurrentTable),
input ? (irParentRowid),
output oiReturnStatus (oiReturnStatus)) in XML>