Local

App_Code/ClsContabilidad.vb

@@ -716,6 +716,31 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
+    Public Function RemovePrePolizasDetalle(CvePrePoliza As Integer, CvePrePolizaDetalle As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Conta_PrePolizasDetalleEspecificoRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
+            .Add("@CvePrePolizaDetalle", SqlDbType.Int).Value = CvePrePolizaDetalle
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            If ex.Message.Contains("50015;") Then
+                OnError("No se puede eliminar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al eliminar el detalle de la prepoliza", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function GetMovimientosPoliza(IdPoliza As Integer, CveEmpresa As Integer) As Integer
         Dim Retorno As Integer = -1
 

Bancos/IE.aspx

@@ -209,7 +209,7 @@
                                 <label class="col-md-2 control-label">
                                     <asp:Label ID="LblFolio" runat="server" Text="Número:"></asp:Label></label>
                                 <div class="col-md-4">
-                                    <asp:TextBox ID="TxtFolio" runat="server" MaxLength="14" class="form-control input-sm"></asp:TextBox>
+                                    <asp:TextBox ID="TxtFolio" runat="server" MaxLength="20" class="form-control input-sm"></asp:TextBox>
                                     <asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtFolio" Display="None" ErrorMessage="El campo <b>''Folio''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                     <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="RequiredFieldValidator1" Width="350px"></ajax:ValidatorCalloutExtender>
 

Bancos/IE.aspx.vb

@@ -2784,8 +2784,6 @@ Partial Class Bancos_IE
 
             If MsgError = "" Then
 
-
-
                 CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, DdlMoneda.SelectedValue.ToEntero,
                                            TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                                            CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1),
@@ -2793,8 +2791,6 @@ Partial Class Bancos_IE
 
                 If CveIE > 0 Then
 
-
-
                     If DdlCuentaDeposito.SelectedValue.ToEntero > 0 And DdlTipoTransaccion.SelectedValue = "17" Then
 
                         If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then

Bancos/ProveedoresAbonar.aspx.vb

@@ -1081,7 +1081,7 @@ Partial Class Bancos_ProveedoresAbonar
                         End If
                     End If
 
-                    If Not TieneError Then
+                    If Not TieneError AndAlso IDPoliza > 0 Then
                         'actualizar la conta del IE
                         ObjIE.UpdateIEPrePoliza(Fecha, FolioPoliza.ToString, IDPoliza, CvePrePoliza, CveIE, 0)
                     Else

Compras/Compras.aspx.vb

@@ -8397,12 +8397,38 @@ Partial Class Compras_Compras
                     ObjConta = New ClsContabilidad(ObjCompra.IniciaTransacSQL)
                 End If
 
-                Dim CveCompraNC, IdCtaContable As Integer
+                Dim CveCompraNC, IdCtaContable, IdCtaContableComp As Integer
                 Dim PorcentajePago As Decimal
                 Dim ConceptoPoliza As String = $"Amortización {NombreProveedor} - {TxtSerie.Text}-{TxtFolio.Text}"
 
                 Try
                     Dim CveIE As Integer = -1
+
+                    Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
+                    Dim CompraActual As New Compra
+                    CompraActual.CveCompra = CveCompra
+                    CompraActual.CveTipoConceptoProveedor = CveTipoConcepto
+                    CompraActual.CveProveedor = CveProveedor
+                    CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero
+                    CompraActual.Fecha = TxtFecha.Text.ToDate
+                    CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim
+                    CompraActual.ProveedorNombre = HplProveedor.Text
+                    CompraActual.TC = TipoCambio
+                    CompraActual.Total = TxtTotal.Text.ToDecimal
+                    CompraActual.IVA = TxtIVA.Text.ToDecimal
+                    CompraActual.IVADeducible = TxtIVA.Text.ToDecimal
+                    CompraActual.IEPS = TxtIEPS.Text.ToDecimal
+                    CompraActual.RetIVA = TxtRetIVA.Text.ToDecimal
+                    CompraActual.RetISR = TxtRetISR.Text.ToDecimal
+                    CompraActual.CveConceptoRetISR = DdlRetISRConcepto.SelectedValue.ToEntero
+                    CompraActual.CveConceptoRetIVA = DdlRetIVAConcepto.SelectedValue.ToEntero
+                    CompraActual.PorcentajeIVA = PorcentajeIVA
+                    CompraActual.UsuarioActual = UsuarioActual
+                    CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
+                    CompraActual.IdCtaContableProv = CtaProveedor
+                    CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
+                    CompraActual.EsImportacion = chkImportacion.Checked
+
                     For Each gvr As GridViewRow In GVAnticipos.Rows
                         If gvr.FCCheckBox("Chk") IsNot Nothing AndAlso gvr.FCCheckBox("Chk").Checked Then
 
@@ -8410,18 +8436,38 @@ Partial Class Compras_Compras
                             If CvePrePoliza > 0 Then
 
                                 Dim CveConceptoCompra As Integer = 60
+                                Dim CveConceptoCompraComplementaria As Integer = 266
                                 Dim TipoMovimientoCompra As Boolean = True
+                                Dim CveMonedaAnticipo As Integer = gvr.DataKey("CveMoneda").ToEntero
+                                Dim TipoCambioAnt As Decimal = gvr.DataKey("TCCompra").ToDecimal
+                                Dim ImporteAnt As Decimal = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal
+                                Dim ImporComisionAnticipo As Decimal = gvr.FCTextBox("TxtComision").Text.ToDecimal
+
+                                Dim Pago As New CompraPago
+                                Pago.TipoPago = gvr.DataKey("TipoDocto")
+                                Pago.ImportePago = ImporteAnt
+                                Pago.OtroGastoIngreso = ImporComisionAnticipo
+                                Pago.CveMonedaPago = CveMonedaAnticipo
+
                                 Select Case gvr.DataKey("TipoDocto")
                                     Case "NC", "DEV"
-                                        CveConceptoCompra = 60
+                                        CveConceptoCompra = If(CveMonedaAnticipo = 1, 60, 60)
+                                        CveConceptoCompraComplementaria = 235
+                                        IdCtaContable = If(CveMonedaAnticipo = 1, CtaProveedor, CtaProveedorExtranjera)
+                                        IdCtaContableComp = CtaProveedorComplementaria
                                         CveIE = -1
+                                        Pago.AplicaAcreditable = False
                                     Case "Egsc"
-                                        CveConceptoCompra = 21
+                                        CveConceptoCompra = If(CveMonedaAnticipo = 1, 21, 21)
+                                        CveConceptoCompraComplementaria = 266
+                                        IdCtaContable = If(CveMonedaAnticipo = 1, CtaProveedorAnticipos, CtaProveedorAnticiposExtranjera)
+                                        IdCtaContableComp = CtaProveedorAnticiposComplementaria
                                         'vinculo la compra actual, y no la compra como si fuera nota de credito
                                         CveCompraNC = -1
                                         CveIE = gvr.DataKey("CveIE").ToEntero
                                     Case "DD"
-                                        CveConceptoCompra = 37
+                                        CveConceptoCompra = If(CveMonedaAnticipo = 1, 37, 37)
+                                        IdCtaContable = CtaProveedorDeudores
                                         'vinculo la compra actual, y no la compra como si fuera nota de credito
                                         CveCompraNC = -1
                                         CveIE = gvr.DataKey("CveIE").ToEntero
@@ -8429,58 +8475,20 @@ Partial Class Compras_Compras
 
                                 PorcentajePago = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal / TxtTotal.Text.ToDecimal
 
+                                Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) * TipoCambioAnt
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), CveSubProyecto:=CveSubProyectoAnticipo) Then
+                                    ErrorMovtosCxP = 1
+                                End If
 
