<% PUBLIC mUID, mUSER LOCAL VLISTAINT,VPARIDAD,TMFIL,PREFIL,PREFIL2,TMFIL2,XREDONDEO,ABUS mUSER=" " mUID=Request.QueryString('uid') 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('PRECIOS') USE DATABASE\PRECIOS IN 0 ORDER SALTO SHARED ENDIF IF !USED('STOCK') USE DATABASE\STOCK IN 0 SHARED *ORDER SALTO SHARED ENDIF IF !USED('SUCURSAL') USE DATABASE\SUCURSAL IN 0 SHARED ENDIF IF !USED('PROVEEDO') USE DATABASE\PROVEEDO IN 0 ORDER CODIGO SHARED ENDIF IF !USED('GRUPO') USE DATABASE\GRUPO IN 0 ORDER DESCRI SHARED ENDIF IF !USED('SUBG') USE DATABASE\SUBG IN 0 ORDER DESCRI SHARED ENDIF IF !USED('EMPRE') USE DATABASE\EMPRE IN 0 ORDER EMPRESA SHARED ENDIF IF !USED('PREGUNTA') USE DATABASE\PREGUNTA IN 0 ORDER FEC_PREG SHARED ENDIF IF !USED('CONTROL') USE DATABASE\CONTROL IN 0 SHARED GO TOP IN CONTROL ENDIF VPARIDAD=CONTROL.PARIDAD VLISTAINT=CONTROL.LISTAINT IF !USED('DESCUENT') USE DATABASE\DESCUENT IN 0 SHARED ENDIF IF !USED('LISTAS') USE DATABASE\LISTAS IN 0 SHARED ENDIF IF SEEK(VLISTAINT,"LISTAS","LISTA") XREDONDEO=LISTAS.REDONDEO2 ELSE XREDONDEO=0 ENDIF IF !USED('recargos') USE DATABASE\RECARGOS IN 0 SHARED ENDIF IF !USED('PARTES') USE DATABASE\PARTES IN 0 ORDER SALTO SHARED SELE PARTES SEEK VAL(Request.QueryString('articulo')) ENDIF PREFIL="F"+SYS(2015) PREFIL2="WEB\TEMP\"+PREFIL TMFIL="F"+SYS(2015) TMFIL2="WEB\TEMP\"+TMFIL ABUS="PARTES.FILTROWEB=.F. .AND. Partes.FAMILIA = "+STR(PARTES.FAMILIA)+" .AND. Partes.FAMILIA != 0" SELECT TOP 20 Partes.parte, Partes.codigo, Partes.descri, Partes.salto, Recargos.recargo, Proveedo.dealer, Precios.precio as precio_o, Precios.iva, Precios.moneda, Precios.fecha, ; Partes.imagen1, 9999999 as STOCK2, 999999999.99 AS PRECIO2, (SELECT SUM(Stock.stockact) FROM master!stock WHERE stock.salto=partes.salto) as stock, Proveedo.codigo as pcodigo, descuento; FROM master!partes LEFT OUTER JOIN master!proveedo ON Partes.dealer = Proveedo.codigo ; LEFT OUTER JOIN master!precios ON Partes.salto = Precios.salto .and. Proveedo.dealer = Precios.dealer ; LEFT OUTER JOIN recargos ON recargos.lista = VLISTAINT .and. (precios.precio>=recargos.rangoi .and. precios.precio<=recargos.rangos and vot=2) ; LEFT OUTER JOIN descuent ON partes.salto = descuent.salto .and. Proveedo.codigo = descuent.proveedo .and. descuent.lista = VLISTAINT ; WHERE &ABUS; ORDER BY Partes.parte; INTO TABLE &PREFIL2 SELECT *, iif(!empty(precio_o),OBTENER_PRECIO(precio_o, recargo, iva, XREDONDEO)-iif(!isnull(descuento),descuento,0),0)*IIF(moneda=2,VPARIDAD,1) as precio_r, ; iif(!empty(precio_o),OBTENER_PRECIO(precio_o, recargo, iva, XREDONDEO)-iif(!isnull(descuento),descuento,0),0) as precio; FROM &PREFIL2; INTO TABLE &TMFIL2 IF EOF() APPE BLAN ENDIF USE IN &PREFIL %>

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

<%=TT("Compras")%>

<%=mUSER%>

