From ea17ad2b55d28a38de015e3677092d946c55eb95 Mon Sep 17 00:00:00 2001
From: janeth arvizu <janeth.arvizu@adssistemas.mx>
Date: Mon, 2 Sep 2019 14:14:41 -0700
Subject: [PATCH 1/4]

---
 Sistemas/ConfiguracionEmpresa.aspx    | 135 +++++++++++++++++++++++---
 Sistemas/ConfiguracionEmpresa.aspx.vb |  39 ++++++++
 2 files changed, 160 insertions(+), 14 deletions(-)

diff --git a/Sistemas/ConfiguracionEmpresa.aspx b/Sistemas/ConfiguracionEmpresa.aspx
index ca36a2e4c..25a5c123e 100644
--- a/Sistemas/ConfiguracionEmpresa.aspx
+++ b/Sistemas/ConfiguracionEmpresa.aspx
@@ -54,8 +54,69 @@
                                                         <asp:ListItem Value="2"><label><b>Global</b></label></asp:ListItem>
                                                     </asp:RadioButtonList>
                                                 </td>
+                                                <td>
+                                                    <asp:DropDownList ID="DdlCtaContableClientes" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                    </asp:DropDownList>
+                                                </td>
                                             </tr>
                                             <tr>
+                                                <td>Proveedores:</td>
+                                                <td>
+                                                    <asp:RadioButtonList ID="RadioButtonList4" runat="server" AutoPostBack="true" RepeatDirection="Horizontal" CssClass="input-group" CellSpacing="50">
+                                                        <asp:ListItem Value="1" Selected="True"><label><b>Individual</b></label></asp:ListItem>
+                                                        <asp:ListItem Value="2"><label><b>Global</b></label></asp:ListItem>
+                                                    </asp:RadioButtonList>
+                                                </td>
+                                                <td>
+                                                    <asp:DropDownList ID="DropDownList1" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                    </asp:DropDownList>
+                                                </td>
+                                            </tr>
+                                            <tr>
+                                                <td>Deudores:</td>
+                                                <td>
+                                                    <asp:RadioButtonList ID="RadioButtonList5" runat="server" AutoPostBack="true" RepeatDirection="Horizontal" CssClass="input-group" CellSpacing="50">
+                                                        <asp:ListItem Value="1" Selected="True"><label><b>Individual</b></label></asp:ListItem>
+                                                        <asp:ListItem Value="2"><label><b>Global</b></label></asp:ListItem>
+                                                    </asp:RadioButtonList>
+                                                </td>
+                                                <td>
+                                                    <asp:DropDownList ID="DropDownList2" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                    </asp:DropDownList>
+                                                </td>
+                                            </tr>
+                                            <tr>
+                                                <td>Almacen:</td>
+                                                <td>
+                                                    <asp:RadioButtonList ID="RadioButtonList6" runat="server" AutoPostBack="true" RepeatDirection="Horizontal" CssClass="input-group" CellSpacing="50">
+                                                        <asp:ListItem Value="1" Selected="True"><label><b>Individual</b></label></asp:ListItem>
+                                                        <asp:ListItem Value="2"><label><b>Global</b></label></asp:ListItem>
+                                                    </asp:RadioButtonList>
+                                                </td>
+                                                <td>
+                                                    <asp:DropDownList ID="DropDownList3" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                    </asp:DropDownList>
+                                                </td>
+                                            </tr>
+                                            <tr>
+                                                <td>Costo:</td>
+                                                <td>
+                                                    <asp:RadioButtonList ID="RadioButtonList7" runat="server" AutoPostBack="true" RepeatDirection="Horizontal" CssClass="input-group" CellSpacing="50">
+                                                        <asp:ListItem Value="1" Selected="True"><label><b>Individual</b></label></asp:ListItem>
+                                                        <asp:ListItem Value="2"><label><b>Global</b></label></asp:ListItem>
+                                                    </asp:RadioButtonList>
+                                                </td>
+                                                <td>
+                                                    <asp:DropDownList ID="DropDownList4" CssClass="form-control input-medium" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id">
+                                                        <asp:ListItem Selected="True" Text="Seleccione" Value="0"></asp:ListItem>
+                                                    </asp:DropDownList>
+                                                </td>
+                                            </tr>
+<%--                                            <tr>
                                                 <td>Clave de Empresa:</td>
                                                 <td>
                                                     <asp:TextBox ID="TxtCveEmpresa" runat="server" MaxLength="50" Width="60px"></asp:TextBox>
@@ -70,27 +131,73 @@
                                                     <asp:RequiredFieldValidator ID="RFVEmpresa" runat="server" ControlToValidate="TxtEmpresa" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre de la Empresa''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCEEmpresa" runat="server" HighlightCssClass="vco" TargetControlID="RFVEmpresa" Width="300px"></ajax:ValidatorCalloutExtender>
                                                 </td>
+                                            </tr>--%>
+                                        </table>
+                                    </div>
+                                </div>
+
+                                <div class="portlet light smmallpadding bordered">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="icon-pin font-green"></i>
+                                            <span class="caption-subject bold uppercase">Clasificaciones</span>
+                                        </div>
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                            </div>
+                                        </div>
+                                        <div class="tools">
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body">
+                                        <table border="0">
+                                            <tr>
+                                                <td>
+                                                    <asp:RadioButtonList ID="RadioButtonList3" runat="server" AutoPostBack="true" RepeatDirection="Horizontal" CssClass="input-group" CellSpacing="100">
+                                                        <asp:ListItem Value="1" Selected="True"><label><b>Ingreso por Clasificación de IVA</b><tr></tr></label></asp:ListItem>
+                                                        <asp:ListItem Value="2"><label><b>Ingreso por Clasificación de IVA + Clasificación</b></label></asp:ListItem>
+                                                    </asp:RadioButtonList>
+                                                </td>
+                                            </tr>
+                                        </table>
+                                    </div>
+                                </div>
+
+                            </div>
+
+                            <div class="col-md-6">
+                                <div class="portlet light smmallpadding bordered">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="icon-pin font-green"></i>
+                                            <span class="caption-subject bold uppercase">Impuestos</span>
+                                        </div>
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                            </div>
+                                        </div>
+                                        <div class="tools">
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body">
+                                        <table border="0">
+                                            <tr>
+                                                <td>IVA Trasladado:<tr></tr>
+                                                    <asp:RadioButtonList ID="RadioButtonList2" runat="server" AutoPostBack="true" RepeatDirection="Horizontal" CssClass="input-group" CellSpacing="100">
+                                                        <asp:ListItem Value="1" Selected="True"><label><b>0%</b><tr></tr></label></asp:ListItem>
+                                                        <asp:ListItem Value="2"><label><b>8%</b><tr></tr></label></asp:ListItem>
+                                                        <asp:ListItem Value="2"><label><b>16%</b><tr></tr></label></asp:ListItem>
+                                                    </asp:RadioButtonList>
+                                                </td>
                                             </tr>
                                         </table>
                                     </div>
                                 </div>
                             </div>
-
-
-
-
-
-
-
-
-
-
-
-
-
                         </div>
 
-
                     </ContentTemplate>
                 </ajax:TabPanel>
             </ajax:TabContainer>
diff --git a/Sistemas/ConfiguracionEmpresa.aspx.vb b/Sistemas/ConfiguracionEmpresa.aspx.vb
index 2089a9192..13fb35337 100644
--- a/Sistemas/ConfiguracionEmpresa.aspx.vb
+++ b/Sistemas/ConfiguracionEmpresa.aspx.vb
@@ -17,7 +17,46 @@ Partial Class Sistemas_ConfiguracionEmpresa
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
 
+            CargaCuentaClIente()
 
         End If
     End Sub
+
+    Private Sub CargaCuentaCliente()
+        Dim ObjCompaq As New ClsContPAQi(UsuarioActual.Empresa)
+        Dim ObjContabilidad As New ClsContabilidad
+
+        If RblTipo.SelectedValue = "SIG" Then
+            If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
+                DdlCtaContableClientes.Items.Clear()
+                DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
+                DdlCtaContableClientes.DataSource = ObjContabilidad.DtResultados
+                DdlCtaContableClientes.DataBind()
+            End If
+        Else
+                If ObjCompaq.GetCuentas(-1, "-1", 1) Then
+                DdlCtaContableClientes.Items.Clear()
+                DdlCtaContableClientes.Items.Add(New ListItem("Seleccione", "0"))
+                DdlCtaContableClientes.DataSource = ObjCompaq.DtResultados
+                DdlCtaContableClientes.DataBind()
+            End If
+        End If
+
+    End Sub
+
+    Protected Sub RblTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipo.SelectedIndexChanged
+        CargaCuentaCliente()
+    End Sub
+
+    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
+        Dim ObjEmpresas As New ClsSisEmpresas
+        ObjEmpresas.IniciaTransacSQL()
+
+
+
+
+
+        ObjEmpresas.Dispose()
+
+    End Sub
 End Class

From c90ef7263c363a50f0c14202fa60f3d7bd9f8d87 Mon Sep 17 00:00:00 2001
From: Raul Pimienta <raul.pimienta@adssistemas.mx>
Date: Mon, 2 Sep 2019 14:57:56 -0700
Subject: [PATCH 2/4] Soporte tipo de cambio Egs

---
 Bancos/IE.aspx          | 10 ++++++++++
 Bancos/IE.aspx.vb       | 19 +++++++++++--------
 Bancos/Reportes.aspx.vb |  2 +-
 3 files changed, 22 insertions(+), 9 deletions(-)

diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index 3c72538b3..d6f6d6e03 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -712,6 +712,7 @@
                                                             <td>
                                                                 <asp:TextBox ID="TxtTipoCambio" runat="server" MaxLength="12" Width="80px"></asp:TextBox></td>
                                                         </tr>
+                                                    <asp:Button ID="BtnCambiaTipoMoneda" Text="" OnClick="BtnCambiaTipoMoneda_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
                                                     </ContentTemplate>
                                                 </asp:UpdatePanel>
 
@@ -1533,5 +1534,14 @@
             t.value = (ToDouble(t.value) > ToDouble(c) ? c : t.value)
         }
 
+        var TipoCambioActual = 0.0;
+        function CambiaTC(txt) {
+            let TipoCambioTxt = ToDouble(txt.value)
+            if (TipoCambioActual != TipoCambioTxt) {
+                $get("BtnCambiaTipoMoneda").click();
+                TipoCambioActual = TipoCambioTxt;
+            }
+        }
+
     </script>
 </asp:Content>
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 014263330..f009aa10e 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -649,6 +649,7 @@ Partial Class Bancos_IE
                 CveIE = -1
                 TxtFechaDocumento.Text = Now.ToShortDateString
                 ImgUpdateCuentaDeposito.Visible = False
+                TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);")
             End If
 
             InicializaSolicitudAnticipoOC()
@@ -2251,7 +2252,12 @@ Partial Class Bancos_IE
         Dep.Dispose()
 
         Return EsValido
-    End Function
+    End Function
+
+    Protected Sub BtnCambiaTipoMoneda_Click(sender As Object, e As EventArgs)
+        CambiaTipoMoneda()
+    End Sub
+
 
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
 
@@ -2259,9 +2265,7 @@ Partial Class Bancos_IE
             Exit Sub
         End If
 
-        'PARA QUE TOME EL TIPO DE CAMBIO DEL DIA
-        TxtTipoCambio.Text = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToString
-        UpTipoCambio.Update()
+
 
 
         Dim ObjIE As New ClsBancos()
@@ -3045,14 +3049,13 @@ Partial Class Bancos_IE
                                 'BANCOS COMPLEMENTARIA
                                 If DdlMoneda.SelectedValue.ToEntero > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119) Then
                                     Dim ImporteAplicar As Decimal = TxtImporte.Text.ToDecimal
-                                    Dim TCPago As Decimal = GlobalTipoCambio(TxtFechaDocumento.Text.ToDate).ToDecimal
-                                    Dim ImporteAplicarMN = (ImporteAplicar * TCPago - ImporteAplicar).RoundSQL()
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, CveCuenta:=CveCuentaConta, TipoCambio:=TCPago) Then
+                                    Dim ImporteAplicarMN = (ImporteAplicar * TxtTipoCambio.Text.ToDecimal - ImporteAplicar).RoundSQL()
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAplicar, Ref, 204, Conc, Now, IDCtaContableComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, CveCuenta:=CveCuentaConta, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
                                         MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                     End If
 
                                     If CveConceptoCompra = 10 Then
-                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, 266, Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, CveCuenta:=0, TipoCambio:=TCPago) Then
+                                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteAplicar, Ref, 266, Conc, Now, IdCtaAnticipoComplementaria, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=ImporteAplicarMN, ImporteME:=ImporteAplicar, CveCuenta:=0, TipoCambio:=TxtTipoCambio.Text.ToDecimal) Then
                                             MsgError = "Ocurrió un error al registrar el asiento de bancos complementaria de devolución"
                                         End If
                                     End If
diff --git a/Bancos/Reportes.aspx.vb b/Bancos/Reportes.aspx.vb
index 3bb4858d2..cdd1eb1d7 100644
--- a/Bancos/Reportes.aspx.vb
+++ b/Bancos/Reportes.aspx.vb
@@ -119,7 +119,7 @@ Partial Class Bancos_Reportes
                         If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                             'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES
                             For Each Dr As DataRow In dtMovs.Rows
-                                Dr("Importe") = Dr("Importe").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
+                                Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal
                                 Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
                                 Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal
                                 Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal

From 1d6fbe9cb3b5d61117411fa2c20d2685cf923196 Mon Sep 17 00:00:00 2001
From: Raul Pimienta <raul.pimienta@adssistemas.mx>
Date: Mon, 2 Sep 2019 17:09:50 -0700
Subject: [PATCH 3/4] Editar compra cuando esta contabilizada

---
 Compras/Compras.aspx.vb | 6011 ++++++++++++++++++++-------------------
 1 file changed, 3010 insertions(+), 3001 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 01188dd7f..c8595839f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4166,1486 +4166,1594 @@ Partial Class Compras_Compras
                     'seria de contado, solo cuando no tenga vinculado ningun anticipo
                     If RBLPago.SelectedValue.ToEntero = 2 AndAlso ArrAnticipos.Count = 0 Then 'Contado
 
-                    If RBLContado.SelectedValue = "1" Then
-                        'se registra primero el movimiento en bancos para  luego vincularlo en la compra
-                        CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaPago.Text.Trim.ToDate, TxtDocumentoFolio.Text.Trim, DdlProveedor.SelectedItem.Text.Trim, TxtDocumentoImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, 0.0, TxtDocumentoObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1))
-                    ElseIf RBLContado.SelectedValue = "6" Then
-                        'se registra primero el movimiento en bancos para  luego vincularlo en la compra
-                        CveIE = ObjIE.AddBancos_IE(DdlCuentaCaja.SelectedValue.ToEntero, DdlTipoTransaccionCaja.SelectedValue.ToEntero, TxtFechaPago.Text.Trim.ToDate, TxtDocumentoFolioCaja.Text.Trim, DdlProveedor.SelectedItem.Text.Trim, TxtDocumentoImporteCaja.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, 0.0, TxtDocumentoObservacionesCaja.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                    End If
-
-                    If (RBLContado.SelectedValue = "1" OrElse RBLContado.SelectedValue = "6") AndAlso Not CveIE > 0 Then
-                        ErrorMovtosIE = True
-                    End If
-                End If
-
-                If Not ErrorMovtosIE Then
-
-                    'REEMBOLSOS NO USA AC
-                    Dim NumeroReembolso = "-1"
-                    If TxtNumeroReembolso IsNot Nothing And RBLPago.SelectedValue = "3" Then
-                        NumeroReembolso = TxtNumeroReembolso.Text
-
-                        ''GUARDA VALORES PARA SESSION
-                        UsuarioActual.Sesion("Comp-NumeroReembolso") = TxtNumeroReembolso.Text
-                        UsuarioActual.Sesion("Comp-CveFYE") = DdlPersonalReembolso.SelectedValue
-                        UsuarioActual.Sesion("Comp-Descripcion") = TxtDescripcion.Text
-
-                        If NumeroReembolso <> "-1" Then
-                            If CvePersonal <= 0 And CveCajaChica <= 0 Then
-                                ErrorReembolso = True
-                            End If
+                        If RBLContado.SelectedValue = "1" Then
+                            'se registra primero el movimiento en bancos para  luego vincularlo en la compra
+                            CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaPago.Text.Trim.ToDate, TxtDocumentoFolio.Text.Trim, DdlProveedor.SelectedItem.Text.Trim, TxtDocumentoImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, 0.0, TxtDocumentoObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1))
+                        ElseIf RBLContado.SelectedValue = "6" Then
+                            'se registra primero el movimiento en bancos para  luego vincularlo en la compra
+                            CveIE = ObjIE.AddBancos_IE(DdlCuentaCaja.SelectedValue.ToEntero, DdlTipoTransaccionCaja.SelectedValue.ToEntero, TxtFechaPago.Text.Trim.ToDate, TxtDocumentoFolioCaja.Text.Trim, DdlProveedor.SelectedItem.Text.Trim, TxtDocumentoImporteCaja.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero, 0.0, TxtDocumentoObservacionesCaja.Text.Trim, "", True, True, -1, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                        End If
+
+                        If (RBLContado.SelectedValue = "1" OrElse RBLContado.SelectedValue = "6") AndAlso Not CveIE > 0 Then
+                            ErrorMovtosIE = True
                         End If
-                    Else
-                        UsuarioActual.Sesion("Comp-NumeroReembolso") = ""
                     End If
 
+                    If Not ErrorMovtosIE Then
 
-                    If Not ErrorReembolso Then
+                        'REEMBOLSOS NO USA AC
+                        Dim NumeroReembolso = "-1"
+                        If TxtNumeroReembolso IsNot Nothing And RBLPago.SelectedValue = "3" Then
+                            NumeroReembolso = TxtNumeroReembolso.Text
 
-                        'PORCENTAJE IVA
-                        Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
+                            ''GUARDA VALORES PARA SESSION
+                            UsuarioActual.Sesion("Comp-NumeroReembolso") = TxtNumeroReembolso.Text
+                            UsuarioActual.Sesion("Comp-CveFYE") = DdlPersonalReembolso.SelectedValue
+                            UsuarioActual.Sesion("Comp-Descripcion") = TxtDescripcion.Text
 
-                        'If DdlIVA.SelectedValue.ToDouble = 1.16 Then
-                        '    PorcentajeIVA = 0.16
-                        'ElseIf DdlIVA.SelectedValue.ToDouble = 1.08 Then
-                        '    PorcentajeIVA = 0.08
-                        'End If
-
-                        'METODO DE PREPOLIZA DE ALMACEN
-                        If UsuarioActual.CveEmpresa.Contiene(1, 119) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-                            Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 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
-                                    If (CveImportacion > 0 Or CveFlete > 0) Then
-                                        CveConceptoContableAlmacen = CveConceptoContableAlmacen
-                                    Else
-                                        CveConceptoContableAlmacen = 205
-                                    End If
-                                    If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then
-                                        CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
-                                    End If
-                                Else
-                                    CveConceptoContableAlmacen = 225
+                            If NumeroReembolso <> "-1" Then
+                                If CvePersonal <= 0 And CveCajaChica <= 0 Then
+                                    ErrorReembolso = True
                                 End If
-
-                                'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen
-                            ElseIf OCVinculada AndAlso Not (CveImportacion > 0 Or CveFlete > 0) AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
-                                CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
-                            ElseIf (CveImportacion > 0 Or CveFlete > 0) AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
-                                CveConceptoContableAlmacen = CveConceptoContableAlmacen
                             End If
+                        Else
+                            UsuarioActual.Sesion("Comp-NumeroReembolso") = ""
                         End If
 
 
-                        If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(1, 101) Then
-                            CveEstatusFactura = 6
-                        End If
+                        If Not ErrorReembolso Then
 
-                        'Compra
-                        If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDouble, TxtDescuento.Text.ToDouble,
-                          LblAmortizacion.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtOtrosImpuestos.Text.ToDouble,
-                          TxtRedondeo.Text.ToDouble, TxtTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
-                                                CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero,
-                                                AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen,
-                                                CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero) Then
+                            'PORCENTAJE IVA
+                            Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
 
-                            ViewState("CveCompra") = ObjCompras.CveCompra
-                            If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
-                            If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
-                                ErrorMovDev = guardardevolucion(ObjInventario, ObjCompras.CveCompra, TxtSubTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate)
-                            End If
-                            Dim ErrorDetalles As Boolean = False
-                            ' Dim IDPoliza As Integer
-                            Dim IDPolizaComprometido = 0
-                            Dim ErrorComprometido = False
+                            'If DdlIVA.SelectedValue.ToDouble = 1.16 Then
+                            '    PorcentajeIVA = 0.16
+                            'ElseIf DdlIVA.SelectedValue.ToDouble = 1.08 Then
+                            '    PorcentajeIVA = 0.08
+                            'End If
 
-                            If CveImportacion > 0 Or CveFlete > 0 Then
-
-
-                                Select Case CveConceptoContableAlmacen
-                                    Case 237
-                                        Select Case FleteImportacionOpcion
-                                            Case 1
-                                                Dim Dr As DataRow = Nothing
-                                                If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, CveFlete) Then
-                                                    If ObjInventario.DtResultados.Rows.Count > 0 Then
-                                                        Dr = ObjInventario.DtResultados.Rows(0)
-                                                    End If
-                                                End If
-                                                If Dr IsNot Nothing Then
-                                                    If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
-                                                        ErrorOC = True
-                                                    End If
-                                                Else
-                                                    ErrorOC = True
-                                                End If
-                                            Case 2
-                                                If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then
-                                                    ErrorOC = True
-                                                End If
-                                                'actualiza la compra para que no se surta en almacen. sino por el flete o importación
-                                                If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
-                                                    ErrorOC = True
-                                                End If
-                                        End Select
-                                    Case 240
-                                        Select Case FleteImportacionOpcion
-                                            Case 1
-                                                If Not ObjCompras.AddImportacionCompra(CveImportacion, CveCompra) Then
-                                                    ErrorOC = True
-                                                End If
-                                            Case 2
-                                                If Not ObjCompras.AddImportacionDetalle(CveImportacion, CveCompra) Then
-                                                    ErrorOC = True
-                                                End If
-                                                'actualiza la compra para que no se surta en almacen. sino por el flete o importación
-                                                If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
-                                                    ErrorOC = True
-                                                End If
-                                        End Select
-                                End Select
-                            End If
-
-
-                            If UsuarioActual.Empresa.UsaAC Then
-
-                                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
-                                        '    IDPolizaComprometido = ObjContaAC.AddPoliza( 4, "Comprometido", Total, Total, UsuarioActual.CveUsuario, Now)
-                                        '    If IDPolizaComprometido <= 0 Then
-                                        '        ErrorComprometido = True
-                                        '    End If
-                                        IDPolizaComprometido = 1
-                                        TotalPorDevengar = TotalPorDevengar * 2
+                            'METODO DE PREPOLIZA DE ALMACEN
+                            If UsuarioActual.CveEmpresa.Contiene(1, 119) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                Dim ImporteAlmacen = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 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
+                                        If (CveImportacion > 0 Or CveFlete > 0) Then
+                                            CveConceptoContableAlmacen = CveConceptoContableAlmacen
+                                        Else
+                                            CveConceptoContableAlmacen = 205
+                                        End If
+                                        If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then
+                                            CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
+                                        End If
                                     Else
-                                        TotalPorDevengar = TotalPorDevengar * 3
+                                        CveConceptoContableAlmacen = 225
                                     End If
 
-                                    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
-
-                                        '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)
-                                                    tIdContaProveedor = CtaProveedor
-
-                                                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
+                                    'Condiciones para los casos de facturas que son en 0 pero que se utiliza el almacen
+                                ElseIf OCVinculada AndAlso Not (CveImportacion > 0 Or CveFlete > 0) AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
+                                    CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
+                                ElseIf (CveImportacion > 0 Or CveFlete > 0) AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
+                                    CveConceptoContableAlmacen = CveConceptoContableAlmacen
+                                End If
+                            End If
 
 
-                                            'INVENTARIOS EN AC
-                                            Dim ContadorInventario As Integer = GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked)
-                                            Dim CtaAlmacen As Integer
-                                            If ContadorInventario > 0 Then
-                                                Dim drr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToString.ToEntero))
-                                                If drr IsNot Nothing Then
-                                                    CtaAlmacen = drr("IdCtaContable").ToString.ToEntero
-                                                End If
-                                            End If
+                            If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(1, 101) Then
+                                CveEstatusFactura = 6
+                            End If
 
-                                            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
+                            'Compra
+                            If ObjCompras.AddCompra(DdlTipoComprobante.SelectedValue, TxtDescripcion.Text.Trim, TxtSerie.Text.Trim, TxtFolio.Text.Trim, TxtFolioSecundario.Text.Trim, CveProveedor, TxtSubTotal.Text.ToDouble, TxtDescuento.Text.ToDouble,
+                              LblAmortizacion.Text.ToDouble, TxtIVA.Text.ToDouble, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, TxtIEPS.Text.ToDouble, TxtOtrosImpuestos.Text.ToDouble,
+                              TxtRedondeo.Text.ToDouble, TxtTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
+                                                    CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero,
+                                                    AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen,
+                                                    CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero) Then
 
-                                            'Dim tTotalIVA, tTotalGral, tDiferenciaIVA, tIVA As Double
-                                            tTotalIVA = TxtIVA.Text.ToDecimal
-                                            tRetIVA = TxtRetIVA.Text.ToDecimal
-                                            tRetISR = TxtRetISR.Text.ToDecimal
+                                ViewState("CveCompra") = ObjCompras.CveCompra
+                                If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
+                                If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
+                                    ErrorMovDev = guardardevolucion(ObjInventario, ObjCompras.CveCompra, TxtSubTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate)
+                                End If
+                                Dim ErrorDetalles As Boolean = False
+                                ' Dim IDPoliza As Integer
+                                Dim IDPolizaComprometido = 0
+                                Dim ErrorComprometido = False
 
-                                            'tTotalIVA = tTotalIVA - tRetIVA - tRetISR
+                                If CveImportacion > 0 Or CveFlete > 0 Then
 
-                                            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
-
-                                            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
-
-                                            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
+                                    Select Case CveConceptoContableAlmacen
+                                        Case 237
+                                            Select Case FleteImportacionOpcion
+                                                Case 1
+                                                    Dim Dr As DataRow = Nothing
+                                                    If ObjInventario.GetFletes(UsuarioActual.CveEmpresa, CveFlete) Then
+                                                        If ObjInventario.DtResultados.Rows.Count > 0 Then
+                                                            Dr = ObjInventario.DtResultados.Rows(0)
                                                         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.16D
+                                                    If Dr IsNot Nothing Then
+                                                        If Not ObjInventario.UpdateFlete(CveFlete, Dr("Descripcion").ToString, Dr("Fecha").ToString.ToDate, -1, CveCompra, UsuarioActual.CveUsuario) Then
+                                                            ErrorOC = True
+                                                        End If
+                                                    Else
+                                                        ErrorOC = True
                                                     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)
+                                                Case 2
+                                                    If Not ObjInventario.AddFleteDetalle(CveFlete, CveCompra) Then
+                                                        ErrorOC = True
                                                     End If
+                                                    'actualiza la compra para que no se surta en almacen. sino por el flete o importación
+                                                    If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+                                                        ErrorOC = True
+                                                    End If
+                                            End Select
+                                        Case 240
+                                            Select Case FleteImportacionOpcion
+                                                Case 1
+                                                    If Not ObjCompras.AddImportacionCompra(CveImportacion, CveCompra) Then
+                                                        ErrorOC = True
+                                                    End If
+                                                Case 2
+                                                    If Not ObjCompras.AddImportacionDetalle(CveImportacion, CveCompra) Then
+                                                        ErrorOC = True
+                                                    End If
+                                                    'actualiza la compra para que no se surta en almacen. sino por el flete o importación
+                                                    If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2) Then
+                                                        ErrorOC = True
+                                                    End If
+                                            End Select
+                                    End Select
+                                End If
 
-                                                    'Presupuesto Egresos
-                                                    DtPresupuestosTemp = DtPresupuestos.FiltraParametros(String.Format("CvePresupuestoEgreso = {0}", grp.CvePresupuestoEgreso))
-                                                    If DtPresupuestosTemp.Rows.Count <> 1 Then
+
+                                If UsuarioActual.Empresa.UsaAC Then
+
+                                    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
+                                            '    IDPolizaComprometido = ObjContaAC.AddPoliza( 4, "Comprometido", Total, Total, UsuarioActual.CveUsuario, Now)
+                                            '    If IDPolizaComprometido <= 0 Then
+                                            '        ErrorComprometido = True
+                                            '    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)
+
+                                        '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
+
+                                                        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)
+                                                        tIdContaProveedor = CtaProveedor
+
+                                                    Else
                                                         ErrorAC = True
-                                                        ErrorACMEnsaje.Append(" - DtPresupuestosTemp.Rows.Count <> 1 ")
-                                                        Exit For
+                                                        ErrorACMEnsaje.Append(" - DrCuenta Nula")
                                                     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
+                                                Else
+                                                    ErrorACMEnsaje.Append(" - Error al consultar cuenta 021190000000000000 ")
+                                                    ErrorAC = True
+                                                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
+                                            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)
+                                                Dim CtaAlmacen As Integer
+                                                If ContadorInventario > 0 Then
+                                                    Dim drr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToString.ToEntero))
+                                                    If drr IsNot Nothing Then
+                                                        CtaAlmacen = drr("IdCtaContable").ToString.ToEntero
+                                                    End If
+                                                End If
+
+                                                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
+
+                                                '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
+
+                                                ipresup = 0
+
+                                                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
+
+                                                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.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
+
+                                                        '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
+
+                                                        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
-                                                                ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 1")
                                                                 Exit For
                                                             End If
                                                         Else
-                                                            ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 2")
+                                                            ErrorACMEnsaje.Append(" - Error al agregar movimiento contabilidad 4")
                                                             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
+                                                        If ContadorInventario > 0 Then
+                                                            CuentaMatrizAlmacen = CtaAlmacen
+                                                        ElseIf grp.CveActivoFijo > 0 Then
 
-                                                    If ContadorInventario > 0 Then
-                                                        CuentaMatrizAlmacen = CtaAlmacen
-                                                    ElseIf grp.CveActivoFijo > 0 Then
+                                                            Dim CtaAF = -1
+                                                            Dim AF = ""
+                                                            Dim CuentaInicial = -1
 
-                                                        Dim CtaAF = -1
-                                                        Dim AF = ""
-                                                        Dim CuentaInicial = -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 = 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 = 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)
+                                                                        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 drCuenta nulo")
+                                                                    ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000")
                                                                     ErrorAC = True
                                                                 End If
-                                                            Else
-                                                                ErrorACMEnsaje.Append(" - Error al obtener cuentas 0{0}0000000000000")
-                                                                ErrorAC = True
                                                             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
+
+                                                            '    '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
+
+                                                            '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
 
 
-                                                        ''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
-
-                                                        '    '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
-
-                                                        '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")
+                                                        ErrorACMEnsaje.Append(" - For Each grp In Presup  Importe > 0 ")
                                                         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
+                                                Next
 
-                                            Next
+                                                ''[IPP] COMENTADO A MIRAS DE ELIMINAR 21-FEBRERO-2018
+                                                ''VERIFICA SI TIENE DESCUENTO (AMORTIZACION)
+                                                'If TxtDescuento.Text.ToDouble > 0 Then
+                                                '    DescuentoConIVA = TxtDescuento.Text.ToDecimal * 1.16D
 
-                                            ''[IPP] COMENTADO A MIRAS DE ELIMINAR 21-FEBRERO-2018
-                                            ''VERIFICA SI TIENE DESCUENTO (AMORTIZACION)
-                                            'If TxtDescuento.Text.ToDouble > 0 Then
-                                            '    DescuentoConIVA = TxtDescuento.Text.ToDecimal * 1.16D
+                                                '    'Valida que el descuento con iva cuadre en los totales
+                                                '    If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDecimal)) < 0.02 Then
+                                                '        DescuentoConIVA = Importe - TxtTotal.Text.ToDecimal
+                                                '    ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDecimal) Then
+                                                '        ErrorACMEnsaje.Append(" - Valida que el descuento con iva cuadre en los totales  ")
+                                                '        ErrorAC = True
+                                                '    End If
 