-                                Dim ImporteAnt As Decimal = gvr.FCTextBox("TxtAnticipo").Text.ToDecimal
+                                If CveMonedaAnticipo > 1 Then
-                                Dim ImporComisionAnticipo As Decimal = gvr.FCTextBox("TxtComision").Text.ToDecimal
+                                    Dim ImporteAntMN As Decimal = TipoCambioAnt * ImporteAnt - ImporteAnt
-                                Dim CveMonedaAnticipo As Integer = gvr.DataKey("CveMoneda").ToEntero
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, ImporteAntMN, "", CveConceptoCompraComplementaria, "", TxtFechaPago.Text.ToDate, IdCtaContableComp, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMN, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), CveSubProyecto:=CveSubProyectoAnticipo) Then
-                                Dim TipoCambioAnt As Decimal = gvr.DataKey("TCCompra").ToDecimal
-
-                                If ImporComisionAnticipo = 0 Then
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, ImporteAnt, " ", CveConceptoCompra, " ", TxtFechaPago.Text.ToDate, 0, -1, CveCompra:=CveCompraNC, CveProveedor:=CveProveedor, CveIE:=CveIE, CveCompraAmortizacion:=CveCompraNC, ImporteMX:=ImporteAnt, ImporteME:=If(TipoCambioAnt = 1, 0, ImporteAnt), CveSubProyecto:=CveSubProyectoAnticipo) Then
-                                        ErrorMovtosCxP = 1
-                                        Exit For
-                                    End If
-                                Else
-                                    Dim ImporteAntMNComision As Decimal = (ImporteAnt + ImporComisionAnticipo) * TipoCambioAnt
-                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimientoCompra, (ImporteAnt + ImporComisionAnticipo), "", CveConceptoCompra, "", TxtFechaPago.Text.ToDate, IdCtaContable, -1, CveCompra:=CveCompraNC, CveCompraAmortizacion:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=ImporteAntMNComision, ImporteME:=If(TipoCambioAnt = 1, 0, (ImporteAnt + ImporComisionAnticipo)), CveSubProyecto:=CveSubProyectoAnticipo) Then
-                                        ErrorMovtosCxP = 1
                                         ErrorMovtosCxP = 1
                                     End If
                                 End If
 
