<HTML>
<HEAD>
<meta http-equiv="X-UA-Compatible" content="IE=7" />
<TITLE>AEAT-Dpto Recaudación-Menu Resumenes Mensuales</TITLE>
<!-- UTF-8 -->
<!-- Config.I.Explorer: Inicializar y activar la secuencia de los controles ActiveX no marcados como seguros Activar -->
<!-- VIGNETTE: Discrimina MAY y MIN -->
</HEAD> 



<STYLE TYPE="text/css">
BODY {font-size:20px; font-family:arial; color:blue; }
#titulo0 {font-size:32px; font-family:arial; color:blue; }
#titulo1 {font-size:16px; font-family:arial; color:red; width:75%; text-align:left; }
#titulo2 {font-size:14px; font-family:arial; color:red; width:75%; text-align:left; }
</STYLE>



<script LANGUAGE="VBScript"> 


        Option Explicit

        
        Dim j
        Dim i 
        Dim x
        Dim Ano
        Dim Actual
        Dim CodEnte
        Dim FicheroXSL 
        Dim FicheroXML
        Dim msg
        Dim msg1
        
        
        Dim fso 
        Dim f 
        Dim s
        Dim fldr
        Dim sw
        Dim sw_RM
        Dim sw_ERR
       
        Dim n
        
        
        
        Dim where 
        Dim DirWhere
        Dim Tabla
      
        Dim Nomencla
       
 
 
 
        
 Function Inicio(Param)
      
                Dim Index
 
  
                Actual = "C:\AEAT"                
                
                           
                sw_RM = 0
                If Param = 0 and sw_Err <> 1 Then
                   sw_Err = 0
                End If   
        
             
                
 ON ERROR RESUME NEXT                   
                
                set fso = CreateObject("Scripting.FileSystemObject")
                  
                
                If  ERR <> 0 and sw_Err = 0 Then
                'If  sw_Err = 0 Then
                    x = MsgBox("Debe modificar la configuración de seguridad de su navegador:" +  vbCrLf + vbCrLf +  "Inicializando y activando la secuencia de comandos de los controles de ActiveX no marcados como seguros", 16, "ERROR!!") 
                    sw_Err = 1
                    Exit Function 
                End If     
                
                
                if fso.FolderExists ( Actual ) = true Then
             
                else
                  sw_RM = 9 
                 
                End If
                
                
                
                If sw_RM = 0 Then 
                     set fldr = fso.GetFolder(Actual)
  
                     For each s in fldr.Files
          
                           If mid(s,Len(Actual) + 2,2) =  "RL" And mid(s,Len(Actual) + 18,4) =  ".XML" then
                        
                                   CodEnte = mid(s,Len(Actual) + 4,6)
                        
                                   sw_RM = 1
     
                                   Exit For
       
                           End If 
                      next
                End If
                
 
                
                
                msg = ""
                msg1 = ""
                Nomencla =   "<BR><BR>" + "donde:" + "<BR>" + _
                             "<UL>" + _
                             "<LI><B>YY</B> es tipo de fichero ( RL - Resumen Mensual )</LI>" + _
                             "<LI><B>X99999</B> es código de ente</LI>" + _
                             "<LI><B>AAAA</B> es año</LI>" + _
                             "<LI><B>MM</B> es més</LI>" + _
                             "<LI><B>01</B> es siempre 01</LI>" + _
                             "</UL>"
                
                If sw_RM = 0  then
                   msg = "En el subdirectorio&nbsp;&nbsp;" + "<B>" + Actual + "</B>" +  "&nbsp;&nbsp;NO existe ningún  fichero de Gestión Recaudatoria con la nomenclatura&nbsp;&nbsp;"  + "<B>" + "YYX99999AAAAMM01.XML" + "</B>" + Nomencla
                   msg1 ="En el subdirectorio " + Actual + vbCrLf + "NO existe ningún fichero de Gestión Recaudatoria "                
                elseIf sw_RM = 9  then
                   msg = "Debe crear el subdirectorio &nbsp;&nbsp;" + "<B>" + Actual + "</B>" + " para archivar los ficheros de Gestión Recaudatoria con la nomenclatura&nbsp;&nbsp;"  + "<B>" + "YYX99999AAAAMM01.XML" + "</B>" + Nomencla
                   msg1 ="Debe crear el subdirectorio  " + Actual  + vbCrLf + " para archivar los ficheros de Gestión Recaudatoria "                 
                End If 
                
                
                
                
                
                If Param = 1 then
                   Exit Function
                End If   
              
              

          
          
          
                If sw_Err = 1 then
                elseIf sw_RM = 0  or sw_RM = 9 then
                   if msg1 > "" then   
                      x = MsgBox(msg1, 16, "ERROR!!")
                   else
                      x = MsgBox(msg, 16, "ERROR!!")
                   end if    
                End If   
                
    
                
                
                Ano = DatePart("yyyy",now())
                Index = Cint(Ano) - 2012
                Document.Form.anos.options(Index).text= Ano
                Document.Form.anos.options(Index).value= Ano
                Document.Form.anos.selectedIndex = Index
               

        
  End Function 













 Function Mostrar
 
              Dim indice1, indice2, indice3

              If sw_RM = 0  or sw_RM = 9 then
                   if msg1 > "" then   
                      x = MsgBox(msg1, 16, "ERROR!!")
                   else
                      x = MsgBox(msg, 16, "ERROR!!")
                   end if  
                   Exit Function  
              End If   
             
             
             
             
              Inicio(1)
              
            
              indice1 = Document.Form.anos.selectedIndex
              indice2 = Document.Form.meses.selectedIndex
              indice3 = Document.Form.ficheros.selectedIndex

              
              
              If indice2 = 0 Then
                 x = MsgBox("Teclee el mes...", 64, "")
                 Exit Function
              End If
              
              If indice3 = 0 Then
                 x = MsgBox("Teclee el Tipo Fichero...", 64, "")
                 Exit Function
              End If
              
                  
             
              FicheroXSL = Document.Form.ficheros.options(indice3).Value + ".xsl"
              FicheroXML = Actual + "/RL" + CodEnte + Document.Form.anos.options(indice1).Value  + Document.Form.meses.options(indice2).Value + "01.XML"
              
              
              set fso = CreateObject("Scripting.FileSystemObject")          
              set fldr = fso.GetFolder(Actual)
              
              sw = 0
                
              For each s in fldr.Files
                   
                    If mid(s,Len(Actual) + 2,20) =  "RL" + CodEnte + Document.Form.anos.options(indice1).Value  + Document.Form.meses.options(indice2).Value + "01.XML"  then
                        sw = 1
                        Exit For
                    End If 
                    
              next
             
             
             
              If sw = 1 then
 
                 set f = fso.GetFile(s)
              
                 msg = ""
                 If f.Size > 1000000 then
                     If Document.Form.ficheros.options(indice3).Value = "SFalp_201206" then
                        FicheroXSL =  "SFalG_201206" + ".xsl"
                        msg = "OJO!! Este fichero de FALLIDOS tiene un tamaño MUY GRANDE  (" + Cstr(f.Size) + " KB) y tardará tanto para ABRIRSE como para CERRARSE..." + vbCrLf + vbCrLf
                     End If
                 End if
                 
                 
                 if (Document.Form.anos.options(indice1).Value ="2015"  and Document.Form.meses.options(indice2).Value >= "03")  or Document.Form.anos.options(indice1).Value >"2015" then
                      If Document.Form.ficheros.options(indice3).Value = "SDele_201206" then
                         FicheroXSL =  "SDele_201503" + ".xsl"
                      end if
                      
                      If Document.Form.ficheros.options(indice3).Value = "SCedi_201206" then
                         FicheroXSL =  "SCedi_201503" + ".xsl"
                      end if                       
                 End If
                
                 
           
              else
                x = MsgBox("En el subdirectorio    " + Actual + vbCrLf + vbCrLf + "NO existe el fichero ELEGIDO:  "  + "RL" + CodEnte + Document.Form.anos.options(indice1).Value  + Document.Form.meses.options(indice2).Value + "01.XML", 16, "ERROR!!")
                
                Exit Function
              end if  
              
              
              
              
              If (Mid(CodEnte,1,1) <> "C" or CodEnte = "C09001") and (Document.Form.ficheros.options(indice3).Text = "RESUMEN MENSUAL de I.CEDIDOS" or Document.Form.ficheros.options(indice3).Text = "IMP.CEDIDOS por DELEGACIONES")  Then
                   
                x = MsgBox("Este ENTE No tiene IMPUESTOS Cedidos", 16, "")
                exit function
              End if
                    
                     
             
             
              
              msg = msg + "    -año    : " + Document.Form.anos.options(indice1).Text + vbCrLf
              msg = msg + "    -mes    : " + Document.Form.meses.options(indice2).Text + vbCrLf
              msg = msg + "    -tipo   : " + Document.Form.ficheros.options(indice3).Text + vbCrLf
              msg = msg + "    -nombre : " + "RL" + CodEnte + Document.Form.anos.options(indice1).Value  + Document.Form.meses.options(indice2).Value + "01.XML"
            
                            
              x = MsgBox("¿ Estás de acuerdo en visualizar el fichero ?" + vbCrLf + vbCrLf + msg + vbCrLf + vbCrLf + "SI=SEGUIR, NO=CANCELAR", 68, "")
              If x = 6 Then
                             
                     ApplyTransform()
                
              ElseIf x = 7 Then
                   x = MsgBox("Operación CANCELADA!!", 64, "")
                   Exit Function
              End If


 End Function
        




