5. Dezember 2011 11:31
Setup.GET;
IF ImportType=ImportType::Latest THEN
URL := Setup."URL Latest Rates"
ELSE IF ImportType=ImportType::Previous THEN
URL := Setup."URL All Previous Rates"
ELSE
URL := Setup."URL Rates Last 90 Days";
XMLHTTP.open('GET',URL,FALSE);
XMLHTTP.setRequestHeader('If-Modified-Since', 'Sat, 1 Jan 2000 00:00:00 GMT');
XMLHTTP.send();
IF (XMLHTTP.status = 200) THEN BEGIN
IF ISCLEAR(XMLDoc) THEN
IF NOT CREATE(XMLDoc) THEN
ERROR(Text000);
7. Dezember 2011 22:41
IF NOT CREATE(XMLDoc) THEN
IF NOT CREATE(XMLDoc,TRUE,TRUE) THEN
12. Dezember 2011 11:58
IF (XMLHTTP.status = 200) THEN BEGIN
IF ISCLEAR(XMLDoc) THEN
IF ISSERVICETIER THEN BEGIN
IF NOT CREATE(XMLDoc,TRUE,FALSE) THEN
ERROR(Text000);
END ELSE BEGIN
IF NOT CREATE(XMLDoc) THEN
ERROR(Text000);
...
END;