#define americano 0
#define	europeo	1
#define	lmax	200
#define posin	18
#define estac	0+posin
#define linea	5+posin
#define durac	28+posin
#define hor     21+posin
#define fech	12+posin
#define	tranf	0
#define numero	42+posin
#define ccost	0
#define proye   0
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	36+posin
#define antran	0			// anexo transferido
#define fofech	europeo

#define ladat  132+posin

int i;

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

void fi_central()
{
} 

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)
{
  		i=strlen(buf);
if (isdigit(buf[vlinea+2]) && buf[vfech+2]=='/' &&   isalnum(buf[vdurac+2]) &&  (vring<i)  )
{
	int j,cont,k,segu,minu,hora;
	int dura_val;
	char duracion[5];	

	j=0;cont=0;k=0;
	for (j=0;j<4;j++)
	{		if isdigit(buf[vestac+j]) { tel[k++]=buf[vestac+j];cont++;}}
	if (cont==0) { tel[k++]='*'; }
	cont=0;
	tel[k++]=' ';
	
	for (j=0;j<4;j++) 
		{  if isdigit(buf[linea+j]) { tel[k++]=buf[vlinea+j];cont++;}}
	if (cont==0) { tel[k++]='*';}
	cont=0;

	tel[k++]=' ';

		for(j=0;j<4;j++) {duracion[j]=buf[vdurac+j];}
		dura_val=(atoi(duracion));
		dura_val=dura_val*60;
			
		segu=(dura_val)%60;			//segundos
		minu=((dura_val)%3600)/60;	//minutos
		hora=(dura_val)/3600;		//hora
		tel[k++]=(hora/10)+'0';
		tel[k++]=(hora%10)+'0';
		tel[k++]=':';
		tel[k++]=(minu/10)+'0';
		tel[k++]=(minu%10)+'0';
		tel[k++]=':';
		if (buf[vdurac+4]=='1') { tel[k++]='0'; tel[k++]='6'; }
		else if (buf[vdurac+4]=='2') { tel[k++]='1'; tel[k++]='2'; }
		else if (buf[vdurac+4]=='3') { tel[k++]='1'; tel[k++]='8'; }
		else if (buf[vdurac+4]=='4') { tel[k++]='2'; tel[k++]='4'; }
		else if (buf[vdurac+4]=='5') { tel[k++]='3'; tel[k++]='0'; }
		else if (buf[vdurac+4]=='6') { tel[k++]='3'; tel[k++]='6'; }
		else if (buf[vdurac+4]=='7') { tel[k++]='4'; tel[k++]='2'; }
		else if (buf[vdurac+4]=='8') { tel[k++]='4'; tel[k++]='8'; }
		else if (buf[vdurac+4]=='9') { tel[k++]='5'; tel[k++]='4'; }
		else 	{tel[k++]='0';tel[k++]='0';  }
		tel[k++]=' ';
		tel[k++]=buf[vhor]; tel[k++]=buf[vhor+1];  tel[k++]=buf[vhor+2];  tel[k++]=buf[vhor+3];	tel[k++]=buf[vhor+4];			//hora
		tel[k++]=' ';
		for (j=0;j<8;j++)	tel[k++]=buf[vfech+j];
		tel[k++]=' ';
		if (isdigit(buf[vring]))  tel[k++]='I';
		else tel[k++]='O';
		tel[k++]=' ';
		if (isdigit(buf[vnumero]))
		{for(j=0;j<14 && isdigit(buf[vnumero+j]) && (buf[vnumero+j])<=i ;j++) {tel[k++]=buf[vnumero+j];cont++;}}// numero
		if (cont==0) tel[k++]='*';
		tel[k++]=' ';
		tel[k++]='*';
		tel[k++]='*';//* centro de costo
		tel[k++]='*';
		tel[k++]=' ';
		tel[k++]='*';
		tel[k++]=' ';// co pro
		tel[k++]='*';// co cuenta
		tel[k++]=' ';
		tel[k++]='0'; tel[k++]='0'; tel[k++]='0';tel[k++]='0';
		tel[k++]=' ';
		tel[k++]='*';tel[k++]='*';tel[k++]='*';//nodo
		tel[k++]=' ';
		tel[k++]='*';//1er número
		tel[k++]=' ';
		for(j=0;j<4;j++) {duracion[j]=buf[vring+j];}
		dura_val=(atoi(duracion));
		dura_val=dura_val*60;
			
		segu=(dura_val)%60;			//segundos
		minu=((dura_val)%3600)/60;	//minutos
		tel[k++]=(minu/10)+'0';
		tel[k++]=(minu%10)+'0';
		tel[k++]=':';
		if (buf[vring+2]=='1') { tel[k++]='0'; tel[k++]='6'; }
		else if (buf[vring+2]=='2') { tel[k++]='1'; tel[k++]='2'; }
		else if (buf[vring+2]=='3') { tel[k++]='1'; tel[k++]='8'; }
		else if (buf[vring+2]=='4') { tel[k++]='2'; tel[k++]='4'; }   /// tiempo de ring
		else if (buf[vring+2]=='5') { tel[k++]='3'; tel[k++]='0'; }
		else if (buf[vring+2]=='6') { tel[k++]='3'; tel[k++]='6'; }
		else if (buf[vring+2]=='7') { tel[k++]='4'; tel[k++]='2'; }
		else if (buf[vring+2]=='8') { tel[k++]='4'; tel[k++]='8'; }
		else if (buf[vring+2]=='9') { tel[k++]='5'; tel[k++]='4'; }
		else	{tel[k++]='0';tel[k++]='0';  }
		tel[k++]=' ';
		tel[k++]='*';// anexo transferido 
		tel[k++]=' ';
		if (buf[vdurac+2]=='A')
			tel[k++]='N';  //no contestada		
		else
		tel[k++]='*';// tipo de servivio
		tel[k++] = '\r' ;
		tel[k++] = '\n' ;
		tel[k++] = '\0' ;
	}
}