-                                            '    'Valida que el descuento con iva cuadre en los totales
-                                            '    If Math.Abs(DescuentoConIVA - (Importe - TxtTotal.Text.ToDecimal)) < 0.02 Then
-                                            '        DescuentoConIVA = Importe - TxtTotal.Text.ToDecimal
-                                            '    ElseIf DescuentoConIVA <> (Importe - TxtTotal.Text.ToDecimal) Then
-                                            '        ErrorACMEnsaje.Append(" - Valida que el descuento con iva cuadre en los totales  ")
-                                            '        ErrorAC = True
-                                            '    End If
-
-                                            '    'actualizo el idcuenta del presupuesto
-                                            '    If ObjContaAC.AddMovimiento(IdPoliza, tIdContaProveedor, True, MultiplicadorNC * (Importe - DescuentoConIVA), "", ConceptoRenglon, 0, Fecha, "") Then
-                                            '        'agrego a la cuenta contable anticipos
-                                            '        If Not ObjContaAC.AddMovimiento(IdPoliza, CtaProveedorAnticipos, True, MultiplicadorNC * DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
-                                            '            ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto   ObjContaAC.AddMovimiento   1")
-                                            '            ErrorAC = True
-                                            '        End If
-                                            '    Else
-                                            '        ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto   ObjContaAC.AddMovimiento   2")
-                                            '        ErrorAC = True
-                                            '    End If
-                                            'Else
-                                            '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
-                                                ConceptoRenglon = String.Format("GD Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
-                                                If Not ObjContaAC.AddMovimiento(IdPoliza, CtaProveedorRetISR, True, MultiplicadorNC * tRetISR, "", ConceptoRenglon, 0, Fecha, "") Then
-                                                    ErrorACMEnsaje.Append(" RetISR > 0  ObjContaAC.AddMovimiento")
+                                                '    'actualizo el idcuenta del presupuesto
+                                                '    If ObjContaAC.AddMovimiento(IdPoliza, tIdContaProveedor, True, MultiplicadorNC * (Importe - DescuentoConIVA), "", ConceptoRenglon, 0, Fecha, "") Then
+                                                '        'agrego a la cuenta contable anticipos
+                                                '        If Not ObjContaAC.AddMovimiento(IdPoliza, CtaProveedorAnticipos, True, MultiplicadorNC * DescuentoConIVA, "", ConceptoRenglon, 0, Fecha, "") Then
+                                                '            ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto   ObjContaAC.AddMovimiento   1")
+                                                '            ErrorAC = True
+                                                '        End If
+                                                '    Else
+                                                '        ErrorACMEnsaje.Append(" - actualizo el idcuenta del presupuesto   ObjContaAC.AddMovimiento   2")
+                                                '        ErrorAC = True
+                                                '    End If
+                                                'Else
+                                                '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
+                                                    ConceptoRenglon = String.Format("GD Fact: {0}-{1}  {2}", TxtSerie.Text.Trim, TxtFolio.Text.Trim, DdlProveedor.SelectedItem.Text)
+                                                    If Not ObjContaAC.AddMovimiento(IdPoliza, CtaProveedorRetISR, True, MultiplicadorNC * tRetISR, "", ConceptoRenglon, 0, Fecha, "") Then
+                                                        ErrorACMEnsaje.Append(" RetISR > 0  ObjContaAC.AddMovimiento")
+                                                        ErrorAC = True
+                                                    End If
+                                                End If
+
+                                                'TERMINA: PRUEBA AGRUPACION CONCEPTOS
+
+                                                'registrar amortizar anticipos
                                             End If
 
-                                            'TERMINA: PRUEBA AGRUPACION CONCEPTOS
-
-                                            'registrar amortizar anticipos
+                                        Else
+                                            ErrorACMEnsaje.Append(" - Id Poliza = 0 ")
+                                            ErrorAC = True
                                         End If
-
                                     Else
-                                        ErrorACMEnsaje.Append(" - Id Poliza = 0 ")
+                                        TieneError = True
+                                        ErrorACMEnsaje.Append("- TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0")
                                         ErrorAC = True
                                     End If
-                                Else
-                                    TieneError = True
-                                    ErrorACMEnsaje.Append("- TotalPorDevengar <= TxtTotal.Text.ToDouble And TotalPorDevengar > 0")
-                                    ErrorAC = True
                                 End If
-                            End If
 
-                            If Not ErrorAC Then
+                                If Not ErrorAC Then
 
-                                ''EMPIEZA: INSERTA DETALLES DE LA COMPRA
-                                Dim indiceTR = 0
-                                Dim Cont As Integer = 0
-                                For Each Row As DataRow In TmpDT.Rows
-                                    Dim TipoRecepcion As Integer = -1
+                                    ''EMPIEZA: INSERTA DETALLES DE LA COMPRA
+                                    Dim indiceTR = 0
+                                    Dim Cont As Integer = 0
+                                    For Each Row As DataRow In TmpDT.Rows
+                                        Dim TipoRecepcion As Integer = -1
 
 
-                                    ''INVENTARIOS
-                                    If GvInv.Rows.Count > indiceTR Then
-                                        If GvInv.Rows(indiceTR).FCCheckBox("cbInv").Checked = True And GvInv.Rows(indiceTR).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then
-                                            TipoRecepcion = 1
-                                        ElseIf GvInv.Rows(indiceTR).FCCheckBox("cbInv").Checked = True And GvInv.Rows(indiceTR).FCDropDownList("DdlRecibirInv").SelectedValue = "0" Then
-                                            TipoRecepcion = 2
-                                        End If
-                                    End If
-
-                                    Dim CvePersonal = -1
-                                    Dim Referencia = ""
-
-                                    If GvPersonal.Rows.Count > Cont Then
-                                        CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero
-                                        Referencia = GvPersonal.Rows(Cont).FCTextBox("TxtReferencia").Text
-                                    End If
-                                    Cont = Cont + 1
-
-                                    'Si es AF-INSUMO se guarda CveAF en CompraDetalle
-                                    Dim CveAF = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1)
-
-                                    'Si es AF-COMPRA se guarda CveAF en la Columna CveAFCompra
-                                    Dim CveAFC = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1)
-
-                                    'AGREGA COMPRA DETALLE
-                                    If Not ObjCompras.AddCompraDetalle(CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF,
-                                                                        Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, Row("IVA").ToString.ToDouble, Row("Total").ToString.ToDouble, Row("Descuento").ToString.ToDouble,
-                                                                        Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero,
-                                                                        AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal,
-                                                                        CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal,
-                                                                        RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble,
-                                                                        IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble,
-                                                                        IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If(Row("NoDeducible").ToString = "True" AndAlso EsNoDeducible, True, False)) Then
-
-                                        ErrorDetalles = True
-                                        Exit For
-                                    Else
-
-                                        If Row("EntregaDirecta").ToString.ToEntero > 0 Then
-                                            EntregaDirecta = True
+                                        ''INVENTARIOS
+                                        If GvInv.Rows.Count > indiceTR Then
+                                            If GvInv.Rows(indiceTR).FCCheckBox("cbInv").Checked = True And GvInv.Rows(indiceTR).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then
+                                                TipoRecepcion = 1
+                                            ElseIf GvInv.Rows(indiceTR).FCCheckBox("cbInv").Checked = True And GvInv.Rows(indiceTR).FCDropDownList("DdlRecibirInv").SelectedValue = "0" Then
+                                                TipoRecepcion = 2
+                                            End If
                                         End If
 
-                                        Dim TmpDr As DataRow = TmpDT.Select($"Consec = {Row("Consec").ToString}")(0)
-                                        TmpDr("CveCompraDetalle") = ObjCompras.CveCompraDetalle
+                                        Dim CvePersonal = -1
+                                        Dim Referencia = ""
 
-                                        ' Si no es un movimiento de almacen va a tronar
-                                        Try
-                                            Dim InvDr As DataRow = DtInv.Select($"Consec = {Row("Consec").ToString}")(0)
-                                            InvDr("CveCompraDetalle") = ObjCompras.CveCompraDetalle
-                                        Catch ex As Exception
-                                        End Try
+                                        If GvPersonal.Rows.Count > Cont Then
+                                            CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero
+                                            Referencia = GvPersonal.Rows(Cont).FCTextBox("TxtReferencia").Text
+                                        End If
+                                        Cont = Cont + 1
 
-                                    End If
+                                        'Si es AF-INSUMO se guarda CveAF en CompraDetalle
+                                        Dim CveAF = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 1, Row("CveActivoFijo").ToString.ToEntero, -1)
 
-                                    'Vincula Vales
-                                    If IdVale.Count > 0 Then
-                                        For Each cve In IdVale
-                                            If Not ObjAF.UpdateValeCombustible(cve, CveCompra, -1, "", -1, -1, -1, UsuarioActual.CveEmpresa) Then
-                                                ErrorAF = True
+                                        'Si es AF-COMPRA se guarda CveAF en la Columna CveAFCompra
+                                        Dim CveAFC = If(Row("CveActivoFijo").ToString.ToEntero > 0 AndAlso Row("TipoAF").ToString.ToEntero = 2, Row("CveActivoFijo").ToString.ToEntero, -1)
+
+                                        'AGREGA COMPRA DETALLE
+                                        If Not ObjCompras.AddCompraDetalle(CveCompra, Row("CveUM").ToString.ToEntero, Row("CvePS").ToString.ToEntero, Row("CveSubProyecto").ToString.ToEntero, -1, CveAF,
+                                                                            Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, Row("IVA").ToString.ToDouble, Row("Total").ToString.ToDouble, Row("Descuento").ToString.ToDouble,
+                                                                            Row("Obs").ToString, Row("CveOrdenCompraDetalle").ToString.ToEntero, TipoRecepcion, Row("CveContrato").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero,
+                                                                            AplicaCostoIndirecto:=Row("AplicaCostoIndirecto").ToString.ToEntero, EstatusAlmacen:=Row("EntregaDirecta").ToString.ToEntero, CvePersonal:=CvePersonal,
+                                                                            CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal,
+                                                                            RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble,
+                                                                            IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble,
+                                                                            IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If(Row("NoDeducible").ToString = "True" AndAlso EsNoDeducible, True, False)) Then
+
+                                            ErrorDetalles = True
+                                            Exit For
+                                        Else
+
+                                            If Row("EntregaDirecta").ToString.ToEntero > 0 Then
+                                                EntregaDirecta = True
+                                            End If
+
+                                            Dim TmpDr As DataRow = TmpDT.Select($"Consec = {Row("Consec").ToString}")(0)
+                                            TmpDr("CveCompraDetalle") = ObjCompras.CveCompraDetalle
+
+                                            ' Si no es un movimiento de almacen va a tronar
+                                            Try
+                                                Dim InvDr As DataRow = DtInv.Select($"Consec = {Row("Consec").ToString}")(0)
+                                                InvDr("CveCompraDetalle") = ObjCompras.CveCompraDetalle
+                                            Catch ex As Exception
+                                            End Try
+
+                                        End If
+
+                                        'Vincula Vales
+                                        If IdVale.Count > 0 Then
+                                            For Each cve In IdVale
+                                                If Not ObjAF.UpdateValeCombustible(cve, CveCompra, -1, "", -1, -1, -1, UsuarioActual.CveEmpresa) Then
+                                                    ErrorAF = True
+                                                    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
+                                            If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, ObjCompras.CveCompraDetalle, Row("TipoAF").ToString.ToEntero, Row("Total").ToString.ToDouble, TxtFecha.Text.Trim.ToDate) Then
+                                                ErrorDetalles = True
+                                                Exit For
+                                            End If
+                                        End If
+
+                                        'ACTUALIZAR PRODUCTO/SERVICIO SAT
+                                        If Version = "3.3" Then
+                                            If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario) Then
+                                                ErrorSATPS = True
+                                            End If
+                                        End If
+
+                                        indiceTR += 1
+                                    Next
+                                    ''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
+                                        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.ToDouble) Then
+                                                ErrorSaldosInvComp = True
                                                 Exit For
                                             End If
                                         Next
-                                    Else
+
+                                        '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) 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
 
-                                    'AGREGA AF COMPRA - Cuando es Compra se guarda CveCompraDetalle en AF
-                                    If Row("TipoAF").ToString.ToEntero = 2 Then
-                                        If Not ObjAF.UpdateActivosFijosCompra(Row("CveActivoFijo").ToString.ToEntero, ObjCompras.CveCompraDetalle, Row("TipoAF").ToString.ToEntero, Row("Total").ToString.ToDouble, TxtFecha.Text.Trim.ToDate) Then
-                                            ErrorDetalles = True
-                                            Exit For
-                                        End If
-                                    End If
+                                            ''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
 
-                                    'ACTUALIZAR PRODUCTO/SERVICIO SAT
-                                    If Version = "3.3" Then
-                                        If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario) Then
-                                            ErrorSATPS = True
-                                        End If
-                                    End If
+                                            ''ALMACEN CONSIGNACION
+                                            If CveConsignacion > 0 Then
 
-                                    indiceTR += 1
-                                Next
-                                ''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
-                                    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.ToDouble) Then
-                                            ErrorSaldosInvComp = True
-                                            Exit For
-                                        End If
-                                    Next
-
-                                    '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) 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
-
-                                        ''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
-
-                                        ''ALMACEN CONSIGNACION
-                                        If CveConsignacion > 0 Then
-
-                                            'actualizamos cvecompraconsignacion
-                                            For Each gvr As GridViewRow In GvInv.Rows
-                                                If gvr.FCCheckBox("cbinv").Checked AndAlso gvr.FCHiddenField("HdnCveConsignacion").Value.ToEntero > 0 Then
-                                                    If Not ObjInventario.UpdateConsignacionesCompra(CveCompra, gvr.FCHiddenField("HdnCveConsignacion").Value.ToEntero, gvr.FCHiddenField("HdnCveAlmacen").Value.ToEntero, gvr.FCHiddenField("HdnCvePS").Value.ToEntero, gvr.DataKey("Cantidad").ToDouble, UsuarioActual.CveEmpresa) Then
-                                                        ErrorMovInv = True
-                                                        Exit For
+                                                'actualizamos cvecompraconsignacion
+                                                For Each gvr As GridViewRow In GvInv.Rows
+                                                    If gvr.FCCheckBox("cbinv").Checked AndAlso gvr.FCHiddenField("HdnCveConsignacion").Value.ToEntero > 0 Then
+                                                        If Not ObjInventario.UpdateConsignacionesCompra(CveCompra, gvr.FCHiddenField("HdnCveConsignacion").Value.ToEntero, gvr.FCHiddenField("HdnCveAlmacen").Value.ToEntero, gvr.FCHiddenField("HdnCvePS").Value.ToEntero, gvr.DataKey("Cantidad").ToDouble, UsuarioActual.CveEmpresa) Then
+                                                            ErrorMovInv = True
+                                                            Exit For
+                                                        End If
                                                     End If
+                                                Next
+
+                                                If Not ErrorMovInv Then
+
+                                                    Dim x As Integer = 0
+                                                    For Each dr As DataRow In DtInv.Rows
+                                                        If GvInv.Rows(x).FCCheckBox("cbInv").Checked And GvInv.Rows(x).FCTextBox("TbCantidad").Text.ToDouble > 0 Then
+
+                                                            Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dr("Consec").ToString.ToEntero}")(0) 'Charlie
+                                                            TmpDr("CveAlmacen") = GvInv.Rows(x).FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero 'Charlie
+
+                                                            dr("CveAlmacen") = GvInv.Rows(x).FCDropDownList("ddlealmacen").SelectedValue.ToEntero
+                                                            dr("Cantidad") = GvInv.Rows(x).FCTextBox("TbCantidad").Text.ToDouble
+                                                        Else
+                                                            Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dr("Consec").ToString.ToEntero}")(0) 'Charlie
+                                                            TmpDr("CveAlmacen") = 0 'Charlie
+
+                                                            dr("CveAlmacen") = 0
+                                                        End If
+                                                        x = x + 1
+                                                    Next
+
+                                                    Dim cvemovimientosalida = 0
+                                                    Dim cvemovimientoentrada = 0
+                                                    Dim cvemovimientosalidagasto = 0
+                                                    Dim folio = 0
+                                                    Dim fecha As Date = TxtFecha.Text.ToDate
+                                                    Dim indice = 0
+                                                    Dim importeconcepto = 0.0
+
+                                                    Dim listalmacenes = (From cvealmacen In DtInv.AsEnumerable() Where cvealmacen.Field(Of Integer)("cvealmacen") > 0 Select cvealmacen.Field(Of Integer)("cvealmacen")).Distinct().ToList
+
+                                                    For Each tcvealmacen As Integer In listalmacenes
+                                                        If GvInv.Rows(indice).FCDropDownList("ddlrecibirinv").SelectedValue = "1" Then
+                                                            Continue For
+                                                        End If
+                                                        indice += 1
+
+
+                                                        ''agregamos la salida de consignacion
+                                                        'folio = objinventario.getfoliosiguiente(3, usuarioactual.cveempresa)
+                                                        'cvemovimientosalida = objinventario.addmovimiento(cvealmacenconsignacion, 3, ddlmoneda.selectedvalue.toentero, fecha, folio, usuarioactual.cveusuario, usuarioactual.cveempresa, cvecompra, -1, -1, -1)
+                                                        'if cvemovimientosalida <= 0 then
+                                                        '    errormovinv = true
+                                                        '    exit for
+                                                        'else
+                                                        '    for each dr as datarow in dtinv.rows
+                                                        '        if dr("cvealmacen").tostring.toentero = tcvealmacen then
+                                                        '            if not objinventario.addmovimientodetalle(cvemovimientosalida, dr("cantidad").tostring.todouble, ddlum.selectedvalue.toentero, dr("cveps").tostring.toentero, 0, -1) then
+                                                        '                errormovinv = true
+                                                        '                exit for
+
+                                                        '            end if
+                                                        '        end if
+                                                        '    next
+                                                        'end if
+
+
+                                                        'agregamos la entrada
+                                                        If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
+
+                                                        folio = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
+                                                        cvemovimientoentrada = ObjInventario.AddMovimiento(tcvealmacen, 2, 1, fecha, folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar))
+                                                        If cvemovimientoentrada <= 0 Then
+                                                            ErrorMovInv = True
+                                                            Exit For
+                                                        Else
+                                                            CveMovimientoInventario = cvemovimientoentrada
+                                                            ListaMovimientosAlmacen.Add(CveMovimientoInventario)
+
+                                                            For Each dr As DataRow In DtInv.Rows
+                                                                If dr("cvealmacen").ToString.ToEntero = tcvealmacen Then
+
+                                                                    importeconcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, dr("pu").ToString.ToDouble, dr("pu").ToString.ToDouble * TipoCambioGuardar)
+                                                                    If Not ObjInventario.AddMovimientoDetalle(cvemovimientoentrada, dr("cantidad").ToString.ToDouble, dr("cveum").ToString.ToEntero, dr("cveps").ToString.ToEntero, importeconcepto, -1, PUTC:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, dr("pu").ToString.ToDouble), CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero) Then
+
+                                                                        ErrorMovInv = True
+                                                                        Exit For
+                                                                    End If
+                                                                End If
+                                                            Next
+
+                                                        End If
+
+                                                        'agregamos la salida gasto
+                                                        folio = ObjInventario.GetFolioSiguiente(3, UsuarioActual.CveEmpresa)
+                                                        cvemovimientosalidagasto = ObjInventario.AddMovimiento(tcvealmacen, 3, DdlMoneda.SelectedValue.ToEntero, fecha.AddSeconds(1), folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1)
+                                                        If cvemovimientosalidagasto <= 0 Then
+                                                            ErrorMovInv = True
+                                                            Exit For
+                                                        Else
+                                                            If ObjInventario.GetMovimientosDetalle(cvemovimientoentrada, UsuarioActual.CveEmpresa) Then
+                                                                For Each dr As DataRow In ObjInventario.DtResultados.Rows
+                                                                    If Not ObjInventario.AddMovimientoDetalle(cvemovimientosalidagasto, dr("cantidad").ToString.ToDouble, dr("cveum").ToString.ToEntero, dr("cveps").ToString.ToEntero, 0, dr("cveaf").ToString.ToEntero, CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero) Then
+                                                                        ErrorMovInv = True
+                                                                        Exit For
+                                                                    End If
+                                                                Next
+                                                            End If
+                                                        End If
+
+                                                    Next
+
                                                 End If
-                                            Next
 
-                                            If Not ErrorMovInv Then
+                                                ''ALMACEN NORMAL
+                                            Else
 
+                                                'OBTIENE ALMACENES
                                                 Dim x As Integer = 0
-                                                For Each dr As DataRow In DtInv.Rows
-                                                    If GvInv.Rows(x).FCCheckBox("cbInv").Checked And GvInv.Rows(x).FCTextBox("TbCantidad").Text.ToDouble > 0 Then
+                                                For Each Dr As DataRow In DtInv.Rows
+                                                    If GvInv.Rows(x).FCCheckBox("cbInv").Checked And GvInv.Rows(x).FCTextBox("TbCantidad").Text.ToDecimal > 0 Then
 
-                                                        Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dr("Consec").ToString.ToEntero}")(0) 'Charlie
-                                                        TmpDr("CveAlmacen") = GvInv.Rows(x).FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero 'Charlie
+                                                        Dim TmpDr As DataRow = TmpDT.Select($"Consec = {Dr("Consec").ToString.ToEntero}")(0)
+                                                        TmpDr("CveAlmacen") = GvInv.Rows(x).FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero
 
-                                                        dr("CveAlmacen") = GvInv.Rows(x).FCDropDownList("ddlealmacen").SelectedValue.ToEntero
-                                                        dr("Cantidad") = GvInv.Rows(x).FCTextBox("TbCantidad").Text.ToDouble
-                                                    Else
-                                                        Dim TmpDr As DataRow = TmpDT.Select($"Consec = {dr("Consec").ToString.ToEntero}")(0) 'Charlie
-                                                        TmpDr("CveAlmacen") = 0 'Charlie
+                                                        Dr("CveAlmacen") = GvInv.Rows(x).FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero
+                                                        Dr("Cantidad") = GvInv.Rows(x).FCTextBox("TbCantidad").Text.ToDouble
 
-                                                        dr("CveAlmacen") = 0
+                                                    Else 'limpio el valor para que no truene en linq mas abajo
+
+                                                        Dim TmpDr As DataRow = TmpDT.Select($"Consec = {Dr("Consec").ToString.ToEntero}")(0)
+                                                        TmpDr("CveAlmacen") = 0
+
+                                                        Dr("CveAlmacen") = 0
                                                     End If
                                                     x = x + 1
                                                 Next
 
-                                                Dim cvemovimientosalida = 0
-                                                Dim cvemovimientoentrada = 0
-                                                Dim cvemovimientosalidagasto = 0
-                                                Dim folio = 0
-                                                Dim fecha As Date = TxtFecha.Text.ToDate
+                                                Dim i As Integer = 0
+                                                Dim ListAlmacenes = (From CveAlmacen In DtInv.AsEnumerable() Where CveAlmacen.Field(Of Integer)("CveAlmacen") > 0 Select CveAlmacen.Field(Of Integer)("CveAlmacen")).Distinct().ToList
                                                 Dim indice = 0
-                                                Dim importeconcepto = 0.0
+                                                Dim ImporteConcepto = 0.0
 
-                                                Dim listalmacenes = (From cvealmacen In DtInv.AsEnumerable() Where cvealmacen.Field(Of Integer)("cvealmacen") > 0 Select cvealmacen.Field(Of Integer)("cvealmacen")).Distinct().ToList
-
-                                                For Each tcvealmacen As Integer In listalmacenes
-                                                    If GvInv.Rows(indice).FCDropDownList("ddlrecibirinv").SelectedValue = "1" Then
+                                                For Each tCveAlmacen As Integer In ListAlmacenes
+                                                    If GvInv.Rows(indice).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then
                                                         Continue For
                                                     End If
                                                     indice += 1
 
-
-                                                    ''agregamos la salida de consignacion
-                                                    'folio = objinventario.getfoliosiguiente(3, usuarioactual.cveempresa)
-                                                    'cvemovimientosalida = objinventario.addmovimiento(cvealmacenconsignacion, 3, ddlmoneda.selectedvalue.toentero, fecha, folio, usuarioactual.cveusuario, usuarioactual.cveempresa, cvecompra, -1, -1, -1)
-                                                    'if cvemovimientosalida <= 0 then
-                                                    '    errormovinv = true
-                                                    '    exit for
-                                                    'else
-                                                    '    for each dr as datarow in dtinv.rows
-                                                    '        if dr("cvealmacen").tostring.toentero = tcvealmacen then
-                                                    '            if not objinventario.addmovimientodetalle(cvemovimientosalida, dr("cantidad").tostring.todouble, ddlum.selectedvalue.toentero, dr("cveps").tostring.toentero, 0, -1) then
-                                                    '                errormovinv = true
-                                                    '                exit for
-
-                                                    '            end if
-                                                    '        end if
-                                                    '    next
-                                                    'end if
-
-
-                                                    'agregamos la entrada
+                                                    Dim fecha As Date = TxtFecha.Text.ToDate
                                                     If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
 
-                                                    folio = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa)
-                                                    cvemovimientoentrada = ObjInventario.AddMovimiento(tcvealmacen, 2, 1, fecha, folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar))
-                                                    If cvemovimientoentrada <= 0 Then
+                                                    CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, 2, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar))
+
+                                                    If CveMovimientoInventario <= 0 Then
                                                         ErrorMovInv = True
-                                                        Exit For
                                                     Else
-                                                        CveMovimientoInventario = cvemovimientoentrada
+
+                                                        Dim DtDetalle As New DataTable
+                                                        Dim DtEquivalencias As DataTable
+                                                        Dim CveProducto As Integer
+                                                        Dim CantidadInv As Double
+                                                        Dim PUInv As Double
+                                                        Dim CveUnidad As Integer
+                                                        Dim CostoIndirecto As Double
+
                                                         ListaMovimientosAlmacen.Add(CveMovimientoInventario)
 
-                                                        For Each dr As DataRow In DtInv.Rows
-                                                            If dr("cvealmacen").ToString.ToEntero = tcvealmacen Then
 
-                                                                importeconcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, dr("pu").ToString.ToDouble, dr("pu").ToString.ToDouble * TipoCambioGuardar)
-                                                                If Not ObjInventario.AddMovimientoDetalle(cvemovimientoentrada, dr("cantidad").ToString.ToDouble, dr("cveum").ToString.ToEntero, dr("cveps").ToString.ToEntero, importeconcepto, -1, PUTC:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, dr("pu").ToString.ToDouble), CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero) Then
+                                                        For Each Dr As DataRow In DtInv.Rows
 
-                                                                    ErrorMovInv = True
-                                                                    Exit For
+                                                            CveProducto = Dr("CvePS").ToString.ToEntero
+                                                            CveUnidad = Dr("CveUM").ToString.ToEntero
+                                                            CantidadInv = Dr("Cantidad").ToString.ToDouble
+                                                            PUInv = Dr("PU").ToString.ToDouble
+                                                            CostoIndirecto = Dr("CostoIndirectoAlmacen").ToString.ToDouble
+
+                                                            If Dr("CveMetodoInventario").ToString.ToEntero = 5 Then
+                                                                'SI FUE POR SERIE LOTE
+                                                                DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("CvePS = {0}", Dr("CvePS")))
+                                                                If DtDetalle.Rows.Count > 0 Then
+                                                                    For Each drr As DataRow In DtDetalle.Rows
+                                                                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, -1, SerieLote:=drr("Serie").ToString, FechaCaducidad:=drr("FechaCaducidad").ToString.ToDate, CostoIndirecto:=Dr("CostoIndirectoAlmacen").ToString.ToDouble, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
+                                                                            ErrorMovInv = True
+                                                                            Exit For
+                                                                        End If
+
+                                                                    Next
                                                                 End If
-                                                            End If
-                                                        Next
+                                                            Else
 
-                                                    End If
+                                                                'UNIDAD BASE - EQUIVALENCIAS - INVENTARIO
+                                                                If UsuarioActual.CveEmpresa = 1 Then
+                                                                    DtEquivalencias = New DataTable
+                                                                    DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1)
+                                                                    Dim CveUnidadBase As Integer = DtEquivalencias.FiltroPrimeroValor("CveUM", "UnidadBase = 'True'").ToEntero
+                                                                    Dim drUMBase As DataRow = DtEquivalencias.FiltroPrimero("UnidadBase = 'True'")
 
-                                                    'agregamos la salida gasto
-                                                    folio = ObjInventario.GetFolioSiguiente(3, UsuarioActual.CveEmpresa)
-                                                    cvemovimientosalidagasto = ObjInventario.AddMovimiento(tcvealmacen, 3, DdlMoneda.SelectedValue.ToEntero, fecha.AddSeconds(1), folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1)
-                                                    If cvemovimientosalidagasto <= 0 Then
-                                                        ErrorMovInv = True
-                                                        Exit For
-                                                    Else
-                                                        If ObjInventario.GetMovimientosDetalle(cvemovimientoentrada, UsuarioActual.CveEmpresa) Then
-                                                            For Each dr As DataRow In ObjInventario.DtResultados.Rows
-                                                                If Not ObjInventario.AddMovimientoDetalle(cvemovimientosalidagasto, dr("cantidad").ToString.ToDouble, dr("cveum").ToString.ToEntero, dr("cveps").ToString.ToEntero, 0, dr("cveaf").ToString.ToEntero, CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero) Then
-                                                                    ErrorMovInv = True
-                                                                    Exit For
+                                                                    'SI LA UNIDAD ACTUAL NO ES LA BASE SACA PROPORCION (EQUIVALENTE)
+                                                                    If CveUnidadBase <> CveUnidad Then
+                                                                        '                   LO QUE PUSE                               LO QUE VALE UNIDAD BASE                                                                 LO QUE VALE UNIDAD SELECCIONADA
+                                                                        CantidadInv = Dr("Cantidad").ToString.ToDouble * drUMBase("Cantidad").ToString.ToDouble / DtEquivalencias.FiltraParametros(String.Format("CveUM = {0}", CveUnidad)).Rows(0)("Cantidad").ToString.ToDouble
+                                                                        PUInv = PUInv * Dr("Cantidad").ToString.ToDouble / CantidadInv
+                                                                        CostoIndirecto = CostoIndirecto * Dr("Cantidad").ToString.ToDouble / CantidadInv
+                                                                        CveUnidad = CveUnidadBase
+                                                                    End If
                                                                 End If
-                                                            Next
-                                                        End If
-                                                    End If
 
-                                                Next
-
-                                            End If
-
-                                            ''ALMACEN NORMAL
-                                        Else
-
-                                            'OBTIENE ALMACENES
-                                            Dim x As Integer = 0
-                                            For Each Dr As DataRow In DtInv.Rows
-                                                If GvInv.Rows(x).FCCheckBox("cbInv").Checked And GvInv.Rows(x).FCTextBox("TbCantidad").Text.ToDecimal > 0 Then
-
-                                                    Dim TmpDr As DataRow = TmpDT.Select($"Consec = {Dr("Consec").ToString.ToEntero}")(0)
-                                                    TmpDr("CveAlmacen") = GvInv.Rows(x).FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero
-
-                                                    Dr("CveAlmacen") = GvInv.Rows(x).FCDropDownList("ddlEAlmacen").SelectedValue.ToEntero
-                                                    Dr("Cantidad") = GvInv.Rows(x).FCTextBox("TbCantidad").Text.ToDouble
-
-                                                Else 'limpio el valor para que no truene en linq mas abajo
-
-                                                    Dim TmpDr As DataRow = TmpDT.Select($"Consec = {Dr("Consec").ToString.ToEntero}")(0)
-                                                    TmpDr("CveAlmacen") = 0
-
-                                                    Dr("CveAlmacen") = 0
-                                                End If
-                                                x = x + 1
-                                            Next
-
-                                            Dim i As Integer = 0
-                                            Dim ListAlmacenes = (From CveAlmacen In DtInv.AsEnumerable() Where CveAlmacen.Field(Of Integer)("CveAlmacen") > 0 Select CveAlmacen.Field(Of Integer)("CveAlmacen")).Distinct().ToList
-                                            Dim indice = 0
-                                            Dim ImporteConcepto = 0.0
-
-                                            For Each tCveAlmacen As Integer In ListAlmacenes
-                                                If GvInv.Rows(indice).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then
-                                                    Continue For
-                                                End If
-                                                indice += 1
-
-                                                Dim fecha As Date = TxtFecha.Text.ToDate
-                                                If Not UsuarioActual.Empresa.UsaAC Then fecha = Now
-
-                                                CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, 2, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar))
-
-                                                If CveMovimientoInventario <= 0 Then
-                                                    ErrorMovInv = True
-                                                Else
-
-                                                    Dim DtDetalle As New DataTable
-                                                    Dim DtEquivalencias As DataTable
-                                                    Dim CveProducto As Integer
-                                                    Dim CantidadInv As Double
-                                                    Dim PUInv As Double
-                                                    Dim CveUnidad As Integer
-                                                    Dim CostoIndirecto As Double
-
-                                                    ListaMovimientosAlmacen.Add(CveMovimientoInventario)
-
-
-                                                    For Each Dr As DataRow In DtInv.Rows
-
-                                                        CveProducto = Dr("CvePS").ToString.ToEntero
-                                                        CveUnidad = Dr("CveUM").ToString.ToEntero
-                                                        CantidadInv = Dr("Cantidad").ToString.ToDouble
-                                                        PUInv = Dr("PU").ToString.ToDouble
-                                                        CostoIndirecto = Dr("CostoIndirectoAlmacen").ToString.ToDouble
-
-                                                        If Dr("CveMetodoInventario").ToString.ToEntero = 5 Then
-                                                            'SI FUE POR SERIE LOTE
-                                                            DtDetalle = DtDatosDetalle.FiltraParametros(String.Format("CvePS = {0}", Dr("CvePS")))
-                                                            If DtDetalle.Rows.Count > 0 Then
-                                                                For Each drr As DataRow In DtDetalle.Rows
-                                                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, 1, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDouble, -1, SerieLote:=drr("Serie").ToString, FechaCaducidad:=drr("FechaCaducidad").ToString.ToDate, CostoIndirecto:=Dr("CostoIndirectoAlmacen").ToString.ToDouble, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
+                                                                'si no es por serie lote
+                                                                ImporteConcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, PUInv, PUInv * TipoCambioGuardar)
+                                                                ImporteConcepto = If(UsuarioActual.Empresa.UsaAC, ImporteConcepto * IVA, ImporteConcepto)
+                                                                If Dr("CveAlmacen").ToString.ToEntero = tCveAlmacen Then
+                                                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, CantidadInv, CveUnidad, Dr("CvePS").ToString.ToEntero, ImporteConcepto, -1, PUTC:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, Dr("PU").ToString.ToDouble), CostoIndirecto:=CostoIndirecto, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
                                                                         ErrorMovInv = True
                                                                         Exit For
                                                                     End If
-
-                                                                Next
-                                                            End If
-                                                        Else
-
-                                                            'UNIDAD BASE - EQUIVALENCIAS - INVENTARIO
-                                                            If UsuarioActual.CveEmpresa = 1 Then
-                                                                DtEquivalencias = New DataTable
-                                                                DtEquivalencias = GlobalDTProductosServiciosEquivalencias(CveProducto, -1)
-                                                                Dim CveUnidadBase As Integer = DtEquivalencias.FiltroPrimeroValor("CveUM", "UnidadBase = 'True'").ToEntero
-                                                                Dim drUMBase As DataRow = DtEquivalencias.FiltroPrimero("UnidadBase = 'True'")
-
-                                                                'SI LA UNIDAD ACTUAL NO ES LA BASE SACA PROPORCION (EQUIVALENTE)
-                                                                If CveUnidadBase <> CveUnidad Then
-                                                                    '                   LO QUE PUSE                               LO QUE VALE UNIDAD BASE                                                                 LO QUE VALE UNIDAD SELECCIONADA
-                                                                    CantidadInv = Dr("Cantidad").ToString.ToDouble * drUMBase("Cantidad").ToString.ToDouble / DtEquivalencias.FiltraParametros(String.Format("CveUM = {0}", CveUnidad)).Rows(0)("Cantidad").ToString.ToDouble
-                                                                    PUInv = PUInv * Dr("Cantidad").ToString.ToDouble / CantidadInv
-                                                                    CostoIndirecto = CostoIndirecto * Dr("Cantidad").ToString.ToDouble / CantidadInv
-                                                                    CveUnidad = CveUnidadBase
                                                                 End If
+
                                                             End If
 
-                                                            'si no es por serie lote
-                                                            ImporteConcepto = If(DdlMoneda.SelectedValue.ToEntero = 1, PUInv, PUInv * TipoCambioGuardar)
-                                                            ImporteConcepto = If(UsuarioActual.Empresa.UsaAC, ImporteConcepto * IVA, ImporteConcepto)
-                                                            If Dr("CveAlmacen").ToString.ToEntero = tCveAlmacen Then
-                                                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoInventario, CantidadInv, CveUnidad, Dr("CvePS").ToString.ToEntero, ImporteConcepto, -1, PUTC:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, Dr("PU").ToString.ToDouble), CostoIndirecto:=CostoIndirecto, CveCompraDetalle:=Dr("CveCompraDetalle").ToString.ToEntero, CveOrdenCompraDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero) Then
-                                                                    ErrorMovInv = True
-                                                                    Exit For
-                                                                End If
-                                                            End If
 
-                                                        End If
+                                                            i = i + 1
+                                                        Next
+                                                    End If
+                                                Next
+
+                                            End If
 
 
-                                                        i = i + 1
-                                                    Next
-                                                End If
-                                            Next
+
+                                            If AplicarCostoIndirecto(ObjInventario, ObjCompras) Then
+                                                ErrorMovInv = True
+                                            End If
+
+                                            'Else
+                                            '    Alert("El tipo de cambio no esta actualizado. Por favor comuniquese con un asistente SIG.", TipoMensaje.MsgError)
+                                            '    ErrorMovInv = True
+                                            'End If
 
                                         End If
 
+                                        '***************************************************    P R I M E R A    P A R T E   C O M P R A S   **************************************************************************************************************************************************************************************************************************************************************************************************
+                                        'P R E  P O L I Z A S
 
+                                        Dim CveConceptoAfectacion As Integer = 5 'Proveedores
+                                        Dim CveConceptoAfectacionContado As Integer = 17 'Pago Proveedores
+                                        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
 
-                                        If AplicarCostoIndirecto(ObjInventario, ObjCompras) Then
-                                            ErrorMovInv = True
-                                        End If
+                                        'Afectable con el tabpanel Contable
+                                        Dim CveProveedorLocal As Integer
+                                        Dim CveProveedorConcepto As Integer
+                                        Dim CveAcreedor As Integer
+                                        Dim CveColectiva As Integer = -1
 
