diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 98d818134..9104bd152 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -4,9 +4,9 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
     <asp:UpdatePanel ID="UppAddAcciones" runat="server">
         <ContentTemplate>
-            <li>
+           <%-- <li>
                 <asp:LinkButton ID="LnkAcarreo" runat="server" Text="Verificar Acarreos" Visible="False"></asp:LinkButton>
-            </li>
+            </li>--%>
         </ContentTemplate>
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpnTools" runat="server" UpdateMode="Conditional">
@@ -62,9 +62,9 @@
                     <asp:PostBackTrigger ControlID="BtnDescontabilizar" />
                 </Triggers>
             </asp:UpdatePanel>
-            <li>
+            <%--<li>
                 <asp:LinkButton ID="LBContabilizarAC" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea contabilizar la compra?" data-btn-ok-label="si" Text="Contabilizar" runat="server" OnClick="LBContabilizarAC_Click" Visible="false"> <i class="fa fa-check"></i> Contabilizar</asp:LinkButton>
-            </li>
+            </li>--%>
             <li>
                 <asp:HyperLink ID="HLPagar" CssClass="thickbox" Visible="false" runat="server"><i class='fa fa-money'></i> Pagar</asp:HyperLink>
             </li>
@@ -502,7 +502,7 @@
                                         <asp:ListItem Text="NC Con Productos" Value="6"></asp:ListItem>
                                         <asp:ListItem Text="Apoyo Logístico" Value="9"></asp:ListItem>
                                         <asp:ListItem Text="NC Por Devolución" Value="11"></asp:ListItem>
-                                        <%--<asp:ListItem Text="Garantía" Value="12"></asp:ListItem>--%>
+                                        <%--<asp:ListItem Text="Garantía" Value="12"></asp:ListItem>--%> 
                                     </asp:DropDownList>
                                     
                                 </div>
@@ -2516,13 +2516,13 @@
                 <div class="portlet-body">
                     <asp:UpdatePanel ID="UPObservaciones" runat="server" UpdateMode="Conditional">
                         <ContentTemplate>
-                            <table border="0" width="250px">
+                            <table border="0" width="100%">
                                 <tr align="left">
                                     <td><b>Observaciones Generales:</b>&nbsp;</td>
                                 </tr>
                                 <tr align="left">
                                     <td>
-                                        <asp:TextBox ID="TxtObsFact" runat="server" Rows="3" TextMode="MultiLine" Width="250px"></asp:TextBox></td>
+                                        <asp:TextBox ID="TxtObsFact" runat="server" Rows="3" TextMode="MultiLine" Width="100%"></asp:TextBox></td>
                                 </tr>
                             </table>
                         </ContentTemplate>
@@ -3433,57 +3433,7 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
-
-    <div id="divAddAcarreo" class="modal ADS fade" role="dialog">
-        <div class="modal-dialog">
-            <asp:UpdatePanel ID="UpAddAcarreo" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
-                <ContentTemplate>
-                    <div class="modal-header">
-                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
-                            <span aria-hidden="true">&times;</span>
-                        </button>
-                        <h4 class="modal-title" id="myModalLabel" runat="server">Asociación de Acarreos</h4>
-                    </div>
-                    <div class="modal-body">
-                        <asp:UpdatePanel ID="UpBodyAcarreo" UpdateMode="Conditional" runat="server">
-                            <ContentTemplate>
-                                <asp:GridView ID="GvAcarreo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Acarreos con los filtros especificados"
-                                    DataKeyNames="CvePreEstimacion,Importe,CveUnidadMedida,UnidadMedida,CveSubProyectoOrigen,SubProyectoOrigen,CveSubProyectoDestino,SubProyectoDestino" ToolTip="Listado de Acarreos"
-                                    CssClass="table table-advance table-hover Widthall" Style="text-align: center;" GridLines="None">
-                                    <Columns>
-                                        <asp:BoundField DataField="NumContrato" HeaderText="Contrato" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:BoundField DataField="Transportista" HeaderText="Transportista" ItemStyle-HorizontalAlign="Left" />
-                                        <asp:BoundField DataField="NumPreEstimacion" HeaderText="Número de Pre-Estimación" ItemStyle-HorizontalAlign="Right" />
-                                        <asp:BoundField DataField="Cantidad" HeaderText="Cantidad" ItemStyle-HorizontalAlign="Right" />
-                                        <asp:TemplateField HeaderText="Importe" ItemStyle-HorizontalAlign="Right">
-                                            <ItemTemplate>
-                                                <asp:Literal ID="LtlImporte" runat="server" Text='<%# Eval("Importe") %>'></asp:Literal>
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                        <asp:BoundField DataField="FechaPreEstimacion" HeaderText="Fecha Pre-Estimación" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
-                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center">
-                                            <ItemTemplate>
-                                                <asp:CheckBox ID="ChkRow" runat="server" />
-                                            </ItemTemplate>
-                                        </asp:TemplateField>
-                                    </Columns>
-                                </asp:GridView>
-                            </ContentTemplate>
-                        </asp:UpdatePanel>
-                        <div class="modal-footer">
-                            <asp:UpdatePanel ID="UpFooter" runat="server" UpdateMode="Conditional">
-                                <ContentTemplate>
-                                    <asp:LinkButton ID="BtnAgregarAcarreo" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpObligatorio"> <i class='material-icons'>done_all</i> Aceptar</asp:LinkButton>
-                                    <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
-                                </ContentTemplate>
-                            </asp:UpdatePanel>
-                        </div>
-                    </div>
-                </ContentTemplate>
-            </asp:UpdatePanel>
-        </div>
-    </div>
-
+ 
     <div id="ModalPesos" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
 
@@ -5295,6 +5245,21 @@
                                         </div>
                                         <div class="form-group form-md-line-input input-iconright" id="DivPedimento" runat="server">
                                             <asp:TextBox ID="TxtPedimento" CssClass="form-control" runat="server"></asp:TextBox>
+                                                  <ajaxToolkit:MaskedEditExtender ID="meeTxtPedimento" runat="server"
+                                                    ClearMaskOnLostFocus="false" 
+                                                    TargetControlID="TxtPedimento"
+                                                    Mask="99--99--9999--9999999"
+                                                    MaskType="Number"
+                                                    InputDirection="LeftToRight"
+                                                    AcceptNegative="None"
+                                                    ErrorTooltipEnabled="True" />
+                                             
+                                                <asp:RegularExpressionValidator ID="regexTxtPedimento" runat="server" ControlToValidate="TxtPedimento"  Display="None"   ValidationGroup="GrpGuardar" ErrorMessage="Formato no valido, el formato correcto es 99--99--9999--9999999" ForeColor="Red" 
+                                                    ValidationExpression="^[0-9 ]{2}--[0-9 ]{2}--[0-9 ]{4}--[0-9 ]{7}$" ></asp:RegularExpressionValidator>
+
+                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender11" runat="server" HighlightCssClass="vco" TargetControlID="regexTxtPedimento" Width="300px"></ajax:ValidatorCalloutExtender>
+
+
                                             <asp:RequiredFieldValidator ID="RFVPedimento" runat="server" ControlToValidate="TxtPedimento" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pedimento''</b> es necesario, por favor ingréselo." ValidationGroup="VGMCrearFleteImportacion"></asp:RequiredFieldValidator>
                                             <ajax:ValidatorCalloutExtender ID="VCEPedimento" runat="server" HighlightCssClass="vco" TargetControlID="RFVPedimento"></ajax:ValidatorCalloutExtender>
                                             <label for="<%= TxtPedimento.ClientID.ToString()%>">Pedimento:</label>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 91ffaa706..3cdd07a55 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -11,9 +11,6 @@ Imports Newtonsoft.Json
 Imports Extensiones
 Imports MoreLinq
 
-
-
-
 Partial Class Compras_Compras
     Inherits ClsPaginas
 
@@ -1341,11 +1338,11 @@ Partial Class Compras_Compras
                 UpConsignaciones.Update()
                 UpINV.Update()
                 'DdlIVA.Visible = True ' cuando es compra manual
-                If UsuarioActual.CveEmpresa = 126 Then
-                    CargaOrdenCorte()
-                    LnkAddOtrosGastos.Visible = True
-                    UpnTools.Update()
-                End If
+                'If UsuarioActual.CveEmpresa = 126 Then
+                '    CargaOrdenCorte()
+                '    LnkAddOtrosGastos.Visible = True
+                '    UpnTools.Update()
+                'End If
                 LnkAgregarGuia.Visible = False
                 UpLnkPaqueteriaGuias.Update()
             End If
@@ -1557,18 +1554,18 @@ Partial Class Compras_Compras
 
     End Sub
 
-    Private Sub CargaGvAcarreos(tCveProveedor As Integer)
-        Dim ObjAcar As New ClsAcarreos
-        If ObjAcar.GetPreEstimacion(tCveProveedor, UsuarioActual.CveEmpresa, -1) Then
-            GvAcarreo.DataSource = ObjAcar.DtResultados
-            If ObjAcar.DtResultados.Rows.Count > 0 Then
-                LnkAcarreo.Visible = True
-            End If
-        End If
-        ObjAcar.Dispose()
-        UpAddAcarreo.Update()
-        GvAcarreo.DataBind()
-    End Sub
+    'Private Sub CargaGvAcarreos(tCveProveedor As Integer)
+    '    Dim ObjAcar As New ClsAcarreos
+    '    If ObjAcar.GetPreEstimacion(tCveProveedor, UsuarioActual.CveEmpresa, -1) Then
+    '        GvAcarreo.DataSource = ObjAcar.DtResultados
+    '        If ObjAcar.DtResultados.Rows.Count > 0 Then
+    '            LnkAcarreo.Visible = True
+    '        End If
+    '    End If
+    '    ObjAcar.Dispose()
+    '    UpAddAcarreo.Update()
+    '    GvAcarreo.DataBind()
+    'End Sub
 
     Private Sub ValidaIVA()
         If (Version <> "3.3" And Version <> "4.0") And CveCompra <= 0 Then
@@ -1655,7 +1652,7 @@ Partial Class Compras_Compras
                         XMLDoc.LoadXml(File.ReadAllText(Archivo).Replace("&lt;br&gt;", "").Replace("&lt;", "").Replace("o;?", ""))
                     Catch ex As Exception
                         Try
-                            Dim oReader = New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
+                            Dim oReader as New StreamReader(Archivo, Encoding.GetEncoding("ISO-8859-1"))
                             XMLDoc.Load(oReader)
                             oReader.Dispose()
                         Catch ex2 As Exception
@@ -2551,9 +2548,6 @@ Partial Class Compras_Compras
                     BtnDescontabilizar.Visible = False
                     HplCompraContabilizada.Text = "No"
                     trContabilizada.Visible = True
-                    If UsuarioActual.Empresa.UsaAC Then
-                        LBContabilizarAC.Visible = True
-                    End If
                 End If
 
                 If UsuarioActual.Empresa.TipoContabilidad = 1 Then
@@ -2598,10 +2592,8 @@ Partial Class Compras_Compras
                     Else
                         HplCompraImportacion.NavigateUrl = $"/Compras/Importaciones.aspx?CveImportacion={dr("CveImportacion")}"
                     End If
-
                 End If
 
-
                 If dr("CveFolioGarantia").ToString <> "" Then
                     divFolioGarantia.Visible = True
                     DdlFolioGarantia.Items.Insert(0, New ListItem(dr("FolioGarantia").ToString, dr("CveFolioGarantia").ToString))
@@ -3340,8 +3332,6 @@ Partial Class Compras_Compras
                 '    End If
                 'End If
 
-                CargaGvAcarreos(ViewState("CveProveedor").ToString.ToEntero)
-
                 If CveProveedor > 0 Then
 
                     Dim ObjSAT As New ClsSAT
@@ -4391,7 +4381,7 @@ Partial Class Compras_Compras
             Next
 
             If CvealamcenSeleccionado > 0 Then
-                Dim ModalidadAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CvealamcenSeleccionado).FiltroPrimeroValor("Modalidad").ToEntero
+                Dim ModalidadAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CvealamcenSeleccionado).FiltroPrimeroValor("CveModalidad").ToEntero
                 If ModalidadAlmacen = 0 Then
                     EntradaComoGastoConAlmacen = True
                 End If
@@ -4600,7 +4590,7 @@ Partial Class Compras_Compras
                             'End If
 
                             'METODO DE PREPOLIZA DE ALMACEN
-                            If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                            If UsuarioActual.Empresa.UsaInventarios Then
                                 Dim ImporteAlmacen As Decimal = TmpDT.SUMD(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                                 If ImporteAlmacen > 0 Then
                                     If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -4731,302 +4721,304 @@ Partial Class Compras_Compras
                                             End Select
                                     End Select
                                 End If
-                                If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then
+                                '-------INICIA  U S A     A  C -------------------------------------------------------------------
+                                'If UsuarioActual.Empresa.UsaAC AndAlso Not TieneError Then
 
-                                    If TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0 Then
-                                        ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
-                                        ObjContaAC.IniciaTransacSQL()
+                                '    If TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0 Then
+                                '        ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+                                '        ObjContaAC.IniciaTransacSQL()
 
-                                        ''POLIZA COMPROMETIDO SOLO SI NO SE VINCULA OC
-                                        If HdnVCveOC.Value.ToEntero > 0 Then
+                                '        ''POLIZA COMPROMETIDO SOLO SI NO SE VINCULA OC
+                                '        If HdnVCveOC.Value.ToEntero > 0 Then
 
-                                            IDPolizaComprometido = 1
-                                            TotalPorDevengar = TotalPorDevengar * 2
-                                        Else
-                                            TotalPorDevengar = TotalPorDevengar * 3
-                                        End If
+                                '            IDPolizaComprometido = 1
+                                '            TotalPorDevengar = TotalPorDevengar * 2
+                                '        Else
+                                '            TotalPorDevengar = TotalPorDevengar * 3
+                                '        End If
 
-                                        IdPoliza = ObjContaAC.AddPoliza(3, TxtDescripcion.Text.Trim, TotalPorDevengar, TotalPorDevengar, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate)
+                                '        IdPoliza = ObjContaAC.AddPoliza(3, TxtDescripcion.Text.Trim, TotalPorDevengar, TotalPorDevengar, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate)
 
-                                        'Dim filtro As New StringBuilder
-                                        If IdPoliza > 0 Then
-                                            PolizaFolio = ObjContaAC.Folio
-                                            'Dim RegistroMatriz As DataRow
-                                            'Dim CuentaCargo As Integer
-                                            Dim CuentaAbono As Integer
-                                            Dim Importe As Decimal
+                                '        'Dim filtro As New StringBuilder
+                                '        If IdPoliza > 0 Then
+                                '            PolizaFolio = ObjContaAC.Folio
+                                '            'Dim RegistroMatriz As DataRow
+                                '            'Dim CuentaCargo As Integer
+                                '            Dim CuentaAbono As Integer
+                                '            Dim Importe As Decimal
 
-                                            'CUENTA PROVEEDOR
-                                            'If tIdContaProveedor <= 0 Then
-                                            '    'normalmente debe de ser la cuenta 021120000000000000, para el caso de APH, se el cmabio al 2119
-                                            '    If ObjContaAC.GetCuentas(-1, "021190000000000000", -1) Then
-                                            '        Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
-                                            '        If drCuenta IsNot Nothing Then
+                                '            'CUENTA PROVEEDOR
+                                '            'If tIdContaProveedor <= 0 Then
+                                '            '    'normalmente debe de ser la cuenta 021120000000000000, para el caso de APH, se el cmabio al 2119
+                                '            '    If ObjContaAC.GetCuentas(-1, "021190000000000000", -1) Then
+                                '            '        Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
+                                '            '        If drCuenta IsNot Nothing Then
 
-                                            '            CuentaAbono = drCuenta("Id").ToString.ToEntero
-                                            '            Dim FolioProveedor = ObjContaAC.GetFolioProveedores("021190000000000000").ToString
-                                            '            ViewState("CtaProveedor") = ObjContaAC.AddCuenta(String.Format("02119{0}000000000", FolioProveedor.PadLeft(4, "0"c)), NombreProveedor, "D", 2, 0, 1, 0, "", 1, CuentaAbono)
-                                            '            ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, CtaProveedor)
+                                '            '            CuentaAbono = drCuenta("Id").ToString.ToEntero
+                                '            '            Dim FolioProveedor = ObjContaAC.GetFolioProveedores("021190000000000000").ToString
+                                '            '            ViewState("CtaProveedor") = ObjContaAC.AddCuenta(String.Format("02119{0}000000000", FolioProveedor.PadLeft(4, "0"c)), NombreProveedor, "D", 2, 0, 1, 0, "", 1, CuentaAbono)
+                                '            '            ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, CtaProveedor)
 
 
-                                            '        Else
-                                            '            ErrorAC = True
-                                            '            ErrorACMEnsaje.Append(" - DrCuenta Nula")
-                                            '        End If
-                                            '    Else
-                                            '        ErrorACMEnsaje.Append(" - Error al consultar cuenta 021190000000000000 ")
-                                            '        ErrorAC = True
-                                            '    End If
-                                            'End If
+                                '            '        Else
+                                '            '            ErrorAC = True
+                                '            '            ErrorACMEnsaje.Append(" - DrCuenta Nula")
+                                '            '        End If
+                                '            '    Else
+                                '            '        ErrorACMEnsaje.Append(" - Error al consultar cuenta 021190000000000000 ")
+                                '            '        ErrorAC = True
+                                '            '    End If
+                                '            'End If
 
-                                            Dim ConceptoRenglon As String = ""
-                                            If Not ErrorAC Then
+                                '            Dim ConceptoRenglon As String = ""
+                                '            If Not ErrorAC Then
 
 
-                                                'INVENTARIOS EN AC
-                                                Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked)
+                                '                'INVENTARIOS EN AC
+                                '                Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked)
 
