diff --git a/AF/OrdenTrabajo.aspx b/AF/OrdenTrabajo.aspx index 55c220d37..6128ed0b5 100644 --- a/AF/OrdenTrabajo.aspx +++ b/AF/OrdenTrabajo.aspx @@ -241,6 +241,7 @@ + @@ -253,6 +254,17 @@ + + + + Faltante + + + + + + + + diff --git a/AF/OrdenTrabajo.aspx.vb b/AF/OrdenTrabajo.aspx.vb index 70cbcf6f1..522701bf7 100644 --- a/AF/OrdenTrabajo.aspx.vb +++ b/AF/OrdenTrabajo.aspx.vb @@ -25,6 +25,18 @@ Partial Class AF_OrdenTrabajo End Set End Property + Property CveOrdenCompra As Integer + Get + If ViewState("CveOrdenCompra") Is Nothing Then + Return -1 + Else + Return ViewState("CveOrdenCompra").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("CveOrdenCompra") = value + End Set + End Property @@ -101,12 +113,8 @@ Partial Class AF_OrdenTrabajo #End Region -#Region " CARGA DATOS " - -#End Region - #Region " GV DATOS " Private Sub CargaDatos() @@ -128,17 +136,16 @@ Partial Class AF_OrdenTrabajo DdlPrioridad.SelectedValueExist(ObjAF.DtResultados(0)("Prioridad").ToString) txtFechaI.Text = ObjAF.DtResultados(0)("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy") + CveOrdenCompra = ObjAF.DtResultados(0)("CveOrdenCompra").ToString.ToEntero + If ObjAF.DtResultados(0)("FechaFin").ToString.Length > 0 Then txtFechaF.Text = ObjAF.DtResultados(0)("FechaFin").ToString.ToDate.ToString("dd/MM/yyyy") End If 'txtFechaFinReal.Text "" DdlOrdenesTrabajoEstatus.SelectedValueExist(ObjAF.DtResultados(0)("CveEstatusOT").ToString) - - - - Else - Alert("No se encontro la orden de rtabajo", TipoMensaje.MsgAdvertencia) + Else + Alert("No se encontro la orden de trabajo", TipoMensaje.MsgAdvertencia) End If End If @@ -321,16 +328,27 @@ Partial Class AF_OrdenTrabajo Private Sub CargaMaterial() Dim ObjAF As New ClsAF + Dim MaterialFaltante As Decimal = 0 If ObjAF.GetOrdenesTrabajoMateriales(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then GvMaterial.DataSource = ObjAF.DtResultados + MaterialFaltante = ObjAF.DtResultados.SUMD("Faltante") Else GvMaterial.DataSource = Nothing End If ObjAF.Dispose() + + + + If MaterialFaltante > 0 AndAlso CveOrdenCompra <= 0 Then + + GvMaterial.Columns(4).Visible = True + End If + GvMaterial.DataBind() + UpGvMaterial.Update() End Sub @@ -376,6 +394,17 @@ Partial Class AF_OrdenTrabajo Protected Sub GvMaterial_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.Header Then + + If GvMaterial.Columns(4).Visible Then + + Dim HLOC As HyperLink = e.Row.FCHyperLink("HLOC") + HLOC.NavigateUrl = $"../OC/OC.aspx?CveOrdenTrabajo={CveOrdenTrabajo}" + + End If + + End If + End Sub Protected Sub GvActividades_RowDataBound(sender As Object, e As GridViewRowEventArgs) diff --git a/App_Code/ClsAF.vb b/App_Code/ClsAF.vb index 201458f77..c70e0c563 100644 --- a/App_Code/ClsAF.vb +++ b/App_Code/ClsAF.vb @@ -4300,8 +4300,33 @@ Public Class ClsAF .Add("@CveEstatusOT", SqlDbType.Int).Value = CveEstatusOT .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar la orden de trabajo", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + + End Function + Public Function UpdateOrdenesTrabajoOC(CveOrdenTrabajo As Integer, CveOrdenCompra As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + + DataAdapter("PA_AF_OrdenesTrabajoOCUpdate") + + With SqlAdapter.SelectCommand.Parameters + + + .Add("@CveOrdenTrabajo", SqlDbType.Int).Value = CveOrdenTrabajo + .Add("@CveOrdenCompra", SqlDbType.Int).Value = CveOrdenCompra + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 78dd4be3a..4313f8638 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -974,12 +974,20 @@ Partial Class Bancos_IE LnkEliminar.OnClientClick = "return confirm('¿Está seguro de eliminar el documento y su póliza?');" EstaContabilizado = True + + TxtFechaDocumento.Enabled = False + ImgCalendario.Visible = False + + Else BtnContabilizar.Visible = True BtnDescontabilizar.Visible = False HplIrPoliza.Visible = False - EstaContabilizado = False + + 'TxtFechaDocumento.Enabled = True + 'ImgCalendario.Visible = True + End If UPPDesContabilizar.Update() diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 2fc14f0ad..be8eb8dba 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -3903,7 +3903,7 @@ Créditos Acreedores Caja Chica - Viaticos + Viáticos Deudores @@ -3911,7 +3911,7 @@
- +

