#define americano 	0
#define	europeo		1
#define	lmax	200 		
#define posin	18
#define ladat	82+posin
#define estac   23+posin
#define linea	55+posin
#define durac	7 +posin
#define hor     0 +posin
#define fech	0 +posin
#define	tranf	14+posin
#define numero	28+posin
#define ccost	0
#define proye   44+posin
#define cuenta  0
#define pulsos	0
#define ruta    59+posin
#define prinum	0
//#define ring	67+posin
#define ring	68+posin
#define antran	99+posin	// anexo transferido  (pendiente)
#define fofech	americano 	// formato de fecha 

#define larnum	18

#define larnui	12

extern void gua_rut(char *buf);

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


extern char rgua[];

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

// Procesos de Finalización (Cerrar Archivos especiales, etc)
void fi_central()
{
}
 
void RegLla(char FAR *tel, char *buf, char cTipo, int pLinea, char *sNumero/*int pNumero*/, char *sAnexo,/* char *sDurac*/int vdurac, int vhor,
       int vfech, int vproye, int vcuenta, int vruta, char *sRing,int vfofech,int vantran/*int vring*/)
{
   int i,k ;
   k = 0 ;
   for(i=0;i<4;) tel[k++] = sAnexo[i++] ;
   tel[k++] = ' ' ;
   for(i=0;i<3;i++) tel[k++] = buf[pLinea+i] ;
   tel[k++] = ' ' ; 
   if(buf[vdurac]==' ') tel[k++]='0' ;
   else tel[k++]=buf[vdurac] ;
   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++] = ' ' ; 
   if (buf[vhor]==' ') tel[k++] = '0' ;
   else tel[k++] = buf[vhor] ; 
   tel[k++] = buf[vhor+1] ;
   tel[k++] = ':' ;
   tel[k++] = buf[vhor+2] ; tel[k++] = buf[vhor+3] ;
   tel[k++] = ' ' ;
   if (vfofech==americano) 
   {
      tel[k++] = buf[0] ; tel[k++] = buf[1]; tel[k++] = '/';
      tel[k++] = buf[3] ; tel[k++] = buf[4]; tel[k++] = '/';
      tel[k++] = buf[6] ; tel[k++] = buf[7] ;
   }   
   else 
   {
      tel[k++] = buf[3] ; tel[k++] = buf[4]; tel[k++] = '/';
      tel[k++] = buf[0] ; tel[k++] = buf[1]; tel[k++] = '/';
      tel[k++] = buf[6] ; tel[k++] = buf[7] ;
   }
   tel[k++] = ' ' ;
   tel[k++] = cTipo ;
   tel[k++] = ' ' ;
   for(i=0;sNumero[i]!='\0';) tel[k++] = sNumero[i++] ;  // sr-100
   tel[k++] = ' ' ;
   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;  /* centro de costo */
   tel[k++] = ' ' ;
   if (buf[vproye+0]==' ' && buf[vproye+1]==' ' && buf[vproye+2]==' ' && buf[vproye+3]==' ') 
   {
      tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ; /* proyecto */
   }
   else 
   {
      for (i=0;i<7;i++) tel[k++]=buf[vproye+i] ;
   }
   tel[k++] = ' ' ;
   tel[k++] = '*' ;
   tel[k++] = ' ' ;
   for (i=0 ; i<5 ; i++) tel[k++]='0' ;       /* tarifa */
   tel[k++] = ' ' ;
   if (buf[vruta+0]==' ' && buf[vruta+1]==' ' && buf[vruta+2]==' ') {
      for(i=0;i<3;i++) tel[k++] = '*' ;  // ruta      sr-100
   }
   else {
      for(i=0;i<3;i++) tel[k++]=buf[vruta+i] ;
   }
   tel[k++] = ' ' ;
   tel[k++] = '*' ;    // primer numero 
   tel[k++] = ' ' ;
   for(i=0;i<5;) tel[k++] = sRing[i++] ;  //sr-100
   tel[k++] = ' ' ;     
   if (buf[vantran]!=' ' && buf[vantran+1]!=' ' && buf[vantran+2]!=' ' && buf[vantran+3]!=' ' && cTipo!='O')
   {
      tel[k++] = buf[vantran] ;
      tel[k++] = buf[vantran+1] ;
      tel[k++] = buf[vantran+2] ;
      tel[k++] = buf[vantran+3] ;
   }
   else
      tel[k++] = '*' ;    // anexo transf 
   tel[k++] = '\r' ;
   tel[k++] = '\n' ;
   tel[k++] = '\0' ;
}