-                                                Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA, tRetIVA, tRetISR As Decimal
-                                                Dim ipresup As Integer = 0
-                                                'COMIENZA: PRUEBA AGRUPACION CONCEPTOS
-                                                Dim Presup = From gvr As DataRow In TmpDT.Rows.Cast(Of DataRow)()
-                                                             Group gvr By Grp = New With {
-                                                        Key .CvePresupuestoEgreso = gvr("CvePresupuestoEgreso").ToString.ToEntero,
-                                                        Key .CveOrdencompraDetalle = If(gvr("CveOrdencompraDetalle").ToString.ToEntero > 0, 1, -1),
-                                                        Key .CveActivoFijo = If(gvr("TipoAF").ToString.ToEntero = 2, gvr("CveActivoFijo").ToString.ToEntero, -1)
-                                                    } Into Group
-                                                             Select Grp.CvePresupuestoEgreso, Grp.CveActivoFijo, Grp.CveOrdencompraDetalle,
-                                                        TotalImporte = Group.Sum(Function(r) r("Total").ToString.ToDecimal)
-                                                Dim Fecha As Date = TxtFecha.Text.ToDate
+                                '                Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA, tRetIVA, tRetISR As Decimal
+                                '                Dim ipresup As Integer = 0
+                                '                'COMIENZA: PRUEBA AGRUPACION CONCEPTOS
+                                '                Dim Presup = From gvr As DataRow In TmpDT.Rows.Cast(Of DataRow)()
+                                '                             Group gvr By Grp = New With {
+                                '                        Key .CvePresupuestoEgreso = gvr("CvePresupuestoEgreso").ToString.ToEntero,
+                                '                        Key .CveOrdencompraDetalle = If(gvr("CveOrdencompraDetalle").ToString.ToEntero > 0, 1, -1),
+                                '                        Key .CveActivoFijo = If(gvr("TipoAF").ToString.ToEntero = 2, gvr("CveActivoFijo").ToString.ToEntero, -1)
+                                '                    } Into Group
+                                '                             Select Grp.CvePresupuestoEgreso, Grp.CveActivoFijo, Grp.CveOrdencompraDetalle,
+                                '                        TotalImporte = Group.Sum(Function(r) r("Total").ToString.ToDecimal)
+                                '                Dim Fecha As Date = TxtFecha.Text.ToDate
 
-                                                'Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA As Double
-                                                tTotalIVA = TxtIVA.Text.ToDecimal
-                                                tRetIVA = TxtRetIVA.Text.ToDecimal
-                                                tRetISR = TxtRetISR.Text.ToDecimal
+                                '                'Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA As Double
+                                '                tTotalIVA = TxtIVA.Text.ToDecimal
+                                '                tRetIVA = TxtRetIVA.Text.ToDecimal
+                                '                tRetISR = TxtRetISR.Text.ToDecimal
 
-                                                'tTotalIVA = tTotalIVA - tRetIVA - tRetISR
+                                '                'tTotalIVA = tTotalIVA - tRetIVA - tRetISR
 
-                                                tTotalGral = TxtTotal.Text.ToDecimal + tRetIVA + tRetISR ' EL TOTAL GENERAL DEBE DE SER EL SUBTOTAL + IVA, NO SE DEBEN DE INCLUIR LAS RETENCIONES, POR ESO SE RESTA
-                                                tDiferenciaIVA = tTotalIVA
+                                '                tTotalGral = TxtTotal.Text.ToDecimal + tRetIVA + tRetISR ' EL TOTAL GENERAL DEBE DE SER EL SUBTOTAL + IVA, NO SE DEBEN DE INCLUIR LAS RETENCIONES, POR ESO SE RESTA
+                                '                tDiferenciaIVA = tTotalIVA
 
-                                                ipresup = 0
+                                '                ipresup = 0
 
-                                                Dim CuentaMatrizAlmacen As Integer
+                                '                Dim CuentaMatrizAlmacen As Integer
 
-                                                'PresupuestoEgresos
-                                                Dim DtPresupuestosTemp As DataTable
-                                                Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz As Integer
-                                                ' Dim DescuentoConIVA As Decimal
-                                                Dim tPorIVA As Decimal = tTotalIVA / (tTotalGral - tTotalIVA)
-                                                Dim tAjusteTotal As Decimal
+                                '                'PresupuestoEgresos
+                                '                Dim DtPresupuestosTemp As DataTable
+                                '                Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz As Integer
+                                '                ' Dim DescuentoConIVA As Decimal
+                                '                Dim tPorIVA As Decimal = tTotalIVA / (tTotalGral - tTotalIVA)
+                                '                Dim tAjusteTotal As Decimal
 
-                                                For Each grp In Presup
-                                                    Importe = grp.TotalImporte
-                                                    TotalDetalle += Importe
-                                                    ipresup += 1
-                                                    If Importe > 0 Then
-                                                        'saco la proporcion de iva que le corresponde
-                                                        tIVA = Math.Round(Importe * tPorIVA, 2)
-                                                        tDiferenciaIVA -= tIVA
-                                                        'identifico si es el ultimo registro, para ver si es necesario un ajuste
-                                                        If ipresup = Presup.Count Then
-                                                            If Math.Round(TotalDetalle - tTotalGral, 2) <= 0.01 AndAlso tDiferenciaIVA > 0 Then
-                                                                tIVA += tDiferenciaIVA
-                                                            End If
-                                                        End If
+                                '                For Each grp In Presup
+                                '                    Importe = grp.TotalImporte
+                                '                    TotalDetalle += Importe
+                                '                    ipresup += 1
+                                '                    If Importe > 0 Then
+                                '                        'saco la proporcion de iva que le corresponde
+                                '                        tIVA = Math.Round(Importe * tPorIVA, 2)
+                                '                        tDiferenciaIVA -= tIVA
+                                '                        'identifico si es el ultimo registro, para ver si es necesario un ajuste
+                                '                        If ipresup = Presup.Count Then
+                                '                            If Math.Round(TotalDetalle - tTotalGral, 2) <= 0.01 AndAlso tDiferenciaIVA > 0 Then
+                                '                                tIVA += tDiferenciaIVA
+                                '                            End If
+                                '                        End If
 
-                                                        'le sumo el iva al concepto
-                                                        Importe += tIVA
+                                '                        'le sumo el iva al concepto
+                                '                        Importe += tIVA
 
-                                                        'codigo Provisional, para cuand tenga descuento, solo tome el subtotal * el iva,RMF
-                                                        If TxtDescuento.Text.ToDouble > 0 Then
-                                                            Importe = grp.TotalImporte * 1.16D
-                                                        End If
+                                '                        'codigo Provisional, para cuand tenga descuento, solo tome el subtotal * el iva,RMF
+                                '                        If TxtDescuento.Text.ToDouble > 0 Then
+                                '                            Importe = grp.TotalImporte * 1.16D
+                                '                        End If
 
-                                                        tAjusteTotal += Importe
-                                                        'valido que la sumas de lo detalles no exceda al totalgeneral
-                                                        If Math.Round(tAjusteTotal, 2) > tTotalGral Then
-                                                            'le resto la diferencia
-                                                            Importe -= (tAjusteTotal - tTotalGral)
-                                                        End If
+                                '                        tAjusteTotal += Importe
+                                '                        'valido que la sumas de lo detalles no exceda al totalgeneral
+                                '                        If Math.Round(tAjusteTotal, 2) > tTotalGral Then
+                                '                            'le resto la diferencia
+                                '                            Importe -= (tAjusteTotal - tTotalGral)
+                                '                        End If
 
-                                                        'Presupuesto Egresos
-                                                        DtPresupuestosTemp = DtPresupuestos.FiltraParametros(String.Format("CvePresupuestoEgreso = {0}", grp.CvePresupuestoEgreso))
-                                                        If DtPresupuestosTemp.Rows.Count <> 1 Then
-                                                            ErrorAC = True
-                                                            ErrorACMEnsaje.Append(" - DtPresupuestosTemp.Rows.Count <> 1 ")
-                                                            Exit For
-                                                        End If
-                                                        IdCuentaComprometido = DtPresupuestosTemp.Rows(0)("IdCuentaComprometido").ToString.ToEntero
-                                                        IdCuentaPorEjercer = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero
-                                                        IdCuentaDevengado = DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero
-                                                        IdCuentaMatriz = DtPresupuestosTemp.Rows(0)("IdCuentaMatriz").ToString.ToEntero
+                                '                        'Presupuesto Egresos
+                                '                        DtPresupuestosTemp = DtPresupuestos.FiltraParametros(String.Format("CvePresupuestoEgreso = {0}", grp.CvePresupuestoEgreso))
+                                '                        If DtPresupuestosTemp.Rows.Count <> 1 Then
+                                '                            ErrorAC = True
+                                '                            ErrorACMEnsaje.Append(" - DtPresupuestosTemp.Rows.Count <> 1 ")
+                                '                            Exit For
+                                '                        End If
+                                '                        IdCuentaComprometido = DtPresupuestosTemp.Rows(0)("IdCuentaComprometido").ToString.ToEntero
+                                '                        IdCuentaPorEjercer = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero
+                                '                        IdCuentaDevengado = DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero
+                                '                        IdCuentaMatriz = DtPresupuestosTemp.Rows(0)("IdCuentaMatriz").ToString.ToEntero
 
