#define americano 	0
#define	europeo		1
#define	lmax	200 		// 200
#define posin	18
#define estac	9+posin
#define linea	21+posin
#define durac	10
#define hor     4
#define fech	21+posin
#define	tranf	30+posin
#define numero	20
#define ccost	0
#define proye   57+posin
#define cuenta  57+posin
#define pulsos	0
#define ruta    18+posin
#define prinum	19
#define ring	0
#define antran	0			// anexo transferido
#define fofech	americano
                           

#define ladat		82+posin
#define pry_num		100			// 100
#define clid_tena	24+posin
#define clid_only    2+posin
#define l_ruta		3
#define l_esta		7
#define l_proy		8
#define l_line		3
#define l_nume		23
#define l_cuen		15

typedef struct {
       char est[l_esta],lin[l_line],rut[l_ruta],pry[l_proy] ;
} TPRY;

typedef struct {
       char est[l_esta],lin[l_line],rut[l_ruta],cue[l_cuen] ;
} TCUE;

typedef struct {
       char lin[l_line],rut[l_ruta],pry[l_proy],cue[l_cuen],num[l_nume],tip ;
} TNUM; 

extern void gua_rut(char *buf);

TPRY pry_cod[pry_num+3];
TCUE cue_cod[pry_num+3];
TNUM num_tra[pry_num+3];
char ruf[lmax+3], lgua[lmax+3];
int pry_max,num_max,cue_max;


/* agregar proyecto */  
void agr_pry(int est,int lin,int rut,int pry, char *buf,TPRY *pry_cod, int *pry_max)
{
   int i,j ;
   i = 0;
   if (*pry_max<pry_num) (*pry_max)++ ;
   if (*pry_max>=pry_num) {
     for(j=0;j<(*pry_max-1);j++) {
	    for (i=0;i<l_esta;i++) pry_cod[j].est[i] = pry_cod[j+1].est[i] ;
	    for (i=0;i<l_line;i++) pry_cod[j].lin[i] = pry_cod[j+1].lin[i] ;
	    for (i=0;i<l_ruta;i++) pry_cod[j].rut[i] = pry_cod[j+1].rut[i] ;
	    for (i=0;i<l_proy;i++) pry_cod[j].pry[i] = pry_cod[j+1].pry[i] ;
     }                      
   }
   for(i=0;i<l_esta;i++) pry_cod[*pry_max-1].est[i] = buf[est+i] ;
   for(i=0;i<l_line;i++) pry_cod[*pry_max-1].lin[i] = buf[lin+i] ;
   for(i=0;i<l_ruta;i++) pry_cod[*pry_max-1].rut[i] = buf[rut+i] ;
   for(i=0;i<l_proy;i++) pry_cod[*pry_max-1].pry[i] = 'p' ;
   for(i=0;i<l_proy && buf[pry+i]!='\n' && buf[pry+i]!='\r' && buf[pry+i]!='\0';i++) pry_cod[*pry_max-1].pry[i] = buf[pry+i] ;
}

/* buscar proyecto */
void bus_pry(int est,int lin,int rut,char *pry, char *buf, TPRY *pry_cod, int *pry_max)
{
  int i,j=0,i_est=0,i_lin=0,i_rut=0 ; 
  i = 0;
  while ((i_lin!=l_line || i_rut!=l_ruta) && j<*pry_max  ) {
     for(i=0;i<l_line && pry_cod[j].lin[i]==buf[lin+i];i++) ;
     i_lin = i ;
     for(i=0;i<l_ruta && pry_cod[j].rut[i]==buf[rut+i];i++) ;
     i_rut = i ;
     if (i_lin!=l_line || i_rut!=l_ruta) j++ ;
  }
  if (i_lin==l_line && i_rut==l_ruta) 
  {
		for(i=0;i<l_proy;i++) pry[i] = pry_cod[j].pry[i] ;
		if (buf[posin]!='S')
		{
   			(*pry_max)-- ;
   			for(;j<(*pry_max+1);j++) 
   			{
    			for (i=0;i<l_esta;i++) pry_cod[j].est[i] = pry_cod[j+1].est[i] ;
    			for (i=0;i<l_line;i++) pry_cod[j].lin[i] = pry_cod[j+1].lin[i] ;
    			for (i=0;i<l_ruta;i++) pry_cod[j].rut[i] = pry_cod[j+1].rut[i] ;
    			for (i=0;i<l_proy;i++) pry_cod[j].pry[i] = pry_cod[j+1].pry[i] ;
   			}
   		}	
  }
  else
  {           
  		for(i=0;i<l_proy;i++) pry[i] = '*' ;
  }	
}

