Merge branch 'master' of http://192.168.10.111:8383/SIG

Bancos/RepEgresosSinComprobante.aspx

@@ -153,9 +153,9 @@
                 <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
 
-                        <asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal,CveSubProyecto" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Proveedores" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" Style="text-align: center;" GridLines="None">
+                        <asp:GridView ID="GvESC" runat="server" DataKeyNames="CveIE, Saldo, CveMoneda, CveConceptoContable, CveProveedor, CvePersonal,CveSubProyecto,Folio" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de Egresos sin Comprobar de Proveedores" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
                             <Columns>
-                                <asp:TemplateField ItemStyle-Width="10%">
+                                <asp:TemplateField ItemStyle-Width="5%">
                                     <ItemTemplate>
                                         <asp:CheckBox ID="chk" Checked="false" Visible="false" runat="server" />
                                         <asp:Literal ID="LtlTip" runat="server" Text='<%# Eval("ConceptoTexto") %>' ></asp:Literal>
@@ -167,31 +167,27 @@
                                         <asp:Literal Text='<%# Eval("Moneda")%>' ID="LtMoneda" runat="server" Visible="false" />
                                     </ItemTemplate>
                                     <ControlStyle CssClass="Texto" />                                  
-                                    <ItemStyle HorizontalAlign="Left" Width="250px" />
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Fecha">
                                     <ItemTemplate>
                                         <asp:Literal ID="LitFechaDocumento" runat="server" Text='<%# Bind("FechaDocumento", "{0:d}") %>'></asp:Literal>
                                     </ItemTemplate>                                   
-                                    <ItemStyle Width="25px" />
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Importe">
                                     <ItemTemplate>
                                         <asp:Literal ID="LitImporte" runat="server" Text='<%# Bind("Importe", "{0:N2}") %>'></asp:Literal>
                                     </ItemTemplate>
-                                    <ItemStyle Width="25px" HorizontalAlign="Right" />
+                                    <ItemStyle HorizontalAlign="Right" />
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Tipo Transacción">
                                     <ItemTemplate>
                                         <asp:Literal ID="LitTipoTransaccion" runat="server" Text='<%# Bind("TipoTransaccion")%>'></asp:Literal>
                                     </ItemTemplate>                                   
-                                    <ItemStyle Width="125px" />
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Folio">
                                     <ItemTemplate>
                                         <asp:HyperLink ID="HLFolio" runat="server" Target="_blank" Text='<%# Bind("Folio")%>' CssClass="Texto"></asp:HyperLink>
                                     </ItemTemplate>                                   
-                                    <ItemStyle Width="75px" />
                                 </asp:TemplateField>
                                 <asp:TemplateField HeaderText="Saldo" ItemStyle-CssClass="fixMargin">
                                     <ItemTemplate>
@@ -199,7 +195,7 @@
                                         <asp:Literal runat="server" Text="&nbsp;&nbsp;"></asp:Literal>
 
                                     </ItemTemplate>
-                                    <ItemStyle Width="65px" Font-Bold="True" HorizontalAlign="Right" />
+                                    <ItemStyle Font-Bold="True" HorizontalAlign="Right" />
                                 </asp:TemplateField>
 
                             </Columns>

Bancos/RepEgresosSinComprobante.aspx.vb

@@ -202,6 +202,17 @@ Partial Class Bancos_RepEgresosSinComprobante
         Dim CvePrePoliza As Integer = 0
         Dim MsgError As String = ""
         Try
+            Dim Contador As Integer = 0
+            For Each gr As GridViewRow In GvESC.Rows
+                If gr.FCCheckBox("Chk").Checked Then
+                    Contador += 1
+                End If
+            Next
+
+            If Contador > 0 Then
+                CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, 0, 0, 1, Now,
+                                                          "Saldo de Egresos por comprobar", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
                 For Each gr As GridViewRow In GvESC.Rows
                     If gr.FCCheckBox("Chk").Checked Then
                         Dim IdCtaContable As Integer = 0
@@ -222,25 +233,18 @@ Partial Class Bancos_RepEgresosSinComprobante
                                 CveConceptoContable = 41
                             Case 43
                                 CveConceptoContable = 37
+                            Case 48
+                                CveConceptoContable = 56
                         End Select
 
