#define americano 	0
#define	europeo		1
#define	lmax	300 		
#define posin	18
#define ladat	120+posin
#define estac	58+posin		// llamadas salientes
#define nanexo	51+posin		// llamadas entrantes
#define linea	105+posin
#define durac	12+posin
#define hor     7 +posin
#define fech	3 +posin
#define	tranf	23+posin
#define numero	32+posin
#define ccost	0
#define proye   92+posin
#define cuenta  68+posin
#define pulsos	17+posin
#define ruta    102+posin
#define prinum	0
#define ring	99+posin
#define antran	0			// anexo transferido  (pendiente)
#define fofech	americano 	// formato de fecha

#define larnum	25 


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)
{
    char segu[3],tilla ;
    int i=strlen(buf),it,k,ka,minu;
    char aux;
    aux = 0;
    if (i>(vlinea+2)) {
	   tilla = (buf[vtranf]==' ' || buf[vtranf]=='A' || buf[vtranf]=='D' || buf[vtranf]=='G' || buf[vtranf]=='I' || buf[vtranf]=='J' || buf[vtranf]=='L') ;
	   tilla = (tilla || buf[vtranf]=='N' || buf[vtranf]=='M' || buf[vtranf]=='T' || buf[vtranf]=='V' || buf[vtranf]=='X' || buf[vtranf]=='Y') ;
	   tilla = (tilla && isdigit(buf[vfech]) && isdigit(buf[vhor]) && isdigit(buf[vdurac]) && isdigit(buf[vring])) ;
	}
	else tilla = FALSE;   
	if (tilla)
	{
	   k = 0 ;  
	   if((buf[vtranf]=='N' && buf[vtranf+1]=='I') || buf[vtranf]=='I' || (buf[vtranf]=='T' && buf[vruta]==' ')) 
	   {  
	      if (buf[vtranf]=='I' || buf[vtranf]=='T')
	         for (it=0;it<6;it++) tel[k++] = buf[nanexo+it] ;            
	      else   
	         for (it=0;it<6 && (vruta+it)<i;it++) tel[k++] = buf[vruta+it] ;
	      tel[k++]=' ' ;
	      for (it=0;it<3;it++) tel[k++] = buf[vestac+it+3] ;
	   }   
	   else 
	   {  
	      for (it=0;it<8;it++) tel[k++] = buf[vestac+it] ;
	      tel[k++] = ' ' ;
	      for (it=0;it<3 && (vlinea+it)<i;it++) tel[k++] = buf[vlinea+it] ;
	   }   
	   tel[k++] = ' ' ;
	   tel[k++] = '0' ;
	   if (buf[vdurac+0]!=' ') tel[k++]=buf[vdurac+0] ;
	   else                   tel[k++]='0' ;
	   tel[k++] = ':' ;
	   if (buf[vdurac+1]!=' ') tel[k++]=buf[vdurac+1] ;
	   else                   tel[k++]='0' ;
	   if (buf[vdurac+2]!=' ') tel[k++]=buf[vdurac+2] ;
	   else                   tel[k++]='0' ;
	   tel[k++] = ':' ;
	   segu[0] = buf[vdurac+3] ; segu[1] = '\0' ;
	   minu = (atoi(segu))*6 ;
	   itoa(minu,segu,10) ;
	   if (minu<10) { segu[2]=segu[1] ; segu[1]=segu[0] ; segu[0]='0' ; }
	   tel[k++]=segu[0] ; tel[k++]=segu[1] ;
	   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+2] ; tel[k++] = buf[vhor+3] ;
	   tel[k++] = ' ' ;
	   if (vfofech==americano) {
	      tel[k++] = buf[vfech+0] ;
	      tel[k++] = buf[vfech+1] ;
	      tel[k++] = '/';
	      tel[k++] = buf[vfech+2] ;
	      tel[k++] = buf[vfech+3] ;
	   }
	   else {
	      tel[k++] = buf[vfech+2] ;
	      tel[k++] = buf[vfech+3] ;
	      tel[k++] = '/';
	      tel[k++] = buf[vfech+0] ;
	      tel[k++] = buf[vfech+1] ;
	   }
	   tel[k++] = '/';
	   tel[k++] = buf[6] ;
	   tel[k++] = buf[7] ;
	   tel[k++] = ' ' ;
	   if (buf[vtranf]==' ' || buf[vtranf]=='L' || buf[vtranf]=='M' || buf[vtranf]=='D' || buf[vtranf]=='V' || buf[vtranf]=='X' || buf[vtranf]=='Y') tel[k++]='O' ;
	   if (buf[vtranf]=='T' && buf[vruta]!=' ') tel[k++]='O' ;
	   if (buf[vtranf]=='I' || buf[vtranf]=='A' || buf[vtranf]=='N' || (buf[vtranf]=='T' && buf[vruta]==' ')) tel[k++]='I' ;
	   if (buf[vtranf]=='J') tel[k++]='T' ;
	   tel[k++] = ' ' ;
	   ka=k;
	   for (it=vnumero; it<(vnumero+larnum) && !isdigit(buf[it]) ;it++) ;
	   for (; it<=(vnumero+larnum) && isdigit(buf[it]) ; it++)  tel[k++] = buf[it] ;
	   if (k==ka) tel[k++] = '*' ;
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   tel[k++] = ' ' ;
	   ka=k;
	   for (it=0;it<6;it++) if(buf[vproye+it]!=' ') tel[k++]=buf[vproye+it];
	   if (k==ka) {
	      tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
	   }
	   tel[k++] = ' ' ;
	   ka=k;
	   for (it=0;it<15;it++) if(buf[vcuenta+it]!=' ') tel[k++]=buf[vcuenta+it];
	   if (k==ka) {
	      tel[k++] = '*' ;
	   }
	   tel[k++] = ' ' ;
	   if (buf[vpulsos+0]!=' ' || buf[vpulsos+1]!=' ' || buf[vpulsos+2]!=' ' || buf[vpulsos+3]!=' ') {
	      tel[k++] = buf[vpulsos+0] ; tel[k++] = buf[vpulsos+1] ; tel[k++] = buf[vpulsos+2] ; tel[k++] = buf[vpulsos+3] ;
	   }
	   else {
	      tel[k++] = '0' ; tel[k++] = '0' ; tel[k++] = '0' ; tel[k++] = '0' ;
	   }
	   tel[k++] = ' ' ;
	   if((buf[vtranf]=='N' && buf[vtranf+1]=='I') || buf[vtranf]=='I' || (buf[vtranf]=='T' && buf[vruta]==' ')) 
	      for (it=0;it<3;it++) tel[k++] = buf[vestac+it] ;
	   else 
          for (it=0;it<3 && (vruta+it)<i;it++) tel[k++] = buf[vruta+it] ;   /* ruta */
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;    /* primer numero */
	   tel[k++] = ' ' ;
	   if (buf[vring]!=' ' && buf[vring+1]!=' ') {
	      tel[k++] = buf[vring+0] ; tel[k++] = buf[vring+1] ; tel[k++] = ':' ; tel[k++] = '0' ; tel[k++] = '0' ;   /* tiempo ring */
	   }
	   else {
	      tel[k++] = '0'; tel[k++] = '0' ; tel[k++] = ':'; tel[k++] = '0' ; tel[k++] = '0';
	   }
	   tel[k++] = ' ' ;
	   if (buf[vtranf]=='J') {
	      for (it=0;it<8 && (vruta+it)<i;it++) tel[k++] = buf[vruta+it];
	   } 
	   else tel[k++] = '*' ;
	   tel[k++] = '\r' ;
	   tel[k++] = '\n' ;
	   tel[k++] = '\0' ;
	}

}