<% PUBLIC mUID, mUSER, mSER mUSER=" " mUID=Request.QueryString('uid') *IF !DBUSED('MASTER') * OPEN DATABASE DATABASE\MASTER 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 IF !USED('EMPRE') USE DATABASE\EMPRE IN 0 SHARED ENDIF IF !USED('CONTROL') USE DATABASE\CONTROL IN 0 SHARED ENDIF IF !USED('ACCESORI') USE DATABASE\ACCESORI IN 0 SHARED ENDIF IF !USED('SUCURSAL') USE DATABASE\SUCURSAL IN 0 SHARED ENDIF IF !USED('CONSULTA') USE DATABASE\CONSULTA IN 0 SHARED ENDIF IF !USED('COTIZAR') USE DATABASE\COTIZAR IN 0 SHARED ENDIF IF !USED('CLIENTES') USE DATABASE\CLIENTES IN 0 ORDER CODIGO SHARED ENDIF xBU=Request.QueryString('ordenstr') xBU2=ALLTRIM(STR(VAL(Request.form('ordenfrm')))) mSER="" DO CASE CASE VAL(xBU2)>0 mSER=xBU2 CASE VAL(xBU)>0 mSER=xBU ENDCASE SELE ACCESORI SET ORDER TO CODIGO %>

><%=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 Orden de Reparación")%>

<%=mUSER%>

<%=TT("Nº de Orden")%>:  ">

 

<% SELE SERVICE SET ORDER TO SERVICE SET EXACT OFF BU=REPL("0",8-LEN(mSER))+mSER SEEK BU IF !FOUND("SERVICE") .OR. EMPTY(mSER) L1=TT([EL NÚMERO DE ORDEN DE REPARACIÓN INGRESADO NO CORRESPONDE A UN EQUIPO QUE ACTUALMENTE SE ESTÉ REPARANDO EN NUESTRO TALLER.]) L4=TT([VERIFIQUE EL NÚMERO Y VUELVA A INGRESARLO]) SEPARA=[

] IF !EMPTY(mSER) RETURN SEPARA+L1+SEPARA+L4+SEPARA+" "+SEPARA ENDIF ELSE SELE EMPRE SET ORDER TO EMPRESA SEEK SERVICE.EMPRESA SEEK SERVICE.NCLIENTE IN CLIENTES IF FOUND('CLIENTES') 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 *IF WEBREG.EMAIL<>CLIENTES.EMAIL && PARA MAS SEGURIDAD IF ((WEBREG.ACCESO=0 .OR. WEBREG.ACCESO=1) .AND. WEBREG.RAZON!=CLIENTES.RAZON) .OR. (WEBREG.ACCESO=2 .AND. (SERVICE.DEA!=WEBREG.COMPANIA .OR. SERVICE.CVENDEDOR!=WEBREG.VENDEDOR)) .OR. (WEBREG.ACCESO=3 .AND. SERVICE.MARCA!=WEBREG.MARCA) L1=TT([NO TIENE EL NIVEL DE ACCESO NECESARIO PARA CONSULTAR ESTA ORDEN DE REPARACIÓN.]) L4=TT([VERIFIQUE EL NÚMERO Y VUELVA A INGRESARLO]) SEPARA=[

] IF !EMPTY(mSER) GO BOTTOM IN SERVICE SKIP IN SERVICE RETURN SEPARA+L1+SEPARA+L4+SEPARA+" "+SEPARA ENDIF ENDIF ENDIF ENDIF %>

