+
-
-
-
-
-
-
-
- Contrato:
+
+
+
+
+
+
-
+
-
--%>
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 30294692a..6b95b42ee 100644
--- a/Compras/Compras.aspx.vb
+++ b/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:
",
- ' 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}
", 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
diff --git a/RH/RepAsistencias.aspx.vb b/RH/RepAsistencias.aspx.vb
index 547c49c62..ccaec400c 100644
--- a/RH/RepAsistencias.aspx.vb
+++ b/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