/* abrir archivo de proyectos */
void abr_pry(TPRY *pry_cod, int *pry_max)
{

char bufp[l_esta+l_line+l_ruta+l_proy+10] ;
FCHAN p_arch;
int i,j=0 ;
   if( (p_arch = _FOpen("ptelf.pry",FO_READONLY)) != -1 )
   {
      while ( !_FEOF(p_arch))
      {
	     i=_FGets(p_arch,bufp,l_esta+l_line+l_ruta+l_proy+8);
	     if (i==(l_esta+l_line+l_ruta+l_proy)) {
	        for(i=0 ;i<l_esta ;i++) pry_cod[j].est[i- 0] = bufp[i] ;
	        for(i=l_esta ;i<(l_esta+l_line) ;i++) pry_cod[j].lin[i-l_esta] = bufp[i] ;
	        for(i=(l_esta+l_line) ;i<(l_esta+l_line+l_ruta);i++) pry_cod[j].rut[i-(l_esta+l_line)] = bufp[i] ;
	        for(i=(l_esta+l_line+l_ruta);i<(l_esta+l_line+l_ruta+l_proy);i++) pry_cod[j].pry[i-(l_esta+l_line+l_ruta)] = bufp[i] ;
	        j++ ;
	     }
      }
      *pry_max = j ;
      _FClose(p_arch);
   }
   else *pry_max = 0 ;

}

/* cerrar archivo de proyectos */
void cer_pry(TPRY *pry_cod, int pry_max)
{

int j=0 ;
FCHAN p_arch;
p_arch = _FCreate("ptelf.pry",FC_NORMAL);
for (j=0;j<pry_max;j++)
  {  
    _FWrite(p_arch,(char *)&pry_cod[j],l_esta+l_line+l_ruta+l_proy);
    _FWrite(p_arch,"\r\n",2);
  }
_FClose(p_arch);

}

/* agregar cuenta */
void agr_cue(int est,int lin,int rut,int cue, char *buf,TCUE *cue_cod, int *cue_max)
{
   int i,j,aux ;
   aux = 0;
   if (*cue_max<pry_num) (*cue_max)++ ;
   if (*cue_max>=pry_num) {
     for(j=0;j<(*cue_max-1);j++) {
	    for (i=0;i<l_esta;i++) cue_cod[j].est[i] = cue_cod[j+1].est[i] ;
	    for (i=0;i<l_line;i++) cue_cod[j].lin[i] = cue_cod[j+1].lin[i] ;
	    for (i=0;i<l_ruta;i++) cue_cod[j].rut[i] = cue_cod[j+1].rut[i] ;
	    for (i=0;i<l_cuen;i++) cue_cod[j].cue[i] = cue_cod[j+1].cue[i] ;
     }
   }
   for(i=0;i<l_esta;i++) cue_cod[*cue_max-1].est[i] = buf[est+i] ;
   for(i=0;i<l_line;i++) cue_cod[*cue_max-1].lin[i] = buf[lin+i] ;
   for(i=0;i<l_ruta;i++) cue_cod[*cue_max-1].rut[i] = buf[rut+i] ;
   for(i=0;i<l_cuen;i++) cue_cod[*cue_max-1].cue[i] = 'c' ;
   for(i=0;i<l_cuen && buf[cue+i]!='\n' && buf[cue+i]!='\r' && buf[cue+i]!='\0';i++) cue_cod[*cue_max-1].cue[i] = buf[cue+i] ;
}

/* buscar cuenta */
void bus_cue(int est,int lin,int rut,char *cue, char *buf, TCUE *cue_cod, int *cue_max)
{
  int i,j=0,i_est=0,i_lin=0,i_rut=0,aux ;
  aux = 0;
  while ( (i_est!=l_esta || i_lin!=l_line || i_rut!=l_ruta) && j<*cue_max  ) {
     for(i=0;i<l_esta && cue_cod[j].est[i]==buf[est+i];i++) ;
     i_est = i ;
     for(i=0;i<l_line && cue_cod[j].lin[i]==buf[lin+i];i++) ;
     i_lin = i ;
     for(i=0;i<l_ruta && cue_cod[j].rut[i]==buf[rut+i];i++) ;
     i_rut = i ;
     if (i_est!=l_esta || i_lin!=l_line || i_rut!=l_ruta) j++ ;
  }
  if (i_est==l_esta && i_lin==l_line && i_rut==l_ruta) {
     (*cue_max)-- ;
     for(i=0;i<l_cuen;i++) cue[i] = cue_cod[j].cue[i] ;
     for(;j<*cue_max;j++) {
	    for (i=0;i<l_esta;i++) cue_cod[j].est[i] = cue_cod[j+1].est[i] ;
	    for (i=0;i<l_line;i++) cue_cod[j].lin[i] = cue_cod[j+1].lin[i] ;
	    for (i=0;i<l_ruta;i++) cue_cod[j].rut[i] = cue_cod[j+1].rut[i] ;
	    for (i=0;i<l_cuen;i++) cue_cod[j].cue[i] = cue_cod[j+1].cue[i] ;
     }
  }
  else           for(i=0;i<l_cuen;i++) cue[i] = '*' ;
}

