#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define ladat	82+posin
#define estac	35+posin
#define linea	24+posin
#define durac	40+posin
#define hor     9+posin
#define fech	2+posin
#define	tranf	0+posin
#define numero	56+posin
#define ccost	0
#define proye   75+posin
#define cuenta  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	52+posin
#define antran	0			// anexo transferido
#define fofech	americano

/*
#define americano 	0
#define	europeo		1
#define	lmax	200
#define posin	18
#define estac	37+posin
#define linea	27+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  0
#define pulsos	0
#define ruta    0
#define prinum	0
#define ring	54+posin
#define antran	0			// anexo transferido  

#define fofech	americano
*/
#define larnum  19
                                             
extern char rgua[];
void in_central()
{ 
   rgua[0]='\0'; 
}

void fi_central()
{
} 


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 feco,horo,aux;//duro ;
    int i=strlen(buf),k,ka,it,siga;
    aux = 0;
    siga = i>(vestac+3) && i>(vlinea+2) && i>(vdurac+5) && i>(vhor+4) &&
           i>(vfech+4) && i>(vring+2) && isalpha(buf[vtranf]) ; 
	feco = isdigit(buf[vfech]) && isdigit(buf[vfech+1]) && isdigit(buf[vfech+2]) && isdigit(buf[vfech+3]) && isdigit(buf[vfech+4]) && isdigit(buf[vfech+5]) ;
	horo = isdigit(buf[vhor]) && isdigit(buf[vhor+1]) && isdigit(buf[vhor+2]) && isdigit(buf[vhor+3]) && isdigit(buf[vhor+4]) && isdigit(buf[vhor+5]) ;
//	duro = isdigit(buf[vdurac]) && isdigit(buf[vdurac+1]) && isdigit(buf[vdurac+2]) && isdigit(buf[vdurac+3]) && isdigit(buf[vdurac+4]) && isdigit(buf[vdurac+5]) ;
	if (siga && feco && horo)// && duro)
	{
	   k = 0 ;
	   for (it=0;it<i && it<4;it++)
	   {
	   		if isdigit(buf[vestac+it])
	   			tel[k++] = buf[vestac+it] ;
	   }
	   tel[k++] = ' ';
	   ka = k ; 
	   if isdigit(buf[vlinea+1])
	   for (it=0;it<3;it++)
		   tel[k++] = buf[vlinea+it] ; 
	    else                   
	   		tel[k++]='*' ;
	   tel[k++]=' ';

	   tel[k++]=buf[vdurac];tel[k++]=buf[vdurac+1];tel[k++]=':';
	   tel[k++]=buf[vdurac+2];tel[k++]=buf[vdurac+3];tel[k++]=':';// duracion
	   tel[k++]=buf[vdurac+4];tel[k++]=buf[vdurac+5];

	   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+2] ;
   	      tel[k++] = buf[vfech+3] ;
	      tel[k++] = '/';
	      tel[k++] = buf[vfech+4] ;
	      tel[k++] = buf[vfech+5] ;
	   }
	   else {
   	      tel[k++] = buf[vfech+4] ;
   	      tel[k++] = buf[vfech+5] ;
	      tel[k++] = '/';
	      tel[k++] = buf[vfech+2] ;
	      tel[k++] = buf[vfech+3] ;
	   }   
	   tel[k++] = '/';
	   tel[k++] = buf[vfech+0] ;
	   tel[k++] = buf[vfech+1] ;
	   tel[k++] = ' ' ;

	      if(buf[vtranf]=='S')
	         tel[k++] = 'O' ;
	      else if (buf[vtranf]=='I')
	         tel[k++] = 'T' ;  
	      else if (buf[vtranf]=='E')
	         tel[k++] = 'I' ;  
	      tel[k++] = ' ' ;
	      if isdigit(buf[posin+20])
	      	tel[k++] = buf[posin+20] ;
	      if isdigit(buf[posin+21])
	      	tel[k++] = buf[posin+21] ;
	      for (it=0;isdigit(buf[vnumero+it]) && it<i ; it++)  
      		tel[k++] = buf[vnumero+it] ;
		  if (it==0)  tel[k++] =  '*';
/*
	   }
	   else  
	   {
	      tel[k++] = 'I' ;
	      tel[k++] = ' ' ;
	      if (isdigit(buf[vnumero+7]))
	      {
	      	for (i=0;i<23 ; i++)  
	      	{	
	      		if isdigit(buf[vnumero+i])
	      			tel[k++] = buf[vnumero+i] ;
	      	}
	      }	
	      else
	         tel[k++] = '*' ;
	   }
*/	   
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;  /* centro de costo */
	   tel[k++] = ' ' ;
	   if (isdigit(buf[vproye])) 
	   {
	      for (it=0 ; it<5 ; it++) tel[k++]=buf[vproye+it] ;       /* proyecto */
	   }
	   else 
	   {
	      for (it=0 ; it<4 ; it++) tel[k++]='*' ;       // proyecto 
	   }
	   tel[k++] = ' ' ;  
	   tel[k++] = '*' ;             //cuenta
	   tel[k++] = ' ' ;
       for (it=0 ; it<4 ; it++) tel[k++]='0' ;       // tarifa 
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;  // ruta 
	   tel[k++] = ' ' ;
	   tel[k++] = '*' ;    // primer numero 
	   tel[k++] = ' ' ;
	   if (buf[vtranf]=='E')
	   {
	      aux = 0;
	      if(isdigit(buf[vring]) && isdigit(buf[vring+1]) && isdigit(buf[vring+2]))
	      {
	         tel[k++] = '0' ; tel[k++] = buf[vring] ; 
	         tel[k++] = ':' ;
	         tel[k++] = buf[vring+1] ; tel[k++] = buf[vring+2] ; 
	      }
	      else   
	      {
	      
	         tel[k++] = '0' ; tel[k++] = '0' ; 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' ;   // tiempo ring 
	   }   
       tel[k++] = ' ' ;
       tel[k++] = '*' ;
	   tel[k++] = '\r' ;
	   tel[k++] = '\n' ;
	   tel[k++] = '\0' ;        
    }
}