#define americano 	0
#define	europeo		1
#define	lmax	200 		
#define posin	18
#define ladat	132+posin
//#define estac	13
#define estac	14
#define linea	8 
#define durac	30
#define hor     24
#define fech	20
#define	tranf	30
#define numero	59
#define ccost	0
#define proye   106
#define cuenta  40
#define pulsos	94
#define ruta    5 
#define prinum	19
#define ring	0
#define antran	0			// anexo transferido
#define fofech	americano 	// formato de fecha

#define	incomin	4
#define anoa	6
                           

#define l_ruta		3
#define l_esta		7
#define l_proy		8
#define l_line		3
#define l_nume		24 
#define	l_cuenta	10
#define	l_pulsos	4

char  durll[6] ;

void cadur(int posk, int vfech, int vdurac, char *buf)
{
   char shora[3] ;
   int mesi,mesf,diai,diaf,hori,horf,mini,minf,segi,segf ;
   shora[0] = buf[vfech+posk-3] ; shora[1] = buf[vfech+posk-2] ; shora[2] = '\0' ;
   mesi = atoi(shora) ;
   shora[0] = buf[vfech+posk-1] ; shora[1] = buf[vfech+posk-0] ; shora[2] = '\0' ;
   diai = atoi(shora) ;
   shora[0] = buf[vfech+posk+1] ; shora[1] = buf[vfech+posk+2] ; shora[2] = '\0' ;
   hori = atoi(shora) ;
   shora[0] = buf[vfech+posk+3] ; shora[1] = buf[vfech+posk+4] ; shora[2] = '\0' ;
   mini = atoi(shora) ;
   shora[0] = buf[vfech+posk+5] ; shora[1] = buf[vfech+posk+6] ; shora[2] = '\0' ;
   segi = atoi(shora) ;
   shora[0] = buf[vdurac+posk-3] ; shora[1] = buf[vdurac+posk-2] ; shora[2] = '\0' ;
   mesf = atoi(shora) ;
   shora[0] = buf[vdurac+posk-1] ; shora[1] = buf[vdurac+posk-0] ; shora[2] = '\0' ;
   diaf = atoi(shora) ;
   shora[0] = buf[vdurac+posk+1] ; shora[1] = buf[vdurac+posk+2] ; shora[2] = '\0' ;
   horf = atoi(shora) ;
   shora[0] = buf[vdurac+posk+3] ; shora[1] = buf[vdurac+posk+4] ; shora[2] = '\0' ;
   minf = atoi(shora) ;
   shora[0] = buf[vdurac+posk+5] ; shora[1] = buf[vdurac+posk+6] ; shora[2] = '\0' ;
   segf = atoi(shora) ;
   if (segf<segi) {
	      segf += 60 ;
	      if (minf==0) {
		 minf += 60 ;
		 if (horf==0)  horf += 24 ;
		 horf-- ;
	      }
	      minf-- ;
   }
   segf -= segi ;
   if (minf<mini) {
	      minf += 60 ;
	      if (horf==0) horf += 24 ;
	      horf-- ;
   }
   minf -= mini ;
   if (horf<hori) horf += 24 ;
   horf -= hori ;
   itoa(horf,shora,10) ;
   if (shora[1]=='\0') { durll[0]='0' ; durll[1]=shora[0] ; }
   else		       { durll[0]=shora[0] ; durll[1]=shora[1] ; }
   itoa(minf,shora,10) ;
   if (shora[1]=='\0') { durll[2]='0' ; durll[3]=shora[0] ; }
   else		       { durll[2]=shora[0] ; durll[3]=shora[1] ; }
   itoa(segf,shora,10) ;
   if (shora[1]=='\0') { durll[4]='0' ; durll[5]=shora[0] ; }
   else		       { durll[4]=shora[0] ; durll[5]=shora[1] ; }
}