/* abrir archivo de cuentas */
void abr_cue(TCUE *cue_cod, int *cue_max)
{

char bufp[l_esta+l_line+l_ruta+l_cuen+10] ;
FCHAN p_arch;
int i,j=0 ;
   if( (p_arch = _FOpen("ptelf.cue",FO_READONLY)) != -1 )
   {
      while ( !_FEOF(p_arch))
      {
	     i=_FGets(p_arch,bufp,l_esta+l_line+l_ruta+l_cuen+8);
	     if (i==(l_esta+l_line+l_ruta+l_cuen)) {
	        for(i=0 ;i<l_esta ;i++) cue_cod[j].est[i- 0] = bufp[i] ;
	        for(i=l_esta ;i<(l_esta+l_line) ;i++) cue_cod[j].lin[i-l_esta] = bufp[i] ;
	        for(i=(l_esta+l_line) ;i<(l_esta+l_line+l_ruta);i++) cue_cod[j].rut[i-(l_esta+l_line)] = bufp[i] ;
	        for(i=(l_esta+l_line+l_ruta);i<(l_esta+l_line+l_ruta+l_cuen);i++) cue_cod[j].cue[i-(l_esta+l_line+l_ruta)] = bufp[i] ;
	        j++ ;
	     }
      }
      *cue_max = j ;
      _FClose(p_arch);
   }
   else *cue_max = 0 ;

}

/* cerrar archivo de cuentas */         
void cer_cue(TCUE *cue_cod, int cue_max)
{

int j=0 ;
FCHAN p_arch;
p_arch = _FCreate("ptelf.cue",FC_NORMAL);
for (j=0;j<cue_max;j++)
  {  
    _FWrite(p_arch,(char *)&cue_cod[j],l_esta+l_line+l_ruta+l_cuen);
    _FWrite(p_arch,"\r\n",2);
  }
_FClose(p_arch);

}

/* buscar linea+ruta */
void bus_num(int lin,int rut,char *pry,char *cue,char *num,char *tip,char *buf,TNUM *num_tra,int *num_max)
{
  int i,j=0,i_lin=0,i_rut=0 ; 
  char aux;
  aux = 0;
  while ( (i_lin!=l_line || i_rut!=l_ruta) && j<*num_max  ) {
     for(i=0;i<l_line && num_tra[j].lin[i]==buf[lin+i];i++) ;
     i_lin = i ;
     for(i=0;i<l_ruta && num_tra[j].rut[i]==buf[rut+i];i++) ;
     i_rut = i ;
     if (i_lin!=l_line || i_rut!=l_ruta) j++ ;
  }
  if (i_lin==l_line && i_rut==l_ruta) {
     (*num_max)-- ;
     for(i=0;i<l_proy ;i++) pry[i] = num_tra[j].pry[i] ;
     for(i=0;i<l_cuen ;i++) cue[i] = num_tra[j].cue[i] ;
     for(i=0;i<l_nume ;i++) num[i] = num_tra[j].num[i] ;
     *tip = num_tra[j].tip ;
     for(;j<*num_max;j++) {
	   for (i=0;i<l_line;i++) num_tra[j].lin[i] = num_tra[j+1].lin[i] ;
	   for (i=0;i<l_ruta;i++) num_tra[j].rut[i] = num_tra[j+1].rut[i] ;
	   for (i=0;i<l_proy;i++) num_tra[j].pry[i] = num_tra[j+1].pry[i] ;
	   for (i=0;i<l_cuen;i++) num_tra[j].cue[i] = num_tra[j+1].cue[i] ;
	   for (i=0;i<l_nume;i++) num_tra[j].num[i] = num_tra[j+1].num[i] ;
	   num_tra[j].tip = num_tra[j+1].tip ;
     }
  }
}


