<%
	'***** RECORDSET FACTURACION *****
	Set Rs12 = server.CreateObject("ADODB.Recordset")
	Sql12 = "SELECT " &_
	"Sum(Case when month(Fecfface) = 1 then (SUBFFACE * TCAFFACE) Else 0 End) As Enero, " &_
	"Sum(Case when month(Fecfface) = 2 then (SUBFFACE * TCAFFACE) Else 0 End) As Febrero, " &_
	"Sum(Case when month(Fecfface) = 3 then (SUBFFACE * TCAFFACE) Else 0 End) As Marzo, " &_
	"Sum(Case when month(Fecfface) = 4 then (SUBFFACE * TCAFFACE) Else 0 End) As Abril, " &_
	"Sum(Case when month(Fecfface) = 5 then (SUBFFACE * TCAFFACE) Else 0 End) As Mayo, " &_
	"Sum(Case when month(Fecfface) = 6 then (SUBFFACE * TCAFFACE) Else 0 End) As Junio, " &_
	"Sum(Case when month(Fecfface) = 7 then (SUBFFACE * TCAFFACE) Else 0 End) As Julio, " &_
	"Sum(Case when month(Fecfface) = 8 then (SUBFFACE * TCAFFACE) Else 0 End) As Agosto, " &_
	"Sum(Case when month(Fecfface) = 9 then (SUBFFACE * TCAFFACE) Else 0 End) As Septiembre, " &_
	"Sum(Case when month(Fecfface) = 10 then (SUBFFACE * TCAFFACE) Else 0 End) As Octubre, " &_
	"Sum(Case when month(Fecfface) = 11 then (SUBFFACE * TCAFFACE) Else 0 End) As Noviembre, " &_
	"Sum(Case when month(Fecfface) = 12 then (SUBFFACE * TCAFFACE) Else 0 End) As Diciembre, " &_
	"SUM(SUBFFACE * TCAFFACE) AS IMPORTE " &_
	"FROM FFACENC " &_
	"WHERE CLIFFACE = '"& Cliente &"' " &_
	"AND STAFFACE = 'A' " &_
	"AND YEAR(FECFFACE) = "& Periodo &";"
	Rs12.Open Sql12,Cn1,1,2

		If Isnull(Rs12("Enero")) or Rs12("Enero") ="" Then
		
			EneroF = 0
			FebreroF = 0
			MarzoF = 0
			AbrilF = 0
			MayoF = 0
			JunioF = 0
			JulioF = 0
			AgostoF = 0
			SeptiembreF = 0
			OctubreF = 0
			NoviembreF = 0
			DiciembreF = 0
			TotalF = 0
		Else
			EneroF = Rs12("Enero")
			FebreroF = Rs12("Febrero")
			MarzoF = Rs12("Marzo")
			AbrilF = Rs12("Abril")
			MayoF = Rs12("Mayo")
			JunioF = Rs12("Junio")
			JulioF = Rs12("Julio")
			AgostoF = Rs12("Agosto")
			SeptiembreF = Rs12("Septiembre")
			OctubreF = Rs12("Octubre")
			NoviembreF = Rs12("Noviembre")
			DiciembreF = Rs12("Diciembre")
			TotalF = Rs12("Importe")
		End If
		
	%>
	<TABLE border="1" cellspacing="0" cellpadding="2"Width="1040px">

		<TR>
			<TD Colspan="13" Class="TablaD"> IMPORTE FACTURAS EN MONEDA NACIONAL</td>
		</TR>
		<TR Class="TablaD">
			<TD Width="80px"> ENERO </td>
			<TD Width="80px"> FEBRERO </td>
			<TD Width="80px"> MARZO </td>
			<TD Width="80px"> ABRIL </td>
			<TD Width="80px"> MAYO </td>
			<TD Width="80px"> JUNIO </td>
			<TD Width="80px"> JULIO </td>
			<TD Width="80px"> AGOSTO </td>
			<TD Width="80px"> SEPTIEMBRE </td>
			<TD Width="80px"> OCTUBRE </td>
			<TD Width="80px"> NOVIEMBRE </td>
			<TD Width="80px"> DICIEMBRE </td>
			<TD Width="80px"> TOTAL </td>
		</TR>

		<TR Class="TablaV">
			<TD Align="Right"><%= formatnumber(EneroF) %> </td>
			<TD Align="Right"><%= formatnumber(FebreroF) %> </td>
			<TD Align="Right"><%= formatnumber(MarzoF) %> </td>
			<TD Align="Right"><%= formatnumber(AbrilF) %> </td>
			<TD Align="Right"><%= formatnumber(MayoF) %> </td>
			<TD Align="Right"><%= formatnumber(JunioF) %> </td>
			<TD Align="Right"><%= formatnumber(JulioF) %> </td>
			<TD Align="Right"><%= formatnumber(AgostoF) %> </td>
			<TD Align="Right"><%= formatnumber(SeptiembreF) %> </td>
			<TD Align="Right"><%= formatnumber(OctubreF) %> </td>
			<TD Align="Right"><%= formatnumber(NoviembreF) %> </td>
			<TD Align="Right"><%= formatnumber(DiciembreF) %> </td>
			<TD Align="Right"><%= formatnumber(TotalF) %> </td>
		</TR>
	<%

	EneroT = Cdbl(EneroT) + Cdbl(EneroF)
	FebreroT = Cdbl(FebreroT) + Cdbl(FebreroF)
	MarzoT = Cdbl(MarzoT) + Cdbl(MarzoF)
	AbrilT = Cdbl(AbrilT) + Cdbl(AbrilF)
	MayoT = Cdbl(MayoT) + Cdbl(MayoF)
	JunioT = Cdbl(JunioT) + Cdbl(JunioF)
	JulioT = Cdbl(JulioT) + Cdbl(JulioF)
	AgostoT = Cdbl(AgostoT) + Cdbl(AgostoF)
	SeptiembreT = Cdbl(SeptiembreT) + Cdbl(SeptiembreF)
	OctubreT = Cdbl(OctubreT) + Cdbl(OctubreF)
	NoviembreT = Cdbl(NoviembreT) + Cdbl(NoviembreF)
	DiciembreT = Cdbl(DiciembreT) + Cdbl(DiciembreF)
	TotalT = Cdbl(TotalT) + Cdbl(TotalF)

	%>
	

	<%
	
	'***** RECORDSET NOTAS DE CREDITO *****
	Set Rs13 = server.CreateObject("ADODB.Recordset")
	Sql13 = "SELECT " &_
	"Sum(Case when month(fecncr) = 1 then (SubNcr * TcaNcr) Else 0 End) As Enero, " &_
	"Sum(Case when month(fecncr) = 2 then (SubNcr * TcaNcr) Else 0 End) As Febrero, " &_
	"Sum(Case when month(fecncr) = 3 then (SubNcr * TcaNcr) Else 0 End) As Marzo, " &_
	"Sum(Case when month(fecncr) = 4 then (SubNcr * TcaNcr) Else 0 End) As Abril, " &_
	"Sum(Case when month(fecncr) = 5 then (SubNcr * TcaNcr) Else 0 End) As Mayo, " &_
	"Sum(Case when month(fecncr) = 6 then (SubNcr * TcaNcr) Else 0 End) As Junio, " &_
	"Sum(Case when month(fecncr) = 7 then (SubNcr * TcaNcr) Else 0 End) As Julio, " &_
	"Sum(Case when month(fecncr) = 8 then (SubNcr * TcaNcr) Else 0 End) As Agosto, " &_
	"Sum(Case when month(fecncr) = 9 then (SubNcr * TcaNcr) Else 0 End) As Septiembre, " &_
	"Sum(Case when month(fecncr) = 10 then (SubNcr * TcaNcr) Else 0 End) As Octubre, " &_
	"Sum(Case when month(fecncr) = 11 then (SubNcr * TcaNcr) Else 0 End) As Noviembre, " &_
	"Sum(Case when month(fecncr) = 12 then (SubNcr * TcaNcr) Else 0 End) As Diciembre, " &_
	"SUM(SubNcr * TcaNcr) AS IMPORTE " &_
	"FROM CxcNCR " &_
	"WHERE CLIncr= '"& Cliente &"' " &_
	"AND YEAR(fecncr) = "& Periodo &";"
	Rs13.Open Sql13,Cn1,1,2


		If Isnull(Rs13("Enero")) or Rs13("Enero") = "" then 
			EneroN = 0
			FebreroN = 0
			MarzoN = 0
			AbrilN = 0
			MayoN = 0
			JunioN = 0
			JulioN = 0
			AgostoN = 0
			SeptiembreN = 0
			OctubreN = 0
			NoviembreN = 0
			DiciembreN = 0
			TotalN = 0

		Else
			EneroN = Rs13("Enero")
			FebreroN = Rs13("Febrero")
			MarzoN = Rs13("Marzo")
			AbrilN = Rs13("Abril")
			MayoN = Rs13("Mayo")
			JunioN = Rs13("Junio")
			JulioN = Rs13("Julio")
			AgostoN = Rs13("Agosto")
			SeptiembreN = Rs13("Septiembre")
			OctubreN = Rs13("Octubre")
			NoviembreN = Rs13("Noviembre")
			DiciembreN = Rs13("Diciembre")
			TotalN = Rs13("Importe")
		End If
		
	%>
	<BR>

		<TR>
			<TD Colspan="13"Class="TablaD"> IMPORTE NOTAS DE CREDITO EN MONEDA NACIONAL</td>
		</TR>
		<TR Class="TablaD">
			<TD Width="80px"> ENERO </td>
			<TD Width="80px"> FEBRERO </td>
			<TD Width="80px"> MARZO </td>
			<TD Width="80px"> ABRIL </td>
			<TD Width="80px"> MAYO </td>
			<TD Width="80px"> JUNIO </td>
			<TD Width="80px"> JULIO </td>
			<TD Width="80px"> AGOSTO </td>
			<TD Width="80px"> SEPTIEMBRE </td>
			<TD Width="80px"> OCTUBRE </td>
			<TD Width="80px"> NOVIEMBRE </td>
			<TD Width="80px"> DICIEMBRE </td>
			<TD Width="80px"> TOTAL </td>
		</TR>

		<TR Class="TablaV">
			<TD Align="Right"><%= formatnumber(EneroN) %> </td>
			<TD Align="Right"><%= formatnumber(FebreroN) %> </td>
			<TD Align="Right"><%= formatnumber(MarzoN) %> </td>
			<TD Align="Right"><%= formatnumber(AbrilN) %> </td>
			<TD Align="Right"><%= formatnumber(MayoN) %> </td>
			<TD Align="Right"><%= formatnumber(JunioN) %> </td>
			<TD Align="Right"><%= formatnumber(JulioN) %> </td>
			<TD Align="Right"><%= formatnumber(AgostoN) %> </td>
			<TD Align="Right"><%= formatnumber(SeptiembreN) %> </td>
			<TD Align="Right"><%= formatnumber(OctubreN) %> </td>
			<TD Align="Right"><%= formatnumber(NoviembreN) %> </td>
			<TD Align="Right"><%= formatnumber(DiciembreN) %> </td>
			<TD Align="Right"><%= formatnumber(TotalN) %> </td>
	
		</TR>
	<%

	EneroT = Cdbl(EneroT) - Cdbl(EneroN)
	FebreroT = Cdbl(FebreroT) - Cdbl(FebreroN)
	MarzoT = Cdbl(MarzoT) - Cdbl(MarzoN)
	AbrilT = Cdbl(AbrilT) - Cdbl(AbrilN)
	MayoT = Cdbl(MayoT) - Cdbl(MayoN)
	JunioT = Cdbl(JunioT) - Cdbl(JunioN)
	JulioT = Cdbl(JulioT) - Cdbl(JulioN)
	AgostoT = Cdbl(AgostoT) - Cdbl(AgostoN)
	SeptiembreT = Cdbl(SeptiembreT) - Cdbl(SeptiembreN)
	OctubreT = Cdbl(OctubreT) - Cdbl(OctubreN)
	NoviembreT = Cdbl(NoviembreT) - Cdbl(NoviembreN)
	DiciembreT = Cdbl(DiciembreT) - Cdbl(DiciembreN)
	TotalT = Cdbl(TotalT) - Cdbl(TotalN)

	%>
	

		<TR>
			<TD Colspan="13" Class="TablaD">TOTAL DE VENTAS EN MONEDA NACIONAL</td>
		</TR>
		<TR Class="TablaD">
			<TD Width="80px"> ENERO </td>
			<TD Width="80px"> FEBRERO </td>
			<TD Width="80px"> MARZO </td>
			<TD Width="80px"> ABRIL </td>
			<TD Width="80px"> MAYO </td>
			<TD Width="80px"> JUNIO </td>
			<TD Width="80px"> JULIO </td>
			<TD Width="80px"> AGOSTO </td>
			<TD Width="80px"> SEPTIEMBRE </td>
			<TD Width="80px"> OCTUBRE </td>
			<TD Width="80px"> NOVIEMBRE </td>
			<TD Width="80px"> DICIEMBRE </td>
			<TD Width="80px"> TOTAL </td>
		</TR>

		<TR Class="TablaV">
			<TD Align="Right"><%= formatnumber(EneroT) %> </td>
			<TD Align="Right"><%= formatnumber(FebreroT) %> </td>
			<TD Align="Right"><%= formatnumber(MarzoT) %> </td>
			<TD Align="Right"><%= formatnumber(AbrilT) %> </td>
			<TD Align="Right"><%= formatnumber(MayoT) %> </td>
			<TD Align="Right"><%= formatnumber(JunioT) %> </td>
			<TD Align="Right"><%= formatnumber(JulioT) %> </td>
			<TD Align="Right"><%= formatnumber(AgostoT) %> </td>
			<TD Align="Right"><%= formatnumber(SeptiembreT) %> </td>
			<TD Align="Right"><%= formatnumber(OctubreT) %> </td>
			<TD Align="Right"><%= formatnumber(NoviembreT) %> </td>
			<TD Align="Right"><%= formatnumber(DiciembreT) %> </td>
			<TD Align="Right"><%= formatnumber(TotalT) %> </td>
		</TR>
	</TABLE>
