Ayuda Urgente (por Favor)
Publicado por Deysi (14 intervenciones) el 29/08/2005 21:25:21
necesito modificar este codigo que cuando se tranfiera una llamada
a otra troncal no me aparesca como XTRANFER sino cono TRANFER.
y que me la coloque en la siguiente linea.
AYUDENDEM POR FAVOR
EXT TRK MM:DD STT.TIME DURATION NUMBER DIALED ACC.CODE AUTH
201 706 08:23 09:20:13 00:00:05 TRANSFER
205 703 08:23 09:16:33 00:04:20 TRANSFER
208 701 08:23 09:20:35 00:00:31 INCOMING
208 703 08:23 09:21:10 00:00:22 xINCOMING0
201 703 08:23 09:21:32 00:00:17 xTRANSFER
function Decodificacion_Transfer(Dato:string):string;
begin
Result:='';
Reg.IdTransf:='';
Reg.ExtDest:='';
Clase_BanderaTR:=CLASE_NTR;
if (dTrama.TraIni1>0)and(dTrama.LetraTra1<>'') then
if Copy(Dato,dTrama.TraIni1,Length(dTrama.LetraTra1))=dTrama.LetraTra1 then
begin
//AQUI DETERMINA QUE ES UN IDENTIFICADOR DE TRANSFERENCIA INICIAL
Reg.IdTransf:=Copy(Dato,dTrama.TraIni1,Length(dTrama.LetraTra1));
Clase_BanderaTR:=CLASE_TRI;
if dTrama.ExtIni2>0 then begin
Reg.ExtDest :=Copy(Dato,dTrama.ExtIni2,dTrama.ExtLen2);
Reg.ExtDest :=Limpia_numeros(Reg.ExtDest);
Clase_BanderaTR:=CLASE_TRN;
if Reg.ExtDest='' then
Clase_BanderaTR:=CLASE_NTR;
end;
end;
if (Reg.IdTransf='')and(dTrama.TraIni2>0)and(dTrama.LetraTra2<>'') then
if Copy(Dato,dTrama.TraIni2,Length(dTrama.LetraTra2))=dTrama.LetraTra2 then
begin
//AQUI DETERMINA QUE ES UN IDENTIFICADOR DE TRANSFERENCIA FINAL
Reg.IdTransf:=Copy(Dato,dTrama.TraIni2,Length(dTrama.LetraTra2));
Clase_BanderaTR:=CLASE_TRF;
if dTrama.ExtIni2>0 then begin
Reg.ExtDest :=Copy(Dato,dTrama.ExtIni2,dTrama.ExtLen2);
Reg.ExtDest :=Limpia_numeros(Reg.ExtDest);
Clase_BanderaTR:=CLASE_TRN;
if Reg.ExtDest='' then
Clase_BanderaTR:=CLASE_NTR;
end;
end;
if (dTrama.TraIni1=0)and(dTrama.TraIni2=0)and
(dTrama.LetraTra1='')and(dTrama.LetraTra2='') then
if dTrama.ExtIni2>0 then begin
Reg.ExtDest :=Copy(Dato,dTrama.ExtIni2,dTrama.ExtLen2);
Reg.ExtDest :=Limpia_numeros(Reg.ExtDest);
Clase_BanderaTR:=CLASE_TRN;
if Reg.ExtDest='' then
Clase_BanderaTR:=CLASE_NTR;
end;
Result:=Reg.IdTransf;
end;
a otra troncal no me aparesca como XTRANFER sino cono TRANFER.
y que me la coloque en la siguiente linea.
AYUDENDEM POR FAVOR
EXT TRK MM:DD STT.TIME DURATION NUMBER DIALED ACC.CODE AUTH
201 706 08:23 09:20:13 00:00:05 TRANSFER
205 703 08:23 09:16:33 00:04:20 TRANSFER
208 701 08:23 09:20:35 00:00:31 INCOMING
208 703 08:23 09:21:10 00:00:22 xINCOMING0
201 703 08:23 09:21:32 00:00:17 xTRANSFER
function Decodificacion_Transfer(Dato:string):string;
begin
Result:='';
Reg.IdTransf:='';
Reg.ExtDest:='';
Clase_BanderaTR:=CLASE_NTR;
if (dTrama.TraIni1>0)and(dTrama.LetraTra1<>'') then
if Copy(Dato,dTrama.TraIni1,Length(dTrama.LetraTra1))=dTrama.LetraTra1 then
begin
//AQUI DETERMINA QUE ES UN IDENTIFICADOR DE TRANSFERENCIA INICIAL
Reg.IdTransf:=Copy(Dato,dTrama.TraIni1,Length(dTrama.LetraTra1));
Clase_BanderaTR:=CLASE_TRI;
if dTrama.ExtIni2>0 then begin
Reg.ExtDest :=Copy(Dato,dTrama.ExtIni2,dTrama.ExtLen2);
Reg.ExtDest :=Limpia_numeros(Reg.ExtDest);
Clase_BanderaTR:=CLASE_TRN;
if Reg.ExtDest='' then
Clase_BanderaTR:=CLASE_NTR;
end;
end;
if (Reg.IdTransf='')and(dTrama.TraIni2>0)and(dTrama.LetraTra2<>'') then
if Copy(Dato,dTrama.TraIni2,Length(dTrama.LetraTra2))=dTrama.LetraTra2 then
begin
//AQUI DETERMINA QUE ES UN IDENTIFICADOR DE TRANSFERENCIA FINAL
Reg.IdTransf:=Copy(Dato,dTrama.TraIni2,Length(dTrama.LetraTra2));
Clase_BanderaTR:=CLASE_TRF;
if dTrama.ExtIni2>0 then begin
Reg.ExtDest :=Copy(Dato,dTrama.ExtIni2,dTrama.ExtLen2);
Reg.ExtDest :=Limpia_numeros(Reg.ExtDest);
Clase_BanderaTR:=CLASE_TRN;
if Reg.ExtDest='' then
Clase_BanderaTR:=CLASE_NTR;
end;
end;
if (dTrama.TraIni1=0)and(dTrama.TraIni2=0)and
(dTrama.LetraTra1='')and(dTrama.LetraTra2='') then
if dTrama.ExtIni2>0 then begin
Reg.ExtDest :=Copy(Dato,dTrama.ExtIni2,dTrama.ExtLen2);
Reg.ExtDest :=Limpia_numeros(Reg.ExtDest);
Clase_BanderaTR:=CLASE_TRN;
if Reg.ExtDest='' then
Clase_BanderaTR:=CLASE_NTR;
end;
Result:=Reg.IdTransf;
end;
Valora esta pregunta
0