#define americano 	0
#define	europeo		1
#define	lmax	200 		// 200
#define posin	18
#define estac	19+posin
#define linea	16+posin
#define durac	30+posin
#define hor      8+posin  // hipath templo mormon
#define fech	 0+posin
#define	tranf	75+posin
#define numero	38+posin  
#define ccost	0
#define proye   76+posin
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	25+posin
#define antran	0			// anexo transferido
//#define tip_lla	17+ posin
//#define mode	21+ posin

#define fofech	europeo  // ok
                           
#define ladat		82+posin
#define l_nume		16

char lgua[lmax+3];
char *cuf,*ruf;
int mc = 0 ;

extern char rgua[];
void in_central()
{ 
   rgua[0]='\0'; 
}

void fi_central()
{
} 
   
void gua_buf(char *buf)
{
   strcpy(lgua,buf);
}

void DatCentral(char *buf, char *tel, int vestac, int vlinea,int vdurac,int vhor, int vfech,
                int vtranf, int vnumero, int vccost,int vproye, int vcuenta, int vpulsos, int vruta, int vprinum, int vring, int vantran, int vfofech)
{
	int i,k,j,cont;                       
	char vtip,aux;
	k =0; cont=0;                                                                   
	i = strlen(buf) ;
	if (i> vtranf-1 && buf[fech+2]=='.' && buf[fech+5]=='.' && buf[hor+2]==':')
	{            
		if(buf[vtranf]=='1' || buf[vtranf]=='2')
		{
			gua_buf(buf);
			cuf = lgua;
		}
		aux = buf[vtranf];
//		if(buf[vring+2] != ':')											vtip   = 'O';
		if (buf[vtranf]=='2' || buf[vtranf]=='6' || buf[vtranf]=='8' || buf[vtranf]=='9')	vtip='O';
		else																				vtip='I';
		for(j=0;j<6;j++)
		{
			if isdigit(buf[vestac+j]) tel[k++]= buf[vestac+j];
        }
        tel[k++] =' ';
		for (j=0;j<3 && j<i;j++)
		{
			if isdigit(buf[vlinea+j]) tel[k++]= buf[vlinea+j];
		}		
        tel[k++] =' ';
        if (isdigit(buf[vdurac]))
        {
			for (j=0;j<8 && j<i;j++) tel[k++]= buf[vdurac+j];
        }
        else
        {
			tel[k++] = '0';tel[k++] = '0';tel[k++] = ':';tel[k++] = '0';
			tel[k++] = '0';tel[k++] = ':';tel[k++] = '0';tel[k++] = '0';
        }
        tel[k++] =' ';
		for (j=0;j<5 && j<i;j++) tel[k++]= buf[vhor+j];
        tel[k++] =' ';
        if (vfofech == europeo) 
   		{
			tel[k++] = buf[vfech+3];
			tel[k++] = buf[vfech+4];
			tel[k++] = '/';
			tel[k++] = buf[vfech+0];
			tel[k++] = buf[vfech+1];
		}
		else
		{
			tel[k++] = buf[vfech+3];
			tel[k++] = buf[vfech+4];
			tel[k++] = '/';
			tel[k++] = buf[vfech+0];
			tel[k++] = buf[vfech+1];
		}	
		tel[k++] = '/';
		tel[k++] = buf[vfech+6];
		tel[k++] = buf[vfech+7];
		tel[k++] = ' ';
		tel[k++] = vtip;
		tel[k++] = ' ';
		for (j=0;j<20;j++)
		{
			if isdigit(buf[vnumero+j])
			{
				tel[k++]=buf[vnumero+j];
				cont++;
			}
		}
		if(cont==0) tel[k++]='*';
		tel[k++]=' '; 
		tel[k++]='*'; tel[k++]='*'; tel[k++]='*';  // centro de costo
		tel[k++]=' ';
		if (isdigit(buf[vproye]) && (vproye+3)<i)
		{
			for(j=0;j<6 && (vproye+j)<i;j++) { if isdigit(buf[vproye+j]) tel[k++]=buf[vproye+j];}
		}
		else		
		{
			tel[k++]='*'; tel[k++]='*'; tel[k++]='*';  // codigo de proyecto
		}
		tel[k++]=' ';
		tel[k++]='*';  // codigo de cuenta
		tel[k++]=' ';
		for (j=0;j<5;j++) tel[k++]='0';
		tel[k++]=' ';
		tel[k++]='*'; tel[k++]='*'; tel[k++]='*'; //ruta					
		tel[k++]=' ';
		tel[k++]='*';  // primer numero
		tel[k++]=' ';
	   	if (buf[vring+2] == ':')
	   	{
	   		tel[k++] = buf[vring+0]; 
	   		tel[k++] = buf[vring+1]; 
	   		tel[k++] = buf[vring+2]; 
	   		tel[k++] = buf[vring+3]; 
	   		tel[k++] = buf[vring+4]; 
	   	}
	   	else
	   	{
	   		tel[k++] = '0' ; tel[k++] = '0' ; tel[k++] = ':' ;tel[k++] = '0' ; tel[k++] = '0' ; 
	   	}
		tel[k++] =' ';
		if(buf[vtranf]=='5' || buf[vtranf]=='6' || buf[vtranf]=='9')
		{
			for (j=0;j<6;j++)	tel[k++]=cuf[vestac+j];
		}
		else					tel[k++] = '*';  // anexo tranf
		tel[k++] =' ';
		if		(!isdigit(buf[vdurac]))										tel[k++]='N';
		else if	(buf[vtranf]=='5' || buf[vtranf]=='6' || buf[vtranf]=='9')	tel[k++]='T';
		else if	(buf[vtranf]=='7' || buf[vtranf]=='8')						tel[k++]='C';
		else																tel[k++]='*';
	   	tel[k++] = '\r' ;
	   	tel[k++] = '\n' ;
		tel[k++] = '\0' ;
	}
}