#define americano 	0
#define	europeo		1
#define	lmax	200 		
#define posin	18
#define ladat	90+posin
#define estac	62+posin		// llamadas entrantes
#define linea	71+posin
#define durac	39+posin		//hora de termino
#define hor     25+posin		//hora inicio
#define fech	18+posin
#define	tranf	5 +posin
#define numero	125+posin
#define ccost	0
#define proye   149+posin
#define cuenta  164+posin
#define pulsos	0
#define ruta    109+posin
#define prinum	179+posin
#define ring	0
#define antran	125+posin	// anexo transferido  (pendiente)
#define fofech	europeo 	// formato de fecha 

int k, posi_dura, dura_cero;

extern void gua_rut(char *buf);

char  ruanex[(lmax+1)*2][7] ;	/* Rutas Consideradas como Anexos */


extern char rgua[];
// Procesos Inicialiales (Inicializar Variables, Abrir 
// Archivos especiales, etc)
void in_central()
{  
    rgua[0] = '\0';
}

// Procesos de Finalización (Cerrar Archivos especiales, etc)
void fi_central()
{
}

resta_horas(char *buf, char *tel, int pos_fin)
{
	int a, b, dur_val, hora, minu, segu;
	a=  (buf[pos_fin+0]-'0')*36000;		//hora final en segundos
	a=a+(buf[pos_fin+1]-'0')*3600;
	a=a+(buf[pos_fin+2]-'0')*600;
	a=a+(buf[pos_fin+3]-'0')*60;
	a=a+(buf[pos_fin+4]-'0')*10;
	a=a+(buf[pos_fin+5]-'0');
	b=  (buf[pos_fin-7+0]-'0')*36000; //hora inicial en segundos
	b=b+(buf[pos_fin-7+1]-'0')*3600;
	b=b+(buf[pos_fin-7+2]-'0')*600;
	b=b+(buf[pos_fin-7+3]-'0')*60;
	b=b+(buf[pos_fin-7+4]-'0')*10;
	b=b+(buf[pos_fin-7+5]-'0');

	if (a<b) { dur_val=a+(86400-b); } //cambio de día
	else	 { dur_val=a-b;}		  //resta
	
	if(dur_val==0) {dura_cero=1;}
	segu=(dur_val)%60;				//segundos
	minu=((dur_val)%3600)/60;		//minutos
	hora=(dur_val)/3600;			//hora
	if (pos_fin==posi_dura)
	{
		tel[k++]=(hora/10)+'0';
		tel[k++]=(hora%10)+'0';
		tel[k++]=':';
	}
	tel[k++]=(minu/10)+'0';
	tel[k++]=(minu%10)+'0';
	tel[k++]=':';
	tel[k++]=(segu/10)+'0';
	tel[k++]=(segu%10)+'0';
}
// Driver Propiamente tal. Las posiciones de los campos se 
// ingresan como parámetros, lo que permite modificar desde 
// Aplicación de Tarificación la posición de estos en el 
// Registro de Llamados.

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=strlen(buf),j,cont, lar_num, lar_ani, lar_anexo, tandem, line_only, incoming, before_hold, no_contesta;   
	char aux,tipo;
	aux = 0; cont=0; lar_num=0; lar_ani=0; lar_anexo=4; tandem=0; line_only=0; incoming=0; before_hold=0; tipo=k;
	dura_cero=0; no_contesta=0;
	incoming	=(buf[vtranf+0]=='0' && buf[vtranf+1]=='0' && buf[vtranf+2]=='1'); //type=001
	line_only	=(buf[vtranf+0]=='0' && buf[vtranf+1]=='1' && buf[vtranf+2]=='0'); //type=010
	before_hold	=(buf[vtranf+4]=='2' && buf[vtranf+5]=='7');						//status=27
	for(j=0;j<6 && buf[vhor+7+j]=='0';j++)											//para cuando hora de constestar es 000000
	no_contesta =(j==5);

	if (i>vprinum && !line_only && !no_contesta && buf[vfech-1]==' ' && isdigit(buf[vfech]) && buf[vhor-1]==' ' && buf[vestac-1]==' ' && isdigit(buf[vhor+1])  &&  isdigit(buf[vdurac]) && buf[vtranf-1]==' ' && buf[estac-1]==' '  && (isdigit(buf[vestac]) || buf[vestac]=='-')  &&  buf[vprinum-1]==' ' && isdigit(buf[vprinum]) && isdigit(buf[vprinum+1]) && (isdigit(buf[vruta]) || buf[vruta]=='-') && (buf[vlinea]=='-' || isdigit(buf[vlinea])) && (isdigit(buf[vnumero]) || buf[vnumero]=='-') && buf[vnumero-1]==' ' && buf[vdurac-1]==' '  &&  isdigit(buf[vdurac])  && isdigit(buf[hor+5]) && isdigit(buf[vdurac+5]) && buf[vestac+4]==' ' && buf[vproye-1]==' '  && isdigit(buf[vfech+2]) && isdigit(buf[vfech+5]) )
	{
		if (buf[vestac]=='-' &&  buf[vruta-5]=='-'  && buf[vruta]=='-')
		goto henry;
		k = 0 ; posi_dura=vdurac;
		if (buf[vtranf+1]=='0' && buf[vtranf+2]=='4' && tandem==0) tandem=1; //troncal-troncal
		for(j=0;j<17 && isdigit(buf[vnumero+j]);j++) lar_num=j+1;
		for(j=0;j<14 && isdigit(buf[vproye +j]);j++) lar_ani=j+1;

//anexo
		if (buf[vestac-5]=='-' && buf[vestac]=='-' && buf[vruta-5]=='-' && buf[vnumero]=='-')	goto henry;//tel[k++]='*';
		else if (tandem==1)
		{
			tel[k++]='R'; tel[k++]=buf[vlinea-4]; tel[k++]=buf[vlinea-3]; tel[k++]=buf[vlinea-2];
		}
		else if	isdigit(buf[vestac])
		{
			for(j=0;j<lar_anexo;j++) tel[k++]=buf[vestac+j];
		}
		else if isdigit(buf[vruta-5])
		{
			for(j=0;j<lar_anexo;j++) tel[k++]=buf[vruta-5+j];
		}
		else goto henry;  //tel[k++]='*';
		tel[k++] = ' ' ;
//línea
	    if(tandem==1)
		{
			for(j=0;j<6;j++) tel[k++]=buf[vnumero-12+j];
		}
		else if(buf[vestac]=='-' && lar_num==lar_anexo)
		{
			for(j=0;j<6;j++) tel[k++]=buf[vlinea+j];
		}
	    else if isdigit(buf[vnumero-12])
		{
			for(j=0;j<6;j++) tel[k++]=buf[vnumero-12+j];
		}
		else if isdigit(buf[vlinea])
		{
			for(j=0;j<6;j++) tel[k++]=buf[vlinea+j];
		}
		else tel[k++]='*';
		tel[k++] = ' ' ;
		resta_horas(buf, tel, vdurac);
		if (dura_cero==1) return;
		tel[k++] = ' ' ;
		tel[k++]=buf[vhor+0];tel[k++]=buf[vhor+1];tel[k++]=':';
		tel[k++]=buf[vhor+2];tel[k++]=buf[vhor+3];
		tel[k++] = ' ' ;
		tel[k++]=buf[vfech+2] ;tel[k++]=buf[vfech+3]; tel[k++]='/';
		tel[k++]=buf[vfech+4] ;tel[k++]=buf[vfech+5]; tel[k++]='/';
		tel[k++]=buf[vfech+0] ;tel[k++]=buf[vfech+1];
		tel[k++] = ' ' ;
		if	(tandem==1)										tel[k++]='O';
		else if (buf[vestac+6]=='-' && buf[vruta]=='-')     tel[k++]='T';
		else if	(lar_num==lar_anexo && lar_ani==lar_anexo)	{tel[k++]='T'; tipo='T';}
		else if	(lar_num==lar_anexo && lar_ani==0		 )	 tel[k++]='T';
		else if	(incoming==1 && before_hold==0  && (buf[vnumero]!='0' && buf[vnumero+1]!='0' && buf[vnumero+2]!='0'))			tel[k++]='I';
//		else if	(tandem==2)									tel[k++]='O';
		else if	(lar_num==0			&& lar_ani==0)			tel[k++]='T';  
		else if	(buf[vestac]!='-'	&& lar_num==lar_anexo)	tel[k++]='T';  //tipo=='T'
		else if	(buf[vestac]=='-'	&& lar_num==lar_anexo && (buf[vnumero]!='0' && buf[vnumero+1]!='0' && buf[vnumero+2]!='0')) tel[k++]='I';
		else if	(buf[vestac]=='-'  && (buf[vproye]=='0' && buf[vproye+1]=='0' && buf[vproye+2]=='0'))			tel[k++]='I';
	//	else if (buf[vestac]=='-'   && lar_num==lar_anexo && (buf[vnumero]=='0' && buf[vnumero+1]=='0' && buf[vnumero+2]=='0')) tel[k++]='O';
		else if (buf[vestac]=='-'  && buf[vruta-5]!='-')    tel[k++]='I';
		else												tel[k++]='O';

		tel[k++] = ' ' ;
//numero
/*		if(lar_num>lar_anexo+1)// && tandem!=1)
		{
			for(j=0;j<lar_num;j++)	tel[k++]=buf[vnumero+j];
		}
		else if (lar_ani>lar_anexo+1)
		{
			for(j=0;j<lar_ani;j++)	tel[k++]=buf[vproye+j];
		}
		else if((isdigit(buf[vestac]) || isdigit(buf[vestac-5])) && lar_num==lar_anexo)
		{
			for(j=0;j<lar_anexo;j++)	tel[k++]=buf[vnumero+j];
		}
		else if(lar_num==lar_anexo && lar_ani==lar_anexo)
		{
			for(j=0;j<lar_anexo;j++)	tel[k++]=buf[vproye+j];
		}
		else if(lar_num==0 && lar_ani==0 && isdigit(buf[vnumero-21]))
		{
			for(j=0;j<lar_anexo;j++) tel[k++]=buf[vnumero-21+j];
		}*/
		if (isdigit(buf[vproye+4]) && buf[vproye-4]!='A')
		{
			for(j=0; j<lar_ani; j++) tel[k++]=buf[vproye+j];
		}
		else if (isdigit(buf[vnumero] ) && tipo!='T')
		{
			for(j=0; j<lar_num; j++) tel[k++]=buf[vnumero+j];
		}
		else if isdigit(buf[vestac-5])
		{
			for(j=0; j<lar_anexo; j++) tel[k++]=buf[vestac-5+j];
		}
		else tel[k++]='*';
		tel[k++] = ' ' ;
		tel[k++] = '*';tel[k++] = '*';tel[k++] = '*';
		tel[k++] = ' ' ;  
		//if (buf[vlinea+23]=='#') /* proyecto */   armada 
		if (buf[vproye-4]=='A') /* proyecto */
		{
			for(j=0;buf[vproye+j]!='-';j++) tel[k++]=buf[vproye+j];
		}
		else tel[k++]='*'; 
		tel[k++] = ' ' ;
		if isdigit(buf[vcuenta]) tel[k++]=buf[vcuenta];	// Código de Cuenta
		else					 tel[k++]='*';    
		tel[k++] = ' ' ;
		for (j=0 ; j<5 ; j++) tel[k++]='0';
		tel[k++] = ' ' ;
		if (isdigit(buf[vlinea-4]) && !tandem==1) //&& tandem!=2)
		{
			tel[k++]=buf[vlinea-4]; tel[k++]=buf[vlinea-3]; tel[k++]=buf[vlinea-2];
		}
		else if isdigit(buf[vruta])
		{
			tel[k++]=buf[vruta]; tel[k++]=buf[vruta+1]; tel[k++]=buf[vruta+2];
		}
		else
		{
			tel[k++] = '*';tel[k++] = '*';tel[k++] = '*'; 
		}
		tel[k++] = ' ' ;
		tel[k++] = buf[prinum]; tel[k++] = buf[prinum+1];   /* central */
		tel[k++] = ' ' ;
		resta_horas(buf, tel, vhor+7);
		tel[k++] = ' ' ;
		if (buf[vtranf+4]=='2' && buf[vtranf+5]=='7' && isdigit(buf[vnumero-21]))
		{
			tel[k++]=buf[vnumero]; tel[k++]=buf[vnumero+1]; tel[k++]=buf[vnumero+2];tel[k++]=buf[vnumero+3];
		}
		else tel[k++] = '*' ;    // anexo t
		tel[k++] = ' ' ;

		if		(buf[vtranf+1]=='0' && buf[vtranf+2]=='4' ) tel[k++]='R'; //tandem
		else if (no_contesta)								tel[k++]='N'; //no contestada
		else if (buf[vtranf+4]=='2' && buf[vtranf+5]=='7')  tel[k++]='T'; //transferencia
		else												tel[k++]='*';  
		tel[k++] = '\r' ;
		tel[k++] = '\n' ;
		tel[k++] = '\0' ;
			henry: k=0;
/*		if (tandem==1)
		{			
			gua_rut(tel);
			for (j=0;j<lmax;j++) tel[j]=' ' ; tel[j] = '\0';
			tandem++; goto pablo;
		}*/
		
	}

}