<%
	SINLINEAT = 0
	TUBERIAACT = 0
	TUBERIAAIT = 0
	CONEXACT = 0
	CONEXAIT = 0
	VALVULAST = 0
	CONTRAINCENDIOT = 0
	ESPARRAGOST = 0
	PVCT = 0
	PINTURAST = 0
	AUTOMATIZACIONT = 0
	OTROST = 0

	Set Rs14 = server.CreateObject("ADODB.Recordset")
	Sql14 = "SELECT " &_
	"SUM(CASE WHEN LININV = 0 THEN  (CANFFACD * PREFFACD * TCAFFACD) Else 0 End) AS SINLINEA, " &_
	"SUM(CASE WHEN LININV = 1 THEN  (CANFFACD * PREFFACD * TCAFFACD) Else 0 End) AS TUBERIAAC, " &_
	"SUM(CASE WHEN LININV = 2 THEN  (CANFFACD * PREFFACD * TCAFFACD) Else 0 End) AS TUBERIAAI, " &_
	"SUM(CASE WHEN LININV = 3 THEN  (CANFFACD * PREFFACD * TCAFFACD) Else 0 End) AS CONEXAC, " &_
	"SUM(CASE WHEN LININV = 4 THEN  (CANFFACD * PREFFACD * TCAFFACD) Else 0 End) AS CONEXAI, " &_
	"SUM(CASE WHEN LININV = 5 THEN  (CANFFACD * PREFFACD * TCAFFACD) Else 0 End) AS VALVULAS, " &_
	"SUM(CASE WHEN LININV = 6 THEN  (CANFFACD * PREFFACD * TCAFFACD) Else 0 End) AS CONTRAINCENDIO, " &_
	"SUM(CASE WHEN LININV = 7 THEN  (CANFFACD * PREFFACD * TCAFFACD) Else 0 End) AS ESPARRAGOS, " &_
	"SUM(CASE WHEN LININV = 8 THEN  (CANFFACD * PREFFACD * TCAFFACD) Else 0 End) AS PVC, " &_
	"SUM(CASE WHEN LININV = 9 THEN  (CANFFACD * PREFFACD * TCAFFACD) Else 0 End) AS PINTURAS, " &_
	"SUM(CASE WHEN LININV = 10 THEN  (CANFFACD * PREFFACD * TCAFFACD) Else 0 End) AS AUTOMATIZACION, " &_
	"SUM(CASE WHEN LININV = 11 THEN  (CANFFACD * PREFFACD * TCAFFACD) Else 0 End) AS OTROS " &_
	"FROM FFACDET, FFACENC,INVENTARIOS, Lineas " &_
	"WHERE NUMFFACE = NFAFFACD " &_
	"AND CVEINV = CODFFACD " &_
	"AND LININV = CLALIN " &_
	"AND YEAR(FECFFACE) = "& Periodo &" " &_
	"AND CLIFFACE = '"& Cliente &"';"
	Rs14.Open Sql14,Cn1,1,2

		If Isnull(Rs14("SINLINEA")) or Rs14("SINLINEA") ="" Then
		
			SINLINEAF = 0
			TUBERIAACF = 0
			TUBERIAAIF = 0
			CONEXACF = 0
			CONEXAIF = 0
			VALVULASF = 0
			CONTRAINCENDIOF = 0
			ESPARRAGOSF = 0
			PVCF = 0
			PINTURASF = 0
			AUTOMATIZACIONF = 0
			OTROSF = 0
			
		Else
		
			SINLINEAF = Rs14("SINLINEA")
			TUBERIAACF = Rs14("TUBERIAAC")
			TUBERIAAIF = Rs14("TUBERIAAI")
			CONEXACF = Rs14("CONEXAC")
			CONEXAIF = Rs14("CONEXAI")
			VALVULASF = Rs14("VALVULAS")
			CONTRAINCENDIOF = Rs14("CONTRAINCENDIO")
			ESPARRAGOSF = Rs14("ESPARRAGOS")
			PVCF = Rs14("PVC")
			PINTURASF = Rs14("PINTURAS")
			AUTOMATIZACIONF = Rs14("AUTOMATIZACION")
			OTROSF = Rs14("OTROS")
		
		End If	
	
	%>

	<BR>
	<TABLE border="1" cellspacing="0" cellpadding="2"Width="1500">

		<TR Class="TablaD">
			<TD Colspan="13" Align="Center">TOTAL IMPORTE FACTURACION</td>
		</TR>
		<TR Class="TablaD">
			<TD> SIN LINEA </td>
			<TD> TUBERIA ACERO AL CARBON </td>
			<TD> TUBERIA ACERO INOXIDABLE </td>
			<TD> CONEXIONES Y BRIDAS ACERO AL CARBON </td>
			<TD> CONEXIONES Y BRIDAS ACERO INOXIDABLE </td>
			<TD> VALVULAS </td>
			<TD> CONTRAINCENDIOS </td>
			<TD> ESPARRAGOS Y EMPAQUES </td>
			<TD> PVC, CPVC Y DERIVADOS </td>
			<TD> RECUBRIMIENTOS Y PINTURAS </td>
			<TD> AUTOMATIZACION E INSTRUMENTACION </td>
			<TD> OTROS </td>
		</TR>

		<TR Class="TablaH">
			<TD Align="Right"><%= formatnumber(SINLINEAF) %> </td>
			<TD Align="Right"><%= formatnumber(TUBERIAACF) %> </td>
			<TD Align="Right"><%= formatnumber(TUBERIAAIF) %> </td>
			<TD Align="Right"><%= formatnumber(CONEXACF) %> </td>
			<TD Align="Right"><%= formatnumber(CONEXAIF) %> </td>
			<TD Align="Right"><%= formatnumber(VALVULASF) %> </td>
			<TD Align="Right"><%= formatnumber(CONTRAINCENDIOF) %> </td>
			<TD Align="Right"><%= formatnumber(ESPARRAGOSF) %> </td>
			<TD Align="Right"><%= formatnumber(PVCF) %> </td>
			<TD Align="Right"><%= formatnumber(PINTURASF) %> </td>
			<TD Align="Right"><%= formatnumber(AUTOMATIZACIONF) %> </td>
			<TD Align="Right"><%= formatnumber(OTROSF) %> </td>
		</TR>
