#define americano 	0
#define	europeo		1
#define	lmax	200 		// 200
#define posin	18
#define estac	11+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   69+posin
#define cuenta  0
#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		180		// 100
#define clid_tena	24+posin
#define clid_only    2+posin
#define l_ruta		3
#define l_esta		6
#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 est[l_esta],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],tuf[lmax+3], lgua[lmax+3], lineas[3][lmax+3];
int pry_max,num_max,cue_max,cont_buf=0;
BOOL hubo_comienzo = FALSE;


/* agregar proyecto */
void agr_pry(int est,int lin,int rut,int pry, char *buf,TPRY *pry_cod, int *pry_max)
{
   int i,j ;
   pry = pry+12;
   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' && buf[pry+i]!=' ';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 aux, i,j=0,i_est=0,i_lin=0,i_rut=0 ;
  aux = 0;
while ( (i_est!=l_esta || i_lin!=l_line || i_rut!=l_ruta) && j<*pry_max  ) 
  {
     for(i=0;i<l_esta && pry_cod[j].est[i]==buf[est+i];i++) ;
     i_est = i ;
     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_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) 
  {
     *pry_max-- ;
     for(i=0;i<l_proy;i++) pry[i] = pry_cod[j].pry[i] ;
     for(;j<*pry_max;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 ;
   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 ;
  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 *tra,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 ;
  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_esta ;i++) tra[i] = num_tra[j].est[i] ;
     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_esta;i++) num_tra[j].est[i] = num_tra[j+1].est[i] ;
	   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 est,int lin,int rut,char *pry, char *cue, int num, char tipo, char *buf, TNUM *num_tra, int *num_max)
{
   int i,j, aux ;
   char atra[l_esta+2],apry[l_proy+2],anum[l_nume+2],acue[l_cuen+2],atip;
   aux = 0;
   bus_num(lin,rut,atra,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_esta ;i++) num_tra[j].est[i] = num_tra[j+1].est[i] ;
	    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_esta ;i++) num_tra[*num_max-1].est[i] = buf[est+i] ;
   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,largob, largoc;
  char spry[l_proy+4], scue[l_cuen+4], snumero[l_nume+4],stra[l_esta+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';
  largob = strlen(buf);
  largoc = strlen(cuf);
  
  if (buf[posin]=='E') 
  	bus_num(plin,prut,stra,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<9 && buf[pest+i]!=' ' && i<largob;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<largoc; i++)
//     	if (i<=5)
//     	{
      	for (it=clid_only;it<(clid_only+5) && isdigit(cuf[it]) && it<largoc ; 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' && (clid_tena+j)<largoc)
     		j++;
		if (j<=8)
		{
     		for (it=clid_tena;it<(clid_tena+8) && isdigit(cuf[it]) && it <largoc ; it++) 
     			tel[k++] = cuf[it] ;
     	}
     	else if (j>5 && buf[posin+9]=='T' && buf[posin+17]=='T' && buf[ppri]=='A')
     	{
     		for (it=ppri+6; buf[it]!='\r' && buf[it]!='\n' && buf[it]!='\0' && it < largob; it++) 
     		{
     			if isdigit(buf[it])
     				tel[k++] = buf[it] ;
     		}		
     		
     	} 
     	else
     		tel[k++] = '*' ;
     		
     }
     else 
     {
	    tel[k++] = '*' ;
     }
  }
  tel[k++] = ' ' ;
  if ((plin>0) && (buf[posin+17]=='T') && (ptip =='O')) 
  {
     tel[k++] = buf[plin] ; tel[k++] = buf[plin+1] ; tel[k++] = buf[plin+2] ;
  }
  else if ((plin>0) && (buf[posin+17]=='T') && (ptip =='I'))
  {
     tel[k++] = buf[plin] ; tel[k++] = buf[plin+1] ; tel[k++] = buf[plin+2] ;
  }
  else if ((plin>0) && (buf[posin+17]!='T'))
  {
     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++] = ' ' ;
  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(pest,plin,prut,spry,scue,it,atip,buf,num_tra,num_max) ;
  ka=k ;
  if (((cuf[posin+30] =='X') || (cuf[posin+30] ==' ')) || (cuf[posin+1] =='&' ||cuf[posin+2] =='\r'))
  { 
  	for (; it<largob &&  it<(pnum+23) && buf[it]!='\r' && buf[it]!='\n' && buf[it]!=' ' && buf[it]!='\0' && isdigit(buf[it]) ; it++) 
    	 if (isdigit(buf[it])) 
     		tel[k++] = buf[it] ;
  }
  else
  {
     for (i=clid_tena;cuf[i]!='X' && i<largoc;i++)
    	 if (isdigit(cuf[i])) 
     		tel[k++] = cuf[i] ;
     	
  }
  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) && (buf[posin+17]=='T') && (ptip =='O' || ptip =='T'))
  {  
     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 if ((prut>0) && (buf[posin+17]=='T') && (ptip =='I'))
  {
     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 if ((prut>0) && (buf[posin+17]!='T'))
  {
     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++] = ' ' ;
  if (tuf[posin+4]==':')						/* tiempo ring */
  {
	  for(j=0;j<5;j++)	tel[k++]=tuf[posin+2+j];
  }
  else
  {
	  tel[k++] = '0'; tel[k++] = '0'; tel[k++] = ':'; tel[k++] = '0'; tel[k++] = '0';
  }
  tel[k++] = ' ' ;
  if (buf[posin]!='E')
  	tel[k++] = '*' ;		// anexo transferido
  else
  {
  	for (i=0;i<l_esta && stra[i]!=' ';i++)
  		tel[k++] = stra[i];	
  }
  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+3 ;
      *pri_N_s  = pred+6 ;
      *num_N_s  = pred+6 ;
      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+3 ;
      *pri_N_s  = i+vpri+6 ;
      *num_N_s  = i+vnum+6 ;
  }
  else 
  {
      *fech_N_s = posin ;
      *hor_N_s  = posin ;
      *dur_N_s  = posin+3 ;
      *pri_N_s  = posin+6 ;
      *num_N_s  = posin+6 ;
  }
  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-5;
  if ((buf[posin]=='A' || buf[posin]=='C') && (*dur_N_s+1)>largo) *dur_N_s=largo+3;
  if ((*pri_N_s+2)>largo) *pri_N_s=6+largo;
  if ((*num_N_s+2)>largo) *num_N_s=6+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])) ;
} 


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, *duf ;
    int i,li ;
    char lla_ent,lla_sal,lla_rut,lla_tra,aux ;
    int  fech_N_s,hor_N_s,dur_N_s,num_N_s,pri_N_s ;
	BOOL primera_linea, otras_lineas, cambio_linea;  
    cuf = ruf ;  
    duf = tuf ;
	aux = 0;
    aux = strlen(buf);
    cuf = ruf ;  
    duf = tuf ;
    _fmode = O_BINARY ;
    lla_sal =0 ; lla_ent=0 ; lla_rut=0 ; lla_tra=0 ; 
    // detecta si es primera linea u otras lineas
    if (strlen(buf)>(posin+40)) 
        primera_linea = isalpha(buf[posin]);
    else 
        primera_linea = FALSE;
    aux = strlen(buf);
    if (strlen(buf)>(posin+1)) 
    {
       if (buf[posin+1]=='&') 
           otras_lineas = TRUE; 
    }
    	
    // incremento de contador de lineas
    if (primera_linea) 
    { 
        cont_buf = 0; 
        cambio_linea = TRUE; 
    }
    else if (hubo_comienzo && otras_lineas && cont_buf<2) 
    { 
        cont_buf++; 
        cambio_linea = TRUE; 
    }
    if (!hubo_comienzo) 
        hubo_comienzo = primera_linea;
    if (cambio_linea && hubo_comienzo) 
        strcpy(lineas[cont_buf],buf);

	if (  cont_buf==2 && hubo_comienzo)
	{ 
	   cont_buf =0; 
	   hubo_comienzo = FALSE;
	   strcpy(buf,lineas[0]);
	   strcpy(cuf,lineas[1]); 
	   strcpy(duf,lineas[2]);
	   posi_fe(&fech_N_s,&hor_N_s,&dur_N_s,&pri_N_s,&num_N_s,vhor,vdurac,vprinum,vnumero,buf) ;
	   aux = 0;
	   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) ;
	   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') && ((buf[vestac-2]=='D' && buf[vestac-1]=='N') || (buf[vestac-2]=='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') && ((buf[vruta-1]=='D' && buf[vruta]=='N') || (buf[vruta-1]=='A' && buf[vruta]=='T')) && ((buf[vestac-2]=='T' || buf[vestac-2]=='A') && isdigit(buf[vestac-1])) ;
	   lla_rut = (buf[posin]=='N' || buf[posin]=='E' || buf[posin]=='S') && ((buf[vestac-2]=='T' || buf[vestac-2]=='A') && isdigit(buf[vestac-1])) && ((buf[vruta-1]=='A' || buf[vruta-1]=='T') && isdigit(buf[vruta])) ;
	   lla_tra = buf[posin]=='L' && ((buf[vestac-2]=='D' && buf[vestac-1]=='N') || (buf[vestac-2]=='A' && buf[vestac-1]=='T')) && ((buf[vruta-1]=='D' && buf[vruta]=='N') || (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(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(vruta+1,vestac+2,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(vruta+1,vestac+2,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+2,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(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';
		  }
	   }
	}
}