-                                Dim Pago As New CompraPago
-                                Pago.ImportePago = ImporteAnt
                                 Pago.CveIE = CveIE
-                                Pago.CveMonedaPago = CveMonedaAnticipo
                                 Pago.CveCompraAmortizacion = CveCompraNC
-                                Pago.CveCreditoDetalle = -1
-                                Pago.OtroGastoIngreso = ImporComisionAnticipo
-
-                                Dim PorcentajeIVA As Decimal = TmpDT.MAX("IVAPorcentaje").ToDecimal
-                                Dim CompraActual As New Compra
-                                CompraActual.CveCompra = CveCompra
-                                CompraActual.CveTipoConceptoProveedor = CveTipoConcepto
-                                CompraActual.CveProveedor = CveProveedor
-                                CompraActual.CveMoneda = DdlMoneda.SelectedValue.ToEntero
-                                CompraActual.Fecha = TxtFecha.Text.ToDate
-                                CompraActual.SerieFolio = TxtSerie.Text.Trim & "-" & TxtFolio.Text.Trim
-                                CompraActual.ProveedorNombre = HplProveedor.Text
-                                CompraActual.TC = TipoCambio
-                                CompraActual.Total = TxtTotal.Text.ToDecimal
-                                CompraActual.IVA = TxtIVA.Text.ToDecimal
-                                CompraActual.IVADeducible = TxtIVA.Text.ToDecimal
-                                CompraActual.IEPS = TxtIEPS.Text.ToDecimal
-                                CompraActual.RetIVA = TxtRetIVA.Text.ToDecimal
-                                CompraActual.RetISR = TxtRetISR.Text.ToDecimal
-                                CompraActual.CveConceptoRetISR = DdlRetISRConcepto.SelectedValue.ToEntero
-                                CompraActual.CveConceptoRetIVA = DdlRetIVAConcepto.SelectedValue.ToEntero
-                                CompraActual.PorcentajeIVA = PorcentajeIVA
-                                CompraActual.UsuarioActual = UsuarioActual
-                                CompraActual.CveSubProyecto = TmpDT.FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0").ToEntero
-                                CompraActual.IdCtaContableProv = CtaProveedor
-                                CompraActual.IdCtaContableProvComplementaria = CtaProveedorComplementaria
-                                CompraActual.EsImportacion = chkImportacion.Checked
-
                                 AplicaPrePolizaPagoCompra(CompraActual, pago, CvePrePoliza, ObjConta)
                             End If
                         End If

