here is part of my cXML document <Extrinsic name='PURCHASINGCENTER'>FAIRFAX</Extrinsic> <Extrinsic name='TAXABLE'>N</Extrinsic> <Extrinsic name='TANDC'>1) PAYMENT TERMS</Extrinsic> <Extrinsic name='RELEASENUM'>1</Extrinsic> <Extrinsic name='ACCOUNTNUM'>ABC123-001</Extrinsic> <Extrinsic name='EXTERNALPONUM'>286410</Extrinsic> <Extrinsic name='PODESC'>ORDERING COOL STUFF</Extrinsic> <Extrinsic name='CONFIRMATIONNUMBER'>EMAIL ADDRESS VALUE</Extrinsic>
IF ORequestExtrinsicName = 'PURCHASINGCENTER' THEN ok := TRUE; IF ORequestExtrinsicName = 'TAXABLE' THEN BEGIN IF ORequestExtrinsic1 = 'N' THEN InXML."Tax Liable" := FALSE; IF ORequestExtrinsic1 = 'Y' THEN InXML."Tax Liable" := TRUE; END; IF ORequestExtrinsicName = 'TANDC' THEN ok := TRUE; IF ORequestExtrinsicName = 'RELEASENUM' THEN ok := TRUE; IF ORequestExtrinsicName = 'ACCOUNTNUM' THEN BEGIN CLEAR(Position); CLEAR(tempCust); CLEAR(tempShipTo); Position := STRPOS(ORequestExtrinsic1,'-'); IF Position > 0 THEN BEGIN tempCust := COPYSTR(ORequestExtrinsic1,1,Position-1); tempShipTo := COPYSTR(ORequestExtrinsic1,Position+1,(STRLEN(ORequestExtrinsic1))); InXML."Sell-to Customer No." := tempCust; InXML."Ship-to Code" := tempShipTo; END ELSE BEGIN InXML."Sell-to Customer No." := ORequestExtrinsic1; END; END; IF ORequestExtrinsicName = 'EXTERNALPONUM' THEN InXML."External Document No." := ORequestExtrinsic1; IF ORequestExtrinsicName = 'PODESC' THEN ok := TRUE; IF ORequestExtrinsicName = 'CONFIRMATIONNUMBER' THEN ok := TRUE;
ORequestExtrinsic1 " " ORequestExtrinsicName "ACCOUNTNUM"