-                                        'Else
-                                        '    Alert("El tipo de cambio no esta actualizado. Por favor comuniquese con un asistente SIG.", TipoMensaje.MsgError)
-                                        '    ErrorMovInv = True
-                                        'End If
+                                        Dim TipoCreditoInteres As Boolean = False
+                                        Dim ImporteIECredito As Decimal = 0
+                                        Dim SeContabiliza As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant"), False, True)
 
-                                    End If
+                                        If RBLPago.SelectedValue = "1" Or RBLPago.SelectedValue = "3" Then
+                                            'Credito Proveedor
+                                            CveProveedorLocal = CveProveedor
+                                            CveProveedorConcepto = CveProveedor
+                                            CveAcreedor = -1
 
-                                    '***************************************************    P R I M E R A    P A R T E   C O M P R A S   **************************************************************************************************************************************************************************************************************************************************************************************************
-                                    'P R E  P O L I Z A S
+                                        Else
+                                            'cuando es contado
 
-                                    Dim CveConceptoAfectacion As Integer = 5 'Proveedores
-                                    Dim CveConceptoAfectacionContado As Integer = 17 'Pago Proveedores
-                                    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
-                                    Dim CveProveedorLocal As Integer
-                                    Dim CveProveedorConcepto As Integer
-                                    Dim CveAcreedor As Integer
-                                    Dim CveColectiva As Integer = -1
-
-                                    Dim TipoCreditoInteres As Boolean = False
-                                    Dim ImporteIECredito As Decimal = 0
-                                    Dim SeContabiliza As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ant"), False, True)
-
-                                    If RBLPago.SelectedValue = "1" Or RBLPago.SelectedValue = "3" Then
-                                        'Credito Proveedor
-                                        CveProveedorLocal = CveProveedor
-                                        CveProveedorConcepto = CveProveedor
-                                        CveAcreedor = -1
-
-                                    Else
-                                        'cuando es contado
-
-                                        Select Case RBLContado.SelectedValue
-                                            Case "1", "6" 'Proveedores
-                                                CveProveedorLocal = CveProveedor
-                                                CveProveedorConcepto = CveProveedor
-                                                CveAcreedor = -1
-                                            Case "2" ' F y E
-                                                CveProveedorLocal = CveProveedor
-                                                CveProveedorConcepto = CveProveedor
-                                                CveAcreedor = -1
-                                                CveIE = DDlCheques.SelectedValue.ToEntero
-                                            Case "3" ' Doctos
-
-                                                CveProveedorConcepto = CveProveedor
-
-                                                If DdlTipoCredito.SelectedValue.ToEntero = 2 Then
+                                            Select Case RBLContado.SelectedValue
+                                                Case "1", "6" 'Proveedores
                                                     CveProveedorLocal = CveProveedor
                                                     CveProveedorConcepto = CveProveedor
                                                     CveAcreedor = -1
+                                                Case "2" ' F y E
+                                                    CveProveedorLocal = CveProveedor
+                                                    CveProveedorConcepto = CveProveedor
+                                                    CveAcreedor = -1
+                                                    CveIE = DDlCheques.SelectedValue.ToEntero
+                                                Case "3" ' Doctos
+
+                                                    CveProveedorConcepto = CveProveedor
+
+                                                    If DdlTipoCredito.SelectedValue.ToEntero = 2 Then
+                                                        CveProveedorLocal = CveProveedor
+                                                        CveProveedorConcepto = CveProveedor
+                                                        CveAcreedor = -1
+                                                        CveColectiva = -1
+                                                        ' CveConceptoAfectacionContado = 55
+                                                        CveConceptoAfectacion = 59
+                                                        CveCreditoDetalle = DdlCreditoDetalle.SelectedValue.ToEntero
+                                                        ObjIE.UpdateCreditosDetalle(3, CveCreditoDetalle)
+                                                    End If
+                                                Case "4" ' Deudores
+                                                    CveProveedorLocal = CveProveedor
+                                                    CveProveedorConcepto = DdlDeudor.SelectedValue.ToEntero
+                                                    For Each row As GridViewRow In GvDeudores.Rows
+                                                        If row.FCCheckBox("Chk").Checked Then
+                                                            CveIE = row.DataKey("CveIE").ToString.ToEntero
+                                                            Exit For
+                                                        End If
+                                                    Next
+                                                    CveAcreedor = -1
                                                     CveColectiva = -1
                                                     ' CveConceptoAfectacionContado = 55
-                                                    CveConceptoAfectacion = 59
-                                                    CveCreditoDetalle = DdlCreditoDetalle.SelectedValue.ToEntero
-                                                    ObjIE.UpdateCreditosDetalle(3, CveCreditoDetalle)
-                                                End If
-                                            Case "4" ' Deudores
-                                                CveProveedorLocal = CveProveedor
-                                                CveProveedorConcepto = DdlDeudor.SelectedValue.ToEntero
-                                                For Each row As GridViewRow In GvDeudores.Rows
-                                                    If row.FCCheckBox("Chk").Checked Then
-                                                        CveIE = row.DataKey("CveIE").ToString.ToEntero
-                                                        Exit For
+                                                    CveConceptoAfectacion = 37
+                                                Case "5" ' Acreedores
+                                                    CveProveedorLocal = CveProveedor
+                                                    CveProveedorConcepto = DdlAcreedor.SelectedValue.ToEntero
+                                                    CveAcreedor = -1
+                                                    CveColectiva = -1
+                                                    CveConceptoAfectacion = 41
+
+                                                    If EmpresaPrueba Then
+                                                        CveIE = If(DdlAcreedorDetalle.SelectedValue.ToEntero = -2, -1, DdlAcreedorDetalle.SelectedValue.ToEntero)
                                                     End If
-                                                Next
-                                                CveAcreedor = -1
-                                                CveColectiva = -1
-                                                ' CveConceptoAfectacionContado = 55
-                                                CveConceptoAfectacion = 37
-                                            Case "5" ' Acreedores
-                                                CveProveedorLocal = CveProveedor
-                                                CveProveedorConcepto = DdlAcreedor.SelectedValue.ToEntero
-                                                CveAcreedor = -1
-                                                CveColectiva = -1
-                                                CveConceptoAfectacion = 41
-
-                                                If EmpresaPrueba Then
-                                                    CveIE = If(DdlAcreedorDetalle.SelectedValue.ToEntero = -2, -1, DdlAcreedorDetalle.SelectedValue.ToEntero)
-                                                End If
-                                        End Select
-                                    End If
-
-                                    If RBLPago.SelectedValue.ToEntero = 4 Then
-                                        Dim TmpTotal As Decimal = TxtTotal.Text.ToDecimal
-                                        Dim TmpTotalCreditos As Decimal = 0
-
-                                        For Each GvRow As GridViewRow In GvCreditos.Rows
-                                            TmpTotalCreditos = TmpTotalCreditos + GvRow.FCTextBox("TxtCapital").Text.ToDecimal
-                                            TmpTotalCreditos = TmpTotalCreditos + GvRow.FCTextBox("TxtInteres").Text.ToDecimal
-                                            TmpTotalCreditos = TmpTotalCreditos + GvRow.FCTextBox("TxtAmbos").Text.ToDecimal
-                                        Next
-
-                                        If TmpTotalCreditos > TmpTotal Then
-                                            ErrorCredito = True
+                                            End Select
                                         End If
 
-                                        For Each GvRow As GridViewRow In GvCreditos.Rows
+                                        If RBLPago.SelectedValue.ToEntero = 4 Then
+                                            Dim TmpTotal As Decimal = TxtTotal.Text.ToDecimal
+                                            Dim TmpTotalCreditos As Decimal = 0
 
-                                            Dim Capital As Decimal = GvRow.FCTextBox("TxtCapital").Text.Replace(",", "").ToDecimal
-                                            Dim Interes As Decimal = GvRow.FCTextBox("TxtInteres").Text.Replace(",", "").ToDecimal
-                                            Dim Ambos As Decimal = GvRow.FCTextBox("TxtAmbos").Text.Replace(",", "").ToDecimal
+                                            For Each GvRow As GridViewRow In GvCreditos.Rows
+                                                TmpTotalCreditos = TmpTotalCreditos + GvRow.FCTextBox("TxtCapital").Text.ToDecimal
+                                                TmpTotalCreditos = TmpTotalCreditos + GvRow.FCTextBox("TxtInteres").Text.ToDecimal
+                                                TmpTotalCreditos = TmpTotalCreditos + GvRow.FCTextBox("TxtAmbos").Text.ToDecimal
+                                            Next
 
-                                            Dim CveCreditoDetalleTemp As Integer = GvRow.DataKey("CveCreditoDetalle").ToEntero
-                                            Dim CveCreditoTemp As Integer = GvRow.DataKey("CveCredito").ToEntero
-                                            Dim EstusTemp = GvRow.DataKey("Estatus").ToEntero
-                                            ' Dim ImporteOpcionCompra As Decimal = GvRow.DataKey("ImporteOpcionCompra").ToDecimal
-                                            Dim Marcador As Decimal = GvRow.DataKey("Marcador").ToEntero
-                                            Dim CreditoEstatus As Integer = -1
+                                            If TmpTotalCreditos > TmpTotal Then
+                                                ErrorCredito = True
+                                            End If
 
-                                            If Capital > 0 Or Interes > 0 Or Ambos > 0 Then
+                                            For Each GvRow As GridViewRow In GvCreditos.Rows
 
-                                                If ObjIE.GetCreditosDetalle(CveCreditoTemp, -1) Then
+                                                Dim Capital As Decimal = GvRow.FCTextBox("TxtCapital").Text.Replace(",", "").ToDecimal
+                                                Dim Interes As Decimal = GvRow.FCTextBox("TxtInteres").Text.Replace(",", "").ToDecimal
+                                                Dim Ambos As Decimal = GvRow.FCTextBox("TxtAmbos").Text.Replace(",", "").ToDecimal
 
-                                                    Dim CveCompraCapital As Integer = -1
-                                                    Dim CveCompraInteres As Integer = -1
+                                                Dim CveCreditoDetalleTemp As Integer = GvRow.DataKey("CveCreditoDetalle").ToEntero
+                                                Dim CveCreditoTemp As Integer = GvRow.DataKey("CveCredito").ToEntero
+                                                Dim EstusTemp = GvRow.DataKey("Estatus").ToEntero
+                                                ' Dim ImporteOpcionCompra As Decimal = GvRow.DataKey("ImporteOpcionCompra").ToDecimal
+                                                Dim Marcador As Decimal = GvRow.DataKey("Marcador").ToEntero
+                                                Dim CreditoEstatus As Integer = -1
 
-                                                    'Dim ImporteCapital As Decimal = 0
-                                                    ' Dim ImporteCapitalIVA As Decimal = 0
+                                                If Capital > 0 Or Interes > 0 Or Ambos > 0 Then
 
-                                                    'Dim ImporteInteres As Decimal = 0
-                                                    ' Dim ImporteInteresIVA As Decimal = 0
+                                                    If ObjIE.GetCreditosDetalle(CveCreditoTemp, -1) Then
 
-                                                    ' Dim ImporteIEMensualidad As Decimal = ObjIE.DtResultados.FiltroPrimeroValor("ImporteIE", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToDecimal
-                                                    CreditoEstatus = ObjIE.DtResultados.FiltroPrimeroValor("Estatus", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToEntero
+                                                        Dim CveCompraCapital As Integer = -1
+                                                        Dim CveCompraInteres As Integer = -1
 
-                                                    CveCompraCapital = ObjIE.DtResultados.FiltroPrimeroValor("CveCompra", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToEntero
-                                                    CveCompraInteres = ObjIE.DtResultados.FiltroPrimeroValor("CveCompraInteres", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToEntero
+                                                        'Dim ImporteCapital As Decimal = 0
+                                                        ' Dim ImporteCapitalIVA As Decimal = 0
 
-                                                    CveCompraCapital = If(CveCompraCapital < 1, -1, CveCompraCapital)
-                                                    CveCompraInteres = If(CveCompraInteres < 1, -1, CveCompraInteres)
+                                                        'Dim ImporteInteres As Decimal = 0
+                                                        ' Dim ImporteInteresIVA As Decimal = 0
 
-                                                    TipoCreditoInteres = Boolean.Parse(ObjIE.DtResultados.FiltroPrimeroValor("TipoInteres", $"CveCreditoDetalle = {CveCreditoDetalleTemp}"))
-                                                    ImporteIECredito = ObjIE.DtResultados.FiltroPrimeroValor("ImportePago", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToDecimal
+                                                        ' Dim ImporteIEMensualidad As Decimal = ObjIE.DtResultados.FiltroPrimeroValor("ImporteIE", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToDecimal
+                                                        CreditoEstatus = ObjIE.DtResultados.FiltroPrimeroValor("Estatus", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToEntero
 
-                                                    If Ambos > 0 Then
-                                                        CveCompraCapital = CveCompra
-                                                        CveCompraInteres = CveCompra
+                                                        CveCompraCapital = ObjIE.DtResultados.FiltroPrimeroValor("CveCompra", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToEntero
+                                                        CveCompraInteres = ObjIE.DtResultados.FiltroPrimeroValor("CveCompraInteres", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToEntero
 
-                                                        Capital = Ambos
-                                                        Interes = Ambos
+                                                        CveCompraCapital = If(CveCompraCapital < 1, -1, CveCompraCapital)
+                                                        CveCompraInteres = If(CveCompraInteres < 1, -1, CveCompraInteres)
 
-                                                    End If
+                                                        TipoCreditoInteres = Boolean.Parse(ObjIE.DtResultados.FiltroPrimeroValor("TipoInteres", $"CveCreditoDetalle = {CveCreditoDetalleTemp}"))
+                                                        ImporteIECredito = ObjIE.DtResultados.FiltroPrimeroValor("ImportePago", $"CveCreditoDetalle = {CveCreditoDetalleTemp}").ToDecimal
 
-                                                    If Capital > 0 Then
-                                                        CveCompraCapital = CveCompra
-                                                    End If
-                                                    If Interes > 0 Then
-                                                        CveCompraInteres = CveCompra
-                                                    End If
+                                                        If Ambos > 0 Then
+                                                            CveCompraCapital = CveCompra
+                                                            CveCompraInteres = CveCompra
 
+                                                            Capital = Ambos
+                                                            Interes = Ambos
 
-
-                                                    If (CveCompraCapital > 0 And CveCompraInteres > 0) And EstusTemp = 2 Then
-                                                        If EstusTemp = 2 Then
-                                                            EstusTemp = 3
-                                                        ElseIf EstusTemp = 1 Or EstusTemp = 4 Then
-                                                            EstusTemp = 4
                                                         End If
-                                                    ElseIf CveCompraCapital > 0 Or CveCompraInteres > 0 Then
-                                                        If EstusTemp = 2 Then
-                                                            EstusTemp = 2
-                                                        ElseIf EstusTemp = 1 Or EstusTemp = 4 Then
-                                                            EstusTemp = 4
-                                                        End If
-                                                    End If
 
-                                                    If Not ObjIE.UpdateCreditosDetalle(CveCreditoDetalleTemp, "01/01/2000".ToDate, -1, -1, -1, -1, -1, -1, EstusTemp, CveCompra:=CveCompraCapital, CveCompraInteres:=CveCompraInteres, importeCapital:=Capital,
-                                                                                       ImporteInteres:=Interes) Then
+                                                        If Capital > 0 Then
+                                                            CveCompraCapital = CveCompra
+                                                        End If
+                                                        If Interes > 0 Then
+                                                            CveCompraInteres = CveCompra
+                                                        End If
+
+
+
+                                                        If (CveCompraCapital > 0 And CveCompraInteres > 0) And EstusTemp = 2 Then
+                                                            If EstusTemp = 2 Then
+                                                                EstusTemp = 3
+                                                            ElseIf EstusTemp = 1 Or EstusTemp = 4 Then
+                                                                EstusTemp = 4
+                                                            End If
+                                                        ElseIf CveCompraCapital > 0 Or CveCompraInteres > 0 Then
+                                                            If EstusTemp = 2 Then
+                                                                EstusTemp = 2
+                                                            ElseIf EstusTemp = 1 Or EstusTemp = 4 Then
+                                                                EstusTemp = 4
+                                                            End If
+                                                        End If
+
+                                                        If Not ObjIE.UpdateCreditosDetalle(CveCreditoDetalleTemp, "01/01/2000".ToDate, -1, -1, -1, -1, -1, -1, EstusTemp, CveCompra:=CveCompraCapital, CveCompraInteres:=CveCompraInteres, importeCapital:=Capital,
+                                                                                           ImporteInteres:=Interes) Then
+                                                            ErrorCredito = True
+                                                        End If
+                                                        'ObjIE.UpdateCreditosDetalle(CveCreditoDetalle, "01/01/2000".ToDate, -1, -1, -1, -1, -1, -1, Estatus)
+
+
+
+                                                    Else
                                                         ErrorCredito = True
                                                     End If
-                                                    'ObjIE.UpdateCreditosDetalle(CveCreditoDetalle, "01/01/2000".ToDate, -1, -1, -1, -1, -1, -1, Estatus)
-
-
-
-                                                Else
-                                                    ErrorCredito = True
                                                 End If
-                                            End If
-                                        Next
-                                    End If
-
-                                    Dim TipoMovimientoCompra As Boolean = False
-                                    Dim TipoMovimientoImpuestos As Boolean = True
-                                    If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
-                                        CveConceptoAfectacion = 18 'Devolución del Proveedor (NC)
-                                        TipoMovimientoCompra = Not TipoMovimientoCompra
-                                        TipoMovimientoImpuestos = Not TipoMovimientoImpuestos
-                                    End If
-
-                                    If EmpresaPrueba Then 'Empresa Prueba 
-
-                                        Dim PorcentajePagos As Decimal = 0
-                                        Dim sumaPagos As Decimal = 0
-                                        Dim tipoCambioActual As Decimal
-                                        Dim tipoCambioPago As Decimal
-                                        Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
-                                        Dim idCuentaContabilizacion As Long = 1
-                                        Dim CveCuentaContabilizacion As Long = 1
-                                        Dim FechaMovimiento As Date = TxtFecha.Text.ToDate
-                                        Dim DT As DataTable = Nothing
-                                        Dim CuentasContablesInvalidas As New StringBuilder
-                                        Dim CuentasContablesInvalidasSIG As New StringBuilder
-                                        Dim ConceptoPersonal As String = ""
-                                        Dim IdCtaIVAXAcreditar As Integer = 0
-                                        Dim IdCtaIVAAcreditable As Integer = 0
-                                        Dim GuardoConcepto18 As Boolean = False
-
-                                        If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows.Count > 0 Then
-                                            IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
-                                            IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
+                                            Next
                                         End If
 
-                                        Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
-
-                                        If UsuarioActual.CveEmpresa = 119 AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
-                                            AutoConta = False
-                                        End If
-
-                                        If (AutoConta Or UsuarioActual.Empresa.UsaAC) And ObjContaAC Is Nothing Then
-                                            ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
-                                            ObjContaAC.IniciaTransacSQL()
-                                        End If
-
-                                        '********************** Variables '**********************
-
-                                        '****** Pagos
-
-                                        'Bancos (30)
-                                        Dim importeBanco As Decimal = 0
-                                        If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "1" AndAlso (Not DivTarjeta.Visible Or DdlTarjeta.SelectedValue.ToEntero = -1) Then
-                                            importeBanco = TxtDocumentoImporte.Text.ToDecimal
-                                            sumaPagos += importeBanco
-                                        End If
-
-                                        'Caja Chica (30)
-                                        Dim importeCajaChica As Decimal = 0
-                                        If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "6" Then
-                                            importeCajaChica = TxtDocumentoImporteCaja.Text.ToDecimal
-                                            sumaPagos += importeCajaChica
-                                        End If
-
-                                        'Funcionarios y Empleados (29)
-                                        Dim importeFE As Decimal = 0
-                                        If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "2" Then
-                                            ViewState("CvePersonal") = DdlFuncionarioEmpleado.SelectedValue.ToEntero
-                                            ConceptoPersonal = DdlFuncionarioEmpleado.SelectedItem.ToString
-                                            importeFE = TxtDocumentoImporteFE.Text.ToDecimal
-                                            sumaPagos += importeFE
-                                        End If
-
-                                        'Deudores (37)
-                                        Dim importeDD As Decimal = 0
-                                        If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "4" Then
-                                            ConceptoPersonal = DdlDeudor.SelectedItem.ToString
-                                            importeDD = TxtContadoDeudor.Text.ToDecimal
-                                            sumaPagos += importeDD
-                                        End If
-
-                                        'Acreedores (41) SinTarjeta
-                                        Dim importeAcreedores As Decimal = 0
-                                        If (CveIE > 0 Or DdlAcreedorDetalle.SelectedValue.ToEntero = -2) AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "5" Then
-                                            ConceptoPersonal = DdlAcreedor.SelectedItem.ToString
-                                            importeAcreedores = TxtContadoAcreedor.Text.ToDecimal
-                                            sumaPagos += importeAcreedores
-                                        End If
-
-                                        'Acreedores (42) ConTarjeta
-                                        Dim importeAcreedoresTarjeta As Decimal = 0
-                                        If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "1" AndAlso DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
-                                            ConceptoPersonal = DdlTarjeta.SelectedItem.ToString
-                                            importeAcreedoresTarjeta = TxtDocumentoImporte.Text.ToDecimal
-                                            sumaPagos += importeAcreedoresTarjeta
-                                        End If
-
-                                        'Creditos/Documentos (59)
-                                        Dim importeCreditos As Decimal = 0
-                                        Dim CveIECreditos = -1
-                                        If RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "3" AndAlso DdlTipoCredito.SelectedValue.ToEntero = 2 Then
-                                            If ObjIE.GetCreditosDetalle(DdlCredito.SelectedValue.ToEntero, -1) Then
-                                                CveIECreditos = ObjIE.DtResultados.FiltroPrimero($"CveCreditoDetalle = {DdlCreditoDetalle.SelectedValue.ToEntero}")("CveIE").ToString.ToEntero
-                                            End If
-                                            ConceptoPersonal = DdlCredito.SelectedItem.ToString
-                                            importeCreditos = TxtTotal.Text.ToDecimal
-                                            sumaPagos += importeCreditos
-                                        End If
-
-                                        PorcentajePagos = If(TxtTotal.Text.ToDecimal > 0, sumaPagos / TxtTotal.Text.ToDecimal, 0)
-
-                                        '****** Acreditables
-
-                                        'IVA Acreditable (19)
-                                        Dim importeIVAAcreditable As Decimal = 0
-                                        importeIVAAcreditable = TxtIVA.Text.ToDecimal * PorcentajePagos
-
-                                        'IEPS Acreditable (26)
-                                        Dim ImporteIEPSAcreditable As Decimal = 0
-                                        ImporteIEPSAcreditable = TxtIEPS.Text.ToDecimal * PorcentajePagos
-
-                                        'RetIVA Acrediable (22)
-                                        Dim importeRetIVAAcreditable As Decimal = 0
-                                        importeRetIVAAcreditable = TxtRetIVA.Text.ToDecimal * PorcentajePagos
-
-                                        'RetISR Acreditable (23)
-                                        Dim importeRetISRAcreditable As Decimal = 0
-                                        importeRetISRAcreditable = TxtRetISR.Text.ToDecimal * PorcentajePagos
-
-
-
-                                        '****** X Acreditar
-                                        'IVA X Acreditar (14)
-                                        Dim importeIVAxAcreditar As Decimal = 0
-                                        importeIVAxAcreditar = TxtIVA.Text.ToDecimal
-
-                                        'IEPS X Acreditar (25)
-                                        Dim ImporteIEPSxAcreditar As Decimal = 0
-                                        ImporteIEPSxAcreditar = TxtIEPS.Text.ToDecimal
-
-                                        'Otros Impuestos (224)
-                                        Dim OtrosImpuestos As Decimal = 0
-                                        OtrosImpuestos = TxtOtrosImpuestos.Text.ToDecimal
-
-                                        'RetIVA X Acreditar (15)
-                                        Dim importeRetIVAxAcreditar As Decimal = 0
-                                        importeRetIVAxAcreditar = TxtRetIVA.Text.ToDecimal
-
-                                        'RetISR X Acreditar (16)
-                                        Dim importeRetISRxAcreditar As Decimal = 0
-                                        importeRetISRxAcreditar = TxtRetISR.Text.ToDecimal
-
-
-
-                                        '****** Movimientos Independientes
-
-                                        'Pago Proveedores (17)
-                                        Dim importePagoProv As Decimal = 0
-                                        importePagoProv = sumaPagos
-
-                                        'If CveIE > 0 AndAlso ((RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0) Or (RBLContado.SelectedValue = "4" AndAlso DdlDeudor.SelectedValue.ToEntero > 0)) Then
-                                        '    importePagoProv = TxtDocumentoImporteFE.Text.ToDecimal
-                                        'End If
-
-                                        'Compra (6)
-                                        'Ya que es un foreach todo su proceso esta en el Case 6
-
-                                        'Proveedores (5)
-                                        Dim importeProv As Decimal = 0
-                                        importeProv = TxtTotal.Text.ToDecimal
-
-                                        'Nota de Credito (18)
-                                        Dim importeNC As Decimal = 0
+                                        Dim TipoMovimientoCompra As Boolean = False
+                                        Dim TipoMovimientoImpuestos As Boolean = True
                                         If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
-                                            importeNC = TxtTotal.Text.ToDecimal
+                                            CveConceptoAfectacion = 18 'Devolución del Proveedor (NC)
+                                            TipoMovimientoCompra = Not TipoMovimientoCompra
+                                            TipoMovimientoImpuestos = Not TipoMovimientoImpuestos
                                         End If
 
-                                        '**************************************************************************************************************************
+                                        If EmpresaPrueba Then 'Empresa Prueba 
 
-                                        If DdlMoneda.SelectedValue.ToString.ToEntero = 2 Then
-                                            tipoCambioActual = GlobalTipoCambio(FechaMovimiento).ToString.ToDecimal
-                                            tipoCambioActual = If(DivTC.Visible, TipoCambio.ToDecimal, tipoCambioActual)
-                                            tipoCambioPago = GlobalTipoCambio(TxtFechaPago.Text.ToDate).ToString.ToDecimal
-                                        Else
-                                            tipoCambioActual = 1
-                                            tipoCambioPago = 1
-                                        End If
+                                            Dim PorcentajePagos As Decimal = 0
+                                            Dim sumaPagos As Decimal = 0
+                                            Dim tipoCambioActual As Decimal
+                                            Dim tipoCambioPago As Decimal
+                                            Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
+                                            Dim idCuentaContabilizacion As Long = 1
+                                            Dim CveCuentaContabilizacion As Long = 1
+                                            Dim FechaMovimiento As Date = TxtFecha.Text.ToDate
+                                            Dim DT As DataTable = Nothing
+                                            Dim CuentasContablesInvalidas As New StringBuilder
+                                            Dim CuentasContablesInvalidasSIG As New StringBuilder
+                                            Dim ConceptoPersonal As String = ""
+                                            Dim IdCtaIVAXAcreditar As Integer = 0
+                                            Dim IdCtaIVAAcreditable As Integer = 0
+                                            Dim GuardoConcepto18 As Boolean = False
 
-                                        'CASO ESPECIAL CREDITOS
-                                        If CveIECreditos > 0 Then
-                                            CveIE = CveIECreditos
-                                            'Dim CveIEProvisional = CveIE
-                                        End If
+                                            If GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows.Count > 0 Then
+                                                IdCtaIVAXAcreditar = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
+                                                IdCtaIVAAcreditable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeIVA).Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
+                                            End If
+
+                                            Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
+
+                                            If UsuarioActual.CveEmpresa = 119 AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
+                                                AutoConta = False
+                                            End If
+
+                                            If (AutoConta Or UsuarioActual.Empresa.UsaAC) And ObjContaAC Is Nothing Then
+                                                ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+                                                ObjContaAC.IniciaTransacSQL()
+                                            End If
+
+                                            '********************** Variables '**********************
+
+                                            '****** Pagos
+
+                                            'Bancos (30)
+                                            Dim importeBanco As Decimal = 0
+                                            If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "1" AndAlso (Not DivTarjeta.Visible Or DdlTarjeta.SelectedValue.ToEntero = -1) Then
+                                                importeBanco = TxtDocumentoImporte.Text.ToDecimal
+                                                sumaPagos += importeBanco
+                                            End If
+
+                                            'Caja Chica (30)
+                                            Dim importeCajaChica As Decimal = 0
+                                            If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "6" Then
+                                                importeCajaChica = TxtDocumentoImporteCaja.Text.ToDecimal
+                                                sumaPagos += importeCajaChica
+                                            End If
+
+                                            'Funcionarios y Empleados (29)
+                                            Dim importeFE As Decimal = 0
+                                            If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "2" Then
+                                                ViewState("CvePersonal") = DdlFuncionarioEmpleado.SelectedValue.ToEntero
+                                                ConceptoPersonal = DdlFuncionarioEmpleado.SelectedItem.ToString
+                                                importeFE = TxtDocumentoImporteFE.Text.ToDecimal
+                                                sumaPagos += importeFE
+                                            End If
+
+                                            'Deudores (37)
+                                            Dim importeDD As Decimal = 0
+                                            If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "4" Then
+                                                ConceptoPersonal = DdlDeudor.SelectedItem.ToString
+                                                importeDD = TxtContadoDeudor.Text.ToDecimal
+                                                sumaPagos += importeDD
+                                            End If
+
+                                            'Acreedores (41) SinTarjeta
+                                            Dim importeAcreedores As Decimal = 0
+                                            If (CveIE > 0 Or DdlAcreedorDetalle.SelectedValue.ToEntero = -2) AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "5" Then
+                                                ConceptoPersonal = DdlAcreedor.SelectedItem.ToString
+                                                importeAcreedores = TxtContadoAcreedor.Text.ToDecimal
+                                                sumaPagos += importeAcreedores
+                                            End If
+
+                                            'Acreedores (42) ConTarjeta
+                                            Dim importeAcreedoresTarjeta As Decimal = 0
+                                            If CveIE > 0 AndAlso RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "1" AndAlso DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
+                                                ConceptoPersonal = DdlTarjeta.SelectedItem.ToString
+                                                importeAcreedoresTarjeta = TxtDocumentoImporte.Text.ToDecimal
+                                                sumaPagos += importeAcreedoresTarjeta
+                                            End If
+
+                                            'Creditos/Documentos (59)
+                                            Dim importeCreditos As Decimal = 0
+                                            Dim CveIECreditos = -1
+                                            If RBLPago.SelectedValue.ToEntero = 2 AndAlso RBLContado.SelectedValue = "3" AndAlso DdlTipoCredito.SelectedValue.ToEntero = 2 Then
+                                                If ObjIE.GetCreditosDetalle(DdlCredito.SelectedValue.ToEntero, -1) Then
+                                                    CveIECreditos = ObjIE.DtResultados.FiltroPrimero($"CveCreditoDetalle = {DdlCreditoDetalle.SelectedValue.ToEntero}")("CveIE").ToString.ToEntero
+                                                End If
+                                                ConceptoPersonal = DdlCredito.SelectedItem.ToString
+                                                importeCreditos = TxtTotal.Text.ToDecimal
+                                                sumaPagos += importeCreditos
+                                            End If
+
+                                            PorcentajePagos = If(TxtTotal.Text.ToDecimal > 0, sumaPagos / TxtTotal.Text.ToDecimal, 0)
+
+                                            '****** Acreditables
+
+                                            'IVA Acreditable (19)
+                                            Dim importeIVAAcreditable As Decimal = 0
+                                            importeIVAAcreditable = TxtIVA.Text.ToDecimal * PorcentajePagos
+
+                                            'IEPS Acreditable (26)
+                                            Dim ImporteIEPSAcreditable As Decimal = 0
+                                            ImporteIEPSAcreditable = TxtIEPS.Text.ToDecimal * PorcentajePagos
+
+                                            'RetIVA Acrediable (22)
+                                            Dim importeRetIVAAcreditable As Decimal = 0
+                                            importeRetIVAAcreditable = TxtRetIVA.Text.ToDecimal * PorcentajePagos
+
+                                            'RetISR Acreditable (23)
+                                            Dim importeRetISRAcreditable As Decimal = 0
+                                            importeRetISRAcreditable = TxtRetISR.Text.ToDecimal * PorcentajePagos
 
 
 
-                                        If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPrePoliza) Then
+                                            '****** X Acreditar
+                                            'IVA X Acreditar (14)
+                                            Dim importeIVAxAcreditar As Decimal = 0
+                                            importeIVAxAcreditar = TxtIVA.Text.ToDecimal
 
-                                            Dim DTPlatilla As New DataTable
-                                            DTPlatilla = ObjConta.DtResultados
+                                            'IEPS X Acreditar (25)
+                                            Dim ImporteIEPSxAcreditar As Decimal = 0
+                                            ImporteIEPSxAcreditar = TxtIEPS.Text.ToDecimal
 
-                                            For Each Row As DataRow In DTPlatilla.Rows
+                                            'Otros Impuestos (224)
+                                            Dim OtrosImpuestos As Decimal = 0
+                                            OtrosImpuestos = TxtOtrosImpuestos.Text.ToDecimal
 
-                                                Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero
-                                                Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
-                                                Dim importeMovimiento As Decimal = 0
-                                                Dim IdCtaContable As Integer = 0
-                                                Dim CveCuenta As Integer = 0
-                                                Dim Concepto As String = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreProveedor, $"{TxtSerie.Text}-{TxtFolio.Text}", If(TxtDocumentoFolio.Visible, TxtDocumentoFolio.Text, If(TxtDocumentoFolioCaja.Visible, TxtDocumentoFolioCaja.Text, ConceptoPersonal)))
-                                                Dim importeMN As Decimal = 0
-                                                Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
-                                                Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
-                                                Dim PorcentajeImpuesto As Decimal = 0
+                                            'RetIVA X Acreditar (15)
+                                            Dim importeRetIVAxAcreditar As Decimal = 0
+                                            importeRetIVAxAcreditar = TxtRetIVA.Text.ToDecimal
+
+                                            'RetISR X Acreditar (16)
+                                            Dim importeRetISRxAcreditar As Decimal = 0
+                                            importeRetISRxAcreditar = TxtRetISR.Text.ToDecimal
 
 
-                                                Select Case ConceptoContable
+
+                                            '****** Movimientos Independientes
+
+                                            'Pago Proveedores (17)
+                                            Dim importePagoProv As Decimal = 0
+                                            importePagoProv = sumaPagos
+
+                                            'If CveIE > 0 AndAlso ((RBLContado.SelectedValue = "2" AndAlso DdlFuncionarioEmpleado.SelectedValue.ToEntero > 0) Or (RBLContado.SelectedValue = "4" AndAlso DdlDeudor.SelectedValue.ToEntero > 0)) Then
+                                            '    importePagoProv = TxtDocumentoImporteFE.Text.ToDecimal
+                                            'End If
+
+                                            'Compra (6)
+                                            'Ya que es un foreach todo su proceso esta en el Case 6
+
+                                            'Proveedores (5)
+                                            Dim importeProv As Decimal = 0
+                                            importeProv = TxtTotal.Text.ToDecimal
+
+                                            'Nota de Credito (18)
+                                            Dim importeNC As Decimal = 0
+                                            If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
+                                                importeNC = TxtTotal.Text.ToDecimal
+                                            End If
+
+                                            '**************************************************************************************************************************
+
+                                            If DdlMoneda.SelectedValue.ToString.ToEntero = 2 Then
+                                                tipoCambioActual = GlobalTipoCambio(FechaMovimiento).ToString.ToDecimal
+                                                tipoCambioActual = If(DivTC.Visible, TipoCambio.ToDecimal, tipoCambioActual)
+                                                tipoCambioPago = GlobalTipoCambio(TxtFechaPago.Text.ToDate).ToString.ToDecimal
+                                            Else
+                                                tipoCambioActual = 1
+                                                tipoCambioPago = 1
+                                            End If
+
+                                            'CASO ESPECIAL CREDITOS
+                                            If CveIECreditos > 0 Then
+                                                CveIE = CveIECreditos
+                                                'Dim CveIEProvisional = CveIE
+                                            End If
+
+
+
+                                            If ObjConta.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPrePoliza) Then
+
+                                                Dim DTPlatilla As New DataTable
+                                                DTPlatilla = ObjConta.DtResultados
+
+                                                For Each Row As DataRow In DTPlatilla.Rows
+
+                                                    Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero
+                                                    Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
+                                                    Dim importeMovimiento As Decimal = 0
+                                                    Dim IdCtaContable As Integer = 0
+                                                    Dim CveCuenta As Integer = 0
+                                                    Dim Concepto As String = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, NombreProveedor, $"{TxtSerie.Text}-{TxtFolio.Text}", If(TxtDocumentoFolio.Visible, TxtDocumentoFolio.Text, If(TxtDocumentoFolioCaja.Visible, TxtDocumentoFolioCaja.Text, ConceptoPersonal)))
+                                                    Dim importeMN As Decimal = 0
+                                                    Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
+                                                    Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
+                                                    Dim PorcentajeImpuesto As Decimal = 0
+
+
+                                                    Select Case ConceptoContable
 
 
 
 
-                                                    Case 17 'Pago Proveedores
+                                                        Case 17 'Pago Proveedores
 
-                                                        importeMovimiento = importePagoProv
-                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                        IdCtaContable = CtaProveedor
-                                                        CveCuenta = CveCuentaProveedor
-
-
-                                                        If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(2, 102) Then   'SI ES CRÉDITO Y ESTA PAGADO 
-
-                                                            Dim IdSegmentoNegocio As Integer = -1
-                                                            For Each Row2 As DataRow In TmpDT.Rows
-
-                                                                importeMovimiento = TxtTotal.Text.ToDecimal 'TmpDT.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
-                                                                importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                                'CLASIFICACION
-                                                                If Row2("CveClasificacion").ToString.ToEntero > 0 Then
-                                                                    If ObjConta.GetRetCuenta(6, Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero) Then
-                                                                        If ObjConta.DtResultados.Rows.Count > 0 AndAlso ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero > 0 Then
-                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero
-                                                                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero
-                                                                        Else
-                                                                            IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero
-                                                                            CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero
-                                                                        End If
-                                                                    End If
-                                                                End If
-
-
-
-
-                                                                'SEGMENTO DE NEGOCIO
-
-                                                                Dim drT As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero).FiltroPrimero(String.Format("CveSubProyecto = {0} ", Row2("CveSubProyecto").ToString.ToEntero))
-                                                                If drT IsNot Nothing Then
-                                                                    IdSegmentoNegocio = drT("IdSegNeg").ToString.ToEntero
-                                                                End If
-
-                                                                'AGREGA MOVIMIENTO
-                                                                If importeMovimiento <> 0 Then
-                                                                    'Conta ContPAQ
-                                                                    If IdCtaContable = 0 Then
-                                                                        CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
-                                                                        idCuentaContabilizacion = 0
-                                                                    End If
-                                                                    'Conta SIG
-                                                                    If CveCuenta = 0 Then
-                                                                        CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
-                                                                        CveCuentaContabilizacion = 0
-                                                                    End If
-                                                                End If
-                                                            Next
-
-
-
-                                                            Dim CveClasificacionDT As Integer = -1
-                                                            Dim CveSubProyectoDT As Integer = -1
-                                                            Dim CveTipoGastoDT As Integer = -1
-
-                                                            If TmpDT.Rows.Count > 0 Then
-                                                                CveClasificacionDT = TmpDT(0)("CveClasificacion").ToString.ToEntero
-                                                                CveSubProyectoDT = TmpDT(0)("CveSubProyecto").ToString.ToEntero
-                                                                CveTipoGastoDT = TmpDT(0)("CveTipoGasto").ToString.ToEntero
-                                                            End If
-
-                                                            Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
-
-                                                            Dim ImporteSubCre As Decimal = TxtSubTotal.Text.ToDecimal
-                                                            Dim ImporteSubCreMN As Decimal = TxtSubTotal.Text.ToDecimal * tipoCambioActual
-
-                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteSubCre, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=ImporteSubCreMN, ImporteME:=If(tipoCambioActual = 1, 0, ImporteSubCre), CveCuenta:=CveCuenta, CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                ErrorPrepoliza = True
-                                                            End If
-
-
-                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 41, Concepto, FechaMovimiento, CtaProveedorAcreedores, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                ErrorPrepoliza = True
-                                                            End If
-
-                                                            If TipoCreditoInteres Then
-
-
-                                                                Dim importeMovimientoIn As Decimal = ImporteIECredito - importeMovimiento
-                                                                Dim importeMNIn As Decimal = importeMovimientoIn * tipoCambioActual * Multiplicador
-
-
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoIn, Referencia, 41, Concepto, FechaMovimiento, CtaProveedorAcreedores, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=importeMNIn, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveCuenta:=CveCuenta, CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                    ErrorPrepoliza = True
-                                                                End If
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoIn, Referencia, 50, Concepto, FechaMovimiento, ViewState("IdCtaContDocsXPagar").ToString.ToEntero(), IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=importeMNIn, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveCuenta:=CveCuenta, CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                    ErrorPrepoliza = True
-
-                                                                End If
-                                                            End If
-
-
-
-
-                                                        End If
-
-                                                        If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
-
-                                                        If tipoCambioActual = 1 Then
+                                                            importeMovimiento = importePagoProv
+                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador
                                                             IdCtaContable = CtaProveedor
                                                             CveCuenta = CveCuentaProveedor
-                                                        Else
-                                                            IdCtaContable = CtaProveedorComplementaria
-                                                            CveCuenta = CveCuentaProveedorComplementaria
-                                                            If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0) Then 'Cuando tiene complementaria lo dividimos en dos
-                                                                importeMN = importeMovimiento
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, 201, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+
+
+                                                            If RBLPago.SelectedValue.ToEntero = 4 And EstatusCredito.Contiene(2, 102) Then   'SI ES CRÉDITO Y ESTA PAGADO 
+
+                                                                Dim IdSegmentoNegocio As Integer = -1
+                                                                For Each Row2 As DataRow In TmpDT.Rows
+
+                                                                    importeMovimiento = TxtTotal.Text.ToDecimal 'TmpDT.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
+                                                                    importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                                    'CLASIFICACION
+                                                                    If Row2("CveClasificacion").ToString.ToEntero > 0 Then
+                                                                        If ObjConta.GetRetCuenta(6, Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero) Then
+                                                                            If ObjConta.DtResultados.Rows.Count > 0 AndAlso ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero > 0 Then
+                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero
+                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero
+                                                                            Else
+                                                                                IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero
+                                                                                CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero
+                                                                            End If
+                                                                        End If
+                                                                    End If
+
+
+
+
+                                                                    'SEGMENTO DE NEGOCIO
+
+                                                                    Dim drT As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero).FiltroPrimero(String.Format("CveSubProyecto = {0} ", Row2("CveSubProyecto").ToString.ToEntero))
+                                                                    If drT IsNot Nothing Then
+                                                                        IdSegmentoNegocio = drT("IdSegNeg").ToString.ToEntero
+                                                                    End If
+
+                                                                    'AGREGA MOVIMIENTO
+                                                                    If importeMovimiento <> 0 Then
+                                                                        'Conta ContPAQ
+                                                                        If IdCtaContable = 0 Then
+                                                                            CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
+                                                                            idCuentaContabilizacion = 0
+                                                                        End If
+                                                                        'Conta SIG
+                                                                        If CveCuenta = 0 Then
+                                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
+                                                                            CveCuentaContabilizacion = 0
+                                                                        End If
+                                                                    End If
+                                                                Next
+
+
+
+                                                                Dim CveClasificacionDT As Integer = -1
+                                                                Dim CveSubProyectoDT As Integer = -1
+                                                                Dim CveTipoGastoDT As Integer = -1
+
+                                                                If TmpDT.Rows.Count > 0 Then
+                                                                    CveClasificacionDT = TmpDT(0)("CveClasificacion").ToString.ToEntero
+                                                                    CveSubProyectoDT = TmpDT(0)("CveSubProyecto").ToString.ToEntero
+                                                                    CveTipoGastoDT = TmpDT(0)("CveTipoGasto").ToString.ToEntero
+                                                                End If
+
+                                                                Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
+
+                                                                Dim ImporteSubCre As Decimal = TxtSubTotal.Text.ToDecimal
+                                                                Dim ImporteSubCreMN As Decimal = TxtSubTotal.Text.ToDecimal * tipoCambioActual
+
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteSubCre, Referencia, 6, Concepto, FechaMovimiento, IdCtaContable, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=ImporteSubCreMN, ImporteME:=If(tipoCambioActual = 1, 0, ImporteSubCre), CveCuenta:=CveCuenta, CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                     ErrorPrepoliza = True
                                                                 End If