-                                                        'COMPROMETIDO DEPENDIENTE SI EXISTE SU POLIZA
-                                                        If grp.CveOrdencompraDetalle = -1 Then
-                                                            ConceptoRenglon = String.Format("GC Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
-                                                            If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                                If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPorEjercer, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                                    ErrorAC = True
-                                                                    ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 1")
-                                                                    Exit For
-                                                                End If
-                                                            Else
-                                                                ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 2")
-                                                                ErrorAC = True
-                                                                Exit For
-                                                            End If
-                                                        End If
+                                '                        'COMPROMETIDO DEPENDIENTE SI EXISTE SU POLIZA
+                                '                        If grp.CveOrdencompraDetalle = -1 Then
+                                '                            ConceptoRenglon = String.Format("GC Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
+                                '                            If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+                                '                                If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPorEjercer, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+                                '                                    ErrorAC = True
+                                '                                    ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 1")
+                                '                                    Exit For
+                                '                                End If
+                                '                            Else
+                                '                                ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 2")
+                                '                                ErrorAC = True
+                                '                                Exit For
+                                '                            End If
+                                '                        End If
 
-                                                        ConceptoRenglon = String.Format("GD Fact:{0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
-                                                        'DEVENGADO
-                                                        If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                            If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                                ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 3")
-                                                                ErrorAC = True
-                                                                Exit For
-                                                            End If
-                                                        Else
-                                                            ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 4")
-                                                            ErrorAC = True
-                                                            Exit For
-                                                        End If
+                                '                        ConceptoRenglon = String.Format("GD Fact:{0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
+                                '                        'DEVENGADO
+                                '                        If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+                                '                            If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+                                '                                ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 3")
+                                '                                ErrorAC = True
+                                '                                Exit For
+                                '                            End If
+                                '                        Else
+                                '                            ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 4")
+                                '                            ErrorAC = True
+                                '                            Exit For
+                                '                        End If
 
-                                                        If ContadorInventario > 0 Then
+                                '                        If ContadorInventario > 0 Then
 
-                                                            ' CuentaMatrizAlmacen = CtaAlmacen
-                                                        ElseIf grp.CveActivoFijo > 0 Then
+                                '                            ' CuentaMatrizAlmacen = CtaAlmacen
+                                '                        ElseIf grp.CveActivoFijo > 0 Then
 
-                                                            Dim CtaAF As Integer = -1
-                                                            Dim AF As String = ""
-                                                            Dim CuentaInicial As Integer = -1
+                                '                            Dim CtaAF As Integer = -1
+                                '                            Dim AF As String = ""
+                                '                            Dim CuentaInicial As Integer = -1
 
-                                                            If ObjAF.GetActivosFijos(grp.CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then
-                                                                CtaAF = ObjAF.Cuenta
-                                                                AF = ObjAF.Descripcion
-                                                                CuentaInicial = ObjAF.CuentaInicial
-                                                            Else
-                                                                ErrorAC = True
-                                                                ErrorACMEnsaje.Append(" - Error al obtener activos fijos  ")
-                                                                Exit For
-                                                            End If
+                                '                            If ObjAF.GetActivosFijos(grp.CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then
+                                '                                CtaAF = ObjAF.Cuenta
+                                '                                AF = ObjAF.Descripcion
+                                '                                CuentaInicial = ObjAF.CuentaInicial
+                                '                            Else
+                                '                                ErrorAC = True
+                                '                                ErrorACMEnsaje.Append(" - Error al obtener activos fijos  ")
+                                '                                Exit For
+                                '                            End If
 
-                                                            If Not CuentaInicial > 0 Then
-                                                                CuentaInicial = 1241
-                                                            End If
+                                '                            If Not CuentaInicial > 0 Then
+                                '                                CuentaInicial = 1241
+                                '                            End If
 
-                                                            'CUENTA AF
-                                                            If CtaAF <= 0 Then
-                                                                If ObjContaAC.GetCuentas(-1, String.Format("0{0}0000000000000", CuentaInicial), -1) Then
-                                                                    Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
-                                                                    If drCuenta IsNot Nothing Then
-                                                                        ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000  drCuenta  nula")
-                                                                        CuentaAbono = drCuenta("Id").ToString.ToEntero
-                                                                        Dim FolioAF As String = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString
-                                                                        CtaAF = ObjContaAC.AddCuenta(String.Format("0{0}{1}000000000", CuentaInicial, FolioAF.PadLeft(4, "0"c)), AF, "A", 2, 0, 1, 0, "", 1, CuentaAbono)
+                                '                            'CUENTA AF
+                                '                            If CtaAF <= 0 Then
+                                '                                If ObjContaAC.GetCuentas(-1, String.Format("0{0}0000000000000", CuentaInicial), -1) Then
+                                '                                    Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
+                                '                                    If drCuenta IsNot Nothing Then
+                                '                                        ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000  drCuenta  nula")
+                                '                                        CuentaAbono = drCuenta("Id").ToString.ToEntero
+                                '                                        Dim FolioAF As String = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString
+                                '                                        CtaAF = ObjContaAC.AddCuenta(String.Format("0{0}{1}000000000", CuentaInicial, FolioAF.PadLeft(4, "0"c)), AF, "A", 2, 0, 1, 0, "", 1, CuentaAbono)
 
-                                                                        ObjAF.UpdateActivosFijosCuentaAC(grp.CveActivoFijo, CtaAF, UsuarioActual.CveUsuario)
-                                                                    Else
-                                                                        ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000 drCuenta nulo")
-                                                                        ErrorAC = True
-                                                                    End If
-                                                                Else
-                                                                    ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000")
-                                                                    ErrorAC = True
-                                                                End If
-                                                            End If
+                                '                                        ObjAF.UpdateActivosFijosCuentaAC(grp.CveActivoFijo, CtaAF, UsuarioActual.CveUsuario)
+                                '                                    Else
+                                '                                        ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000 drCuenta nulo")
+                                '                                        ErrorAC = True
+                                '                                    End If
+                                '                                Else
+                                '                                    ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000")
+                                '                                    ErrorAC = True
+                                '                                End If
+                                '                            End If
 
-                                                            CuentaMatrizAlmacen = CtaAF
-                                                        Else
-                                                            CuentaMatrizAlmacen = IdCuentaMatriz
-                                                        End If
+                                '                            CuentaMatrizAlmacen = CtaAF
+                                '                        Else
+                                '                            CuentaMatrizAlmacen = IdCuentaMatriz
+                                '                        End If
 
 
-                                                        ''AFECTAR MATRIZ EGRESOS
-                                                        If ObjContaAC.AddMovimiento(IdPoliza, CuentaMatrizAlmacen, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+                                '                        ''AFECTAR MATRIZ EGRESOS
+                                '                        If ObjContaAC.AddMovimiento(IdPoliza, CuentaMatrizAlmacen, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
 
 
-                                                            ''VERIFICA SI TIENE DESCUENTO (AMORTIZACION)
-                                                            'If TxtDescuento.Text.ToDouble > 0 Then
-                                                            '    DescuentoConIVA = TxtDescuento.Text.ToDouble * 1.16
+                                '                            ''VERIFICA SI TIENE DESCUENTO (AMORTIZACION)
+                                '                            'If TxtDescuento.Text.ToDouble > 0 Then
+                                '                            '    DescuentoConIVA = TxtDescuento.Text.ToDouble * 1.16
 
-                                                            '    'Valida que el descuento con iva cuadre en los totales
-                                                            '    If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDouble)) < 0.02 Then
-                                                            '        DescuentoConIVA = Importe - TxtTotal.Text.ToDouble
-                                                            '    ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDouble) Then
-                                                            '        ErrorAC = True
-                                                            '        Exit For
-                                                            '    End If
+                                '                            '    'Valida que el descuento con iva cuadre en los totales
+                                '                            '    If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDouble)) < 0.02 Then
+                                '                            '        DescuentoConIVA = Importe - TxtTotal.Text.ToDouble
+                                '                            '    ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDouble) Then
+                                '                            '        ErrorAC = True
+                                '                            '        Exit For
+                                '                            '    End If
 
-                                                            '    'actualizo el idcuenta del presupuesto
-                                                            '    If ObjContaAC.AddMovimiento(123456, IdPoliza, tIdContaProveedor, True, Importe - DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                            '        'agrego a la cuenta contable anticipos
-                                                            '        If Not ObjContaAC.AddMovimiento(123456, IdPoliza, CtaProveedorAnticipos, True, DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                            '            ErrorAC = True
-                                                            '            Exit For
-                                                            '        End If
-                                                            '    Else
-                                                            '        ErrorAC = True
-                                                            '        Exit For
-                                                            '    End If
+                                '                            '    'actualizo el idcuenta del presupuesto
+                                '                            '    If ObjContaAC.AddMovimiento(123456, IdPoliza, tIdContaProveedor, True, Importe - DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
+                                '                            '        'agrego a la cuenta contable anticipos
+                                '                            '        If Not ObjContaAC.AddMovimiento(123456, IdPoliza, CtaProveedorAnticipos, True, DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
+                                '                            '            ErrorAC = True
+                                '                            '            Exit For
+                                '                            '        End If
+                                '                            '    Else
+                                '                            '        ErrorAC = True
+                                '                            '        Exit For
+                                '                            '    End If
 
-                                                            'Else
-                                                            '    'actualizo el idcuenta del presupuesto
-                                                            '    Importe = TxtTotal.Text.ToDouble
-                                                            '    If Not ObjContaAC.AddMovimiento(123456, IdPoliza, tIdContaProveedor, True, If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe), "", ConceptoRenglon, 0, Fecha, "") Then
-                                                            '        ErrorAC = True
-                                                            '        Exit For
-                                                            '    End If
+                                '                            'Else
+                                '                            '    'actualizo el idcuenta del presupuesto
+                                '                            '    Importe = TxtTotal.Text.ToDouble
+                                '                            '    If Not ObjContaAC.AddMovimiento(123456, IdPoliza, tIdContaProveedor, True, If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe), "", ConceptoRenglon, 0, Fecha, "") Then
+                                '                            '        ErrorAC = True
+                                '                            '        Exit For
+                                '                            '    End If
 
-                                                            'End If
+                                '                            'End If
 
 
-                                                        Else
-                                                            ErrorACMEnsaje.Append(" - Error AFECTAR MATRIZ EGRESOS ObjContaAC.AddMovimiento")
-                                                            ErrorAC = True
-                                                            Exit For
-                                                        End If
-                                                        ''TERMINA AFECTAR MATRIZ EGRESOS
+                                '                        Else
+                                '                            ErrorACMEnsaje.Append(" - Error AFECTAR MATRIZ EGRESOS ObjContaAC.AddMovimiento")
+                                '                            ErrorAC = True
+                                '                            Exit For
+                                '                        End If
+                                '                        ''TERMINA AFECTAR MATRIZ EGRESOS
 
-                                                    Else
-                                                        ErrorACMEnsaje.Append(" - For Each grp In Presup  Importe > 0 ")
-                                                        ErrorAC = True
-                                                        Exit For
-                                                    End If
+                                '                    Else
+                                '                        ErrorACMEnsaje.Append(" - For Each grp In Presup  Importe > 0 ")
+                                '                        ErrorAC = True
+                                '                        Exit For
+                                '                    End If
 
-                                                Next
+                                '                Next
 
-                                                ''actualizo el idcuenta del presupuesto
-                                                'Importe = TxtTotal.Text.ToDecimal
-                                                'If Not ObjContaAC.AddMovimiento(IdPoliza, tIdContaProveedor, True, MultiplicadorNC * (If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe)), "", ConceptoRenglon, 0, Fecha, "") Then
-                                                '    ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto   ObjContaAC.AddMovimiento   3")
-                                                '    ErrorAC = True
-                                                'End If
-                                                'End If
+                                '                ''actualizo el idcuenta del presupuesto
+                                '                'Importe = TxtTotal.Text.ToDecimal
+                                '                'If Not ObjContaAC.AddMovimiento(IdPoliza, tIdContaProveedor, True, MultiplicadorNC * (If(ArrAnticipos.Count > 0, ImporteAnticipo, Importe)), "", ConceptoRenglon, 0, Fecha, "") Then
+                                '                '    ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto   ObjContaAC.AddMovimiento   3")
+                                '                '    ErrorAC = True
+                                '                'End If
+                                '                'End If
 
-                                                'If tRetISR > 0 Then 'CtaProveedorRetISR
-                                                '    ConceptoRenglon = String.Format("GD Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
-                                                '    If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * tRetISR, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                '        ErrorACMEnsaje.Append(" RetISR > 0  ObjContaAC.AddMovimiento")
-                                                '        ErrorAC = True
-                                                '    End If
-                                                'End If
+                                '                'If tRetISR > 0 Then 'CtaProveedorRetISR
+                                '                '    ConceptoRenglon = String.Format("GD Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
+                                '                '    If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * tRetISR, "", ConceptoRenglon, 0, Fecha, "") Then
+                                '                '        ErrorACMEnsaje.Append(" RetISR > 0  ObjContaAC.AddMovimiento")
+                                '                '        ErrorAC = True
+                                '                '    End If
+                                '                'End If
 
-                                                'TERMINA: PRUEBA AGRUPACION CONCEPTOS
+                                '                'TERMINA: PRUEBA AGRUPACION CONCEPTOS
 
-                                                'registrar amortizar anticipos
-                                            End If
+                                '                'registrar amortizar anticipos
+                                '            End If
 
-                                        Else
-                                            ErrorACMEnsaje.Append(" - Id Poliza = 0 ")
-                                            ErrorAC = True
-                                        End If
-                                    Else
-                                        TieneError = True
-                                        ErrorACMEnsaje.Append("- TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0")
-                                        ErrorAC = True
-                                    End If
-                                End If
+                                '        Else
+                                '            ErrorACMEnsaje.Append(" - Id Poliza = 0 ")
+                                '            ErrorAC = True
+                                '        End If
+                                '    Else
+                                '        TieneError = True
+                                '        ErrorACMEnsaje.Append("- TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0")
+                                '        ErrorAC = True
+                                '    End If
+                                'End If
+                                '-------FIN  U S A     A  C -------------------------------------------------------------------
 
                                 If Not ErrorAC AndAlso Not TieneError Then
 
@@ -5105,11 +5097,8 @@ Partial Class Compras_Compras
                                                     Exit For
                                                 End If
                                             Next
-                                        Else
-
                                         End If
 
-
                                         'AGREGA AF COMPRA - Cuando es Compra se guarda CveCompraDetalle en AF
                                         If Row("TipoAF").ToString.ToEntero = 2 Then
                                             Dim Valor As Decimal = Row("Total").ToString.ToDecimal
@@ -5127,7 +5116,6 @@ Partial Class Compras_Compras
                                                     ErrorSATPS = True
                                                 End If
                                             End If
-
                                         End If
 
                                         indiceTR += 1
@@ -5135,7 +5123,7 @@ Partial Class Compras_Compras
                                     ''TERMINA: INSERTA DETALLES DE LA COMPRA
 
                                     'QUEMA SALDOS DE INV-COMPRA | MERCANCIA RECIBIDA POR ADELANTADO (OC) | PP 176
-                                    If OCVinculada And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                    If OCVinculada And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
                                         For Each Row As DataRow In TmpDT.FiltraParametros("CveTipoPS = 2").Rows
                                             If Not ObjOC.OrdenesCompraDetalleSaldosInvCompraAdd(Row("CveOrdenCompraDetalle").ToString.ToEntero, -1, -1, Row("CveCompraDetalle").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal) Then
                                                 ErrorSaldosInvComp = True
@@ -5145,17 +5133,16 @@ Partial Class Compras_Compras
 
                                         'verifica si fue vinculada con una OC, y si fue la opción de entrega por adelantado, que si hubo cambios de precios
                                         If DdlOCVinculaInv.SelectedValue.ToEntero.Contiene(176, 205) Then
-                                            If Not AjustarPrePolizaVinculacionOC(ObjOC, ObjEventos, ObjInventario, ObjConta, ObjContaAC) Then
+                                            If Not AjustarPrePolizaVinculacionOC(ObjOC, ObjEventos, ObjInventario, ObjConta) Then
                                                 ErrorPrepoliza = True
                                             End If
                                         End If
-
                                     End If
 
                                     If CvePrePoliza > 0 Then
 
                                         'INVENTARIOS - ALMACEN
-                                        If UsuarioActual.Empresa.UsaInventarios Then 'And UsuarioActual.Empresa.UsaAC = False
+                                        If UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoCompra.SelectedValue <> "13" Then 'And UsuarioActual.Empresa.UsaAC = False
 
                                             ''SI ES CON DOLARES VALIDA QUE SE TENGA EL TIPO DE CAMBIO DEL DIA DE LA FACTURA - SI NO, NO HACE NADA, la validación del TC, ya está chk constrains
                                             ' If DdlMoneda.SelectedValue.ToEntero = 1 Or (DdlMoneda.SelectedValue.ToEntero > 1 AndAlso GlobalTipoCambio(TxtFecha.Text.ToDate) > 0) Then
@@ -5406,14 +5393,6 @@ Partial Class Compras_Compras
                                                 Case Else
                                             End Select
                                         End If
-
-                                        Dim CveConceptoCompra As Integer = 6 'Compra
-                                        Dim CveConceptoIVA As Integer = 14 'IVA Trasladado
-                                        Dim CveConceptoRetIVA As Integer = 15 'Ret IVA
-                                        Dim CveConceptoRetISR As Integer = 16 'Ret ISR
-                                        Dim CveConceptoDescuento As Integer = 24 'DSC
-                                        Dim CveConceptoRetIEPS As Integer = 25 'IEPS
-                                        Dim CveConceptoRetOtrosImpuestos As Integer = 27 'Otros Impuestos
                                         Dim CveCreditoDetalle As Integer = -1
 
                                         'Afectable con el tabpanel Contable
@@ -5997,9 +5976,9 @@ Partial Class Compras_Compras
 
                                                     Case 6 'Compra
 
-                                                        Dim AgregaMercanciaInventario As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
+                                                        Dim AgregaMercanciaInventario As Boolean = UsuarioActual.Empresa.UsaInventarios
 
-                                                        Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1"
+                                                        Dim RegistraConcepto225 As Boolean = UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV")
 
                                                         Dim Insertado205 As Boolean = False
 
@@ -6033,13 +6012,13 @@ Partial Class Compras_Compras
 
                                                             'COSTO ALMACEN
                                                             Dim DtAlmacenes As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
-                                                            If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                                            If UsuarioActual.Empresa.UsaInventarios Then
                                                                 DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"})
                                                                 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
                                                                 'SI LA COMPRA ES DE TIPO GASTO CON ALMACEN DEBE REGISTRAR MOVIMIENTO
                                                                 Dim AlmacenSoloExistencia As Boolean = False
 
-                                                                If DdlTipoCompra.SelectedValue <> "10" Then
+                                                                If DdlTipoCompra.SelectedValue <> "10" AndAlso DdlTipoCompra.SelectedValue <> "13" Then
                                                                     For Each Dr As DataRow In DT.Rows
 
                                                                         If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen =  {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then
@@ -6106,7 +6085,7 @@ Partial Class Compras_Compras
 
                                                                             Else
                                                                                 'SI ES GASTO CON ALMACEN NO DEBE CONTABILIZAR CONCEPTO 68
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
+                                                                                If CveMovimientoInventario > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN.RoundSQL(2), importeMN.RoundSQL(2), 68, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=ContabilizableAlmacen) Then
                                                                                     ErrorPrepoliza = True
                                                                                 End If
 
@@ -6130,6 +6109,16 @@ Partial Class Compras_Compras
                                                             importeMovimiento = 0
                                                             'End If
                                                             Dim CostoIndirectoAcum176 As Decimal = 0
+                                                            'DEBE METER EL CONCEPTO DE RECEPCION ADELANTADO
+                                                            If DdlTipoCompra.SelectedValue = "13" Then
+                                                                AgregaMercanciaInventario = False
+                                                                importeMovimiento = TmpDT.SUMD(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"))
+                                                                importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'TIENE QUE TENER EL IMPORTEMN IGUAL AL IMPORTEMOVIMIENTO PORQUE NO TOMA EN CUENTA SI UN PRODUCTO ES TIPO SERVICIO
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, importeMN, 363, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual,
+                                                                                                                 Contabilizable:=SeContabiliza) Then
+                                                                    ErrorPrepoliza = True
+                                                                End If
+                                                            End If
                                                             'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ]
                                                             If AgregaMercanciaInventario AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") AndAlso CveConceptoContableAlmacen.Contiene(205, 176, 237, 240) Then
 
@@ -6150,6 +6139,7 @@ Partial Class Compras_Compras
                                                                     ConceptoContabilizacion = 6
                                                                 End If
 
+
                                                                 Select Case ConceptoContabilizacion
                                                                     Case 6
                                                                         importeMovimiento = TmpDT.SUMD(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"))
@@ -6172,6 +6162,7 @@ Partial Class Compras_Compras
                                                                         ConceptoContabilizacionMEComp = 242
                                                                         importeMovimiento = TmpDT.SUMD(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"))
                                                                         importeMN = importeMovimiento * tipoCambioActual * Multiplicador 'TIENE QUE TENER EL IMPORTEMN IGUAL AL IMPORTEMOVIMIENTO PORQUE NO TOMA EN CUENTA SI UN PRODUCTO ES TIPO SERVICIO
+
                                                                 End Select
 
                                                                 Dim CveMovimientoAlmacen As Integer = -1
@@ -6464,30 +6455,30 @@ Partial Class Compras_Compras
                                                                 End If
 
                                                                 Dim DTDistinct As DataTable = DT.Copy
-                                                                If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-                                                                    For Each drowdis As DataRow In DTDistinct.Rows
-                                                                        If drowdis("CveTipoGasto").ToString = "" Then
-                                                                            drowdis("CveTipoGasto") = 0
-                                                                        End If
-                                                                        If drowdis("TipoGasto").ToString.Trim = "" Then
-                                                                            drowdis("TipoGasto") = "ND"
-                                                                        End If
-                                                                    Next
-                                                                    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF, 0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
-                                                                Else
+                                                                'If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                                                '    For Each drowdis As DataRow In DTDistinct.Rows
+                                                                '        If drowdis("CveTipoGasto").ToString = "" Then
+                                                                '            drowdis("CveTipoGasto") = 0
+                                                                '        End If
+                                                                '        If drowdis("TipoGasto").ToString.Trim = "" Then
+                                                                '            drowdis("TipoGasto") = "ND"
+                                                                '        End If
+                                                                '    Next
+                                                                '    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF, 0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                                                'Else
 
-                                                                    For Each drowdis As DataRow In DTDistinct.Rows
-                                                                        If drowdis("CveTipoGasto").ToString = "" Then
-                                                                            drowdis("CveTipoGasto") = 0
-                                                                        End If
-                                                                        If drowdis("TipoGasto").ToString.Trim = "" Then
-                                                                            drowdis("TipoGasto") = "ND"
-                                                                        End If
-                                                                    Next
-                                                                    DTDistinct.AcceptChanges()
+                                                                For Each drowdis As DataRow In DTDistinct.Rows
+                                                                    If drowdis("CveTipoGasto").ToString = "" Then
+                                                                        drowdis("CveTipoGasto") = 0
+                                                                    End If
+                                                                    If drowdis("TipoGasto").ToString.Trim = "" Then
+                                                                        drowdis("TipoGasto") = "ND"
+                                                                    End If
+                                                                Next
+                                                                DTDistinct.AcceptChanges()
 
-                                                                    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
-                                                                End If
+                                                                DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                                                'End If
                                                                 'RMF, si es concepto relacionado a flete o importacion, no debe de afectar al gasto
                                                                 If CveFlete > 0 OrElse CveImportacion > 0 OrElse (CveCompraRefacturacion > 0 AndAlso ChkRefacNC.Checked) Then
                                                                     DTDistinct.Clear()
@@ -6498,11 +6489,11 @@ Partial Class Compras_Compras
                                                                     For Each Row2 As DataRow In DTDistinct.Rows
                                                                         tTipoMovimiento = TipoMovimiento
                                                                         'DETERMINA IMPORTE
-                                                                        If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-                                                                            importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), String.Format("ISNULL(TipoAF,0) <> 2 And CveClasificacion = {0} And CveSubProyecto = {1} And ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
-                                                                        Else
-                                                                            importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), String.Format("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And CveClasificacion = {0} And CveSubProyecto = {1} And ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
-                                                                        End If
+                                                                        'If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                                                        '    importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), String.Format("ISNULL(TipoAF,0) <> 2 And CveClasificacion = {0} And CveSubProyecto = {1} And ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
+                                                                        'Else
+                                                                        importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), String.Format("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And CveClasificacion = {0} And CveSubProyecto = {1} And ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
+                                                                        'End If
                                                                         'se debe de restar el costo indirecto,  si se recibió por OC sobre el importe del gasto, por si ya está incuido
                                                                         importeMovimiento = importeMovimiento - CostoIndirectoAcum176
                                                                         importeMN = importeMovimiento * tipoCambioActual * Multiplicador '[IPP] EL 6 DEBE SER POSITIVO 27/AGOSTO/2018
@@ -6638,12 +6629,8 @@ Partial Class Compras_Compras
                                                         If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
                                                         If importeMovimiento <> 0 Then
                                                             GuardoConcepto18 = True
-
-                                                            'If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119, 158) Then
-
                                                             'PROVISION de NC
                                                             Dim ConPreP As ConceptosTipoSaldo = ClsPaginas.ObtenerCveConceptoPrePoliza(15, DdlMoneda.SelectedValue.ToEntero, False, CveTipoConcepto)
-                                                            'Dim CveCon As Integer = ObtConceptoContableProvisionCompra(CveTipoConcepto, DdlTipoComprobante.SelectedValue, DdlMoneda.SelectedValue.ToEntero, False)
 
                                                             If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, importeMovimiento, ConPreP.CveConcepto, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
                                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, importeMN - importeMovimiento, ConPreP.CveConceptoComplementario, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimiento, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
@@ -6651,11 +6638,7 @@ Partial Class Compras_Compras
                                                                     Exit Select
                                                                 End If
                                                             End If
-
-
-
                                                         Else
-                                                            ErrorPrepoliza = True
                                                             Exit Select
                                                         End If
 
@@ -6698,344 +6681,329 @@ Partial Class Compras_Compras
                                                             Exit Select
                                                         End If
 
+                                                        importeMovimiento = 0
 
+                                                    Case 29 'Funcionarios y Empleados
+                                                        importeMovimiento = importeFE
+                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
 
-                                                        End If
-                                        importeMovimiento = 0
-
-                                        Case 29 'Funcionarios y Empleados
-                                        importeMovimiento = importeFE
-                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-
-                                        If importeMovimiento > 0 Then
-
-                                            Dim Pago As New CompraPago
-                                            If DDlCheques.SelectedValue.ToEntero > 0 Then
-                                                Pago.ImportePago = importeFE
-                                                Pago.CveIE = DDlCheques.SelectedValue.ToEntero
-                                                Pago.CvePersonal = CvePersonal
-
-                                                ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
-                                            Else
-                                                Alert("Debe de seleccionar un cheque.", TipoMensaje.MsgAdvertencia)
-                                                ErrorPrepoliza = True
-                                            End If
-
-                                        End If
-
-                                        Case 21 'Anticipo
-
-                                        If ArrAnticipos.Count > 0 Then
-
-                                            Dim PorcentajeImpuestoAnticipo As Decimal = PorcentajeIVA
-
-                                            For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
-
-                                                TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
-
-                                                Dim ConceptoContableAnticipo, ConceptoContableAnticipoComplementaria As Integer
-                                                Dim CveCompraNC As Integer = CveCompra
-
-                                                Select Case Ant.TipoMovto
-                                                    Case "NC", "DEV"
-                                                        ConceptoContableAnticipo = 60
-                                                        ConceptoContableAnticipoComplementaria = 235
-                                                        CveCompraNC = Ant.CveCompra 'cuando es NC, se utiliza la clave de compra de la nota de credito
-                                                    Case "Egsc"
-                                                        ConceptoContableAnticipo = 21
-                                                    Case "DD"
-                                                        ConceptoContableAnticipo = 37
-                                                    Case "Ant"
-                                                        ConceptoContableAnticipo = 265
-                                                        ConceptoContableAnticipoComplementaria = 266
-                                                        CveCompraNC = Ant.CveCompra
-                                                End Select
-
-                                                importeMovimiento = Ant.Importe
-                                                importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-
-                                                Dim ImporComisionAnticipo As Decimal = Ant.ImporteComision
-                                                Dim importeMNComision As Decimal = ImporComisionAnticipo * tipoCambioActual * Multiplicador
-
-                                                If importeMovimiento <> 0 Then
-                                                    'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA
-                                                    If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 Then
-                                                        Dim importeMovimientoNC As Decimal = Ant.Importe
-                                                        Dim importeMNNC As Decimal = 0.0D
-                                                        Dim TipoCambioNC As Decimal = Ant.TCCompra
-
-                                                        importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador
-                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, importeMovimientoNC, 60, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then
-                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, importeMNNC - importeMovimientoNC, 235, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then
-                                                                ErrorPrepoliza = True
-                                                                Exit For
-                                                            End If
-                                                        Else
-                                                            ErrorPrepoliza = True
-                                                            Exit For
-                                                        End If
-
-                                                        importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
-                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, importeMovimientoNC, 272, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Ant.CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                            Dim CveConceptoContableComplementaria As Integer = 206
-                                                            If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor 
-                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, importeMNNC - importeMovimientoNC, CveConceptoContableComplementaria, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                ErrorPrepoliza = True
-                                                                Exit For
-                                                            End If
-                                                        Else
-                                                            ErrorPrepoliza = True
-                                                            Exit For
-                                                        End If
-
-                                                        ' FLUCTUACION CAMBIARIA
-                                                        If tipoCambioActual <> TipoCambioNC Then
-                                                            importeMovimiento = (importeMovimientoNC * tipoCambioActual) - (importeMovimientoNC * TipoCambioNC)
-
-                                                            If importeMovimiento > 0 Then
-                                                                ConceptoContable = 64
-                                                                TipoMovimiento = True
-                                                            ElseIf importeMovimiento < 0 Then
-                                                                ConceptoContable = 65
-                                                                TipoMovimiento = False
-                                                            End If
-
-                                                            importeMovimiento = importeMovimiento.Abs.RoundSQL()
-                                                            importeMN = importeMovimiento
-                                                            If importeMovimiento <> 0 Then
-
-                                                                Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, ConceptoContable, Concepto, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, Contabilizable:=SeContabiliza) Then
-                                                                    ErrorPrepoliza = True
-                                                                    Exit For
-                                                                End If
-                                                            End If
-                                                        End If
-
-                                                    ElseIf ConceptoContableAnticipo.Contiene(265) And DdlMoneda.SelectedValue.ToEntero <> 1 Then
-                                                        Dim importeMovimientoNC As Decimal = Ant.Importe
-                                                        Dim importeMNNC As Decimal = 0.0D
-                                                        Dim TipoCambioNC As Decimal = Ant.TCCompra
-
-                                                        importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador
-                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, importeMovimientoNC, 265, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then
-                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, importeMNNC - importeMovimientoNC, 266, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then
-                                                                ErrorPrepoliza = True
-                                                                Exit For
-                                                            End If
-                                                        Else
-                                                            ErrorPrepoliza = True
-                                                            Exit For
-                                                        End If
-
-                                                        If TxtTotal.Text.ToDouble > 0 AndAlso TieneAnticiposXML = False Then
-                                                            importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
-                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, importeMovimientoNC, 272, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCompraAmortizacion:=CveCompraNC, Contabilizable:=SeContabiliza) Then
-                                                                Dim CveConceptoContableComplementaria As Integer = 206
-                                                                If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor 
-
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, importeMNNC - importeMovimientoNC, CveConceptoContableComplementaria, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                    ErrorPrepoliza = True
-                                                                    Exit For
-                                                                End If
-                                                            Else
-                                                                ErrorPrepoliza = True
-                                                                Exit For
-                                                            End If
-
-                                                            If Ant.TipoMovto.Contiene("Ant") Then
-
-                                                                If importeMovimientoNC <> 0 Then
-                                                                    Dim Pago As New CompraPago
-                                                                    Pago.ImportePago = importeMovimientoNC
-                                                                    Pago.CveIE = Ant.CveIE
-                                                                    Pago.CveMonedaPago = 1
-                                                                    Pago.OtroGastoIngreso = ImporComisionAnticipo
-
-                                                                    ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
-
-                                                                End If
-                                                            End If
-                                                        End If
-
-                                                    Else
-
-                                                        Dim usacomplementariaAnticipo As Boolean = False
-                                                        usacomplementariaAnticipo = If(Ant.TCCompra > 1 And Not UsuarioActual.CveEmpresa.Contiene(13, 83), True, False)
-                                                        Dim TipoCambioAnt As Decimal = Ant.TCCompra
-
-                                                        Dim ImporteAnt As Decimal = importeMovimiento
-                                                        Dim ImporteAntMN As Decimal = ImporteAnt * TipoCambioAnt
-
-                                                        If usacomplementariaAnticipo Then
-                                                            ImporteAntMN = TipoCambioAnt * ImporteAnt - ImporteAnt
-                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, ImporteAntMN, 266, Referencia, Concepto, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=ImporteAnt, TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then
-                                                                ErrorPrepoliza = True
-                                                                Exit For
-                                                            End If
-                                                            ImporteAntMN = ImporteAnt
-                                                        End If
-                                                        If Not usacomplementariaAnticipo Then
-                                                            ImporteAntMN = TipoCambioAnt * ImporteAnt
-                                                        End If
-                                                        If ImporComisionAnticipo = 0 Then
-                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, ImporteAntMN, ConceptoContableAnticipo, Referencia, Concepto, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, ImporteME:=If(tipoCambioActual = 1, 0, ImporteAnt), TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then
-                                                                ErrorPrepoliza = True
-                                                            End If
-                                                        Else
-                                                            Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) * TipoCambioAnt
-
-                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (ImporteAnt + ImporComisionAnticipo), ImporteAntMNComision, ConceptoContableAnticipo, Referencia, Concepto, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, ImporteME:=If(tipoCambioActual = 1, 0, (ImporteAnt + ImporComisionAnticipo)), TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then
-                                                                ErrorPrepoliza = True
-                                                            End If
-                                                        End If
-                                                        If TxtTotal.Text.ToDouble > 0 AndAlso TieneAnticiposXML = False Then
+                                                        If importeMovimiento > 0 Then
 
                                                             Dim Pago As New CompraPago
-                                                            Pago.ImportePago = importeMovimiento
-                                                            Pago.CveIE = Ant.CveIE
-                                                            Pago.TCPago = Ant.TCCompra
-                                                            Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1)
-                                                            Pago.OtroGastoIngreso = ImporComisionAnticipo
-                                                            ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+                                                            If DDlCheques.SelectedValue.ToEntero > 0 Then
+                                                                Pago.ImportePago = importeFE
+                                                                Pago.CveIE = DDlCheques.SelectedValue.ToEntero
+                                                                Pago.CvePersonal = CvePersonal
 