Contabilidad/RegPrePolizaS.aspx.vb

@@ -25,6 +25,15 @@ Partial Class ContabilidadC_RegPrePolizaS
             ViewState("DtMovimientos") = value
         End Set
     End Property
+
+    Public Property DtMovimientosEliminar As DataTable
+        Get
+            Return CType(ViewState("DtMovimientosEliminar"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtMovimientosEliminar") = value
+        End Set
+    End Property
     Public Property DtCuentasContables As DataTable
         Get
             Return CType(ViewState("DtCuentasContables"), DataTable)
@@ -269,6 +278,7 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                 ViewState("CvePrePoliza") = Request("CvePrePoliza").ToEntero
                 CreaDT()
+                CreaDTEliminar()
                 CargaPrePoliza()
                 If IfNull(Request("Tipo"), "").ToString <> "NOMPROV" Then
                     GvPrePoliza.Columns(5).Visible = False
@@ -412,6 +422,14 @@ Partial Class ContabilidadC_RegPrePolizaS
         DtMovimientos.AcceptChanges()
 
     End Sub
+
+    Private Sub CreaDTEliminar()
+        DtMovimientosEliminar = New DataTable("MovimientosEliminar")
+        With DtMovimientosEliminar.Columns
+            .Add("CvePrePolizaDetalle", GetType(Integer))
+        End With
+        DtMovimientosEliminar.AcceptChanges()
+    End Sub
     Private Sub CargaPrePoliza()
         BtnEliminar.Visible = True
         LblEncabezado.Text = "Edición de Póliza"
@@ -450,11 +468,15 @@ Partial Class ContabilidadC_RegPrePolizaS
                 DtMovimientos = ObjContabilidad.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
 
                 If dr("Modulo").ToString.Contiene("Banc/FluctuaA", "Banc/FluctuaC", "Banc/FluctuaV", "Banc/FluctuaFilial") Then
-
                     BtnEliminar.Enabled = False
                     BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarlos desde el módulo"
                 End If
 
+                If DtMovimientos IsNot Nothing AndAlso DtMovimientos.FiltraParametros("CveConceptoContable = 30 AND Contabilizable = 1").Rows.Count > 0 Then
+                    BtnEliminar.Enabled = False
+                    BtnEliminar.ToolTip = "No se puede eliminar al prepóliza, eliminarla desde el módulo de Bancos"
+                End If
+
                 GvPrePoliza.DataSource = DtMovimientos
                 If Not DtMovimientos.Columns.Contains("IdMov") Then
                     Dim workColumn As DataColumn = DtMovimientos.Columns.Add("IdMov", GetType(Integer))
@@ -1142,7 +1164,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                 '    Alert(If(MensajeAlert.ToString = "", "Se registro con exito.", MensajeAlert.ToString), TipoMensaje.MsgInformacion, "window.location.reload()")
                 'End If
 
-                Alert(If(MensajeAlert.ToString = "", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}</b>", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} </b><br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""")
+                Alert(If(MensajeAlert.ToString = "", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")}</b>", $"Se registro con exito <b>{If(FolioPoliza > 0, " Folio " & FolioPoliza & ".", "")} </b><br>" & MensajeAlert.ToString), TipoMensaje.MsgInformacion, $"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={CvePrePolizaInsertada}""", ShowCloseButton:=False)
 
 
                 ObjIE.Commit()
@@ -1172,79 +1194,95 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim ObjContabilidad As New ClsContabilidad
         ObjContabilidad.IniciaTransacSQL()
 
-        ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario)
+        Try
+            ObjContabilidad.UpdatePrePoliza(MinFecha, -1, DdlTipoPoliza.SelectedValue.ToEntero, -1, CvePrePoliza, UsuarioActual.CveEmpresa, Concepto:=TxtConcepto.Text, FechaPoliza:=TxtFechaDocumento.Text.ToDate, CveUsuarioModifico:=UsuarioActual.CveUsuario)
 
-        If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+            If Not ObjContabilidad.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
-            OcurrioError = True
+                OcurrioError = True
-        End If
+            End If
 
-        Dim CveIEAgregado As Integer = -1
+            If DtMovimientosEliminar IsNot Nothing AndAlso DtMovimientosEliminar.Rows.Count > 0 Then
-        For Each row As GridViewRow In GvPrePoliza.Rows
+                For Each RowEliminar As DataRow In DtMovimientosEliminar.Rows
-            If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
+                    If Not ObjContabilidad.RemovePrePolizasDetalle(Me.CvePrePoliza, RowEliminar("CvePrePolizaDetalle").ToString().ToEntero()) Then
-                If row.FCCheckBox("chkModificado").Checked Then
+                        OcurrioError = True
-                    contador = contador + 1
+                        Exit For
+                    End If
+                Next
+            End If
 
-                    Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal)
+            If Not OcurrioError Then
+                Dim CveIEAgregado As Integer = -1
+                For Each row As GridViewRow In GvPrePoliza.Rows
+                    If row.DataKey("CvePrePolizaDetalle").ToEntero > 0 Then
+                        If row.FCCheckBox("chkModificado").Checked Then
+                            contador = contador + 1
 
