project BLF > class Database Component > method DumpXmlRemoveFieldsNotForInput
Description
remove fields from the xml that are irrelevant to direct input
Parameters
ihTableNode | input | handle | x-noderef object |
Internal usage
BLF
program code (program1/database.p)
create x-noderef vhFieldNode in widget-pool "non-persistent".
do viFieldCount = ihTableNode:num-children to 1 by -1:
ihTableNode:get-child(vhFieldNode,viFieldCount).
if vhFieldNode:name = "tc_Status"
or vhFieldNode:name matches "*_ID"
then ihTableNode:remove-child(vhFieldNode).
else if vhFieldNode:subtype = "ELEMENT"
then do:
<M-1 run DumpXmlRemoveFieldsNotForInput (input vhFieldNode (ihTableNode)) in database>
end.
end.
delete object vhFieldNode.