Ver Mensaje Individual
  #721  
Antiguo 21-04-2017
nachoexe nachoexe is offline
Miembro
 
Registrado: sep 2011
Ubicación: Madrid
Posts: 50
Reputación: 13
nachoexe Va por buen camino
Indice pais CountryType2

Hola a todos los pertenecientes a este gremio de pringaos (los informáticos de contabilidad )

Después de haber leído las 36 páginas que me han ayudado a resolver bastantes dudas os aporto mi grano de arena.

Para resolver cual es el indice de un país (según su CODIGO COMUNITARIO PAIS (UE)) he utilizado el siguiente código:
Cita:
//Declaración de constantes y funciones
const
LPaises : array[1..243] of string = (
'AF','AX','AL','DZ','AS','AD','AO','AI','AQ','AG','AR','AM','AW','AU','AT','AZ','BS','BH','BD','BB', 'BY','BE','BZ','BJ',
'BM','BT','BO','BA','BW','BV','BR','IO','BN','BG','BF','BI','KH','CM','CA','CV','KY','CF','TD','CL', 'CN','CX','CC','CO',
'KM','CG','CD','CK','CR','CI','HR','CU','CY','CZ','DK','DJ','DM','DO','EC','EG','SV','GQ','ER','EE', 'ET','FK','FO','FJ',
'FI','FR','GF','PF','TF','GA','GM','GE','DE','GH','GI','GR','GL','GD','GP','GU','GT','GG','GN','GW', 'GY','HT','HM','VA',
'HN','HK','HU','IS','IN','ID','IR','IQ','IE','IM','IL','IT','JM','JP','JE','JO','KZ','KE','KI','KP', 'KR','KW','KG','LA',
'LV','LB','LS','LR','LY','LI','LT','LU','MO','MK','MG','MW','MY','MV','ML','MT','MH','MQ','MR','MU', 'YT','MX','FM','MD',
'MC','MN','MS','MA','MZ','MM','NA','NR','NP','NL','AN','NC','NZ','NI','NE','NG','NU','NF','MP','NO', 'OM','PK','PW','PS',
'PA','PG','PY','PE','PH','PN','PL','PT','PR','QA','RE','RO','RU','RW','SH','KN','LC','PM','VC','WS', 'SM','ST','SA','SN',
'CS','SC','SL','SG','SK','SI','SB','SO','ZA','GS','ES','LK','SD','SR','SJ','SZ','SE','CH','SY','TW', 'TJ','TZ','TH','TL',
'TG','TK','TO','TT','TN','TR','TM','TC','TV','UG','UA','AE','GB','US','UM','UY','UZ','VU','VE','VN', 'VG','VI','WF','EH',
'YE','ZM','ZW');

function SiiPaisInd(pPais: String):Integer;

//Implementación

function SiiPaisInd(pPais: String):Integer;
var
I: Integer;
vCad: STring;
begin
Result := 202; // ES por defecto
for I := 0 to 242 do
begin
vCad := LPaises[i] ;
if pPais = copy(vCad,1,2) then
begin
Result := I;
end;
end;
end;
Edito: Perdón por el formato de código, lo pongo con espacios y con tabuladores y sale siempre alineado a la izquierda... consigo enviar facturas pero no puedo formatear un texto en el editor del foro
Responder Con Cita