@@ -3971,7 +3971,7 @@
- +
@@ -4000,7 +4000,7 @@
-
+
@@ -4029,11 +4029,12 @@
+
- +
@@ -4052,7 +4053,7 @@
-
+
@@ -4070,16 +4071,18 @@
+
- +
+
- +
@@ -4105,7 +4108,7 @@
-
+
@@ -4119,15 +4122,17 @@
+
- +
+
- + D.D @@ -4235,7 +4240,7 @@ - +
@@ -4267,10 +4272,11 @@
+
- +
@@ -4295,7 +4301,7 @@
-
+
@@ -4308,6 +4314,7 @@
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 9781db9cf..e07c1e675 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -12838,6 +12838,7 @@ Partial Class Compras_Compras End Sub Protected Sub RBLContado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLContado.SelectedIndexChanged + LblCheq.Text = RBLContado.SelectedItem.Text CargaContado() End Sub Private Sub RBLTipoDeudor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLTipoDeudor.SelectedIndexChanged diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 7b394c0fd..1d1460e35 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -167,7 +167,14 @@ Partial Class OC End Property Private Property NumCotizaciones As Integer Get - NumCotizaciones = ViewState("NumCotizaciones").ToString.ToEntero + + If ViewState("NumCotizaciones") Is Nothing Then + Return -1 + Else + Return ViewState("NumCotizaciones").ToString.ToEntero + End If + + End Get Set(value As Integer) ViewState("NumCotizaciones") = value @@ -524,6 +531,22 @@ Partial Class OC End Set End Property + + + + Private Property CveOrdenTrabajo As Integer + Get + If ViewState("CveOrdenTrabajo") Is Nothing Then + Return -1 + Else + Return ViewState("CveOrdenTrabajo").ToString.ToEntero + End If + End Get + Set(value As Integer) + ViewState("CveOrdenTrabajo") = value + End Set + End Property + #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -672,6 +695,14 @@ Partial Class OC 'ASIGNA ESTATUS OC CboE_SelectedIndexChanged(New Object, New EventArgs) + + If Request("CveOrdenTrabajo") IsNot Nothing AndAlso Request("CveOrdenTrabajo").ToString.ToEntero > 0 Then + CveOrdenTrabajo = Request("CveOrdenTrabajo").ToEntero + CargaOT() + End If + + + End If @@ -2548,6 +2579,20 @@ Partial Class OC Else TieneError = True End If + + + + If CveOrdenTrabajo > 0 Then + + Dim ObjAF As New ClsAF(OC.IniciaTransacSQL) + If Not ObjAF.UpdateOrdenesTrabajoOC(CveOrdenTrabajo, CveOrdenCompra, UsuarioActual.CveEmpresa) Then + TieneError = True + End If + + End If + + + End If @@ -8076,4 +8121,112 @@ Partial Class OC ' End If ' ObjVentas.Dispose() 'End Sub + + + Private Sub CargaOT() + + If CveOrdenTrabajo > 0 Then + + Dim ObjAF As New ClsAF + + Dim CveSubProyecto As Integer = 0 + Dim SubProyecto As String = "" + + Dim CveProyecto As Integer = 0 + Dim Proyecto As String = "" + + If ObjAF.GetOrdenesTrabajo(CveOrdenTrabajo, -1, -1, -1, -1, -1, MinFecha, MaxFecha, Nothing, -1, UsuarioActual.CveEmpresa) Then + + If ObjAF.DtResultados IsNot Nothing AndAlso ObjAF.DtResultados.Rows.Count > 0 Then + + lblFolio.Text = $"Folio OT: {ObjAF.DtResultados(0)("Folio").ToString}" + + CveSubProyecto = ObjAF.DtResultados(0)("CveSubProyecto").ToString.ToEntero + SubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("SubProyecto").ToString + + CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("CveProyecto").ToString.ToEntero + Proyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("Proyecto").ToString + + 'DdlAF.SelectedValueExist(ObjAF.DtResultados(0)("CveAF").ToString) + 'DdlTipoServicio.SelectedValueExist(ObjAF.DtResultados(0)("CveTipoServicio").ToString) + 'TxtServicio.Text = ObjAF.DtResultados(0)("Servicio").ToString + DdlPrioridad.SelectedValueExist(ObjAF.DtResultados(0)("Prioridad").ToString) + 'txtFechaI.Text = ObjAF.DtResultados(0)("FechaInicio").ToString.ToDate.ToString("dd/MM/yyyy") + + If ObjAF.DtResultados(0)("FechaFin").ToString.Length > 0 Then + 'txtFechaF.Text = ObjAF.DtResultados(0)("FechaFin").ToString.ToDate.ToString("dd/MM/yyyy") + End If + + 'txtFechaFinReal.Text "" + 'DdlOrdenesTrabajoEstatus.SelectedValueExist(ObjAF.DtResultados(0)("CveEstatusOT").ToString) + Else + Alert("No se encontro la orden de trabajo", TipoMensaje.MsgAdvertencia) + End If + End If + + If ObjAF.GetOrdenesTrabajoMateriales(CveOrdenTrabajo, UsuarioActual.CveEmpresa) Then + + + For Each DRow As DataRow In ObjAF.DtResultados.Rows + + Dim Cantidad As Decimal = DRow("Faltante").ToString.ToDecimal + + If Cantidad > 0 Then + + + Dim CvePS As Integer = DRow("CvePS").ToString.ToEntero + Dim PrecioUnitario As Double = 0 + + Dim dr As DataRow = DtDetalle.NewRow + Dim DrPS = GlobalDTPS(CveEmpresaActual, CvePS:=CvePS).FiltroPrimero("") + If DrPS Is Nothing Then + Alert("Ocurrió un error al cargar la información de los productos del archivo. Por favor vuelva a intentar.", TipoMensaje.MsgAdvertencia) + Continue For + End If + Dim RetIVA As Double = DrPS("RetIVA").ToString.ToDouble + Dim RetISR As Double = DrPS("RetISR").ToString.ToDouble + Dim PS As String = DrPS("PS").ToString + Dim TotalPS As Double = If(PrecioUnitario > 0, PrecioUnitario * Cantidad, 0) + Dim CveUnidadMedida As Integer = DrPS("CveUnidadMedida").ToString.ToEntero + Dim UM As String = DrPS("UnidadMedida").ToString + Dim IvaPS As Double = DrPS("IVA").ToString.ToDouble + 'If IvaPS = -1 Then + ' Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0) + ' IvaPS = Drr("IVA").ToString().ToDouble() + 'End If + Dim IEPSPS As Double = DrPS("IEPSPorcentaje").ToString.ToDouble + Dim IEPSPSIVA As Double = If(DrPS("IEPSGrabaIVA").ToString = "True", DrPS("IEPSPorcentaje").ToString.ToDouble, 0) + Dim CveClasificacion As Integer = DrPS("CveClasificacion").ToString.ToEntero + Dim Clasificacion As String = DrPS("Clasificacion").ToString + Dim CveActivoFijo = HdnCveActivoFijo.Value.ToEntero + Dim IdCuentaPorEjercer As Integer = If(HdnCveCuentaPorEjercer.Value = String.Empty, -1, HdnCveCuentaPorEjercer.Value.ToEntero) + Dim IdCuentaComprometido As Integer = If(HdnCveCuentaComprometido.Value = String.Empty, -1, HdnCveCuentaComprometido.Value.ToEntero) + Dim CveOrdenCompraDetalle As Integer = DtDetalle.MAX("CveOrdenCompraDetalle").ToEntero + 100 + + AddPS(Cantidad, CvePS, PS, "", PrecioUnitario, 0, TotalPS, CveUnidadMedida, IvaPS, IEPSPS, IEPSPSIVA, CveClasificacion, UM, Clasificacion, CveProyecto, Proyecto, CveSubProyecto, SubProyecto, LblCodigo.Text, + CveActivoFijo, 0, CveOrdenCompraDetalle, CveOrdenCompra, IdCuentaPorEjercer, IdCuentaComprometido, DdlACGeneral1.SelectedValue.ToEntero, DdlACGeneral2.SelectedValue.ToEntero, DdlACGeneral3.SelectedValue.ToEntero, DdlACGeneral4.SelectedValue.ToEntero, + DdlACGeneral5.SelectedValue.ToEntero, RetIVA, RetISR) + + End If + + + Next + + End If + + + + + ObjAF.Dispose() + + GvD.DataSource = DtDetalle + GvD.DataBind() + + End If + + + End Sub + + + End Class diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index 88f56a0be..54e4822da 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -74,32 +74,32 @@ Partial Class Ventas_ActualizarPrecios DDlClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) End Sub - Public Sub CargaPreciosLista() - - DdlPrecioLista.Items.Clear() - - If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'si manneja precios de lista - Dim ObjVta As New ClsVentas - Dim primerItem As String = "" - If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then - DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy() - DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy() - primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista") - End If - ObjVta.Dispose() - - - DdlPrecioLista.DataBind() - DdlPrecioListaCarga.DataBind() - - If (DdlPrecioLista.Items.Count = 1) Then - DdlPrecioLista.Items.FindByValue(primerItem).Selected = True - End If - Else + Public Sub CargaPreciosLista() + + DdlPrecioLista.Items.Clear() + + If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'si manneja precios de lista + Dim ObjVta As New ClsVentas + Dim primerItem As String = "" + If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then + DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy() + DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy() + primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista") + End If + ObjVta.Dispose() + + + DdlPrecioLista.DataBind() + DdlPrecioListaCarga.DataBind() + + If (DdlPrecioLista.Items.Count = 1) Then + DdlPrecioLista.Items.FindByValue(primerItem).Selected = True + End If + Else DdlPrecioLista.Items.Insert(0, New ListItem("Sin Precio Lista", "-2")) - DdlPrecioListaCarga.Items.Insert(0, New ListItem("Sin Precio Lista", "-2")) - End If - + DdlPrecioListaCarga.Items.Insert(0, New ListItem("Sin Precio Lista", "-2")) + End If + End Sub Public Sub CargaPS() @@ -142,19 +142,19 @@ Partial Class Ventas_ActualizarPrecios DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) End Sub - Private Sub CargarModelos() - If UsuarioActual.Empresa.Funcionalidad(558).ToString = "1" Then - lblModelo.visible = True - DdlModelo.Visible = True - Dim ObjGeneral As New ClsGenerales - If ObjGeneral.GetModelos(UsuarioActual.CveEmpresa) Then - DdlModelo.DataSource = ObjGeneral.DtResultados - End If - ObjGeneral.Dispose() - DdlModelo.DataBind() - DdlModelo.Items.Insert(0, New ListItem("Seleccione", "-1")) - End If - + Private Sub CargarModelos() + If UsuarioActual.Empresa.Funcionalidad(558).ToString = "1" Then + lblModelo.visible = True + DdlModelo.Visible = True + Dim ObjGeneral As New ClsGenerales + If ObjGeneral.GetModelos(UsuarioActual.CveEmpresa) Then + DdlModelo.DataSource = ObjGeneral.DtResultados + End If + ObjGeneral.Dispose() + DdlModelo.DataBind() + End If + DdlModelo.Items.Insert(0, New ListItem("Seleccione", "-1")) + End Sub Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Dim objPS As New ClsProductosServicios @@ -223,7 +223,7 @@ Partial Class Ventas_ActualizarPrecios ObjPS.Dispose() BtnConsultar_Click(Nothing, Nothing) - RegistraScript("$('#divAgregar').modal('hide')") + RegistraScript("$('#divAgregar').modal('hide')") TxtImporte.Text = "" TxtPrecio.Text = "" TxtPorcentaje.Text = "" @@ -410,26 +410,26 @@ Partial Class Ventas_ActualizarPrecios Dim Correcto As Boolean = False Dim CvePS As Integer = DtPS.FiltroPrimeroValor("CvePS", String.Format("Codigo='{0}' AND CveEmpresa={1}", row(0).ToString(), UsuarioActual.CveEmpresa)) Dim CvePrecioLista As Integer = DdlPrecioListaCarga.SelectedValue.ToEntero() - Dim PrecioNuevo As Decimal = row("Precio").ToString().ToDecimal() + Dim PrecioNuevo As Decimal = row("Precio").ToString().ToDecimal() Dim Porcentaje As Decimal = -1 - If CvePS > 0 AndAlso CvePrecioLista > 0 Then - - + If CvePS > 0 AndAlso CvePrecioLista > 0 Then + + Correcto = ObjPS.UpdatePSPreciosLista(PrecioNuevo, CvePrecioLista, Porcentaje, CvePS, UsuarioActual.CveUsuario, DateTime.Now, True) If Correcto Then RowsCargados += 1 End If - Else - If CvePS > 0 AndAlso CvePrecioLista = -2 Then - Correcto = ObjPS.UpdatePSPrecios(PrecioNuevo, CvePrecioLista, Porcentaje, CvePS, UsuarioActual.CveUsuario, DateTime.Now, True) - If Correcto Then - RowsCargados += 1 - End If - Else - Correcto = False - End If - + Else + If CvePS > 0 AndAlso CvePrecioLista = -2 Then + Correcto = ObjPS.UpdatePSPrecios(PrecioNuevo, CvePrecioLista, Porcentaje, CvePS, UsuarioActual.CveUsuario, DateTime.Now, True) + If Correcto Then + RowsCargados += 1 + End If + Else + Correcto = False + End If + End If If Not Correcto Then ProductosNoCargados.AppendFormat("{0},", row("Producto / Servicio").ToString()) @@ -508,12 +508,12 @@ Partial Class Ventas_ActualizarPrecios End While Return dataTable - End Function + End Function #End Region - - Protected Sub gvSucursal_RowDataBound(sender As Object, e As GridViewRowEventArgs) - If e.Row.RowType = DataControlRowType.DataRow Then - e.Row.FCTextBox("TxtPrecioMinimo").Attributes.Add("onKeyUp", String.Format("FncSeleccionaChk({0});", e.Row.FCCheckBox("chkSucursal").ClientID)) - End If - End Sub + + Protected Sub gvSucursal_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + e.Row.FCTextBox("TxtPrecioMinimo").Attributes.Add("onKeyUp", String.Format("FncSeleccionaChk({0});", e.Row.FCCheckBox("chkSucursal").ClientID)) + End If + End Sub End Class \ No newline at end of file