-                                                            End If
 
-                                                            IdCtaContable = CtaProveedorExtranjera
-                                                            CveCuenta = CveCuentaProveedorExtranjera
-                                                        End If
 
-                                                    Case 30 'Bancos
-                                                        importeMovimiento = importeBanco + importeCajaChica 'Uno de los dos debe ser 0
-                                                        importeMN = importeMovimiento * tipoCambioPago * Multiplicador
-                                                        IdCtaContable = IdCuentaBancaria
-                                                        CveCuenta = CveCuentaBancaria
-                                                        If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
-                                                        '' falta complementaria
-
-                                                    Case 19 'IVA Acreditable
-                                                        If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
-                                                            If importePagoProv = importeProv Then
-                                                                importeMovimiento = TxtIVA.Text.ToDecimal
-                                                            Else
-                                                                importeMovimiento = 0
-                                                            End If
-                                                        Else
-                                                            importeMovimiento = importeIVAAcreditable
-                                                        End If
-
-                                                        importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
-
-                                                        PorcentajeImpuesto = PorcentajeIVA
-                                                        IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
-
-                                                        If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
-                                                            If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
-                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero
-                                                            End If
-                                                        End If
-
-                                                        'Agregamos el Opuesto del 19 -> 14
-                                                        If importeMovimiento <> 0 Then
-                                                            Dim IdCtaIva As Integer = 0
-                                                            Dim CveCuentaIVA As Integer = 0
-                                                            IdCtaIva = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
-
-                                                            If ObjConta.GetRetCuenta(14, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then
-                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaIva = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
-                                                                    CveCuentaIVA = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 41, Concepto, FechaMovimiento, CtaProveedorAcreedores, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                    ErrorPrepoliza = True
                                                                 End If
-                                                            End If
 
-                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 14, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVA, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
-                                                                ErrorPrepoliza = True
-                                                            End If
-                                                        End If
+                                                                If TipoCreditoInteres Then
 
-                                                        If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
-                                                    Case 14 'IVA X Acreditar
-                                                        importeMovimiento = importeIVAxAcreditar
-                                                        importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
-                                                        If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
-                                                        PorcentajeImpuesto = PorcentajeIVA
-                                                        IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
-                                                        If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
-                                                            If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
-                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
-                                                            End If
-                                                        End If
-                                                    Case 25 'IEPS X Acreditar
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            importeMovimiento = ImporteIEPSxAcreditar
-                                                            importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
-                                                            If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
-                                                            If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
-                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditarSIG").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                        End If
 
-                                                    Case 224 'Otros impuestos
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            importeMovimiento = OtrosImpuestos
-                                                            importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
-                                                            If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
-                                                            IdCtaContable = If(UsuarioActual.CveEmpresa = 119, 1171, -1)
-                                                            CveCuenta = -1
-                                                        End If
-                                                    Case 26 'IEPS Acreditable
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            importeMovimiento = ImporteIEPSAcreditable
-                                                            importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
-                                                            If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
-                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditableSIG").ToString.ToEntero
-                                                                End If
-                                                            End If
+                                                                    Dim importeMovimientoIn As Decimal = ImporteIECredito - importeMovimiento
+                                                                    Dim importeMNIn As Decimal = importeMovimientoIn * tipoCambioActual * Multiplicador
+
+
+                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoIn, Referencia, 41, Concepto, FechaMovimiento, CtaProveedorAcreedores, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=importeMNIn, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveCuenta:=CveCuenta, CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                        ErrorPrepoliza = True
+                                                                    End If
+                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoIn, Referencia, 50, Concepto, FechaMovimiento, ViewState("IdCtaContDocsXPagar").ToString.ToEntero(), IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteMX:=importeMNIn, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveCuenta:=CveCuenta, CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                        ErrorPrepoliza = True
 
-                                                            'Agregamos el Opuesto del 26 -> 25
-                                                            If importeMovimiento <> 0 Then
-                                                                Dim IdCtaIEPS As Integer = 0
-                                                                Dim CveCuentaIEPS As Integer = 0
-                                                                If ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
-                                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                        IdCtaIEPS = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
-                                                                        CveCuentaIEPS = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditarSIG").ToString.ToEntero
                                                                     End If
                                                                 End If
 
-                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 25, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIEPS, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIEPS, Contabilizable:=SeContabiliza) Then
+
+
+
+                                                            End If
+
+                                                            If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
+
+                                                            If tipoCambioActual = 1 Then
+                                                                IdCtaContable = CtaProveedor
+                                                                CveCuenta = CveCuentaProveedor
+                                                            Else
+                                                                IdCtaContable = CtaProveedorComplementaria
+                                                                CveCuenta = CveCuentaProveedorComplementaria
+                                                                If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0) Then 'Cuando tiene complementaria lo dividimos en dos
+                                                                    importeMN = importeMovimiento
+                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, 201, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                        ErrorPrepoliza = True
+                                                                    End If
+                                                                End If
+
+                                                                IdCtaContable = CtaProveedorExtranjera
+                                                                CveCuenta = CveCuentaProveedorExtranjera
+                                                            End If
+
+                                                        Case 30 'Bancos
+                                                            importeMovimiento = importeBanco + importeCajaChica 'Uno de los dos debe ser 0
+                                                            importeMN = importeMovimiento * tipoCambioPago * Multiplicador
+                                                            IdCtaContable = IdCuentaBancaria
+                                                            CveCuenta = CveCuentaBancaria
+                                                            If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
+                                                        '' falta complementaria
+
+                                                        Case 19 'IVA Acreditable
+                                                            If UsuarioActual.Empresa.Funcionalidad(521) = "1" Then
+                                                                If importePagoProv = importeProv Then
+                                                                    importeMovimiento = TxtIVA.Text.ToDecimal
+                                                                Else
+                                                                    importeMovimiento = 0
+                                                                End If
+                                                            Else
+                                                                importeMovimiento = importeIVAAcreditable
+                                                            End If
+
+                                                            importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
+
+                                                            PorcentajeImpuesto = PorcentajeIVA
+                                                            IdCtaContable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
+
+                                                            If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
+                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditableSIG").ToString.ToEntero
+                                                                End If
+                                                            End If
+
+                                                            'Agregamos el Opuesto del 19 -> 14
+                                                            If importeMovimiento <> 0 Then
+                                                                Dim IdCtaIva As Integer = 0
+                                                                Dim CveCuentaIVA As Integer = 0
+                                                                IdCtaIva = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
+
+                                                                If ObjConta.GetRetCuenta(14, UsuarioActual.CveEmpresa) And Not IdCtaIva > 0 Then
+                                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                        IdCtaIva = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
+                                                                        CveCuentaIVA = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
+                                                                    End If
+                                                                End If
+
+                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 14, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIva, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVA, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
                                                                     ErrorPrepoliza = True
                                                                 End If
                                                             End If
 
                                                             If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
+                                                        Case 14 'IVA X Acreditar
+                                                            importeMovimiento = importeIVAxAcreditar
+                                                            importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
+                                                            If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
+                                                            PorcentajeImpuesto = PorcentajeIVA
+                                                            IdCtaContable = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
+                                                            If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then
+                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
+                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
+                                                                End If
+                                                            End If
+                                                        Case 25 'IEPS X Acreditar
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                importeMovimiento = ImporteIEPSxAcreditar
+                                                                importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
+                                                                If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
+                                                                If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
+                                                                        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditarSIG").ToString.ToEntero
+                                                                    End If
+                                                                End If
+                                                            End If
 
-                                                        End If
-                                                    Case 22 'RetIVA Acreditable Honorarios/Serv. Prof.
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            If DdlRetIVAConcepto.Items.Count > 0 Then
-                                                                If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then
-                                                                    importeMovimiento = importeRetIVAAcreditable
-                                                                    importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
+                                                        Case 224 'Otros impuestos
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                importeMovimiento = OtrosImpuestos
+                                                                importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
+                                                                If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
+                                                                IdCtaContable = If(UsuarioActual.CveEmpresa = 119, 1171, -1)
+                                                                CveCuenta = -1
+                                                            End If
+                                                        Case 26 'IEPS Acreditable
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                importeMovimiento = ImporteIEPSAcreditable
+                                                                importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
+                                                                If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
+                                                                        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditableSIG").ToString.ToEntero
+                                                                    End If
+                                                                End If
+
+                                                                'Agregamos el Opuesto del 26 -> 25
+                                                                If importeMovimiento <> 0 Then
+                                                                    Dim IdCtaIEPS As Integer = 0
+                                                                    Dim CveCuentaIEPS As Integer = 0
+                                                                    If ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) Then
+                                                                        If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                            IdCtaIEPS = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
+                                                                            CveCuentaIEPS = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditarSIG").ToString.ToEntero
+                                                                        End If
+                                                                    End If
+
+                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 25, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaIEPS, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIEPS, Contabilizable:=SeContabiliza) Then
+                                                                        ErrorPrepoliza = True
+                                                                    End If
+                                                                End If
+
+                                                                If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
+
+                                                            End If
+                                                        Case 22 'RetIVA Acreditable Honorarios/Serv. Prof.
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                If DdlRetIVAConcepto.Items.Count > 0 Then
+                                                                    If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then
+                                                                        importeMovimiento = importeRetIVAAcreditable
+                                                                        importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
+                                                                        If CtaProveedorRetIVA > 0 Then
+                                                                            IdCtaContable = CtaProveedorRetIVA
+                                                                            CveCuenta = CveCuentaProveedorRetIVA
+                                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then
+                                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero
+                                                                        Else
+                                                                            If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+                                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
+                                                                                End If
+                                                                            End If
+                                                                        End If
+
+                                                                        'Agregamos el Opuesto del 22 -> 15
+                                                                        If importeMovimiento <> 0 Then
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 15, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                            End If
+                                                                        End If
+
+                                                                        If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
+                                                                    End If
+                                                                End If
+                                                            End If
+                                                        Case 15 'RetIVA X Acreditar Honorarios/Serv. Prof.
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                If DdlRetIVAConcepto.Items.Count > 0 Then
+                                                                    If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then
+                                                                        importeMovimiento = importeRetIVAxAcreditar
+                                                                        importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
+                                                                        If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
+                                                                        If CtaProveedorRetIVA > 0 Then
+                                                                            IdCtaContable = CtaProveedorRetIVA
+                                                                            CveCuenta = CveCuentaProveedorRetIVA
+                                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
+                                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
+                                                                        Else
+                                                                            If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+                                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
+                                                                                End If
+                                                                            End If
+                                                                        End If
+                                                                    End If
+                                                                End If
+                                                            End If
+                                                        Case 184 'RetIVA Acreditable Fletes P.F
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                If DdlRetIVAConcepto.Items.Count > 0 Then
+                                                                    If DdlRetIVAConcepto.SelectedValue.ToEntero = 2 Then
+                                                                        importeMovimiento = importeRetIVAAcreditable
+                                                                        importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
+                                                                        If CtaProveedorRetIVA > 0 Then
+                                                                            IdCtaContable = CtaProveedorRetIVA
+                                                                            CveCuenta = CveCuentaProveedorRetIVA
+                                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then
+                                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).ToEntero
+                                                                        Else
+                                                                            If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+                                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
+                                                                                End If
+                                                                            End If
+                                                                        End If
+
+                                                                        'Agregamos el Opuesto del 184 -> 183
+                                                                        If importeMovimiento <> 0 Then
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 183, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                            End If
+                                                                        End If
+
+                                                                        If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
+                                                                    End If
+                                                                End If
+                                                            End If
+                                                        Case 183 'RetIVA X Acreditar Fletes P.F
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                If DdlRetIVAConcepto.Items.Count > 0 Then
+                                                                    If DdlRetIVAConcepto.SelectedValue.ToEntero = 2 Then
+                                                                        importeMovimiento = importeRetIVAxAcreditar
+                                                                        importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
+                                                                        If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
+                                                                        If CtaProveedorRetIVA > 0 Then
+                                                                            IdCtaContable = CtaProveedorRetIVA
+                                                                            CveCuenta = CveCuentaProveedorRetIVA
+                                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then
+                                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).ToEntero
+                                                                        Else
+                                                                            If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+                                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
+                                                                                End If
+                                                                            End If
+                                                                        End If
+                                                                    End If
+                                                                End If
+                                                            End If
+                                                        Case 248 'RetIVA X Acreditar Arrendamiento
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then
+                                                                    importeMovimiento = importeRetIVAxAcreditar
+                                                                    importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
+                                                                    If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
                                                                     If CtaProveedorRetIVA > 0 Then
                                                                         IdCtaContable = CtaProveedorRetIVA
                                                                         CveCuenta = CveCuentaProveedorRetIVA
-                                                                    ElseIf UsuarioActual.Empresa.Funcionalidad(308).ToEntero > 0 Then
-                                                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(308).ToEntero
+                                                                    ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then
+                                                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero
                                                                     Else
                                                                         If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                                             If ObjConta.DtResultados.Rows.Count > 0 Then
@@ -5655,7 +5763,105 @@ Partial Class Compras_Compras
                                                                         End If
                                                                     End If
 
-                                                                    'Agregamos el Opuesto del 22 -> 15
+                                                                End If
+                                                            End If
+                                                        Case 186 'RetIVA Acreditable Fletes P.M.
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                If DdlRetIVAConcepto.Items.Count > 0 Then
+                                                                    If DdlRetIVAConcepto.SelectedValue.ToEntero = 3 Then
+                                                                        importeMovimiento = importeRetIVAAcreditable
+                                                                        importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
+                                                                        If CtaProveedorRetIVA > 0 Then
+                                                                            IdCtaContable = CtaProveedorRetIVA
+                                                                            CveCuenta = CveCuentaProveedorRetIVA
+                                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then
+                                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).ToEntero
+                                                                        Else
+                                                                            If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+                                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
+                                                                                End If
+                                                                            End If
+                                                                        End If
+
+                                                                        'Agregamos el Opuesto del 186 -> 185
+                                                                        If importeMovimiento <> 0 Then
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 185, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                            End If
+                                                                        End If
+
+                                                                        If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
+                                                                    End If
+                                                                End If
+                                                            End If
+                                                        Case 185 'RetIVA X Acreditar Fletes P.M.
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                If DdlRetIVAConcepto.Items.Count > 0 Then
+                                                                    If DdlRetIVAConcepto.SelectedValue.ToEntero = 3 Then
+                                                                        importeMovimiento = importeRetIVAxAcreditar
+                                                                        importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
+                                                                        If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
+                                                                        If CtaProveedorRetIVA > 0 Then
+                                                                            IdCtaContable = CtaProveedorRetIVA
+                                                                            CveCuenta = CveCuentaProveedorRetIVA
+                                                                        ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then
+                                                                            IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).ToEntero
+                                                                        Else
+                                                                            If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+                                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
+                                                                                End If
+                                                                            End If
+                                                                        End If
+                                                                    End If
+                                                                End If
+                                                            End If
+                                                        Case 249 'RetIVA Acreditable Arrendamiento
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then
+                                                                    importeMovimiento = importeRetIVAAcreditable
+                                                                    importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
+                                                                    If CtaProveedorRetIVA > 0 Then
+                                                                        IdCtaContable = CtaProveedorRetIVA
+                                                                        CveCuenta = CveCuentaProveedorRetIVA
+                                                                    ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then
+                                                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero
+                                                                    Else
+                                                                        If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                                            If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
+                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
+                                                                            End If
+                                                                        End If
+                                                                    End If
+
+                                                                    If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
+                                                                End If
+
+                                                            End If
+                                                        Case 23 'RetISR Acreditable
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 1 Then
+                                                                    importeMovimiento = importeRetISRAcreditable
+                                                                    importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
+                                                                    If CtaProveedorRetISR > 0 Then
+                                                                        IdCtaContable = CtaProveedorRetISR
+                                                                        CveCuenta = CveCuentaProveedorRetISR
+                                                                    ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then
+                                                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(316).ToEntero
+                                                                    Else
+                                                                        If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
+                                                                            If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
+                                                                            End If
+                                                                        End If
+                                                                    End If
+
+                                                                    'Agregamos el Opuesto del 23 -> 16
                                                                     If importeMovimiento <> 0 Then
                                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 15, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
@@ -5665,547 +5871,341 @@ Partial Class Compras_Compras
                                                                     If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
                                                                 End If
                                                             End If
-                                                        End If
-                                                    Case 15 'RetIVA X Acreditar Honorarios/Serv. Prof.
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            If DdlRetIVAConcepto.Items.Count > 0 Then
-                                                                If DdlRetIVAConcepto.SelectedValue.ToEntero = 1 Then
-                                                                    importeMovimiento = importeRetIVAxAcreditar
+                                                        Case 16 'Ret ISR X Acreditar
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 1 Then
+                                                                    importeMovimiento = importeRetISRxAcreditar
                                                                     importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
                                                                     If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
-                                                                    If CtaProveedorRetIVA > 0 Then
-                                                                        IdCtaContable = CtaProveedorRetIVA
-                                                                        CveCuenta = CveCuentaProveedorRetIVA
-                                                                    ElseIf UsuarioActual.Empresa.Funcionalidad(307).ToEntero > 0 Then
-                                                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(307).ToEntero
+                                                                    If CtaProveedorRetISR > 0 Then
+                                                                        IdCtaContable = CtaProveedorRetISR
+                                                                        CveCuenta = CveCuentaProveedorRetISR
+                                                                    ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then
+                                                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(315).ToEntero
                                                                     Else
                                                                         If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                                             If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
+                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
                                                                             End If
                                                                         End If
                                                                     End If
                                                                 End If
                                                             End If
-                                                        End If
-                                                    Case 184 'RetIVA Acreditable Fletes P.F
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            If DdlRetIVAConcepto.Items.Count > 0 Then
-                                                                If DdlRetIVAConcepto.SelectedValue.ToEntero = 2 Then
-                                                                    importeMovimiento = importeRetIVAAcreditable
+                                                        Case 243 'RetISR X Acreditar Terceros y Arrendamiento
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then
+                                                                    importeMovimiento = importeRetISRxAcreditar
                                                                     importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
-                                                                    If CtaProveedorRetIVA > 0 Then
-                                                                        IdCtaContable = CtaProveedorRetIVA
-                                                                        CveCuenta = CveCuentaProveedorRetIVA
-                                                                    ElseIf UsuarioActual.Empresa.Funcionalidad(310).ToEntero > 0 Then
-                                                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(310).ToEntero
+                                                                    If CtaProveedorRetISR > 0 Then
+                                                                        IdCtaContable = CtaProveedorRetISR
+                                                                        CveCuenta = CveCuentaProveedorRetISR
+                                                                    ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then
+                                                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(317).ToEntero
                                                                     Else
                                                                         If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                                             If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
+                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
                                                                             End If
                                                                         End If
                                                                     End If
 
-                                                                    'Agregamos el Opuesto del 184 -> 183
-                                                                    If importeMovimiento <> 0 Then
-                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 183, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                            ErrorPrepoliza = True
-                                                                        End If
-                                                                    End If
-
                                                                     If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
                                                                 End If
                                                             End If
-                                                        End If
-                                                    Case 183 'RetIVA X Acreditar Fletes P.F
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            If DdlRetIVAConcepto.Items.Count > 0 Then
-                                                                If DdlRetIVAConcepto.SelectedValue.ToEntero = 2 Then
-                                                                    importeMovimiento = importeRetIVAxAcreditar
-                                                                    importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
-                                                                    If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
-                                                                    If CtaProveedorRetIVA > 0 Then
-                                                                        IdCtaContable = CtaProveedorRetIVA
-                                                                        CveCuenta = CveCuentaProveedorRetIVA
-                                                                    ElseIf UsuarioActual.Empresa.Funcionalidad(309).ToEntero > 0 Then
-                                                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(309).ToEntero
-                                                                    Else
-                                                                        If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                            If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                                                            End If
-                                                                        End If
-                                                                    End If
-                                                                End If
-                                                            End If
-                                                        End If
-                                                    Case 248 'RetIVA X Acreditar Arrendamiento
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then
-                                                                importeMovimiento = importeRetIVAxAcreditar
-                                                                importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
-                                                                If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
-                                                                If CtaProveedorRetIVA > 0 Then
-                                                                    IdCtaContable = CtaProveedorRetIVA
-                                                                    CveCuenta = CveCuentaProveedorRetIVA
-                                                                ElseIf UsuarioActual.Empresa.Funcionalidad(313).ToEntero > 0 Then
-                                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(313).ToEntero
-                                                                Else
-                                                                    If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                                                        End If
-                                                                    End If
-                                                                End If
-
-                                                            End If
-                                                        End If
-                                                    Case 186 'RetIVA Acreditable Fletes P.M.
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            If DdlRetIVAConcepto.Items.Count > 0 Then
-                                                                If DdlRetIVAConcepto.SelectedValue.ToEntero = 3 Then
-                                                                    importeMovimiento = importeRetIVAAcreditable
+                                                        Case 244 'RetISR Acreditable Terceros y Arrendamiento
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then
+                                                                    importeMovimiento = importeRetISRAcreditable
                                                                     importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
-                                                                    If CtaProveedorRetIVA > 0 Then
-                                                                        IdCtaContable = CtaProveedorRetIVA
-                                                                        CveCuenta = CveCuentaProveedorRetIVA
-                                                                    ElseIf UsuarioActual.Empresa.Funcionalidad(312).ToEntero > 0 Then
-                                                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(312).ToEntero
+                                                                    If CtaProveedorRetISR > 0 Then
+                                                                        IdCtaContable = CtaProveedorRetISR
+                                                                        CveCuenta = CveCuentaProveedorRetISR
+                                                                    ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then
+                                                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero
                                                                     Else
                                                                         If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
                                                                             If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
+                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
+                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
                                                                             End If
                                                                         End If
                                                                     End If
-
-                                                                    'Agregamos el Opuesto del 186 -> 185
+                                                                    'Agregamos el Opuesto del 244 -> 243
                                                                     If importeMovimiento <> 0 Then
-                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 185, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 243, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
                                                                         End If
                                                                     End If
-
                                                                     If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
                                                                 End If
                                                             End If
-                                                        End If
-                                                    Case 185 'RetIVA X Acreditar Fletes P.M.
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            If DdlRetIVAConcepto.Items.Count > 0 Then
-                                                                If DdlRetIVAConcepto.SelectedValue.ToEntero = 3 Then
-                                                                    importeMovimiento = importeRetIVAxAcreditar
-                                                                    importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
-                                                                    If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
-                                                                    If CtaProveedorRetIVA > 0 Then
-                                                                        IdCtaContable = CtaProveedorRetIVA
-                                                                        CveCuenta = CveCuentaProveedorRetIVA
-                                                                    ElseIf UsuarioActual.Empresa.Funcionalidad(311).ToEntero > 0 Then
-                                                                        IdCtaContable = UsuarioActual.Empresa.Funcionalidad(311).ToEntero
-                                                                    Else
-                                                                        If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                            If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                                                            End If
-                                                                        End If
-                                                                    End If
+                                                        Case 64 'Ganancia
+                                                            If tipoCambioActual <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then
+                                                                IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
+                                                                CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
+                                                                If tipoCambioPago < tipoCambioActual Then
+                                                                    importeMovimiento = Math.Abs(tipoCambioPago - tipoCambioActual) * importePagoProv
+                                                                    importeMovimiento -= Math.Abs(tipoCambioPago - tipoCambioActual) * importeIVAAcreditable
+                                                                    importeMovimiento += Math.Abs(tipoCambioPago - tipoCambioActual) * importeRetIVAAcreditable
+                                                                    importeMovimiento += Math.Abs(tipoCambioPago - tipoCambioActual) * importeRetISRAcreditable
+                                                                    importeMN = importeMovimiento
                                                                 End If
+                                                            Else
+                                                                importeMovimiento = 0
                                                             End If
-                                                        End If
-                                                    Case 249 'RetIVA Acreditable Arrendamiento
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            If DdlRetIVAConcepto.Items.Count > 0 AndAlso DdlRetIVAConcepto.SelectedValue.ToEntero = 4 Then
-                                                                importeMovimiento = importeRetIVAAcreditable
-                                                                importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
-                                                                If CtaProveedorRetIVA > 0 Then
-                                                                    IdCtaContable = CtaProveedorRetIVA
-                                                                    CveCuenta = CveCuentaProveedorRetIVA
-                                                                ElseIf UsuarioActual.Empresa.Funcionalidad(314).ToEntero > 0 Then
-                                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(314).ToEntero
-                                                                Else
-                                                                    If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacion").ToString.ToEntero
-                                                                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetIVACirculacionSIG").ToString.ToEntero
-                                                                        End If
-                                                                    End If
+
+                                                        Case 65 'Perdida
+                                                            If tipoCambioActual <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then
+                                                                IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
+                                                                CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
+                                                                If tipoCambioActual < tipoCambioPago Then
+                                                                    importeMovimiento = Math.Abs(tipoCambioPago - tipoCambioActual) * importePagoProv
+                                                                    importeMovimiento -= Math.Abs(tipoCambioPago - tipoCambioActual) * importeIVAAcreditable
+                                                                    importeMovimiento += Math.Abs(tipoCambioPago - tipoCambioActual) * importeRetIVAAcreditable
+                                                                    importeMovimiento += Math.Abs(tipoCambioPago - tipoCambioActual) * importeRetISRAcreditable
+                                                                    importeMN = importeMovimiento
                                                                 End If
-
-                                                                If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
+                                                            Else
+                                                                importeMovimiento = 0
                                                             End If
 
-                                                        End If
-                                                    Case 23 'RetISR Acreditable
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 1 Then
-                                                                importeMovimiento = importeRetISRAcreditable
-                                                                importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
-                                                                If CtaProveedorRetISR > 0 Then
-                                                                    IdCtaContable = CtaProveedorRetISR
-                                                                    CveCuenta = CveCuentaProveedorRetISR
-                                                                ElseIf UsuarioActual.Empresa.Funcionalidad(316).ToEntero > 0 Then
-                                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(316).ToEntero
-                                                                Else
-                                                                    If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                                                                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
-                                                                        End If
-                                                                    End If
-                                                                End If
+                                                        Case 6 'Compra
 
