FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#11
|
|||
|
|||
Me respondo a mi mismo por si le sirve a alguien.
Es un tipo enumerado y hay funciones específicas. Seguro que hay alguna forma mas simple, pero esta me funciona. De esta forma si cambia la lista en versiones futuras, seguirá funcionando. uses ..., typinfo ; var idpais,ci:integer; codigopais:string; begin CodigoPais:='IT'; idpais:=-1; for ci := ord(Low(countrytype2)) to ord(High(countrytype2)) do if CodigoPais= GetEnumName(TypeInfo(countrytype2),ci) then begin idpais:=ci; ShowMessage( GetEnumName(TypeInfo(countrytype2),ci)); // solo para comprobar valor. end; ... if idPais>-1 then ARegLRFacturasEmitidas[0].FacturaExpedida.Contraparte.IDOtro.CodigoPais:=CountryType2(idpais); ... |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
TICKET BAI (TicketBAI); Nuevo sistema de la Agencia Tributaria del Pais Vasco | keys | Internet | 4170 | Hace 2 Semanas 17:29:05 |
AEAT envio de datos vía Webservice problemas con WSDL | CelsoO | Internet | 11 | 09-10-2019 20:03:41 |
webService Soap de la Administración Digital Española notific@ | apicito | Internet | 3 | 31-01-2017 11:25:28 |
Error en Webservice funcion envio de sms | webmasterplc | Delphi para la web | 5 | 25-07-2013 20:10:29 |
Problemas con envío de XML a un WebService | davidvamo | Internet | 1 | 13-02-2007 15:49:20 |
|