<% IF WEBREG.ACCESO=4 CAMPOSPER="" IF !EMPTY(LDP1) CAMPOSPER=CAMPOSPER+[]+; [] ENDIF IF !EMPTY(LDP2) CAMPOSPER=CAMPOSPER+[]+; [] ENDIF IF !EMPTY(LDP3) CAMPOSPER=CAMPOSPER+[]+; [] ENDIF IF !EMPTY(LDP4) CAMPOSPER=CAMPOSPER+[]+; [] ENDIF IF !EMPTY(LDP5) CAMPOSPER=CAMPOSPER+[]+; [] ENDIF IF !EMPTY(LDP6) CAMPOSPER=CAMPOSPER+[]+; [] ENDIF RETURN CAMPOSPER ENDIF %>
  <%=TT("Nº de Orden de Reparación")%>:   <%=service.service%>
  <%=TT("Orden de Vendedor")%>:   <%=service.orden%>
  <%=TT("Razón Social")%>:   <%=service.cliente%>
  <%=TT("Descripción del Equipo")%>:   <%=service.equipo%>
  <%=TT("Marca")%>:

  <%=IIF(!EMPTY(SERVICE.SERVICE),empre.descri,"")%>

  <%=TT("Modelo")%>:   <%=service.modelo%>
  <%=TT("Nº de Serie")%>:   <%=service.serie%>   <%=TT("Nº de Garantía")%>:   <%=service.ngarantia%>
  <%=TT("Fecha de Ingreso")%>:   <%=dtoc(service.f_ingreso)%>   <%=TT("Fecha de Falla")%>:   <%=dtoc(service.f_falla)%>
  <%=TT("Fecha de Compra")%>:   <%=dtoc(service.fechacomp)%>   <%=TT("Fecha de Compromiso")%>:   <%=dtoc(service.compromiso)%>
  <%=TT("Importe de Reparación")%>:   $ <%=ALLTRIM(STR(SERVICE.MANOOBRA + SERVICE.IMPORTEREP + SERVICE.RECARGO - SERVICE.DESCUENTO - SERVICE.IMPO_ANTI - SERVICE.IMPO_SEÑA,10,2))%>   <%=TT("Nº de Autorización")%>:   <%=ALLTRIM(SERVICE.NAUTORIZA)%>
  ]+LDP1+[:  ]+SERVICE.DP1+[
  ]+LDP2+[:  ]+SERVICE.DP2+[
  ]+LDP3+[:  ]+SERVICE.DP3+[
  ]+LDP4+[:  ]+SERVICE.DP4+[
  ]+LDP5+[:  ]+SERVICE.DP5+[
  ]+LDP6+[:  ]+SERVICE.DP6+[
<% IF WEBREG.ACCESO=4 PARLIST=[

]+; [] SELE COTIZAR SET ORDER TO SERVICE2 GO TOP SEEK STR(VAL(LEFT(SERVICE.SERVICE,8)))+JSUC IF FOUND() PARLIST=PARLIST+[]+; []+; []+; []+; [] XCOTISER=COTIZAR.SERVICE XCOTISUC=COTIZAR.SUCURSAL DO WHILE (COTIZAR.SERVICE=XCOTISER .AND. COTIZAR.SUCURSAL=XCOTISUC) .AND. !EOF() PARLIST=PARLIST+"" PARLIST=PARLIST+[]+; []+; []+; []+; [] PARLIST=PARLIST+"" SKIP ENDDO ELSE PARLIST=PARLIST+[] ENDIF PARLIST=PARLIST+[

]+TT("Partes Utilizadas en la Reparación")+[

]+TT("Cantidad")+[]+TT("Nº Parte")+[]+TT("Descripción")+[]+TT("Falla")+[]+TT("Precio")+[
]+STR(COTIZAR.CANTIDAD)+[ ]+COTIZAR.PARTE+[ ]+COTIZAR.DESCRI+[ ]+COTIZAR.FALLA+[]+STR(COTIZAR.PRECIO,12,2)+[ 

]+TT("NO SE HAN UTILIZADO PARTES EN ESTA REPARACIÓN")+[

] RETURN PARLIST ENDIF %>

<%=TT("Los Siguientes Accesorios se Dejaron Junto al Equipo")%>

<% SELE ACCESORI SEEK STR(1)+STR(SERVICE.SSALTO) ACC="" IF FOUND() DO WHILE (ACCESORI.CODIGO=SERVICE.SSALTO .AND. ACCESORI.TIPO=1) .AND. !EOF() N=" ("+ALLTRIM(ACCESORI.NOTA)+")" ACC=ACC+IIF(LEN(ACC)>0," - ","")+ALLTRIM(ACCESORI.ACCESORIO)+IIF(LEN(N)>3,N,"") SKIP ENDDO ENDIF RETURN ACC %>

 

<%=TT("Estado de la Reparación")%>

<% xestado2="" xestado3="" IF service.estado=TT("PREACREDITADO") xestado2=TT("EQUIPO PREACREDITADO") xestado3=TT("Su equipo se encuentra esperando la verificación de los datos ingresados.") endif IF service.estado=TT("SIN REVISAR") xestado2=TT("EQUIPO SIN REVISAR") xestado3=TT("Su equipo se encuentra esperando la primer revisión técnica.") endif IF service.estado=TT("EN REVISIÓN") xestado2=TT("EQUIPO EN REVISIÓN") xestado3=TT("Se designó un técnico para reparar su equipo, se está diagnosticando.") endif IF service.estado=TT("ASIGNADO A TERCERO") xestado2=TT("EQUIPO ASIGNADO A TERCERO") xestado3=TT("Su equipo se envío a uno de nuestros talleres para ser diagnosticado.") endif IF service.estado=TT("ANULADO") xestado2=TT("REPARACIÓN ANULADA") xestado3=TT("Esta reparación no será realizada por nuestro personal ya que la misma fue anuló.") endif IF service.estado=TT("A PRESUPUESTAR") xestado2=TT("REPARACIÓN A PRESUPUESTAR") xestado3=TT("Se pasará presupuesto antes de continuar con la reparación.") endif IF service.estado=TT("PRESUPUESTADO") xestado2=TT("REPARACIÓN PRESUPUESTADA") xestado3=TT("Se paso al cliente un presupuesto por la reparación.") endif IF service.estado=TT("FALTAN REPUESTOS") xestado2=TT("ESPERANDO REPUESTOS NECESARIOS") xestado3=TT("El equipo se encuentra a la espera de repuestos necesarios para la reparación.") endif IF service.estado=TT("FALTA MANUAL") xestado2=TT("ESPERANDO MANUAL DE REPARACIONES") xestado3=TT("El equipo se encuentra a la espera del manual de reparaciones.") endif IF service.estado=TT("LISTO PARA REPARAR") xestado2=TT("EQUIPO LISTO PARA REPARAR") xestado3=TT("El equipo está listo para ser reparado, en breve se le notificará.") endif IF service.estado=TT("PRES. RECHAZADO") xestado2=TT("PRESUPUESTO RECHAZADO POR EL CLIENTE") xestado3=TT("Usted ha rechazado el presupuesto para esta reparación, la misma no se realizará.") endif IF service.estado=TT("A PRUEBA") xestado2=TT("PUESTO A PRUEBA") xestado3=TT("Se terminó la reparación, estamos verificando el funcionamiento de su equipo.") endif IF service.estado=TT("TERMINADO") xestado2=TT("EQUIPO TERMINADO") xestado3=TT("El equipo está reparado y puede ser retirado de nuestro taller.") endif IF service.estado=TT("NO SE REPARA") xestado2=TT("NO SE REPARA EL EQUIPO") xestado3=TT("Lamentablemente este equipo no puede ser reparado, pase a retirarlo.") endif IF service.estado=TT("CLIENTE AVISADO") xestado2=TT("AVISO DE REPARACION TERMINADA") xestado3=TT("Ya se informó por otro medio que su equipo está reparado. Pase a retirarlo.") endif IF service.estado=TT("ENTREGADO") xestado2=TT("EQUIPO ENTREGADO") xestado3=TT("Este equipo ya fue entregado al cliente.") endif RETURN xestado2+[

]+xestado3 %>

<%=TT("Defecto del Equipo Según el Cliente")%>

 <%=alltrim(service.fallacli)%>

<%=TT("Reparación")%>

 <%=service.reparacion%>

<%=TT("Consultas Realizadas")%>
  <% SELE CONSULTA SEEK SERVICE.SERVICE ORDER SERVICE DESCENDING SELE SERVICE SET ORDER TO SERVICE BU=ALLTRIM(STR(VAL(Request.form('ordenstr')))) BU=REPL("0",8-LEN(BU))+BU SEEK BU IF FOUND() .AND. !EMPTY(mSER) TET=ALLTRIM(Request.form('consultar')) IF LEN(TET)>0 .AND. CONSULTA.CONSULTA<>TET SERVICIOS.AUTONOTA(TT("Mensaje enviado vía Internet"),TT("Mensaje")+": "+TET,"CLIENTE DESDE INTERNET",SERVICE.SSALTO,6) COUU=0 IF RLOCK("CONTROL") REPL CONTROL.ULT_CONSUL WITH CONTROL.ULT_CONSUL+1 COUU=CONTROL.ULT_CONSUL UNLOCK IN CONTROL ENDIF IF COUU>0 SELE CONSULTA INSERT INTO CONSULTA (FECHA, SERVICE, CONSULTA, RESPONDIDA, REFERENCIA) VALUES ; (DATETIME(), SERVICE.SERVICE, TET, .F., COUU) ENDIF ENDIF ELSE GO BOTTOM ENDIF SELE CONSULTA SET ORDER TO SERVICE SEEK SERVICE.SERVICE CONS="" IF FOUND() DO WHILE CONSULTA.SERVICE=SERVICE.SERVICE CONS=CONS+[]+"--- "+TTOC(CONSULTA.FECHA)+"---"+[

] CONS=CONS+[]+TT("CONSULTA")+": "+[]+CONSULTA.CONSULTA+[

] IF !EMPTY(CONSULTA.RESPUESTA) CONS=CONS+[]+"RESPUESTA: "+[]+CONSULTA.RESPUESTA+[

] ENDIF CONS=CONS+"

" SKIP ENDDO ENDIF RETURN CONS %>

<%=TT("Nueva Consulta (Puede enviarnos sus consultas escribiendo en el siguiente cuadro)")%>

">

<% local XDEV, ACC, N XDEV="" IF service.ncliente>0 XDEV=[
]+; []+; [

]+; [

Si aún no ha deshabilitado el encabezado y el pie de página desde su explorador, ]+; [por favor hágalo ahora para que se obtenga una impresión prolija.

] ENDIF RETURN XDEV %>

 

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

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

www.satnetwork.com.ar

<% RELEASE mUID, mUSER, mSER USE IN SERVICE USE IN EMPRE USE IN CONTROL USE IN CONSULTA USE IN ACCESORI USE IN SUCURSAL USE IN CLIENTES USE IN COTIZAR USE IN WEBREG *CLOSE DATABASE %>