Compras Bitacora eliminacion, Compras Activo fijo compra

App_Code/ClsCompras.vb

@@ -456,7 +456,7 @@ Public Class ClsCompras
                                      Optional AF_Medida As Integer = -1, Optional AF_TipoMantenimiento As Integer = -1, Optional Referencia As String = "", Optional OtrosGastos As Decimal = 0,
                                      Optional RetIVA As Decimal = 0, Optional RetISR As Decimal = 0, Optional IEPSPS As Decimal = 0, Optional IEPSPSIVA As Decimal = 0,
                                      Optional IVAPorcentaje As Decimal = 0, Optional RetIVAPorcentaje As Decimal = 0, Optional RetISRPorcentaje As Decimal = 0, Optional IEPSPSPorcentaje As Decimal = 0, Optional IEPSPSIVAPorcentaje As Decimal = 0,
-                                     Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Boolean
+                                     Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1, Optional CveActivoFijoCompra As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -501,6 +501,7 @@ Public Class ClsCompras
             .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible
             .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle
             .Add("@CveCultivoCuadroDetalle", SqlDbType.Int).Value = CveCultivoCuadroDetalle
+            .Add("@CveActivoFijoCompra", SqlDbType.Int).Value = CveActivoFijoCompra
         End With
 
         Try

App_Code/ClsGenerales.vb

@@ -2723,7 +2723,7 @@ Public Class ClsGenerales
             .Add("@SeElimino", SqlDbType.Int).Value = SeElimino
             .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
             .Add("@Tipo", SqlDbType.VarChar).Value = Tipo
-            .Add("@Id_Clave", SqlDbType.VarChar, 100).Value = Id_Clave
+            .Add("@Id_Clave", SqlDbType.VarChar, 1000).Value = Id_Clave
             .Add("@IdPoliza", SqlDbType.Int).Value = IdPoliza
             .Add("@CvePromocion", SqlDbType.Int).Value = CvePromocion
             .Add("@CveUsuarioTabla", SqlDbType.Int).Value = CveUsuarioTabla

Compras/Compras.aspx

@@ -2673,7 +2673,7 @@
                             <br />
                             <br />
 
-                            <asp:Button ID="BtnEliminarCompra" CssClass="btn btn-danger" Visible="False" runat="server" Text="Eliminar Compra" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la compra?" data-btn-ok-label="si" />
+                            <asp:Button ID="BtnEliminarCompra" CssClass="btn btn-danger" Visible="False" runat="server" Text="Eliminar Compra"  />
                             <br />
                             <br />
                             <asp:Button ID="BtnCancelarCompra" OnClientClick="ShowDivCancelarCompra();" Text="Cancelar Compra" CssClass="btn btn-danger" Visible="false" runat="server" />
@@ -5379,46 +5379,51 @@
     </div>
 
 
-    <%-- <div id="DvModalContratos" class="modal ADS fade" role="dialog">
+     <div id="DvModalEliminarCompra" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
 
             <!-- Modal content-->
             <div class="modal-content" style="width: 500px; margin-left: 50px;">
                 <div class="modal-header ">
                     <button type="button" class="close" data-dismiss="modal">&times;</button>
-                    <h4 class="modal-title">Contratos de Obra</h4>
+                    <h4 class="modal-title">Eliminar Compra</h4>
                 </div>
 
                 <div class="modal-body">
-                    <asp:UpdatePanel runat="server" ID="UpModalcontratos">
+                    <asp:UpdatePanel runat="server" ID="UpModalEliminarcompraCuerpo" UpdateMode="Conditional">
-                        <ContentTemplate>
+                        <ContentTemplate>                          
-                           
+
-                            
+                   
-                            <div class="row">
+
-                                 
+                            <div class="row">     
-                                <div class="col-md-2" style="text-align: center; margin-top: 5px">
+                                
-                                   Contrato:
+                                         <div class="col-md-2" style="text-align: center; margin-top: 5px">
+                                    Observación:
                                 </div>