-                    If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, gr.DataKey("CveProveedor").ToEntero, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Folio"), CveConceptoContable, "Saldo de ExC por Sistema", Now, IdCtaContable, -1,
-                        If ObjProveedor.DtResultados.Rows.Count > 0 Then
-                            IdCtaContable = ObjProveedor.IdCtaContProveedores
-                        End If
-                    End If
-
-                    CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, Now,
-                                                          "Saldo de ExC por Sistema", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoConcepto, gr.DataKey("Saldo").ToDecimal, "", CveConceptoContable, "Saldo de ExC por Sistema", Now, IdCtaContable, -1,
                                                              gr.DataKey("CveIE").ToEntero, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CvePersonal:=gr.DataKey("CvePersonal").ToEntero,
                                                              ImporteMX:=gr.DataKey("Saldo").ToDecimal, Contabilizable:=EsContabilizable) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                             Exit For
                         End If
 
-                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, "", 78, "Saldo de ExC por Sistema", Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, gr.DataKey("CveIE").ToEntero,
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Folio"), 211, "Saldo de ExC por Sistema", Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, gr.DataKey("CveIE").ToEntero,
                                                              ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, Contabilizable:=EsContabilizable) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                             Exit For
@@ -254,6 +258,10 @@ Partial Class Bancos_RepEgresosSinComprobante
 
                     End If
                 Next
+            Else
+                Alert("No se especificaron")
+            End If
+
         Catch ex As Exception
             MsgError = "Ocurrió un error al generar la prepoliza"
             OnError(MsgError, ex)
@@ -261,16 +269,18 @@ Partial Class Bancos_RepEgresosSinComprobante
 
 
         If MsgError = "" Then
+            LnkSaldar.Visible = False
+            LnkHabilitarSaldar.Visible = True
             ObjConta.Commit()
             CargaDatos()
