<% PUBLIC mUID, mUSER mUSER=" " mUID=Request.QueryString('uid') IF !USED('SUCURSAL') USE DATABASE\SUCURSAL IN 0 SHARED ENDIF IF !USED('WEBREG') USE DATABASE\WEBREG IN 0 ORDER UID SHARED IF val(mUID)>0 SEEK VAL(mUID) IN WEBREG IF FOUND('WEBREG') mUSER=TT("Usuario")+": "+PROPER(ALLTRIM(WEBREG.RAZON))+" " ENDIF ENDIF ENDIF IF !USED('tecnicos') USE DATABASE\tecnicos IN 0 SHARED ENDIF IF !USED('abonados') USE DATABASE\abonados IN 0 SHARED ENDIF %>

><%=TT("> <%=TT("> <% IF MOD_ECOMMERCE RETURN []+TT(] ENDIF %> <% IF MOD_ESTADOS RETURN []+TT(] ENDIF %> <% IF MOD_ABONADOSENINTERNET .AND. WEBREG.ACCESO>3 RETURN []+TT(] ENDIF %> <%=TT(">

<%=TT("Consulta de Contratos de Mantenimiento")%>

<%=mUSER%>

<% IF !EMPTY(mUID) XRES=[
]+; [

]+TT("Nº de Contrato")+[: ]+; [ ]+; [] RETURN XRES ENDIF %>

<% IF !EMPTY(mUID) RETURN "" ENDIF %> <% IF !EMPTY(mUID) .and. Request.QueryString('av')="1" Yday=[] for Xcont = 1 to 31 Yday=Yday+[] next Ymonth=[] for Xcont = 1 to 12 Ymonth=Ymonth+[] next Yyear=[] for Xcont = year(date()) to year(date()) -10 step -1 Yyear=Yyear+[] next LOCAL TECS TECS="" SET ORDER TO NOMBRE IN TECNICOS GO TOP IN TECNICOS DO WHILE !EOF("TECNICOS") TECS=TECS+"" SKIP IN TECNICOS ENDDO SET TEXTMERGE ON TEXT TO XRES NOSHOW

Búsqueda Avanzada

Razon Social: Compañía:

Sucursal: Técnico Asignado:

ENDTEXT RETURN XRES ENDIF %>

  <% IF !EMPTY(mUID) LOCAL TMFIL,TMFIL2,ABUS,fcliente,fcompania,ftecnico,fsucursal,PAG_RECS,actpag,XRES,xref,TNUMS TMFIL="F"+SYS(2015) TMFIL2="WEB\TEMP\"+TMFIL ABUS="abonados.CODIGO>0" fcliente=UPPER(Request.form('fcliente')) fcompania=UPPER(Request.form('fcompania')) ftecnico=UPPER(Request.form('ftecnico')) fsucursal=UPPER(Request.form('fsucursal')) IF !EMPTY(fcliente) ABUS=ABUS+[ .AND. abonados.cliente="]+fcliente+["] ENDIF IF !EMPTY(fsucursal) ABUS=ABUS+[ .AND. abonados.sucursal="]+fsucursal+["] ENDIF IF !EMPTY(fcompania) ABUS=ABUS+[ .AND. abonados.compania="]+fcompania+["] ENDIF IF !EMPTY(ftecnico) .AND. ftecnico<>"Todos" ABUS=ABUS+[ .AND. abonados.tecnico="]+UPPER(ftecnico)+["] ENDIF SELECT TOP 1000 abonados.codigo, abonados.cliente, abonados.compania, abonados.sucursal, abonados.cober, abonados.tecnico, abonados.proxima; FROM master!abonados; WHERE &ABUS ; ORDER BY abonados.codigo; INTO TABLE &TMFIL2 XRES="" PAG_RECS=50 actpag=0 IF !EOF() SET TEXTMERGE ON TEXT TO XRES NOSHOW

<>

 

ENDTEXT mUID=Request.QueryString('uid') actpag=VAL(Request.QueryString('actpag')) IF actpag=0 actpag=1 ENDIF ACTREC=(actpag-1)*PAG_RECS+1 GO ACTREC DO WHILE !EOF() .AND. RECNO()<=ACTREC+PAG_RECS-1 xref=[ href="contrato.htm?uid=]+mUID+[&contrato=]+alltrim(str(codigo))+["] xback=[ background="arte/off.bmp"] IF !EMPTY(proxima) .AND. !EMPTY(tecnico) .AND. proxima<=DATE() xback="" ENDIF XRES=XRES+[] XRES=XRES+[ ] XRES=XRES+[ ] XRES=XRES+[ ] XRES=XRES+[ ] XRES=XRES+[ ] XRES=XRES+[ ] XRES=XRES+[ ] XRES=XRES+[] SKIP ENDDO XRES=XRES+[

<>

<>

<>

<>

<>

<>

<>

]+STR(codigo)+[]+cliente+[]+compania+[]+sucursal+[]+cober+[]+tecnico+[]+dtoc(proxima)+[
] ENDIF XRES=XRES+[

] PAGSTXT="" TNUMS=CEILING(RECCOUNT()/PAG_RECS) IF actpag>1 XRES=XRES+PAGSTXT+[<< ]+TT("Anterior")+[ ] ENDIF FOR T= 1 TO TNUMS XRES=XRES+PAGSTXT+[]+ALLTRIM(STR(T))+[ ]+IIF(T]+TT("Siguiente")+[ >>] ENDIF XRES=XRES+[

] USE IN &TMFIL FILDEL="WEB\TEMP\"+TMFIL+".*" ERASE &FILDEL RETURN XRES ELSE XRES=[

Debe iniciar sesión para poder visualizar los contratos.

] XRES=XRES+[

 

] XRES=XRES+[

INGRESE DESDE AQUÍ

] RETURN XRES ENDIF %> <% IF !EMPTY(mUID) SET TEXTMERGE ON TEXT TO XRES NOSHOW

 

<> | <>

ENDTEXT RETURN XRES ENDIF %>

 

<%=TT("Servicios al Cliente")%>,

<%=TT("Complemento del Sistema SatNetwork SAT")%>

www.satnetwork.com.ar

<% RELEASE mUID, mUSER USE IN SUCURSAL USE IN abonados USE IN tecnicos USE IN WEBREG *CLOSE DATABASE %>