<% 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('SERVICE') USE DATABASE\SERVICE 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 .AND. WEBREG.ACCESO>3 RETURN []+TT(] ENDIF %> <%=TT(">

<%=TT("Consulta de Orden de Reparación")%>

<%=mUSER%>

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

]+TT("Nº de Orden")+[: ]+; [ ]+; []+; IIF(WEBREG.AGREGAR .AND. MOD_ORDENESENINTERNET,[],[]) 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 SET TEXTMERGE ON TEXT TO XRES NOSHOW

Búsqueda Avanzada

Modelo: Nº Serie:

Orden Empresa: Estado:

Periodo: Entre el // y el //

ENDTEXT RETURN XRES ENDIF %>

  <% IF !EMPTY(mUID) TMFIL="F"+SYS(2015) TMFIL2="WEB\TEMP\"+TMFIL DO CASE CASE WEBREG.ACCESO=0 .OR. WEBREG.ACCESO=1 ABUS="SERVICE.CLIENTE=WEBREG.RAZON" CASE WEBREG.ACCESO=2 ABUS="SERVICE.DEA=WEBREG.COMPANIA .AND. SERVICE.CVENDEDOR=WEBREG.VENDEDOR" CASE WEBREG.ACCESO=3 ABUS="SERVICE.MARCA=WEBREG.MARCA" CASE WEBREG.ACCESO=4 ABUS="!EMPTY(SERVICE.SERVICE)" ENDCASE fmodelo=UPPER(Request.form('fmodelo')) fserie=UPPER(Request.form('fserie')) festado=UPPER(Request.form('festado')) forden=UPPER(Request.form('forden')) fperiodo=Request.form('fperiodo') fec1=CTOD(Request.form('d1')+"/"+Request.form('m1')+"/"+Request.form('a1')) fec2=CTOD(Request.form('d2')+"/"+Request.form('m2')+"/"+Request.form('a2')) IF !EMPTY(fec1) .AND. EMPTY(fec2) fec2=fec1 ENDIF IF EMPTY(fec1) .AND. !EMPTY(fec2) fec1=fec2 ENDIF IF !EMPTY(fmodelo) ABUS=ABUS+[ .AND. SERVICE.MODELO="]+fmodelo+["] ENDIF IF !EMPTY(forden) ABUS=ABUS+[ .AND. SERVICE.ORDEN="]+forden+["] ENDIF IF !EMPTY(fserie) ABUS=ABUS+[ .AND. SERVICE.SERIE="]+fserie+["] ENDIF IF !EMPTY(festado) .AND. festado<>"Todos" ABUS=ABUS+[ .AND. SERVICE.ESTADO="]+UPPER(festado)+["] ENDIF IF !EMPTY(fperiodo) .AND. fperiodo<>"Todos" .and. !EMPTY(fec1) .AND. !EMPTY(fec2) DO CASE CASE fperiodo="Ingresados" ABUS=ABUS+[ .AND. SERVICE.F_INGRESO>=CTOD("]+DTOC(fec1)+[")] ABUS=ABUS+[ .AND. SERVICE.F_INGRESO<=CTOD("]+DTOC(fec2)+[")] CASE fperiodo="Entregados" ABUS=ABUS+[ .AND. SERVICE.F_ENTREGA>=CTOD("]+DTOC(fec1)+[")] ABUS=ABUS+[ .AND. SERVICE.F_ENTREGA<=CTOD("]+DTOC(fec2)+[")] CASE fperiodo="Reparados" ABUS=ABUS+[ .AND. SERVICE.F_FIN>=CTOD("]+DTOC(fec1)+[")] ABUS=ABUS+[ .AND. SERVICE.F_FIN<=CTOD("]+DTOC(fec2)+[")] *F_CIERRE ENDCASE ENDIF SELECT TOP 1000 SERVICE.SERVICE, SERVICE.ORDEN, SERVICE.SERIE, SERVICE.MARCA, SERVICE.MODELO, SERVICE.ESTADO; FROM master!service; WHERE &ABUS ; ORDER BY Service.service desc; 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 XRES=XRES+[] XRES=XRES+[ ] XRES=XRES+[ ] XRES=XRES+[ ] XRES=XRES+[ ] XRES=XRES+[ ] XRES=XRES+[ ] XRES=XRES+[] SKIP ENDDO XRES=XRES+[

<>

<>

<>

<>

<>

<>

]+service+[]+serie+[]+marca+[]+modelo+[]+estado+[]+orden+[
] 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 sus reparaciones.

] 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 SERVICE USE IN WEBREG *CLOSE DATABASE %>