dlangschied
Member
All,
I am loading an XML document and I am getting errors. The syntax is correct, but I get the error below when I try to run the code. I don't code for XML document loads too often, so i thought that I would pass this by the experts.
Progress 11.7
Error:
The GET-CHILD attribute on the X-NODEREF widget has invalid arguments. (4065) Invalid handle. Not initialized or points to a deleted object. (3135)
Code:
I am loading an XML document and I am getting errors. The syntax is correct, but I get the error below when I try to run the code. I don't code for XML document loads too often, so i thought that I would pass this by the experts.
Progress 11.7
Error:
The GET-CHILD attribute on the X-NODEREF widget has invalid arguments. (4065) Invalid handle. Not initialized or points to a deleted object. (3135)
Code:
Code:
DEFINE INPUT PARAMETER pQDOc AS HANDLE NO-UNDO.
DEFINE INPUT PARAMETER pMessageLogger AS HANDLE NO-UNDO.
DEFINE VARIABLE hOptForm AS HANDLE NO-UNDO.
DEFINE VARIABLE hItem AS HANDLE NO-UNDO.
DEFINE VARIABLE hChild AS HANDLE NO-UNDO.
DEFINE VARIABLE hFormula AS HANDLE NO-UNDO.
DEFINE VARIABLE hFormSt AS HANDLE NO-UNDO.
DEFINE VARIABLE hArticle AS HANDLE NO-UNDO.
DEFINE VARIABLE hDesc1 AS HANDLE NO-UNDO.
DEFINE VARIABLE hDesc2 AS HANDLE NO-UNDO.
DEFINE VARIABLE hType AS HANDLE NO-UNDO.
DEFINE VARIABLE hGroup AS HANDLE NO-UNDO.
DEFINE VARIABLE hDraw AS HANDLE NO-UNDO.
DEFINE VARIABLE hProdLine AS HANDLE NO-UNDO.
DEFINE VARIABLE hCustPartCG AS HANDLE NO-UNDO.
DEFINE VARIABLE hCustPart AS HANDLE NO-UNDO.
DEFINE VARIABLE hCust AS HANDLE NO-UNDO.
DEFINE VARIABLE hPar AS HANDLE NO-UNDO.
DEFINE VARIABLE hComp AS HANDLE NO-UNDO.
DEFINE VARIABLE cName AS CHARACTER NO-UNDO.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
CREATE X-NODEREF hOptForm.
pQDOc:GET-DOCUMENT-ELEMENT(hOptForm).
DO i = 1 TO hOptForm:NUM-CHILDREN:
hOptForm:GET-CHILD(hChild, i).
cName = hChild:NAME.
IF cName = "psFormula" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hFormula).
END.
IF cName = "psFormSt" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hFormSt).
END.
IF cName = "ptArticle" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hArticle).
END.
IF cName = "ptDesc1" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hDesc1).
END.
IF cName = "ptDesc2" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hDesc2).
END.
IF cName = "ptType" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hType).
END.
IF cName = "ptGroup" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hGroup).
END.
IF cName = "ptDraw" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hDraw).
END.
IF cName = "ptProdLine" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hProdLine).
END.
IF cName = "cpCustPartCG" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hCustPartCG).
END.
IF cName = "cpCustPart" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hCustPart).
END.
IF cName = "cpCust" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hCust).
END.
IF cName = "psPar" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hPar).
END.
IF cName = "psComp" THEN DO:
RUN getDataNode IN THIS-PROCEDURE
(INPUT pQDOc,
INPUT hChild,
INPUT-OUTPUT hComp).
END.
END.
Last edited by a moderator: