#define americano 	0
#define	europeo		1
#define	lmax	200 		// 200
#define posin	18
#define estac	21+posin
#define linea	18+posin
#define durac	39+posin //33+posin
#define hor      9+posin
#define fech	 0+posin
#define	tranf	69+posin //63+posin
#define numero	48+posin //42+posin  
#define ccost	0
#define proye   0
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	33+posin //27+posin
#define antran	0			// anexo transferido

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

char lgua[lmax+3];
char *cuf;
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,it, cont,j;                       
	i = strlen(buf) ;
	k =0; cont=0; 
	if (i>vtranf-1 && buf[vfech+2]=='.' && buf[vhor+2]==':'  && isdigit(buf[vtranf]))
	{            
		if(buf[vtranf]=='1' || buf[vtranf]=='2')
		{
			gua_buf(buf);
			cuf = lgua;
		}
		for(it=0;it<4;it++)
		{
			if isdigit(buf[vestac+it])	{tel[k++]= buf[vestac+it]; cont++;}
        }
        if(cont==0) tel[k++] ='*'; cont=0;
		tel[k++] =' ';
		for(it=0;it<3;it++)
		{
			if isdigit(buf[vlinea+it])	{tel[k++]= buf[vlinea+it]; cont++;}
        }
        if(cont==0) tel[k++] ='*'; cont=0;
		tel[k++] =' ';
        if (isdigit(buf[vdurac]))
        {
			for (it=0;it<8 && it<i;it++)
				tel[k++]= buf[vdurac+it];
        }
        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 (it=0;it<5 && it<i;it++)
			tel[k++]= buf[vhor+it];
        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++] = ' ';
		if (buf[vtranf]=='2' || buf[vtranf]=='6' || buf[vtranf]=='8' || buf[vtranf]=='9') tel[k++] = 'O';
		else																			  tel[k++] = 'I';
		tel[k++] = ' ';
		for (it=0;it<20;it++)
		{
			if isdigit(buf[vnumero+it])
			{
				tel[k++]=buf[vnumero+it];
				cont++;
			}
		}
		if(cont==0) tel[k++]='*';cont=0;
		tel[k++]=' '; 
		tel[k++]='*';  // centro de costo
		tel[k++]=' ';
		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++]='*';  // 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') // anexo tranf
		{
			for (j=0;j<4;j++)	tel[k++]=cuf[vestac+j];
		}
		else					tel[k++] = '*';  
		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' ;
	}
	else if(buf[vfech]!='F')
	{
		tel[k++]='R';tel[k++]='E';tel[k++]='C';tel[k++]='H';tel[k++]='A';tel[k++]='Z';tel[k++]='A';tel[k++]='D';tel[k++]='O';
	}
}