Function MostrarEsquema

              Dim indice5
              indice5 = Document.Form.esquemas.selectedIndex


              If indice5 = 0 Then
                 x = MsgBox("Elija un esquema...", 64, "")
                 Exit Function
              End If




             
              Dim iExp
              Dim Wshshell

              Set iExp = CreateObject("InternetExplorer.Application")
             
              Set Wshshell = CreateObject("WScript.Shell")
              
              iExp.Width = 800
              iExp.Height = 600
              iExp.Left = 0
              iExp.Top = 0
            
              iExp.Visible = True
              iExp.TheaterMode = True
              
              Do While ( iExp.Busy)
                 Wscript.Sleep  200
              Loop
              
              
              iExp.navigate "http://www.agenciatributaria.es/static_files/AEAT/Contenidos_Comunes/La_Agencia_Tributaria/Descarga_Programas/Descarga/AAPP/GLFGR/VisorFicherosGR/" + Document.Form.esquemas.options(indice5).Text
             
                
  
	
 End Function 











	

	Function ApplyTransform()
		
		Dim objData, objStyle
			
		Set objData = CreateDOM
		LoadDOM objData,  FicheroXML
		
		
		
		Set objStyle = CreateDOM
		LoadDOM objStyle, FicheroXSL

		Document.Open "text/html"
		Document.Write objData.TransformNode(objStyle)

	End Function







	Function CreateDOM()
	
		On Error Resume Next
		Dim tmpDOM

		Set tmpDOM = Nothing
		Set tmpDOM = CreateObject("MSXML2.DOMDocument.5.0")
		If tmpDOM Is Nothing Then
			Set tmpDOM = CreateObject("MSXML2.DOMDocument.4.0")
		End If
		If tmpDOM Is Nothing Then
			Set tmpDOM = CreateObject("MSXML.DOMDocument")
		End If
		
		Set CreateDOM = tmpDOM
		
		
	End Function






	
	Function LoadDOM(objDOM, strXMLFile)
		 
	  objDOM.Async = False
		objDOM.Load strXMLFile

		
		If (objDOM.ParseError.ErrorCode <> 0) Then
			MsgBox objDOM.ParseError.Reason
		End If
		
	End Function












 

