#define americano 	0
#define	europeo		1
#define	lmax	200 		
#define posin	18
#define ladat	82+posin
#define estac	43+posin		// llamadas entrantes
#define linea	29+posin
#define durac	33+posin
#define hor     19+posin
#define fech	9+posin
#define	tranf	4+posin
#define numero	48+posin
#define ccost	0
#define proye   70+posin
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	62+posin
#define antran	0			// anexo transferido  (pendiente)
#define fofech	americano 	// formato de fecha 
 
#define	num_tra	600
                                                
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()
{
}



// 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),it,k,ka;
    k = 0 ;      
	if (i>(vring+3) && buf[vhor+2]==':' && buf[vdurac+2]==':'&& buf[vdurac+5]==':' && 
	(buf[vtranf]=='O'|| buf[vtranf]=='I' || buf[vtranf]=='T'|| buf[vtranf]=='V'))
	{
	   k=0 ;
	   ka=k ;
	   for (it=0;it<4;it++)
	   {
			if (buf[vestac+it] != ' '&& buf[vestac+it] != '.')
	      		tel[k++] = buf[vestac+it] ;
	   		
	   }
	   if (k==ka) 
	   		tel[k++]= '*' ;
	   tel[k++] = ' ' ; 
	   for (it=0;it<i && buf[vlinea+it]!=' ' ;it++)
	   {
	   		if (buf[vlinea+it]!=' ' && buf[vlinea+it]!='-' && isdigit(buf[vlinea+it]))	
	   		{
	   			tel[k++] = buf[vlinea+it];
	   		}	
	   	}
	   tel[k++] = ' ' ;
	   ka=k ;
	   tel[k++] = buf[vdurac] ; tel[k++] = buf[vdurac+1] ;
	   if (tel[ka]==' ') 
	   		tel[ka]='0' ;
	   if (tel[ka+1]==' ') tel[ka+1]='0' ;
	   tel[k++] = ':' ;
	   ka=k ;
	   tel[k++]= buf[vdurac+3] ; tel[k++]= buf[vdurac+4] ;
	   if (tel[ka]==' ') 
	   		tel[ka]='0' ;
	   if (tel[ka+1]==' ') 
	   		tel[ka+1]='0' ;
	   tel[k++]= ':' ;
	   ka=k ;
	   tel[k++]= buf[vdurac+6] ; tel[k++]= buf[vdurac+7] ;
	   if (tel[ka]==' ') 
	   		tel[ka]='0' ;
	   if (tel[ka+1]==' ') 
	   		tel[ka+1]='0' ;
	   tel[k++]= ' ' ;
	   ka=k ;
	   tel[k++] = buf[vhor] ; tel[k++] = buf[vhor+1] ;
	   if (tel[ka]==' ') 
	   		tel[ka]='0' ;
	   tel[k++] = ':' ;
	   tel[k++] = buf[vhor+3] ; tel[k++] = buf[vhor+4] ;
	   tel[k++] = ' ' ;
	   if (vfofech==europeo) 
	   {
	      tel[k++] = buf[vfech+3] ;
	      tel[k++] = buf[vfech+4] ;
	      tel[k++] = '/';
	      tel[k++] = buf[vfech] ;
	      tel[k++] = buf[vfech+1] ; 
	   }
	   else 
	   {
	      tel[k++] = buf[vfech] ;
	      tel[k++] = buf[vfech+1] ;
	      tel[k++] = '/';
	      tel[k++] = buf[vfech+3] ;
	      tel[k++] = buf[vfech+4] ; 
	   }
	   tel[k++] = '/';
	   tel[k++] = buf[vfech+6] ;
	   tel[k++] = buf[vfech+7] ;
	   tel[k++] = ' ' ;
	   if (buf[vtranf]=='T') 
	   {
	      if (buf[vring+2]==':') 
	      		tel[k++]='T' ;//tel[k++]='I' ;
	      else 
	      		tel[k++]='O' ;
	   }
	   else if (buf[vtranf]=='V')
	   		tel[k++] = buf[vtranf+1];
	   else 
	   		tel[k++] = buf[vtranf] ;
	   tel[k++] = ' ' ;
	   for (it=vnumero ; it<(vnumero+15) && buf[it]!=' ' ;it++) tel[k++] = buf[it] ;
	   if (it==vnumero) 
	   		tel[k++] = '*' ;
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;     //centro de costo
	   tel[k++] = ' ' ;
	   if (buf[vproye]==' ' && buf[vproye+1]==' ' && buf[vproye+2]==' ' && buf[vproye+3]==' ') 
	   {
	      tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   }
	   else 
	   {
	 	 for (it=0; buf[vproye+it]!=' ' && it<7 ; it++)
	 	 {
	 	 	if (isdigit(buf[vproye+it]))
		 		tel[k++] = buf[vproye+it] ;
		 }		
	   }
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;      //codigo cuenta 
	   tel[k++] = ' ' ;
	   for (it=0 ; it<4 ; it++) tel[k++]= '0' ;     //pulsos
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;   /* ruta */
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;    /* primer numero */
	   tel[k++] = ' ' ;
	   if (buf[vring]==' ' && buf[vring+1]==' ' && buf[vring+2]!=':' && buf[vring+3]==' ' && buf[vring+4]==' ') {
	      tel[k++] = '0' ; tel[k++] = '0' ; tel[k++] = ':' ; tel[k++] = '0' ; tel[k++] = '0' ;   /* tiempo ring */
	   }
	   else 
	   {
	      ka=k ;
	      tel[k++]=buf[vring+0] ; tel[k++]=buf[vring+1] ; tel[k++]=':' ; tel[k++]=buf[vring+3] ; tel[k++]=buf[vring+4] ;
	      if (tel[ka]==' ') 
	      	tel[ka]='0' ;
	   }
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;    // anexo transferido
	   tel[k++] = '\r' ;
	   tel[k++] = '\n' ;
	   tel[k++] = '\0' ;
	}

}