#define americano 	0
#define	europeo		1
#define	lmax	200 		
#define posin	18
#define ladat	82+posin
#define estac	47+posin		// llamadas entrantes
#define linea	18+posin
#define durac	6+posin     
#define hor     0+posin     
#define fech	37+posin     
#define	tranf	14+posin     
#define numero	26+posin     
#define ccost	 6+posin
#define proye   64+posin
#define cuenta  0
#define pulsos	0    
#define ruta    0
#define prinum	0
#define ring	0
#define antran	0			//61+posin // anexo transferido  (pendiente)
#define fofech	europeo 	// formato de fecha 

extern void gua_rut(char *buf);

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

extern char rgua[];
void CalSeg(char cMin, char *cSeg)
{
  int iSeg ;         
  iSeg = ((int)cMin-0x30)*6 ;
  itoa(iSeg,cSeg,10) ;
  if (iSeg<10) {
     cSeg[0] = '0' ; cSeg[1] = cSeg[0] ; cSeg[2] = '\0' ;
  }
}
// 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()
{
}
// 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),j,cont,k,entr;
	char cSeg[3] ;
	char aux;
	aux = 0;cont=0;entr=0;
	
	if (i>(vestac) && isdigit(buf[vlinea+2]) && isdigit(buf[vestac+3]) && buf[vtranf] != 'J' )//&& buf[vtranf] != 'Z')
	{
		k = 0 ;
		/*if (buf[vtranf] == 'J') 
		{ 
			tel[k++]='R';tel[k++]='E';tel[k++]='C';tel[k++]='H';tel[k++]='A';
		    tel[k++]='Z';tel[k++]='A';tel[k++]='D';tel[k++]='A';
	  		//tel[k++] = '\r' ;
			//tel[k++] = '\n' ;
			tel[k++] = '\0' ;
		return; }
		
		if (buf[vtranf] == 'Z') 
		{tel[k++] = '\0'; return;}
		*/
		for(j=0;j<4 && j<i;j++)	{if isdigit(buf[vestac+j]) {cont++;entr++;}}
		if(cont==0 || buf[vestac-4]=='*')
		{
			tel[k++] = '*';cont=0;
		}
		else if(cont==4)
		{
			for(j=0;j<4 && j<i;j++)	{tel[k++]=buf[vestac+j];}
		}
		else if(cont < 4)
		{
			for(j=0;j<4 && j<i;j++)	{tel[k++]=buf[vestac-5+j];}
		}
		tel[k++] = ' ';
		for(j=0;j<4 && j<i;j++) {if isdigit(buf[vlinea+j]) {tel[k++]=buf[vlinea+j]; cont++;}}
		if(cont==0)tel[k++] = '*';cont=0;
		tel[k++] = ' ';
		if (buf[vtranf] != 'Z')
		{
		tel[k++]='0' ; tel[k++]=buf[vdurac] ;tel[k++] = ':' ;
		tel[k++]=buf[vdurac+2] ;tel[k++]=buf[vdurac+3] ;tel[k++] = ':' ;
		CalSeg(buf[vdurac+5],cSeg) ;
		tel[k++] = cSeg[0] ; tel[k++] = cSeg[1] ;
		}
		else if (buf[vtranf] == 'Z')
		{tel[k++]='0' ;tel[k++]='0' ;tel[k++]=':' ;
		tel[k++]='0' ;tel[k++]='0' ;tel[k++]=':' ;
		tel[k++]='0' ;tel[k++]='0' ;}

		tel[k++] = ' ' ;
		tel[k++] = buf[vhor] ; tel[k++] = buf[vhor+1] ;
		tel[k++] = ':' ;
		tel[k++] = buf[vhor+3] ; tel[k++] = buf[vhor+4] ;
		tel[k++] = ' ' ;
		if (vfofech == europeo) 
		{
			tel[k++] = buf[0] ;	tel[k++] = buf[1] ;
			tel[k++] = '/';
			tel[k++] = buf[3] ;	tel[k++] = buf[4] ; 
		}   
		else 
		{
			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] ;
	    tel[k++] = ' ' ;
		if (entr==4 && buf[vtranf] != 'J') 
		{tel[k++]='O';}
		else if (entr<4 && buf[vtranf] != 'J') 
		{tel[k++]='I';}
		tel[k++] = ' ';
		if (entr==4 && buf[vtranf] != 'J')  
		{
				for(j=0;j<21 && j<i;j++)
				{
					if isdigit(buf[vnumero+j]) {tel[k++]=buf[vnumero+j]; cont++;}
				}
		}

		if(cont==0)tel[k++] = '*';cont=0;
		tel[k++] = ' ';
		tel[k++] = '*';tel[k++] = '*';tel[k++] = '*';tel[k++] = ' ';
		for(j=0;j<4;j++)
		{
			if isdigit(buf[vproye-1+j]) {tel[k++]=buf[vproye-1+j]; cont++;}
		}
		if(cont==0)tel[k++] = '*';cont=0;
		tel[k++] = ' ';tel[k++] = '*';tel[k++] = ' ';
		tel[k++] ='0';tel[k++] ='0';tel[k++] ='0';tel[k++] ='0';
		tel[k++] =' ';
		if(buf[vestac-4]=='*')
		{
			tel[k++]=buf[vestac-3]; tel[k++]=buf[vestac-2];
		}
		else if(buf[vestac+1]=='*')
		{
			tel[k++]=buf[vestac+2]; tel[k++]=buf[vestac+3];
		}
		else
		{
			tel[k++] = '*';tel[k++] = '*';tel[k++] = '*';tel[k++] = ' ';
		}
		tel[k++] = ' ';
		tel[k++] = '*';
		tel[k++] = ' ';
		tel[k++] ='0';tel[k++]='0'; tel[k++]=':'; tel[k++]='0'; tel[k++]='0';
		tel[k++] = ' ';

		if (buf[vtranf]=='N')	tel[k++]='A';		//servicio
		else	tel[k++]='*';						
		tel[k++] = '\r' ;
		tel[k++] = '\n' ;
		tel[k++] = '\0' ;
	}
}