project BLF > class XML > method ConvertXmlToTable


Parameters


ihComponentinputhandle
ihParentNodeinputhandle
icTablesinputcharacter
tTableRefoutputtemp-table
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method database.ConvertXmlToTable

QadFinancials
method BBankNumber.ApiStdMaintainXml
method BBusinessRelation.ApiStdMaintainXml


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>