-            Alert("Los movimientos se saldaron correctamente.")
+            Alert(String.Format("Los movimientos se saldaron correctamente <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
+
         Else
             ObjConta.RollBack()
             Alert(MsgError, TipoMensaje.MsgError)
         End If
 
-        LnkSaldar.Visible = False
+
-        LnkHabilitarSaldar.Visible = True
 
         ObjConta.Dispose()
         ObjProveedor.Dispose()

Compras/Compras.aspx.vb

@@ -6613,9 +6613,6 @@ Partial Class Compras_Compras
 
                                                                 Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
 
-                                                                If Not ObjCompras.UpdateEstatusAlmacen(CveCompra, 2, UsuarioActual.CveUsuario) Then
-                                                                    ErrorMovInv = True
-                                                                End If
 
                                                                 If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then
                                                                         RegistroCuentaPuente = True
@@ -13692,28 +13689,39 @@ Partial Class Compras_Compras
             End If
         End If
         ObjComprasComprobacion.Dispose()
-        Dim cvemovimientoentrada As Integer = -1
 
 
+        Dim ObjCompras As New ClsCompras
+        Dim ObjContabilidad As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
+        Dim ObjInventario As New ClsInventarios(ObjCompras.IniciaTransacSQL())
 
+        Dim ObjAC As ClsContPAQi = Nothing
+        If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then
+            ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
+            ObjAC.IniciaTransacSQL()
+        End If
+
+        Dim ErrorCancelar = False
+        Dim IdPolizaNueva = -1
+        Dim FolioPolizaNueva = -1
+        Dim CvePrePolizaNueva = -1
+
+        Try
 
             'DEVOLUCIÓN AUTOMATICA
             If CheckDevAuto.Checked Then
-            Dim ErrorMovInv As Boolean = False
 
-            Dim folio As Integer
+                Dim fecha As Date = TxtFechaCancelacion.Text.ToDateTime().AddHours(23).AddMinutes(59)
-            Dim fecha As Date = TxtFechaCancelacion.Text.ToDate
                 Dim importeconcepto As Decimal
-            Dim ObjInventario As New ClsInventarios
+
-            Dim ObjCompra As New ClsCompras
                 Dim tbmovs As DataTable = Nothing
                 Dim TmpDT As DataTable = Nothing
                 Dim TipoCambioGuardar As Decimal = 1
-            Dim tcvealmacen As Integer = 0
 
-            If ObjCompra.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
+
-                If ObjCompra.DtResultados.Rows.Count > 0 Then
+                If ObjCompras.GetCompraDetalle(CveCompra, UsuarioActual.CveEmpresa) Then
-                    TmpDT = ObjCompra.DtResultados
+                    If ObjCompras.DtResultados.Rows.Count > 0 Then
+                        TmpDT = ObjCompras.DtResultados.Copy()
                     End If
                 End If
 
@@ -13728,60 +13736,93 @@ Partial Class Compras_Compras
                 End If
                 TipoCambio = If(DivTC.Visible, TipoCambioGuardar, TipoCambio)
 
-            For Each dtMovs As DataRow In TmpDT.Rows
+                'For Each dtMovs As DataRow In TmpDT.Rows
-                If TmpDT.Rows.Count > 0 Then
+                '    If TmpDT.Rows.Count > 0 Then
-                    tcvealmacen = dtMovs("AlmacenRegistrado").ToString.ToEntero
+                '        tcvealmacen = dtMovs("AlmacenRegistrado").ToString.ToEntero
+                '        Exit For
+                '    End If
+                'Next
+
+                Dim DtMovimientos = tbmovs.FiltraParametros("Origen = 1", DistinctColumns:={"CveMovimiento", "CveConcepto", "CveAlmacen", "Origen"})
+
+                For Each RowMovto As DataRow In DtMovimientos.Rows
+
+                    Dim CveMovimientoEntrada As Integer = -1
+
+                    Dim Folio As Integer
+                    Dim CveAlmacen As Integer = RowMovto("CveAlmacen").ToString().ToEntero()
+                    Dim CveConceptoDevolucion As Integer = -1
+                    Dim CveConcetoEntrada = RowMovto("CveConcepto").ToString().ToEntero()
+                    Dim CveMovimientoReferencia As Integer = RowMovto("CveMovimiento").ToString().ToEntero()
+
+                    Select Case CveConcetoEntrada
+                        Case 2
+                            CveConceptoDevolucion = 13
+                    End Select
+
+                    Folio = ObjInventario.GetFolioSiguiente(CveConceptoDevolucion, UsuarioActual.CveEmpresa)
+                    CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, CveConceptoDevolucion, 1, fecha, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Devolucion Automatica")
+
+                    If CveMovimientoEntrada <= 0 Then
+                        ErrorCancelar = True
+                        Exit For
+                    Else
+                        For Each dr As DataRow In tbmovs.Rows
+                            If dr("CveAlmacen").ToString.ToEntero = CveAlmacen And dr("CveCompraDetalle").ToString.ToEntero <> -1 And dr("origen").ToString.ToEntero <> -1 And dr("Total").ToString.ToDecimal <> 0 Then
+                                'hay que restarle descuento
+                                importeconcepto = dr("Total").ToString.ToDecimal
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, dr("Cantidad").ToString.ToDouble, dr("CveUM").ToString.ToEntero, dr("CvePS").ToString.ToEntero, importeconcepto, -1, CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero, Serie:=dr("Serie").ToString) Then
+                                    ErrorCancelar = True
+                                    Exit For
+                                End If
+                            End If
+                        Next
+
+                    End If
+
+                    If CvePrePoliza > 0 Then
+                        Dim Total68 As Decimal = 0
+                        If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
+                            Total68 = ObjInventario.DtResultados.SUMD("Total").RoundSQL(2) * -1
+                        End If
+
+                        If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
+                            Dim DtPrePolizaAlmacen = ObjContabilidad.DtResultados.FiltraParametros($"CveMovimientoAlmacen = {CveMovimientoReferencia}")
+
+                            CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", DtPrePolizaAlmacen.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, DtPrePolizaAlmacen.Rows(0)("Cargos").ToString.ToDouble * -1, DtPrePolizaAlmacen.Rows(0)("Abonos").ToString.ToDouble * -1, DtPrePolizaAlmacen.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", DtPrePolizaAlmacen.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                            If CvePrePolizaNueva > 0 Then
+                                For Each dr As DataRow In DtPrePolizaAlmacen.Rows
+                                    If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), Total68, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero,
+                                                                                    dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
+                                                                                    dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
+                                                                                    CveMovimientoEntrada,
+                                                                                    dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
+                                                                                    ImporteMX:=Total68, ImporteME:=Total68,
+                                                                                    CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
+                                                                                    PorcentajeImpuesto:=dr("PorcentajeImpuesto").ToString.ToDecimal,
+                                                                                    CveOCDetalle:=dr("CveOCDetalle").ToString.ToEntero) Then
+                                        ErrorCancelar = True
                                         Exit For
                                     End If
                                 Next