-                                                                'Agregamos el Opuesto del 23 -> 16
-                                                                If importeMovimiento <> 0 Then
-                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 15, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                        ErrorPrepoliza = True
-                                                                    End If
-                                                                End If
-
-                                                                If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
-                                                            End If
-                                                        End If
-                                                    Case 16 'Ret ISR X Acreditar
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 1 Then
-                                                                importeMovimiento = importeRetISRxAcreditar
-                                                                importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
-                                                                If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
-                                                                If CtaProveedorRetISR > 0 Then
-                                                                    IdCtaContable = CtaProveedorRetISR
-                                                                    CveCuenta = CveCuentaProveedorRetISR
-                                                                ElseIf UsuarioActual.Empresa.Funcionalidad(315).ToEntero > 0 Then
-                                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(315).ToEntero
-                                                                Else
-                                                                    If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                                                                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
-                                                                        End If
-                                                                    End If
-                                                                End If
-                                                            End If
-                                                        End If
-                                                    Case 243 'RetISR X Acreditar Terceros y Arrendamiento
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then
-                                                                importeMovimiento = importeRetISRxAcreditar
-                                                                importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
-                                                                If CtaProveedorRetISR > 0 Then
-                                                                    IdCtaContable = CtaProveedorRetISR
-                                                                    CveCuenta = CveCuentaProveedorRetISR
-                                                                ElseIf UsuarioActual.Empresa.Funcionalidad(317).ToEntero > 0 Then
-                                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(317).ToEntero
-                                                                Else
-                                                                    If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                                                                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
-                                                                        End If
-                                                                    End If
-                                                                End If
-
-                                                                If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
-                                                            End If
-                                                        End If
-                                                    Case 244 'RetISR Acreditable Terceros y Arrendamiento
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                            If DdlRetISRConcepto.Items.Count > 0 AndAlso DdlRetISRConcepto.SelectedValue.ToEntero = 2 Then
-                                                                importeMovimiento = importeRetISRAcreditable
-                                                                importeMN = Math.Round(importeMovimiento, 2) * tipoCambioPago * Multiplicador
-                                                                If CtaProveedorRetISR > 0 Then
-                                                                    IdCtaContable = CtaProveedorRetISR
-                                                                    CveCuenta = CveCuentaProveedorRetISR
-                                                                ElseIf UsuarioActual.Empresa.Funcionalidad(318).ToEntero > 0 Then
-                                                                    IdCtaContable = UsuarioActual.Empresa.Funcionalidad(318).ToEntero
-                                                                Else
-                                                                    If ObjConta.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then
-                                                                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacion").ToString.ToEntero
-                                                                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaRetISRCirculacionSIG").ToString.ToEntero
-                                                                        End If
-                                                                    End If
-                                                                End If
-                                                                'Agregamos el Opuesto del 244 -> 243
-                                                                If importeMovimiento <> 0 Then
-                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 243, Concepto + If(tipoCambioActual > 1, $" TC: {tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}", ""), FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento * tipoCambioActual, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                        ErrorPrepoliza = True
-                                                                    End If
-                                                                End If
-                                                                If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioPago} ${importeMovimiento.FormatoNumero(2)}"
-                                                            End If
-                                                        End If
-                                                    Case 64 'Ganancia
-                                                        If tipoCambioActual <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then
-                                                            IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
-                                                            CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
-                                                            If tipoCambioPago < tipoCambioActual Then
-                                                                importeMovimiento = Math.Abs(tipoCambioPago - tipoCambioActual) * importePagoProv
-                                                                importeMovimiento -= Math.Abs(tipoCambioPago - tipoCambioActual) * importeIVAAcreditable
-                                                                importeMovimiento += Math.Abs(tipoCambioPago - tipoCambioActual) * importeRetIVAAcreditable
-                                                                importeMovimiento += Math.Abs(tipoCambioPago - tipoCambioActual) * importeRetISRAcreditable
-                                                                importeMN = importeMovimiento
-                                                            End If
-                                                        Else
-                                                            importeMovimiento = 0
-                                                        End If
-
-                                                    Case 65 'Perdida
-                                                        If tipoCambioActual <> 1 AndAlso TxtFechaPago.Text <> TxtFecha.Text Then
-                                                            IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
-                                                            CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
-                                                            If tipoCambioActual < tipoCambioPago Then
-                                                                importeMovimiento = Math.Abs(tipoCambioPago - tipoCambioActual) * importePagoProv
-                                                                importeMovimiento -= Math.Abs(tipoCambioPago - tipoCambioActual) * importeIVAAcreditable
-                                                                importeMovimiento += Math.Abs(tipoCambioPago - tipoCambioActual) * importeRetIVAAcreditable
-                                                                importeMovimiento += Math.Abs(tipoCambioPago - tipoCambioActual) * importeRetISRAcreditable
-                                                                importeMN = importeMovimiento
-                                                            End If
-                                                        Else
-                                                            importeMovimiento = 0
-                                                        End If
-
-                                                    Case 6 'Compra
-
-                                                        If RBLPago.SelectedValue.ToEntero = 4 Then
-                                                            Exit Select 'Es credito el concepto 6 se agrega en CASE 17
-                                                        End If
-
-                                                        If Not CveCompraRefacturacion > 0 OrElse ChkRefacNC.Checked Then
-                                                            'AF TipoAF 2 Es para las compras
-                                                            DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1")
-                                                            If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
-                                                                For Each Row2 As DataRow In DT.Rows
-                                                                    importeMovimiento = If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, Row2("ImporteSinImpuestos").ToString.ToDecimal, Row2("Total").ToString.ToDecimal)
-                                                                    importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                                    If ObjConta.GetRetCuenta(49, Row2("CveActivoFijo").ToString.ToEntero) Then
-                                                                        If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContActivoFijo").ToString.ToEntero
-                                                                            CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContActivoFijoSIG").ToString.ToEntero
-                                                                        End If
-                                                                    End If
-
-                                                                    If importeMovimiento <> 0 Then
-                                                                        'Conta ContPAQ
-                                                                        If IdCtaContable = 0 Then
-                                                                            CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
-                                                                            idCuentaContabilizacion = 0
-                                                                        End If
-                                                                        'Conta SIG
-                                                                        If CveCuenta = 0 Then
-                                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
-                                                                            CveCuentaContabilizacion = 0
-                                                                        End If
-                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                            ErrorPrepoliza = True
-                                                                        End If
-                                                                    End If
-                                                                Next
+                                                            If RBLPago.SelectedValue.ToEntero = 4 Then
+                                                                Exit Select 'Es credito el concepto 6 se agrega en CASE 17
                                                             End If
 
-                                                            'LIMPIA
-                                                            importeMovimiento = 0
-                                                            IdCtaContable = 0
-                                                            CveCuenta = 0
-
-                                                            'COSTO ALMACEN
-                                                            Dim DtAlmacenes = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
-                                                            If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" 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
-                                                                For Each Dr As DataRow In DT.Rows
-                                                                    If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen =  {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then
-                                                                        Dr("CveAlmacen") = 0
-                                                                    End If
-                                                                    Dr.AcceptChanges()
-                                                                Next
-                                                                DT.AcceptChanges()
-                                                                DT = DT.FiltraParametros("ISNULL(CveAlmacen,0) > 0")
+                                                            If Not CveCompraRefacturacion > 0 OrElse ChkRefacNC.Checked Then
+                                                                'AF TipoAF 2 Es para las compras
+                                                                DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) = 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1")
                                                                 If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
                                                                     For Each Row2 As DataRow In DT.Rows
-
-                                                                        importeMovimiento = TmpDT.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 = {Row2("CveAlmacen")}").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen = {Row2("CveAlmacen")}").ToString.ToDecimal 'Row2("Total").ToString.ToDecimal + Row2("CostoIndirectoAlmacen").ToString.ToDecimal
+                                                                        importeMovimiento = If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, Row2("ImporteSinImpuestos").ToString.ToDecimal, Row2("Total").ToString.ToDecimal)
                                                                         importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                                        If ObjConta.GetRetCuenta(68, GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToString.ToEntero) Then
+                                                                        If ObjConta.GetRetCuenta(49, Row2("CveActivoFijo").ToString.ToEntero) Then
                                                                             If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
-                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
+                                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContActivoFijo").ToString.ToEntero
+                                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContActivoFijoSIG").ToString.ToEntero
                                                                             End If
                                                                         End If
+
                                                                         If importeMovimiento <> 0 Then
                                                                             'Conta ContPAQ
                                                                             If IdCtaContable = 0 Then
-                                                                                CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
+                                                                                CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
                                                                                 idCuentaContabilizacion = 0
                                                                             End If
                                                                             'Conta SIG
                                                                             If CveCuenta = 0 Then
-                                                                                CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
+                                                                                CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 49))("ConceptoContable").ToString)
                                                                                 CveCuentaContabilizacion = 0
                                                                             End If
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Row2("CodAF").ToString, 49, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveActivoFijo:=Row2("CveActivoFijo").ToString.ToEntero, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
                                                                                 ErrorPrepoliza = True
                                                                             End If
                                                                         End If
                                                                     Next
                                                                 End If
-                                                            End If
 
-                                                            'LIMPIA
-                                                            importeMovimiento = 0
-                                                            IdCtaContable = 0
-                                                            CveCuenta = 0
+                                                                'LIMPIA
+                                                                importeMovimiento = 0
+                                                                IdCtaContable = 0
+                                                                CveCuenta = 0
 
-                                                            ''FLETES
-                                                            'If UsuarioActual.CveEmpresa.Contiene(119) And UsuarioActual.Empresa.UsaInventarios And DdlTipoComprobante.SelectedValue <> "NC" And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen.Contiene(237, 240) Then
+                                                                'COSTO ALMACEN
+                                                                Dim DtAlmacenes = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+                                                                If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" 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
+                                                                    For Each Dr As DataRow In DT.Rows
+                                                                        If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen =  {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then
+                                                                            Dr("CveAlmacen") = 0
+                                                                        End If
+                                                                        Dr.AcceptChanges()
+                                                                    Next
+                                                                    DT.AcceptChanges()
+                                                                    DT = DT.FiltraParametros("ISNULL(CveAlmacen,0) > 0")
+                                                                    If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
+                                                                        For Each Row2 As DataRow In DT.Rows
 
-                                                            'End If
-                                                            Dim CostoIndirectoAcum176 As Decimal = 0
-                                                            'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ]
-                                                            If UsuarioActual.CveEmpresa.Contiene(1, 119) And UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen.Contiene(205, 176, 237, 240) Then
-
-                                                                importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND (ISNULL(CveTipoPS,0) = 2 OR (ISNULL(CveTipoPS,0) = 1 AND ISNULL(AplicaCostoIndirecto,0) = 1))").ToString.ToDecimal
-                                                                importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-
-                                                                Dim ConceptoContabilizacion = 205
-                                                                Dim ConceptoContabilizacionME = -1
-                                                                Dim IdCtaContableME = -1
-                                                                Dim ConceptoContabilizacionMEComp = -1
-                                                                Dim IdCtaContableMEComp = -1
-
-                                                                If OCVinculada Or CveConceptoContableAlmacen.Contiene(237, 240) Then
-                                                                    ConceptoContabilizacion = CveConceptoContableAlmacen
-                                                                End If
-                                                                Dim UsaComplementariaFleteImportaciones As Boolean = False
-
-                                                                Select Case ConceptoContabilizacion
-                                                                    Case 176
-                                                                        ConceptoContabilizacionME = 228
-                                                                        ConceptoContabilizacionMEComp = 229
-                                                                    Case 205
-                                                                        ConceptoContabilizacionME = 230
-                                                                        ConceptoContabilizacionMEComp = 231
-                                                                    Case 237
-                                                                        ConceptoContabilizacionME = 238
-                                                                        ConceptoContabilizacionMEComp = 239
-                                                                        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
-                                                                    Case 240
-                                                                        ConceptoContabilizacionME = 241
-                                                                        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
-
-                                                                If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                                            importeMovimiento = TmpDT.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 = {Row2("CveAlmacen")}").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen = {Row2("CveAlmacen")}").ToString.ToDecimal 'Row2("Total").ToString.ToDecimal + Row2("CostoIndirectoAlmacen").ToString.ToDecimal
+                                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                                            If ObjConta.GetRetCuenta(68, GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToString.ToEntero) Then
+                                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
+                                                                                End If
+                                                                            End If
+                                                                            If importeMovimiento <> 0 Then
+                                                                                'Conta ContPAQ
+                                                                                If IdCtaContable = 0 Then
+                                                                                    CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
+                                                                                    idCuentaContabilizacion = 0
+                                                                                End If
+                                                                                'Conta SIG
+                                                                                If CveCuenta = 0 Then
+                                                                                    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
+                                                                                    CveCuentaContabilizacion = 0
+                                                                                End If
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 68, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                    ErrorPrepoliza = True
+                                                                                End If
+                                                                            End If
+                                                                        Next
+                                                                    End If
                                                                 End If
 
-                                                                If ObjConta.GetRetCuenta(ConceptoContabilizacionME, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContableME = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
-                                                                End If
+                                                                'LIMPIA
+                                                                importeMovimiento = 0
+                                                                IdCtaContable = 0
+                                                                CveCuenta = 0
 
-                                                                If ObjConta.GetRetCuenta(ConceptoContabilizacionMEComp, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContableMEComp = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
-                                                                End If
+                                                                ''FLETES
+                                                                'If UsuarioActual.CveEmpresa.Contiene(119) And UsuarioActual.Empresa.UsaInventarios And DdlTipoComprobante.SelectedValue <> "NC" And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen.Contiene(237, 240) Then
+
+                                                                'End If
+                                                                Dim CostoIndirectoAcum176 As Decimal = 0
+                                                                'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ]
+                                                                If UsuarioActual.CveEmpresa.Contiene(1, 119) And UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And CveConceptoContableAlmacen.Contiene(205, 176, 237, 240) Then
+
+                                                                    importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND (ISNULL(CveTipoPS,0) = 2 OR (ISNULL(CveTipoPS,0) = 1 AND ISNULL(AplicaCostoIndirecto,0) = 1))").ToString.ToDecimal
+                                                                    importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+
+                                                                    Dim ConceptoContabilizacion = 205
+                                                                    Dim ConceptoContabilizacionME = -1
+                                                                    Dim IdCtaContableME = -1
+                                                                    Dim ConceptoContabilizacionMEComp = -1
+                                                                    Dim IdCtaContableMEComp = -1
+
+                                                                    If OCVinculada Or CveConceptoContableAlmacen.Contiene(237, 240) Then
+                                                                        ConceptoContabilizacion = CveConceptoContableAlmacen
+                                                                    End If
+                                                                    Dim UsaComplementariaFleteImportaciones As Boolean = False
+
+                                                                    Select Case ConceptoContabilizacion
+                                                                        Case 176
+                                                                            ConceptoContabilizacionME = 228
+                                                                            ConceptoContabilizacionMEComp = 229
+                                                                        Case 205
+                                                                            ConceptoContabilizacionME = 230
+                                                                            ConceptoContabilizacionMEComp = 231
+                                                                        Case 237
+                                                                            ConceptoContabilizacionME = 238
+                                                                            ConceptoContabilizacionMEComp = 239
+                                                                            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
+                                                                        Case 240
+                                                                            ConceptoContabilizacionME = 241
+                                                                            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
+
+                                                                    If ObjConta.GetRetCuenta(ConceptoContabilizacion, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                                    End If
+
+                                                                    If ObjConta.GetRetCuenta(ConceptoContabilizacionME, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                        IdCtaContableME = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                                    End If
+
+                                                                    If ObjConta.GetRetCuenta(ConceptoContabilizacionMEComp, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                        IdCtaContableMEComp = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                                    End If
 
 
-                                                                'If importeMovimiento <> 0 Then
-                                                                Select Case ConceptoContabilizacion
-                                                                    Case 176
-                                                                        Dim SumatoriaOCINV = 0.0D, Importe176 = 0.0D, ImporteME176 = 0.0D, ImporteMN176 = 0.0D, Importe228 = 0.0D, ImporteME228 = 0.0D, ImporteMN228 = 0.0D, Importe229 = 0.0D, ImporteME229 = 0.0D, ImporteMN229 = 0.0D, ImporteCI176 = 0.0D
-                                                                        For Each Dr As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND ISNULL(CveTipoPS,0) = 2").Rows
-                                                                            If ObjOC.OrdenesCompraDetalleCostoPP(Dr("CveOrdenCompraDetalle").ToString.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count = 1 Then
-                                                                                Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text} OC: {ObjOC.DtResultados.FiltroPrimeroValor("Folio").ToString}"
-                                                                                Importe176 = ObjOC.DtResultados.FiltroPrimeroValor("Importe176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN176").ToDecimal * Dr("Cantidad").ToString.ToDecimal
-                                                                                Importe228 = ObjOC.DtResultados.FiltroPrimeroValor("Importe228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN228").ToDecimal * Dr("Cantidad").ToString.ToDecimal
-                                                                                Importe229 = ObjOC.DtResultados.FiltroPrimeroValor("Importe229").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME229 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME229").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN229 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN229").ToDecimal * Dr("Cantidad").ToString.ToDecimal
-                                                                                ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI176").ToDecimal
-                                                                                Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal
-                                                                                'RMF. falta verificar el costo indirecto de la OC
-                                                                                If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
-                                                                                    ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal
-                                                                                    CostoIndirectoAcum176 += ImporteCI176
-                                                                                    'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
-                                                                                    SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN228 + ImporteMN229 - ImporteCI176)
-                                                                                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe228, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN228, ImporteME:=ImporteME228, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, Contabilizable:=SeContabiliza) Then
-                                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe229, Referencia, ConceptoContabilizacionMEComp, Concepto, FechaMovimiento, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN229, ImporteME:=ImporteME229, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, Contabilizable:=SeContabiliza) Then
+                                                                    'If importeMovimiento <> 0 Then
+                                                                    Select Case ConceptoContabilizacion
+                                                                        Case 176
+                                                                            Dim SumatoriaOCINV = 0.0D, Importe176 = 0.0D, ImporteME176 = 0.0D, ImporteMN176 = 0.0D, Importe228 = 0.0D, ImporteME228 = 0.0D, ImporteMN228 = 0.0D, Importe229 = 0.0D, ImporteME229 = 0.0D, ImporteMN229 = 0.0D, ImporteCI176 = 0.0D
+                                                                            For Each Dr As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND ISNULL(CveTipoPS,0) = 2").Rows
+                                                                                If ObjOC.OrdenesCompraDetalleCostoPP(Dr("CveOrdenCompraDetalle").ToString.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count = 1 Then
+                                                                                    Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text} OC: {ObjOC.DtResultados.FiltroPrimeroValor("Folio").ToString}"
+                                                                                    Importe176 = ObjOC.DtResultados.FiltroPrimeroValor("Importe176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN176").ToDecimal * Dr("Cantidad").ToString.ToDecimal
+                                                                                    Importe228 = ObjOC.DtResultados.FiltroPrimeroValor("Importe228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN228").ToDecimal * Dr("Cantidad").ToString.ToDecimal
+                                                                                    Importe229 = ObjOC.DtResultados.FiltroPrimeroValor("Importe229").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME229 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME229").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN229 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN229").ToDecimal * Dr("Cantidad").ToString.ToDecimal
+                                                                                    ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI176").ToDecimal
+                                                                                    Dim TCAjuste As Decimal = ObjOC.DtResultados.FiltroPrimeroValor("TipoCambioAjuste").ToDecimal
+                                                                                    'RMF. falta verificar el costo indirecto de la OC
+                                                                                    If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
+                                                                                        ImporteCI176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteCI228").ToDecimal
+                                                                                        CostoIndirectoAcum176 += ImporteCI176
+                                                                                        'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
+                                                                                        SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN228 + ImporteMN229 - ImporteCI176)
+                                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe228, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN228, ImporteME:=ImporteME228, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, Contabilizable:=SeContabiliza) Then
+                                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe229, Referencia, ConceptoContabilizacionMEComp, Concepto, FechaMovimiento, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN229, ImporteME:=ImporteME229, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, TipoCambio:=TCAjuste, Contabilizable:=SeContabiliza) Then
+                                                                                                ErrorPrepoliza = True
+                                                                                                Exit For
+                                                                                            End If
+                                                                                        Else
                                                                                             ErrorPrepoliza = True
                                                                                             Exit For
                                                                                         End If
                                                                                     Else
-                                                                                        ErrorPrepoliza = True
-                                                                                        Exit For
+                                                                                        CostoIndirectoAcum176 += ImporteCI176
+                                                                                        'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
+                                                                                        SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN176 - ImporteCI176)
+                                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
+                                                                                            ErrorPrepoliza = True
+                                                                                            Exit For
+                                                                                        End If
                                                                                     End If
                                                                                 Else
-                                                                                    CostoIndirectoAcum176 += ImporteCI176
-                                                                                    'se considera costoindirecto, para que la factura tiene en un concepto tipo servicio
-                                                                                    SumatoriaOCINV += (Dr(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total")).ToString.ToDecimal * tipoCambioActual) - (ImporteMN176 - ImporteCI176)
-                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, Importe176, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=ImporteMN176, ImporteME:=ImporteME176, CveCuenta:=CveCuenta, CveOCDetalle:=Dr("CveOrdenCompraDetalle").ToString.ToEntero, Contabilizable:=SeContabiliza) Then
-                                                                                        ErrorPrepoliza = True
-                                                                                        Exit For
-                                                                                    End If
+                                                                                    Alert("Ocurrió un error al procesar la mercancia recibida por adelantado. Por favor comuniquese con asistencia SIG", TipoMensaje.MsgError)
+                                                                                    ErrorPrepoliza = True
+                                                                                    Exit For
+                                                                                End If
+                                                                            Next
+                                                                            If SumatoriaOCINV.RoundSQL <> 0 Then
+                                                                                ' se abona el costo, cambiamos su naturaleza
+                                                                                SumatoriaOCINV = -SumatoriaOCINV
+                                                                                Dim CveClasificacionCostoOC = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero
+                                                                                IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
+                                                                                CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                    ErrorPrepoliza = True
+                                                                                    Exit For
                                                                                 End If
-                                                                            Else
-                                                                                Alert("Ocurrió un error al procesar la mercancia recibida por adelantado. Por favor comuniquese con asistencia SIG", TipoMensaje.MsgError)
-                                                                                ErrorPrepoliza = True
-                                                                                Exit For
                                                                             End If
-                                                                        Next
-                                                                        If SumatoriaOCINV.RoundSQL <> 0 Then
-                                                                            ' se abona el costo, cambiamos su naturaleza
-                                                                            SumatoriaOCINV = -SumatoriaOCINV
-                                                                            Dim CveClasificacionCostoOC = TmpDT.FiltroPrimeroValor("CveClasificacion", "ISNULL(TipoAF, 0) <> 2 And ISNULL(CveAlmacen, 0) = 0 And ISNULL(AplicaCostoIndirecto, 0) <> 1 And ISNULL(CveTipoPS, 0) = 2").ToEntero
-                                                                            IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
-                                                                            CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                                ErrorPrepoliza = True
-                                                                                Exit For
-                                                                            End If
-                                                                        End If
-                                                                    Case 205, 237, 240
-                                                                        Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
-                                                                        If DdlMoneda.SelectedValue.ToEntero <> 1 AndAlso UsaComplementariaFleteImportaciones Then
-                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN - importeMovimiento, Referencia, ConceptoContabilizacionMEComp, Concepto, FechaMovimiento, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN - importeMovimiento, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                        Case 205, 237, 240
+                                                                            Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
+                                                                            If DdlMoneda.SelectedValue.ToEntero <> 1 AndAlso UsaComplementariaFleteImportaciones Then
+                                                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionME, Concepto, FechaMovimiento, IdCtaContableME, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMovimiento, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN - importeMovimiento, Referencia, ConceptoContabilizacionMEComp, Concepto, FechaMovimiento, IdCtaContableMEComp, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN - importeMovimiento, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+                                                                                Else
                                                                                     ErrorPrepoliza = True
                                                                                 End If
                                                                             Else
-                                                                                ErrorPrepoliza = True
+
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                    ErrorPrepoliza = True
+                                                                                End If
                                                                             End If
-                                                                        Else
+                                                                    End Select
+                                                                    'End If
 
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMN, Referencia, ConceptoContabilizacion, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                                ErrorPrepoliza = True
-                                                                            End If
-                                                                        End If
-                                                                End Select
-                                                                'End If
-
-                                                            End If
-
-
-                                                            'NC CON PRODUCTOS - CUENTA PUENTE
-                                                            If UsuarioActual.CveEmpresa.Contiene(119) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-
-                                                                importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
-                                                                importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-
-                                                                Dim ConceptoContabilizacionNC = 225
-
-                                                                If ObjConta.GetRetCuenta(ConceptoContabilizacionNC, UsuarioActual.CveEmpresa) Then
-                                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
-                                                                    End If
                                                                 End If
 
-                                                                Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
+
+                                                                'NC CON PRODUCTOS - CUENTA PUENTE
+                                                                If UsuarioActual.CveEmpresa.Contiene(119) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+
+                                                                    importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal
+                                                                    importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+
+                                                                    Dim ConceptoContabilizacionNC = 225
+
+                                                                    If ObjConta.GetRetCuenta(ConceptoContabilizacionNC, UsuarioActual.CveEmpresa) Then
+                                                                        If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                            IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                                        End If
+                                                                    End If
+
+                                                                    Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
 
                                                                     'Conta ContPAQ
                                                                     If IdCtaContable = 0 Then
@@ -6225,551 +6225,489 @@ Partial Class Compras_Compras
 
 
                                                                     Dim ContienePSNeteoBonif As Boolean = False
-                                                                For Each Dr As DataRow In TmpDT.Rows
-                                                                    If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
-                                                                        ContienePSNeteoBonif = True
-                                                                        Exit For
+                                                                    For Each Dr As DataRow In TmpDT.Rows
+                                                                        If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
+                                                                            ContienePSNeteoBonif = True
+                                                                            Exit For
+                                                                        End If
+                                                                    Next
+
+                                                                    If ContienePSNeteoBonif Then
+                                                                        importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
+                                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                                        Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
+                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                            End If
+                                                                        Else
+                                                                            ErrorPrepoliza = True
+                                                                        End If
+                                                                    End If
+
+                                                                End If
+
+
+
+                                                                If Not ChkNCInvNC.Checked OrElse Not ListaDocumentos.Count > 0 Then
+                                                                    'GASTO
+                                                                    If UsuarioActual.CveEmpresa = 119 Then
+                                                                        DT = TmpDT
+                                                                    Else
+                                                                        DT = TmpDT.FiltraParametros("ISNULL(AplicaCostoIndirecto,0) <> 1")
+                                                                    End If
+                                                                    'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
+                                                                    For Each Dr As DataRow In DT.Rows
+                                                                        If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen =  {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then
+                                                                            Dr("CveAlmacen") = 0
+                                                                        End If
+                                                                        Dr.AcceptChanges()
+                                                                    Next
+                                                                    DT.AcceptChanges()
+                                                                    DtAlmacenes.Dispose()
+
+                                                                    'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS]
+                                                                    If UsuarioActual.CveEmpresa.Contiene(1, 119) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                                                        DT = DT.FiltraParametros("ISNULL(CveTipoPS,0) <> 2")
+                                                                    End If
+
+                                                                    Dim DTDistinct = DT.Copy
+                                                                    If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF, 0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                                                    Else
+                                                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "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 Then
+                                                                        DTDistinct.Clear()
+                                                                    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(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
+
+                                                                            'CLASIFICACION
+                                                                            If Row2("CveClasificacion").ToString.ToEntero > 0 Then
+                                                                                If ObjConta.GetRetCuenta(6, Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero) Then
+                                                                                    If ObjConta.DtResultados.Rows.Count > 0 AndAlso ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero > 0 Then
+                                                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero
+                                                                                        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero
+                                                                                    Else
+                                                                                        IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero
+                                                                                        CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero
+                                                                                    End If
+                                                                                End If
+                                                                            End If
+
+                                                                            'SEGMENTO DE NEGOCIO
+                                                                            Dim IdSegmentoNegocio As Integer = -1
+                                                                            Dim drT As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero).FiltroPrimero(String.Format("CveSubProyecto = {0} ", Row2("CveSubProyecto").ToString.ToEntero))
+                                                                            If drT IsNot Nothing Then
+                                                                                IdSegmentoNegocio = drT("IdSegNeg").ToString.ToEntero
+                                                                            End If
+
+                                                                            'AGREGA MOVIMIENTO
+                                                                            If importeMovimiento.RoundSQL <> 0 Then
+                                                                                'Conta ContPAQ
+                                                                                If IdCtaContable = 0 Then
+                                                                                    CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
+                                                                                    idCuentaContabilizacion = 0
+                                                                                End If
+                                                                                'Conta SIG
+                                                                                If CveCuenta = 0 Then
+                                                                                    CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
+                                                                                    CveCuentaContabilizacion = 0
+                                                                                End If
+
+                                                                                Dim tcvecon As Integer = 6
+                                                                                Dim tidctacon As Integer = 6
+                                                                                tidctacon = IdCtaContable
+                                                                                If DdlTipoComprobante.SelectedValue = "Ant" Then
+                                                                                    tcvecon = 264
+                                                                                    tidctacon = ViewState("CtaProveedorAnticipos").ToString.ToEntero
+                                                                                    If DdlMoneda.SelectedValue = "2" Then
+                                                                                        tidctacon = ViewState("CtaProveedorAnticiposExtranjera").ToString.ToEntero
+                                                                                    End If
+                                                                                End If
+
+                                                                                Dim usacomplementariaProveedor As Boolean = False
+                                                                                usacomplementariaProveedor = If(tipoCambioActual > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False)
+
+                                                                                If usacomplementariaProveedor AndAlso DdlTipoComprobante.SelectedValue = "Ant" Then
+                                                                                    'importeMovimiento
+
+                                                                                    Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
+                                                                                    importeMN = tipoCambioActual * importeMovimiento - importeMovimiento
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 266, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+                                                                                    importeMN = importeMovimiento
+                                                                                End If
+
+                                                                                Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, tcvecon, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                    ErrorPrepoliza = True
+                                                                                End If
+
+
+
+
+
+                                                                            End If
+
+                                                                        Next
+                                                                    End If
+                                                                End If
+
+
+                                                                'LIMPIA
+                                                                importeMovimiento = 0
+                                                                IdCtaContable = 0
+                                                                CveCuenta = 0
+                                                            End If
+                                                        Case 5 'Proveedores
+                                                            If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
+
+                                                                importeMovimiento = importeProv
+                                                                importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+
+                                                                If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
+
+                                                                If tipoCambioActual = 1 Then
+                                                                    IdCtaContable = CtaProveedor
+                                                                    CveCuenta = CveCuentaProveedor
+                                                                Else
+                                                                    IdCtaContable = CtaProveedorComplementaria
+                                                                    CveCuenta = CveCuentaProveedorComplementaria
+                                                                    If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
+                                                                        importeMN = importeMovimiento
+                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, 201, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                            ErrorPrepoliza = True
+                                                                        End If
+                                                                    End If
+                                                                    IdCtaContable = CtaProveedorExtranjera
+                                                                    CveCuenta = CveCuentaProveedorExtranjera
+                                                                End If
+                                                            End If
+
+                                                        Case 59 'Documentos
+                                                            importeMovimiento = importeCreditos
+                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                            If ObjConta.GetRetCuenta(ConceptoContable, CveProveedor) Then
+                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                        IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
+                                                                        CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
+                                                                    End If
+                                                                End If
+                                                            End If
+
+                                                        Case 37 'Deudores
+                                                            If RBLTipoDeudor.SelectedValue.ToEntero = 1 Then
+                                                                For Each rw As GridViewRow In GvDeudores.Rows
+                                                                    If rw.FCCheckBox("Chk").Checked Then
+                                                                        importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
+                                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                                        IdCtaContable = CtaProveedorDeudores
+                                                                        CveCuenta = CveCuentaProveedorDeudores
+
+                                                                        'Conta ContPAQ
+                                                                        If IdCtaContable = 0 Then
+                                                                            CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
+                                                                            idCuentaContabilizacion = 0
+                                                                        End If
+                                                                        'Conta SIG
+                                                                        If CveCuenta = 0 Then
+                                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
+                                                                            CveCuentaContabilizacion = 0
+                                                                        End If
+
+                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                            ErrorPrepoliza = True
+                                                                        End If
                                                                     End If
                                                                 Next
+                                                            Else
+                                                                For Each rw As GridViewRow In GvDeudores.Rows
+                                                                    If rw.FCCheckBox("Chk").Checked Then
+                                                                        importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
+                                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                                        IdCtaContable = CtaProveedorDeudores
+                                                                        CveCuenta = CveCuentaProveedorDeudores
 
-                                                                If ContienePSNeteoBonif Then
-                                                                    importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 ").ToString.ToDecimal
-                                                                    importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                                    Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero
-                                                                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -importeMovimiento, Referencia, 259, Concepto, FechaMovimiento, IdCtaContableDescCompra, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=-importeMN, ImporteME:=If(tipoCambioActual = 1, 0, -importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                             ErrorPrepoliza = True
                                                                         End If
+                                                                    End If
+                                                                Next
+                                                            End If
+
+                                                            importeMovimiento = 0
+
+                                                        Case 41 'Acreedores
+                                                            importeMovimiento = importeAcreedores
+                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+
+                                                            IdCtaContable = CtaProveedorAcreedores
+                                                            CveCuenta = CveCuentaProveedorAcreedores
+
+                                                        Case 42 'Acreedores
+                                                            importeMovimiento = importeAcreedoresTarjeta
+                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                            IdCtaContable = CtaProveedorAcreedores
+                                                            CveCuenta = CveCuentaProveedorAcreedores
+
+                                                        Case 18 'NC - Notas de Credito
+                                                            importeMovimiento = importeNC
+                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                            If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
+                                                            IdCtaContable = CtaProveedor
+                                                            CveCuenta = CveCuentaProveedor
+                                                            If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
+                                                                IdCtaContable = CtaProveedorExtranjera
+                                                                CveCuenta = CveCuentaProveedorExtranjera
+                                                            End If
+
+                                                            If importeMovimiento <> 0 Then
+                                                                GuardoConcepto18 = True
+                                                                If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
+
+                                                                    'PROVISION
+                                                                    IdCtaContable = CtaProveedorExtranjera
+                                                                    CveCuenta = CveCuentaProveedorExtranjera
+                                                                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                        IdCtaContable = CtaProveedorComplementaria
+                                                                        CveCuenta = CveCuentaProveedorComplementaria
+                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, 234, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                            ErrorPrepoliza = True
+                                                                            Exit Select
+                                                                        End If
                                                                     Else
                                                                         ErrorPrepoliza = True
-                                                                    End If
-                                                                End If
-
-                                                            End If
-
-
-
-                                                            If Not ChkNCInvNC.Checked OrElse Not ListaDocumentos.Count > 0 Then
-                                                                'GASTO
-                                                                If UsuarioActual.CveEmpresa = 119 Then
-                                                                    DT = TmpDT
-                                                                Else
-                                                                    DT = TmpDT.FiltraParametros("ISNULL(AplicaCostoIndirecto,0) <> 1")
-                                                                End If
-                                                                'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
-                                                                For Each Dr As DataRow In DT.Rows
-                                                                    If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen =  {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then
-                                                                        Dr("CveAlmacen") = 0
-                                                                    End If
-                                                                    Dr.AcceptChanges()
-                                                                Next
-                                                                DT.AcceptChanges()
-                                                                DtAlmacenes.Dispose()
-
-                                                                'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS]
-                                                                If UsuarioActual.CveEmpresa.Contiene(1, 119) And UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-                                                                    DT = DT.FiltraParametros("ISNULL(CveTipoPS,0) <> 2")
-                                                                End If
-
-                                                                Dim DTDistinct = DT.Copy
-                                                                If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
-                                                                    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF, 0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
-                                                                Else
-                                                                    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveProyecto", "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 Then
-                                                                    DTDistinct.Clear()
-                                                                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(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
-
-                                                                        'CLASIFICACION
-                                                                        If Row2("CveClasificacion").ToString.ToEntero > 0 Then
-                                                                            If ObjConta.GetRetCuenta(6, Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero) Then
-                                                                                If ObjConta.DtResultados.Rows.Count > 0 AndAlso ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero > 0 Then
-                                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCuentaGasto").ToString.ToEntero
-                                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCuentaGastoSIG").ToString.ToEntero
-                                                                                Else
-                                                                                    IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero
-                                                                                    CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", String.Format("CveClasificacion = {0}", Row2("CveClasificacion"))).ToString.ToEntero
-                                                                                End If
-                                                                            End If
-                                                                        End If
-
-                                                                        'SEGMENTO DE NEGOCIO
-                                                                        Dim IdSegmentoNegocio As Integer = -1
-                                                                        Dim drT As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero).FiltroPrimero(String.Format("CveSubProyecto = {0} ", Row2("CveSubProyecto").ToString.ToEntero))
-                                                                        If drT IsNot Nothing Then
-                                                                            IdSegmentoNegocio = drT("IdSegNeg").ToString.ToEntero
-                                                                        End If
-
-                                                                        'AGREGA MOVIMIENTO
-                                                                        If importeMovimiento.RoundSQL <> 0 Then
-                                                                            'Conta ContPAQ
-                                                                            If IdCtaContable = 0 Then
-                                                                                CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
-                                                                                idCuentaContabilizacion = 0
-                                                                            End If
-                                                                            'Conta SIG
-                                                                            If CveCuenta = 0 Then
-                                                                                CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 6))("ConceptoContable").ToString)
-                                                                                CveCuentaContabilizacion = 0
-                                                                            End If
-
-                                                                            Dim tcvecon As Integer = 6
-                                                                            Dim tidctacon As Integer = 6
-                                                                            tidctacon = IdCtaContable
-                                                                            If DdlTipoComprobante.SelectedValue = "Ant" Then
-                                                                                tcvecon = 264
-                                                                                tidctacon = ViewState("CtaProveedorAnticipos").ToString.ToEntero
-                                                                                If DdlMoneda.SelectedValue = "2" Then
-                                                                                    tidctacon = ViewState("CtaProveedorAnticiposExtranjera").ToString.ToEntero
-                                                                                End If
-                                                                            End If
-
-                                                                            Dim usacomplementariaProveedor As Boolean = False
-                                                                            usacomplementariaProveedor = If(tipoCambioActual > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False)
-
-                                                                            If usacomplementariaProveedor AndAlso DdlTipoComprobante.SelectedValue = "Ant" Then
-                                                                                'importeMovimiento
-
-                                                                                Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
-                                                                                importeMN = tipoCambioActual * importeMovimiento - importeMovimiento
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 266, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                                    ErrorPrepoliza = True
-                                                                                End If
-                                                                                importeMN = importeMovimiento
-                                                                            End If
-
-                                                                            Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, tcvecon, Concepto, FechaMovimiento, tidctacon, IdSegmentoNegocio, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, CveTipoGasto:=Row2("CveTipoGasto").ToString.ToEntero, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                                ErrorPrepoliza = True
-                                                                            End If
-
-
-
-
-
-                                                                        End If
-
-                                                                    Next
-                                                                End If
-                                                            End If
-
-
-                                                            'LIMPIA
-                                                            importeMovimiento = 0
-                                                            IdCtaContable = 0
-                                                            CveCuenta = 0
-                                                        End If
-                                                    Case 5 'Proveedores
-                                                        If Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then
-
-                                                            importeMovimiento = importeProv
-                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-
-                                                            If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
-
-                                                            If tipoCambioActual = 1 Then
-                                                                IdCtaContable = CtaProveedor
-                                                                CveCuenta = CveCuentaProveedor
-                                                            Else
-                                                                IdCtaContable = CtaProveedorComplementaria
-                                                                CveCuenta = CveCuentaProveedorComplementaria
-                                                                If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then
-                                                                    importeMN = importeMovimiento
-                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, 201, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                        ErrorPrepoliza = True
-                                                                    End If
-                                                                End If
-                                                                IdCtaContable = CtaProveedorExtranjera
-                                                                CveCuenta = CveCuentaProveedorExtranjera
-                                                            End If
-                                                        End If
-
-                                                    Case 59 'Documentos
-                                                        importeMovimiento = importeCreditos
-                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                        If ObjConta.GetRetCuenta(ConceptoContable, CveProveedor) Then
-                                                            If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero
-                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContableSIG").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                        End If
-
-                                                    Case 37 'Deudores
-                                                        If RBLTipoDeudor.SelectedValue.ToEntero = 1 Then
-                                                            For Each rw As GridViewRow In GvDeudores.Rows
-                                                                If rw.FCCheckBox("Chk").Checked Then
-                                                                    importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
-                                                                    importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                                    IdCtaContable = CtaProveedorDeudores
-                                                                    CveCuenta = CveCuentaProveedorDeudores
-
-                                                                    'Conta ContPAQ
-                                                                    If IdCtaContable = 0 Then
-                                                                        CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                                        idCuentaContabilizacion = 0
-                                                                    End If
-                                                                    'Conta SIG
-                                                                    If CveCuenta = 0 Then
-                                                                        CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                                        CveCuentaContabilizacion = 0
-                                                                    End If
-
-                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                        ErrorPrepoliza = True
-                                                                    End If
-                                                                End If
-                                                            Next
-                                                        Else
-                                                            For Each rw As GridViewRow In GvDeudores.Rows
-                                                                If rw.FCCheckBox("Chk").Checked Then
-                                                                    importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
-                                                                    importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                                    IdCtaContable = CtaProveedorDeudores
-                                                                    CveCuenta = CveCuentaProveedorDeudores
-
-                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                        ErrorPrepoliza = True
-                                                                    End If
-                                                                End If
-                                                            Next
-                                                        End If
-
-                                                        importeMovimiento = 0
-
-                                                    Case 41 'Acreedores
-                                                        importeMovimiento = importeAcreedores
-                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-
-                                                        IdCtaContable = CtaProveedorAcreedores
-                                                        CveCuenta = CveCuentaProveedorAcreedores
-
-                                                    Case 42 'Acreedores
-                                                        importeMovimiento = importeAcreedoresTarjeta
-                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                        IdCtaContable = CtaProveedorAcreedores
-                                                        CveCuenta = CveCuentaProveedorAcreedores
-
-                                                    Case 18 'NC - Notas de Credito
-                                                        importeMovimiento = importeNC
-                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                        If tipoCambioActual > 1 Then Concepto += $" TC:{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
-                                                        IdCtaContable = CtaProveedor
-                                                        CveCuenta = CveCuentaProveedor
-                                                        If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
-                                                            IdCtaContable = CtaProveedorExtranjera
-                                                            CveCuenta = CveCuentaProveedorExtranjera
-                                                        End If
-
-                                                        If importeMovimiento <> 0 Then
-                                                            GuardoConcepto18 = True
-                                                            If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
-
-                                                                'PROVISION
-                                                                IdCtaContable = CtaProveedorExtranjera
-                                                                CveCuenta = CveCuentaProveedorExtranjera
-                                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                    IdCtaContable = CtaProveedorComplementaria
-                                                                    CveCuenta = CveCuentaProveedorComplementaria
-                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, 234, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                        ErrorPrepoliza = True
                                                                         Exit Select
                                                                     End If
-                                                                Else
-                                                                    ErrorPrepoliza = True
-                                                                    Exit Select
-                                                                End If
 
-                                                                'AMORTIZACIÓN EN EL REGISTRO
-                                                                For Each Gvr As GridViewRow In GvFacturaNC.Rows
-                                                                    If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
-                                                                        Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
-                                                                        Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
-                                                                        Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
-                                                                        Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal
-
-                                                                        IdCtaContable = CtaProveedorExtranjera
-                                                                        CveCuenta = CveCuentaProveedorExtranjera
-                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMovimientoNC, Referencia, 17, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                            IdCtaContable = CtaProveedorComplementaria
-                                                                            CveCuenta = CveCuentaProveedorComplementaria
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMNNC - importeMovimientoNC, Referencia, 206, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                                ErrorPrepoliza = True
-                                                                                Exit For
-                                                                            End If
-                                                                        Else
-                                                                            ErrorPrepoliza = True
-                                                                            Exit For
-                                                                        End If
-
-
-                                                                        importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
-                                                                        IdCtaContable = CtaProveedorExtranjera
-                                                                        CveCuenta = CveCuentaProveedorExtranjera
-                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                            IdCtaContable = CtaProveedorComplementaria
-                                                                            CveCuenta = CveCuentaProveedorComplementaria
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMNNC - importeMovimientoNC, Referencia, 235, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                                ErrorPrepoliza = True
-                                                                                Exit For
-                                                                            End If
-                                                                        Else
-                                                                            ErrorPrepoliza = True
-                                                                            Exit For
-                                                                        End If
-
-                                                                        ' FLUCTUACION CAMBIARIA
-                                                                        If tipoCambioActual <> TipoCambioFactura Then
-                                                                            importeMovimiento = (importeMovimientoNC * TipoCambioFactura) - (importeMovimientoNC * tipoCambioActual)
-
-                                                                            If importeMovimiento > 0 Then
-                                                                                ConceptoContable = 64
-                                                                                TipoMovimiento = True
-                                                                                IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
-                                                                                CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
-                                                                            ElseIf importeMovimiento < 0 Then
-                                                                                ConceptoContable = 65
-                                                                                TipoMovimiento = False
-                                                                                IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
-                                                                                CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
-                                                                            End If
-
-                                                                            importeMovimiento = importeMovimiento.Abs.RoundSQL()
-                                                                            importeMN = importeMovimiento
-                                                                            If importeMovimiento <> 0 Then
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                                    ErrorPrepoliza = True
-                                                                                    Exit For
-                                                                                End If
-                                                                            End If
-                                                                        End If
-
-
-                                                                        ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp)
-                                                                    End If
-                                                                Next
-
-                                                                If ErrorPrepoliza Then
-                                                                    Exit Select
-                                                                End If
-
-                                                            Else
-                                                                IdCtaContable = CtaProveedor
-                                                                CveCuenta = CveCuentaProveedor
-
-                                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                    'AMORTIZACIÓN EN EL REGISTRO
                                                                     For Each Gvr As GridViewRow In GvFacturaNC.Rows
                                                                         If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