+                                
                                 <div class="col-md-10">
-                                     <asp:DropDownList ID="DdlContrato" runat="server"  DataTextField="ContratoCompleto" DataValueField="CveContrato" Class="select2me" Width="100%" ></asp:DropDownList>                                    
+                                    <asp:TextBox runat="server" ID="TxtModalEliminarCompraDescripcion" CssClass="form-control" CausesValidation="true"></asp:TextBox>                        
+                                    <asp:RequiredFieldValidator ID="RfvTxtModalEliminarCompraDescripcion" runat="server" ControlToValidate="TxtModalEliminarCompraDescripcion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observación''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalEliminarCompra" > </asp:RequiredFieldValidator>
+                                    <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender9" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtModalEliminarCompraDescripcion"></ajax:ValidatorCalloutExtender>
                                 </div>
-                                <div class="col-md-5"></div>
+                                
                             </div>
                           
                         </ContentTemplate>
                     </asp:UpdatePanel>
-                </div>
+                </div>  
                 <div class="modal-footer">
                     <asp:UpdatePanel runat="server">
                         <ContentTemplate>
-                            <asp:Button ID="BtnModalContratos" OnClick="BtnModalContratos_Click" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
+                            <asp:Button ID="BtnModalEliminarCompra" OnClick="BtnModalEliminarCompra_Click" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-danger"  ValidationGroup="GrpModalEliminarCompra"
-                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                                data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar la compra?" data-btn-ok-label="si" />
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>
             </div>
         </div>
-    </div>--%>
+    </div>
 
     
         <div id="DivmodalContrato" class="modal ADS fade">

Compras/Compras.aspx.vb

@@ -5398,7 +5398,7 @@ Partial Class Compras_Compras
                                                                             RetIVA:=Row("RetIVA").ToString.ToDecimal, RetISR:=Row("RetISR").ToString.ToDecimal, IEPSPS:=Row("IEPSPS").ToString.ToDecimal.RoundSQL, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDecimal,
                                                                             IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDecimal, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDecimal, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDecimal,
                                                                             IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDecimal, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDecimal, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False),
-                                                                            CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero) Then
+                                                                            CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero, CveActivoFijoCompra:=CveAFC) Then
 
                                             ErrorDetalles = True
                                             Exit For
@@ -8510,123 +8510,7 @@ Partial Class Compras_Compras
         RegistraScript(String.Format("$('#{0}').modal('show');", "DivAplicaSubProyecto"))
     End Sub
 
-    Protected Sub BtnEliminarCompra_Click(sender As Object, e As EventArgs) Handles BtnEliminarCompra.Click
 