-
-            folio = ObjInventario.GetFolioSiguiente(13, UsuarioActual.CveEmpresa)
-            cvemovimientoentrada = ObjInventario.AddMovimiento(tcvealmacen, 13, 1, fecha, folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Devolucion Automatica")
-            If cvemovimientoentrada <= 0 Then
-                ErrorMovInv = True
                             Else
-                For Each dr As DataRow In tbmovs.Rows
+                                ErrorCancelar = True
-                    If dr("cvealmacen").ToString.ToEntero = tcvealmacen And dr("CveCompraDetalle").ToString.ToEntero <> -1 And dr("origen").ToString.ToEntero <> -1 And dr("Total").ToString.ToDecimal <> 0 Then
+                            End If
-                        'hay que restarle descuento
+                        Else
-                        importeconcepto = dr("Total").ToString.ToDecimal
+                            ErrorCancelar = True
-                        If Not ObjInventario.AddMovimientoDetalle(cvemovimientoentrada, dr("cantidad").ToString.ToDouble, dr("cveum").ToString.ToEntero, dr("cveps").ToString.ToEntero, importeconcepto, -1, CveCompraDetalle:=dr("CveCompraDetalle").ToString.ToEntero, Serie:=dr("Serie").ToString) Then
-                            ErrorMovInv = True
-                            Exit Sub
                         End If
                     End If
+
                 Next
 
             End If
 
-            If ErrorMovInv = True Then
-                ObjInventario.RollBack()
-            End If
-            ObjInventario.Dispose()
-            ObjCompra.Dispose()
-        End If
-
-
-        Dim ObjAC As ClsContPAQi = Nothing
-        If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then
-            ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
-            ObjAC.IniciaTransacSQL()
-        End If
-
-        Dim ObjCompras As New ClsCompras
-        Dim ObjContabilidad As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
-
-        Dim ErrorCancelar = False
-        Dim IdPolizaNueva = -1
-        Dim FolioPolizaNueva = -1
-        Dim CvePrePolizaNueva = -1
             Dim dt As DataTable
 
-
+            ' MOVIMIENTOS CONTRARIOS (NEGATIVOS)
-        ' MES ANTERIOR, MOVIMIENTOS CONTRARIOS (NEGATIVOS)
-        If True Then
-
             'CREA POLIZA NEGATIVA
-            If IdPoliza > 0 AndAlso ObjAC IsNot Nothing AndAlso UsuarioActual.Empresa.UsaAC Then
+            If Not ErrorCancelar AndAlso IdPoliza > 0 AndAlso ObjAC IsNot Nothing AndAlso UsuarioActual.Empresa.UsaAC Then
                 If ObjAC.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
                     dt = ObjAC.DtResultados
 
@@ -13809,6 +13850,7 @@ Partial Class Compras_Compras
             End If
 
             'CREA PRE-POLIZA NEGATIVA
+            If Not ErrorCancelar Then
                 If DdlTipoComprobante.SelectedValue.Contiene("NC") Then
                     If ObjCompras.GetCancelarNC(CveCompra, UsuarioActual.CveEmpresa) Then
                         dt = ObjCompras.DtResultados
@@ -13836,7 +13878,7 @@ Partial Class Compras_Compras
                 Else
                     If CvePrePoliza > 0 Then
                         If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                        dt = ObjContabilidad.DtResultados
+                            dt = ObjContabilidad.DtResultados.FiltraParametros("ISNULL(CveMovimientoAlmacen,0) <=0")
 
                             CvePrePolizaNueva = ObjContabilidad.AddPrePolizas("Compras/Cancelar", dt.Rows(0)("CvePlantillaPoliza").ToString.ToEntero, dt.Rows(0)("Cargos").ToString.ToDouble * -1, dt.Rows(0)("Abonos").ToString.ToDouble * -1, dt.Rows(0)("CveMoneda").ToString.ToEntero, TxtFechaCancelacion.Text.ToDate, String.Format("Cancelación: {0}", dt.Rows(0)("Concepto").ToString), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CvePrePolizaNueva > 0 Then
@@ -13844,7 +13886,7 @@ Partial Class Compras_Compras
                                     If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePolizaNueva, CBool(dr("TipoMovto").ToString), dr("Importe").ToString.ToDecimal * -1, dr("Referencia").ToString, dr("CveConceptoContable").ToString.ToEntero,
                                                                                     dr("Concepto").ToString, TxtFechaCancelacion.Text.ToDate, dr("IdCtaContable").ToString.ToEntero, dr("IdSegmentoNegocio").ToString.ToEntero, dr("CveIE").ToString.ToEntero,
                                                                                     dr("CveVenta").ToString.ToEntero, dr("CveCompra").ToString.ToEntero, dr("CveSubProyecto").ToString.ToEntero, dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, dr("CvePersonal").ToString.ToEntero,
-                                                                            If(cvemovimientoentrada > 0, cvemovimientoentrada, dr("CveMovimientoAlmacen").ToString.ToEntero),
+                                                                                    dr("CveMovimientoAlmacen").ToString.ToEntero,
                                                                                     dr("CveActivoFijo").ToString.ToEntero, -1, -1, dr("CveCreditoDetalle").ToString.ToEntero,
                                                                                     ImporteMX:=dr("Importe").ToString.ToDecimal * -1, ImporteME:=dr("Importe").ToString.ToDecimal * -1,
                                                                                     CveTipoGasto:=dr("CveTipoGasto").ToString.ToEntero, CveClasificacion:=dr("CveClasificacion").ToString.ToEntero,
@@ -13862,48 +13904,6 @@ Partial Class Compras_Compras
                         End If
                     End If
                 End If
-
-            'MES ACTUAL
-        Else
-
-            'LIMPIA POLIZA PONIENDO IMPORTE EN CEROS
-            If IdPoliza > 0 AndAlso ObjAC IsNot Nothing Then
-                If ObjAC.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjAC.DtResultados.Rows.Count > 0 Then
-                    dt = ObjAC.DtResultados
-
-                    For Each dr As DataRow In dt.Rows
-                        If Not ObjAC.UpdateMovimiento(dr("Id").ToString.ToEntero, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "1", 0, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegNeg").ToString.ToEntero, dr("Fecha").ToString.ToDate) Then
-                            ErrorCancelar = True : Exit For
-                        End If
-                    Next
-
-                    'AJUSTA POLIZA
-                    If Not ErrorCancelar Then
-                        If Not ObjAC.AjustaPoliza(IdPoliza) Then
-                            ErrorCancelar = True
-                        End If
-                    End If
-
-                Else
-                    ErrorCancelar = True
-                End If
-            End If
-
-            'LIMPIA PRE-POLIZA PONIENDO IMPORTE EN CEROS
-            If CvePrePoliza > 0 Then
-                If ObjContabilidad.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) Then
-                    dt = ObjContabilidad.DtResultados
-
-                    For Each dr As DataRow In dt.Rows
-                        If Not ObjContabilidad.UpdatePrePolizasDetalle(dr("CvePrePolizaDetalle").ToString.ToEntero, dr("Concepto").ToString, dr("CveSubProyecto").ToString.ToEntero, dr("IdCtaContable").ToString.ToEntero, CBool(dr("TipoMovto").ToString), 0, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-                            ErrorCancelar = True : Exit For
-                        End If
-                    Next
-                Else
-                    ErrorCancelar = True
-                End If
-            End If
-
             End If
 
             If Not ErrorCancelar Then
@@ -13918,6 +13918,10 @@ Partial Class Compras_Compras
                     ErrorCancelar = True
                 End If
             End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al cancelar la compra", ex)
+            ErrorCancelar = True
+        End Try
 
         If Not ErrorCancelar Then
             If ObjAC IsNot Nothing Then
@@ -20451,6 +20455,7 @@ Partial Class Compras_Compras
             nRowAgrupado("PS") = psPSCodigo
             nRowAgrupado("CveClasificacion") = psCveClasificacion
             nRowAgrupado("Clasificacion") = psClasificacion
+            nRowAgrupado("CveTipoPS") = rowPS("CveTipoPS").ToString
 
             nRowAgrupado("IVAPorcentaje") = drIva("IVAPorcentaje")
             nRowAgrupado("RetIVAPorcentaje") = drIva("RetIVAPorcentaje")
@@ -20514,6 +20519,7 @@ Partial Class Compras_Compras
             dRow91_5("PS") = psPSCodigo
             dRow91_5("CveClasificacion") = psCveClasificacion
             dRow91_5("Clasificacion") = psClasificacion
+            dRow91_5("CveTipoPS") = rowPS("CveTipoPS").ToString
 
             dRow91_5("Consec") = Consec + 1
             dRow91_5("PU") = dRow91_5("PU").ToString.ToDecimal * Mul91_5
@@ -20535,6 +20541,12 @@ Partial Class Compras_Compras
             Consec = Consec + 2
         Next
         DTProtateo.AcceptChanges()
+        'recorrer 
+        If CveCompra > 0 Then
+            For Each dbrow As DataRow In TmpDT.Rows
+                ClavesBorradas.Add(dbrow("CveCompraDetalle").ToString.ToEntero)
+            Next
+        End If
         TmpDT = DTProtateo
 
         BtnProrateoDeducible.Visible = False