Compras Bitacora eliminacion, Compras Activo fijo compra

This commit is contained in:
Oscar Irigoyen
2023-04-05 20:08:13 -07:00
parent c6f3d518ad
commit b5d0f62782
5 changed files with 188 additions and 138 deletions

View File

@@ -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

View File

@@ -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

View File

@@ -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">
<ContentTemplate>
<div class="row">
<div class="col-md-2" style="text-align: center; margin-top: 5px">
Contrato:
<asp:UpdatePanel runat="server" ID="UpModalEliminarcompraCuerpo" UpdateMode="Conditional">
<ContentTemplate>
<div class="row">
<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" />
<button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
<asp:Button ID="BtnModalEliminarCompra" OnClick="BtnModalEliminarCompra_Click" runat="server" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-danger" ValidationGroup="GrpModalEliminarCompra"
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">

View File

@@ -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

View File

@@ -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