#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define estac	0
#define linea	0
#define durac	20+posin
#define hor     11+posin
#define fech	0+posin
#define	tranf	0
#define numero	0
#define ccost	0
#define proye   0
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	0
#define antran	0			// anexo transferido
#define fofech	americano


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)
{
    int k,j,concoma,cont,i=strlen(buf);
    k=0; concoma=0;cont=0;

	if ((i>vhor+8)  && buf[vhor+2]==':' )
	{
	    for(j=0;j<i;j++)
		{
			if (buf[j]==',')
			{	concoma++;
			if (concoma==1)			vdurac=j+1;
			else if (concoma==2)    vring=j+1;
			else if (concoma==11)   vestac=j+1;
			else if (concoma==4)    vtranf=j+1;
			else if (concoma==5)    vnumero=j+1;
			else if (concoma==13)   vlinea=j+1;
			else if (concoma==8)    vprinum=j+1;
			else if (concoma==7)    vcuenta=j+1;
			else if (concoma==3)    vccost=j+1;
            else if (concoma==6)    vproye=j+1; 
			}
		}
		
		if (buf[vestac]=='T' || buf[vestac]=='E')  
		{	for(j=0;j<5 && isdigit(buf[vccost+j]);j++)  { tel[k++]=buf[vccost+j];}}
		else 
		for(j=0;j<5 && buf[vestac+j]!=',' ;j++)  {if (isdigit(buf[vestac+j])) {tel[k++]=buf[vestac+j];}}
			tel[k++]=' '; 
		if ( buf[vlinea]=='T' )
			{for(j=0;j<6 && buf[vlinea+j]!=',' ;j++)  {{tel[k++]=buf[vlinea+j];}}}
		else tel[k++]='*';
		    tel[k++]=' ';
		for(j=0;j<8;j++)   { tel[k++]=buf[vdurac+j]; } // duracion
			tel[k++]=' ';
		for(j=0;j<5;j++)   { tel[k++]=buf[vhor+j]; }  // hora
			tel[k++]=' ';
		tel[k++]=buf[vfech+5];tel[k++]=buf[vfech+6];   
		tel[k++]='/';  
		tel[k++]=buf[vfech+8];tel[k++]=buf[vfech+9];       	// fecha
		tel[k++]='/';
		tel[k++]=buf[vfech+2];tel[k++]=buf[vfech+3];
		tel[k++]=' ';
        if ( buf[vtranf]=='O' && buf[vprinum]=='0' )
			tel[k++]='O';
		else if ( buf[vtranf]=='I' && buf[vprinum]=='0' ) // tipo de llamado
			tel[k++]='I';
		else if ( buf[vprinum]=='1' )
			tel[k++]='T';
		tel[k++]=' ';
		if ( buf[vtranf]=='O'  && (buf[vprinum]=='1'|| buf[vprinum]=='0')&& buf[vnumero]!=',' )
		{
			for (j=0; j<24 && isdigit(buf[vnumero+j]) &&  buf[vnumero+j]!=','; j++) {tel[k++]=buf[vnumero+j];cont++;}// número llamado
			if (cont==0) tel[k++]='*';
			cont=0;
		}
	        else if ( buf[vtranf]=='I' && buf[vprinum]=='0' && buf[vnumero]!=',')
			{
				for (j=0; j<24 && isdigit(buf[vnumero+j]) &&  buf[vnumero+j]!=','; j++) {tel[k++]=buf[vnumero+j];cont++;}// número llamado
				if (cont==0) tel[k++]='*';
				cont=0;
			}

		//	else if ( buf[vtranf]=='I' && buf[vprinum]=='0' && buf[vccost+j]!=',')
		//	{
		//		for (j=0; j<24 && isdigit(buf[vccost+j]) &&  buf[vccost+j]!=','; j++) {tel[k++]=buf[vccost+j];cont++;}// número llamado
		//		if (cont==0) tel[k++]='*';
		//		cont=0;
		//	}
		else tel[k++]='*';
		tel[k++]=' ';
		tel[k++]='*';tel[k++]='*';tel[k++]='*';tel[k++]='*';// centro de costo
		tel[k++]=' ';
		if ( buf[vtranf]=='O' && buf[vprinum]=='0' && isdigit(buf[vproye]) && isdigit(buf[vproye+1]) && isdigit(buf[vproye+2]) && isdigit(buf[vproye+3]) && isdigit(buf[vproye+4]) && isdigit(buf[vproye+5]) && !((buf[vproye==buf[vnumero]]) && (buf[vproye+1]==buf[vnumero+1]) && (buf[vproye+2]==buf[vnumero+2]) && (buf[vproye+3]==buf[vnumero+3]) && (buf[vproye+4]==buf[vnumero+4]) && buf[vproye+5]==buf[vnumero+5] )) 
		{  for (j=0;j<6 && isdigit(buf[vproye+j]);j++)	{  tel[k++]=buf[vproye+j];} 	}
		else    tel[k++]='*';// codigo de proyecto
		tel[k++]=' ';
		if ( isdigit(buf[vcuenta])) 
		{  for (j=0;j<6 && isdigit(buf[vcuenta+j]);j++)	{  tel[k++]=buf[vcuenta+j];} 	}
		else 	tel[k++]='*';// codigo de cuenta
		tel[k++]=' ';
		tel[k++]='0';tel[k++]='0';tel[k++]='0';tel[k++]='0';// pulsos
		tel[k++]=' ';
		tel[k++]='*';tel[k++]='*';tel[k++]='*';// ruta
		tel[k++]=' ';
		tel[k++]='*';// 1 num
		tel[k++]=' ';
		for (j=0;j<5 && buf[vring+j]!=',';j++)  cont++;
		if (cont==1)        {  tel[k++]='0';tel[k++]='0';tel[k++]=':';tel[k++]='0';tel[k++]=buf[vring];}
		else if (cont==2)   {  tel[k++]='0';tel[k++]='0';tel[k++]=':';tel[k++]=buf[vring];tel[k++]=buf[vring+1];}
		else if (cont==3)   {  tel[k++]='0';tel[k++]='0';tel[k++]=':';tel[k++]=buf[vring+1];tel[k++]=buf[vring+2];}
		else if (cont==4)   {  tel[k++]='0';tel[k++]='0';tel[k++]=':';tel[k++]=buf[vring+2];tel[k++]=buf[vring+3];}
		else	   			{  tel[k++]='0';tel[k++]='0';tel[k++]=':';tel[k++]='0';tel[k++]='0';}
		tel[k++]=' ';
		tel[k++]='*';// axo tranf
		tel[k++]=' ';
		if (buf[vdurac]=='0' && buf[vdurac+1]=='0' && buf[vdurac+3]=='0' && buf[vdurac+4]=='0' && buf[vdurac+6]=='0' && buf[vdurac+7]=='0' && buf[vtranf]=='I' )
			tel[k++]='N';
			else {tel[k++]='*';}// servicio
	   	tel[k++] = '\r' ;
	   	tel[k++] = '\n' ;
	   	tel[k++] = '\0' ;
	}
}