-                                                                            Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
+                                                                            Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar-NC", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
                                                                             Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
                                                                             Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
-                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                            Dim TipoCambioFactura = Gvr.DataKey("TipoCambio").ToDecimal
+
+                                                                            IdCtaContable = CtaProveedorExtranjera
+                                                                            CveCuenta = CveCuentaProveedorExtranjera
+                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMovimientoNC, Referencia, 17, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                IdCtaContable = CtaProveedorComplementaria
+                                                                                CveCuenta = CveCuentaProveedorComplementaria
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMNNC - importeMovimientoNC, Referencia, 206, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioFactura, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                                     ErrorPrepoliza = True
+                                                                                    Exit For
                                                                                 End If
                                                                             Else
                                                                                 ErrorPrepoliza = True
-                                                                            End If
-                                                                            ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp)
-                                                                        End If
-                                                                    Next
-                                                                End If
-                                                            End If
-                                                        End If
-
-                                                        importeMovimiento = 0
-
-                                                    Case 29 'Funcionarios y Empleados
-                                                        importeMovimiento = importeFE
-                                                        importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-                                                        If ObjConta.GetRetCuenta(ConceptoContable, CvePersonal) Then
-                                                            If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContPersonal").ToString.ToEntero
-                                                                CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContPersonalSIG").ToString.ToEntero
-                                                            End If
-                                                        End If
-
-                                                    Case 21 'Anticipo
-
-                                                        If ArrAnticipos.Count > 0 Then
-
-
-                                                            Dim CtaIvaxAcreditar As Integer = 0
-                                                            Dim CtaIvaAcreditable As Integer = 0
-                                                            Dim CveCuentaIvaxAcreditar As Integer = 0
-                                                            Dim PorcentajeImpuestoAnticipo = PorcentajeIVA
-                                                            CtaIvaxAcreditar = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
-                                                            CtaIvaAcreditable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
-                                                            If ObjConta.GetRetCuenta(14, UsuarioActual.CveEmpresa) And Not CtaIvaxAcreditar > 0 Then
-                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                    CtaIvaxAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
-                                                                    CveCuentaIvaxAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
-                                                                End If
-                                                            End If
-                                                            If ObjConta.GetRetCuenta(19, UsuarioActual.CveEmpresa) And Not CtaIvaAcreditable > 0 Then
-                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                                    CtaIvaAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
-                                                                End If
-                                                            End If
-
-                                                            '** PRUEBA CUANDO  SE AMORTIZA NC ANTES DE QUE SE REGISTRE NO DEBE TENER CONCEPTO 19  **  JMURUAM 01/06/2017 SE HIZO ESTO PARA LA FACTURA HRFA-8012831 DE VIGILANCIA
-                                                            'Dim CtaIvaAcreditable As Integer = 0
-                                                            'If ObjConta.GetRetCuenta(19, UsuarioActual.CveEmpresa) Then
-                                                            '    If ObjConta.DtResultados.Rows.Count > 0 Then
-                                                            '        CtaIvaAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
-                                                            '    End If
-                                                            'End If
-
-                                                            For Each Ant As Anticipos In ArrAnticipos
-
-                                                                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
-                                                                        IdCtaContable = CtaProveedor
-                                                                        CveCuenta = CveCuentaProveedor
-                                                                    Case "Egsc"
-                                                                        ConceptoContableAnticipo = 21
-                                                                        IdCtaContable = CtaProveedorAnticipos
-                                                                        CveCuenta = CveCuentaProveedorAnticipos
-
-                                                                    Case "DD"
-                                                                        ConceptoContableAnticipo = 37
-                                                                        IdCtaContable = CtaProveedorDeudores
-                                                                        CveCuenta = CveCuentaProveedorDeudores
-                                                                    Case "Ant"
-                                                                        ConceptoContableAnticipo = 265
-                                                                        ConceptoContableAnticipoComplementaria = 266
-                                                                        CveCompraNC = Ant.CveCompra
-                                                                        IdCtaContable = CtaProveedorAnticipos
-                                                                        CveCuenta = CveCuentaProveedorAnticipos
-                                                                End Select
-
-                                                                importeMovimiento = Ant.Importe
-                                                                importeMN = importeMovimiento * tipoCambioActual * Multiplicador
-
-                                                                If importeMovimiento <> 0 Then
-                                                                    'Conta ContPAQ
-                                                                    If IdCtaContable = 0 Then
-                                                                        CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                                        idCuentaContabilizacion = 0
-                                                                    End If
-                                                                    'Conta SIG
-                                                                    If CveCuenta = 0 Then
-                                                                        CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                                        idCuentaContabilizacion = 0
-                                                                    End If
-
-                                                                    'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA
-                                                                    If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
-                                                                        Dim importeMovimientoNC = Ant.Importe
-                                                                        Dim importeMNNC = 0.0D
-                                                                        Dim TipoCambioNC = Ant.TCCompra
-
-                                                                        importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador
-                                                                        IdCtaContable = CtaProveedorExtranjera
-                                                                        CveCuenta = CveCuentaProveedorExtranjera
-                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                            IdCtaContable = CtaProveedorComplementaria
-                                                                            CveCuenta = CveCuentaProveedorComplementaria
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 235, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                                ErrorPrepoliza = True
                                                                                 Exit For
                                                                             End If
-                                                                        Else
-                                                                            ErrorPrepoliza = True
-                                                                            Exit For
-                                                                        End If
 
-                                                                        importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
-                                                                        IdCtaContable = CtaProveedorExtranjera
-                                                                        CveCuenta = CveCuentaProveedorExtranjera
-                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                            IdCtaContable = CtaProveedorComplementaria
-                                                                            CveCuenta = CveCuentaProveedorComplementaria
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, Referencia, 206, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, 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
-                                                                                IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
-                                                                                CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
-                                                                            ElseIf importeMovimiento < 0 Then
-                                                                                ConceptoContable = 65
-                                                                                TipoMovimiento = False
-                                                                                IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
-                                                                                CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
-                                                                            End If
-
-                                                                            importeMovimiento = importeMovimiento.Abs.RoundSQL()
-                                                                            importeMN = importeMovimiento
-                                                                            If importeMovimiento <> 0 Then
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                            importeMNNC = importeMovimientoNC * TipoCambioFactura * Multiplicador
+                                                                            IdCtaContable = CtaProveedorExtranjera
+                                                                            CveCuenta = CveCuentaProveedorExtranjera
+                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                IdCtaContable = CtaProveedorComplementaria
+                                                                                CveCuenta = CveCuentaProveedorComplementaria
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMNNC - importeMovimientoNC, Referencia, 235, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                                     ErrorPrepoliza = True
                                                                                     Exit For
                                                                                 End If
-                                                                            End If
-                                                                        End If
-
-                                                                    ElseIf ConceptoContableAnticipo.Contiene(265) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
-                                                                        Dim importeMovimientoNC = Ant.Importe
-                                                                        Dim importeMNNC = 0.0D
-                                                                        Dim TipoCambioNC = Ant.TCCompra
-
-                                                                        importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador
-                                                                        IdCtaContable = CtaProveedorAnticiposExtranjera
-                                                                        CveCuenta = CveCuentaProveedorAnticiposExtranjera
-                                                                        If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 265, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                            IdCtaContable = CtaProveedorAnticiposComplementaria
-                                                                            CveCuenta = CveCuentaProveedorAnticiposComplementaria
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 266, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                            Else
                                                                                 ErrorPrepoliza = True
                                                                                 Exit For
                                                                             End If
-                                                                        Else
-                                                                            ErrorPrepoliza = True
-                                                                            Exit For
+
+                                                                            ' FLUCTUACION CAMBIARIA
+                                                                            If tipoCambioActual <> TipoCambioFactura Then
+                                                                                importeMovimiento = (importeMovimientoNC * TipoCambioFactura) - (importeMovimientoNC * tipoCambioActual)
+
+                                                                                If importeMovimiento > 0 Then
+                                                                                    ConceptoContable = 64
+                                                                                    TipoMovimiento = True
+                                                                                    IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
+                                                                                    CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
+                                                                                ElseIf importeMovimiento < 0 Then
+                                                                                    ConceptoContable = 65
+                                                                                    TipoMovimiento = False
+                                                                                    IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
+                                                                                    CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
+                                                                                End If
+
+                                                                                importeMovimiento = importeMovimiento.Abs.RoundSQL()
+                                                                                importeMN = importeMovimiento
+                                                                                If importeMovimiento <> 0 Then
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                        Exit For
+                                                                                    End If
+                                                                                End If
+                                                                            End If
+
+
+                                                                            ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp)
+                                                                        End If
+                                                                    Next
+
+                                                                    If ErrorPrepoliza Then
+                                                                        Exit Select
+                                                                    End If
+
+                                                                Else
+                                                                    IdCtaContable = CtaProveedor
+                                                                    CveCuenta = CveCuentaProveedor
+
+                                                                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                        For Each Gvr As GridViewRow In GvFacturaNC.Rows
+                                                                            If Gvr.FCCheckBox("ChkFacturaNC").Checked Then
+                                                                                Dim CvePrePolizaTemp = ObjConta.AddPrePolizas("Compras/Registrar", If(EsContado And CvePlantillaPrePoliza = 1, 2, CvePlantillaPrePoliza), ImporteCompra, TxtTotal.Text.ToDouble, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FolioFijo:=FolioFijo, ReglaFolioPoliza:=ObjCompras.ObtenerReglaFolio(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa), CveTipoPoliza:=ObjConta.ObtenerTipoPoliza(DdlTipoTransaccion.SelectedValue, DdlTipoTransaccionCaja.SelectedValue, UsuarioActual.CveEmpresa))
+                                                                                Dim importeMovimientoNC = Gvr.FCTextBox("TxtImporte").Text.ToDecimal
+                                                                                Dim importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
+                                                                                If ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCompraAmortizacion:=CveCompra, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaTemp, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveCompraAmortizacion:=Gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoNC), CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+                                                                                Else
+                                                                                    ErrorPrepoliza = True
+                                                                                End If
+                                                                                ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaTemp)
+                                                                            End If
+                                                                        Next
+                                                                    End If
+                                                                End If
+                                                            End If
+
+                                                            importeMovimiento = 0
+
+                                                        Case 29 'Funcionarios y Empleados
+                                                            importeMovimiento = importeFE
+                                                            importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+                                                            If ObjConta.GetRetCuenta(ConceptoContable, CvePersonal) Then
+                                                                If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                    IdCtaContable = ObjConta.DtResultados.Rows(0)("IdCtaContPersonal").ToString.ToEntero
+                                                                    CveCuenta = ObjConta.DtResultados.Rows(0)("IdCtaContPersonalSIG").ToString.ToEntero
+                                                                End If
+                                                            End If
+
+                                                        Case 21 'Anticipo
+
+                                                            If ArrAnticipos.Count > 0 Then
+
+
+                                                                Dim CtaIvaxAcreditar As Integer = 0
+                                                                Dim CtaIvaAcreditable As Integer = 0
+                                                                Dim CveCuentaIvaxAcreditar As Integer = 0
+                                                                Dim PorcentajeImpuestoAnticipo = PorcentajeIVA
+                                                                CtaIvaxAcreditar = If(IdCtaIVAXAcreditar > 0, IdCtaIVAXAcreditar, 0)
+                                                                CtaIvaAcreditable = If(IdCtaIVAAcreditable > 0, IdCtaIVAAcreditable, 0)
+                                                                If ObjConta.GetRetCuenta(14, UsuarioActual.CveEmpresa) And Not CtaIvaxAcreditar > 0 Then
+                                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                        CtaIvaxAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero
+                                                                        CveCuentaIvaxAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIVAxAcreditarSIG").ToString.ToEntero
+                                                                    End If
+                                                                End If
+                                                                If ObjConta.GetRetCuenta(19, UsuarioActual.CveEmpresa) And Not CtaIvaAcreditable > 0 Then
+                                                                    If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                        CtaIvaAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
+                                                                    End If
+                                                                End If
+
+                                                                '** PRUEBA CUANDO  SE AMORTIZA NC ANTES DE QUE SE REGISTRE NO DEBE TENER CONCEPTO 19  **  JMURUAM 01/06/2017 SE HIZO ESTO PARA LA FACTURA HRFA-8012831 DE VIGILANCIA
+                                                                'Dim CtaIvaAcreditable As Integer = 0
+                                                                'If ObjConta.GetRetCuenta(19, UsuarioActual.CveEmpresa) Then
+                                                                '    If ObjConta.DtResultados.Rows.Count > 0 Then
+                                                                '        CtaIvaAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero
+                                                                '    End If
+                                                                'End If
+
+                                                                For Each Ant As Anticipos In ArrAnticipos
+
+                                                                    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
+                                                                            IdCtaContable = CtaProveedor
+                                                                            CveCuenta = CveCuentaProveedor
+                                                                        Case "Egsc"
+                                                                            ConceptoContableAnticipo = 21
+                                                                            IdCtaContable = CtaProveedorAnticipos
+                                                                            CveCuenta = CveCuentaProveedorAnticipos
+
+                                                                        Case "DD"
+                                                                            ConceptoContableAnticipo = 37
+                                                                            IdCtaContable = CtaProveedorDeudores
+                                                                            CveCuenta = CveCuentaProveedorDeudores
+                                                                        Case "Ant"
+                                                                            ConceptoContableAnticipo = 265
+                                                                            ConceptoContableAnticipoComplementaria = 266
+                                                                            CveCompraNC = Ant.CveCompra
+                                                                            IdCtaContable = CtaProveedorAnticipos
+                                                                            CveCuenta = CveCuentaProveedorAnticipos
+                                                                    End Select
+
+                                                                    importeMovimiento = Ant.Importe
+                                                                    importeMN = importeMovimiento * tipoCambioActual * Multiplicador
+
+                                                                    If importeMovimiento <> 0 Then
+                                                                        'Conta ContPAQ
+                                                                        If IdCtaContable = 0 Then
+                                                                            CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
+                                                                            idCuentaContabilizacion = 0
+                                                                        End If
+                                                                        'Conta SIG
+                                                                        If CveCuenta = 0 Then
+                                                                            CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
+                                                                            idCuentaContabilizacion = 0
                                                                         End If
 
-                                                                        If TxtTotal.Text.ToDouble > 0 Then
+                                                                        'AMORTIZACIÓN NC ESPECIAL COMPLEMENTARIA
+                                                                        If ConceptoContableAnticipo.Contiene(60) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
+                                                                            Dim importeMovimientoNC = Ant.Importe
+                                                                            Dim importeMNNC = 0.0D
+                                                                            Dim TipoCambioNC = Ant.TCCompra
+
+                                                                            importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador
+                                                                            IdCtaContable = CtaProveedorExtranjera
+                                                                            CveCuenta = CveCuentaProveedorExtranjera
+                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 60, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                IdCtaContable = CtaProveedorComplementaria
+                                                                                CveCuenta = CveCuentaProveedorComplementaria
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 235, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                    ErrorPrepoliza = True
+                                                                                    Exit For
+                                                                                End If
+                                                                            Else
+                                                                                ErrorPrepoliza = True
+                                                                                Exit For
+                                                                            End If
+
                                                                             importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
-                                                                            IdCtaContable = CtaProveedorExtranjera ' CtaProveedorAnticiposExtranjera
-                                                                            CveCuenta = CveCuentaProveedorExtranjera 'CveCuentaProveedorAnticiposExtranjera
-                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, CveCompraAmortizacion:=CveCompraNC, Contabilizable:=SeContabiliza) Then
-                                                                                IdCtaContable = CtaProveedorExtranjera 'CtaProveedorAnticiposComplementaria
-                                                                                CveCuenta = CveCuentaProveedorExtranjera 'CveCuentaProveedorAnticiposComplementaria
+                                                                            IdCtaContable = CtaProveedorExtranjera
+                                                                            CveCuenta = CveCuentaProveedorExtranjera
+                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                IdCtaContable = CtaProveedorComplementaria
+                                                                                CveCuenta = CveCuentaProveedorComplementaria
                                                                                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, Referencia, 206, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                                     ErrorPrepoliza = True
                                                                                     Exit For
@@ -6779,34 +6717,6 @@ Partial Class Compras_Compras
                                                                                 Exit For
                                                                             End If
 
-                                                                            If Ant.TipoMovto.Contiene("Ant") Then
-                                                                                Dim PorcentajePagoAnt As Decimal = importeMovimientoNC / If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, TmpDT.SUMD("ImporteConImpuestos"), TxtTotal.Text.ToDecimal)
-                                                                                Dim ImporteIVA As Decimal = Math.Round(PorcentajePagoAnt * TxtIVA.Text.ToDecimal, 2)
-
-                                                                                'Agregamos el 14
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIVA, Referencia, 14, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), CveCuenta:=CveCuentaIvaxAcreditar, PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
-                                                                                    ErrorPrepoliza = True
-                                                                                End If
-
-                                                                                'Agregamos el 19
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIVA, Referencia, 19, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
-                                                                                    ErrorPrepoliza = True
-                                                                                End If
-
-                                                                                Dim ImporteIEPS As Decimal = Math.Round(PorcentajePagoAnt * TxtIEPS.Text.ToDecimal, 2)
-
-                                                                                'Agregamos el 25
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIEPS, Referencia, 25, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), CveCuenta:=CveCuentaIvaxAcreditar, PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
-                                                                                    ErrorPrepoliza = True
-                                                                                End If
-
-                                                                                'Agregamos el 26
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIEPS, Referencia, 26, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
-                                                                                    ErrorPrepoliza = True
-                                                                                End If
-                                                                            End If
-
-
                                                                             ' FLUCTUACION CAMBIARIA
                                                                             If tipoCambioActual <> TipoCambioNC Then
                                                                                 importeMovimiento = (importeMovimientoNC * tipoCambioActual) - (importeMovimientoNC * TipoCambioNC)
@@ -6832,232 +6742,590 @@ Partial Class Compras_Compras
                                                                                     End If
                                                                                 End If
                                                                             End If
-                                                                        End If
 
-                                                                    Else
+                                                                        ElseIf ConceptoContableAnticipo.Contiene(265) And DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
+                                                                            Dim importeMovimientoNC = Ant.Importe
+                                                                            Dim importeMNNC = 0.0D
+                                                                            Dim TipoCambioNC = Ant.TCCompra
 
-
-                                                                        Dim usacomplementariaAnticipo As Boolean = False
-                                                                        usacomplementariaAnticipo = If(Ant.TCCompra > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False)
-                                                                        Dim TipoCambioAnt = Ant.TCCompra
-
-
-                                                                        Dim ImporteAnt As Decimal = importeMovimiento
-                                                                        Dim ImporteAntMN As Decimal = ImporteAnt * TipoCambioAnt
-                                                                        If usacomplementariaAnticipo Then
-                                                                            IdCtaContable = CtaProveedorAnticiposComplementaria
-                                                                            CveCuenta = CveCuentaProveedorAnticiposComplementaria
-                                                                            ImporteAntMN = TipoCambioAnt * ImporteAnt - ImporteAnt
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, Referencia, 266, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=ImporteAntMN, ImporteME:=ImporteAnt, TipoCambio:=TipoCambioAnt, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                                ErrorPrepoliza = True
-                                                                                Exit For
-                                                                            End If
-                                                                            ImporteAntMN = ImporteAnt
-                                                                        End If
-
-                                                                        If TipoCambioAnt > 1 Then
+                                                                            importeMNNC = importeMovimientoNC * TipoCambioNC * Multiplicador
                                                                             IdCtaContable = CtaProveedorAnticiposExtranjera
                                                                             CveCuenta = CveCuentaProveedorAnticiposExtranjera
-                                                                        End If
-
-                                                                        'Agregamos el 21/37/60
-                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, Referencia, ConceptoContableAnticipo, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteAntMN, ImporteME:=If(tipoCambioActual = 1, 0, ImporteAnt), TipoCambio:=TipoCambioAnt, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
-                                                                            ErrorPrepoliza = True
-                                                                        End If
-
-                                                                        If TxtTotal.Text.ToDouble > 0 Then
-                                                                            Dim IdCtaContablePago As Integer = CtaProveedor
-                                                                            Dim CveCuentaPago As Integer = CveCuentaProveedor
-                                                                            Dim usacomplementariaProveedor As Boolean = False
-                                                                            usacomplementariaProveedor = If(tipoCambioActual > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False)
-                                                                            If usacomplementariaProveedor Then
-                                                                                Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
-                                                                                importeMN = tipoCambioActual * importeMovimiento - importeMovimiento
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 201, Concepto, FechaMovimiento, CtaProveedorComplementaria, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuentaProveedorComplementaria, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                                    ErrorPrepoliza = True
-                                                                                End If
-                                                                                importeMN = importeMovimiento
-                                                                            End If
-
-                                                                            If tipoCambioActual > 1 Then
-                                                                                IdCtaContablePago = CtaProveedorExtranjera
-                                                                                CveCuentaPago = CveCuentaProveedorExtranjera
-                                                                            End If
-
-                                                                            'Agregamos el 17
-                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 17, Concepto, FechaMovimiento, IdCtaContablePago, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuentaPago, Contabilizable:=SeContabiliza) Then
-                                                                                ErrorPrepoliza = True
-                                                                            End If
-
-                                                                        End If
-                                                                        ' FLUCTUACION CAMBIARIA
-                                                                        If tipoCambioActual <> TipoCambioAnt Then
-                                                                            Dim importeFluctuacion = (ImporteAnt * tipoCambioActual) - (ImporteAnt * TipoCambioAnt)
-
-                                                                            If importeFluctuacion > 0 Then
-                                                                                ConceptoContable = 64
-                                                                                TipoMovimiento = True
-                                                                                IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
-                                                                                CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
-                                                                            ElseIf importeFluctuacion < 0 Then
-                                                                                ConceptoContable = 65
-                                                                                TipoMovimiento = False
-                                                                                IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
-                                                                                CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
-                                                                            End If
-
-                                                                            importeFluctuacion = importeFluctuacion.Abs.RoundSQL()
-                                                                            If importeFluctuacion <> 0 Then
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeFluctuacion, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoNC, Referencia, 265, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                IdCtaContable = CtaProveedorAnticiposComplementaria
+                                                                                CveCuenta = CveCuentaProveedorAnticiposComplementaria
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMNNC - importeMovimientoNC, Referencia, 266, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=Ant.CveCompra, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=TipoCambioNC, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                                     ErrorPrepoliza = True
                                                                                     Exit For
                                                                                 End If