char fTipo(int vtranf, char *buf)
{ 
   if (buf[vtranf]=='O' || buf[vtranf]=='A') return('O') ; 
   if (buf[vtranf]=='U' || buf[vtranf]=='I') return('I') ;  
   if (buf[vtranf]=='T') return('R') ;  // Tandem o Llamada Enrrutada 
   return('X') ;
}

void pNumero(char *sNumero, char cTipo, char *buf, int vnumero)
{
   int i,k=0;
   if (cTipo=='O' || cTipo=='o') 
   {
      i=vnumero ; while( i<(vnumero+larnum) && buf[i]==' ' ) i++ ;
      while( i<(vnumero+larnum) ) 
      {
	     if (isdigit(buf[i])) sNumero[k++] = buf[i++] ;
	     else i++ ;
      }
   }
   else if (cTipo=='I') 
   {
      i=vnumero+52 ; 
      while( i<((vnumero+52)+larnui) && buf[i]==' ' ) i++ ;
      while( i<((vnumero+52)+larnui) ) 
      {
	     if (isdigit(buf[i])) sNumero[k++] = buf[i++] ;
	     else i++ ;
      }
   }
   else sNumero[k++] = '*' ;
   sNumero[k] = '\0' ;
}

void pAnexo(char *sAnexo, char cTipo, char *buf, int vestac)
{
   int i ;
   if (cTipo=='O') for(i=0;i<5;i++) sAnexo[i] = buf[vestac+i] ;
   if (cTipo=='I') for(i=0;i<5;i++) sAnexo[i] = buf[vestac+16+i] ;
   if (sAnexo[0]==' ' && sAnexo[1]==' ' && sAnexo[2]==' ') 
      for(i=0;i<4;i++) sAnexo[i] = '*' ;
   sAnexo[5]='\0' ;
} 

void pRing(char *sRing, char cTipo, char *buf,int vring)
{
   if (cTipo=='I' && buf[vring+1]!=' ') 
   {
      sRing[0] = buf[vring+0] ; sRing[1] = buf[vring+1] ;
      sRing[2] = ':' ;
      sRing[3] = buf[vring+2] ; sRing[4] = buf[vring+3] ;
      sRing[5] = '\0' ;
   }
   else strcpy(sRing,"00:00") ;
}

// 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 cTipo,sAnexo[6],sRing[7],sNumero[20] ; //
    int i;
    i = strlen(buf);
	if (i>73 && isdigit(buf[vhor+5]) && isdigit(buf[vdurac+5])  && (cTipo=fTipo(vtranf,buf))!='X') 
	{
	   pAnexo(sAnexo,cTipo,buf,vestac) ; pRing(sRing,cTipo,buf,vring) ; pNumero(sNumero,cTipo,buf,vnumero) ;
	   if (cTipo=='O') RegLla(tel,buf,'O',vlinea,sNumero,sAnexo,vdurac,vhor,vfech,vproye,vcuenta,vruta,sRing,vfofech,vantran) ;
	   if (cTipo=='I') RegLla(tel,buf,'I',vlinea,sNumero,sAnexo,vdurac,vhor,vfech,vproye,vcuenta,vruta,sRing,vfofech,vantran) ;
	   if (cTipo=='R') 
	   {
	      pNumero(sNumero,'U',buf,vnumero) ;
          RegLla(tel,buf,'I',vlinea,sNumero,"****",vdurac,vhor,vfech,vproye,vcuenta,vruta,sRing,vfofech,antran) ;
	      pNumero(sNumero,'O',buf,vnumero) ;
	      RegLla(tel,buf,'O',vlinea,sNumero,"****",vdurac,vhor,vfech,vproye,vcuenta,vruta,sRing,vfofech,antran) ;
	   }
   }
}