/* agregar número   */
void agr_num(int lin,int rut,char *pry, char *cue, int num, char tipo, char *buf, TNUM *num_tra, int *num_max)
{
   int i,j ;
   char apry[l_proy+2],anum[l_nume+2],acue[l_cuen+2],atip;
   bus_num(lin,rut,apry,acue,anum,&atip,buf,num_tra,num_max);
   if (*num_max<pry_num) (*num_max)++ ;
   if (*num_max>=pry_num) {
     for(j=0;j<(*num_max-1);j++) {
	    for (i=0;i<l_line ;i++) num_tra[j].lin[i] = num_tra[j+1].lin[i] ;
	    for (i=0;i<l_ruta ;i++) num_tra[j].rut[i] = num_tra[j+1].rut[i] ;
	    for (i=0;i<l_proy ;i++) num_tra[j].pry[i] = num_tra[j+1].pry[i] ;
	    for (i=0;i<l_cuen ;i++) num_tra[j].cue[i] = num_tra[j+1].cue[i] ;
	    for (i=0;i<l_nume ;i++) num_tra[j].num[i] = num_tra[j+1].num[i] ;
	    num_tra[j].tip = num_tra[j+1].tip ;
     }
   }
   for(i=0;i<l_line ;i++) num_tra[*num_max-1].lin[i] = buf[lin+i] ;
   for(i=0;i<l_ruta ;i++) num_tra[*num_max-1].rut[i] = buf[rut+i] ;
   for(i=0;i<l_proy ;i++) num_tra[*num_max-1].pry[i] = pry[i] ;
   for(i=0;i<l_cuen ;i++) num_tra[*num_max-1].cue[i] = cue[i] ;
   num_tra[*num_max-1].num[0] = '*' ;
   for(i=1;i<l_nume;i++) num_tra[*num_max-1].num[i] = ' ' ;
   for(i=0;i<l_nume && buf[num+i]!='\n' && buf[num+i]!='\r' && buf[num+i]!='\0';i++) num_tra[*num_max-1].num[i] = buf[num+i] ;
   num_tra[*num_max-1].tip = tipo ;
}

/* abrir archivo de números   */
void abr_num(TNUM *num_tra, int *num_max)
{

   char bufp[l_line+l_ruta+l_proy+l_cuen+l_nume+10] ;
   int daee=0,i,j=0 ;
   FCHAN t_arch;
   if( (t_arch = _FOpen("ptelf.tra",FO_READONLY)) != -1 )
   {
      while ( !_FEOF(t_arch))
      {
	      i=_FGets(t_arch,bufp,l_line+l_ruta+l_proy+l_cuen+l_nume+8);
	      if (i==l_line+l_ruta+l_proy+l_cuen+l_nume+1) {
	         for(i=0 ;i<l_line ;i++) num_tra[j].lin[i- 0] = bufp[i] ;
	         for(i=l_line ;i<(l_line+l_ruta) ;i++) num_tra[j].rut[i-l_line] = bufp[i] ;
	   		 for(i=(l_line+l_ruta) ;i<(l_line+l_ruta+l_proy);i++) num_tra[j].pry[i-(l_line+l_ruta)] = bufp[i] ;
	   		 for(i=(l_line+l_ruta+l_proy);i<(l_line+l_ruta+l_proy+l_cuen);i++) num_tra[j].cue[i-(l_line+l_ruta+l_proy)] = bufp[i] ;
	   		 for(i=(l_line+l_ruta+l_proy+l_cuen);i<(l_line+l_ruta+l_proy+l_cuen+l_nume);i++) num_tra[j].num[i-(l_line+l_ruta+l_proy+l_cuen)] = bufp[i] ;
	   		 num_tra[j].tip = bufp[i] ;
	   		 j++ ;
		  }
      }
      *num_max = j ;
      _FClose(t_arch);
   }
   else *num_max = 0 ;

}

/* cerrar archivo de n£meros   */
void cer_num(TNUM *num_tra, int num_max)
{

int j=0 ;
FCHAN t_arch;
t_arch = _FCreate("ptelf.tra",FC_NORMAL) ;
for (j=0;j<num_max;j++)
  {
    _FWrite(t_arch,(char *)&num_tra[j],l_line+l_ruta+l_proy+l_cuen+1);
    _FWrite(t_arch,"\r\n",2);
  }
_FClose(t_arch) ;

}

void CorrNum(int ponum, char *buf)
{
   int i ;
   for(i=0;i<23;i++) buf[ponum+23-i]=buf[ponum+22-i] ;
   buf[ponum] = 'I' ;
}

