asp. se agregó confirm al eliminar

.vb.. se quitaron llamadas a clscontpaq

Contabilidad/RegPrePolizaS.aspx

@@ -573,7 +573,7 @@
                     <ContentTemplate>
                         <asp:Button ID="BtnIEGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
                         <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
-                        <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" />
+                        <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" data-toggle="confirmation" data-popout="true" data-original-title="Seguro de eliminar?" data-btn-ok-label="si" />
                          <asp:Button ID="BtnContabilizar" runat="server" Text="Contabilizar" CssClass="btn btn-primary green" Visible="false" /> 
                         <asp:Button ID="BtnDescontabilizar" runat="server" Text="Descontabilizar" CssClass="btn btn-primary" Visible="false"   
                             data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si"  /> 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -948,8 +948,6 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim MensajeAlert = New StringBuilder
             Dim ObjIE As New ClsBancos()
             Dim ObjMov As New ClsContabilidad(ObjIE.IniciaTransacSQL)
-            ' Dim ObjNom As New ClsNominas(ObjIE.IniciaTransacSQL)
-            Dim Conta As ClsContPAQi = Nothing
             Dim IDPoliza As Integer = 0
             Dim MsgError As String = ""
             Dim CveIE As Integer
@@ -962,13 +960,11 @@ Partial Class ContabilidadC_RegPrePolizaS
             Dim TipoGrid As Integer = 0 ' 0 - GvMov, 1 - GvPrePoliza
 
             Try
-
                 Dim ConceptoPoliza As String = TxtConcepto.Text
                 CvePrePolizaInsertada = ObjMov.AddPrePolizas("Contabilidad/RegPrePoliza", DdlPlantilla.SelectedValue.ToEntero, TotalCargos, TotalAbonos, 1, TxtFechaDocumento.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=DdlTipoPoliza.SelectedValue.ToEntero, AgregarFolio:=True)
 
                 If CvePrePolizaInsertada > 0 Then
                     Dim alertaContabilizacion As String = "Se enviaron correctamente las siguientes pólizas:<br><br>"
-                    Dim idCuentaContabilizacion As Long = 1
                     Dim Importe As Decimal = 0
                     Dim ImporteME As Decimal = 0
                     Dim TipoCambio As Decimal = 1
@@ -981,9 +977,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                             Gv = GvPrePoliza
                             TipoGrid = 1
                         End If
-
                     End If
-
                     'inserto las compras que voy a pagarDdlSaldos
                     For Each gvr As GridViewRow In Gv.Rows
 
@@ -992,10 +986,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                             Dim tFolio As String = gvr.DataKey("ContadoNumeroFolio").ToString
                             If tFolio.ToEntero = 0 Then tFolio = SiguienteFolioBancos(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero)
 
-
                             Dim tCveMoneda As Integer = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuenta.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda").ToEntero
 
-
                             CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFechaDocumento.Text, tFolio,
                                                        gvr.DataKey("ContadoBeneficiario"), gvr.DataKey("ContadoImporte").ToDecimal, tCveMoneda, 0, gvr.DataKey("ContadoObservaciones"), "",
                                                        False, False, 0, CvePrePolizaInsertada, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
@@ -1003,15 +995,12 @@ Partial Class ContabilidadC_RegPrePolizaS
                                 MsgError = "No se pudo registrar movimiento bancario"
                                 Exit For
                             Else
-
                                 If tFolio > 0 Then
                                     FolioIE = tFolio
                                 Else
                                     FolioIE = ObjIE.Folio
                                 End If
-
                             End If
-
                         End If
 
                         ImporteME = 0
@@ -1054,13 +1043,11 @@ Partial Class ContabilidadC_RegPrePolizaS
                         End If
 
                         If Not gvr.DataKey("CveConceptoContable").Contiene("30", "10", "204") Then ' 30-bancos, 10-anticipos proveedores, 204- blancos complementaria
-
                             If gvr.DataKey("CveConceptoContable").ToEntero = 41 Then
                                 CveIE = gvr.FCDropDownList("DdlSaldos").SelectedValue.ToEntero
                             Else
                                 CveIE = -1
                             End If
-
                         End If
 
                         If Importe <> 0 OrElse TipoGrid = 1 Then 'si es diferente de cero o si viene de grid prepolizas, que registre todo
@@ -1118,35 +1105,19 @@ Partial Class ContabilidadC_RegPrePolizaS
             End If
 
             If MsgError = "" Then
-                'MENSAJE IE
-
-                'If CveIE Then
-                '    Alert(MensajeAlert.ToString, ModExtensiones.TipoMensaje.MsgInformacion, "window.location.reload()")
-                'Else
-                '    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}""", ShowCloseButton:=False)
 
-
                 ObjIE.Commit()
-                If Conta IsNot Nothing Then Conta.Commit()
-
                 TxtConcepto.Text = ""
-                'GvMov.DataBind()
                 DdlPlantilla_SelectedIndexChanged(Nothing, Nothing)
-
                 TxtFechaDocumento.Text = ""
-
             Else
                 Alert(MsgError.ToString, ModExtensiones.TipoMensaje.MsgError)
                 ObjIE.RollBack()
-                If Conta IsNot Nothing Then Conta.RollBack()
             End If
-
             ObjIE.Dispose()
             ObjMov.Dispose()
-            If Conta IsNot Nothing Then Conta.Dispose()
+
         End If
     End Sub