Compras Bitacora eliminacion, Compras Activo fijo compra
This commit is contained in:
Oscar Irigoyen
@@ -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">×</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">
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user