int Tra_Cen(int pest,int plin,int prut,int pdur,int pfec,int phor,int pnum,int ppri,char ptip,int vfofech,char *buf,char *cuf,char *tel,TPRY *pry_cod,int *pry_max,TNUM *num_tra,int *num_max)
{
  int k,ka,it,i,j;
  char spry[l_proy+4], scue[l_cuen+4], snumero[l_nume+4], atip=ptip ;
  for (i=0;i<l_proy;i++) spry[i] = '*'; spry[i]='\0';
  for (i=0;i<l_cuen;i++) scue[i] = '*'; scue[i]='\0';
  snumero[0] = '*'; for (i=1;i<l_nume;i++) snumero[i] = ' '; snumero[i]='\0';
  if (buf[posin]=='E') 
  		bus_num(plin,prut,spry,scue,snumero,&ptip,buf,num_tra,num_max) ;
  if (ptip=='O') 
  {
     bus_pry(pest,plin,prut,spry,buf,pry_cod,pry_max) ;
     bus_cue(pest,plin,prut,scue,buf,cue_cod,&cue_max) ;
  }   
  if (buf[pfec+2]!='/' || buf[phor+2]!=':' || buf[pdur+2]!=':' || buf[pdur+5]!=':') return(0) ;
  k = 0 ;
  if (pest>0) 
  {  
     for (i=0;i<7 && buf[pest+i]!=' ';i++) 
     {
        if(!isalnum(buf[pest+i])) return(0) ;
        tel[k++] = buf[pest+i];
     }  
  }
  else 
  {
     BOOL bonly=FALSE, btena=FALSE;
     if (strlen(cuf)>clid_only+7) 
     	bonly = isdigit(cuf[clid_only]);
     if (strlen(cuf)>clid_tena+7) 
     	btena = isdigit(cuf[clid_tena]);
     if (bonly) 
     { 
     	i = 0;
     	for (i=clid_only;cuf[i]!='X'&& cuf[i]!='\r' && cuf[i]!='\n'  && cuf[i]!='\0'; i++)
     	if (i<=5)
     	{
      	for (it=clid_only;it<(clid_only+5) && isdigit(cuf[it]) ; it++) 
     		tel[k++] = cuf[it] ;
        }
 		else
 		{
     		tel[k++] = '*' ;
 		}
     }
     else if (btena)
     {
     	j=0;
     	while (cuf[clid_tena+j]!='X' && cuf[clid_tena+j]!='\r' && cuf[clid_tena+j]!='\n' && cuf[clid_tena+j]!='\0')
     		j++;
		if (j<=5)
		{
     		for (it=clid_tena;it<(clid_tena+5) && isdigit(cuf[it]) ; it++) 
     			tel[k++] = cuf[it] ;
     	}
     	else if (j>5 && buf[posin+9]=='T' && buf[posin+17]=='A' && buf[ppri]=='A')
     	{
     		for (it=ppri+6; buf[it]!='\r' && buf[it]!='\n' && buf[it]!='\0'; it++) 
     		{
     			if isdigit(buf[it])
     				tel[k++] = buf[it] ;
     		}		
     		
     	} 
     	else
     		tel[k++] = '*' ;
     }

  }
  tel[k++] = ' ' ;
  if (plin>0) {
     tel[k++] = buf[plin] ; tel[k++] = buf[plin+1] ; tel[k++] = buf[plin+2] ;
  }
  else {
     tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
  }
  tel[k++] = ' ' ;
  if (buf[pdur+0]!=' ') tel[k++]=buf[pdur+0] ;
  else                   tel[k++]='0' ;
  if (buf[pdur+1]!=' ') tel[k++]=buf[pdur+1] ;
  else                   tel[k++]='0' ;
  tel[k++] = ':' ;
  if (buf[pdur+3]!=' ') tel[k++]=buf[pdur+3] ;
  else                   tel[k++]='0' ;
  if (buf[pdur+4]!=' ') tel[k++]=buf[pdur+4] ;
  else                   tel[k++]='0' ;
  tel[k++] = ':' ;
  if (buf[pdur+6]!=' ') tel[k++]=buf[pdur+6] ;
  else                   tel[k++]='0' ;
  if (buf[pdur+7]!=' ') tel[k++]=buf[pdur+7] ;
  else                   tel[k++]='0' ;
  tel[k++] = ' ' ;
  ka = k ;
  tel[k++] = buf[phor] ; tel[k++] = buf[phor+1] ;
  if (tel[ka]==' ') tel[ka]='0' ;
  tel[k++] = ':' ;
  tel[k++] = buf[phor+3] ; tel[k++] = buf[phor+4] ;
  tel[k++] = ' ' ; 
  if (vfofech==americano) 
  {
     tel[k++] = buf[pfec+0] ;
     tel[k++] = buf[pfec+1] ;
     tel[k++] = '/';
     tel[k++] = buf[pfec+3] ;
     tel[k++] = buf[pfec+4] ;
  }
  else 
  {
     tel[k++] = buf[pfec+3] ;
     tel[k++] = buf[pfec+4] ;
     tel[k++] = '/';
     tel[k++] = buf[pfec+0] ;
     tel[k++] = buf[pfec+1] ;
  }
  tel[k++] = '/';
  tel[k++] = buf[6] ;
  tel[k++] = buf[7] ;
  tel[k++] = ' ' ;
  /***************/
  if (buf[posin+9]=='T' && buf[prut-1]=='A' && isdigit(buf[prut])) 
  		ptip ='T' ;
  else if (buf[posin+9]=='A' && buf[posin+17]=='T' && ptip=='I' )//&&isdigit(buf[prut]) ) 		
  		ptip ='T' ;
  tel[k++] = ptip ;
  tel[k++] = ' ' ;
  if (buf[ppri]=='A' || buf[ppri]=='E') 
  		it=pnum+1 ;
  else if (buf[ppri]=='C' && isdigit(buf[ppri+2])) 
  		it=pnum+1 ;
  else if (buf[ppri]=='C' && isalpha(buf[ppri+2])) 
  		it=pnum+3 ;
  else if (isdigit(buf[ppri]) && (pnum-ppri)==1 && isdigit(buf[pnum])) 
  		it=ppri;
  else it=pnum ;
  if (buf[posin]=='S') 
  		agr_num(plin,prut,spry,scue,it,atip,buf,num_tra,num_max) ;
  ka=k ;
  if (buf[it]=='A')
  		it = it+2;
  if (buf[posin+9]=='T' && buf[posin+17]=='A')
  {
  		for (it=posin+21; cuf[it]!='\r' && cuf[it]!='\n' && cuf[it]!='\0'&& cuf[it]!='X'; it++) 
    	{
    		if (isdigit(cuf[it])) 
    			tel[k++] = cuf[it] ;
  		}
  }
  else
  { 		
  		for (; it<(pnum+23) && buf[it]!='\r' && buf[it]!='\n' && buf[it]!=' ' && buf[it]!='\0'; it++) 
    		if (isdigit(buf[it]) || buf[it]=='T' || buf[it]=='N') tel[k++] = buf[it] ;
  }
  if (ka==k) 
  {
     BOOL bonly=FALSE, btena=FALSE;
     if (strlen(cuf)>clid_only+14) 
     	bonly = isdigit(cuf[clid_only]);
     if (strlen(cuf)>clid_tena+14) 
     	btena = isdigit(cuf[clid_tena]);
     if (buf[posin]=='E') 
     {
     	for(it=0;it<l_nume && snumero[it]!=' ';it++) 
     		tel[k++] = snumero[it] ;
     }
     else if (bonly) 
     {
     	for (it=clid_only ; it<(clid_only+12) && isdigit(cuf[it]) ; it++ ) 
     		tel[k++] = cuf[it] ;
     }
     else if (btena) 
     {
     	for (it=clid_tena ; it<(clid_tena+12) && isdigit(cuf[it]) ; it++ ) 
     		tel[k++] = cuf[it] ;
     }
     else 
     	tel[k++]='*' ;
  }
  tel[k++] = ' ' ;
  tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;  /* centro de costo */
  tel[k++] = ' ' ;
  for (i=0;i<l_proy && spry[i]!=':' && spry[i]!='/';i++) ;
  if (spry[i]==':' || spry[i]=='/') return(0) ;
  for (i=0;i<l_proy;i++) tel[k++] = spry[i] ; /* proyecto */
  tel[k++] = ' ' ;
  for (i=0;i<l_cuen && scue[i]!=':' && scue[i]!='/';i++) ;
  if (scue[i]==':' || scue[i]=='/') return(0) ;
  for (i=0;i<l_cuen;i++) tel[k++] = scue[i] ; /* cuenta */
  tel[k++] = ' ' ;
  for (it=0 ; it<5 ; it++) tel[k++]='0' ;       /* tarifa */
  tel[k++] = ' ' ;
  if (prut>0) {
     for (i=0;i<3 && buf[prut+i]!=':' && buf[prut+i]!='/';i++) ;
     if (buf[prut+i]==':' || buf[prut+i]=='/') return(0) ;
     tel[k++] = buf[prut] ; tel[k++] = buf[prut+1] ; tel[k++] = buf[prut+2] ;  /* ruta */
  }
  else {
     tel[k++] = '*' ; tel[k++] = '*' ; tel[k++] = '*' ;
  }
  tel[k++] = ' ' ;
  if (isalnum(buf[ppri])) tel[k++] = buf[ppri] ;    /* primer numero */
  else tel[k++] = '*' ;
  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' ;
  return(1) ;
}