<br>
<hr>	
<b>GRAFICA VENTAS POR MES.</b>
<Br>
    <canvas id="VentasT" width="1040" height="300">[No canvas support]</canvas>

    <script>
        window.onload = function ()
        {
            var data = [<%= EneroT %>, <%= FebreroT %>, <%= MarzoT %>, <%= AbrilT %>, <%= MayoT %>, <%= JunioT %>, <%= JulioT %>, <%= AgostoT %>, <%= SeptiembreT %>, <%= OctubreT %>, <%= NoviembreT %>, <%= DiciembreT %>];

            var bar = new RGraph.Bar('VentasT', data)
                .Set('labels', [ 'Enero', 'Febrero', 'Marzo', 'Abril', 'Mayo', 'Junio', 'Julio', 'Agosto', 'Septiembre', 'Octubre', 'Noviembre', 'Diciembre'])
                .Set('background.grid.autofit.numvlines', 20)
                .Set('colors', ['Gradient(#003366:#66f)','yellow', 'pink'])
                .Set('gutter.bottom', 40)
                .Set('gutter.left', 1)
                .Set('units.post', '')
                .Set('title.xaxis', '')
                .Set('title.yaxis', '')
                .Set('title.yaxis.x', 20)
                .Set('title.xaxis.y', 340)
                .Set('labels.above', true)
                .Set('labels.above.decimals', 2)
                .Set('labels.above.size', 8)
                .Draw();
        }
    </script>
<hr>