diff --git a/Contabilidad/DIOTChilo.aspx b/Contabilidad/DIOTChilo.aspx
deleted file mode 100644
index abe8b969a..000000000
--- a/Contabilidad/DIOTChilo.aspx
+++ /dev/null
@@ -1,29 +0,0 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="DIOTChilo.aspx.vb" Inherits="Contabilidad_DIOTChilo" %>
-
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
-</asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
-</asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
-</asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
-</asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
-</asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
-</asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
-
-
-    <div class="row">
-        <div class="col-md-3">
-            <asp:TextBox ID="TxtPoliza" runat="server" Width="50%" CssClass="form-control"></asp:TextBox>
-            <asp:Button ID="BtnContabilizar" runat="server" CssClass="form-control btn btn-primary" Text="Fierro Compa!" Width="50%" />
-        </div>
-    </div>
-
-
-</asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
-</asp:Content>
-
diff --git a/Contabilidad/DIOTChilo.aspx.vb b/Contabilidad/DIOTChilo.aspx.vb
deleted file mode 100644
index bd0ee463a..000000000
--- a/Contabilidad/DIOTChilo.aspx.vb
+++ /dev/null
@@ -1,121 +0,0 @@
-Imports System.Data
-Imports Extensiones
-
-Partial Class Contabilidad_DIOTChilo
-    Inherits Page
-
-    Private Sub Contabilidad_DIOTChilo_Load(sender As Object, e As EventArgs) Handles Me.Load
-
-    End Sub
-
-
-
-    Private Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click
-        Dim ObjContabilidad As New ClsContabilidad
-        Dim ObjConta As ClsContPAQi = Nothing
-        Dim ObjEmpres As New Empresa()
-
-        ObjEmpres.Empresa = "EXPLORACIONES MINERAS DEL DESIERTO S.A DE C.V"
-        ObjEmpres.ServerContPAQi = "192.168.0.2\COMPAC,1430"
-        ObjEmpres.BDContPAQi = "ctEMD"
-        ObjEmpres.UsrContPAQi = "sa"
-        ObjEmpres.PwdContPAQi = "AsS151026r37"
-
-        Dim OcurrioError = False
-        Dim Mensaje = ""
-
-        If ObjConta Is Nothing Then
-            ObjConta = New ClsContPAQi(ObjEmpres)
-            ObjConta.IniciaTransacSQL()
-        End If
-
-        Dim tIdPoliza As Integer
-        Dim Fecha As Date
-        Dim ContaFolio As Integer
-
-        If ObjContabilidad.GetPrePoliza(TxtPoliza.Text.ToEntero, 13) Then
-            tIdPoliza = ObjContabilidad.DtResultados(0)("IdPoliza").ToString.ToEntero
-            Fecha = ObjContabilidad.DtResultados(0)("Fecha").ToString.ToDate
-            ContaFolio = ObjContabilidad.DtResultados(0)("FolioPoliza").ToString.ToEntero
-        End If
-
-
-        If ObjContabilidad.GetDIOTValores(TxtPoliza.Text.ToEntero) Then
-
-            If ObjContabilidad.DtResultados.Rows.Count.ToEntero > 0 Then
-                Dim IdProveedor As Integer
-
-                Dim RFC As String = ""
-                Dim RazonSocial As String = ""
-                Dim IdCtaContProveedores As Integer
-
-
-                For Each dr As DataRow In ObjContabilidad.DtResultados.Rows
-                    RFC = dr("RFC").ToString
-                    RazonSocial = dr("RazonSocial").ToString
-                    IdCtaContProveedores = dr("IdCtaContProveedores").ToString.ToEntero
-
-                    If IdCtaContProveedores > 0 Then
-
-                        'busco la clave del proveedor en la contabilidad por su cuenta  contable
-                        If ObjConta.GetProveedores(IdCuentaContable:=IdCtaContProveedores) Then
-                            If ObjConta.DtResultados.Rows.Count > 0 Then
-                                Dim drt As DataRow = ObjConta.DtResultados.Rows(0) : IdProveedor = drt("Id").ToString.ToEntero
-                            End If
-                        End If
-                    Else
-                        'busco la clave del proveedor en la contabilidad por su cuenta  contable
-                        If ObjConta.GetProveedores(RFC:=RFC) Then
-                            If ObjConta.DtResultados.Rows.Count > 0 Then
-                                Dim drtt As DataRow = ObjConta.DtResultados.Rows(0) : IdProveedor = drtt("Id").ToString.ToEntero
-                            End If
-                        Else
-                            'registro el proveedor generico
-                            Select Case 13
-                                Case Else : IdProveedor = 0
-                            End Select
-                        End If
-
-                    End If
-
-
-                    If IdProveedor <= 0 Then
-                        IdProveedor = ObjConta.AddProveedor(IdCtaContProveedores, RFC, RazonSocial, "")
-                        If IdProveedor <= 0 Then
-                            OcurrioError = True
-                        End If
-                    End If
-
-                    If Not OcurrioError Then
-                        If dr("Total").ToString.ToDecimal <> 0.00 Then
-                            If Not ObjConta.AddDevolucionesIVA(tIdPoliza, dr("CuentaBancos").ToString.ToEntero,
-                                                           IdProveedor,
-                                                            16,
-                                                           dr("SubTotal").ToString.ToDecimal,
-                                                           dr("IvaAcreditable").ToString.ToDecimal,
-                                                           dr("IVARetenido").ToString.ToDecimal,
-                                                           dr("ISRRetenido").ToString.ToDecimal,
-                                                           Fecha,
-                                                           ContaFolio,
-                                                           dr("Serie").ToString.ToString,
-                                                           dr("Folio").ToString.StrToNum, dr("FolioFiscal").ToString, 13) Then
-                                OcurrioError = True
-                                Mensaje = "La Poliza o la Cuenta no son válidas"
-                                Exit For
-                            End If
-                        End If
-                    End If
-                Next
-
-
-                If OcurrioError Then
-                    ObjConta.RollBack()
-                Else
-                    'Alert(String.Format("<a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", tIdPoliza, ObjConta.Folio))
-                    ObjConta.Commit()
-                End If
-
-            End If
-        End If
-    End Sub
-End Class