void posi_fe(int *fech_N_s,int *hor_N_s,int *dur_N_s,int *pri_N_s,int *num_N_s,int vhor,int vdur,int vpri,int vnum, char *buf)
{
   int i,largo;
   largo = strlen(buf); largo--;
   if (largo<(posin+40)){    
      int pred=posin;
      if (largo<posin) pred=(posin/2);
      *fech_N_s = pred ;
      *hor_N_s  = pred ;
      *dur_N_s  = pred ;
      *pri_N_s  = pred ;
      *num_N_s  = pred ;
      return;
   }
   for(i=posin;buf[i]!='\0' && buf[i]!='/';i++) ;
   if (buf[i]=='/') {
      *fech_N_s = i-2 ;
      *hor_N_s  = i+vhor ;
      *dur_N_s  = i+vdur ;
      *pri_N_s  = i+vpri ;
      *num_N_s  = i+vnum ;
  }
  else {
      *fech_N_s = posin ;
      *hor_N_s  = posin ;
      *dur_N_s  = posin ;
      *pri_N_s  = posin ;
      *num_N_s  = posin ;
  }
  if ((*fech_N_s+7)>largo) *fech_N_s=largo-7;
  if ((*hor_N_s+7)>largo) *hor_N_s=largo-7;
  if ((buf[posin]!='A' && buf[posin]!='C') && (*dur_N_s+8)>largo) *dur_N_s=largo-8;
  if ((buf[posin]=='A' || buf[posin]=='C') && (*dur_N_s+1)>largo) *dur_N_s=largo;
  if ((*pri_N_s+2)>largo) *pri_N_s=largo;
  if ((*num_N_s+2)>largo) *num_N_s=largo;
}