<%
			SINLINEAT = Cdbl(SINLINEAT) + Cdbl(SINLINEAF)
			TUBERIAACT = Cdbl(TUBERIAACT) + Cdbl(TUBERIAACF)
			TUBERIAAIT = Cdbl(TUBERIAAIT) + Cdbl(TUBERIAAIF)
			CONEXACT = Cdbl(CONEXACT) + Cdbl(CONEXACF)
			CONEXAIT = Cdbl(CONEXAIT) + Cdbl(CONEXAIF)
			VALVULAST = Cdbl(VALVULAST) + Cdbl(VALVULASF)
			CONTRAINCENDIOT = Cdbl(CONTRAINCENDIOT) + Cdbl(CONTRAINCENDIOF)
			ESPARRAGOST = Cdbl(ESPARRAGOST) + Cdbl(ESPARRAGOSF)
			PVCT = Cdbl(PVCT) + Cdbl(PVCF)
			PINTURAST = Cdbl(PINTURAST) + Cdbl(PINTURASF)
			AUTOMATIZACIONT = Cdbl(AUTOMATIZACIONT) + Cdbl(AUTOMATIZACIONF)
			OTROST = Cdbl(OTROST) + Cdbl(OTROSF)

			
	Set Rs15 = server.CreateObject("ADODB.Recordset")
	Sql15 = "SELECT " &_
	"SUM(CASE WHEN LININV = 0 THEN  (CANFDEVD * UNIFDEVD* TCAFDEVD) Else 0 End) AS SINLINEA, " &_
	"SUM(CASE WHEN LININV = 1 THEN  (CANFDEVD * UNIFDEVD* TCAFDEVD) Else 0 End) AS TUBERIAAC, " &_
	"SUM(CASE WHEN LININV = 2 THEN  (CANFDEVD * UNIFDEVD* TCAFDEVD) Else 0 End) AS TUBERIAAI, " &_
	"SUM(CASE WHEN LININV = 3 THEN  (CANFDEVD * UNIFDEVD* TCAFDEVD) Else 0 End) AS CONEXAC, " &_
	"SUM(CASE WHEN LININV = 4 THEN  (CANFDEVD * UNIFDEVD* TCAFDEVD) Else 0 End) AS CONEXAI, " &_
	"SUM(CASE WHEN LININV = 5 THEN  (CANFDEVD * UNIFDEVD* TCAFDEVD) Else 0 End) AS VALVULAS, " &_
	"SUM(CASE WHEN LININV = 6 THEN  (CANFDEVD * UNIFDEVD* TCAFDEVD) Else 0 End) AS CONTRAINCENDIO, " &_
	"SUM(CASE WHEN LININV = 7 THEN  (CANFDEVD * UNIFDEVD* TCAFDEVD) Else 0 End) AS ESPARRAGOS, " &_
	"SUM(CASE WHEN LININV = 8 THEN  (CANFDEVD * UNIFDEVD* TCAFDEVD) Else 0 End) AS PVC, " &_
	"SUM(CASE WHEN LININV = 9 THEN  (CANFDEVD * UNIFDEVD* TCAFDEVD) Else 0 End) AS PINTURAS, " &_
	"SUM(CASE WHEN LININV = 10 THEN  (CANFDEVD * UNIFDEVD* TCAFDEVD) Else 0 End) AS AUTOMATIZACION, " &_
	"SUM(CASE WHEN LININV = 11 THEN  (CANFDEVD * UNIFDEVD* TCAFDEVD) Else 0 End) AS OTROS " &_
	"FROM FDEVDET, FDEVENC,INVENTARIOS, Lineas " &_
	"WHERE NUMFDEVD = NUMFDEVE " &_
	"AND CVEINV = CODFDEVD " &_
	"AND LININV = CLALIN " &_
	"AND YEAR(FECFDEVE) = "& Periodo &" " &_
	"AND CLIFDEVE = '"& Cliente &"';"
	Rs15.Open Sql15,Cn1,1,2

		If Isnull(Rs15("SINLINEA")) or Rs15("SINLINEA") ="" Then
		
			SINLINEAD = 0
			TUBERIAACD = 0
			TUBERIAAID = 0
			CONEXACD = 0
			CONEXAID = 0
			VALVULASD = 0
			CONTRAINCENDIOD = 0
			ESPARRAGOSD = 0
			PVCD = 0
			PINTURASD = 0
			AUTOMATIZACIOND = 0
			OTROSD = 0
			
		Else
		
			SINLINEAD = Rs15("SINLINEA")
			TUBERIAACF = Rs15("TUBERIAAC")
			TUBERIAAID = Rs15("TUBERIAAI")
			CONEXACD = Rs15("CONEXAC")
			CONEXAID = Rs15("CONEXAI")
			VALVULASD = Rs15("VALVULAS")
			CONTRAINCENDIOD = Rs15("CONTRAINCENDIO")
			ESPARRAGOSD = Rs15("ESPARRAGOS")
			PVCD = Rs15("PVC")
			PINTURASD = Rs15("PINTURAS")
			AUTOMATIZACIOND = Rs15("AUTOMATIZACION")
			OTROSD = Rs15("OTROS")
		
		End If	
	
	%>


		<TR Class="TablaD">
			<TD Colspan="13" Align="Center"> TOTAL IMPORTE DEVOLUCION</td>
		</TR>
		<TR Class="TablaD">
			<TD> SIN LINEA </td>
			<TD> TUBERIA ACERO AL CARBON </td>
			<TD> TUBERIA ACERO INOXIDABLE </td>
			<TD> CONEXIONES Y BRIDAS ACERO AL CARBON </td>
			<TD> CONEXIONES Y BRIDAS ACERO INOXIDABLE </td>
			<TD> VALVULAS </td>
			<TD> CONTRAINCENDIOS </td>
			<TD> ESPARRAGOS Y EMPAQUES </td>
			<TD> PVC, CPVC Y DERIVADOS </td>
			<TD> RECUBRIMIENTOS Y PINTURAS </td>
			<TD> AUTOMATIZACION E INSTRUMENTACION </td>
			<TD> OTROS </td>
		</TR>

		<TR Class="TablaV">
			<TD Align="Right"><%= formatnumber(SINLINEAD) %> </td>
			<TD Align="Right"><%= formatnumber(TUBERIAACD) %> </td>
			<TD Align="Right"><%= formatnumber(TUBERIAAID) %> </td>
			<TD Align="Right"><%= formatnumber(CONEXACD) %> </td>
			<TD Align="Right"><%= formatnumber(CONEXAID) %> </td>
			<TD Align="Right"><%= formatnumber(VALVULASD) %> </td>
			<TD Align="Right"><%= formatnumber(CONTRAINCENDIOD) %> </td>
			<TD Align="Right"><%= formatnumber(ESPARRAGOSD) %> </td>
			<TD Align="Right"><%= formatnumber(PVCD) %> </td>
			<TD Align="Right"><%= formatnumber(PINTURASD) %> </td>
			<TD Align="Right"><%= formatnumber(AUTOMATIZACIOND) %> </td>
			<TD Align="Right"><%= formatnumber(OTROSD) %> </td>
		</TR>