</script> 


<BODY onload="Inicio(0)">

 

<BR><BR>


<H5 style="RIGHT: 1.584cm; TOP: 1.211cm; WIDTH: 9.164cm; HEIGHT: 1.058cm;  POSITION: absolute" ><FONT COLOR="black">Departamento de Recaudación - A.E.A.T.</FONT></H5>
<IMG  style="LEFT: 3.584cm; TOP: 0.711cm; WIDTH: 1.164cm; HEIGHT: 1.058cm;  POSITION: absolute" SRC="AEAT.jpg" ALT="Agencia Tributaria-Versión nº=25 8Abr2015"/>


<HR Size="1" width="80%">

<BR><BR>



<SCRIPT><!--

Inicio(1)     

 
If sw_Err = 1  then  
    document.write("<CENTER ID=titulo2>" + "Debe modificar la configuración de seguridad de su navegador agregando los sitios de confianza:" +  "</CENTER>")
    document.write("<CENTER ID=titulo2><B>" + "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" + "http://www.aeat.es "  + "</B>" + "</CENTER>")
    document.write("<CENTER ID=titulo2><B>" + "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" + "http://www.agenciatributaria.es" +  "</B></CENTER><BR>")
    document.write("<CENTER ID=titulo2>" + "para  Microsoft Internet Explorer" +  "</CENTER><BR>")
    document.write("<CENTER ID=titulo2><B><I>" + "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" + "Herramientas  / Opciones de Internet  / Seguridad  / Sitios de confianza / Sitios " +  "</I></B></CENTER><BR>")
    document.write("<CENTER ID=titulo2>" + "Y a continuación en " + "<I>" + "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" + "Nivel de seguridad para la zona" + "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" + "</I>" + " pulse " + "<I>" + "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" + "Nivel personalizado" + "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;" + "</I>" + " y en el apartado" +  "</CENTER>")
    document.write("<CENTER ID=titulo2>" + "Controles y complementos de ActiveX, debe activar la propiedad: " + "<B><I>" + "&quot;Inicializar y activar la secuencia de comandos " +  "</I></B></CENTER>")
    document.write("<CENTER ID=titulo2><B><I>" + "de los controles de ActiveX no marcados como seguros &quot;" +  "</I></B></CENTER>")
                 