void gua_buf(char *buf)
{
   strcpy(lgua,buf);
}

/* retorna  1 -> OK */
int rec_buf(char *buf, int *numc)
{  
   strcpy(buf,lgua);
   *numc = strlen(buf); 
   return (isalpha(buf[0])) ;
}

int cif(int cond,int cov, int cof)
{
  if (cond) return(cov) ;
  else      return(cof) ;
}

extern char rgua[];
void in_central()
{            
    lgua[0] = '\0'; rgua[0] = '\0'; ruf[0] = '\0';
    abr_pry(pry_cod,&pry_max) ;
    abr_cue(cue_cod,&cue_max) ; 
    abr_num(num_tra,&num_max) ;
}

void fi_central()
{  
    cer_pry(pry_cod,pry_max) ; 
    cer_cue(cue_cod,cue_max) ;
    cer_num(num_tra,num_max) ;
}

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 *cuf ;
    int i,li,j,k,largo ;
    char lla_ent,lla_sal,lla_rut,lla_tra ;
    int  fech_N_s,hor_N_s,dur_N_s,num_N_s,pri_N_s ;
	char aux; 
	BOOL alfabuf, alfacuf;
	aux = 0;
    cuf = ruf ;
    _fmode = O_BINARY ;
    lla_sal =0 ; lla_ent=0 ; lla_rut=0 ; lla_tra=0 ;
    rec_buf(cuf,&i); 
    if (strlen(buf)>(posin+40)) 
    	alfabuf = isalpha(buf[posin]);
    else 
    	alfabuf = FALSE;
    if (strlen(cuf)>(posin+40)) 
    	alfacuf = isalpha(cuf[posin]);
    else 
    	alfacuf = FALSE;
	if (alfacuf && alfabuf) 
	{
	   char *tmp;
	   BOOL talf;
	   gua_buf(buf);
	   largo = i;
	   tmp=(char *)buf; buf=(char *)cuf; cuf=(char *)tmp;
	   talf = alfabuf ; alfabuf = alfacuf ; alfacuf = talf;
	   j=strlen(cuf);
	   for(k=0;k<(j-1);k++) cuf[k]=' ' ; cuf[k]='\0' ;
	}
	else if (alfacuf && !alfabuf) 
	{
	   char *tmp;
	   BOOL talf;
	   largo = i;
	   if ( strlen(buf) > (posin+5) ) 
	   {
	      tmp=(char *)buf; buf=(char *)cuf; cuf=(char *)tmp;
	      talf = alfabuf ; alfabuf = alfacuf ; alfacuf = talf;
	      j=strlen(cuf);
	      if (j<=clid_only) 
	      { 
	      	for(k=0;k<(j-1);k++) 
	      	{
	      		cuf[k]=' ' ; 
	      		cuf[k]='\0' ; 
	      	}
	      }
	      gua_buf("\r"); 
	   }
	}  
	else 
	{
	   int j=strlen(buf);
	   largo = 0;
	   if ( j > (posin+5) ) gua_buf(buf);
	   for(k=0;k<(j-1);k++) buf[k]=' ' ; buf[k]='\0' ; 
	} 
	if (  largo>(40+posin) &&  alfabuf )
	{
	   posi_fe(&fech_N_s,&hor_N_s,&dur_N_s,&pri_N_s,&num_N_s,vhor,vdurac,vprinum,vnumero,buf) ;
	   if (buf[posin]=='M') agr_pry(vestac,vlinea,vruta,pri_N_s,buf,pry_cod,&pry_max) ;
	   if (buf[posin]=='C') agr_cue(vestac,vlinea,vruta,dur_N_s,buf,cue_cod,&cue_max) ;
	   aux = 0; 	
	   if (buf[posin]=='A') agr_pry(vestac,vlinea,vruta,dur_N_s,buf,pry_cod,&pry_max) ;
	   lla_sal = (buf[posin]=='N' || buf[posin]=='E' || buf[posin]=='S') && (isdigit(buf[vestac]) || (buf[vestac]=='A' && buf[vestac+1]=='T')) && ((buf[vruta-1]=='T' || buf[vruta-1]=='A') && isdigit(buf[vruta])) ;
	   lla_ent = (buf[posin]=='N' || buf[posin]=='E' || buf[posin]=='S') && (isdigit(buf[vruta-1]) || (buf[vruta-1]=='A' && buf[vruta]=='T')) && ((buf[vestac]=='T' || buf[vestac]=='A') && isdigit(buf[vestac+3])) ;
	   lla_rut = (buf[posin]=='N' || buf[posin]=='E' || buf[posin]=='S') && ((buf[vestac]=='T' || buf[vestac]=='A') && isdigit(buf[vestac+1])) && ((buf[vruta-1]=='A' || buf[vruta-1]=='T') && isdigit(buf[vruta])) ;
	   lla_tra = buf[posin]=='L' && (isdigit(buf[vestac]) || (buf[vestac]=='A' && buf[vestac+1]=='T')) && (isdigit(buf[vruta-1]) || (buf[vruta-1]=='A' && buf[vruta]=='T')) ;
	   if (lla_sal && buf[fech_N_s+2]=='/' && buf[hor_N_s+2]==':' && buf[dur_N_s+2]==':' && buf[dur_N_s+5]==':')
	   {
		  if (!Tra_Cen(cif(buf[vestac]=='A',vestac+2,vestac),vlinea,vruta,dur_N_s,fech_N_s,hor_N_s,num_N_s,pri_N_s,'O',vfofech,buf,cuf,tel,pry_cod,&pry_max,num_tra,&num_max)) {
		      for (i=0;i<lmax;i++) tel[i]=' ' ; tel[i] = '\0';
		  }
	   }
	   if (lla_ent && buf[fech_N_s+2]=='/' && buf[hor_N_s+2]==':' && buf[dur_N_s+2]==':' && buf[dur_N_s+5]==':')
	   {
		  if ( buf[posin]=='S' && isdigit(buf[pri_N_s]) ) {
		     CorrNum(pri_N_s,buf) ;
		     li=Tra_Cen(cif(buf[vruta-1]=='A',vruta+1,vruta-1),vestac+4,vestac+1,dur_N_s,fech_N_s,hor_N_s,num_N_s,pri_N_s,'O',vfofech,buf,cuf,tel,pry_cod,&pry_max,num_tra,&num_max) ;
		  }
		  else li=Tra_Cen(cif(buf[vruta-1]=='A',vruta+1,vruta-1),vestac+4,vestac+1,dur_N_s,fech_N_s,hor_N_s,num_N_s,pri_N_s,'I',vfofech,buf,cuf,tel,pry_cod,&pry_max,num_tra,&num_max) ;
		  if (!li) {
		     for (i=0;i<lmax;i++) tel[i]=' ' ; tel[i] = '\0';
		  }
	   }
	   if (lla_rut && buf[fech_N_s+2]=='/' && buf[hor_N_s+2]==':' && buf[dur_N_s+2]==':' && buf[dur_N_s+5]==':')
	   {
		  if (!Tra_Cen(0,vlinea,vruta,dur_N_s,fech_N_s,hor_N_s,num_N_s,pri_N_s,'O',vfofech,buf,cuf,tel,pry_cod,&pry_max,num_tra,&num_max)) {
		     for (i=0;i<lmax;i++) tel[i]=' ' ; tel[i] = '\0';
		  }
		  else gua_rut(tel);
		  if (!Tra_Cen(0,vestac+4,vestac+1,dur_N_s,fech_N_s,hor_N_s,num_N_s,pri_N_s,'I',vfofech,buf,cuf,tel,pry_cod,&pry_max,num_tra,&num_max)) {
		     for (i=0;i<lmax;i++) tel[i]=' ' ;  tel[i] = '\0';
		  }
	   }
	   if (lla_tra && buf[fech_N_s+2]=='/' && buf[hor_N_s+2]==':' && buf[dur_N_s+2]==':' && buf[dur_N_s+5]==':')
	   {
		  if (!Tra_Cen(cif(buf[vestac]=='A',vestac+2,vestac),0,0,dur_N_s,fech_N_s,hor_N_s,vruta-1,vruta,'T',vfofech,buf,cuf,tel,pry_cod,&pry_max,num_tra,&num_max)) {
		     for (i=0;i<lmax;i++) tel[i]=' ' ; tel[i] = '\0';
		  }
	   }
	}
}