+                                                                            Else
+                                                                                ErrorPrepoliza = True
+                                                                                Exit For
+                                                                            End If
+
+                                                                            If TxtTotal.Text.ToDouble > 0 Then
+                                                                                importeMNNC = importeMovimientoNC * tipoCambioActual * Multiplicador
+                                                                                IdCtaContable = CtaProveedorExtranjera ' CtaProveedorAnticiposExtranjera
+                                                                                CveCuenta = CveCuentaProveedorExtranjera 'CveCuentaProveedorAnticiposExtranjera
+                                                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoNC, Referencia, 272, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, CveCompraAmortizacion:=CveCompraNC, Contabilizable:=SeContabiliza) Then
+                                                                                    IdCtaContable = CtaProveedorExtranjera 'CtaProveedorAnticiposComplementaria
+                                                                                    CveCuenta = CveCuentaProveedorExtranjera 'CveCuentaProveedorAnticiposComplementaria
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMNNC - importeMovimientoNC, Referencia, 206, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMNNC - importeMovimientoNC, ImporteME:=importeMovimientoNC, TipoCambio:=tipoCambioActual, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                        Exit For
+                                                                                    End If
+                                                                                Else
+                                                                                    ErrorPrepoliza = True
+                                                                                    Exit For
+                                                                                End If
+
+                                                                                If Ant.TipoMovto.Contiene("Ant") Then
+                                                                                    Dim PorcentajePagoAnt As Decimal = importeMovimientoNC / If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, TmpDT.SUMD("ImporteConImpuestos"), TxtTotal.Text.ToDecimal)
+                                                                                    Dim ImporteIVA As Decimal = Math.Round(PorcentajePagoAnt * TxtIVA.Text.ToDecimal, 2)
+
+                                                                                    'Agregamos el 14
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIVA, Referencia, 14, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), CveCuenta:=CveCuentaIvaxAcreditar, PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+
+                                                                                    'Agregamos el 19
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIVA, Referencia, 19, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+
+                                                                                    Dim ImporteIEPS As Decimal = Math.Round(PorcentajePagoAnt * TxtIEPS.Text.ToDecimal, 2)
+
+                                                                                    'Agregamos el 25
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIEPS, Referencia, 25, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), CveCuenta:=CveCuentaIvaxAcreditar, PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+
+                                                                                    'Agregamos el 26
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIEPS, Referencia, 26, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+                                                                                End If
+
+
+                                                                                ' FLUCTUACION CAMBIARIA
+                                                                                If tipoCambioActual <> TipoCambioNC Then
+                                                                                    importeMovimiento = (importeMovimientoNC * tipoCambioActual) - (importeMovimientoNC * TipoCambioNC)
+
+                                                                                    If importeMovimiento > 0 Then
+                                                                                        ConceptoContable = 64
+                                                                                        TipoMovimiento = True
+                                                                                        IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
+                                                                                        CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
+                                                                                    ElseIf importeMovimiento < 0 Then
+                                                                                        ConceptoContable = 65
+                                                                                        TipoMovimiento = False
+                                                                                        IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
+                                                                                        CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
+                                                                                    End If
+
+                                                                                    importeMovimiento = importeMovimiento.Abs.RoundSQL()
+                                                                                    importeMN = importeMovimiento
+                                                                                    If importeMovimiento <> 0 Then
+                                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                            ErrorPrepoliza = True
+                                                                                            Exit For
+                                                                                        End If
+                                                                                    End If
+                                                                                End If
+                                                                            End If
+
+                                                                        Else
+
+
+                                                                            Dim usacomplementariaAnticipo As Boolean = False
+                                                                            usacomplementariaAnticipo = If(Ant.TCCompra > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False)
+                                                                            Dim TipoCambioAnt = Ant.TCCompra
+
+
+                                                                            Dim ImporteAnt As Decimal = importeMovimiento
+                                                                            Dim ImporteAntMN As Decimal = ImporteAnt * TipoCambioAnt
+                                                                            If usacomplementariaAnticipo Then
+                                                                                IdCtaContable = CtaProveedorAnticiposComplementaria
+                                                                                CveCuenta = CveCuentaProveedorAnticiposComplementaria
+                                                                                ImporteAntMN = TipoCambioAnt * ImporteAnt - ImporteAnt
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, Referencia, 266, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=ImporteAntMN, ImporteME:=ImporteAnt, TipoCambio:=TipoCambioAnt, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                    ErrorPrepoliza = True
+                                                                                    Exit For
+                                                                                End If
+                                                                                ImporteAntMN = ImporteAnt
+                                                                            End If
+
+                                                                            If TipoCambioAnt > 1 Then
+                                                                                IdCtaContable = CtaProveedorAnticiposExtranjera
+                                                                                CveCuenta = CveCuentaProveedorAnticiposExtranjera
+                                                                            End If
+
+                                                                            'Agregamos el 21/37/60
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteAnt, Referencia, ConceptoContableAnticipo, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteAntMN, ImporteME:=If(tipoCambioActual = 1, 0, ImporteAnt), TipoCambio:=TipoCambioAnt, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                            End If
+
+                                                                            If TxtTotal.Text.ToDouble > 0 Then
+                                                                                Dim IdCtaContablePago As Integer = CtaProveedor
+                                                                                Dim CveCuentaPago As Integer = CveCuentaProveedor
+                                                                                Dim usacomplementariaProveedor As Boolean = False
+                                                                                usacomplementariaProveedor = If(tipoCambioActual > 1 AndAlso UsuarioActual.CveEmpresa.Contiene(1, 119), True, False)
+                                                                                If usacomplementariaProveedor Then
+                                                                                    Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
+                                                                                    importeMN = tipoCambioActual * importeMovimiento - importeMovimiento
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 201, Concepto, FechaMovimiento, CtaProveedorComplementaria, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuentaProveedorComplementaria, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                    End If
+                                                                                    importeMN = importeMovimiento
+                                                                                End If
+
+                                                                                If tipoCambioActual > 1 Then
+                                                                                    IdCtaContablePago = CtaProveedorExtranjera
+                                                                                    CveCuentaPago = CveCuentaProveedorExtranjera
+                                                                                End If
+
+                                                                                'Agregamos el 17
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 17, Concepto, FechaMovimiento, IdCtaContablePago, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuentaPago, Contabilizable:=SeContabiliza) Then
+                                                                                    ErrorPrepoliza = True
+                                                                                End If
+
+                                                                            End If
+                                                                            ' FLUCTUACION CAMBIARIA
+                                                                            If tipoCambioActual <> TipoCambioAnt Then
+                                                                                Dim importeFluctuacion = (ImporteAnt * tipoCambioActual) - (ImporteAnt * TipoCambioAnt)
+
+                                                                                If importeFluctuacion > 0 Then
+                                                                                    ConceptoContable = 64
+                                                                                    TipoMovimiento = True
+                                                                                    IdCtaContable = UsuarioActual.Empresa.IdCuentaGananciaCambiaria
+                                                                                    CveCuenta = UsuarioActual.Empresa.CveCuentaGananciaCambiaria
+                                                                                ElseIf importeFluctuacion < 0 Then
+                                                                                    ConceptoContable = 65
+                                                                                    TipoMovimiento = False
+                                                                                    IdCtaContable = UsuarioActual.Empresa.IdCuentaPerdidaCambiaria
+                                                                                    CveCuenta = UsuarioActual.Empresa.CveCuentaPerdidaCambiaria
+                                                                                End If
+
+                                                                                importeFluctuacion = importeFluctuacion.Abs.RoundSQL()
+                                                                                If importeFluctuacion <> 0 Then
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeFluctuacion, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeFluctuacion, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                        ErrorPrepoliza = True
+                                                                                        Exit For
+                                                                                    End If
+                                                                                End If
+                                                                            End If
+
+
+                                                                        End If
+
+
+
+                                                                        '** PRUEBA CUANDO  SE AMORTIZA NC ANTES DE QUE SE REGISTRE NO DEBE TENER CONCEPTO 19  **  JM 01/06/2017 SE HIZO ESTO PARA LA FACTURA HRFA-8012831 DE VIGILANCIA
+                                                                        '[IPP] NC NO DEBE REGISTRAR IMPUESTOS EN AMORTIZACIÓN 27/Agosto/2018
+                                                                        If Not Ant.TipoMovto.Contiene("NC", "DEV") Then
+                                                                            Dim PorcentajePagoAnt As Decimal = importeMovimiento / If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, TmpDT.SUMD("ImporteConImpuestos"), TxtTotal.Text.ToDecimal)
+                                                                            Dim ImporteIVA As Decimal = Math.Round(PorcentajePagoAnt * TxtIVA.Text.ToDecimal, 2)
+
+                                                                            'Agregamos el 14
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIVA, Referencia, 14, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), CveCuenta:=CveCuentaIvaxAcreditar, PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
+                                                                            End If
+
+                                                                            'Agregamos el 19
+                                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIVA, Referencia, 19, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
+                                                                                ErrorPrepoliza = True
                                                                             End If
                                                                         End If
 
 
                                                                     End If
 
+                                                                    ''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.PrePolizaSimplificacion(Ant.CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                                                                    '        ErrorPrepoliza = True
+                                                                    '        Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
+                                                                    '    End If
+                                                                    'End If
 
-                                                                    '** PRUEBA CUANDO  SE AMORTIZA NC ANTES DE QUE SE REGISTRE NO DEBE TENER CONCEPTO 19  **  JM 01/06/2017 SE HIZO ESTO PARA LA FACTURA HRFA-8012831 DE VIGILANCIA
-                                                                    '[IPP] NC NO DEBE REGISTRAR IMPUESTOS EN AMORTIZACIÓN 27/Agosto/2018
-                                                                    If Not Ant.TipoMovto.Contiene("NC", "DEV") Then
-                                                                        Dim PorcentajePagoAnt As Decimal = importeMovimiento / If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, TmpDT.SUMD("ImporteConImpuestos"), TxtTotal.Text.ToDecimal)
-                                                                        Dim ImporteIVA As Decimal = Math.Round(PorcentajePagoAnt * TxtIVA.Text.ToDecimal, 2)
+                                                                Next
+                                                                importeMovimiento = 0
 
-                                                                        'Agregamos el 14
-                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteIVA, Referencia, 14, Concepto, FechaMovimiento, CtaIvaxAcreditar, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), CveCuenta:=CveCuentaIvaxAcreditar, PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
-                                                                            ErrorPrepoliza = True
-                                                                        End If
+                                                            End If
+                                                    End Select
 
-                                                                        'Agregamos el 19
-                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, ImporteIVA, Referencia, 19, Concepto, FechaMovimiento, CtaIvaAcreditable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=ImporteIVA * tipoCambioActual * Multiplicador, ImporteME:=If(tipoCambioActual = 1, 0, ImporteIVA), PorcentajeImpuesto:=PorcentajeImpuestoAnticipo, Contabilizable:=SeContabiliza) Then
-                                                                            ErrorPrepoliza = True
-                                                                        End If
-                                                                    End If
-
-
-                                                                End If
-
-                                                                ''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.PrePolizaSimplificacion(Ant.CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                                                '        ErrorPrepoliza = True
-                                                                '        Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
-                                                                '    End If
-                                                                'End If
-
-                                                            Next
-                                                            importeMovimiento = 0
-
-                                                        End If
-                                                End Select
-
-                                                If ErrorPrepoliza Then
-                                                    Exit For
-                                                End If
-
-                                                If importeMovimiento <> 0 Or (ConceptoContable.Contiene(5) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then
-                                                    'Conta ContPAQ
-                                                    If IdCtaContable = 0 Then
-                                                        CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                        idCuentaContabilizacion = 0
-                                                    End If
-                                                    'COnta SIG
-                                                    If CveCuenta = 0 Then
-                                                        CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
-                                                        CveCuentaContabilizacion = 0
-                                                    End If
-
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
-                                                        ErrorPrepoliza = True
+                                                    If ErrorPrepoliza Then
                                                         Exit For
                                                     End If
 
-                                                End If
+                                                    If importeMovimiento <> 0 Or (ConceptoContable.Contiene(5) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then
+                                                        'Conta ContPAQ
+                                                        If IdCtaContable = 0 Then
+                                                            CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
+                                                            idCuentaContabilizacion = 0
+                                                        End If
+                                                        'COnta SIG
+                                                        If CveCuenta = 0 Then
+                                                            CuentasContablesInvalidasSIG.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
+                                                            CveCuentaContabilizacion = 0
+                                                        End If
 
-                                            Next
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=Math.Round(importeMN, 2, MidpointRounding.AwayFromZero), ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, PorcentajeImpuesto:=PorcentajeImpuesto, Contabilizable:=SeContabiliza) Then
+                                                            ErrorPrepoliza = True
+                                                            Exit For
+                                                        End If
 
-                                            'EMPIEZA REFACTURACION
-                                            If 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
-
-                                            'Simplificacion de PrePolizas
-                                            If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
-                                                If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                                                    ErrorPrepolizaDescuadre = True
-                                                End If
-                                            End If
-
-                                            If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
-                                                If ObjConta.ValorPolizaDescuadre > 0 Then
-                                                    GuardaLogAD($"Compras/Compras-Guardar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                                                    ErrorPrepolizaDescuadre = True
-                                                End If
-                                            End If
-
-                                            'Conta ContPAQ
-                                            If ObjContaAC IsNot Nothing AndAlso Not ErrorPrepoliza AndAlso Not ErrorPrepolizaDescuadre AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
-                                                If idCuentaContabilizacion > 0 Then
-                                                    If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
-                                                        ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
-                                                        IdPoliza = ObjConta.ContaIdPoliza
-                                                    Else
-                                                        ErrorPrepoliza = True
-                                                        Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
                                                     End If
-                                                Else
-                                                    Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son inválidas: <br>{0}", CuentasContablesInvalidas), TipoMensaje.MsgAdvertencia)
-                                                    ErrorPrepoliza = True
+
+                                                Next
+
+                                                'EMPIEZA REFACTURACION
+                                                If 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
+
+                                                'Simplificacion de PrePolizas
+                                                If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                                                    If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                                                        ErrorPrepolizaDescuadre = True
+                                                    End If
+                                                End If
+
+                                                If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then
+                                                    If ObjConta.ValorPolizaDescuadre > 0 Then
+                                                        GuardaLogAD($"Compras/Compras-Guardar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                                                        ErrorPrepolizaDescuadre = True
+                                                    End If
+                                                End If
+
+                                                'Conta ContPAQ
+                                                If ObjContaAC IsNot Nothing AndAlso Not ErrorPrepoliza AndAlso Not ErrorPrepolizaDescuadre AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
+                                                    If idCuentaContabilizacion > 0 Then
+                                                        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
+                                                            ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
+                                                            IdPoliza = ObjConta.ContaIdPoliza
+                                                        Else
+                                                            ErrorPrepoliza = True
+                                                            Alert($"Ocurrio un error al contabilizar {ObjConta.AlertaMensaje}", TipoMensaje.MsgAdvertencia)
+                                                        End If
+                                                    Else
+                                                        Alert(String.Format("No se puede contabilizar la Prepoliza debido a que las siguientes cuentas son inválidas: <br>{0}", CuentasContablesInvalidas), TipoMensaje.MsgAdvertencia)
+                                                        ErrorPrepoliza = True
+                                                    End If
                                                 End If
                                             End If
-                                        End If
 
 
 
 
-                                        ''  A N T I C I P O S
-                                        If UsuarioActual.Empresa.UsaAC Then
+                                            ''  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
+
+                                        Else 'Empresa Prueba
+
+                                            If RBLPago.SelectedValue.ToEntero = 2 AndAlso (RBLContado.SelectedValue = "1" Or RBLContado.SelectedValue = "6") Then 'Contado - Bancos y Caja Chica
+                                                'se agrego un movimiento de pago
+                                                ' CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFecha.Text.Trim.ToDate, TxtDocumentoFolio.Text.Trim, DdlProveedor.SelectedItem.Text.Trim, TxtDocumentoImporte.Text.Trim.ToDouble, 1, 0.0, TxtDocumentoObservaciones.Text.Trim, True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                                If CveIE > 0 Then
+
+                                                    'inserto los movimientos de la conta para abonar al saldo
+
+                                                    'Se agregamovimiento de pago de proveedor
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteCompra, " ", CveConceptoAfectacionContado, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then
+                                                        ErrorMovtosCxP = True
+                                                    End If
+
+                                                    'Compra
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtSubTotal2.Text.ToDecimal, " ", 30, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then
+                                                        ErrorMovtosCxP = True
+                                                    End If
+
+                                                    'IVA por Acreditar . siempre se registra aunque sea cero
+                                                    If Not ErrorMovtosCxP Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal, " ", 19, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then
+                                                            ErrorMovtosCxP = True
+                                                        End If
+                                                    End If
+
+                                                    If Not ErrorMovtosCxP AndAlso TxtRetIVA.Text.ToDouble > 0 Then
+                                                        'Agrego el RetIVA
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal, " ", 22, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then
+                                                            ErrorMovtosCxP = True
+                                                        End If
+                                                    End If
+
+                                                    If Not ErrorMovtosCxP AndAlso TxtRetISR.Text.ToDouble > 0 Then
+                                                        'Agrego el RetIVA
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal, " ", 23, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva) Then
+                                                            ErrorMovtosCxP = True
+                                                        End If
+                                                    End If
+
+
+                                                Else
+                                                    ErrorMovtosIE = True
+                                                End If
+
+                                            End If
+
+
+                                            'movimiento de compra
+                                            '[IPP] PARCHE PROVISIONAL DE CLASIFICACION Y SUBPROYECTO [CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero] [CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero]
+                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, TxtSubTotal2.Text.ToDecimal, " ", CveConceptoCompra, " ", TxtFechaPago.Text.ToDate, 0, -1, CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero, CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtSubTotal2.Text.ToDecimal) Then
+                                                ErrorMovtosCxP = True
+                                            End If
+
+                                            'Se agregan las CxP
+                                            If CveConceptoAfectacion = 37 Then
+                                                For Each rw As GridViewRow In GvDeudores.Rows
+                                                    If rw.FCCheckBox("Chk").Checked Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoCompra, rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal, " ", CveConceptoAfectacion, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal) Then
+                                                            ErrorMovtosCxP = True
+                                                        End If
+                                                    End If
+                                                Next
+                                            Else
+                                                If ImporteCompra > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoCompra, ImporteCompra, " ", CveConceptoAfectacion, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=ImporteCompra) Then
+                                                    ErrorMovtosCxP = True
+                                                End If
+                                            End If
+
+
+                                            If CvePlantillaPrePoliza = 1 Or CvePlantillaPrePoliza = 60 Then
+
+                                                'Siempre: Se agrega IVA aunque sea cero
+                                                ' If TxtIVA.Text.Replace(", ", "").Trim.ToDouble <> 0 Then
+                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoImpuestos, TxtIVA.Text.ToDecimal, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal) Then
+                                                    ErrorMovtosIVA = True
+                                                End If
+                                                'End If
+
+                                                'Se agregan las Ret IVA
+                                                If TxtRetIVA.Text.ToDouble <> 0 Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtRetIVA.Text.ToDecimal, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal) Then
+                                                        ErrorMovtosRetIVA = True
+                                                    End If
+                                                End If
+
+                                                'Se agregan las Ret ISR
+                                                If TxtRetISR.Text.ToDouble > 0 Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtRetISR.Text.ToDecimal, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal) Then
+                                                        ErrorMovtosRetISR = True
+                                                    End If
+                                                End If
+
+                                                If TxtIEPS.Text.ToDouble > 0 Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtIEPS.Text.ToDecimal, " ", CveConceptoRetIEPS, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIEPS.Text.ToDecimal) Then
+                                                        ErrorMovtosRetISR = True
+                                                    End If
+                                                End If
+
+                                                If TxtOtrosImpuestos.Text.ToDouble > 0 Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtOtrosImpuestos.Text.ToDecimal, " ", CveConceptoRetOtrosImpuestos, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtOtrosImpuestos.Text.ToDecimal) Then
+                                                        ErrorMovtosRetISR = True
+                                                    End If
+                                                End If
+
+                                            End If
+
+
+                                            ''  A N T I C I P O S
                                             If ArrAnticipos.Count > 0 Then
 
+                                                Dim TotalIVA As Double = TxtIVA.Text.ToDouble
+
+                                                'Inserto otra poliza del mo
+                                                'Dim CvePrePolizaAnticipo As Integer = ObjConta.AddPrePolizas("Banc", 10, ImporteAnticipo, ImporteAnticipo, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                                                ' CveConceptoAfectacion = 21 'Cancelacion Anticipo Proveedores
                                                 Dim PorcentajePago As Decimal
+                                                Dim CveConceptoAnt As Integer = 21
+                                                Dim CveCompraNC As Integer
+                                                For Each Ant As Anticipos In ArrAnticipos
+                                                    CveCompraNC = CveCompra
+                                                    Dim CveConceptoPago As Integer = 17
+                                                    Select Case Ant.TipoMovto
+                                                        Case "NC", "DEV"
+                                                            CveConceptoAnt = 60
+                                                            CveCompraNC = Ant.CveCompra ' cuando es NC, se utiliza la clave de compra de la nota de credito
+                                                            CveConceptoPago = 272
+                                                        Case "Egsc"
+                                                            CveConceptoAnt = 21
+                                                        Case "DD"
+                                                            CveConceptoAnt = 37
+
+                                                    End Select
+
+                                                    If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Ant.Importe, " ", CveConceptoAnt, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=Ant.Importe) Then
+                                                        ' ImporteAnticipo += Ant.Importe ' RESTO DEL IMPORTE POR SI QUEDA DIFERENCIA DE LA SUMA DE LOS ANTICIPOS Y EL PROVEEDOR TIENE QUE PAGAR
+                                                        'movimiento de pago proveedor, --no se regisra porque no se registra el total de la compra como deuda del proveedor, solo lo que queda a deber
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, Ant.Importe, " ", CveConceptoPago, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=Ant.Importe) Then
+                                                            ErrorMovtosCxP = True
+                                                        End If
+                                                        PorcentajePago = (Ant.Importe) / TxtTotal.Text.ToDecimal
+
+                                                        'IVA por Acreditar . siempre se registra aunque sea cero
+                                                        If Not ErrorMovtosCxP Then
+                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", 19, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True
+                                                        End If
+
+                                                        'Agrego el RetIVA
+                                                        If Not ErrorMovtosCxP AndAlso TxtRetIVA.Text.ToDouble > 0 Then
+                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", 22, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True
+                                                        End If
+
+                                                        'Agrego el RetISR
+                                                        If Not ErrorMovtosCxP AndAlso TxtRetISR.Text.ToDouble > 0 Then
+                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", 23, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True
+                                                        End If
+                                                    Else
+                                                        ErrorMovtosCxP = True
+                                                    End If
+                                                Next
+
                                                 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
+                                                    'Siempre: Se agrega IVA aunque sea cero
+                                                    If TxtIVA.Text.ToDouble <> 0 Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then
+                                                            ErrorMovtosIVA = True
+                                                        End If
+                                                    End If
+
+                                                    'Se agregan las Ret IVA
+                                                    If TxtRetIVA.Text.ToDouble <> 0 Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then
+                                                            ErrorMovtosRetIVA = True
+                                                        End If
+                                                    End If
+
+                                                    'Se agregan las Ret ISR
+                                                    If TxtRetISR.Text.ToDouble > 0 Then
+                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then
+                                                            ErrorMovtosRetISR = True
+                                                        End If
+                                                    End If
+
+                                                    If UsuarioActual.Empresa.UsaAC Then
+                                                        If CtaProveedor > 0 Then
+                                                            ConceptoRenglon = String.Format("GD 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
+                                                                ErrorAC = True
+                                                                ErrorACMEnsaje.Append("- CtaProveedor > 0 ObjContaAC.AddMovimiento")
+                                                            End If
+                                                        Else
+                                                            Alert(" - El proveedor no tiene cuenta contable.", TipoMensaje.MsgAdvertencia)
+
+                                                            ErrorAC = True
+                                                        End If
                                                     End If
                                                 End If
 
                                                 'una vez amortizado, se generan los movimientos presupuestales
-                                                If ImporteAnticipo > 0 Then
+
+                                                If UsuarioActual.Empresa.UsaAC AndAlso 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
@@ -7065,6 +7333,7 @@ Partial Class Compras_Compras
                                                                             TieneError = True
                                                                             Exit For
                                                                         End If
+
                                                                     Else
                                                                         TieneError = True
                                                                         Exit For
@@ -7088,634 +7357,365 @@ Partial Class Compras_Compras
                                                         Next
 
                                                     Else
-                                                        ErrorACMEnsaje.Append(" -  error al obtener presupuestos ObjCompras.GetPresupuestosCompras")
+                                                        ErrorACMEnsaje.Append("- error al obtener presupuestos 2")
                                                         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
+                                            '' 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
+                                                'Si es con funcionarios empleados Ya existe un registro en Bancos de Ingresos Egresos
+                                                TxtDocumentoImporte.Text = TxtDocumentoImporteFE.Text
+                                                TxtDocumentoImporteCaja.Text = TxtDocumentoImporteFE.Text
 
-                                        End If
+                                                Dim ImportePagadoFE As Decimal = 0
+                                                Dim ImporteAPagarFE As Decimal = TxtDocumentoImporteFE.Text.ToDecimal
+                                                Dim ImportePagar As Decimal = ImporteAPagarFE
 
-                                    Else 'Empresa Prueba
-
-                                        If RBLPago.SelectedValue.ToEntero = 2 AndAlso (RBLContado.SelectedValue = "1" Or RBLContado.SelectedValue = "6") Then 'Contado - Bancos y Caja Chica
-                                            'se agrego un movimiento de pago
-                                            ' CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFecha.Text.Trim.ToDate, TxtDocumentoFolio.Text.Trim, DdlProveedor.SelectedItem.Text.Trim, TxtDocumentoImporte.Text.Trim.ToDouble, 1, 0.0, TxtDocumentoObservaciones.Text.Trim, True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                                            If CveIE > 0 Then
-
-                                                'inserto los movimientos de la conta para abonar al saldo
-
-                                                'Se agregamovimiento de pago de proveedor
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteCompra, " ", CveConceptoAfectacionContado, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then
-                                                    ErrorMovtosCxP = True
-                                                End If
-
-                                                'Compra
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtSubTotal2.Text.ToDecimal, " ", 30, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then
-                                                    ErrorMovtosCxP = True
-                                                End If
-
-                                                'IVA por Acreditar . siempre se registra aunque sea cero
-                                                If Not ErrorMovtosCxP Then
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal, " ", 19, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then
+                                                'CvePrePoliza = ObjConta.AddPrePolizas("Banc", 2, ImporteAPagarFE, ImporteAPagarFE, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                                If CvePrePoliza > 0 Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImportePagar, " ", 29, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CvePersonal:=DdlFuncionarioEmpleado.SelectedValue.ToEntero, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveColectiva:=CveColectiva, CveIE:=CveIE, ImporteMX:=ImportePagar) Then
                                                         ErrorMovtosCxP = True
                                                     End If
-                                                End If
-
-                                                If Not ErrorMovtosCxP AndAlso TxtRetIVA.Text.ToDouble > 0 Then
-                                                    'Agrego el RetIVA
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal, " ", 22, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then
+                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImportePagar, " ", 17, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CvePersonal:=DdlFuncionarioEmpleado.SelectedValue.ToEntero, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveColectiva:=CveColectiva, CveIE:=CveIE, ImporteMX:=ImportePagar) Then
                                                         ErrorMovtosCxP = True
                                                     End If
-                                                End If
-
-                                                If Not ErrorMovtosCxP AndAlso TxtRetISR.Text.ToDouble > 0 Then
-                                                    'Agrego el RetIVA
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal, " ", 23, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva) Then
-                                                        ErrorMovtosCxP = True
-                                                    End If
-                                                End If
 
 
-                                            Else
-                                                ErrorMovtosIE = True
-                                            End If
-
-                                        End If
-
-
-                                        'movimiento de compra
-                                        '[IPP] PARCHE PROVISIONAL DE CLASIFICACION Y SUBPROYECTO [CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero] [CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero]
-                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, TxtSubTotal2.Text.ToDecimal, " ", CveConceptoCompra, " ", TxtFechaPago.Text.ToDate, 0, -1, CveClasificacion:=TmpDT.FiltroPrimeroValor("CveClasificacion").ToString.ToEntero, CveSubProyecto:=TmpDT.FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtSubTotal2.Text.ToDecimal) Then
-                                            ErrorMovtosCxP = True
-                                        End If
-
-                                        'Se agregan las CxP
-                                        If CveConceptoAfectacion = 37 Then
-                                            For Each rw As GridViewRow In GvDeudores.Rows
-                                                If rw.FCCheckBox("Chk").Checked Then
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoCompra, rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal, " ", CveConceptoAfectacion, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal) Then
-                                                        ErrorMovtosCxP = True
-                                                    End If
-                                                End If
-                                            Next
-                                        Else
-                                            If ImporteCompra > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoCompra, ImporteCompra, " ", CveConceptoAfectacion, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=ImporteCompra) Then
-                                                ErrorMovtosCxP = True
-                                            End If
-                                        End If
-
-
-                                        If CvePlantillaPrePoliza = 1 Or CvePlantillaPrePoliza = 60 Then
-
-                                            'Siempre: Se agrega IVA aunque sea cero
-                                            ' If TxtIVA.Text.Replace(", ", "").Trim.ToDouble <> 0 Then
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimientoImpuestos, TxtIVA.Text.ToDecimal, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal) Then
-                                                ErrorMovtosIVA = True
-                                            End If
-                                            'End If
-
-                                            'Se agregan las Ret IVA
-                                            If TxtRetIVA.Text.ToDouble <> 0 Then
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtRetIVA.Text.ToDecimal, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal) Then
-                                                    ErrorMovtosRetIVA = True
-                                                End If
-                                            End If
-
-                                            'Se agregan las Ret ISR
-                                            If TxtRetISR.Text.ToDouble > 0 Then
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtRetISR.Text.ToDecimal, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal) Then
-                                                    ErrorMovtosRetISR = True
-                                                End If
-                                            End If
-
-                                            If TxtIEPS.Text.ToDouble > 0 Then
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtIEPS.Text.ToDecimal, " ", CveConceptoRetIEPS, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIEPS.Text.ToDecimal) Then
-                                                    ErrorMovtosRetISR = True
-                                                End If
-                                            End If
-
-                                            If TxtOtrosImpuestos.Text.ToDouble > 0 Then
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoImpuestos, TxtOtrosImpuestos.Text.ToDecimal, " ", CveConceptoRetOtrosImpuestos, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtOtrosImpuestos.Text.ToDecimal) Then
-                                                    ErrorMovtosRetISR = True
-                                                End If
-                                            End If
-
-                                        End If
-
-
-                                        ''  A N T I C I P O S
-                                        If ArrAnticipos.Count > 0 Then
-
-                                            Dim TotalIVA As Double = TxtIVA.Text.ToDouble
-
-                                            'Inserto otra poliza del mo
-                                            'Dim CvePrePolizaAnticipo As Integer = ObjConta.AddPrePolizas("Banc", 10, ImporteAnticipo, ImporteAnticipo, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
-                                            ' CveConceptoAfectacion = 21 'Cancelacion Anticipo Proveedores
-                                            Dim PorcentajePago As Decimal
-                                            Dim CveConceptoAnt As Integer = 21
-                                            Dim CveCompraNC As Integer
-                                            For Each Ant As Anticipos In ArrAnticipos
-                                                CveCompraNC = CveCompra
-                                                Dim CveConceptoPago As Integer = 17
-                                                Select Case Ant.TipoMovto
-                                                    Case "NC", "DEV"
-                                                        CveConceptoAnt = 60
-                                                        CveCompraNC = Ant.CveCompra ' cuando es NC, se utiliza la clave de compra de la nota de credito
-                                                        CveConceptoPago = 272
-                                                    Case "Egsc"
-                                                        CveConceptoAnt = 21
-                                                    Case "DD"
-                                                        CveConceptoAnt = 37
-
-                                                End Select
-
-                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Ant.Importe, " ", CveConceptoAnt, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=Ant.Importe) Then
-                                                    ' ImporteAnticipo += Ant.Importe ' RESTO DEL IMPORTE POR SI QUEDA DIFERENCIA DE LA SUMA DE LOS ANTICIPOS Y EL PROVEEDOR TIENE QUE PAGAR
-                                                    'movimiento de pago proveedor, --no se regisra porque no se registra el total de la compra como deuda del proveedor, solo lo que queda a deber
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, Ant.Importe, " ", CveConceptoPago, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=Ant.CveIE, CveColectiva:=CveColectiva, ImporteMX:=Ant.Importe) Then
-                                                        ErrorMovtosCxP = True
-                                                    End If
-                                                    PorcentajePago = (Ant.Importe) / TxtTotal.Text.ToDecimal
+                                                    Dim PorcentajePago As Decimal = (ImportePagar) / TxtTotal.Text.ToDecimal
 
                                                     'IVA por Acreditar . siempre se registra aunque sea cero
                                                     If Not ErrorMovtosCxP Then
+
                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", 19, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True
+
                                                     End If
 
-                                                    'Agrego el RetIVA
                                                     If Not ErrorMovtosCxP AndAlso TxtRetIVA.Text.ToDouble > 0 Then
+                                                        'Agrego el RetIVA
+
                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", 22, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True
+
                                                     End If
 
-                                                    'Agrego el RetISR
                                                     If Not ErrorMovtosCxP AndAlso TxtRetISR.Text.ToDouble > 0 Then
+                                                        'Agrego el RetISR
+
                                                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", 23, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True
+
                                                     End If
+
+
+                                                    'sino alcanzo a cubrir se regitran los ivas por acreditar
+                                                    If TxtTotal.Text.ToDouble - ImportePagar > 0 Then
+                                                        PorcentajePago = (TxtTotal.Text.ToDecimal - ImportePagar) / TxtTotal.Text.ToDecimal
+                                                        'Movimiento, se omite, porque se esta registrando la totalidad de la deuda
+                                                        'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtTotal.Text.ToDouble - ImporteAnticipo, " ", 5, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then
+                                                        '    ErrorMovtosCxP = True
+                                                        'End If
+                                                        'Siempre: Se agrega IVA aunque sea cero
+                                                        If TxtIVA.Text.ToDouble <> 0 Then
+                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then
+                                                                ErrorMovtosIVA = True
+                                                            End If
+                                                        End If
+
+                                                        'Se agregan las Ret IVA
+                                                        If TxtRetIVA.Text.ToDouble <> 0 Then
+                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then
+                                                                ErrorMovtosRetIVA = True
+                                                            End If
+                                                        End If
+
+                                                        'Se agregan las Ret ISR
+                                                        If TxtRetISR.Text.ToDouble > 0 Then
+                                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then
+                                                                ErrorMovtosRetISR = True
+                                                            End If
+                                                        End If
+
+                                                    End If
+
                                                 Else
                                                     ErrorMovtosCxP = True
                                                 End If
-                                            Next
-
-                                            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
-                                                'Siempre: Se agrega IVA aunque sea cero
-                                                If TxtIVA.Text.ToDouble <> 0 Then
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then
-                                                        ErrorMovtosIVA = True
-                                                    End If
-                                                End If
-
-                                                'Se agregan las Ret IVA
-                                                If TxtRetIVA.Text.ToDouble <> 0 Then
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then
-                                                        ErrorMovtosRetIVA = True
-                                                    End If
-                                                End If
-
-                                                'Se agregan las Ret ISR
-                                                If TxtRetISR.Text.ToDouble > 0 Then
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then
-                                                        ErrorMovtosRetISR = True
-                                                    End If
-                                                End If
-
-                                                If UsuarioActual.Empresa.UsaAC Then
-                                                    If CtaProveedor > 0 Then
-                                                        ConceptoRenglon = String.Format("GD 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
-                                                            ErrorAC = True
-                                                            ErrorACMEnsaje.Append("- CtaProveedor > 0 ObjContaAC.AddMovimiento")
-                                                        End If
-                                                    Else
-                                                        Alert(" - El proveedor no tiene cuenta contable.", TipoMensaje.MsgAdvertencia)
-
-                                                        ErrorAC = True
-                                                    End If
-                                                End If
                                             End If
 
-                                            'una vez amortizado, se generan los movimientos presupuestales
+                                        End If 'Empresa Prueba
 
-                                            If UsuarioActual.Empresa.UsaAC AndAlso 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 2")
-                                                    ErrorAC = True
-                                                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
-                                            'Si es con funcionarios empleados Ya existe un registro en Bancos de Ingresos Egresos
-                                            TxtDocumentoImporte.Text = TxtDocumentoImporteFE.Text
-                                            TxtDocumentoImporteCaja.Text = TxtDocumentoImporteFE.Text
-
-                                            Dim ImportePagadoFE As Decimal = 0
-                                            Dim ImporteAPagarFE As Decimal = TxtDocumentoImporteFE.Text.ToDecimal
-                                            Dim ImportePagar As Decimal = ImporteAPagarFE
-
-                                            'CvePrePoliza = ObjConta.AddPrePolizas("Banc", 2, ImporteAPagarFE, ImporteAPagarFE, DdlMoneda.SelectedValue.ToEntero, TxtFecha.Text.ToDate, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                                            If CvePrePoliza > 0 Then
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImportePagar, " ", 29, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CvePersonal:=DdlFuncionarioEmpleado.SelectedValue.ToEntero, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveColectiva:=CveColectiva, CveIE:=CveIE, ImporteMX:=ImportePagar) Then
-                                                    ErrorMovtosCxP = True
-                                                End If
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImportePagar, " ", 17, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CvePersonal:=DdlFuncionarioEmpleado.SelectedValue.ToEntero, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveColectiva:=CveColectiva, CveIE:=CveIE, ImporteMX:=ImportePagar) Then
-                                                    ErrorMovtosCxP = True
-                                                End If
-
-
-                                                Dim PorcentajePago As Decimal = (ImportePagar) / TxtTotal.Text.ToDecimal
-
-                                                'IVA por Acreditar . siempre se registra aunque sea cero
-                                                If Not ErrorMovtosCxP Then
-
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", 19, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True
-
-                                                End If
-
-                                                If Not ErrorMovtosCxP AndAlso TxtRetIVA.Text.ToDouble > 0 Then
-                                                    'Agrego el RetIVA
-
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", 22, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True
-
-                                                End If
-
-                                                If Not ErrorMovtosCxP AndAlso TxtRetISR.Text.ToDouble > 0 Then
-                                                    'Agrego el RetISR
-
-                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", 23, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then ErrorMovtosCxP = True
-
-                                                End If
-
-
-                                                'sino alcanzo a cubrir se regitran los ivas por acreditar
-                                                If TxtTotal.Text.ToDouble - ImportePagar > 0 Then
-                                                    PorcentajePago = (TxtTotal.Text.ToDecimal - ImportePagar) / TxtTotal.Text.ToDecimal
-                                                    'Movimiento, se omite, porque se esta registrando la totalidad de la deuda
-                                                    'If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtTotal.Text.ToDouble - ImporteAnticipo, " ", 5, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle) Then
-                                                    '    ErrorMovtosCxP = True
-                                                    'End If
-                                                    'Siempre: Se agrega IVA aunque sea cero
-                                                    If TxtIVA.Text.ToDouble <> 0 Then
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TxtIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtIVA.Text.ToDecimal * PorcentajePago) Then
-                                                            ErrorMovtosIVA = True
-                                                        End If
-                                                    End If
-
-                                                    'Se agregan las Ret IVA
-                                                    If TxtRetIVA.Text.ToDouble <> 0 Then
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetIVA.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetIVA, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetIVA.Text.ToDecimal * PorcentajePago) Then
-                                                            ErrorMovtosRetIVA = True
-                                                        End If
-                                                    End If
-
-                                                    'Se agregan las Ret ISR
-                                                    If TxtRetISR.Text.ToDouble > 0 Then
-                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, TxtRetISR.Text.ToDecimal * PorcentajePago, " ", CveConceptoRetISR, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorLocal, CveAcreedor:=CveAcreedor, CveIE:=CveIE, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=TxtRetISR.Text.ToDecimal * PorcentajePago) Then
-                                                            ErrorMovtosRetISR = True
-                                                        End If
-                                                    End If
-
-                                                End If
-
-                                            Else
-                                                ErrorMovtosCxP = True
-                                            End If
-
-
-                                        End If
-
-                                    End If 'Empresa Prueba
-
-                                    '************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************
-
-                                    'End If
-                                Else
-                                    ErrorMovtosCxP = True
-                                End If
-
-
-                            End If
-
-                            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})
-
-                                If ArrayCveEstatusOC.Count = ArrayCveOC.Count Then
-                                    For i = 0 To ArrayCveEstatusOC.Count - 1
-                                        If Not ObjOC.UpdateOrdenCompraCompletada(ArrayCveEstatusOC(i).ToEntero, ArrayCveOC(i).ToEntero, UsuarioActual.CveUsuario, "Se vinculó Compra", CveCompra) Then
-                                            ErrorOC = True
-                                            Exit For
-                                        End If
-                                    Next
-                                Else
-                                    ErrorOC = True
-                                End If
-
-                            End If
-
-                            If ChkNCInvNC.Checked Then
-                                For Each Gvr As GridViewRow In GVNCInv.Rows
-                                    If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
-                                        If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
-                                            ErrorMovInv = True
-                                            Exit For
-                                        End If
+                                        'End If
+                                    Else
+                                        ErrorMovtosCxP = True
                                     End If