extern void gua_rut(char *buf);


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()
{
}
void rllam(char flag,int posk,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,it,posli,posru,arteris=vnumero-8 ;
    char aux,tip;
    aux = 0;
	k=0;
	   	if ((buf[vestac+posk-3]!=' ' || buf[vestac+posk-2]!=' ' || buf[vestac+posk-1]!=' ') && buf[vestac+posk+1]==' ') 
	   	{
	      	tel[k++] = buf[vestac+posk-3] ; 
	      	tel[k++] = buf[vestac+posk-2] ; 
	      	tel[k++] = buf[vestac+posk-1] ; 
	    	tel[k++] = buf[vestac+posk] ; 
	   	}
	   	else 
	   		tel[k++] = '*';
	   	tel[k++] = ' ' ; 
	   	if (isdigit(buf[vlinea+posk-3]))
	   	{
	   		posli = k;
	   		tel[k++] = buf[vlinea+posk-3] ; 
	   		tel[k++] = buf[vlinea+posk-2] ; 
	   		tel[k++] = buf[vlinea+posk-1] ;
	   	}
	   	else
	   	{
	   		tel[k++] ='*'; 
	   		tel[k++] ='*'; 
	   		tel[k++] ='*';
	   	}
	   	tel[k++] = ' ' ;
	   	cadur(posk, vfech, vdurac, buf) ;
	   	tel[k++] = durll[0] ; 
	   	tel[k++] = durll[1] ;
	   	tel[k++] = ':' ;
	   	tel[k++] = durll[2] ; 
	   	tel[k++] = durll[3] ;
	   	tel[k++] = ':' ;
	   	tel[k++] = durll[4] ; 
	   	tel[k++] = durll[5] ;
	   	tel[k++]= ' ' ;
	   	tel[k++] = buf[vhor+posk-3] ; 
	   	tel[k++] = buf[vhor+posk-2] ;
	   	tel[k++] = ':' ;
	   	tel[k++] = buf[vhor+posk-1] ; 
	   	tel[k++] = buf[vhor+posk] ;
	   	tel[k++] = ' ' ;
	   	tel[k++] = buf[vfech+posk-3] ; 
	   	tel[k++] = buf[vfech+posk-2] ;
	   	tel[k++] = '/' ;
	   	tel[k++] = buf[vfech+posk-1] ; 
	   	tel[k++] = buf[vfech+posk] ;
	   	tel[k++] = '/' ;
	   	tel[k++] = buf[anoa] ; 
	   	tel[k++] = buf[anoa+1] ;
	   	tel[k++] = ' ' ;    
	   	if (flag =='1')
	   	{
	   		tip      = 'O';
	   		tel[k++] = 'O' ;
		   	tel[k++] = ' ' ;
	   	}
		else if (flag =='2')
	   	{
	   		tip      = 'I';
	   		tel[k++] = 'I' ;
		   	tel[k++] = ' ' ;
	   	}
	   	else
	   	{
	   		if (buf[incomin+posk-3]=='A') 
	   		{    
	   			tip      = 'O';
	   			tel[k++] = 'O' ;
		   		tel[k++] = ' ' ;
	   		}
	   		else if (buf[incomin+posk-3]=='B') 
	   		{     
	   			tip      = 'T';
	   			tel[k++] = 'T' ;
		   		tel[k++] = ' ' ;
	   		}
	   		else			 
	   		{
	   			tip      = 'I';	
	   			tel[k++] = 'I' ;
	   			tel[k++] = ' ' ;
	   		}
	   	}
	   	if (flag =='0')
	   	{			
	   		if (buf[incomin+posk-3]=='A') 
	   		{
	      		for (it=vnumero+posk; it<(vnumero+posk+l_nume) && buf[it]!=' '; it++)  
	      			tel[k++] = buf[it] ;
	   		}
	   		else if(buf[vnumero+posk]==' ')
	   			tel[k++] = '3' ;
	   		else	
			{
 	      		for (it=vnumero+posk+2; it<(vnumero+posk+l_nume) && buf[it]!=' '; it++)  
      				tel[k++] = buf[it] ;

			}
		}
		else if (flag =='1')
		{
    		if (isdigit(buf[vnumero+posk]))
    		{
    			for (it=vnumero+posk; it<(vnumero+posk+l_nume) && buf[it]!=' '; it++)  
      				tel[k++] = buf[it] ;
      		}
      		else
      		{
      				tel[k++] = '*' ;
      		}		
      				
		}
		else	
	   	{
	    	if(buf[vnumero+posk+71]!=' ') 
	    	{
	    		for (it=vnumero+posk+71; it<(vnumero+posk+71+25) && buf[it]!=' '; it++)  
	      			tel[k++] = buf[it] ;
	   		}
	   		else   
   				tel[k++]='*';
	   	}
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   	tel[k++] = ' ' ;
	   	for (it=0;it<l_proy && buf[vproye+posk-3+it]==' ';it++); 
	   	if (it == l_proy) 
	   	{
			tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   	}
	   	else 
	   	{
	    	for (it=0 ; it<l_proy ; it++) 
	      		tel[k++] = buf[vproye+posk-3+it] ;
	   	}
	   	tel[k++] = ' ' ;
	   	for (it=0;it<l_cuenta && buf[vcuenta+posk-3+it]==' ';it++); 
	   	if (it == l_cuenta) 
	   	{
			tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   	}
	   	else 
	   	{
			for (it=0 ; it<l_cuenta ; it++) tel[k++] = buf[vcuenta+posk-3+it] ;
	   	}
	   	tel[k++] = ' ';
	   	for (it=0 ; it<l_pulsos ; it++) 
	   		tel[k++]= buf[vpulsos+posk-3+it] ;
	   	tel[k++] = ' ' ; 
	   	if isdigit(buf[vruta+posk-3])
	   	{
	   		posru    = k;
	   		tel[k++] = buf[vruta+posk-3] ; 
	   		tel[k++] = buf[vruta+posk-2] ; 
	   		tel[k++] = buf[vruta+posk-1] ;   /* ruta */
	   	}
	   	else
	   	{
	   		tel[k++] ='*'; 
	   		tel[k++] ='*'; 
	   		tel[k++] ='*';   /* ruta */
	   	}
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ;    /* primer numero */
	   	tel[k++] = ' ' ;
	   	tel[k++] = '0' ; 
	   	tel[k++] = '0' ; 
	   	tel[k++] = ':' ; 
	   	tel[k++] = '0' ; 
	   	tel[k++] = '0' ;   /* tiempo ring */
	   	tel[k++] = ' ' ;
	   	tel[k++] = '*' ; 
	   	tel[k++] = '*' ; 
	   	tel[k++] = '*' ;
	   	tel[k++] = '\r' ;
	   	tel[k++] = '\n' ;
	   	tel[k++] = '\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,posk,arteris=vnumero-8 ;
    char aux,flag;
    aux = 0;
    i=strlen(buf);
	for(posk=posin;buf[posk]!='K' && posk<i;posk++) ;
	if (i>vnumero && buf[posin]==0x2 &&  buf[posk]=='K' )
	{
		aux = buf[vestac+posk-3];
		aux = buf[vestac+posk-2];
		aux = buf[vestac+posk-1];
		aux = buf[vestac+posk+1];
		
	   	if ((buf[vestac+posk-3]!=' ' || buf[vestac+posk-2]!=' ' || buf[vestac+posk-1]!=' ') && buf[vestac+posk+2]==' ') 
		{
			flag = '0';	
			rllam(flag,posk,buf,tel,vestac,vlinea,vdurac,vhor,vfech,vtranf,vnumero,vccost,vproye,vcuenta,vpulsos,vruta,vprinum,vring,vantran,vfofech);	
	   	}
	   	else
	   	{ 
			flag = '1';	
			rllam(flag,posk,buf,tel,vestac,vlinea,vdurac,vhor,vfech,vtranf,vnumero,vccost,vproye,vcuenta,vpulsos,vruta,vprinum,vring,vantran,vfofech);	
			flag = '2';	
		    gua_rut(tel);
			rllam(flag,posk,buf,tel,vestac,vlinea+9,vdurac,vhor,vfech,vtranf,vnumero,vccost,vproye,vcuenta,vpulsos,vruta+9,vprinum,vring,vantran,vfofech);	
		}	

	}
}