<%
			SINLINEAT = Cdbl(SINLINEAT) - Cdbl(SINLINEAD)
			TUBERIAACT = Cdbl(TUBERIAACT) - Cdbl(TUBERIAACD)
			TUBERIAAIT = Cdbl(TUBERIAAIT) - Cdbl(TUBERIAAID)
			CONEXACT = Cdbl(CONEXACT) - Cdbl(CONEXACD)
			CONEXAIT = Cdbl(CONEXAIT) - Cdbl(CONEXAID)
			VALVULAST = Cdbl(VALVULAST) - Cdbl(VALVULASD)
			CONTRAINCENDIOT = Cdbl(CONTRAINCENDIOT) - Cdbl(CONTRAINCENDIOD)
			ESPARRAGOST = Cdbl(ESPARRAGOST) - Cdbl(ESPARRAGOSD)
			PVCT = Cdbl(PVCT) - Cdbl(PVCD)
			PINTURAST = Cdbl(PINTURAST) - Cdbl(PINTURASD)
			AUTOMATIZACIONT = Cdbl(AUTOMATIZACIONT) - Cdbl(AUTOMATIZACIOND)
			OTROST = Cdbl(OTROST) - Cdbl(OTROSD)
%>


		<TR Class="TablaD">
			<TD Colspan="13" Align="Center">TOTAL DE IMPORTE VENDIDO EN EL PERIODO</td>
		</TR>
		<TR Class="TablaD">
			<TD> SIN LINEA </td>
			<TD> TUBERIA ACERO AL CARBON </td>
			<TD> TUBERIA ACERO INOXIDABLE </td>
			<TD> CONEXIONES Y BRIDAS ACERO AL CARBON </td>
			<TD> CONEXIONES Y BRIDAS ACERO INOXIDABLE </td>
			<TD> VALVULAS </td>
			<TD> CONTRAINCENDIOS </td>
			<TD> ESPARRAGOS Y EMPAQUES </td>
			<TD> PVC, CPVC Y DERIVADOS </td>
			<TD> RECUBRIMIENTOS Y PINTURAS </td>
			<TD> AUTOMATIZACION E INSTRUMENTACION </td>
			<TD> OTROS </td>
		</TR>

		<TR Class="TablaV">
			<TD Align="Right"><%= formatnumber(SINLINEAT) %> </td>
			<TD Align="Right"><%= formatnumber(TUBERIAACT) %> </td>
			<TD Align="Right"><%= formatnumber(TUBERIAAIT) %> </td>
			<TD Align="Right"><%= formatnumber(CONEXACT) %> </td>
			<TD Align="Right"><%= formatnumber(CONEXAIT) %> </td>
			<TD Align="Right"><%= formatnumber(VALVULAST) %> </td>
			<TD Align="Right"><%= formatnumber(CONTRAINCENDIOT) %> </td>
			<TD Align="Right"><%= formatnumber(ESPARRAGOST) %> </td>
			<TD Align="Right"><%= formatnumber(PVCT) %> </td>
			<TD Align="Right"><%= formatnumber(PINTURAST) %> </td>
			<TD Align="Right"><%= formatnumber(AUTOMATIZACIONT) %> </td>
			<TD Align="Right"><%= formatnumber(OTROST) %> </td>

		</TR>
	</TABLE>
	
	
	<br>