-                                                        End If
-                                                    End If
-                                                End If
-
-                                                If UsuarioActual.CveEmpresa.Contiene(83) Then
-                                                    'Unificacion de PrePolizas
-                                                    If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
-                                                        If Not ObjConta.PrePolizaUnificacion(Ant.CvePrePoliza, CvePrePoliza) Then
-                                                            ErrorPrepoliza = True
-                                                            Alert("No se pudo unificar la prepoliza", TipoMensaje.MsgError)
-                                                        End If
-                                                    End If
-
-                                                    'Simplificacion de PrePolizas
-                                                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                                                        If Not ObjConta.UpdatePrePolizasDetalleBloquear(Ant.CvePrePoliza, False) Then
-                                                            ErrorPrepoliza = True
-                                                            Alert("No se pudo desbloquear los movimientos", TipoMensaje.MsgError)
-                                                        End If
-
-                                                        If Not ErrorPrepoliza AndAlso Not ObjConta.PrePolizaSimplificacion(Ant.CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                                            ErrorPrepoliza = True
-                                                            Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
-                                                        End If
-                                                    End If
-                                                End If
-                                            Next
-                                            importeMovimiento = 0
-                                        End If
-
-                                        End Select
-
-                                        If ErrorPrepoliza Then
-                                            Exit For
-                                        End If
-                                        '5, 305, 306, 311
-                                        If importeMovimiento <> 0 Or (CveConceptoOriginal = 5 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN.RoundSQL, ConceptoContable, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
-                                                ErrorPrepoliza = True
-                                                Exit For
-                                            End If
-                                        End If
-
-                                        Next
-
-                                        'EMPIEZA REFACTURACION
-                                        If Not ErrorPrepoliza AndAlso CveCompraRefacturacion > 0 Then
-                                            ErrorBitacora = GuardaRefacturacion(ObjCompras, ObjEventos, CvePrePoliza)
-                                            If ErrorBitacora Then
-                                                Alert("Ocurrió un error al hacer la Refacturación", TipoMensaje.MsgError)
-                                            End If
-                                        End If
-                                    End If
-
-                                    ''  A N T I C I P O S
-                                    If UsuarioActual.Empresa.UsaAC Then
-                                        If ArrAnticipos.Count > 0 Then
-
-                                            Dim PorcentajePago As Decimal
-                                            Dim ConceptoRenglon As String
-
-
-                                            ''si hay una diferencia entre lo amortizado y el total, se registra la diferencia a proveedores y los ivas por acreditar
-                                            'If TxtTotal.Text.ToDouble - ImporteAnticipo > 0 Then
-                                            '    PorcentajePago = (TxtTotal.Text.ToDecimal - ImporteAnticipo) / TxtTotal.Text.ToDecimal
-                                            '    ConceptoRenglon = String.Format("GE Fact  {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
-                                            '    If Not ObjContaAC.AddMovimiento(IdPoliza, CtaProveedor, True, TxtTotal.Text.ToDouble - ImporteAnticipo, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
-                                            '        ErrorACMEnsaje.Append(" - si hay una diferencia entre lo amortizado y el total, se registra la diferencia a proveedores y los ivas por acreditar ObjContaAC.AddMovimiento")
-                                            '        ErrorAC = True
-                                            '    End If
-                                            'End If
-
-                                            'una vez amortizado, se generan los movimientos presupuestales
-                                            If ImporteAnticipo > 0 Then
-                                                PorcentajePago = ImporteAnticipo / TxtTotal.Text.ToDecimal
-                                                If ObjCompras.GetPresupuestosCompras(CveCompra) AndAlso ObjCompras.DtResultados.Rows.Count > 0 Then
-                                                    'DtAC.Merge(ObjConta.DtResultados)
-                                                    For Each dr As DataRow In ObjCompras.DtResultados.Rows
-                                                        Total = dr("TotalPresupuesto").ToString.ToDecimal * PorcentajePago
-                                                        If Total > 0 Then
-
-                                                            'EJERCIDO
-                                                            If True Then
-                                                                ConceptoRenglon = String.Format("GE {0} F{1}-{2}", DdlProveedor.SelectedItem.Text, TxtSerie.Text, TxtFolio.Text)
-                                                                If ObjContaAC.AddMovimiento(IdPoliza, dr("IdCuentaEjercido").ToString.ToEntero, False, MultiplicadorNC * Total, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
-                                                                    'actualizo el idcuenta del presupuesto
-                                                                    If Not ObjContaAC.AddMovimiento(IdPoliza, dr("IdCuentaDevengado").ToString.ToEntero, True, MultiplicadorNC * Total, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
-                                                                        TieneError = True
-                                                                        Exit For
-                                                                    End If
-                                                                Else
-                                                                    TieneError = True
-                                                                    Exit For
-                                                                End If
-                                                            End If
-
-                                                            'PAGADO
-                                                            ConceptoRenglon = String.Format("GP {0} F{1}-{2}", DdlProveedor.SelectedItem.Text, TxtSerie.Text, TxtFolio.Text)
-                                                            If ObjContaAC.AddMovimiento(IdPoliza, dr("IdCuentaPagado").ToString.ToEntero, False, MultiplicadorNC * Total, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
-                                                                'actualizo el idcuenta del presupuesto
-                                                                If Not ObjContaAC.AddMovimiento(IdPoliza, dr("IdCuentaEjercido").ToString.ToEntero, True, MultiplicadorNC * Total, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
-                                                                    TieneError = True
-                                                                    Exit For
-                                                                End If
+                                                                ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
                                                             Else
-                                                                TieneError = True
-                                                                Exit For
+                                                                Alert("Debe de seleccionar un cheque.", TipoMensaje.MsgAdvertencia)
+                                                                ErrorPrepoliza = True
                                                             End If
 
                                                         End If
-                                                    Next
 
-                                                Else
-                                                    ErrorACMEnsaje.Append(" -  Error al obtener presupuestos ObjCompras.GetPresupuestosCompras")
-                                                    ErrorAC = True
+                                                    Case 21 'Anticipo
+
+                                                        If ArrAnticipos.Count > 0 Then
+
+                                                            Dim PorcentajeImpuestoAnticipo As Decimal = PorcentajeIVA
+
+                                                            For Each Ant As Compras_Compras.Anticipos In ArrAnticipos
+
+                                                                TipoMovimiento = If(Row("TipoMovto").ToString = "True", True, False)
+
+                                                                Dim ConceptoContableAnticipo, ConceptoContableAnticipoComplementaria As Integer
+                                                                Dim CveCompraNC As Integer = CveCompra
+
+                                                                Select Case Ant.TipoMovto
+                                                                    Case "NC", "DEV"
+                                                                        ConceptoContableAnticipo = 60
+                                                                        ConceptoContableAnticipoComplementaria = 235
+                                                                        CveCompraNC = Ant.CveCompra 'cuando es NC, se utiliza la clave de compra de la nota de credito
+                                                                    Case "Egsc"
+                                                                        ConceptoContableAnticipo = 21
+                                                                    Case "DD"
+                                                                        ConceptoContableAnticipo = 37
+                                                                    Case "Ant"
+                                                                        ConceptoContableAnticipo = 265
+                                                                        ConceptoContableAnticipoComplementaria = 266
+                                                                        CveCompraNC = Ant.CveCompra
+                                                                End Select
+
+                                                                importeMovimiento = Ant.Importe
+                                                                importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+
+                                                                Dim ImporComisionAnticipo As Decimal = Ant.ImporteComision
+                                                                Dim importeMNComision As Decimal = ImporComisionAnticipo * tipoCambioActual * Multiplicador
+
+                                                                If importeMovimiento <> 0 Then
+                                                                    'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA
+                                                                    If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 Then
+                                                                        Dim importeMovimientoNC As Decimal = Ant.Importe
+                                                                        Dim importeMNNC As Decimal = 0.0D
+                                                                        Dim TipoCambioNC As Decimal = Ant.TCCompra
+
+                                                                        importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador
+                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, importeMovimientoNC, 60, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, importeMNNC - importeMovimientoNC, 235, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                                Exit For
+                                                                            End If
+                                                                        Else
+                                                                            ErrorPrepoliza = True
+                                                                            Exit For
+                                                                        End If
+
+                                                                        importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
+                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, importeMovimientoNC, 272, Referencia, Concepto, CveCompra:=CveCompra, CveCompraAmortizacion:=Ant.CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                            Dim CveConceptoContableComplementaria As Integer = 206
+                                                                            If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor 
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, importeMNNC - importeMovimientoNC, CveConceptoContableComplementaria, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                                Exit For
+                                                                            End If
+                                                                        Else
+                                                                            ErrorPrepoliza = True
+                                                                            Exit For
+                                                                        End If
+
+                                                                        ' FLUCTUACION CAMBIARIA
+                                                                        If tipoCambioActual <> TipoCambioNC Then
+                                                                            importeMovimiento = (importeMovimientoNC * tipoCambioActual) - (importeMovimientoNC * TipoCambioNC)
+
+                                                                            If importeMovimiento > 0 Then
+                                                                                ConceptoContable = 64
+                                                                                TipoMovimiento = True
+                                                                            ElseIf importeMovimiento < 0 Then
+                                                                                ConceptoContable = 65
+                                                                                TipoMovimiento = False
+                                                                            End If
+
+                                                                            importeMovimiento = importeMovimiento.Abs.RoundSQL()
+                                                                            importeMN = importeMovimiento
+                                                                            If importeMovimiento <> 0 Then
+
+                                                                                Dim CveSubProyecto6465 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN, ConceptoContable, Concepto, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyecto6465, CveProveedor:=CveProveedor, CveIE:=CveIE, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, Contabilizable:=SeContabiliza) Then
+                                                                                    ErrorPrepoliza = True
+                                                                                    Exit For
+                                                                                End If
+                                                                            End If
+                                                                        End If
+
+                                                                    ElseIf ConceptoContableAnticipo.Contiene(265) And DdlMoneda.SelectedValue.ToEntero <> 1 Then
+                                                                        Dim importeMovimientoNC As Decimal = Ant.Importe
+                                                                        Dim importeMNNC As Decimal = 0.0D
+                                                                        Dim TipoCambioNC As Decimal = Ant.TCCompra
+
+                                                                        importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador
+                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, importeMovimientoNC, 265, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, importeMNNC - importeMovimientoNC, 266, Referencia, Concepto, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                                Exit For
+                                                                            End If
+                                                                        Else
+                                                                            ErrorPrepoliza = True
+                                                                            Exit For
+                                                                        End If
+
+                                                                        If TxtTotal.Text.ToDouble > 0 AndAlso TieneAnticiposXML = False Then
+                                                                            importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
+                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, importeMovimientoNC, 272, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCompraAmortizacion:=CveCompraNC, Contabilizable:=SeContabiliza) Then
+                                                                                Dim CveConceptoContableComplementaria As Integer = 206
+                                                                                If CveTipoConcepto = 2 Then CveConceptoContableComplementaria = 310 'cuando es acreedor 
+
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, importeMNNC - importeMovimientoNC, CveConceptoContableComplementaria, Referencia, Concepto, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                    ErrorPrepoliza = True
+                                                                                    Exit For
+                                                                                End If
+                                                                            Else
+                                                                                ErrorPrepoliza = True
+                                                                                Exit For
+                                                                            End If
+
+                                                                            If Ant.TipoMovto.Contiene("Ant") Then
+
+                                                                                If importeMovimientoNC <> 0 Then
+                                                                                    Dim Pago As New CompraPago
+                                                                                    Pago.ImportePago = importeMovimientoNC
+                                                                                    Pago.CveIE = Ant.CveIE
+                                                                                    Pago.CveMonedaPago = 1
+                                                                                    Pago.OtroGastoIngreso = ImporComisionAnticipo
+
+                                                                                    ErrorMovtosCxP = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+
+                                                                                End If
+                                                                            End If
+                                                                        End If
+
+                                                                    Else
+
+                                                                        Dim usacomplementariaAnticipo As Boolean = False
+                                                                        usacomplementariaAnticipo = If(Ant.TCCompra > 1 And Not UsuarioActual.CveEmpresa.Contiene(13, 83), True, False)
+                                                                        Dim TipoCambioAnt As Decimal = Ant.TCCompra
+
+                                                                        Dim ImporteAnt As Decimal = importeMovimiento
+                                                                        Dim ImporteAntMN As Decimal = ImporteAnt * TipoCambioAnt
+
+                                                                        If usacomplementariaAnticipo Then
+                                                                            ImporteAntMN = TipoCambioAnt * ImporteAnt - ImporteAnt
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, ImporteAntMN, 266, Referencia, Concepto, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=ImporteAnt, TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                                Exit For
+                                                                            End If
+                                                                            ImporteAntMN = ImporteAnt
+                                                                        End If
+                                                                        If Not usacomplementariaAnticipo Then
+                                                                            ImporteAntMN = TipoCambioAnt * ImporteAnt
+                                                                        End If
+                                                                        If ImporComisionAnticipo = 0 Then
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, ImporteAntMN, ConceptoContableAnticipo, Referencia, Concepto, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, ImporteME:=If(tipoCambioActual = 1, 0, ImporteAnt), TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                            End If
+                                                                        Else
+                                                                            Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) * TipoCambioAnt
+
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, (ImporteAnt + ImporComisionAnticipo), ImporteAntMNComision, ConceptoContableAnticipo, Referencia, Concepto, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveIE:=Ant.CveIE, ImporteME:=If(tipoCambioActual = 1, 0, (ImporteAnt + ImporComisionAnticipo)), TipoCambio:=TipoCambioAnt, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                            End If
+                                                                        End If
+                                                                        If TxtTotal.Text.ToDouble > 0 AndAlso TieneAnticiposXML = False Then
+
+                                                                            Dim Pago As New CompraPago
+                                                                            Pago.ImportePago = importeMovimiento
+                                                                            Pago.CveIE = Ant.CveIE
+                                                                            Pago.TCPago = Ant.TCCompra
+                                                                            Pago.CveMonedaPago = If(Ant.TCCompra > 1, 2, 1)
+                                                                            Pago.OtroGastoIngreso = ImporComisionAnticipo
+                                                                            ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta)
+
+                                                                        End If
+                                                                    End If
+                                                                End If
+
+                                                                If UsuarioActual.CveEmpresa.Contiene(83) Then
+                                                                    'Unificacion de PrePolizas
+                                                                    If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
+                                                                        If Not ObjConta.PrePolizaUnificacion(Ant.CvePrePoliza, CvePrePoliza) Then
+                                                                            ErrorPrepoliza = True
+                                                                            Alert("No se pudo unificar la prepoliza", TipoMensaje.MsgError)
+                                                                        End If
+                                                                    End If
+
+                                                                End If
+                                                            Next
+                                                            importeMovimiento = 0
+                                                        End If
+
+                                                End Select
+
+                                                If ErrorPrepoliza Then
+                                                    Exit For
+                                                End If
+                                                '5, 305, 306, 311
+                                                If importeMovimiento <> 0 Or (CveConceptoOriginal = 5 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, importeMN.RoundSQL, ConceptoContable, Referencia, Concepto, CveCompra:=CveCompra, CveSubProyecto:=CveSubProyectoInsertar, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
+                                                        ErrorPrepoliza = True
+                                                        Exit For
+                                                    End If
                                                 End If
 
+                                            Next
+
+                                            'EMPIEZA REFACTURACION
+                                            If Not ErrorPrepoliza AndAlso CveCompraRefacturacion > 0 Then
+                                                ErrorBitacora = GuardaRefacturacion(ObjCompras, ObjEventos, CvePrePoliza)
+                                                If ErrorBitacora Then
+                                                    Alert("Ocurrió un error al hacer la Refacturación", TipoMensaje.MsgError)
+                                                End If
                                             End If
                                         End If
+
+                                        '''  A N T I C I P O S
+                                        'If UsuarioActual.Empresa.UsaAC Then
+                                        '    If ArrAnticipos.Count > 0 Then
+
+                                        '        Dim PorcentajePago As Decimal
+                                        '        Dim ConceptoRenglon As String
+
+
+                                        '        ''si hay una diferencia entre lo amortizado y el total, se registra la diferencia a proveedores y los ivas por acreditar
+                                        '        'If TxtTotal.Text.ToDouble - ImporteAnticipo > 0 Then
+                                        '        '    PorcentajePago = (TxtTotal.Text.ToDecimal - ImporteAnticipo) / TxtTotal.Text.ToDecimal
+                                        '        '    ConceptoRenglon = String.Format("GE Fact  {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
+                                        '        '    If Not ObjContaAC.AddMovimiento(IdPoliza, CtaProveedor, True, TxtTotal.Text.ToDouble - ImporteAnticipo, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
+                                        '        '        ErrorACMEnsaje.Append(" - si hay una diferencia entre lo amortizado y el total, se registra la diferencia a proveedores y los ivas por acreditar ObjContaAC.AddMovimiento")
+                                        '        '        ErrorAC = True
+                                        '        '    End If
+                                        '        'End If
+
+                                        '        'una vez amortizado, se generan los movimientos presupuestales
+                                        '        If ImporteAnticipo > 0 Then
+                                        '            PorcentajePago = ImporteAnticipo / TxtTotal.Text.ToDecimal
+                                        '            If ObjCompras.GetPresupuestosCompras(CveCompra) AndAlso ObjCompras.DtResultados.Rows.Count > 0 Then
+                                        '                'DtAC.Merge(ObjConta.DtResultados)
+                                        '                For Each dr As DataRow In ObjCompras.DtResultados.Rows
+                                        '                    Total = dr("TotalPresupuesto").ToString.ToDecimal * PorcentajePago
+                                        '                    If Total > 0 Then
+
+                                        '                        'EJERCIDO
+                                        '                        If True Then
+                                        '                            ConceptoRenglon = String.Format("GE {0} F{1}-{2}", DdlProveedor.SelectedItem.Text, TxtSerie.Text, TxtFolio.Text)
+                                        '                            If ObjContaAC.AddMovimiento(IdPoliza, dr("IdCuentaEjercido").ToString.ToEntero, False, MultiplicadorNC * Total, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
+                                        '                                'actualizo el idcuenta del presupuesto
+                                        '                                If Not ObjContaAC.AddMovimiento(IdPoliza, dr("IdCuentaDevengado").ToString.ToEntero, True, MultiplicadorNC * Total, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
+                                        '                                    TieneError = True
+                                        '                                    Exit For
+                                        '                                End If
+                                        '                            Else
+                                        '                                TieneError = True
+                                        '                                Exit For
+                                        '                            End If
+                                        '                        End If
+
+                                        '                        'PAGADO
+                                        '                        ConceptoRenglon = String.Format("GP {0} F{1}-{2}", DdlProveedor.SelectedItem.Text, TxtSerie.Text, TxtFolio.Text)
+                                        '                        If ObjContaAC.AddMovimiento(IdPoliza, dr("IdCuentaPagado").ToString.ToEntero, False, MultiplicadorNC * Total, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
+                                        '                            'actualizo el idcuenta del presupuesto
+                                        '                            If Not ObjContaAC.AddMovimiento(IdPoliza, dr("IdCuentaEjercido").ToString.ToEntero, True, MultiplicadorNC * Total, "", ConceptoRenglon, 0, TxtFechaPago.Text.ToDate, "") Then
+                                        '                                TieneError = True
+                                        '                                Exit For
+                                        '                            End If
+                                        '                        Else
+                                        '                            TieneError = True
+                                        '                            Exit For
+                                        '                        End If
+
+                                        '                    End If
+                                        '                Next
+
+                                        '            Else
+                                        '                ErrorACMEnsaje.Append(" -  Error al obtener presupuestos ObjCompras.GetPresupuestosCompras")
+                                        '                ErrorAC = True
+                                        '            End If
+
+                                        '        End If
+                                        '    End If
+                                        'End If
+
+                                        '' F U N C I O N A R I O S  Y E M P L E A D O S 
+                                        If RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0 Then
+                                            TxtDocumentoImporte.Text = TxtDocumentoImporteFE.Text
+                                            TxtDocumentoImporteCaja.Text = TxtDocumentoImporteFE.Text
+
+                                        End If
+
+                                        '************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
+
+                                        'End If
+                                    Else
+                                        ErrorMovtosCxP = True
                                     End If
-
-                                    '' F U N C I O N A R I O S  Y E M P L E A D O S 
-                                    If RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0 Then
-                                        TxtDocumentoImporte.Text = TxtDocumentoImporteFE.Text
-                                        TxtDocumentoImporteCaja.Text = TxtDocumentoImporteFE.Text
-
-                                    End If
-
-                                    '************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
-
-                                    'End If
-                                Else
-                                    ErrorMovtosCxP = True
                                 End If
-                            End If
 
-                            If HdnVCveOC.Value <> "-1" AndAlso HdnCveEstatusOC.Value <> "-1" Then
+                                If HdnVCveOC.Value <> "-1" AndAlso HdnCveEstatusOC.Value <> "-1" Then
                                 Dim ArrayCveOC As String() = HdnVCveOC.Value.Split(New Char() {","c})
                                 Dim ArrayCveEstatusOC As String() = HdnCveEstatusOC.Value.Split(New Char() {","c})
 
@@ -7079,19 +7047,19 @@ Partial Class Compras_Compras
                                 End If
                             End If
 
-                            'AGREGAR OTROS GASTOS A ORDEN DE CORTE
-                            If CveOrdenCorte > 0 And UsuarioActual.CveEmpresa = 126 Then
-                                If ObjCGame.AddCorteGasto(CveOrdenCorte, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Now, 0, CveCompra) Then
-                                    If Not ObjCGame.AddCorteGastoDetalle(ObjCGame.CveCorteGasto, 32, 1, TxtSubTotal.Text.ToDouble()) Then
-                                        ErrorOtrosGastos = True
-                                    End If
-                                Else
-                                    ErrorOtrosGastos = True
-                                End If
-                            End If
+                                'AGREGAR OTROS GASTOS A ORDEN DE CORTE
+                                'If CveOrdenCorte > 0 And UsuarioActual.CveEmpresa = 126 Then
+                                '    If ObjCGame.AddCorteGasto(CveOrdenCorte, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Now, 0, CveCompra) Then
+                                '        If Not ObjCGame.AddCorteGastoDetalle(ObjCGame.CveCorteGasto, 32, 1, TxtSubTotal.Text.ToDouble()) Then
+                                '            ErrorOtrosGastos = True
+                                '        End If
+                                '    Else
+                                '        ErrorOtrosGastos = True
+                                '    End If
+                                'End If
 
-                            'CREDITO COMPRA
-                            Dim CvePrePolizaCredito As Integer = 0
+                                'CREDITO COMPRA
+                                Dim CvePrePolizaCredito As Integer = 0
                             If RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue.ToEntero = 3 AndAlso DdlTipoCredito.SelectedValue.ToEntero = 1 AndAlso DdlCredito.SelectedValue.ToEntero > 0 Then
 
                                 If Not ObjIE.UpdateCreditosCompra(DdlCredito.SelectedValue.ToEntero, CveCompra, UsuarioActual.CveEmpresa) Then
@@ -8302,279 +8270,279 @@ Partial Class Compras_Compras
                         'End If
 
 
-                        '---------------------------------------------------------------------------------------------------
-                        ''EMPIEZA: SI USA AC
-                        If UsuarioActual.Empresa.UsaAC AndAlso IdPoliza > 0 Then
-                            ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
-                            ObjContaAC.IniciaTransacSQL()
+                        '---------------------U S A   AC------------------------------------------------------------------------------
+                        ''EMPIEZA: SI USA AC   
+                        'If UsuarioActual.Empresa.UsaAC AndAlso IdPoliza > 0 Then
+                        '    ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+                        '    ObjContaAC.IniciaTransacSQL()
 
 
-                            'ELIMINA TODOS LOS MOVIMIENTOS DE LA POLIZA
-                            ObjContaAC.RemoveAllMovimientos(IdPoliza)
+                        '    'ELIMINA TODOS LOS MOVIMIENTOS DE LA POLIZA
+                        '    ObjContaAC.RemoveAllMovimientos(IdPoliza)
 
 
-                            'INSERTA LOS NUEVOS MOVIMIENTOS DE LA POLIZA
-                            If IdPoliza > 0 Then
-                                Dim CuentaAbono As Integer
-                                Dim Importe As Decimal = 0
-                                Dim TotalDetalle As Decimal = 0
+                        '    'INSERTA LOS NUEVOS MOVIMIENTOS DE LA POLIZA
+                        '    If IdPoliza > 0 Then
+                        '        Dim CuentaAbono As Integer
+                        '        Dim Importe As Decimal = 0
+                        '        Dim TotalDetalle As Decimal = 0
 
-                                'CUENTA PROVEEDOR
-                                'If CtaProveedor <= 0 Then
-                                '    If ObjContaAC.GetCuentas(-1, "021120000000000000", -1) Then
-                                '        Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
-                                '        If drCuenta IsNot Nothing Then
-                                '            CuentaAbono = drCuenta("Id").ToString.ToEntero
-                                '            Dim FolioProveedor = ObjContaAC.GetFolioProveedores("021120000000000000").ToString
-                                '            ViewState("CtaProveedor") = ObjContaAC.AddCuenta(String.Format("02112{0}000000000", FolioProveedor.PadLeft(4, "0"c)), NombreProveedor, "D", 2, 0, 1, 0, "", 1, CuentaAbono)
-                                '            ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, CtaProveedor)
-                                '        Else
-                                '            ErrorAC = True
-                                '        End If
-                                '    Else
-                                '        ErrorAC = True
-                                '    End If
-                                'End If
+                        '        'CUENTA PROVEEDOR
+                        '        'If CtaProveedor <= 0 Then
+                        '        '    If ObjContaAC.GetCuentas(-1, "021120000000000000", -1) Then
+                        '        '        Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
+                        '        '        If drCuenta IsNot Nothing Then
+                        '        '            CuentaAbono = drCuenta("Id").ToString.ToEntero
+                        '        '            Dim FolioProveedor = ObjContaAC.GetFolioProveedores("021120000000000000").ToString
+                        '        '            ViewState("CtaProveedor") = ObjContaAC.AddCuenta(String.Format("02112{0}000000000", FolioProveedor.PadLeft(4, "0"c)), NombreProveedor, "D", 2, 0, 1, 0, "", 1, CuentaAbono)
+                        '        '            ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, CtaProveedor)
+                        '        '        Else
+                        '        '            ErrorAC = True
+                        '        '        End If
+                        '        '    Else
+                        '        '        ErrorAC = True
+                        '        '    End If
+                        '        'End If
 
-                                Dim ConceptoRenglon As String = ""
-                                If Not ErrorAC Then
+                        '        Dim ConceptoRenglon As String = ""
+                        '        If Not ErrorAC Then
 
-                                    Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA, tRetIVA, tRetISR As Decimal
+                        '            Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA, tRetIVA, tRetISR As Decimal
 
-                                    Dim ipresup As Integer = 0
+                        '            Dim ipresup As Integer = 0
 
-                                    'COMIENZA: PRUEBA AGRUPACION CONCEPTOS
-                                    Dim Presup = From gvr As DataRow In TmpDT.Rows.Cast(Of DataRow)()
-                                                 Group gvr By Grp = New With {
-                                            Key .CvePresupuestoEgreso = gvr("CvePresupuestoEgreso").ToString.ToEntero,
-                                            Key .CveActivoFijo = If(gvr("TipoAF").ToString.ToEntero = 2, gvr("CveActivoFijo").ToString.ToEntero, -1)
-                                        } Into Group
-                                                 Select Grp.CvePresupuestoEgreso, Grp.CveActivoFijo,
-                                            TotalImporte = Group.Sum(Function(r) r("Total").ToString.ToDecimal)
-                                    Dim Fecha As Date = TxtFecha.Text.ToDate
+                        '            'COMIENZA: PRUEBA AGRUPACION CONCEPTOS
+                        '            Dim Presup = From gvr As DataRow In TmpDT.Rows.Cast(Of DataRow)()
+                        '                         Group gvr By Grp = New With {
+                        '                    Key .CvePresupuestoEgreso = gvr("CvePresupuestoEgreso").ToString.ToEntero,
+                        '                    Key .CveActivoFijo = If(gvr("TipoAF").ToString.ToEntero = 2, gvr("CveActivoFijo").ToString.ToEntero, -1)
+                        '                } Into Group
+                        '                         Select Grp.CvePresupuestoEgreso, Grp.CveActivoFijo,
+                        '                    TotalImporte = Group.Sum(Function(r) r("Total").ToString.ToDecimal)
+                        '            Dim Fecha As Date = TxtFecha.Text.ToDate
 
-                                    'PresupuestoEgresos
-                                    Dim DtPresupuestosTemp As DataTable
-                                    Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz As Integer
+                        '            'PresupuestoEgresos
+                        '            Dim DtPresupuestosTemp As DataTable
+                        '            Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz As Integer
 
-                                    'Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA As Double
-                                    tTotalIVA = TxtIVA.Text.ToDecimal
-                                    tRetIVA = TxtRetIVA.Text.ToDecimal
-                                    tRetISR = TxtRetISR.Text.ToDecimal
+                        '            'Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA As Double
+                        '            tTotalIVA = TxtIVA.Text.ToDecimal
+                        '            tRetIVA = TxtRetIVA.Text.ToDecimal
+                        '            tRetISR = TxtRetISR.Text.ToDecimal
 
-                                    'tTotalIVA = tTotalIVA - tRetIVA - tRetISR
+                        '            'tTotalIVA = tTotalIVA - tRetIVA - tRetISR
 
-                                    tTotalGral = TxtTotal.Text.ToDecimal + tRetIVA + tRetISR ' EL TOTAL GENERAL DEBE DE SER EL SUBTOTAL + IVA, NO SE DEBEN DE INCLUIR LAS RETENCIONES, POR ESO SE RESTA
-                                    tDiferenciaIVA = tTotalIVA
-                                    tIVA = 0
-                                    ipresup = 0
+                        '            tTotalGral = TxtTotal.Text.ToDecimal + tRetIVA + tRetISR ' EL TOTAL GENERAL DEBE DE SER EL SUBTOTAL + IVA, NO SE DEBEN DE INCLUIR LAS RETENCIONES, POR ESO SE RESTA
+                        '            tDiferenciaIVA = tTotalIVA
+                        '            tIVA = 0
+                        '            ipresup = 0
 
-                                    'INVENTARIOS EN AC
-                                    Dim CuentaMatrizAlmacen As Integer
-                                    Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked)
-                                    Dim DescuentoConIVA As Double
-                                    Dim tPorIVA As Decimal = tTotalIVA / (tTotalGral - tTotalIVA)
-                                    Dim tAjusteTotal As Decimal = 0
+                        '            'INVENTARIOS EN AC
+                        '            Dim CuentaMatrizAlmacen As Integer
+                        '            Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked)
+                        '            Dim DescuentoConIVA As Double
+                        '            Dim tPorIVA As Decimal = tTotalIVA / (tTotalGral - tTotalIVA)
+                        '            Dim tAjusteTotal As Decimal = 0
 
-                                    For Each grp In Presup
-                                        Importe = grp.TotalImporte
-                                        TotalDetalle += Importe
-                                        ipresup += 1
-                                        If Importe > 0 Then
-                                            'saco la proporcion de iva que le corresponde
-                                            tIVA = Math.Round(Importe * tPorIVA, 2)
-                                            tDiferenciaIVA -= tIVA
-                                            'identifico si es el ultimo registro, para ver si es necesario un ajuste
-                                            If ipresup = Presup.Count Then
-                                                If Math.Round(TotalDetalle - tTotalGral, 2) <= 0.01 AndAlso tDiferenciaIVA > 0 Then
-                                                    tIVA += tDiferenciaIVA
-                                                End If
-                                            End If
+                        '            For Each grp In Presup
+                        '                Importe = grp.TotalImporte
+                        '                TotalDetalle += Importe
+                        '                ipresup += 1
+                        '                If Importe > 0 Then
+                        '                    'saco la proporcion de iva que le corresponde
+                        '                    tIVA = Math.Round(Importe * tPorIVA, 2)
+                        '                    tDiferenciaIVA -= tIVA
+                        '                    'identifico si es el ultimo registro, para ver si es necesario un ajuste
+                        '                    If ipresup = Presup.Count Then
+                        '                        If Math.Round(TotalDetalle - tTotalGral, 2) <= 0.01 AndAlso tDiferenciaIVA > 0 Then
+                        '                            tIVA += tDiferenciaIVA
+                        '                        End If
+                        '                    End If
 
-                                            'le sumo el iva al concepto
-                                            Importe += tIVA
-                                            'codigo Provisional, para cuand tenga descuento, solo tome el subtotal * el iva,RMF
-                                            If TxtDescuento.Text.ToDouble > 0 Then
-                                                Importe = grp.TotalImporte * (1 + tPorIVA)
-                                            End If
+                        '                    'le sumo el iva al concepto
+                        '                    Importe += tIVA
+                        '                    'codigo Provisional, para cuand tenga descuento, solo tome el subtotal * el iva,RMF
+                        '                    If TxtDescuento.Text.ToDouble > 0 Then
+                        '                        Importe = grp.TotalImporte * (1 + tPorIVA)
+                        '                    End If
 
-                                            tAjusteTotal += Importe
+                        '                    tAjusteTotal += Importe
 
-                                            'valido que la sumas de lo detalles no exceda al totalgeneral
-                                            If Math.Round(tAjusteTotal, 2) > tTotalGral Then
-                                                'le resto la diferencia
-                                                Importe -= (tAjusteTotal - tTotalGral)
-                                            End If
+                        '                    'valido que la sumas de lo detalles no exceda al totalgeneral
+                        '                    If Math.Round(tAjusteTotal, 2) > tTotalGral Then
+                        '                        'le resto la diferencia
+                        '                        Importe -= (tAjusteTotal - tTotalGral)
+                        '                    End If
 
-                                            'Presupuesto Egresos
-                                            DtPresupuestosTemp = DtPresupuestos.FiltraParametros(String.Format("CvePresupuestoEgreso = {0}", grp.CvePresupuestoEgreso))
-                                            If DtPresupuestosTemp.Rows.Count <> 1 Then
-                                                ErrorAC = True
-                                                Exit For
-                                            End If
-                                            IdCuentaComprometido = DtPresupuestosTemp.Rows(0)("IdCuentaComprometido").ToString.ToEntero
-                                            IdCuentaPorEjercer = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero
-                                            IdCuentaDevengado = DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero
-                                            IdCuentaMatriz = DtPresupuestosTemp.Rows(0)("IdCuentaMatriz").ToString.ToEntero
+                        '                    'Presupuesto Egresos
+                        '                    DtPresupuestosTemp = DtPresupuestos.FiltraParametros(String.Format("CvePresupuestoEgreso = {0}", grp.CvePresupuestoEgreso))
+                        '                    If DtPresupuestosTemp.Rows.Count <> 1 Then
+                        '                        ErrorAC = True
+                        '                        Exit For
+                        '                    End If
+                        '                    IdCuentaComprometido = DtPresupuestosTemp.Rows(0)("IdCuentaComprometido").ToString.ToEntero
+                        '                    IdCuentaPorEjercer = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero
+                        '                    IdCuentaDevengado = DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero
+                        '                    IdCuentaMatriz = DtPresupuestosTemp.Rows(0)("IdCuentaMatriz").ToString.ToEntero
 
-                                            'COMPROMETIDO DEPENDIENTE SI EXISTE SU POLIZA
-                                            If IDPolizaComprometido = 0 Then
-                                                ConceptoRenglon = String.Format("GC Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
-                                                If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                    If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPorEjercer, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                        ErrorAC = True
-                                                        Exit For
-                                                    End If
-                                                Else
-                                                    ErrorAC = True
-                                                    Exit For
-                                                End If
-                                            End If
+                        '                    'COMPROMETIDO DEPENDIENTE SI EXISTE SU POLIZA
+                        '                    If IDPolizaComprometido = 0 Then
+                        '                        ConceptoRenglon = String.Format("GC Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
+                        '                        If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+                        '                            If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPorEjercer, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+                        '                                ErrorAC = True
+                        '                                Exit For
+                        '                            End If
+                        '                        Else
+                        '                            ErrorAC = True
+                        '                            Exit For
+                        '                        End If
+                        '                    End If
 
-                                            ConceptoRenglon = String.Format("GD Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
-                                            'DEVENGADO
-                                            If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                    ErrorAC = True
-                                                    Exit For
-                                                End If
-                                            Else
-                                                ErrorAC = True
-                                                Exit For
-                                            End If
+                        '                    ConceptoRenglon = String.Format("GD Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
+                        '                    'DEVENGADO
+                        '                    If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+                        '                        If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+                        '                            ErrorAC = True
+                        '                            Exit For
+                        '                        End If
+                        '                    Else
+                        '                        ErrorAC = True
+                        '                        Exit For
+                        '                    End If
 
 
-                                            If ContadorInventario > 0 Then
-                                                Dim tImporte, ttIVA As Double
+                        '                    If ContadorInventario > 0 Then
+                        '                        Dim tImporte, ttIVA As Double
 
-                                                For Each gvr As GridViewRow In GvPS.Rows
-                                                    'registra los movimientos del presupuesto asignado, para que no se duplique si hay varios presupeusto dentro de la compra
-                                                    If gvr.DataKey("CvePresupuestoEgreso").ToEntero = grp.CvePresupuestoEgreso Then
-                                                        'saco la proporcion de iva que le corresponde
+                        '                        For Each gvr As GridViewRow In GvPS.Rows
+                        '                            'registra los movimientos del presupuesto asignado, para que no se duplique si hay varios presupeusto dentro de la compra
+                        '                            If gvr.DataKey("CvePresupuestoEgreso").ToEntero = grp.CvePresupuestoEgreso Then
+                        '                                'saco la proporcion de iva que le corresponde
 
-                                                        tImporte = gvr.FCLiteral("LtlTotal").Text.ToDouble
+                        '                                tImporte = gvr.FCLiteral("LtlTotal").Text.ToDouble
 
-                                                        ttIVA = Math.Round(tImporte * tTotalIVA / tTotalGral, 2)
+                        '                                ttIVA = Math.Round(tImporte * tTotalIVA / tTotalGral, 2)
 
-                                                        '            '                'le sumo el iva al concepto
-                                                        tImporte += ttIVA
-                                                    End If
-                                                Next
+                        '                                '            '                'le sumo el iva al concepto
+                        '                                tImporte += ttIVA
+                        '                            End If
+                        '                        Next
 
-                                                CuentaMatrizAlmacen = 0
+                        '                        CuentaMatrizAlmacen = 0
 
-                                            ElseIf grp.CveActivoFijo > 0 Then
+                        '                    ElseIf grp.CveActivoFijo > 0 Then
 
-                                                Dim CtaAF As Integer = -1
-                                                Dim AF As String = ""
-                                                Dim CuentaInicial As Integer = -1
+                        '                        Dim CtaAF As Integer = -1
+                        '                        Dim AF As String = ""
+                        '                        Dim CuentaInicial As Integer = -1
 
-                                                If ObjAF.GetActivosFijos(grp.CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then
-                                                    CtaAF = ObjAF.Cuenta
-                                                    AF = ObjAF.Descripcion
-                                                    CuentaInicial = ObjAF.CuentaInicial
-                                                Else
-                                                    ErrorAC = True
-                                                    Exit For
-                                                End If
+                        '                        If ObjAF.GetActivosFijos(grp.CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then
+                        '                            CtaAF = ObjAF.Cuenta
+                        '                            AF = ObjAF.Descripcion
+                        '                            CuentaInicial = ObjAF.CuentaInicial
+                        '                        Else
+                        '                            ErrorAC = True
+                        '                            Exit For
+                        '                        End If
 
-                                                If Not CuentaInicial > 0 Then
-                                                    CuentaInicial = 1241
-                                                End If
+                        '                        If Not CuentaInicial > 0 Then
+                        '                            CuentaInicial = 1241
+                        '                        End If
 
-                                                'CUENTA AF
-                                                If CtaAF <= 0 Then
-                                                    If ObjContaAC.GetCuentas(-1, String.Format("0{0}0000000000000", CuentaInicial), -1) Then
-                                                        Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
-                                                        If drCuenta IsNot Nothing Then
+                        '                        'CUENTA AF
+                        '                        If CtaAF <= 0 Then
+                        '                            If ObjContaAC.GetCuentas(-1, String.Format("0{0}0000000000000", CuentaInicial), -1) Then
+                        '                                Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
+                        '                                If drCuenta IsNot Nothing Then
 
-                                                            CuentaAbono = drCuenta("Id").ToString.ToEntero
-                                                            Dim FolioAF As String = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString
-                                                            CtaAF = ObjContaAC.AddCuenta(String.Format("0{0}{1}000000000", CuentaInicial, FolioAF.PadLeft(4, "0"c)), AF, "A", 2, 0, 1, 0, "", 1, CuentaAbono)
+                        '                                    CuentaAbono = drCuenta("Id").ToString.ToEntero
+                        '                                    Dim FolioAF As String = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString
+                        '                                    CtaAF = ObjContaAC.AddCuenta(String.Format("0{0}{1}000000000", CuentaInicial, FolioAF.PadLeft(4, "0"c)), AF, "A", 2, 0, 1, 0, "", 1, CuentaAbono)
 
-                                                            ObjAF.UpdateActivosFijosCuentaAC(grp.CveActivoFijo, CtaAF, UsuarioActual.CveUsuario)
-                                                        Else
-                                                            ErrorAC = True
-                                                        End If
-                                                    Else
-                                                        ErrorAC = True
-                                                    End If
-                                                End If
+                        '                                    ObjAF.UpdateActivosFijosCuentaAC(grp.CveActivoFijo, CtaAF, UsuarioActual.CveUsuario)
+                        '                                Else
+                        '                                    ErrorAC = True
+                        '                                End If
+                        '                            Else
+                        '                                ErrorAC = True
+                        '                            End If
+                        '                        End If
 
-                                                CuentaMatrizAlmacen = CtaAF
-                                            Else
-                                                CuentaMatrizAlmacen = IdCuentaMatriz
-                                            End If
+                        '                        CuentaMatrizAlmacen = CtaAF
+                        '                    Else
+                        '                        CuentaMatrizAlmacen = IdCuentaMatriz
+                        '                    End If
 
-                                            ''AFECTAR MATRIZ EGRESOS
-                                            If ObjContaAC.AddMovimiento(IdPoliza, CuentaMatrizAlmacen, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+                        '                    ''AFECTAR MATRIZ EGRESOS
+                        '                    If ObjContaAC.AddMovimiento(IdPoliza, CuentaMatrizAlmacen, False, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
 
-                                                ''VERIFICA SI TIENE DESCUENTO (AMORTIZACION)
-                                                If TxtDescuento.Text.ToDouble > 0 Then
-                                                    DescuentoConIVA = TxtDescuento.Text.ToDecimal * 1.16
+                        '                        ''VERIFICA SI TIENE DESCUENTO (AMORTIZACION)
+                        '                        If TxtDescuento.Text.ToDouble > 0 Then
+                        '                            DescuentoConIVA = TxtDescuento.Text.ToDecimal * 1.16
 
-                                                    'Valida que el descuento con iva cuadre en los totales
-                                                    If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDouble)) < 0.02 Then
-                                                        DescuentoConIVA = Importe - TxtTotal.Text.ToDouble
-                                                    ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDecimal) Then
-                                                        ErrorAC = True
-                                                        Exit For
-                                                    End If
+                        '                            'Valida que el descuento con iva cuadre en los totales
+                        '                            If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDouble)) < 0.02 Then
+                        '                                DescuentoConIVA = Importe - TxtTotal.Text.ToDouble
+                        '                            ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDecimal) Then
+                        '                                ErrorAC = True
+                        '                                Exit For
+                        '                            End If
 
-                                                    'actualizo el idcuenta del presupuesto -- CtaProveedor
-                                                    If ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * (Importe - DescuentoConIVA), "", ConceptoRenglon, 0, Fecha, "") Then
-                                                        'agrego a la cuenta contable anticipos  --CtaProveedorAnticipos
-                                                        If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                            ErrorAC = True
-                                                            Exit For
-                                                        End If
-                                                    Else
-                                                        ErrorAC = True
-                                                        Exit For
-                                                    End If
-                                                Else
-                                                    'actualizo el idcuenta del 
+                        '                            'actualizo el idcuenta del presupuesto -- CtaProveedor
+                        '                            If ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * (Importe - DescuentoConIVA), "", ConceptoRenglon, 0, Fecha, "") Then
+                        '                                'agrego a la cuenta contable anticipos  --CtaProveedorAnticipos
+                        '                                If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
+                        '                                    ErrorAC = True
+                        '                                    Exit For
+                        '                                End If
+                        '                            Else
+                        '                                ErrorAC = True
+                        '                                Exit For
+                        '                            End If
+                        '                        Else
+                        '                            'actualizo el idcuenta del 
 
-                                                End If
+                        '                        End If
 
-                                            Else
-                                                ErrorAC = True
-                                                Exit For
-                                            End If
-                                            ''TERMINA AFECTAR MATRIZ EGRESOS
+                        '                    Else
+                        '                        ErrorAC = True
+                        '                        Exit For
+                        '                    End If
+                        '                    ''TERMINA AFECTAR MATRIZ EGRESOS
 
-                                        Else
-                                            ErrorAC = True
-                                            Exit For
-                                        End If
+                        '                Else
+                        '                    ErrorAC = True
+                        '                    Exit For
+                        '                End If
 
-                                    Next
+                        '            Next
 
-                                    If Not ErrorAC Then
-                                        'registro un solo movimiento a proveedores--CtaProveedor
-                                        Importe = TxtTotal.Text.ToDecimal
-                                        If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                            ErrorAC = True
-                                        End If
-                                    End If
+                        '            If Not ErrorAC Then
+                        '                'registro un solo movimiento a proveedores--CtaProveedor
+                        '                Importe = TxtTotal.Text.ToDecimal
+                        '                If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+                        '                    ErrorAC = True
+                        '                End If
+                        '            End If
 
-                                    If tRetISR > 0 Then 'CtaProveedorRetISR
-                                        ConceptoRenglon = String.Format("GD Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
-                                        If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * tRetISR, "", ConceptoRenglon, 0, Fecha, "") Then
-                                            ErrorAC = True
-                                        End If
-                                    End If
+                        '            If tRetISR > 0 Then 'CtaProveedorRetISR
+                        '                ConceptoRenglon = String.Format("GD Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
+                        '                If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, MultiplicadorNC * tRetISR, "", ConceptoRenglon, 0, Fecha, "") Then
+                        '                    ErrorAC = True
+                        '                End If
+                        '            End If
 
-                                End If
+                        '        End If
 
-                            Else
-                                ErrorAC = True
-                            End If
+                        '    Else
+                        '        ErrorAC = True
+                        '    End If
 
-                            'CUADRA LA POLIZA
-                            ObjContaAC.AjustaPoliza(IdPoliza)
+                        '    'CUADRA LA POLIZA
+                        '    ObjContaAC.AjustaPoliza(IdPoliza)
 
-                        End If
+                        'End If
                         ''TERMINA: SI USA AC
 
                         '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -8603,10 +8571,10 @@ Partial Class Compras_Compras
 
                                 Cont = Cont + 1
                                 'Si es AF-INSUMO se guarda en CveActivoFIjo 
-                                Dim CveAF = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1)
+                                Dim CveAF As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1)
 
                                 'Si es AF-COMPRA se guarda en CveActivoFijoCompra 
-                                Dim CveAFCompra = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1)
+                                Dim CveAFCompra As Integer = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1)
 
                                 If Row("CveCompraDetalle").ToString.ToEntero > 0 Then
                                     If Not ObjCompra.UpdateCompraDetalle(Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDecimal, Row("PU").ToString.ToDecimal, Row("IVA").ToString.ToDecimal, Row("Total").ToString.ToDecimal,
@@ -9004,7 +8972,7 @@ Partial Class Compras_Compras
                                 importeMovimiento = 0
                                 'COSTO ALMACEN
                                 Dim DtAlmacenes As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
-                                If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen = 0 Or DdlTipoCompra.SelectedValue.ToEntero = 10 Then
+                                If UsuarioActual.Empresa.UsaInventarios And CveConceptoContableAlmacen = 0 Or DdlTipoCompra.SelectedValue.ToEntero = 10 Then
                                     DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"})
                                     'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
 
@@ -9035,7 +9003,7 @@ Partial Class Compras_Compras
                                 importeMovimiento = 0
 
                                 'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ]
-                                If DdlTipoCompra.SelectedValue.ToEntero <> 10 AndAlso UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen.Contiene(176, 205) Then
+                                If DdlTipoCompra.SelectedValue.ToEntero <> 10 AndAlso UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And CveConceptoContableAlmacen.Contiene(176, 205) Then
                                     importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                                     importeMN = importeMovimiento * tipoCambioActual * Multiplicador
 
@@ -9049,7 +9017,7 @@ Partial Class Compras_Compras
 
                                 'NC CON PRODUCTOS - CUENTA PUENTE
 
-                                If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen.Contiene(225) Then
+                                If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("Ant") And CveConceptoContableAlmacen.Contiene(225) Then
                                     importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                                     importeMN = importeMovimiento * tipoCambioActual * Multiplicador
 
@@ -9063,7 +9031,7 @@ Partial Class Compras_Compras
                                 'GASTO
                                 DT = TmpDT.Copy
                                 'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
-                                If DdlTipoCompra.SelectedValue <> "10" Then
+                                If DdlTipoCompra.SelectedValue <> "10" Or DdlTipoCompra.SelectedValue = "13" Then
                                     For Each Dr As DataRow In DT.Rows
                                         If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen =  {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then
                                             Dr("CveAlmacen") = 0
@@ -9078,7 +9046,7 @@ Partial Class Compras_Compras
 
                                 If DdlTipoCompra.SelectedValue.ToEntero <> 10 Then
                                     'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS]
-                                    If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen > 0 Then
+                                    If UsuarioActual.Empresa.UsaInventarios And CveConceptoContableAlmacen > 0 Then
                                         DT = DT.FiltraParametros("CveTipoPS <> 2")
                                     End If
                                 End If
@@ -9087,22 +9055,22 @@ Partial Class Compras_Compras
                                 If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
                                     DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto", "CveAlmacen"})
                                 Else
-                                    If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
-                                    Else
-                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
-                                    End If
+                                    'If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                    '    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                    'Else
+                                    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                    'End If
                                 End If
 
                                 If DTDistinct.Rows.Count > 0 Then
                                     For Each Row2 As DataRow In DTDistinct.Rows
 
                                         'DETERMINA IMPORTE
-                                        If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-                                            importeMovimiento = DT.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1} AND ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
-                                        Else
-                                            importeMovimiento = DT.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = {0} AND CveSubProyecto = {1} AND ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
-                                        End If
+                                        'If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                        '    importeMovimiento = DT.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1} AND ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
+                                        'Else
+                                        importeMovimiento = DT.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = {0} AND CveSubProyecto = {1} AND ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
+                                        'End If
 
                                         If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
                                             importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"CveAlmacen > 0 ").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen > 0").ToString.ToDecimal
@@ -11928,312 +11896,312 @@ Partial Class Compras_Compras
 
         ObjConta.Dispose()
     End Sub
-    Protected Sub LBContabilizarAC_Click(sender As Object, e As EventArgs)
-        Dim ObjContaAC As ClsContPAQi = New ClsContPAQi(UsuarioActual.Empresa)
-        ObjContaAC.IniciaTransacSQL()
-        Dim ObjCompras As New ClsCompras
-        Dim ObjProveedores As New ClsCompProveedores(ObjCompras.IniciaTransacSQL())
-        Dim ObjAF As New ClsAF(ObjCompras.IniciaTransacSQL())
-        Dim ErrorAC As Boolean = False
-        Dim IDPolizaComprometido As Integer = If(TxtOC.Text.Length > 0, 1, 0)
+    'Protected Sub LBContabilizarAC_Click(sender As Object, e As EventArgs)
+    '    Dim ObjContaAC As ClsContPAQi = New ClsContPAQi(UsuarioActual.Empresa)
+    '    ObjContaAC.IniciaTransacSQL()
+    '    Dim ObjCompras As New ClsCompras
+    '    Dim ObjProveedores As New ClsCompProveedores(ObjCompras.IniciaTransacSQL())
+    '    Dim ObjAF As New ClsAF(ObjCompras.IniciaTransacSQL())
+    '    Dim ErrorAC As Boolean = False
+    '    Dim IDPolizaComprometido As Integer = If(TxtOC.Text.Length > 0, 1, 0)
 
-        ''EMPIEZA: SI USA AC
-        If UsuarioActual.Empresa.UsaAC Then
-            ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
-            ObjContaAC.IniciaTransacSQL()
+    '    ''EMPIEZA: SI USA AC
+    '    If UsuarioActual.Empresa.UsaAC Then
+    '        ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+    '        ObjContaAC.IniciaTransacSQL()
 
-            'ELIMINA TODOS LOS MOVIMIENTOS DE LA POLIZA
-            If IdPoliza > 0 Then
-                ObjContaAC.RemoveAllMovimientos(IdPoliza)
-            Else
-                Dim TotalPorDevengar As Decimal = Math.Round(TxtTotal.Text.ToDecimal, 2)
-                IdPoliza = ObjContaAC.AddPoliza(3, TxtDescripcion.Text.Trim, TotalPorDevengar, TotalPorDevengar, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate)
-            End If
+    '        'ELIMINA TODOS LOS MOVIMIENTOS DE LA POLIZA
+    '        If IdPoliza > 0 Then
+    '            ObjContaAC.RemoveAllMovimientos(IdPoliza)
+    '        Else
+    '            Dim TotalPorDevengar As Decimal = Math.Round(TxtTotal.Text.ToDecimal, 2)
+    '            IdPoliza = ObjContaAC.AddPoliza(3, TxtDescripcion.Text.Trim, TotalPorDevengar, TotalPorDevengar, UsuarioActual.CveUsuario, TxtFecha.Text.ToDate)
+    '        End If
 
-            'INSERTA LOS NUEVOS MOVIMIENTOS DE LA POLIZA
-            If IdPoliza > 0 Then
-                Dim CuentaAbono As Integer
-                Dim Importe As Decimal = 0
-                Dim TotalDetalle As Decimal = 0
+    '        'INSERTA LOS NUEVOS MOVIMIENTOS DE LA POLIZA
+    '        If IdPoliza > 0 Then
+    '            Dim CuentaAbono As Integer
+    '            Dim Importe As Decimal = 0
+    '            Dim TotalDetalle As Decimal = 0
 
-                'CUENTA PROVEEDOR
-                'If CtaProveedor <= 0 Then
-                '    If ObjContaAC.GetCuentas(-1, "021120000000000000", -1) Then
-                '        Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
-                '        If drCuenta IsNot Nothing Then
-                '            CuentaAbono = drCuenta("Id").ToString.ToEntero
-                '            Dim FolioProveedor = ObjContaAC.GetFolioProveedores("021120000000000000").ToString
-                '            ViewState("CtaProveedor") = ObjContaAC.AddCuenta(String.Format("02112{0}000000000", FolioProveedor.PadLeft(4, "0"c)), NombreProveedor, "D", 2, 0, 1, 0, "", 1, CuentaAbono)
-                '            ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, CtaProveedor)
-                '        Else
-                '            ErrorAC = True
-                '        End If
-                '    Else
-                '        ErrorAC = True
-                '    End If
-                'End If
+    '            'CUENTA PROVEEDOR
+    '            'If CtaProveedor <= 0 Then
+    '            '    If ObjContaAC.GetCuentas(-1, "021120000000000000", -1) Then
+    '            '        Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
+    '            '        If drCuenta IsNot Nothing Then
+    '            '            CuentaAbono = drCuenta("Id").ToString.ToEntero
+    '            '            Dim FolioProveedor = ObjContaAC.GetFolioProveedores("021120000000000000").ToString
+    '            '            ViewState("CtaProveedor") = ObjContaAC.AddCuenta(String.Format("02112{0}000000000", FolioProveedor.PadLeft(4, "0"c)), NombreProveedor, "D", 2, 0, 1, 0, "", 1, CuentaAbono)
+    '            '            ObjProveedores.UpdateProveedorIdCuentaAC(CveProveedor, CtaProveedor)
+    '            '        Else
+    '            '            ErrorAC = True
+    '            '        End If
+    '            '    Else
+    '            '        ErrorAC = True
+    '            '    End If
+    '            'End If
 
-                Dim ConceptoRenglon As String = ""
-                If Not ErrorAC Then
+    '            Dim ConceptoRenglon As String = ""
+    '            If Not ErrorAC Then
 
-                    Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA, tRetIVA, tRetISR As Decimal
+    '                Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA, tRetIVA, tRetISR As Decimal
 
-                    Dim ipresup As Integer = 0
+    '                Dim ipresup As Integer = 0
 
-                    'COMIENZA: PRUEBA AGRUPACION CONCEPTOS
-                    Dim Presup = From gvr As DataRow In TmpDT.Rows.Cast(Of DataRow)()
-                                 Group gvr By Grp = New With {
-                                        Key .CvePresupuestoEgreso = gvr("CvePresupuestoEgreso").ToString.ToEntero,
-                                        Key .CveActivoFijo = If(gvr("TipoAF").ToString.ToEntero = 2, gvr("CveActivoFijo").ToString.ToEntero, -1)
-                                    } Into Group
-                                 Select Grp.CvePresupuestoEgreso, Grp.CveActivoFijo,
-                                        TotalImporte = Group.Sum(Function(r) r("Total").ToString.ToDecimal)
-                    Dim Fecha As Date = TxtFecha.Text.ToDate
+    '                'COMIENZA: PRUEBA AGRUPACION CONCEPTOS
+    '                Dim Presup = From gvr As DataRow In TmpDT.Rows.Cast(Of DataRow)()
+    '                             Group gvr By Grp = New With {
+    '                                    Key .CvePresupuestoEgreso = gvr("CvePresupuestoEgreso").ToString.ToEntero,
+    '                                    Key .CveActivoFijo = If(gvr("TipoAF").ToString.ToEntero = 2, gvr("CveActivoFijo").ToString.ToEntero, -1)
+    '                                } Into Group
+    '                             Select Grp.CvePresupuestoEgreso, Grp.CveActivoFijo,
+    '                                    TotalImporte = Group.Sum(Function(r) r("Total").ToString.ToDecimal)
+    '                Dim Fecha As Date = TxtFecha.Text.ToDate
 
-                    'PresupuestoEgresos
-                    Dim DtPresupuestosTemp As DataTable
-                    Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz As Integer
+    '                'PresupuestoEgresos
+    '                Dim DtPresupuestosTemp As DataTable
+    '                Dim IdCuentaComprometido, IdCuentaPorEjercer, IdCuentaDevengado, IdCuentaMatriz As Integer
 
-                    'Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA As Double
-                    tTotalIVA = TxtIVA.Text.ToDecimal
-                    tRetIVA = TxtRetIVA.Text.ToDecimal
-                    tRetISR = TxtRetISR.Text.ToDecimal
+    '                'Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA As Double
+    '                tTotalIVA = TxtIVA.Text.ToDecimal
+    '                tRetIVA = TxtRetIVA.Text.ToDecimal
+    '                tRetISR = TxtRetISR.Text.ToDecimal
 
-                    'tTotalIVA = tTotalIVA - tRetIVA - tRetISR
+    '                'tTotalIVA = tTotalIVA - tRetIVA - tRetISR
 
-                    tTotalGral = TxtTotal.Text.ToDecimal + tRetIVA + tRetISR ' EL TOTAL GENERAL DEBE DE SER EL SUBTOTAL + IVA, NO SE DEBEN DE INCLUIR LAS RETENCIONES, POR ESO SE RESTA
-                    tDiferenciaIVA = tTotalIVA
-                    tIVA = 0
-                    ipresup = 0
+    '                tTotalGral = TxtTotal.Text.ToDecimal + tRetIVA + tRetISR ' EL TOTAL GENERAL DEBE DE SER EL SUBTOTAL + IVA, NO SE DEBEN DE INCLUIR LAS RETENCIONES, POR ESO SE RESTA
+    '                tDiferenciaIVA = tTotalIVA
+    '                tIVA = 0
+    '                ipresup = 0
 
-                    'INVENTARIOS EN AC
-                    Dim CuentaMatrizAlmacen As Integer
-                    Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked)
-                    Dim DescuentoConIVA As Double
-                    Dim tPorIVA As Decimal = tTotalIVA / (tTotalGral - tTotalIVA)
-                    Dim tAjusteTotal As Decimal = 0
+    '                'INVENTARIOS EN AC
+    '                Dim CuentaMatrizAlmacen As Integer
+    '                Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked)
+    '                Dim DescuentoConIVA As Double
+    '                Dim tPorIVA As Decimal = tTotalIVA / (tTotalGral - tTotalIVA)
+    '                Dim tAjusteTotal As Decimal = 0
 
-                    For Each grp In Presup
-                        Importe = grp.TotalImporte
-                        TotalDetalle += Importe
-                        ipresup += 1
-                        If Importe > 0 Then
-                            'saco la proporcion de iva que le corresponde
-                            tIVA = Math.Round(Importe * tPorIVA, 2)
-                            tDiferenciaIVA -= tIVA
-                            'identifico si es el ultimo registro, para ver si es necesario un ajuste
-                            If ipresup = Presup.Count Then
-                                If Math.Round(TotalDetalle - tTotalGral, 2) <= 0.01 AndAlso tDiferenciaIVA > 0 Then
-                                    tIVA += tDiferenciaIVA
-                                End If
-                            End If
+    '                For Each grp In Presup
+    '                    Importe = grp.TotalImporte
+    '                    TotalDetalle += Importe
+    '                    ipresup += 1
+    '                    If Importe > 0 Then
+    '                        'saco la proporcion de iva que le corresponde
+    '                        tIVA = Math.Round(Importe * tPorIVA, 2)
+    '                        tDiferenciaIVA -= tIVA
+    '                        'identifico si es el ultimo registro, para ver si es necesario un ajuste
+    '                        If ipresup = Presup.Count Then
+    '                            If Math.Round(TotalDetalle - tTotalGral, 2) <= 0.01 AndAlso tDiferenciaIVA > 0 Then
+    '                                tIVA += tDiferenciaIVA
+    '                            End If
+    '                        End If
 
-                            'le sumo el iva al concepto
-                            Importe += tIVA
-                            'codigo Provisional, para cuand tenga descuento, solo tome el subtotal * el iva,RMF
-                            If TxtDescuento.Text.ToDouble > 0 Then
-                                Importe = grp.TotalImporte * (1 + tPorIVA)
-                            End If
+    '                        'le sumo el iva al concepto
+    '                        Importe += tIVA
+    '                        'codigo Provisional, para cuand tenga descuento, solo tome el subtotal * el iva,RMF
+    '                        If TxtDescuento.Text.ToDouble > 0 Then
+    '                            Importe = grp.TotalImporte * (1 + tPorIVA)
+    '                        End If
 
-                            tAjusteTotal += Importe
+    '                        tAjusteTotal += Importe
 
-                            'valido que la sumas de lo detalles no exceda al totalgeneral
-                            If Math.Round(tAjusteTotal, 2) > tTotalGral Then
-                                'le resto la diferencia
-                                Importe -= (tAjusteTotal - tTotalGral)
-                            End If
+    '                        'valido que la sumas de lo detalles no exceda al totalgeneral
+    '                        If Math.Round(tAjusteTotal, 2) > tTotalGral Then
+    '                            'le resto la diferencia
+    '                            Importe -= (tAjusteTotal - tTotalGral)
+    '                        End If
 
-                            'Presupuesto Egresos
-                            DtPresupuestosTemp = DtPresupuestos.FiltraParametros(String.Format("CvePresupuestoEgreso = {0}", grp.CvePresupuestoEgreso))
-                            If DtPresupuestosTemp.Rows.Count <> 1 Then
-                                ErrorAC = True
-                                Exit For
-                            End If
-                            IdCuentaComprometido = DtPresupuestosTemp.Rows(0)("IdCuentaComprometido").ToString.ToEntero
-                            IdCuentaPorEjercer = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero
-                            IdCuentaDevengado = DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero
-                            IdCuentaMatriz = DtPresupuestosTemp.Rows(0)("IdCuentaMatriz").ToString.ToEntero
+    '                        'Presupuesto Egresos
+    '                        DtPresupuestosTemp = DtPresupuestos.FiltraParametros(String.Format("CvePresupuestoEgreso = {0}", grp.CvePresupuestoEgreso))
+    '                        If DtPresupuestosTemp.Rows.Count <> 1 Then
+    '                            ErrorAC = True
+    '                            Exit For
+    '                        End If
+    '                        IdCuentaComprometido = DtPresupuestosTemp.Rows(0)("IdCuentaComprometido").ToString.ToEntero
+    '                        IdCuentaPorEjercer = DtPresupuestosTemp.Rows(0)("IdCuentaPorEjercer").ToString.ToEntero
+    '                        IdCuentaDevengado = DtPresupuestosTemp.Rows(0)("IdCuentaDevengado").ToString.ToEntero
+    '                        IdCuentaMatriz = DtPresupuestosTemp.Rows(0)("IdCuentaMatriz").ToString.ToEntero
 
-                            'COMPROMETIDO DEPENDIENTE SI EXISTE SU POLIZA
-                            If IDPolizaComprometido = 0 Then
-                                ConceptoRenglon = String.Format("GC Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
-                                If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, False, Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                    If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPorEjercer, True, Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                        ErrorAC = True
-                                        Exit For
-                                    End If
-                                Else
-                                    ErrorAC = True
-                                    Exit For
-                                End If
-                            End If
+    '                        'COMPROMETIDO DEPENDIENTE SI EXISTE SU POLIZA
+    '                        If IDPolizaComprometido = 0 Then
+    '                            ConceptoRenglon = String.Format("GC Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
+    '                            If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, False, Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+    '                                If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaPorEjercer, True, Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+    '                                    ErrorAC = True
+    '                                    Exit For
+    '                                End If
+    '                            Else
+    '                                ErrorAC = True
+    '                                Exit For
+    '                            End If
+    '                        End If
 
-                            ConceptoRenglon = String.Format("GD Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
-                            'DEVENGADO
-                            If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, False, Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, True, Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                                    ErrorAC = True
-                                    Exit For
-                                End If
-                            Else
-                                ErrorAC = True
-                                Exit For
-                            End If
+    '                        ConceptoRenglon = String.Format("GD Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
+    '                        'DEVENGADO
+    '                        If ObjContaAC.AddMovimiento(IdPoliza, IdCuentaDevengado, False, Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+    '                            If Not ObjContaAC.AddMovimiento(IdPoliza, IdCuentaComprometido, True, Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+    '                                ErrorAC = True
+    '                                Exit For
+    '                            End If
+    '                        Else
+    '                            ErrorAC = True
+    '                            Exit For
+    '                        End If
 
 
-                            If ContadorInventario > 0 Then
-                                Dim tImporte, ttIVA As Double
+    '                        If ContadorInventario > 0 Then
+    '                            Dim tImporte, ttIVA As Double
 
-                                For Each gvr As GridViewRow In GvPS.Rows
-                                    'registra los movimientos del presupuesto asignado, para que no se duplique si hay varios presupeusto dentro de la compra
-                                    If gvr.DataKey("CvePresupuestoEgreso").ToEntero = grp.CvePresupuestoEgreso Then
-                                        'saco la proporcion de iva que le corresponde
-                                        tImporte = gvr.FCLiteral("LtlTotal").Text.ToDouble
-                                        ttIVA = Math.Round(tImporte * tTotalIVA / tTotalGral, 2)
-                                        tImporte += ttIVA
-                                    End If
-                                Next
-                                CuentaMatrizAlmacen = 0
+    '                            For Each gvr As GridViewRow In GvPS.Rows
+    '                                'registra los movimientos del presupuesto asignado, para que no se duplique si hay varios presupeusto dentro de la compra
+    '                                If gvr.DataKey("CvePresupuestoEgreso").ToEntero = grp.CvePresupuestoEgreso Then
+    '                                    'saco la proporcion de iva que le corresponde
+    '                                    tImporte = gvr.FCLiteral("LtlTotal").Text.ToDouble
+    '                                    ttIVA = Math.Round(tImporte * tTotalIVA / tTotalGral, 2)
+    '                                    tImporte += ttIVA
+    '                                End If
+    '                            Next
+    '                            CuentaMatrizAlmacen = 0
 
-                            ElseIf grp.CveActivoFijo > 0 Then
+    '                        ElseIf grp.CveActivoFijo > 0 Then
 
-                                Dim CtaAF As Integer = -1
-                                Dim AF As String = ""
-                                Dim CuentaInicial As Integer = -1
+    '                            Dim CtaAF As Integer = -1
+    '                            Dim AF As String = ""
+    '                            Dim CuentaInicial As Integer = -1
 
-                                If ObjAF.GetActivosFijos(grp.CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then
-                                    CtaAF = ObjAF.Cuenta
-                                    AF = ObjAF.Descripcion
-                                    CuentaInicial = ObjAF.CuentaInicial
-                                Else
-                                    ErrorAC = True
-                                    Exit For
-                                End If
+    '                            If ObjAF.GetActivosFijos(grp.CveActivoFijo, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, -1, "", -1, UsuarioActual.CveEmpresa) Then
+    '                                CtaAF = ObjAF.Cuenta
+    '                                AF = ObjAF.Descripcion
+    '                                CuentaInicial = ObjAF.CuentaInicial
+    '                            Else
+    '                                ErrorAC = True
+    '                                Exit For
+    '                            End If
 
-                                If Not CuentaInicial > 0 Then
-                                    CuentaInicial = 1241
-                                End If
+    '                            If Not CuentaInicial > 0 Then
+    '                                CuentaInicial = 1241
+    '                            End If
 
-                                'CUENTA AF
-                                If CtaAF <= 0 Then
-                                    If ObjContaAC.GetCuentas(-1, String.Format("0{0}0000000000000", CuentaInicial), -1) Then
-                                        Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
-                                        If drCuenta IsNot Nothing Then
+    '                            'CUENTA AF
+    '                            If CtaAF <= 0 Then
+    '                                If ObjContaAC.GetCuentas(-1, String.Format("0{0}0000000000000", CuentaInicial), -1) Then
+    '                                    Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
+    '                                    If drCuenta IsNot Nothing Then
 
-                                            CuentaAbono = drCuenta("Id").ToString.ToEntero
-                                            Dim FolioAF As String = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString
-                                            CtaAF = ObjContaAC.AddCuenta(String.Format("0{0}{1}000000000", CuentaInicial, FolioAF.PadLeft(4, "0"c)), AF, "A", 2, 0, 1, 0, "", 1, CuentaAbono)
+    '                                        CuentaAbono = drCuenta("Id").ToString.ToEntero
+    '                                        Dim FolioAF As String = ObjContaAC.GetFolioProveedores(String.Format("0{0}0000000000000", CuentaInicial)).ToString
+    '                                        CtaAF = ObjContaAC.AddCuenta(String.Format("0{0}{1}000000000", CuentaInicial, FolioAF.PadLeft(4, "0"c)), AF, "A", 2, 0, 1, 0, "", 1, CuentaAbono)
 
-                                            ObjAF.UpdateActivosFijosCuentaAC(grp.CveActivoFijo, CtaAF, UsuarioActual.CveUsuario)
-                                        Else
-                                            ErrorAC = True
-                                        End If
-                                    Else
-                                        ErrorAC = True
-                                    End If
-                                End If
+    '                                        ObjAF.UpdateActivosFijosCuentaAC(grp.CveActivoFijo, CtaAF, UsuarioActual.CveUsuario)
+    '                                    Else
+    '                                        ErrorAC = True
+    '                                    End If
+    '                                Else
+    '                                    ErrorAC = True
+    '                                End If
+    '                            End If
 
-                                CuentaMatrizAlmacen = CtaAF
-                            Else
-                                CuentaMatrizAlmacen = IdCuentaMatriz
-                            End If
+    '                            CuentaMatrizAlmacen = CtaAF
+    '                        Else
+    '                            CuentaMatrizAlmacen = IdCuentaMatriz
+    '                        End If
 
 
-                            ''AFECTAR MATRIZ EGRESOS
-                            If ObjContaAC.AddMovimiento(IdPoliza, CuentaMatrizAlmacen, False, Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+    '                        ''AFECTAR MATRIZ EGRESOS
+    '                        If ObjContaAC.AddMovimiento(IdPoliza, CuentaMatrizAlmacen, False, Importe, "", ConceptoRenglon, 0, Fecha, "") Then
 
-                                ''VERIFICA SI TIENE DESCUENTO (AMORTIZACION)
-                                If TxtDescuento.Text.ToDouble > 0 Then
-                                    DescuentoConIVA = TxtDescuento.Text.ToDecimal * 1.16
+    '                            ''VERIFICA SI TIENE DESCUENTO (AMORTIZACION)
+    '                            If TxtDescuento.Text.ToDouble > 0 Then
+    '                                DescuentoConIVA = TxtDescuento.Text.ToDecimal * 1.16
 
-                                    'Valida que el descuento con iva cuadre en los totales
-                                    If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDouble)) < 0.02 Then
-                                        DescuentoConIVA = Importe - TxtTotal.Text.ToDouble
-                                    ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDecimal) Then
-                                        ErrorAC = True
-                                        Exit For
-                                    End If
+    '                                'Valida que el descuento con iva cuadre en los totales
+    '                                If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDouble)) < 0.02 Then
+    '                                    DescuentoConIVA = Importe - TxtTotal.Text.ToDouble
+    '                                ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDecimal) Then
+    '                                    ErrorAC = True
+    '                                    Exit For
+    '                                End If
 
-                                    'actualizo el idcuenta del presupuesto  -CtaProveedor
-                                    If ObjContaAC.AddMovimiento(IdPoliza, 0, True, (Importe - DescuentoConIVA), "", ConceptoRenglon, 0, Fecha, "") Then
-                                        'agrego a la cuenta contable anticipos-- CtaProveedorAnticipos
-                                        If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
-                                            ErrorAC = True
-                                            Exit For
-                                        End If
-                                    Else
-                                        ErrorAC = True
-                                        Exit For
-                                    End If
-                                Else
-                                    'actualizo el idcuenta del 
+    '                                'actualizo el idcuenta del presupuesto  -CtaProveedor
+    '                                If ObjContaAC.AddMovimiento(IdPoliza, 0, True, (Importe - DescuentoConIVA), "", ConceptoRenglon, 0, Fecha, "") Then
+    '                                    'agrego a la cuenta contable anticipos-- CtaProveedorAnticipos
+    '                                    If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
+    '                                        ErrorAC = True
+    '                                        Exit For
+    '                                    End If
+    '                                Else
+    '                                    ErrorAC = True
+    '                                    Exit For
+    '                                End If
+    '                            Else
+    '                                'actualizo el idcuenta del 
 
-                                End If
+    '                            End If
 
-                            Else
-                                ErrorAC = True
-                                Exit For
-                            End If
-                            ''TERMINA AFECTAR MATRIZ EGRESOS
+    '                        Else
+    '                            ErrorAC = True
+    '                            Exit For
+    '                        End If
+    '                        ''TERMINA AFECTAR MATRIZ EGRESOS
 
-                        Else
-                            ErrorAC = True
-                            Exit For
-                        End If
+    '                    Else
+    '                        ErrorAC = True
+    '                        Exit For
+    '                    End If
 
-                    Next
+    '                Next
 
-                    If Not ErrorAC Then
-                        'registro un solo movimiento a proveedores --CtaProveedor
-                        Importe = TxtTotal.Text.ToDecimal
-                        If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, Importe, "", ConceptoRenglon, 0, Fecha, "") Then
-                            ErrorAC = True
-                        End If
-                    End If
+    '                If Not ErrorAC Then
+    '                    'registro un solo movimiento a proveedores --CtaProveedor
+    '                    Importe = TxtTotal.Text.ToDecimal
+    '                    If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, Importe, "", ConceptoRenglon, 0, Fecha, "") Then
+    '                        ErrorAC = True
+    '                    End If
+    '                End If
 
-                    If tRetISR > 0 Then  'CtaProveedorRetISR
-                        ConceptoRenglon = String.Format("GD Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
-                        If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, tRetISR, "", ConceptoRenglon, 0, Fecha, "") Then
-                            ErrorAC = True
-                        End If
-                    End If
+    '                If tRetISR > 0 Then  'CtaProveedorRetISR
+    '                    ConceptoRenglon = String.Format("GD Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
+    '                    If Not ObjContaAC.AddMovimiento(IdPoliza, 0, True, tRetISR, "", ConceptoRenglon, 0, Fecha, "") Then
+    '                        ErrorAC = True
+    '                    End If
+    '                End If
 
-                End If
+    '            End If
 
-            Else
-                ErrorAC = True
-            End If
+    '        Else
+    '            ErrorAC = True
+    '        End If
 
-            'CUADRA LA POLIZA
-            ObjContaAC.AjustaPoliza(IdPoliza)
+    '        'CUADRA LA POLIZA
+    '        ObjContaAC.AjustaPoliza(IdPoliza)
 
-        End If
-        ''TERMINA: SI USA AC
+    '    End If
+    '    ''TERMINA: SI USA AC
 
-        If Not ErrorAC Then
-            If Not ObjCompras.UpdateCompraPoliza(IdPoliza, CveCompra) Then
-                ErrorAC = True
-            End If
-        End If
+    '    If Not ErrorAC Then
+    '        If Not ObjCompras.UpdateCompraPoliza(IdPoliza, CveCompra) Then
+    '            ErrorAC = True
+    '        End If
+    '    End If
 
-        If ErrorAC Then
-            Alert("Ocurrió un error al contabilizar la compra. Comuniquese con soporte.", TipoMensaje.MsgError)
-            ObjContaAC.RollBack()
-            ObjCompras.RollBack()
-        Else
-            ObjContaAC.Commit()
-            ObjCompras.Commit()
-            Alert("La Compra se contabilizó correctamente.", TipoMensaje.MsgInformacion)
+    '    If ErrorAC Then
+    '        Alert("Ocurrió un error al contabilizar la compra. Comuniquese con soporte.", TipoMensaje.MsgError)
+    '        ObjContaAC.RollBack()
+    '        ObjCompras.RollBack()
+    '    Else
+    '        ObjContaAC.Commit()
+    '        ObjCompras.Commit()
+    '        Alert("La Compra se contabilizó correctamente.", TipoMensaje.MsgInformacion)
 
-            HplCompraContabilizada.Text = "Si"
-            HplCompraContabilizada.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", IdPoliza)
-            LblCompraEstatus.ForeColor = Drawing.Color.Navy
-            trContabilizada.Visible = True
-            UpEstatus.Update()
-        End If
-        ObjContaAC.Dispose()
+    '        HplCompraContabilizada.Text = "Si"
+    '        HplCompraContabilizada.NavigateUrl = String.Format("/Contabilidad/RegPoliza.aspx?IdPoliza={0}", IdPoliza)
+    '        LblCompraEstatus.ForeColor = Drawing.Color.Navy
+    '        trContabilizada.Visible = True
+    '        UpEstatus.Update()
+    '    End If
+    '    ObjContaAC.Dispose()
 
-    End Sub
+    'End Sub
 
     Protected Sub BtnEliminarPoliza_Click(sender As Object, e As EventArgs)
         EliminaPoliza()
@@ -15874,32 +15842,32 @@ Partial Class Compras_Compras
         Return EsValido
     End Function
 
-    Private Sub LnkAcarreo_Click(sender As Object, e As EventArgs) Handles LnkAcarreo.Click
-        VerificarAcarreo()
-    End Sub
+    'Private Sub LnkAcarreo_Click(sender As Object, e As EventArgs) Handles LnkAcarreo.Click
+    '    VerificarAcarreo()
+    'End Sub
 
-    Private Sub VerificarAcarreo()
-        RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAcarreo"))
-    End Sub
+    'Private Sub VerificarAcarreo()
+    '    RegistraScript(String.Format("$('#{0}').modal('show');", "divAddAcarreo"))
+    'End Sub
 
-    Private Sub BtnAgregarAcarreo_Click(sender As Object, e As EventArgs) Handles BtnAgregarAcarreo.Click
+    'Private Sub BtnAgregarAcarreo_Click(sender As Object, e As EventArgs) Handles BtnAgregarAcarreo.Click
 
-        tDTAcarreos.Clear()
-        TotAcarreos = 0
-        For Each Gvr As GridViewRow In GvAcarreo.Rows
-            If CType(Gvr.FindControl("ChkRow"), System.Web.UI.WebControls.CheckBox).Checked = True Then
-                Dim Row As DataRow = Nothing
-                Row = tDTAcarreos.NewRow
-                Row("CvePreEstimacion") = Gvr.DataKey("CvePreEstimacion")
-                Row("Importe") = Gvr.DataKey("Importe")
-                tDTAcarreos.Rows.Add(Row)
-                TotAcarreos = TotAcarreos + Gvr.DataKey("Importe").ToDouble
+    '    tDTAcarreos.Clear()
+    '    TotAcarreos = 0
+    '    For Each Gvr As GridViewRow In GvAcarreo.Rows
+    '        If CType(Gvr.FindControl("ChkRow"), System.Web.UI.WebControls.CheckBox).Checked = True Then
+    '            Dim Row As DataRow = Nothing
+    '            Row = tDTAcarreos.NewRow
+    '            Row("CvePreEstimacion") = Gvr.DataKey("CvePreEstimacion")
+    '            Row("Importe") = Gvr.DataKey("Importe")
+    '            tDTAcarreos.Rows.Add(Row)
+    '            TotAcarreos = TotAcarreos + Gvr.DataKey("Importe").ToDouble
 
-            End If
-        Next
-        UpPS.Update()
-        RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddAcarreo"))
-    End Sub
+    '        End If
+    '    Next
+    '    UpPS.Update()
+    '    RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddAcarreo"))
+    'End Sub
 #End Region
 
 #Region "Historial de Modificacion"
@@ -17902,11 +17870,11 @@ Partial Class Compras_Compras
         End If
     End Sub
 
-    Private Sub GvAcarreo_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvAcarreo.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            e.Row.FCLiteral("LtlImporte").Text = "$" + FormatNumber(e.Row.FCLiteral("LtlImporte").Text.ToDouble, 2, , , TriState.True)
-        End If
-    End Sub
+    'Private Sub GvAcarreo_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvAcarreo.RowDataBound
+    '    If e.Row.RowType = DataControlRowType.DataRow Then
+    '        e.Row.FCLiteral("LtlImporte").Text = "$" + FormatNumber(e.Row.FCLiteral("LtlImporte").Text.ToDouble, 2, , , TriState.True)
+    '    End If
+    'End Sub
 
 
 #End Region
@@ -18012,7 +17980,7 @@ Partial Class Compras_Compras
             ImporteMovimiento = 0
             'INGRESA DETALLE DE ALMACÉN(68)
             Dim DtAlmacenes As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
-            If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+            If UsuarioActual.Empresa.UsaInventarios Then
                 Dim CveMovimientoInventario As Integer = -1
                 Dim ModalidadAlmacen As Integer = -1
                 Dim DtMovtosAlmacen As New DataTable
@@ -18075,22 +18043,19 @@ Partial Class Compras_Compras
             Next
             DT.AcceptChanges()
 
-            If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-                DT = DT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "CveSubProyecto"})
-            Else
-                DT = DT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "CveSubProyecto"})
-            End If
+            'If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+            '    DT = DT.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "CveSubProyecto"})
+            'Else
+            DT = DT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "CveSubProyecto"})
+            'End If
 
             If DT.Rows.Count > 0 Then
                 Dim ImporteAlmacen As Decimal = 0.0D
                 For Each Row2 As DataRow In DT.Rows
-                    If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-                        ImporteMovimiento = DtTemporal.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
+
+                    ImporteMovimiento = DtTemporal.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
                         ImporteAlmacen = DtTemporal.SUM("ImporteEnAlmacen", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
-                    Else
-                        ImporteMovimiento = DtTemporal.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
-                        ImporteAlmacen = DtTemporal.SUM("ImporteEnAlmacen", String.Format("ISNULL(TipoAF,0) <> 2 AND CveClasificacion = {0} AND CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString.ToDecimal
-                    End If
+
                     ImporteMovimiento = (ImporteMovimiento - ImporteAlmacen) * Multiplicador
                     importeMN = ImporteMovimiento * TipoCambioActual
 
@@ -18548,8 +18513,9 @@ Partial Class Compras_Compras
                 End If
                 ObjInv.Dispose()
             Case 240
+                Dim Pedimento As String = TxtPedimento.Text.Trim.Replace("-", " ")
                 Dim ObjCompras As New ClsCompras
-                CveImportacion = ObjCompras.AddImportacion(TxtPedimento.Text.Trim, TxtDescripcionModalFletesImportacion.Text.Trim, CveProveedor, -1, TxtFechaModalImportacionesFletes.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                CveImportacion = ObjCompras.AddImportacion(Pedimento, TxtDescripcionModalFletesImportacion.Text.Trim, CveProveedor, -1, TxtFechaModalImportacionesFletes.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                 ObjCompras.Dispose()
                 If CveImportacion > 0 Then Alert("Importación creada correctamente")
         End Select
@@ -18617,7 +18583,7 @@ Partial Class Compras_Compras
 
 #End Region
 
-    Private Function AjustarPrePolizaVinculacionOC(ByRef OC As ClsOC, ByRef OCBitacora As ClsOIEventos, ByRef ObjInventarios As ClsInventarios, ByRef ObjConta As ClsContabilidad, ByRef ObjAC As ClsContPAQi) As Boolean
+    Private Function AjustarPrePolizaVinculacionOC(ByRef OC As ClsOC, ByRef OCBitacora As ClsOIEventos, ByRef ObjInventarios As ClsInventarios, ByRef ObjConta As ClsContabilidad) As Boolean
 
         'VARIABLES
         Dim CveProveedorSucursal As Integer = -1
@@ -18813,12 +18779,6 @@ Partial Class Compras_Compras
                                     Retorno = False
                                 End If
                             End If
-
-                            If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso ObjAC IsNot Nothing Then
-                                If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
-                                    Retorno = False
-                                End If
-                            End If
                         End If
                     End If
                 Next
@@ -18930,9 +18890,9 @@ Partial Class Compras_Compras
             UpParametros.Update()
 
             'Agrupa los CvePS iguales y suma sus cantidades
-            For Each row In TmpDT.AsEnumerable()
-                Dim cvePS As Integer = row.Field(Of Integer)("CvePS")
-                Dim cantidad As Decimal = row("Cantidad").Tostring.ToDecimal
+            For Each row As DataRow In TmpDT.Rows
+                Dim cvePS As Integer = row("CvePS").ToString.ToEntero
+                Dim cantidad As Decimal = row("Cantidad").ToString.ToDecimal
                 If ExistenciasPSFactura.ContainsKey(cvePS) Then
                     ExistenciasPSFactura(cvePS) += cantidad
                 Else
@@ -19699,7 +19659,7 @@ Partial Class Compras_Compras
         Dim ObjInventarios As New ClsInventarios(Comp.IniciaTransacSQL())
         Dim ObjGral As New ClsGenerales(Comp.IniciaTransacSQL())
 
-        Dim ErrorCompra = False
+        Dim ErrorCompra As Boolean = False
 
         If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then
             ObjAC = New ClsContPAQi(UsuarioActual.Empresa)