Registriert seit: 20. Feb 2004
Ort: Cottbus
127 Beiträge
Delphi 10.4 Sydney
|
wie wird aus einem Mapping '_1', '1' ein '1' bei der Antwort bzw. wie lese es aus?
31. Mai 2017, 12: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.
|
|
Zitat
|