Einzelnen Beitrag anzeigen

Benutzerbild von Samashy
Samashy

Registriert seit: 20. Feb 2004
Ort: Cottbus
127 Beiträge
 
Delphi 10.4 Sydney
 
#1

wie wird aus einem Mapping '_1', '1' ein '1' bei der Antwort bzw. wie lese es aus?

  Alt 31. Mai 2017, 11:56
Hallo Ihr Lieben,

ich kommuniziere mit einem BiPro konformen Webservice und erhalte als Antwort CT_VertragsauskunftResponse (http://www.bipro.net/namespace/prozesse/vertrag).
Die Zahlart oder auch der Status werden als '1' oder ähnliches geliefert. In der aus der WDSL erzeugten Pas findet ein Mapping statt:
Code:
ST_Vertragsstatus = (
      _1,
      _2,
      _3,
      _4,
      _5,
      _6,
      _7,
      _8,
      _9,
      _A,
      _B
  );
und
Code:
RemClassRegistry.RegisterXSInfo(TypeInfo(ST_Vertragsstatus), 'http://www.bipro.net/namespace/datentypen', 'ST_Vertragsstatus');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(ST_Vertragsstatus), '_1', '1');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(ST_Vertragsstatus), '_2', '2');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(ST_Vertragsstatus), '_3', '3');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(ST_Vertragsstatus), '_4', '4');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(ST_Vertragsstatus), '_5', '5');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(ST_Vertragsstatus), '_6', '6');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(ST_Vertragsstatus), '_7', '7');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(ST_Vertragsstatus), '_8', '8');
  RemClassRegistry.RegisterExternalPropName(TypeInfo(ST_Vertragsstatus), '_9', '9');
Ich verstehe nicht, wie ich jetzt den Wert auslesen kann. Lasse ich mir im Debbuger den Vertragsstatus anzeigen, wird '_1' gezeigt. Ich würde das Ganze gerne in eine Integer Variable lesen, aber wie? Ich stelle mich zu dusselig an.
  Mit Zitat antworten Zitat