-        Dim ObjAC As ClsContPAQi = Nothing
-        Dim Comp As New ClsCompras()
-        Dim ObjEventos As New ClsOIEventos(Comp.IniciaTransacSQL())
-        Dim ObjConta As New ClsContabilidad(Comp.IniciaTransacSQL())
-        Dim ObjInventarios As New ClsInventarios(Comp.IniciaTransacSQL())
-        Dim ObjGral As New ClsGenerales(Comp.IniciaTransacSQL())
-
-        Dim ErrorCompra = False
-
-        If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then
-            ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
-            ObjAC.IniciaTransacSQL()
-            If Not ObjAC.RemovePoliza(IdPoliza) Then
-                ErrorCompra = True
-            End If
-        End If
-
-        If Not ErrorCompra Then
-            For Each gvr As GridViewRow In GvEB.Rows
-                If Not ObjEventos.RemoveEvento(gvr.DataKey("CveEvento").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
-                    ErrorCompra = True
-                    Exit For
-                End If
-            Next
-        End If
-
-        If Not ErrorCompra Then
-            If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
-                ErrorCompra = True
-            End If
-        End If
-
-
-
-        Try
-            If ObjInventarios.GetInv_ComprasMov(CveCompra, UsuarioActual.CveEmpresa) Then
-                Dim DTInventarios As DataTable = ObjInventarios.DtResultados
-                If DTInventarios.Rows.Count > 0 Then
-
-                    Dim DTMovimientos As DataTable = DTInventarios.FiltraParametros("", "", {"CVeMovimiento"})
-
-                    For Each diRow As DataRow In DTMovimientos.Rows
-
-                        Dim CveMovimientoActual As Integer = diRow("CveMovimiento").ToString.ToEntero
-
-                        If Not ObjInventarios.MovimientoRemove(CveMovimientoActual, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
-                            ErrorCompra = True
-                            Exit For
-                        End If
-
-                        'Dim DTMovimientoActual As DataTable = DTInventarios.FiltraParametros($"CveMovimiento = {CveMovimientoActual} ")
-
-                        'Dim detalleDescripcion As String = ""
-                        'Dim Description As String = ""
-
-                        'Dim FolioMovimiento As String = ""
-                        'Dim ConceptoMovimiento As String = ""
-
-                        'For Each dRowMovActual As DataRow In DTMovimientoActual.Rows
-
-                        '    If dRowMovActual("UM").ToString = "" Then
-                        '        FolioMovimiento = dRowMovActual("Folio").ToString
-                        '        ConceptoMovimiento = dRowMovActual("Concepto").ToString
-
-                        '        Description = String.Format("Eliminación Compra {6},Movimiento con Concepto: {0}, Almacen: {1}, Fecha: {2}, Folio: {3}, Usuario: {4}, Observaciones adicionales: {5}, Productos Información:<br/>",
-                        '                                    ConceptoMovimiento,
-                        '                                    dRowMovActual("Almacen").ToString,
-                        '                                    dRowMovActual("FechaMovto").ToString.ToDate.ToString("dd/MM/yyyy"),
-                        '                                    FolioMovimiento,
-                        '                                    dRowMovActual("Usuario").ToString,
-                        '                                    dRowMovActual("Observaciones").ToString,
-                        '                                    $"{TxtSerie.Text}-{TxtFolio.Text}")
-                        '    Else
-                        '        detalleDescripcion = String.Format("- Cant: {0}, PS: {1}, PU: {2}, UM: {3}<br/>", dRowMovActual("Cantidad").ToString.ToEntero, dRowMovActual("CodigoPS"), dRowMovActual("PU"), dRowMovActual("UM"))
-                        '    End If
-
-                        'Next
-
-                        'If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1,
-                        '                                    String.Format("{0}, Informacion = {1}", Description, detalleDescripcion),
-                        '                                    "Inventarios", FolioMovimiento + " / " + ConceptoMovimiento) Then
-                        '    ErrorCompra = True
-                        '    Exit For
-                        'End If
-                    Next
-
-                End If
-            End If
-        Catch ex As Exception
-            ErrorCompra = True
-        End Try
-
-
-
-
-        If Not ErrorCompra Then
-            If Not Comp.DeleteCompra(CveCompra, False) Then
-                ErrorCompra = True
-            End If
-        End If
-
-        If Not ErrorCompra Then
-            Alert("La Compra ha sido eliminada.", TipoMensaje.MsgInformacion, "document.location.href=""/Compras/Compras.aspx""")
-            If ObjAC IsNot Nothing Then ObjAC.Commit()
-            Comp.Commit()
-        Else
-            Alert("La Compra no ha sido eliminada.", TipoMensaje.MsgAdvertencia)
-            If ObjAC IsNot Nothing Then ObjAC.RollBack()
-            Comp.RollBack()
-        End If
-
-        If ObjAC IsNot Nothing Then ObjAC.Dispose()
-        Comp.Dispose()
-        ObjConta.Dispose()
-    End Sub
 
     Protected Sub BtnAceptarAnticipos_Click(sender As Object, e As System.EventArgs) Handles BtnAceptarAnticipos.Click
 
@@ -20797,10 +20681,169 @@ Partial Class Compras_Compras
             End If
         End Using
     End Sub
+
+
+#Region "ELIMINAR COMPRA"
+
+    Protected Sub BtnEliminarCompra_Click(sender As Object, e As EventArgs) Handles BtnEliminarCompra.Click
+
+        TxtModalEliminarCompraDescripcion.Text = ""
+        RegistraScript("$('#DvModalEliminarCompra').modal('show');")
+
+        UpModalEliminarcompraCuerpo.Update()
+
+
+
+    End Sub
+
+    Protected Sub BtnModalEliminarCompra_Click(sender As Object, e As EventArgs)
+
+
+
+        Dim ObjAC As ClsContPAQi = Nothing
+        Dim Comp As New ClsCompras()
+        Dim ObjEventos As New ClsOIEventos(Comp.IniciaTransacSQL())
+        Dim ObjConta As New ClsContabilidad(Comp.IniciaTransacSQL())
+        Dim ObjInventarios As New ClsInventarios(Comp.IniciaTransacSQL())
+        Dim ObjGral As New ClsGenerales(Comp.IniciaTransacSQL())
+
+        Dim ErrorCompra = False
+
+        If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then
+            ObjAC = New ClsContPAQi(UsuarioActual.Empresa)
+            ObjAC.IniciaTransacSQL()
+            If Not ObjAC.RemovePoliza(IdPoliza) Then
+                ErrorCompra = True
+            End If
+        End If
+
+        If Not ErrorCompra Then
+            For Each gvr As GridViewRow In GvEB.Rows
+                If Not ObjEventos.RemoveEvento(gvr.DataKey("CveEvento").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
+                    ErrorCompra = True
+                    Exit For
+                End If
+            Next
+        End If
+
+        If Not ErrorCompra Then
+            If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then
+                ErrorCompra = True
+            End If
+        End If
+
+
+
+        Try
+            If ObjInventarios.GetInv_ComprasMov(CveCompra, UsuarioActual.CveEmpresa) Then
+                Dim DTInventarios As DataTable = ObjInventarios.DtResultados
+                If DTInventarios.Rows.Count > 0 Then
+
+                    Dim DTMovimientos As DataTable = DTInventarios.FiltraParametros("", "", {"CVeMovimiento"})
+
+                    For Each diRow As DataRow In DTMovimientos.Rows
+
+                        Dim CveMovimientoActual As Integer = diRow("CveMovimiento").ToString.ToEntero
+
+                        If Not ObjInventarios.MovimientoRemove(CveMovimientoActual, UsuarioActual.CveEmpresa, CveUsuario:=UsuarioActual.CveUsuario) Then
+                            ErrorCompra = True
+                            Exit For
+                        End If
+
+
+                    Next
+
+                End If
+            End If
+        Catch ex As Exception
+            ErrorCompra = True
+        End Try
+
+        Dim SBEliminacionCompra As New StringBuilder
+
+
+        SBEliminacionCompra.Append($"Serie-Folio: {TxtSerie.Text}-{TxtFolio.Text}, Proveedor: {HplProveedor.Text}, Descripción: {TxtDescripcion.Text}, SubTotal: {TxtSubTotal2.Text}, ")
+
+        If TxtIVA.Text.Trim.ToDecimal > 0 Then
+            SBEliminacionCompra.Append($"IVA: { TxtIVA.Text},")
+        End If
+
+
+        If TxtRetISR.Text.Trim.ToDecimal > 0 Then
+            SBEliminacionCompra.Append($"Ret. ISR: { TxtRetISR.Text}, ")
+        End If
+
+        If TxtRetIVA.Text.Trim.ToDecimal > 0 Then
+            SBEliminacionCompra.Append($"Ret. IVA: { TxtRetIVA.Text}, ")
+        End If
+
+        If TxtIEPS.Text.Trim.ToDecimal > 0 Then
+            SBEliminacionCompra.Append($"IEPS: { TxtIEPS.Text}, ")
+        End If
+
+
+        SBEliminacionCompra.Append($"Total: {TxtTotal.Text}, ")
+
+
+        SBEliminacionCompra.Append($"Moneda: {DdlMoneda.SelectedItem.Text}, ")
+
+        If TxtOC.Text.Trim.Length > 0 Then
+            SBEliminacionCompra.Append($"OC: {TxtOC.Text }, ")
+        End If
+
+
+        SBEliminacionCompra.Append($"Fecha {TxtFecha.Text}, ")
+        SBEliminacionCompra.Append($"Capturó: {LblUsuarioCaptura.Text}, ")
+        SBEliminacionCompra.Append($"F Captura: {LitFechCaptura.Text}, ")
+
+        SBEliminacionCompra.Append($"Dealles: ")
+        For Each dRow As DataRow In TmpDT.Rows
+            SBEliminacionCompra.Append($"Cantidad: {dRow("Cantidad")}, PS: {dRow("PS")},  Obs: {dRow("Obs")}, Sub Proyecto: {dRow("SubProyecto")}, Tipo Gasto: {dRow("TipoGasto")}, IVA: {dRow("IVA").ToString.ToDecimal.ToString("###,###,###.00")}, IEPSPS: {dRow("IEPSPS").ToString.ToDecimal.ToString("###,###,###.00") }  ")
+        Next
+
+        If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveCompra, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1,
+                                            TxtModalEliminarCompraDescripcion.Text, "Compras", SBEliminacionCompra.ToString) Then
+            ErrorCompra = True
+
+        End If
+
+
+
+
+        If Not ErrorCompra Then
+            If Not Comp.DeleteCompra(CveCompra, False) Then
+                ErrorCompra = True
+            End If
+        End If
+
+        If Not ErrorCompra Then
+            RegistraScript("$('#DvModalEliminarCompra').modal('hide');")
+            Alert("La Compra ha sido eliminada.", TipoMensaje.MsgInformacion, "document.location.href=""/Compras/Compras.aspx""")
+            If ObjAC IsNot Nothing Then ObjAC.Commit()
+            Comp.Commit()
+        Else
+            Alert("La Compra no ha sido eliminada.", TipoMensaje.MsgAdvertencia)
+            If ObjAC IsNot Nothing Then ObjAC.RollBack()
+            Comp.RollBack()
+        End If
+
+        If ObjAC IsNot Nothing Then ObjAC.Dispose()
+        Comp.Dispose()
+        ObjConta.Dispose()
+    End Sub
+
+
+
+#End Region
+
+
+
+
 End Class
 
 
 
+
 Public Class MMensajeDevolucion
     Public Property CveMovimiento As Integer
     Public Property TieneError As Boolean

RH/RepAsistencias.aspx.vb

@@ -136,6 +136,7 @@ Partial Class RH_RepAsistencias
 
         For index = 1 To GV.Columns.Count - 1
             CType(GV.Columns(index), BoundField).DataField = Nothing
+            GV.Columns(index).Visible = False
         Next
         UpDatos.Update()
     End Sub
@@ -145,7 +146,7 @@ Partial Class RH_RepAsistencias
 
         For index = 1 To dt.Columns.Count - 5
             CType(GV.Columns(index + 4), BoundField).DataField = dt.Columns(index + 4).ColumnName
-
+            GV.Columns(index + 4).Visible = True
             Dim tmpDate As Date
             If (Date.TryParse(dt.Columns(index + 4).ColumnName, tmpDate)) Then
                 CType(GV.Columns(index + 4), BoundField).HeaderText = tmpDate.ToString("dd-MMM").Replace(".", "")
@@ -171,7 +172,7 @@ Partial Class RH_RepAsistencias
 
             End If
 
-            e.Row.Attributes.Add("style", "max-height: 22px;")
+            '  e.Row.Attributes.Add("style", "max-height: 22px;")
 
         End If