-                    If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
+                            Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal)
-                        Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
+
-                        CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"),
+                            If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
-                                                   row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "",
+                                Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
-                                                   False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"),
-                        If CveIEAgregado < 0 Then
+                                                           row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "",
-                            'MsgError = "No se pudo registrar movimiento bancario"
+                                                           False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                If CveIEAgregado < 0 Then
+                                    'MsgError = "No se pudo registrar movimiento bancario"
+                                    OcurrioError = True
+                                    Exit For
+                                End If
+                            End If
+
+                            If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
+                                                                               row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
+                                                                               row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
+                                                                               CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
+                                                                               CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
+                                                                               CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
+                                OcurrioError = True
+                                Exit For
+                            End If
+                        End If
+                    Else
+                        contador = contador + 1
+
+
+                        Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal)
+
+                        If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
+                            Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
+                            CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"),
+                                                           row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "",
+                                                           False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                            If CveIEAgregado < 0 Then
+                                'MsgError = "No se pudo registrar movimiento bancario"
+                                OcurrioError = True
+                                Exit For
+                            End If
+                        End If
+
+                        If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
+                                                                    row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString,
+                                                                    row.DataKey("CveConceptoContable").ToEntero, row.FCLiteral("TxtConcepto").Text, Now,
+                                                                    row.DataKey("IdCtaContable").ToEntero, 0, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero,
+                                                                    CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
+                                                                    ImporteMX:=If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
+                                                                    row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero,
+                                                                    CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
+                                                                    CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then
                             OcurrioError = True
                             Exit For
                         End If
                     End If
 