elseIf sw_RM = 0 or sw_RM = 9  then  
    document.write("<CENTER ID=titulo1>" + msg + "</CENTER>")      
  
else 
    document.write("<CENTER ID=titulo0> " + "Elección de Ficheros del ente " + "&nbsp;&nbsp;" + "<B>" +  CodEnte + "</B>" + "&nbsp;&nbsp;" + " desde " + "<B>" + "&nbsp;&nbsp;" + "C:\AEAT" + "</B></CENTER>") 
    'document.write(escape("$ % & @Aa01.-_"))
    Dim numHex
    document.write(Cstr(Execute("numHex = &H" + "D2")))
end if

// --></SCRIPT>


			

<BR><BR><BR>


<form name="form">




<table border=1  WIDTH="70%" HEIGHT="20%" CELLPADDING=10 CELLSPACING=3 ALIGN=CENTER> 
<tr> 
   
   <td COLSPAN=2>Elija A&ntilde;o:    
     

  <select name="anos" TABINDEX=1> 
   <option value="2012">2012</option>          
   <option value="2013">2013</option>          
   <option value="2014">2014</option>   
   <option value="2015">2015</option>
   <option value="2016">2016</option>
   <option value="2017">2017</option>
   <option value="2018">2018</option>
   <option value="2019">2019</option> 
   <option value="2020">2020</option>
   <option value="2021">2021</option>
   <option value="2021">2021</option>
   <option value="2021">2021</option>
   <option value="2022">2022</option>
   <option value="2023">2023</option>
   <option value="2024">2024</option>
   <option value="2025">2025</option>
   <option value="2026">2026</option>
   <option value="2027">2027</option>
   <option value="2028">2028</option>
   <option value="2029">2029</option>
   <option value="2030">2030</option>
	  
  </select>

   
   </td>



   <td COLSPAN=2>Elija Mes:     
     

   
   <select name="meses" TABINDEX=2> 
   <option selected value="0">    </option> 
   <option value="01">ENERO</option>          
   <option value="02">FEBRERO</option>          
   <option value="03">MARZO</option>   
   <option value="04">ABRIL</option>
   <option value="05">MAYO</option>
   <option value="06">JUNIO</option>
   <option value="07">JULIO</option>
   <option value="08">AGOSTO</option> 
   <option value="09">SEPTIEMBRE</option>
   <option value="10">OCTUBRE</option> 
   <option value="11">NOVIEMBRE</option> 
   <option value="12">DICIEMBRE</option>    
   </select>
   </td>


 <td COLSPAN=2>Elija Tipo Fichero:     
     

   
   <select name="ficheros" TABINDEX=3> 
   <option selected value="0">      </option> 
   <option value="SEjec_201206">RESUMEN MENSUAL de EJECUTIVA</option> 
   <option value="SFalp_201206">DETALLE de FALLIDOS</option>           
   <option value="SCedi_201206">RESUMEN MENSUAL de I.CEDIDOS</option>
   <option value="SDele_201206">IMP.CEDIDOS por DELEGACIONES</option>
   </select>
   
 </td>

</tr> 


<tr>
    
    <td COLSPAN=6 ALIGN=CENTER >
    <BR><BR>	
    <INPUT Style="width: 130px; height: 30px;font-size: 14pt;color: #0000FF ;border: #0000FF 3px solid" TYPE="BUTTON"  VALUE="VISUALIZAR" TABINDEX=4 onClick="Mostrar()" >
    <BR><BR><BR><BR>
    </td> 
    
    
</tr>


<tr>
	
    <td COLSPAN=6  ALIGN=RIGHT ><FONT COLOR="#000000" FONT SIZE=2>Ver los esquemas:     
    
    <select name="esquemas" TABINDEX=5 > 
    <option selected value="0">      </option> 
    <option value="RL_201206.XSD">RL_201206.XSD</option> 	
     
    </select>  
  
    <INPUT Style="width: 60px; height: 21px;font-size: 10pt;color: #000000 ;border: #000000 2px solid" TYPE="BUTTON"  VALUE="Ver" TABINDEX=6  onClick="MostrarEsquema()">
    
    </td> 
   
   
    
</tr>

</table> 



</form> 



</BODY> 











</HTML>