<%=TT("¿Qué está buscando?")%>  " style="font-weight: bold">

] RETU=RETU+[ ] RETU=RETU+[ ] RETU=RETU+[ ] RETU=RETU+[] ENDIF IF PREGUNTA.fec_resp<>{//} RETU=RETU+[ ] RETU=RETU+[ ] RETU=RETU+[ ] RETU=RETU+[ ] RETU=RETU+[ ] ENDIF IF PREGUNTA.fec_preg<>{//} .or. PREGUNTA.fec_resp<>{//} RETU2=RETU2+[

<%=TT("Categorías de Productos")%>:

 

<% ACTBAS=ALIAS() LISTA_GRUPOS="" IF Request.QueryString('grupo')=="" SELE GRUPO SCAN TOTGRU=0 SELE PARTES ACTREC=RECNO() COUNT FOR SUBSTR(PARTES.GRUPO,1,2)=GRUPO.GRUPO TO TOTGRU GO ACTREC IN PARTES SELE GRUPO IF TOTGRU>0 LISTA_GRUPOS=LISTA_GRUPOS+[
  • ]+PROPER(GRUPO.DESCRI)+[(]+ALLTRIM(STR(TOTGRU))+[)]+[

  • ] ENDIF ENDSCAN ELSE SELE GRUPO SET ORDER TO GRUPO SEEK Request.QueryString('grupo') IF FOUND() LISTA_GRUPOS=LISTA_GRUPOS+[

    < ]+PROPER(GRUPO.DESCRI)+[

    ] ENDIF SELE SUBG SCAN FOR SUBG.GRUPO==Request.QueryString('grupo') TOTGRU=0 SELE PARTES ACTREC=RECNO() FILGRU=Request.QueryString('grupo')+SUBG.SUB COUNT FOR PARTES.GRUPO==FILGRU TO TOTGRU GO ACTREC IN PARTES SELE SUBG IF TOTGRU>0 LISTA_GRUPOS=LISTA_GRUPOS+[

        ]+[] LISTA_GRUPOS=LISTA_GRUPOS+[]+PROPER(SUBG.DESCRI)+[(]+ALLTRIM(STR(TOTGRU))+[)]+[

    ] ENDIF ENDSCAN ENDIF SELE &ACTBAS RETURN LISTA_GRUPOS %>

     

     

    <%=TT("Detalle del Artículo")%>

     

    <% ARTICS="" IF !EMPTY(PARTES.IMAGEN1) PICTT="ficha\"+REPLICATE("0",7-LEN(ALLTRIM(STR(PARTES.SALTO))))+ALLTRIM(STR(PARTES.SALTO))+"-1.JPG" ARTICS=[

    ] ENDIF RETURN ARTICS %>

    <%=TT("Precio Final")%> <% LOCAL xRECARGO,P1,P2,VLISTAINT,VREDONDEO,VCOSTO,VMONEDA,xDESCUENTO PUBLIC punitario ACTBAS=ALIAS() punitario=" " VLISTAINT=CONTROL.LISTAINT VREDONDEO=0 IF SEEK(VLISTAINT,"LISTAS","LISTA") VREDONDEO=LISTAS.REDONDEO2 ENDIF VCOSTO=0 VMONEDA=0 SELE PARTES SEEK VAL(Request.QueryString('articulo')) IF SEEK(PARTES.DEALER,"PROVEEDO","CODIGO") IF SEEK(STR(PARTES.SALTO)+PROVEEDO.DEALER,"PRECIOS","SALTO") VCOSTO=PRECIOS.PRECIO VMONEDA=PRECIOS.MONEDA ENDIF ENDIF xRECARGO=OBTENER_RECARGO(VCOSTO, VLISTAINT, 2, ("RECARGOS")) xDESCUENTO=OBTENER_DESCUENTO(PARTES.SALTO,PROVEEDO.CODIGO,VLISTAINT,"DESCUENT") P1=OBTENER_PRECIO(VCOSTO, xRECARGO, PRECIOS.IVA, VREDONDEO)-xDESCUENTO IF VMONEDA=2 P2=P1*CONTROL.PARIDAD ARET=ALLTRIM(SUCURSAL.SIMBOLO2)+" "+ALLTRIM(STR(P1,12,2))+" ("+ALLTRIM(SUCURSAL.SIMBOLO)+" "+ALLTRIM(STR(P2,12,2))+")" punitario=ALLTRIM(SUCURSAL.SIMBOLO2)+" "+ALLTRIM(STR(P1,12,2)) ELSE ARET=ALLTRIM(SUCURSAL.SIMBOLO)+" "+ALLTRIM(STR(P1,12,2)) punitario=ARET ENDIF SELE &ACTBAS RETURN ARET %>  
    <%=TT("Fecha de Costo")%> <%=IIF(!EOF('PRECIOS'),DTOC(PRECIOS.FECHA),"")%> 
    <%=TT("Artículo")%> <%=partes.parte%> 
    <%=TT("Código")%> <%=partes.codigo%> 
    <%=TT("Descripción")%> <%=partes.descri%> 
    <%=TT("Marca")%> <% SEEK PARTES.EMPRESA IN EMPRE IF FOUND('EMPRE') RETURN EMPRE.DESCRI ELSE RETURN "-" ENDIF %>
    <%=TT("Disponibles")%> <% RSTOCK=0 CALCULATE SUM(STOCK.STOCKACT) FOR stock.salto=partes.salto TO RSTOCK IN STOCK RETURN STR(RSTOCK)+IIF(PARTES.DISCONT," "+TT("Discontinuado"),"") %>  
    <%=TT("Información Adicional")%> <%=PARTES.NOTA%> 

    <%=TT("Cantidad a Comprar")%>

    <% ARTICS="" IF !EMPTY(PARTES.IMAGEN2) PICTT="ficha\"+REPLICATE("0",7-LEN(ALLTRIM(STR(PARTES.SALTO))))+ALLTRIM(STR(PARTES.SALTO))+"-2.JPG" ARTICS=[] IF !EMPTY(PARTES.IMAGEN3) ARTICS=ARTICS+[       ] ENDIF ENDIF IF !EMPTY(PARTES.IMAGEN3) PICTT="ficha\"+REPLICATE("0",7-LEN(ALLTRIM(STR(PARTES.SALTO))))+ALLTRIM(STR(PARTES.SALTO))+"-3.JPG" ARTICS=ARTICS+[] IF !EMPTY(PARTES.IMAGEN4) ARTICS=ARTICS+[       ] ENDIF ENDIF IF !EMPTY(PARTES.IMAGEN4) PICTT="ficha\"+REPLICATE("0",7-LEN(ALLTRIM(STR(PARTES.SALTO))))+ALLTRIM(STR(PARTES.SALTO))+"-4.JPG" ARTICS=ARTICS+[] ENDIF RETURN ARTICS %>

    <%=TT("Consultas")%>

    <%=TT("Fecha")%>

    <%=TT("Usuario")%>

    <%=TT("Consulta")%>

    <% ALI=ALIAS() RETU="" RETU2="" SELE PREGUNTA SCAN FOR PREGUNTA.SALTO=PARTES.SALTO RETU="" IF PREGUNTA.fec_preg<>{//} RETU=RETU+[

    ]+DTOC(PREGUNTA.fec_preg)+[

    ]+PROPER(PREGUNTA.pregunto)+[]+PREGUNTA.pregunta+[

    ]+DTOC(PREGUNTA.fec_resp)+[

    ]+PROPER(PREGUNTA.respondio)+[]+PREGUNTA.respuesta+[
    ]+RETU+[
    ]+; [] ENDIF ENDSCAN SELE &ALI RETURN RETU2 %>

    " name="Pregunta" style="font-weight: bold">

     

    <%=TT("Otros Artículos Similares")%>

    <% ARTICS=[] UCOLOR="#F3FFFF" actpag=VAL(Request.QueryString('actpag')) IF actpag=0 actpag=1 ENDIF PAG_RECS=20 actrec=(actpag-1)*PAG_RECS+1 GO actrec DO WHILE !EOF() .AND. RECNO()<=ACTREC+PAG_RECS-1 IF UCOLOR=[#F3FFFF] UCOLOR=[#EEFFFF] ELSE UCOLOR=[#F3FFFF] ENDIF PICTT="" ARTICS=ARTICS+[] XST="" IF !ISNULL(STOCK) XST=STR(STOCK) ENDIF XPR="" IF !ISNULL(PRECIO) XPR=ALLTRIM(IIF(MONEDA=2,SUCURSAL.SIMBOLO2,SUCURSAL.SIMBOLO))+" "+ALLTRIM(STR(PRECIO,12,2)) ENDIF XFE="" IF !ISNULL(FECHA) XFE=DTOC(FECHA) ENDIF HREF=[] IF !EMPTY(IMAGEN1) PICTT="mini\"+REPLICATE("0",7-LEN(ALLTRIM(STR(SALTO))))+ALLTRIM(STR(SALTO))+"-1.JPG" ARTICS=ARTICS+[] ELSE ARTICS=ARTICS+[] ARTICS=ARTICS+[] ARTICS=ARTICS+[] *** STOCK ARTICS=ARTICS+[] *** PRECIO ARTICS=ARTICS+[] ARTICS=ARTICS+[] SKIP ENDDO RETURN ARTICS %>

    <%=TT("Foto")%>

    <%=TT("Artículo")%>

    <%=TT("Código")%>

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

    <%=TT("Stock")%>

    <%=TT("Precio")%>

    ] ARTICS=ARTICS+HREF+[] ENDIF ARTICS=ARTICS+[]+HREF+PARTE+[]+HREF+CODIGO+[]+HREF+DESCRI+[]+XST+[]+XPR+[

     

    <% actpag=VAL(Request.QueryString('actpag')) IF actpag=0 actpag=1 ENDIF PAGSTXT="" PAG_RECS=20 TNUMS=CEILING(RECCOUNT()/PAG_RECS) IF actpag>1 PAGSTXT=PAGSTXT+[<< ]+TT("Anterior")+[ ] ENDIF FOR T= 1 TO TNUMS PAGSTXT=PAGSTXT+[]+ALLTRIM(STR(T))+[ ]+IIF(T]+TT("Siguiente")+[ >>] ENDIF RETURN PAGSTXT %>
     
       

     

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

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

    www.satnetwork.com.ar

    <% RELEASE PUNITARIO, mUID, mUSER FILDEL="WEB\TEMP\"+ALIAS()+".*" USE IN ALIAS() USE IN DESCUENT USE IN WEBREG USE IN PRECIOS USE IN STOCK USE IN SUCURSAL USE IN PROVEEDO USE IN GRUPO USE IN SUBG USE IN EMPRE USE IN PREGUNTA USE IN RECARGOS USE IN LISTAS USE IN PARTES USE IN CONTROL ERASE &FILDEL %>