-                    If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero,
+                Next
-                                                                       row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
-                                                                       row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
-                                                                       CveConceptoContable:=row.DataKey("CveConceptoContable").ToEntero, CveProveedor:=row.DataKey("CveProveedor").ToEntero, CveCompra:=row.DataKey("CveCompra").ToEntero,
-                                                                       CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
-                                                                       CvePersonal:=row.DataKey("CvePersonal").ToEntero, Referencia:=row.FCLiteral("TxtRef").Text, CveCuenta:=row.DataKey("CveCuenta").ToEntero, CveUsuarioModifico:=UsuarioActual.CveUsuario, CveIE:=CveIEAgregado) Then
-                        OcurrioError = True
-                        Exit For
-                    End If
-                End If
-                Else
-                contador = contador + 1
-
-
-                Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal)
-
-                If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then
-                    Dim ObjIE As New ClsBancos(ObjContabilidad.IniciaTransacSQL)
-                    CveIEAgregado = ObjIE.AddBancos_IE(row.DataKey("ContadoCuenta").ToEntero, row.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, row.DataKey("ContadoNumeroFolio"),
-                                                   row.DataKey("ContadoBeneficiario"), ImporteIE, CveMoneda, 0, row.DataKey("ContadoObservaciones"), "",
-                                                   False, False, 0, row.DataKey("CvePrePoliza").ToEntero, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                    If CveIEAgregado < 0 Then
-                        'MsgError = "No se pudo registrar movimiento bancario"
-                        OcurrioError = True
-                        Exit For
-                    End If
-                End If
-
-                If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
-                                                            row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), row.DataKey("Referencia").ToString,
-                                                            row.DataKey("CveConceptoContable").ToEntero, row.FCLiteral("TxtConcepto").Text, Now,
-                                                            row.DataKey("IdCtaContable").ToEntero, 0, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero,
-                                                            CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero),
-                                                            ImporteMX:=If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0,
-                                                            row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveProveedor:=row.DataKey("CveProveedor").ToEntero,
-                                                            CveCompra:=row.DataKey("CveCompra").ToEntero, CveCliente:=row.DataKey("CveCliente").ToEntero, CveVenta:=row.DataKey("CveVenta").ToEntero,
-                                                            CvePersonal:=row.DataKey("CvePersonal").ToEntero, CveCuenta:=row.DataKey("CveCuenta").ToEntero, PorcentajeImpuesto:=row.DataKey("PorcentajeImpuesto").ToDecimal, CveIE:=CveIEAgregado) Then
-                    OcurrioError = True
-                    Exit For
-                End If
             End If
-
+        Catch ex As Exception
-        Next
+            OcurrioError = True
+            OnError("Ocurrío un error al actualizar la PrePoliza", ex)
+        End Try
 
         If Not OcurrioError Then
             ObjContabilidad.Commit()
-            Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion)
+            Alert("La PrePoliza se actualizó correctamente.", TipoMensaje.MsgInformacion, JSBtnAceptar:=$"window.location.href=""./RegPrePolizaS.aspx?CvePrePoliza={Me.CvePrePoliza}""", ShowCloseButton:=False)
         Else
             ObjContabilidad.RollBack()
             Alert("Ocurrio un error al actualizar la PrePoliza.", TipoMensaje.MsgError)
@@ -3057,12 +3095,19 @@ Partial Class ContabilidadC_RegPrePolizaS
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
+        If CvePrePoliza > 0 Then
+            Dim RowEliminar As DataRow = DtMovimientosEliminar.NewRow()
+            RowEliminar("CvePrePolizaDetalle") = GvRow.DataKey("CvePrePolizaDetalle")
+            DtMovimientosEliminar.Rows.Add(RowEliminar)
+        End If
+
         DtMovimientos.Rows(GvRow.RowIndex).Delete()
         DtMovimientos.AcceptChanges()
 
         GvPrePoliza.DataSource = DtMovimientos
         GvPrePoliza.DataBind()
 
+
         TxtTotalCargos.Text = DtMovimientos.SUMD("Cargo").ToString.FormatoNumero
         TxtTotalAbonos.Text = DtMovimientos.SUMD("Abono").ToString.FormatoNumero
         UpTotalCargo.Update()