-                                Next
-                            End If
 
 
-                            'GUARDA BITACORA TIPO CAMBIO OC
-                            If Not ErrorOC And TipoCambioOC > 0 Then
-                                If Not ObjEventos.AddEventoBitacora(String.Format("La vinculación con la orden de compra fue con un tipo de cambio de: ${0}", TipoCambioOC.ToString), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
-                                    ErrorOC = True
-                                End If
-                            End If
-
-
-                            If tDTAcarreos.Rows.Count > 0 Then
-                                If TotAcarreos = TxtSubTotal.Text.ToDouble Then
-                                    'ACARREOS
-                                    For Each tDTAcar As DataRow In tDTAcarreos.Rows
-                                        If Not ObjAcar.UpdatePreEstimacion(CInt(tDTAcar("CvePreEstimacion")), CveCompra) Then
-                                            ErrorAddAcarreos = True
-                                            Exit For
-                                        End If
-                                    Next
-                                Else
-                                    ErrorAddAcarreos = 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 = 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
-                                    ErrorCreditosCompra = True
                                 End If
 
-                                If Not ErrorCreditosCompra 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})
 
-                                    If ObjIE.GetCreditos(DdlCredito.SelectedValue.ToEntero, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
-                                        CvePrePolizaCredito = ObjConta.AddPrePolizas("Compras/RegistrarCredito", -1, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 1, TxtFecha.Text.ToDate, "Vinculación crédito con factura", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                                        If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado.ToDecimal, "", 17, "Vinculación crédito con factura", TxtFecha.Text.ToDate, CtaProveedor, -1, CveProveedor:=CveProveedor, CveCompra:=CveCompra, ImporteMX:=ObjIE.TotalFinanciado.ToDecimal, CvePrePolizaOriginal:=CvePrePolizaCredito) Then
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado.ToDecimal, "", 50, "Vinculación crédito con factura", TxtFecha.Text.ToDate, CtaProveedor, -1, CveProveedor:=CveProveedor, CveCompra:=CveCompra, ImporteMX:=ObjIE.TotalFinanciado.ToDecimal, CvePrePolizaOriginal:=CvePrePolizaCredito) Then
-                                                ErrorCreditosCompra = True
+                                    If ArrayCveEstatusOC.Count = ArrayCveOC.Count Then
+                                        For i = 0 To ArrayCveEstatusOC.Count - 1
+                                            If Not ObjOC.UpdateOrdenCompraCompletada(ArrayCveEstatusOC(i).ToEntero, ArrayCveOC(i).ToEntero, UsuarioActual.CveUsuario, "Se vinculó Compra", CveCompra) Then
+                                                ErrorOC = True
+                                                Exit For
                                             End If
-                                        Else
-                                            ErrorCreditosCompra = True
-                                        End If
-
-                                        If Not ErrorCreditosCompra Then
-                                            ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCredito)
-                                        End If
-
-                                    End If
-                                End If
-
-                            End If
-
-
-
-
-                            'VALIDAR ERRORES
-                            If ErrorAC OrElse ErrorPrepoliza OrElse ErrorPrepolizaDescuadre OrElse ErrorDetalles OrElse ErrorMovDev OrElse ErrorMovtosCxP OrElse ErrorMovtosRetIVA OrElse ErrorMovtosRetISR OrElse ErrorMovtosEstimaciones OrElse ErrorMovtosIE OrElse ErrorMovtosIVA OrElse ErrorMovInv OrElse TieneError OrElse ErrorAF OrElse ErrorOC OrElse ErrorBitacora OrElse ErrorAddAcarreos OrElse ErrorCreditosCompra Then
-                                If ErrorDetalles Then
-                                    Alert("Ocurrió un Error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovtosCxP Then
-                                    Alert("Ocurrió un Error al agregar las CxP.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovtosRetIVA Then
-                                    Alert("Ocurrió un Error al agregar las Retenciones de IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovtosRetISR Then
-                                    Alert("Ocurrió un Error al agregar las Retenciones de ISR.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovtosEstimaciones Then
-                                    Alert("Ocurrió un Error al agregar las Estimaciones.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovtosIE Then
-                                    Alert("Ocurrió un Error al agregar el movimiento bancario.<br />Revise sus datos y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovtosIVA Then
-                                    Alert("Ocurrió un Error al agregar el IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorMovInv Then
-                                    Alert("Ocurrió un Error al agregar el Producto o Servicio al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                                ElseIf TieneError Then
-                                    Alert("El total de los IMPORTES del FINANCIAMIENTO debe ser mayor que 0 y menor o igual al total de la compra", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorAF Then
-                                    Alert("Error al actualizar la vinculacion del Activo Fijo", TipoMensaje.MsgAdvertencia)
-                                ElseIf ErrorAC Then
-                                    Alert("Ocurrió un Error al insertar los movimientos contables.", TipoMensaje.MsgError)
-                                    GuardaLog($" Error Compras  DESCRIPCIÓN DETALLADA: {ErrorACMEnsaje.ToString} {vbCrLf}  Usuario={UsuarioActual.CveUsuario},  Empresa={UsuarioActual.CveEmpresa},  CveFactura={CveFactura},  CveProveedor={CveProveedor}")
-                                ElseIf ErrorPrepolizaDescuadre Then
-                                    Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
-                                ElseIf ErrorPrepoliza Then
-                                    Alert("Ocurrió un error al verificar los movimientos contables", TipoMensaje.MsgError)
-                                ElseIf ErrorOC Then
-                                    Alert("Ocurrió un Error al vincular la Orden(es) de Compra. Por favor vuelva intentar.", TipoMensaje.MsgError)
-                                ElseIf ErrorBitacora Then
-                                    Alert("Ocurrió un Error al guardar la refacturación.", TipoMensaje.MsgError)
-                                ElseIf ErrorAddAcarreos Then
-                                    Alert("Ocurrio un Error al momento de agregar los acarreos.", TipoMensaje.MsgError)
-                                ElseIf ErrorCreditosCompra Then
-                                    Alert("Ocurrió un Error al vincular la compra con el crédito.", TipoMensaje.MsgError)
-                                ElseIf ErrorOtrosGastos Then
-                                    Alert("Ocurrió un Error al vincular la compra con la orden de corte.", TipoMensaje.MsgError)
-                                ElseIf ErrorSATPS Then
-                                    Alert("Ocurrió un Error al actualizar el producto/servicio SAT.", TipoMensaje.MsgError)
-                                ElseIf ErrorSaldosInvComp Then
-                                    Alert("Ocurrió un error al validar la mercancía recibida por adelantado.", TipoMensaje.MsgError)
-                                End If
-
-                                ViewState("CveCompra") = -1
-                                ObjCompras.RollBack()
-                                If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
-                                CargaProveedor(CveProveedor, "-1")
-                            Else
-                                Dim MsgAccionAceptar As String = ""
-                                Dim Msg As New StringBuilder
-                                Msg.Append("La compra se registró correctamente")
-
-
-                                'ACTUALIZA CVEFACTURA
-                                If Request("CveFactura") IsNot Nothing Then
-
-                                    If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
+                                        Next
+                                    Else
                                         ErrorOC = True
                                     End If
 
-                                    If UsuarioActual.Empresa.UsaAC Then
-                                        MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
-                                    Else
-                                        MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
-                                    End If
-                                Else
-                                    MsgAccionAceptar = "location.href =""Compras.aspx"""
                                 End If
 
-
-
-                                'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
-                                If UsuarioActual.CveEmpresa.Contiene(1, 119) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
-                                    If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
-                                        Dim CvePreComprobacion As Integer
-                                        If ObjCompras.DtResultados.Rows.Count = 0 Then
-                                            'sino existe, creamos la comprobacion
-                                            Dim tConcepto As String = If(DdlPersonalReembolso.SelectedValue.ToEntero > 0, DdlPersonalReembolso.SelectedItem.Text, DdlCuentaCajaChicaReembolso.SelectedItem.Text)
-                                            tConcepto = String.Format("{0}-{1}", tConcepto, TxtNumeroReembolso.Text.Trim)
-
-                                            CvePreComprobacion = ObjConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
-                                            If ObjCompras.AddComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
-
+                                If ChkNCInvNC.Checked Then
+                                    For Each Gvr As GridViewRow In GVNCInv.Rows
+                                        If Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble > 0 Then
+                                            If Not ObjCompras.ComprasDetalleDevolucionesAdd(Gvr.DataKey("CveCompraDetalle").ToEntero, CveCompra, Gvr.FCTextBox("TxtCantidadNCInv").Text.ToDouble, UsuarioActual.CveEmpresa) Then
+                                                ErrorMovInv = True
+                                                Exit For
                                             End If
-                                        Else
-                                            'si ya existe, obtenemos la prepóliza
-                                            CvePreComprobacion = ObjCompras.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
                                         End If
-
-                                        ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
-                                    End If
-
-                                End If
-
-
-
-                                'AJUSTA POLIZA
-                                If IdPoliza > 0 Then
-                                    ObjContaAC.AjustaPoliza(IdPoliza)
-                                    Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
-                                End If
-
-                                If CveMovimientoInventario > 0 Then
-                                    Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario))
-                                    Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Ver Movimiento de Almacen</a>", CveMovimientoInventario)
-                                    Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Entrada Almacen</a>", TempParametros)
-                                End If
-
-                                ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0)
-
-                                If EntregaDirecta Then
-                                    Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
-                                End If
-
-                                ObjCompras.Commit()
-                                If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
-
-                                Dim CveEvaluacionProveedor As Integer = -1
-
-                                If Me.RequiereEvaluacion Then
-                                    Dim ObjPro As New ClsCompProveedores()
-                                    CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa)
-                                    ObjPro.Dispose()
-                                End If
-
-                                'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC
-                                MandaCorreoOCVendedores(CveCompra)
-                                If Not ErrorMovInv Then
-                                    For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen
-                                        MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen)
                                     Next
                                 End If
 
-                                If CveEvaluacionProveedor > 0 Then
-                                    Msg.Append("<br/><br/>El proveedor tiene evaluaciones pendientes<br/>")
-                                    Msg.Append("¿Desea realizar una evaluacion al proveedor?")
-                                    Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Compras/EvaluacionProveedor.aspx?CveEvaluacionProveedor={CveEvaluacionProveedor}"">Evaluar Proveedor.</a>")
+
+                                'GUARDA BITACORA TIPO CAMBIO OC
+                                If Not ErrorOC And TipoCambioOC > 0 Then
+                                    If Not ObjEventos.AddEventoBitacora(String.Format("La vinculación con la orden de compra fue con un tipo de cambio de: ${0}", TipoCambioOC.ToString), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
+                                        ErrorOC = True
+                                    End If
                                 End If
 
-                                Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
 
+                                If tDTAcarreos.Rows.Count > 0 Then
+                                    If TotAcarreos = TxtSubTotal.Text.ToDouble Then
+                                        'ACARREOS
+                                        For Each tDTAcar As DataRow In tDTAcarreos.Rows
+                                            If Not ObjAcar.UpdatePreEstimacion(CInt(tDTAcar("CvePreEstimacion")), CveCompra) Then
+                                                ErrorAddAcarreos = True
+                                                Exit For
+                                            End If
+                                        Next
+                                    Else
+                                        ErrorAddAcarreos = 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 = 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
+                                        ErrorCreditosCompra = True
+                                    End If
+
+                                    If Not ErrorCreditosCompra Then
+
+                                        If ObjIE.GetCreditos(DdlCredito.SelectedValue.ToEntero, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
+                                            CvePrePolizaCredito = ObjConta.AddPrePolizas("Compras/RegistrarCredito", -1, ObjIE.TotalFinanciado, ObjIE.TotalFinanciado, 1, TxtFecha.Text.ToDate, "Vinculación crédito con factura", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                            If ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, False, ObjIE.TotalFinanciado.ToDecimal, "", 17, "Vinculación crédito con factura", TxtFecha.Text.ToDate, CtaProveedor, -1, CveProveedor:=CveProveedor, CveCompra:=CveCompra, ImporteMX:=ObjIE.TotalFinanciado.ToDecimal, CvePrePolizaOriginal:=CvePrePolizaCredito) Then
+                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaCredito, True, ObjIE.TotalFinanciado.ToDecimal, "", 50, "Vinculación crédito con factura", TxtFecha.Text.ToDate, CtaProveedor, -1, CveProveedor:=CveProveedor, CveCompra:=CveCompra, ImporteMX:=ObjIE.TotalFinanciado.ToDecimal, CvePrePolizaOriginal:=CvePrePolizaCredito) Then
+                                                    ErrorCreditosCompra = True
+                                                End If
+                                            Else
+                                                ErrorCreditosCompra = True
+                                            End If
+
+                                            If Not ErrorCreditosCompra Then
+                                                ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCredito)
+                                            End If
+
+                                        End If
+                                    End If
+
+                                End If
+
+
+
+
+                                'VALIDAR ERRORES
+                                If ErrorAC OrElse ErrorPrepoliza OrElse ErrorPrepolizaDescuadre OrElse ErrorDetalles OrElse ErrorMovDev OrElse ErrorMovtosCxP OrElse ErrorMovtosRetIVA OrElse ErrorMovtosRetISR OrElse ErrorMovtosEstimaciones OrElse ErrorMovtosIE OrElse ErrorMovtosIVA OrElse ErrorMovInv OrElse TieneError OrElse ErrorAF OrElse ErrorOC OrElse ErrorBitacora OrElse ErrorAddAcarreos OrElse ErrorCreditosCompra Then
+                                    If ErrorDetalles Then
+                                        Alert("Ocurrió un Error al agregar un Producto o Servicio a la Factura.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovtosCxP Then
+                                        Alert("Ocurrió un Error al agregar las CxP.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovtosRetIVA Then
+                                        Alert("Ocurrió un Error al agregar las Retenciones de IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovtosRetISR Then
+                                        Alert("Ocurrió un Error al agregar las Retenciones de ISR.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovtosEstimaciones Then
+                                        Alert("Ocurrió un Error al agregar las Estimaciones.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovtosIE Then
+                                        Alert("Ocurrió un Error al agregar el movimiento bancario.<br />Revise sus datos y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovtosIVA Then
+                                        Alert("Ocurrió un Error al agregar el IVA.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorMovInv Then
+                                        Alert("Ocurrió un Error al agregar el Producto o Servicio al Inventario.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
+                                    ElseIf TieneError Then
+                                        Alert("El total de los IMPORTES del FINANCIAMIENTO debe ser mayor que 0 y menor o igual al total de la compra", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorAF Then
+                                        Alert("Error al actualizar la vinculacion del Activo Fijo", TipoMensaje.MsgAdvertencia)
+                                    ElseIf ErrorAC Then
+                                        Alert("Ocurrió un Error al insertar los movimientos contables.", TipoMensaje.MsgError)
+                                        GuardaLog($" Error Compras  DESCRIPCIÓN DETALLADA: {ErrorACMEnsaje.ToString} {vbCrLf}  Usuario={UsuarioActual.CveUsuario},  Empresa={UsuarioActual.CveEmpresa},  CveFactura={CveFactura},  CveProveedor={CveProveedor}")
+                                    ElseIf ErrorPrepolizaDescuadre Then
+                                        Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
+                                    ElseIf ErrorPrepoliza Then
+                                        Alert("Ocurrió un error al verificar los movimientos contables", TipoMensaje.MsgError)
+                                    ElseIf ErrorOC Then
+                                        Alert("Ocurrió un Error al vincular la Orden(es) de Compra. Por favor vuelva intentar.", TipoMensaje.MsgError)
+                                    ElseIf ErrorBitacora Then
+                                        Alert("Ocurrió un Error al guardar la refacturación.", TipoMensaje.MsgError)
+                                    ElseIf ErrorAddAcarreos Then
+                                        Alert("Ocurrio un Error al momento de agregar los acarreos.", TipoMensaje.MsgError)
+                                    ElseIf ErrorCreditosCompra Then
+                                        Alert("Ocurrió un Error al vincular la compra con el crédito.", TipoMensaje.MsgError)
+                                    ElseIf ErrorOtrosGastos Then
+                                        Alert("Ocurrió un Error al vincular la compra con la orden de corte.", TipoMensaje.MsgError)
+                                    ElseIf ErrorSATPS Then
+                                        Alert("Ocurrió un Error al actualizar el producto/servicio SAT.", TipoMensaje.MsgError)
+                                    ElseIf ErrorSaldosInvComp Then
+                                        Alert("Ocurrió un error al validar la mercancía recibida por adelantado.", TipoMensaje.MsgError)
+                                    End If
+
+                                    ViewState("CveCompra") = -1
+                                    ObjCompras.RollBack()
+                                    If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
+                                    CargaProveedor(CveProveedor, "-1")
+                                Else
+                                    Dim MsgAccionAceptar As String = ""
+                                    Dim Msg As New StringBuilder
+                                    Msg.Append("La compra se registró correctamente")
+
+
+                                    'ACTUALIZA CVEFACTURA
+                                    If Request("CveFactura") IsNot Nothing Then
+
+                                        If Not ObjCompras.UpdateCompraFactura(CveCompra, Request("CveFactura").ToEntero, TxtSerie.Text.Trim, TxtFolio.Text.Trim) Then
+                                            ErrorOC = True
+                                        End If
+
+                                        If UsuarioActual.Empresa.UsaAC Then
+                                            MsgAccionAceptar = String.Format("window.opener.location.href = window.opener.location.href; window.open(""/Contabilidad/RegPoliza.aspx?IdPoliza={0}""); window.close();", IdPoliza)
+                                        Else
+                                            MsgAccionAceptar = "if (window.opener){window.opener.location.href = window.opener.location.href; window.close();}"
+                                        End If
+                                    Else
+                                        MsgAccionAceptar = "location.href =""Compras.aspx"""
+                                    End If
+
+
+
+                                    'CUANDO ES REEMBOLSO COMPROBACION Y CAJA CHICA
+                                    If UsuarioActual.CveEmpresa.Contiene(1, 119) AndAlso TxtNumeroReembolso.Text.Trim <> "" AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0) Then
+                                        If ObjCompras.GetComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, UsuarioActual.CveEmpresa) Then
+                                            Dim CvePreComprobacion As Integer
+                                            If ObjCompras.DtResultados.Rows.Count = 0 Then
+                                                'sino existe, creamos la comprobacion
+                                                Dim tConcepto As String = If(DdlPersonalReembolso.SelectedValue.ToEntero > 0, DdlPersonalReembolso.SelectedItem.Text, DdlCuentaCajaChicaReembolso.SelectedItem.Text)
+                                                tConcepto = String.Format("{0}-{1}", tConcepto, TxtNumeroReembolso.Text.Trim)
+
+                                                CvePreComprobacion = ObjConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                                                If ObjCompras.AddComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
+
+                                                End If
+                                            Else
+                                                'si ya existe, obtenemos la prepóliza
+                                                CvePreComprobacion = ObjCompras.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
+                                            End If
+
+                                            ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
+                                        End If
+
+                                    End If
+
+
+
+                                    'AJUSTA POLIZA
+                                    If IdPoliza > 0 Then
+                                        ObjContaAC.AjustaPoliza(IdPoliza)
+                                        Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
+                                    End If
+
+                                    If CveMovimientoInventario > 0 Then
+                                        Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario))
+                                        Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Ver Movimiento de Almacen</a>", CveMovimientoInventario)
+                                        Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Entrada Almacen</a>", TempParametros)
+                                    End If
+
+                                    ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0)
+
+                                    If EntregaDirecta Then
+                                        Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
+                                    End If
+
+                                    ObjCompras.Commit()
+                                    If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
+
+                                    Dim CveEvaluacionProveedor As Integer = -1
+
+                                    If Me.RequiereEvaluacion Then
+                                        Dim ObjPro As New ClsCompProveedores()
+                                        CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa)
+                                        ObjPro.Dispose()
+                                    End If
+
+                                    'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC
+                                    MandaCorreoOCVendedores(CveCompra)
+                                    If Not ErrorMovInv Then
+                                        For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen
+                                            MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen)
+                                        Next
+                                    End If
+
+                                    If CveEvaluacionProveedor > 0 Then
+                                        Msg.Append("<br/><br/>El proveedor tiene evaluaciones pendientes<br/>")
+                                        Msg.Append("¿Desea realizar una evaluacion al proveedor?")
+                                        Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Compras/EvaluacionProveedor.aspx?CveEvaluacionProveedor={CveEvaluacionProveedor}"">Evaluar Proveedor.</a>")
+                                    End If
+
+                                    Alert(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)
+
+                                End If
+
+                            Else
+                                ObjCompras.RollBack()
+                                If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
+                                Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
                             End If
 
+
                         Else
+                            Alert("Debe seleccionar un Funcionario/Empleado o Caja Chica para Reembolsos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
                             ObjCompras.RollBack()
                             If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
-                            Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
                         End If
 
-
                     Else
-                        Alert("Debe seleccionar un Funcionario/Empleado o Caja Chica para Reembolsos. Por favor vuelva a intentar.", TipoMensaje.MsgError)
+                        Alert("Ocurrió un error al agregar el movimiento bancario.<br />Revise sus datos de pago y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
                         ObjCompras.RollBack()
-                        If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
                     End If
 
-                Else
-                    Alert("Ocurrió un error al agregar el movimiento bancario.<br />Revise sus datos de pago y cualquier detalle comuníquese a Soporte Técnico", TipoMensaje.MsgAdvertencia)
-                    ObjCompras.RollBack()
-                End If
-
                 End If
 
             Catch ex As Exception
@@ -8846,6 +8846,12 @@ Partial Class Compras_Compras
                         '    End If
                         'End If
 
+                        If IdPoliza > 0 Then
+                            If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                                Retorno = False
+                            End If
+                        End If
+
                         'If UsuarioActual.Empresa.Funcionalidad(207) = "1" Then
                         If Not ActualizarPrePoliza(ObjContabilidad, ObjCompra) Then
                             Retorno = False
@@ -8853,7 +8859,7 @@ Partial Class Compras_Compras
                         'End If
 
                         ''EMPIEZA: SI USA AC
-                        If UsuarioActual.Empresa.UsaAC And IdPoliza > 0 Then
+                        If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IdPoliza > 0 Then
                             ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
                             ObjContaAC.IniciaTransacSQL()
 
@@ -9174,6 +9180,8 @@ Partial Class Compras_Compras
                         End If
                         ''TERMINA: SI USA AC
 
+
+
                         If Not ErrorAC Then
                             Dim Cont As Integer = 0
                             For Each Row As DataRow In TmpDT.Rows
@@ -9241,6 +9249,7 @@ Partial Class Compras_Compras
                                     If Not ObjContabilidad.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa, UsuarioActual.Empresa, MinFecha, String.Format("{0}-{1}", Serie, Folio), ObjContaAC, pIDPoliza:=ViewState("IdPoliza").ToString.ToEntero) Then
                                         Retorno = False
                                     End If
+
                                 End If
                             End If
 

From ceb40eb9adc0624c54bcf2f31cf9c25881f30d0c Mon Sep 17 00:00:00 2001
From: Raul Pimienta <raul.pimienta@adssistemas.mx>
Date: Mon, 2 Sep 2019 18:22:33 -0700
Subject: [PATCH 4/4] Seleccion multiple tipo de comprobante reporte de
 productos servicios ventas

---
 Ventas/RepProductosServicios.aspx           | 48 ++++++++++++++++++++-
 Ventas/RepProductosServicios.aspx.vb        |  3 +-
 Ventas/RepProductosServiciosDetalle.aspx    | 47 +++++++++++++++++++-
 Ventas/RepProductosServiciosDetalle.aspx.vb |  8 ++--
 4 files changed, 98 insertions(+), 8 deletions(-)

diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx
index df1d14bf3..ee9d8692e 100644
--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -9,6 +9,40 @@
             background-color: rgba(172, 195, 222, 0.65) !important;
         }
 
+         .select2 .select2-selection__rendered {
+            line-height: 1;
+            color: #111;
+        }
+
+        .select2 .select2-selection--multiple {
+            box-sizing: border-box;
+            cursor: pointer;
+            display: block;
+            min-height: 20px;
+            user-select: none;
+            -webkit-user-select: none;
+        }
+
+        .select2-container--default .select2-selection--multiple .select2-selection__choice {
+            margin-top: 10px;
+        }
+
+        .select2-selection__rendered {
+            margin-top: 0px;
+            height: 25px;
+        }
+
+        .select2-selection {
+            margin-top: 0px;
+            height: 31px;
+        }
+
+        .select2-container--default.select2-container--focus .select2-selection--multiple {
+            border: none;
+            outline: 0;
+        }
+
+
         #chartdiv {
             width: 100%;
             height: 500px;
@@ -65,7 +99,17 @@
                         <div class="row">
                             <label class="col-md-1">Tipo: </label>
                             <div class="col-md-2">
-                                <asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlTipoComprobante" runat="server" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged" AutoPostBack="true">
+                                <asp:ListBox ID="DdlTipoComprobante" AutoPostBack="true" OnTextChanged="DdlTipoComprobante_SelectedIndexChanged" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
+                                    <asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem>
+                                    <asp:ListItem Text="Egresos" Value="Egs"></asp:ListItem>
+                                    <asp:ListItem Text="Remisión" Value="Rem"></asp:ListItem>
+                                    <asp:ListItem Text="Cotización" Value="Cot"></asp:ListItem>
+                                    <asp:ListItem Text="Anticipos" Value="Ant"></asp:ListItem>
+                                    <asp:ListItem Text="Pedido Con" Value="Ped"></asp:ListItem>
+                                    <asp:ListItem Text="Devolucion" Value="Dev"></asp:ListItem>
+									<asp:ListItem Text="Pedido" Value="Pd2"></asp:ListItem>
+                                </asp:ListBox>
+                                <%--<asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlTipoComprobante" runat="server" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged" AutoPostBack="true">
                                     <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                     <asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem>
                                     <asp:ListItem Text="Egresos" Value="Egs"></asp:ListItem>
@@ -74,7 +118,7 @@
                                     <asp:ListItem Text="Anticipos" Value="Ant"></asp:ListItem>
                                     <asp:ListItem Text="Pedido" Value="Ped"></asp:ListItem>
                                     <asp:ListItem Text="Devolucion" Value="Dev"></asp:ListItem>
-                                </asp:DropDownList>
+                                </asp:DropDownList>--%>
                             </div>
                             <div class="col-md-1 truncate">
                                 Fecha Inicio:
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index 648d3cfdf..cf47e16aa 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -248,6 +248,7 @@ Partial Class Ventas_RepProductosServicios
 
     Private Sub CargaDatos()
 
+        Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
         Dim FechaI, FechaF, FechaIEjec, FechaFEjec As Date
         FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.ToDate, MinFecha)
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.ToDate, MaxFecha)
@@ -262,7 +263,7 @@ Partial Class Ventas_RepProductosServicios
         If ObjVentas.GetRepProductosServicios(DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
                                               DdlPS.SelectedValue.ToEntero, FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente,
                                               DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, "-1",
-                                              UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoComprobante.SelectedValue,
+                                              UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
                                               CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveProveedorCompra:=CveProveedorCompra, CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
diff --git a/Ventas/RepProductosServiciosDetalle.aspx b/Ventas/RepProductosServiciosDetalle.aspx
index 744e2616b..70da39f4f 100644
--- a/Ventas/RepProductosServiciosDetalle.aspx
+++ b/Ventas/RepProductosServiciosDetalle.aspx
@@ -5,6 +5,39 @@
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
     <style>
+         .select2 .select2-selection__rendered {
+            line-height: 1;
+            color: #111;
+        }
+
+        .select2 .select2-selection--multiple {
+            box-sizing: border-box;
+            cursor: pointer;
+            display: block;
+            min-height: 20px;
+            user-select: none;
+            -webkit-user-select: none;
+        }
+
+        .select2-container--default .select2-selection--multiple .select2-selection__choice {
+            margin-top: 10px;
+        }
+
+        .select2-selection__rendered {
+            margin-top: 0px;
+            height: 25px;
+        }
+
+        .select2-selection {
+            margin-top: 0px;
+            height: 31px;
+        }
+
+        .select2-container--default.select2-container--focus .select2-selection--multiple {
+            border: none;
+            outline: 0;
+        }
+
         #chartdiv {
             width: 100%;
             height: 500px;
@@ -59,7 +92,17 @@
                         <div class="row">
                             <label class="col-md-1">Tipo: </label>
                             <div class="col-md-2">
-                                <asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlTipoComprobante" runat="server" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged" AutoPostBack="true">
+                                <asp:ListBox ID="DdlTipoComprobante" AutoPostBack="true" OnTextChanged="DdlTipoComprobante_SelectedIndexChanged" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
+                                    <asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem>
+                                    <asp:ListItem Text="Egresos" Value="Egs"></asp:ListItem>
+                                    <asp:ListItem Text="Remisión" Value="Rem"></asp:ListItem>
+                                    <asp:ListItem Text="Cotización" Value="Cot"></asp:ListItem>
+                                    <asp:ListItem Text="Anticipos" Value="Ant"></asp:ListItem>
+                                    <asp:ListItem Text="Pedido Con" Value="Ped"></asp:ListItem>
+                                    <asp:ListItem Text="Devolucion" Value="Dev"></asp:ListItem>
+									<asp:ListItem Text="Pedido" Value="Pd2"></asp:ListItem>
+                                </asp:ListBox>
+                                <%--<asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlTipoComprobante" runat="server" OnSelectedIndexChanged="DdlTipoComprobante_SelectedIndexChanged" AutoPostBack="true">
                                     <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                     <asp:ListItem Text="Ingresos" Value="Ing"></asp:ListItem>
                                     <asp:ListItem Text="Egresos" Value="Egs"></asp:ListItem>
@@ -68,7 +111,7 @@
                                     <asp:ListItem Text="Anticipos" Value="Ant"></asp:ListItem>
                                     <asp:ListItem Text="Pedido" Value="Ped"></asp:ListItem>
                                     <asp:ListItem Text="Devolucion" Value="Dev"></asp:ListItem>
-                                </asp:DropDownList>
+                                </asp:DropDownList>--%>
                             </div>
                             <div class="col-md-1 truncate">
                                 Fecha Inicio:
diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb
index 47ff0cc89..43a270058 100644
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -357,7 +357,7 @@ Partial Class Ventas_RepProductosServiciosDetalle
         DdlSubProyectoEjecucion.SelectedValueExist(CveSubProyectoEjecucion)
         DdlVendedor.SelectedValueExist(CveVendedor)
         DdlUsuario.SelectedValueExist(CveUsuario)
-        DdlTipoComprobante.SelectedValueExist(TipoDocto)
+        DdlTipoComprobante.SelectedValuesIfExistM(TipoDocto)
         CargaEstatus()
         DdlEstatus.SelectedValueExist(CveEstatus)
         DdlGrupo.SelectedValueExist(GPO)
@@ -387,13 +387,14 @@ Partial Class Ventas_RepProductosServiciosDetalle
         FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.ToDate, MaxFecha)
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
         Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
+        Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
 
         If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1
 
         If ObjVentas.GetRepProductosServiciosDetalle(DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
                                               DdlPS.SelectedValue.ToEntero, FechaI, FechaF, -1, FechaIEjec, FechaFEjec, -1, CveCliente,
                                               DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
-                                              UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=DdlTipoComprobante.SelectedValue, GPO:=DdlGrupo.SelectedValue.ToEntero, CveMoneda:=CveMoneda,
+                                              UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, GPO:=DdlGrupo.SelectedValue.ToEntero, CveMoneda:=CveMoneda,
                                                      TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra, CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             TmpDT = ObjVentas.DtResultados
@@ -414,12 +415,13 @@ Partial Class Ventas_RepProductosServiciosDetalle
         FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.ToDate, MinFecha)
         FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.ToDate, MaxFecha)
         Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1)
+        Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
 
         If RblTipoCambio.SelectedValue.ToEntero = 3 And TxtEspecifico.Text <> "" Then TCEspecifico = TxtEspecifico.Text.ToDouble Else TCEspecifico = -1
 
         If ObjVentas.GetRepProductosServiciosDetalle(CveProyecto.ToEntero, CveSubProyecto.ToEntero, CveCategoria.ToEntero, CveClasificacion.ToEntero, CvePS.ToEntero,
                                                      FechaI, FechaF, Mes.ToEntero, FechaIEjec, FechaFEjec, MesEjec.ToEntero, CveCliente.ToEntero, CveSubProyectoEjecucion.ToEntero,
-                                                     CveVendedor, CveUsuario.ToEntero, CveEstatus.ToEntero, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoDocto,
+                                                     CveVendedor, CveUsuario.ToEntero, CveEstatus.ToEntero, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante,
                                                      GPO:=Gpo, CveMoneda:=CveMoneda, TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
                                                      CveProveedorCompra:=CveProveedorCompra, CveMarca:=CveMarca) Then
             GvDatos.DataSource = ObjVentas.DtResultados