#define americano 	0
#define	europeo		1
#define	lmax	200 		
#define posin	18
#define ladat	82+posin
#define estac	37+posin		// llamadas entrantes
#define linea	26+posin
#define durac	42+posin
#define hor     11+posin
#define fech	4 +posin
#define	tranf	0 +posin
#define numero	58+posin
#define ccost	0
#define proye   77+posin
#define cuenta  17+posin
#define pulsos	52+posin
#define ruta    23+posin
#define prinum	0
#define ring	54+posin
#define antran	0			// anexo transferido  (pendiente)
#define fofech	europeo 	// formato de fecha 
                                                
#define	lar_lin	    2
#define	lar_est		3
#define	lar_pry		4
#define	lar_num		17
#define	lar_hor		8
                                                
//#define phor     15

#define	num_tra	    600
#define	num_train	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';
    abr_tra();
*/
}

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

// 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;    
    char aux,vtip;
    aux = 0;
	if (i>(vnumero+2) && (buf[vtranf]=='S' || buf[vtranf]=='E'))
	{
	   k = 0 ;
	   if (buf[vtranf]=='S')
	   		vtip = 'O';
       else
	   		vtip = 'I';
	   if (!isdigit(buf[vestac+3]))
	   		tel[k++] = '*';
	   else
	   {		   
	   	  for (it=0; it<4&&(vestac+it)<i ;it++)
	   	     if isdigit(buf[vestac+it]) tel[k++] = buf[vestac+it];
	   }
	   tel[k++] = ' ' ;
   	   for (it=0;it<5 && (vlinea+it)<i;it++)
	   	   if isdigit(buf[vlinea+it]) tel[k++] = buf[vlinea+it];
	   tel[k++] = ' ' ;
	   tel[k++]=buf[vdurac+0] ;
	   tel[k++]=buf[vdurac+1] ;
	   tel[k++]=':' ;
	   tel[k++]=buf[vdurac+2] ;
	   tel[k++]=buf[vdurac+3] ;
	   tel[k++]=':' ;
	   tel[k++]=buf[vdurac+4] ;
	   tel[k++]=buf[vdurac+5] ;
	   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++] = ' ' ;
	   if (vfofech==europeo) 
	   {
	      tel[k++] = buf[vfech+2] ;
	      tel[k++] = buf[vfech+3] ;
	      tel[k++] = '/';
	      tel[k++] = buf[vfech+4] ;
	      tel[k++] = buf[vfech+5] ; 
	   }
	   else 
	   {
	      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++] = ' ' ;
	   tel[k++] = vtip ;
	   tel[k++] = ' ' ;
	   if (isdigit(buf[vnumero]))
	   {
	       for (it=0;isdigit(buf[vnumero+it]) && (vnumero+it)<i;it++)
		   		tel[k++] = buf[vnumero+it];
	   }
	   else
		   tel[k++] = '*' ; 
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; 
	   tel[k++] = ' ' ;
   	   if (vtip =='O' && buf[vproye]!=' ')
	   {
	       for (it=0;buf[vproye+it]!=' '&& (vproye+it)<i;it++)
		   		tel[k++] = buf[vproye+it];
	   }
   	   else
   	   		tel[k++] = '*' ; 
	   tel[k++] = ' ' ;
   	   if (isdigit(buf[vcuenta+6]))
	   {
	       for (it=0;it<9;it++)
		   {
		      if isdigit(buf[vcuenta+it])
		         tel[k++] = buf[vcuenta+it];
		   }      
	   }
   	   else
   	   		tel[k++] = '*' ; 
	   tel[k++] = ' ' ;
	   for (it=0 ; it<5 ; it++) tel[k++]='0' ;
	   tel[k++] = ' ' ;
	   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++] = '*' ;    // anexo transferido
	   tel[k++] = '\r' ;
	   tel[k++] = '\n' ;
	   tel[k++] = '\0' ;
	}

}