API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Jan 27th, 2017
148
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 50.91 KB | None | 0 0
raw download clone embed print report
  1.  
  2. Este el código del unit generado, tras la importación:
  3.  
  4. [DELPHI]// ************************************************************************ //
  5. // The types declared in this file were generated from data read from the
  6. // WSDL File described below:
  7. // WSDL : http://localhost/sugarCRM/service/v4/soap.php?wsdl
  8. // >Import : http://localhost/sugarCRM/service/v4/soap.php?wsdl>0
  9. // >Import : http://schemas.xmlsoap.org/soap/encoding/
  10. // >Import : http://schemas.xmlsoap.org/wsdl/
  11. // Encoding : ISO-8859-1
  12. // Version : 1.0
  13. // (1/27/2017 3:13:47 PM - - $Rev: 86412 $)
  14. // ************************************************************************ //
  15.  
  16. unit soap;
  17.  
  18. interface
  19.  
  20. uses Soap.InvokeRegistry, Soap.SOAPHTTPClient, System.Types, Soap.XSBuiltIns;
  21.  
  22. const
  23. IS_OPTN = $0001;
  24. IS_UNBD = $0002;
  25. IS_ATTR = $0010;
  26.  
  27.  
  28. type
  29.  
  30. // ************************************************************************ //
  31. // The following types, referred to in the WSDL document are not being represented
  32. // in this file. They are either aliases[@] of other types represented or were referred
  33. // to but never[!] declared in the document. The types from the latter category
  34. // typically map to predefined/known XML or Embarcadero types; however, they could also
  35. // indicate incorrect WSDL documents that failed to declare or import a schema type.
  36. // ************************************************************************ //
  37. // !:ID - "http://www.w3.org/2001/XMLSchema"[Gbl]
  38. // !:anyURI - "http://www.w3.org/2001/XMLSchema"[Gbl]
  39. // !:int - "http://www.w3.org/2001/XMLSchema"[Gbl]
  40. // !:string - "http://www.w3.org/2001/XMLSchema"[Gbl]
  41. // !:boolean - "http://www.w3.org/2001/XMLSchema"[Gbl]
  42.  
  43. new_return_document_revision = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  44. return_search_result = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  45. module_list = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  46. int2 = class; { "http://schemas.xmlsoap.org/soap/encoding/"[GblCplx] }
  47. get_entries_count_result = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  48. new_set_relationship_list_result = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  49. new_return_note_attachment = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  50. new_note_attachment = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  51. user_auth = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  52. upcoming_activity_entry = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  53. last_viewed_entry = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  54. acl_list_entry = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  55. get_server_info_result = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  56. new_set_entry_result = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  57. document_revision = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  58. string_2 = class; { "http://schemas.xmlsoap.org/soap/encoding/"[GblCplx] }
  59. int = class; { "http://schemas.xmlsoap.org/soap/encoding/"[GblElm] }
  60. string_ = class; { "http://schemas.xmlsoap.org/soap/encoding/"[GblElm] }
  61. boolean_2 = class; { "http://schemas.xmlsoap.org/soap/encoding/"[GblCplx] }
  62. boolean_ = class; { "http://schemas.xmlsoap.org/soap/encoding/"[GblElm] }
  63. module_list_entry = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  64. anyURI2 = class; { "http://schemas.xmlsoap.org/soap/encoding/"[GblCplx] }
  65. anyURI = class; { "http://schemas.xmlsoap.org/soap/encoding/"[GblElm] }
  66. ID2 = class; { "http://schemas.xmlsoap.org/soap/encoding/"[GblCplx] }
  67. ID = class; { "http://schemas.xmlsoap.org/soap/encoding/"[GblElm] }
  68. field = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  69. search_link_name_value = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  70. get_entry_list_result_version2 = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  71. get_entry_result_version2 = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  72. link_list2 = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  73. link_name_value = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  74. link_value2 = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  75. entry_value = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  76. name_value = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  77. link_field = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  78. new_module_fields = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  79. link_name_to_fields_array = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  80. new_set_entries_result = class; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  81.  
  82.  
  83.  
  84. // ************************************************************************ //
  85. // XML : new_return_document_revision, global, <complexType>
  86. // Namespace : http://www.sugarcrm.com/sugarcrm
  87. // ************************************************************************ //
  88. new_return_document_revision = class(TRemotable)
  89. private
  90. Fdocument_revision: document_revision;
  91. public
  92. destructor Destroy; override;
  93. published
  94. property document_revision: document_revision read Fdocument_revision write Fdocument_revision;
  95. end;
  96.  
  97. search_link_list = array of search_link_name_value; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  98.  
  99.  
  100. // ************************************************************************ //
  101. // XML : return_search_result, global, <complexType>
  102. // Namespace : http://www.sugarcrm.com/sugarcrm
  103. // ************************************************************************ //
  104. return_search_result = class(TRemotable)
  105. private
  106. Fentry_list: search_link_list;
  107. public
  108. destructor Destroy; override;
  109. published
  110. property entry_list: search_link_list read Fentry_list write Fentry_list;
  111. end;
  112.  
  113. module_list_array = array of module_list_entry; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  114.  
  115.  
  116. // ************************************************************************ //
  117. // XML : module_list, global, <complexType>
  118. // Namespace : http://www.sugarcrm.com/sugarcrm
  119. // ************************************************************************ //
  120. module_list = class(TRemotable)
  121. private
  122. Fmodules: module_list_array;
  123. public
  124. destructor Destroy; override;
  125. published
  126. property modules: module_list_array read Fmodules write Fmodules;
  127. end;
  128.  
  129. acl_list = array of acl_list_entry; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  130. upcoming_activities_list = array of upcoming_activity_entry; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  131. last_viewed_list = array of last_viewed_entry; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  132. link_lists = array of link_list2; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  133.  
  134.  
  135. // ************************************************************************ //
  136. // XML : int, global, <complexType>
  137. // Namespace : http://schemas.xmlsoap.org/soap/encoding/
  138. // ************************************************************************ //
  139. int2 = class(TRemotable)
  140. private
  141. FText: Integer;
  142. Fid: string;
  143. Fid_Specified: boolean;
  144. Fhref: string;
  145. Fhref_Specified: boolean;
  146. procedure Setid(Index: Integer; const Astring: string);
  147. function id_Specified(Index: Integer): boolean;
  148. procedure Sethref(Index: Integer; const Astring: string);
  149. function href_Specified(Index: Integer): boolean;
  150. published
  151. property Text: Integer read FText write FText;
  152. property id: string Index (IS_ATTR or IS_OPTN) read Fid write Setid stored id_Specified;
  153. property href: string Index (IS_ATTR or IS_OPTN) read Fhref write Sethref stored href_Specified;
  154. end;
  155.  
  156.  
  157.  
  158. // ************************************************************************ //
  159. // XML : get_entries_count_result, global, <complexType>
  160. // Namespace : http://www.sugarcrm.com/sugarcrm
  161. // ************************************************************************ //
  162. get_entries_count_result = class(TRemotable)
  163. private
  164. Fresult_count: Integer;
  165. published
  166. property result_count: Integer read Fresult_count write Fresult_count;
  167. end;
  168.  
  169.  
  170.  
  171. // ************************************************************************ //
  172. // XML : new_set_relationship_list_result, global, <complexType>
  173. // Namespace : http://www.sugarcrm.com/sugarcrm
  174. // ************************************************************************ //
  175. new_set_relationship_list_result = class(TRemotable)
  176. private
  177. Fcreated: Integer;
  178. Ffailed: Integer;
  179. Fdeleted: Integer;
  180. published
  181. property created: Integer read Fcreated write Fcreated;
  182. property failed: Integer read Ffailed write Ffailed;
  183. property deleted: Integer read Fdeleted write Fdeleted;
  184. end;
  185.  
  186.  
  187.  
  188. // ************************************************************************ //
  189. // XML : new_return_note_attachment, global, <complexType>
  190. // Namespace : http://www.sugarcrm.com/sugarcrm
  191. // ************************************************************************ //
  192. new_return_note_attachment = class(TRemotable)
  193. private
  194. Fnote_attachment: new_note_attachment;
  195. public
  196. destructor Destroy; override;
  197. published
  198. property note_attachment: new_note_attachment read Fnote_attachment write Fnote_attachment;
  199. end;
  200.  
  201.  
  202.  
  203. // ************************************************************************ //
  204. // XML : new_note_attachment, global, <complexType>
  205. // Namespace : http://www.sugarcrm.com/sugarcrm
  206. // ************************************************************************ //
  207. new_note_attachment = class(TRemotable)
  208. private
  209. Fid: string;
  210. Ffilename: string;
  211. Ffile_: string;
  212. Frelated_module_id: string;
  213. Frelated_module_name: string;
  214. published
  215. property id: string read Fid write Fid;
  216. property filename: string read Ffilename write Ffilename;
  217. property file_: string read Ffile_ write Ffile_;
  218. property related_module_id: string read Frelated_module_id write Frelated_module_id;
  219. property related_module_name: string read Frelated_module_name write Frelated_module_name;
  220. end;
  221.  
  222.  
  223.  
  224. // ************************************************************************ //
  225. // XML : user_auth, global, <complexType>
  226. // Namespace : http://www.sugarcrm.com/sugarcrm
  227. // ************************************************************************ //
  228. user_auth = class(TRemotable)
  229. private
  230. Fuser_name: string;
  231. Fpassword: string;
  232. published
  233. property user_name: string read Fuser_name write Fuser_name;
  234. property password: string read Fpassword write Fpassword;
  235. end;
  236.  
  237.  
  238.  
  239. // ************************************************************************ //
  240. // XML : upcoming_activity_entry, global, <complexType>
  241. // Namespace : http://www.sugarcrm.com/sugarcrm
  242. // ************************************************************************ //
  243. upcoming_activity_entry = class(TRemotable)
  244. private
  245. Fid: string;
  246. Fmodule: string;
  247. Fdate_due: string;
  248. Fsummary: string;
  249. published
  250. property id: string read Fid write Fid;
  251. property module: string read Fmodule write Fmodule;
  252. property date_due: string read Fdate_due write Fdate_due;
  253. property summary: string read Fsummary write Fsummary;
  254. end;
  255.  
  256.  
  257.  
  258. // ************************************************************************ //
  259. // XML : last_viewed_entry, global, <complexType>
  260. // Namespace : http://www.sugarcrm.com/sugarcrm
  261. // ************************************************************************ //
  262. last_viewed_entry = class(TRemotable)
  263. private
  264. Fid: string;
  265. Fitem_id: string;
  266. Fitem_summary: string;
  267. Fmodule_name: string;
  268. Fmonitor_id: string;
  269. Fdate_modified: string;
  270. published
  271. property id: string read Fid write Fid;
  272. property item_id: string read Fitem_id write Fitem_id;
  273. property item_summary: string read Fitem_summary write Fitem_summary;
  274. property module_name: string read Fmodule_name write Fmodule_name;
  275. property monitor_id: string read Fmonitor_id write Fmonitor_id;
  276. property date_modified: string read Fdate_modified write Fdate_modified;
  277. end;
  278.  
  279. md5_results = array of string; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  280. module_names = array of string; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  281.  
  282.  
  283. // ************************************************************************ //
  284. // XML : acl_list_entry, global, <complexType>
  285. // Namespace : http://www.sugarcrm.com/sugarcrm
  286. // ************************************************************************ //
  287. acl_list_entry = class(TRemotable)
  288. private
  289. Faction: string;
  290. Faccess: string;
  291. published
  292. property action: string read Faction write Faction;
  293. property access: string read Faccess write Faccess;
  294. end;
  295.  
  296.  
  297.  
  298. // ************************************************************************ //
  299. // XML : get_server_info_result, global, <complexType>
  300. // Namespace : http://www.sugarcrm.com/sugarcrm
  301. // ************************************************************************ //
  302. get_server_info_result = class(TRemotable)
  303. private
  304. Fflavor: string;
  305. Fversion: string;
  306. Fgmt_time: string;
  307. published
  308. property flavor: string read Fflavor write Fflavor;
  309. property version: string read Fversion write Fversion;
  310. property gmt_time: string read Fgmt_time write Fgmt_time;
  311. end;
  312.  
  313.  
  314.  
  315. // ************************************************************************ //
  316. // XML : new_set_entry_result, global, <complexType>
  317. // Namespace : http://www.sugarcrm.com/sugarcrm
  318. // ************************************************************************ //
  319. new_set_entry_result = class(TRemotable)
  320. private
  321. Fid: string;
  322. published
  323. property id: string read Fid write Fid;
  324. end;
  325.  
  326.  
  327.  
  328. // ************************************************************************ //
  329. // XML : document_revision, global, <complexType>
  330. // Namespace : http://www.sugarcrm.com/sugarcrm
  331. // ************************************************************************ //
  332. document_revision = class(TRemotable)
  333. private
  334. Fid: string;
  335. Fdocument_name: string;
  336. Frevision: string;
  337. Ffilename: string;
  338. Ffile_: string;
  339. published
  340. property id: string read Fid write Fid;
  341. property document_name: string read Fdocument_name write Fdocument_name;
  342. property revision: string read Frevision write Frevision;
  343. property filename: string read Ffilename write Ffilename;
  344. property file_: string read Ffile_ write Ffile_;
  345. end;
  346.  
  347.  
  348.  
  349. // ************************************************************************ //
  350. // XML : string, global, <complexType>
  351. // Namespace : http://schemas.xmlsoap.org/soap/encoding/
  352. // ************************************************************************ //
  353. string_2 = class(TRemotable)
  354. private
  355. FText: string;
  356. Fid: string;
  357. Fid_Specified: boolean;
  358. Fhref: string;
  359. Fhref_Specified: boolean;
  360. procedure Setid(Index: Integer; const Astring: string);
  361. function id_Specified(Index: Integer): boolean;
  362. procedure Sethref(Index: Integer; const Astring: string);
  363. function href_Specified(Index: Integer): boolean;
  364. published
  365. property Text: string read FText write FText;
  366. property id: string Index (IS_ATTR or IS_OPTN) read Fid write Setid stored id_Specified;
  367. property href: string Index (IS_ATTR or IS_OPTN) read Fhref write Sethref stored href_Specified;
  368. end;
  369.  
  370.  
  371.  
  372. // ************************************************************************ //
  373. // XML : int, global, <element>
  374. // Namespace : http://schemas.xmlsoap.org/soap/encoding/
  375. // ************************************************************************ //
  376. int = class(int2)
  377. private
  378. published
  379. end;
  380.  
  381.  
  382.  
  383. // ************************************************************************ //
  384. // XML : string, global, <element>
  385. // Namespace : http://schemas.xmlsoap.org/soap/encoding/
  386. // ************************************************************************ //
  387. string_ = class(string_2)
  388. private
  389. published
  390. end;
  391.  
  392.  
  393.  
  394. // ************************************************************************ //
  395. // XML : boolean, global, <complexType>
  396. // Namespace : http://schemas.xmlsoap.org/soap/encoding/
  397. // ************************************************************************ //
  398. boolean_2 = class(TRemotable)
  399. private
  400. FText: Boolean;
  401. Fid: string;
  402. Fid_Specified: boolean;
  403. Fhref: string;
  404. Fhref_Specified: boolean;
  405. procedure Setid(Index: Integer; const Astring: string);
  406. function id_Specified(Index: Integer): boolean;
  407. procedure Sethref(Index: Integer; const Astring: string);
  408. function href_Specified(Index: Integer): boolean;
  409. published
  410. property Text: Boolean read FText write FText;
  411. property id: string Index (IS_ATTR or IS_OPTN) read Fid write Setid stored id_Specified;
  412. property href: string Index (IS_ATTR or IS_OPTN) read Fhref write Sethref stored href_Specified;
  413. end;
  414.  
  415.  
  416.  
  417. // ************************************************************************ //
  418. // XML : boolean, global, <element>
  419. // Namespace : http://schemas.xmlsoap.org/soap/encoding/
  420. // ************************************************************************ //
  421. boolean_ = class(boolean_2)
  422. private
  423. published
  424. end;
  425.  
  426.  
  427.  
  428. // ************************************************************************ //
  429. // XML : module_list_entry, global, <complexType>
  430. // Namespace : http://www.sugarcrm.com/sugarcrm
  431. // ************************************************************************ //
  432. module_list_entry = class(TRemotable)
  433. private
  434. Fmodule_key: string;
  435. Fmodule_label: string;
  436. Ffavorite_enabled: Boolean;
  437. Facls: acl_list;
  438. public
  439. destructor Destroy; override;
  440. published
  441. property module_key: string read Fmodule_key write Fmodule_key;
  442. property module_label: string read Fmodule_label write Fmodule_label;
  443. property favorite_enabled: Boolean read Ffavorite_enabled write Ffavorite_enabled;
  444. property acls: acl_list read Facls write Facls;
  445. end;
  446.  
  447.  
  448.  
  449. // ************************************************************************ //
  450. // XML : anyURI, global, <complexType>
  451. // Namespace : http://schemas.xmlsoap.org/soap/encoding/
  452. // ************************************************************************ //
  453. anyURI2 = class(TRemotable)
  454. private
  455. FText: string;
  456. Fid: string;
  457. Fid_Specified: boolean;
  458. Fhref: string;
  459. Fhref_Specified: boolean;
  460. procedure Setid(Index: Integer; const Astring: string);
  461. function id_Specified(Index: Integer): boolean;
  462. procedure Sethref(Index: Integer; const Astring: string);
  463. function href_Specified(Index: Integer): boolean;
  464. published
  465. property Text: string read FText write FText;
  466. property id: string Index (IS_ATTR or IS_OPTN) read Fid write Setid stored id_Specified;
  467. property href: string Index (IS_ATTR or IS_OPTN) read Fhref write Sethref stored href_Specified;
  468. end;
  469.  
  470.  
  471.  
  472. // ************************************************************************ //
  473. // XML : anyURI, global, <element>
  474. // Namespace : http://schemas.xmlsoap.org/soap/encoding/
  475. // ************************************************************************ //
  476. anyURI = class(anyURI2)
  477. private
  478. published
  479. end;
  480.  
  481.  
  482.  
  483. // ************************************************************************ //
  484. // XML : ID, global, <complexType>
  485. // Namespace : http://schemas.xmlsoap.org/soap/encoding/
  486. // ************************************************************************ //
  487. ID2 = class(TRemotable)
  488. private
  489. FText: string;
  490. Fid: string;
  491. Fid_Specified: boolean;
  492. Fhref: string;
  493. Fhref_Specified: boolean;
  494. procedure Setid(Index: Integer; const Astring: string);
  495. function id_Specified(Index: Integer): boolean;
  496. procedure Sethref(Index: Integer; const Astring: string);
  497. function href_Specified(Index: Integer): boolean;
  498. published
  499. property Text: string read FText write FText;
  500. property id: string Index (IS_ATTR or IS_OPTN) read Fid write Setid stored id_Specified;
  501. property href: string Index (IS_ATTR or IS_OPTN) read Fhref write Sethref stored href_Specified;
  502. end;
  503.  
  504.  
  505.  
  506. // ************************************************************************ //
  507. // XML : ID, global, <element>
  508. // Namespace : http://schemas.xmlsoap.org/soap/encoding/
  509. // ************************************************************************ //
  510. ID = class(ID2)
  511. private
  512. published
  513. end;
  514.  
  515. name_value_list = array of name_value; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  516.  
  517.  
  518. // ************************************************************************ //
  519. // XML : field, global, <complexType>
  520. // Namespace : http://www.sugarcrm.com/sugarcrm
  521. // ************************************************************************ //
  522. field = class(TRemotable)
  523. private
  524. Fname_: string;
  525. Ftype_: string;
  526. Fgroup: string;
  527. Flabel_: string;
  528. Frequired: Integer;
  529. Foptions: name_value_list;
  530. Fdefault_value: string;
  531. public
  532. destructor Destroy; override;
  533. published
  534. property name_: string read Fname_ write Fname_;
  535. property type_: string read Ftype_ write Ftype_;
  536. property group: string read Fgroup write Fgroup;
  537. property label_: string read Flabel_ write Flabel_;
  538. property required: Integer read Frequired write Frequired;
  539. property options: name_value_list read Foptions write Foptions;
  540. property default_value: string read Fdefault_value write Fdefault_value;
  541. end;
  542.  
  543. link_value = array of name_value; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  544. search_link_array_list = array of link_value; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  545.  
  546.  
  547. // ************************************************************************ //
  548. // XML : search_link_name_value, global, <complexType>
  549. // Namespace : http://www.sugarcrm.com/sugarcrm
  550. // ************************************************************************ //
  551. search_link_name_value = class(TRemotable)
  552. private
  553. Fname_: string;
  554. Frecords: search_link_array_list;
  555. published
  556. property name_: string read Fname_ write Fname_;
  557. property records: search_link_array_list read Frecords write Frecords;
  558. end;
  559.  
  560. entry_list = array of entry_value; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  561.  
  562.  
  563. // ************************************************************************ //
  564. // XML : get_entry_list_result_version2, global, <complexType>
  565. // Namespace : http://www.sugarcrm.com/sugarcrm
  566. // ************************************************************************ //
  567. get_entry_list_result_version2 = class(TRemotable)
  568. private
  569. Fresult_count: Integer;
  570. Ftotal_count: Integer;
  571. Fnext_offset: Integer;
  572. Fentry_list: entry_list;
  573. Frelationship_list: link_lists;
  574. public
  575. destructor Destroy; override;
  576. published
  577. property result_count: Integer read Fresult_count write Fresult_count;
  578. property total_count: Integer read Ftotal_count write Ftotal_count;
  579. property next_offset: Integer read Fnext_offset write Fnext_offset;
  580. property entry_list: entry_list read Fentry_list write Fentry_list;
  581. property relationship_list: link_lists read Frelationship_list write Frelationship_list;
  582. end;
  583.  
  584.  
  585.  
  586. // ************************************************************************ //
  587. // XML : get_entry_result_version2, global, <complexType>
  588. // Namespace : http://www.sugarcrm.com/sugarcrm
  589. // ************************************************************************ //
  590. get_entry_result_version2 = class(TRemotable)
  591. private
  592. Fentry_list: entry_list;
  593. Frelationship_list: link_lists;
  594. public
  595. destructor Destroy; override;
  596. published
  597. property entry_list: entry_list read Fentry_list write Fentry_list;
  598. property relationship_list: link_lists read Frelationship_list write Frelationship_list;
  599. end;
  600.  
  601. link_names_to_fields_array = array of link_name_to_fields_array; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  602. link_list = array of link_name_value; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  603.  
  604.  
  605. // ************************************************************************ //
  606. // XML : link_list2, global, <complexType>
  607. // Namespace : http://www.sugarcrm.com/sugarcrm
  608. // ************************************************************************ //
  609. link_list2 = class(TRemotable)
  610. private
  611. Flink_list: link_list;
  612. public
  613. destructor Destroy; override;
  614. published
  615. property link_list: link_list read Flink_list write Flink_list;
  616. end;
  617.  
  618. link_array_list = array of link_value2; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  619.  
  620.  
  621. // ************************************************************************ //
  622. // XML : link_name_value, global, <complexType>
  623. // Namespace : http://www.sugarcrm.com/sugarcrm
  624. // ************************************************************************ //
  625. link_name_value = class(TRemotable)
  626. private
  627. Fname_: string;
  628. Frecords: link_array_list;
  629. public
  630. destructor Destroy; override;
  631. published
  632. property name_: string read Fname_ write Fname_;
  633. property records: link_array_list read Frecords write Frecords;
  634. end;
  635.  
  636.  
  637.  
  638. // ************************************************************************ //
  639. // XML : link_value2, global, <complexType>
  640. // Namespace : http://www.sugarcrm.com/sugarcrm
  641. // ************************************************************************ //
  642. link_value2 = class(TRemotable)
  643. private
  644. Flink_value: link_value;
  645. public
  646. destructor Destroy; override;
  647. published
  648. property link_value: link_value read Flink_value write Flink_value;
  649. end;
  650.  
  651.  
  652.  
  653. // ************************************************************************ //
  654. // XML : entry_value, global, <complexType>
  655. // Namespace : http://www.sugarcrm.com/sugarcrm
  656. // ************************************************************************ //
  657. entry_value = class(TRemotable)
  658. private
  659. Fid: string;
  660. Fmodule_name: string;
  661. Fname_value_list: name_value_list;
  662. public
  663. destructor Destroy; override;
  664. published
  665. property id: string read Fid write Fid;
  666. property module_name: string read Fmodule_name write Fmodule_name;
  667. property name_value_list: name_value_list read Fname_value_list write Fname_value_list;
  668. end;
  669.  
  670. link_field_list = array of link_field; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  671.  
  672.  
  673. // ************************************************************************ //
  674. // XML : name_value, global, <complexType>
  675. // Namespace : http://www.sugarcrm.com/sugarcrm
  676. // ************************************************************************ //
  677. name_value = class(TRemotable)
  678. private
  679. Fname_: string;
  680. Fvalue: string;
  681. published
  682. property name_: string read Fname_ write Fname_;
  683. property value: string read Fvalue write Fvalue;
  684. end;
  685.  
  686. field_list = array of field; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  687.  
  688.  
  689. // ************************************************************************ //
  690. // XML : link_field, global, <complexType>
  691. // Namespace : http://www.sugarcrm.com/sugarcrm
  692. // ************************************************************************ //
  693. link_field = class(TRemotable)
  694. private
  695. Fname_: string;
  696. Ftype_: string;
  697. Frelationship: string;
  698. Fmodule: string;
  699. Fbean_name: string;
  700. published
  701. property name_: string read Fname_ write Fname_;
  702. property type_: string read Ftype_ write Ftype_;
  703. property relationship: string read Frelationship write Frelationship;
  704. property module: string read Fmodule write Fmodule;
  705. property bean_name: string read Fbean_name write Fbean_name;
  706. end;
  707.  
  708. deleted_array = array of Integer; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  709.  
  710.  
  711. // ************************************************************************ //
  712. // XML : new_module_fields, global, <complexType>
  713. // Namespace : http://www.sugarcrm.com/sugarcrm
  714. // ************************************************************************ //
  715. new_module_fields = class(TRemotable)
  716. private
  717. Fmodule_name: string;
  718. Ftable_name: string;
  719. Fmodule_fields: field_list;
  720. Flink_fields: link_field_list;
  721. public
  722. destructor Destroy; override;
  723. published
  724. property module_name: string read Fmodule_name write Fmodule_name;
  725. property table_name: string read Ftable_name write Ftable_name;
  726. property module_fields: field_list read Fmodule_fields write Fmodule_fields;
  727. property link_fields: link_field_list read Flink_fields write Flink_fields;
  728. end;
  729.  
  730. name_value_lists = array of name_value_list; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  731. select_fields = array of string; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  732.  
  733.  
  734. // ************************************************************************ //
  735. // XML : link_name_to_fields_array, global, <complexType>
  736. // Namespace : http://www.sugarcrm.com/sugarcrm
  737. // ************************************************************************ //
  738. link_name_to_fields_array = class(TRemotable)
  739. private
  740. Fname_: string;
  741. Fvalue: select_fields;
  742. published
  743. property name_: string read Fname_ write Fname_;
  744. property value: select_fields read Fvalue write Fvalue;
  745. end;
  746.  
  747. new_set_relationhip_ids = array of select_fields; { "http://www.sugarcrm.com/sugarcrm"[GblCplx] }
  748.  
  749.  
  750. // ************************************************************************ //
  751. // XML : new_set_entries_result, global, <complexType>
  752. // Namespace : http://www.sugarcrm.com/sugarcrm
  753. // ************************************************************************ //
  754. new_set_entries_result = class(TRemotable)
  755. private
  756. Fids: select_fields;
  757. published
  758. property ids: select_fields read Fids write Fids;
  759. end;
  760.  
  761.  
  762. // ************************************************************************ //
  763. // Namespace : http://www.sugarcrm.com/sugarcrm
  764. // soapAction: http://localhost/sugarCRM/service/v4/soap.php/%operationName%
  765. // transport : http://schemas.xmlsoap.org/soap/http
  766. // style : rpc
  767. // use : encoded
  768. // binding : sugarsoapBinding
  769. // service : sugarsoap
  770. // port : sugarsoapPort
  771. // URL : http://localhost/sugarCRM/service/v4/soap.php
  772. // ************************************************************************ //
  773. sugarsoapPortType = interface(IInvokable)
  774. ['{DF5598C1-4D60-1EB4-1DAB-7CCCBEBB87DC}']
  775. function login(const user_auth: user_auth; const application_name: string; const name_value_list: name_value_list): entry_value; stdcall;
  776. procedure logout(const session: string); stdcall;
  777. function get_entry(const session: string; const module_name: string; const id: string; const select_fields: select_fields; const link_name_to_fields_array: link_names_to_fields_array; const track_view: Boolean
  778. ): get_entry_result_version2; stdcall;
  779. function get_entries(const session: string; const module_name: string; const ids: select_fields; const select_fields: select_fields; const link_name_to_fields_array: link_names_to_fields_array; const track_view: Boolean
  780. ): get_entry_result_version2; stdcall;
  781. function get_entry_list(const session: string; const module_name: string; const query: string; const order_by: string; const offset: Integer; const select_fields: select_fields;
  782. const link_name_to_fields_array: link_names_to_fields_array; const max_results: Integer; const deleted: Integer; const favorites: Boolean): get_entry_list_result_version2; stdcall;
  783. function set_relationship(const session: string; const module_name: string; const module_id: string; const link_field_name: string; const related_ids: select_fields; const name_value_list: name_value_list;
  784. const delete: Integer): new_set_relationship_list_result; stdcall;
  785. function set_relationships(const session: string; const module_names: select_fields; const module_ids: select_fields; const link_field_names: select_fields; const related_ids: new_set_relationhip_ids; const name_value_lists: name_value_lists;
  786. const delete_array: deleted_array): new_set_relationship_list_result; stdcall;
  787. function get_relationships(const session: string; const module_name: string; const module_id: string; const link_field_name: string; const related_module_query: string; const related_fields: select_fields;
  788. const related_module_link_name_to_fields_array: link_names_to_fields_array; const deleted: Integer; const order_by: string): get_entry_result_version2; stdcall;
  789. function set_entry(const session: string; const module_name: string; const name_value_list: name_value_list): new_set_entry_result; stdcall;
  790. function set_entries(const session: string; const module_name: string; const name_value_lists: name_value_lists): new_set_entries_result; stdcall;
  791. function get_server_info: get_server_info_result; stdcall;
  792. function get_user_id(const session: string): string; stdcall;
  793. function get_module_fields(const session: string; const module_name: string; const fields: select_fields): new_module_fields; stdcall;
  794. function seamless_login(const session: string): Integer; stdcall;
  795. function set_note_attachment(const session: string; const note: new_note_attachment): new_set_entry_result; stdcall;
  796. function get_note_attachment(const session: string; const id: string): new_return_note_attachment; stdcall;
  797. function set_document_revision(const session: string; const note: document_revision): new_set_entry_result; stdcall;
  798. function get_document_revision(const session: string; const i: string): new_return_document_revision; stdcall;
  799. function search_by_module(const session: string; const search_string: string; const modules: select_fields; const offset: Integer; const max_results: Integer; const assigned_user_id: string;
  800. const select_fields: select_fields; const unified_search_only: Boolean; const favorites: Boolean): return_search_result; stdcall;
  801. function get_available_modules(const session: string; const filter: string): module_list; stdcall;
  802. function get_user_team_id(const session: string): string; stdcall;
  803. procedure set_campaign_merge(const session: string; const targets: select_fields; const campaign_id: string); stdcall;
  804. function get_entries_count(const session: string; const module_name: string; const query: string; const deleted: Integer): get_entries_count_result; stdcall;
  805. function get_module_fields_md5(const session: string; const module_names: select_fields): md5_results; stdcall;
  806. function get_last_viewed(const session: string; const module_names: module_names): last_viewed_list; stdcall;
  807. function get_upcoming_activities(const session: string): upcoming_activities_list; stdcall;
  808. end;
  809.  
  810. function GetsugarsoapPortType(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): sugarsoapPortType;
  811.  
  812.  
  813. implementation
  814. uses System.SysUtils;
  815.  
  816. function GetsugarsoapPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): sugarsoapPortType;
  817. const
  818. defWSDL = 'http://localhost/sugarCRM/service/v4/soap.php?wsdl';
  819. defURL = 'http://localhost/sugarCRM/service/v4/soap.php';
  820. defSvc = 'sugarsoap';
  821. defPrt = 'sugarsoapPort';
  822. var
  823. RIO: THTTPRIO;
  824. begin
  825. Result := nil;
  826. if (Addr = '') then
  827. begin
  828. if UseWSDL then
  829. Addr := defWSDL
  830. else
  831. Addr := defURL;
  832. end;
  833. if HTTPRIO = nil then
  834. RIO := THTTPRIO.Create(nil)
  835. else
  836. RIO := HTTPRIO;
  837. try
  838. Result := (RIO as sugarsoapPortType);
  839. if UseWSDL then
  840. begin
  841. RIO.WSDLLocation := Addr;
  842. RIO.Service := defSvc;
  843. RIO.Port := defPrt;
  844. end else
  845. RIO.URL := Addr;
  846. finally
  847. if (Result = nil) and (HTTPRIO = nil) then
  848. RIO.Free;
  849. end;
  850. end;
  851.  
  852.  
  853. destructor new_return_document_revision.Destroy;
  854. begin
  855. System.SysUtils.FreeAndNil(Fdocument_revision);
  856. inherited Destroy;
  857. end;
  858.  
  859. destructor return_search_result.Destroy;
  860. var
  861. I: Integer;
  862. begin
  863. for I := 0 to System.Length(Fentry_list)-1 do
  864. System.SysUtils.FreeAndNil(Fentry_list[I]);
  865. System.SetLength(Fentry_list, 0);
  866. inherited Destroy;
  867. end;
  868.  
  869. destructor module_list.Destroy;
  870. var
  871. I: Integer;
  872. begin
  873. for I := 0 to System.Length(Fmodules)-1 do
  874. System.SysUtils.FreeAndNil(Fmodules[I]);
  875. System.SetLength(Fmodules, 0);
  876. inherited Destroy;
  877. end;
  878.  
  879. procedure int2.Setid(Index: Integer; const Astring: string);
  880. begin
  881. Fid := Astring;
  882. Fid_Specified := True;
  883. end;
  884.  
  885. function int2.id_Specified(Index: Integer): boolean;
  886. begin
  887. Result := Fid_Specified;
  888. end;
  889.  
  890. procedure int2.Sethref(Index: Integer; const Astring: string);
  891. begin
  892. Fhref := Astring;
  893. Fhref_Specified := True;
  894. end;
  895.  
  896. function int2.href_Specified(Index: Integer): boolean;
  897. begin
  898. Result := Fhref_Specified;
  899. end;
  900.  
  901. destructor new_return_note_attachment.Destroy;
  902. begin
  903. System.SysUtils.FreeAndNil(Fnote_attachment);
  904. inherited Destroy;
  905. end;
  906.  
  907. procedure string_2.Setid(Index: Integer; const Astring: string);
  908. begin
  909. Fid := Astring;
  910. Fid_Specified := True;
  911. end;
  912.  
  913. function string_2.id_Specified(Index: Integer): boolean;
  914. begin
  915. Result := Fid_Specified;
  916. end;
  917.  
  918. procedure string_2.Sethref(Index: Integer; const Astring: string);
  919. begin
  920. Fhref := Astring;
  921. Fhref_Specified := True;
  922. end;
  923.  
  924. function string_2.href_Specified(Index: Integer): boolean;
  925. begin
  926. Result := Fhref_Specified;
  927. end;
  928.  
  929. procedure boolean_2.Setid(Index: Integer; const Astring: string);
  930. begin
  931. Fid := Astring;
  932. Fid_Specified := True;
  933. end;
  934.  
  935. function boolean_2.id_Specified(Index: Integer): boolean;
  936. begin
  937. Result := Fid_Specified;
  938. end;
  939.  
  940. procedure boolean_2.Sethref(Index: Integer; const Astring: string);
  941. begin
  942. Fhref := Astring;
  943. Fhref_Specified := True;
  944. end;
  945.  
  946. function boolean_2.href_Specified(Index: Integer): boolean;
  947. begin
  948. Result := Fhref_Specified;
  949. end;
  950.  
  951. destructor module_list_entry.Destroy;
  952. var
  953. I: Integer;
  954. begin
  955. for I := 0 to System.Length(Facls)-1 do
  956. System.SysUtils.FreeAndNil(Facls[I]);
  957. System.SetLength(Facls, 0);
  958. inherited Destroy;
  959. end;
  960.  
  961. procedure anyURI2.Setid(Index: Integer; const Astring: string);
  962. begin
  963. Fid := Astring;
  964. Fid_Specified := True;
  965. end;
  966.  
  967. function anyURI2.id_Specified(Index: Integer): boolean;
  968. begin
  969. Result := Fid_Specified;
  970. end;
  971.  
  972. procedure anyURI2.Sethref(Index: Integer; const Astring: string);
  973. begin
  974. Fhref := Astring;
  975. Fhref_Specified := True;
  976. end;
  977.  
  978. function anyURI2.href_Specified(Index: Integer): boolean;
  979. begin
  980. Result := Fhref_Specified;
  981. end;
  982.  
  983. procedure ID2.Setid(Index: Integer; const Astring: string);
  984. begin
  985. Fid := Astring;
  986. Fid_Specified := True;
  987. end;
  988.  
  989. function ID2.id_Specified(Index: Integer): boolean;
  990. begin
  991. Result := Fid_Specified;
  992. end;
  993.  
  994. procedure ID2.Sethref(Index: Integer; const Astring: string);
  995. begin
  996. Fhref := Astring;
  997. Fhref_Specified := True;
  998. end;
  999.  
  1000. function ID2.href_Specified(Index: Integer): boolean;
  1001. begin
  1002. Result := Fhref_Specified;
  1003. end;
  1004.  
  1005. destructor field.Destroy;
  1006. var
  1007. I: Integer;
  1008. begin
  1009. for I := 0 to System.Length(Foptions)-1 do
  1010. System.SysUtils.FreeAndNil(Foptions[I]);
  1011. System.SetLength(Foptions, 0);
  1012. inherited Destroy;
  1013. end;
  1014.  
  1015. destructor get_entry_list_result_version2.Destroy;
  1016. var
  1017. I: Integer;
  1018. begin
  1019. for I := 0 to System.Length(Fentry_list)-1 do
  1020. System.SysUtils.FreeAndNil(Fentry_list[I]);
  1021. System.SetLength(Fentry_list, 0);
  1022. for I := 0 to System.Length(Frelationship_list)-1 do
  1023. System.SysUtils.FreeAndNil(Frelationship_list[I]);
  1024. System.SetLength(Frelationship_list, 0);
  1025. inherited Destroy;
  1026. end;
  1027.  
  1028. destructor get_entry_result_version2.Destroy;
  1029. var
  1030. I: Integer;
  1031. begin
  1032. for I := 0 to System.Length(Fentry_list)-1 do
  1033. System.SysUtils.FreeAndNil(Fentry_list[I]);
  1034. System.SetLength(Fentry_list, 0);
  1035. for I := 0 to System.Length(Frelationship_list)-1 do
  1036. System.SysUtils.FreeAndNil(Frelationship_list[I]);
  1037. System.SetLength(Frelationship_list, 0);
  1038. inherited Destroy;
  1039. end;
  1040.  
  1041. destructor link_list2.Destroy;
  1042. var
  1043. I: Integer;
  1044. begin
  1045. for I := 0 to System.Length(Flink_list)-1 do
  1046. System.SysUtils.FreeAndNil(Flink_list[I]);
  1047. System.SetLength(Flink_list, 0);
  1048. inherited Destroy;
  1049. end;
  1050.  
  1051. destructor link_name_value.Destroy;
  1052. var
  1053. I: Integer;
  1054. begin
  1055. for I := 0 to System.Length(Frecords)-1 do
  1056. System.SysUtils.FreeAndNil(Frecords[I]);
  1057. System.SetLength(Frecords, 0);
  1058. inherited Destroy;
  1059. end;
  1060.  
  1061. destructor link_value2.Destroy;
  1062. var
  1063. I: Integer;
  1064. begin
  1065. for I := 0 to System.Length(Flink_value)-1 do
  1066. System.SysUtils.FreeAndNil(Flink_value[I]);
  1067. System.SetLength(Flink_value, 0);
  1068. inherited Destroy;
  1069. end;
  1070.  
  1071. destructor entry_value.Destroy;
  1072. var
  1073. I: Integer;
  1074. begin
  1075. for I := 0 to System.Length(Fname_value_list)-1 do
  1076. System.SysUtils.FreeAndNil(Fname_value_list[I]);
  1077. System.SetLength(Fname_value_list, 0);
  1078. inherited Destroy;
  1079. end;
  1080.  
  1081. destructor new_module_fields.Destroy;
  1082. var
  1083. I: Integer;
  1084. begin
  1085. for I := 0 to System.Length(Fmodule_fields)-1 do
  1086. System.SysUtils.FreeAndNil(Fmodule_fields[I]);
  1087. System.SetLength(Fmodule_fields, 0);
  1088. for I := 0 to System.Length(Flink_fields)-1 do
  1089. System.SysUtils.FreeAndNil(Flink_fields[I]);
  1090. System.SetLength(Flink_fields, 0);
  1091. inherited Destroy;
  1092. end;
  1093.  
  1094. initialization
  1095. { sugarsoapPortType }
  1096. InvRegistry.RegisterInterface(TypeInfo(sugarsoapPortType), 'http://www.sugarcrm.com/sugarcrm', 'ISO-8859-1');
  1097. InvRegistry.RegisterDefaultSOAPAction(TypeInfo(sugarsoapPortType), 'http://192.1.2.118/sugarCRM/service/v4/soap.php/%operationName%');
  1098. RemClassRegistry.RegisterXSClass(new_return_document_revision, 'http://www.sugarcrm.com/sugarcrm', 'new_return_document_revision');
  1099. RemClassRegistry.RegisterXSInfo(TypeInfo(search_link_list), 'http://www.sugarcrm.com/sugarcrm', 'search_link_list');
  1100. RemClassRegistry.RegisterXSClass(return_search_result, 'http://www.sugarcrm.com/sugarcrm', 'return_search_result');
  1101. RemClassRegistry.RegisterXSInfo(TypeInfo(module_list_array), 'http://www.sugarcrm.com/sugarcrm', 'module_list_array');
  1102. RemClassRegistry.RegisterXSClass(module_list, 'http://www.sugarcrm.com/sugarcrm', 'module_list');
  1103. RemClassRegistry.RegisterXSInfo(TypeInfo(acl_list), 'http://www.sugarcrm.com/sugarcrm', 'acl_list');
  1104. RemClassRegistry.RegisterXSInfo(TypeInfo(upcoming_activities_list), 'http://www.sugarcrm.com/sugarcrm', 'upcoming_activities_list');
  1105. RemClassRegistry.RegisterXSInfo(TypeInfo(last_viewed_list), 'http://www.sugarcrm.com/sugarcrm', 'last_viewed_list');
  1106. RemClassRegistry.RegisterXSInfo(TypeInfo(link_lists), 'http://www.sugarcrm.com/sugarcrm', 'link_lists');
  1107. RemClassRegistry.RegisterXSClass(int2, 'http://schemas.xmlsoap.org/soap/encoding/', 'int2', 'int');
  1108. RemClassRegistry.RegisterXSClass(get_entries_count_result, 'http://www.sugarcrm.com/sugarcrm', 'get_entries_count_result');
  1109. RemClassRegistry.RegisterXSClass(new_set_relationship_list_result, 'http://www.sugarcrm.com/sugarcrm', 'new_set_relationship_list_result');
  1110. RemClassRegistry.RegisterXSClass(new_return_note_attachment, 'http://www.sugarcrm.com/sugarcrm', 'new_return_note_attachment');
  1111. RemClassRegistry.RegisterXSClass(new_note_attachment, 'http://www.sugarcrm.com/sugarcrm', 'new_note_attachment');
  1112. RemClassRegistry.RegisterExternalPropName(TypeInfo(new_note_attachment), 'file_', '[ExtName="file"]');
  1113. RemClassRegistry.RegisterXSClass(user_auth, 'http://www.sugarcrm.com/sugarcrm', 'user_auth');
  1114. RemClassRegistry.RegisterXSClass(upcoming_activity_entry, 'http://www.sugarcrm.com/sugarcrm', 'upcoming_activity_entry');
  1115. RemClassRegistry.RegisterXSClass(last_viewed_entry, 'http://www.sugarcrm.com/sugarcrm', 'last_viewed_entry');
  1116. RemClassRegistry.RegisterXSInfo(TypeInfo(md5_results), 'http://www.sugarcrm.com/sugarcrm', 'md5_results');
  1117. RemClassRegistry.RegisterXSInfo(TypeInfo(module_names), 'http://www.sugarcrm.com/sugarcrm', 'module_names');
  1118. RemClassRegistry.RegisterXSClass(acl_list_entry, 'http://www.sugarcrm.com/sugarcrm', 'acl_list_entry');
  1119. RemClassRegistry.RegisterXSClass(get_server_info_result, 'http://www.sugarcrm.com/sugarcrm', 'get_server_info_result');
  1120. RemClassRegistry.RegisterXSClass(new_set_entry_result, 'http://www.sugarcrm.com/sugarcrm', 'new_set_entry_result');
  1121. RemClassRegistry.RegisterXSClass(document_revision, 'http://www.sugarcrm.com/sugarcrm', 'document_revision');
  1122. RemClassRegistry.RegisterExternalPropName(TypeInfo(document_revision), 'file_', '[ExtName="file"]');
  1123. RemClassRegistry.RegisterXSClass(string_2, 'http://schemas.xmlsoap.org/soap/encoding/', 'string_2', 'string');
  1124. RemClassRegistry.RegisterXSClass(int, 'http://schemas.xmlsoap.org/soap/encoding/', 'int');
  1125. RemClassRegistry.RegisterXSClass(string_, 'http://schemas.xmlsoap.org/soap/encoding/', 'string_', 'string');
  1126. RemClassRegistry.RegisterXSClass(boolean_2, 'http://schemas.xmlsoap.org/soap/encoding/', 'boolean_2', 'boolean');
  1127. RemClassRegistry.RegisterXSClass(boolean_, 'http://schemas.xmlsoap.org/soap/encoding/', 'boolean_', 'boolean');
  1128. RemClassRegistry.RegisterXSClass(module_list_entry, 'http://www.sugarcrm.com/sugarcrm', 'module_list_entry');
  1129. RemClassRegistry.RegisterXSClass(anyURI2, 'http://schemas.xmlsoap.org/soap/encoding/', 'anyURI2', 'anyURI');
  1130. RemClassRegistry.RegisterXSClass(anyURI, 'http://schemas.xmlsoap.org/soap/encoding/', 'anyURI');
  1131. RemClassRegistry.RegisterXSClass(ID2, 'http://schemas.xmlsoap.org/soap/encoding/', 'ID2', 'ID');
  1132. RemClassRegistry.RegisterXSClass(ID, 'http://schemas.xmlsoap.org/soap/encoding/', 'ID');
  1133. RemClassRegistry.RegisterXSInfo(TypeInfo(name_value_list), 'http://www.sugarcrm.com/sugarcrm', 'name_value_list');
  1134. RemClassRegistry.RegisterXSClass(field, 'http://www.sugarcrm.com/sugarcrm', 'field');
  1135. RemClassRegistry.RegisterExternalPropName(TypeInfo(field), 'name_', '[ExtName="name"]');
  1136. RemClassRegistry.RegisterExternalPropName(TypeInfo(field), 'type_', '[ExtName="type"]');
  1137. RemClassRegistry.RegisterExternalPropName(TypeInfo(field), 'label_', '[ExtName="label"]');
  1138. RemClassRegistry.RegisterXSInfo(TypeInfo(link_value), 'http://www.sugarcrm.com/sugarcrm', 'link_value');
  1139. RemClassRegistry.RegisterXSInfo(TypeInfo(search_link_array_list), 'http://www.sugarcrm.com/sugarcrm', 'search_link_array_list');
  1140. RemClassRegistry.RegisterXSClass(search_link_name_value, 'http://www.sugarcrm.com/sugarcrm', 'search_link_name_value');
  1141. RemClassRegistry.RegisterExternalPropName(TypeInfo(search_link_name_value), 'name_', '[ExtName="name"]');
  1142. RemClassRegistry.RegisterXSInfo(TypeInfo(entry_list), 'http://www.sugarcrm.com/sugarcrm', 'entry_list');
  1143. RemClassRegistry.RegisterXSClass(get_entry_list_result_version2, 'http://www.sugarcrm.com/sugarcrm', 'get_entry_list_result_version2');
  1144. RemClassRegistry.RegisterXSClass(get_entry_result_version2, 'http://www.sugarcrm.com/sugarcrm', 'get_entry_result_version2');
  1145. RemClassRegistry.RegisterXSInfo(TypeInfo(link_names_to_fields_array), 'http://www.sugarcrm.com/sugarcrm', 'link_names_to_fields_array');
  1146. RemClassRegistry.RegisterXSInfo(TypeInfo(link_list), 'http://www.sugarcrm.com/sugarcrm', 'link_list');
  1147. RemClassRegistry.RegisterXSClass(link_list2, 'http://www.sugarcrm.com/sugarcrm', 'link_list2');
  1148. RemClassRegistry.RegisterXSInfo(TypeInfo(link_array_list), 'http://www.sugarcrm.com/sugarcrm', 'link_array_list');
  1149. RemClassRegistry.RegisterXSClass(link_name_value, 'http://www.sugarcrm.com/sugarcrm', 'link_name_value');
  1150. RemClassRegistry.RegisterExternalPropName(TypeInfo(link_name_value), 'name_', '[ExtName="name"]');
  1151. RemClassRegistry.RegisterXSClass(link_value2, 'http://www.sugarcrm.com/sugarcrm', 'link_value2');
  1152. RemClassRegistry.RegisterXSClass(entry_value, 'http://www.sugarcrm.com/sugarcrm', 'entry_value');
  1153. RemClassRegistry.RegisterXSInfo(TypeInfo(link_field_list), 'http://www.sugarcrm.com/sugarcrm', 'link_field_list');
  1154. RemClassRegistry.RegisterXSClass(name_value, 'http://www.sugarcrm.com/sugarcrm', 'name_value');
  1155. RemClassRegistry.RegisterExternalPropName(TypeInfo(name_value), 'name_', '[ExtName="name"]');
  1156. RemClassRegistry.RegisterXSInfo(TypeInfo(field_list), 'http://www.sugarcrm.com/sugarcrm', 'field_list');
  1157. RemClassRegistry.RegisterXSClass(link_field, 'http://www.sugarcrm.com/sugarcrm', 'link_field');
  1158. RemClassRegistry.RegisterExternalPropName(TypeInfo(link_field), 'name_', '[ExtName="name"]');
  1159. RemClassRegistry.RegisterExternalPropName(TypeInfo(link_field), 'type_', '[ExtName="type"]');
  1160. RemClassRegistry.RegisterXSInfo(TypeInfo(deleted_array), 'http://www.sugarcrm.com/sugarcrm', 'deleted_array');
  1161. RemClassRegistry.RegisterXSClass(new_module_fields, 'http://www.sugarcrm.com/sugarcrm', 'new_module_fields');
  1162. RemClassRegistry.RegisterXSInfo(TypeInfo(name_value_lists), 'http://www.sugarcrm.com/sugarcrm', 'name_value_lists');
  1163. RemClassRegistry.RegisterXSInfo(TypeInfo(select_fields), 'http://www.sugarcrm.com/sugarcrm', 'select_fields');
  1164. RemClassRegistry.RegisterXSClass(link_name_to_fields_array, 'http://www.sugarcrm.com/sugarcrm', 'link_name_to_fields_array');
  1165. RemClassRegistry.RegisterExternalPropName(TypeInfo(link_name_to_fields_array), 'name_', '[ExtName="name"]');
  1166. RemClassRegistry.RegisterXSInfo(TypeInfo(new_set_relationhip_ids), 'http://www.sugarcrm.com/sugarcrm', 'new_set_relationhip_ids');
  1167. RemClassRegistry.RegisterXSClass(new_set_entries_result, 'http://www.sugarcrm.com/sugarcrm', 'new_set_entries_result');
  1168.  
  1169. end.
  1170.  
  1171. [/DELPHI]
  1172.  
  1173.  
  1174. Toda ayuda es bienvenida.
  1175. Saludos.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!