<hr>	
<b>GRAFICA IMPORTE EN EL PERIODO.</b>
<Br>
    <canvas id="KILOGRAMOST" width="1500" height="400">[No canvas support]</canvas>

    <script>
        
        {
            var data = [<%= SINLINEAT %>, <%= TUBERIAACT %>, <%= TUBERIAAIT %>, <%= CONEXACT %>, <%= CONEXAIT %>, <%= VALVULAST %>, <%= CONTRAINCENDIOT %>, <%= ESPARRAGOST %>, <%= PVCT %>, <%= PINTURAST %>, <%= AUTOMATIZACIONT %>, <%= OTROST %>];

            var bar = new RGraph.Bar('KILOGRAMOST', data)
                .Set('labels', [ 'SIN LINEA', 'TUBERIA A. C.', 'TUBERIA A. I.', 'CONEX. A. C.', 'CONEX. A. I.', 'VALVULAS', 'CONTRAINCENDIOS', 'ESP. Y EMP.', 'PVC Y DERIVADOS', 'PINTURAS', 'AUTOMATIZACION', 'OTROS'])
                .Set('background.grid.autofit.numvlines', 40)
                .Set('colors', ['Gradient(#003366:#66f)','yellow', 'pink'])
                .Set('gutter.bottom', 70)
                .Set('gutter.left', 80)
                .Set('units.post', '')
                .Set('title.xaxis', '')
                .Set('title.yaxis', 'IMPORTE')
                .Set('title.yaxis.x', 10)
                .Set('title.xaxis.y', 340)
                .Set('labels.above', true)
                .Set('labels.above.decimals', 2)
                .Set('labels.above.size', 8)
                .Draw();
        }
    </script>
<hr>