diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 01ef2962d..c29799b52 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -9,6 +9,7 @@ Imports Extensiones Imports iText.Barcodes.Dmcode Imports Microsoft.Reporting.WebForms Imports Modelos +Imports Stimulsoft.Base.Context Partial Class PopUpVerFactura @@ -3372,10 +3373,42 @@ Partial Class PopUpVerFactura If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + CveCliente = DtMovimientos.FiltroPrimeroValor("CveCliente").ToEntero DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}") + + Dim CveVentaConsulta As Integer = DtMovimientos.FiltroPrimeroValor("CveVenta").ToEntero + params.Add(New ReportParameter("Documentacion", DTCliente.FiltroPrimeroValor("Documentacion"))) + Dim ObjVentas As New ClsVentas() + If ObjVentas.GetVenta(CveVentaConsulta, UsuarioActual.CveEmpresa, False) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then + Dim dtVentas As DataTable = ObjVentas.DtResultados + + params.Add(New ReportParameter("ClienteCodigo", dtVentas.Rows(0)("ClienteCodigo").ToString)) + params.Add(New ReportParameter("ClienteNombre", dtVentas.Rows(0)("ClienteNombre").ToString)) + params.Add(New ReportParameter("ClienteSucursal", dtVentas.Rows(0)("SucursalCliente").ToString)) + params.Add(New ReportParameter("ClienteRFC", dtVentas.Rows(0)("ClienteRFC").ToString)) + + params.Add(New ReportParameter("ClienteCalle", dtVentas.Rows(0)("ClienteDireccion").ToString)) + params.Add(New ReportParameter("ClienteNoExt", dtVentas.Rows(0)("ClienteNoExt").ToString)) + params.Add(New ReportParameter("ClienteColonia", dtVentas.Rows(0)("ColoniaCliente").ToString)) + params.Add(New ReportParameter("ClienteCiudad", dtVentas.Rows(0)("ClienteCiudad").ToString)) + params.Add(New ReportParameter("ClienteEstado", dtVentas.Rows(0)("ClienteEstado").ToString)) + + params.Add(New ReportParameter("ClienteMunicipio", dtVentas.Rows(0)("SucClienteCiudad").ToString)) + params.Add(New ReportParameter("ClienteCP", dtVentas.Rows(0)("CPCliente").ToString)) + + + + + End If + ObjVentas.Dispose() + + + + + If CveCliente = 819998 Then RutaFormato = "{0}Formatos\TrasladoAngeles.rdlc" End If diff --git a/Empresas/186/Formatos/Entradas.rdlc b/Empresas/186/Formatos/Entradas.rdlc index 1f0b6b6be..77b95e765 100644 --- a/Empresas/186/Formatos/Entradas.rdlc +++ b/Empresas/186/Formatos/Entradas.rdlc @@ -793,7 +793,7 @@ CIUDAD DE MEXICO - Telefono +52 551 563 3271 support@smsmedicalsolutions.com + Teléfono: +52 551 563 3271 Correo: support@smsmedicalsolutions.com + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + + + + =Parameters!Documentacion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + - 0.88788in + 1.35487in - + true true - =Parameters!Observaciones.Value + Cliente: - - - - - - - =Parameters!Documentacion.Value + =Parameters!ClienteCodigo.Value + + + - + + + + =Parameters!ClienteNombre.Value + + + + . +Sucursal: . + + + + =Parameters!ClienteSucursal.Value + + + + RFC: + + + + =Parameters!ClienteRFC.Value + + + + +Calle: + + + + =Parameters!ClienteCalle.Value + + + + + + + + =Parameters!ClienteNoExt.Value + + + + . Colonia: + + + + =Parameters!ClienteColonia.Value + + + + Ciudad: + + + + =Parameters!ClienteCiudad.Value + + + + . +Estado: + + + + =Parameters!ClienteEstado.Value + + + + . +Municipio y/o Delegación: + + + + =Parameters!ClienteMunicipio.Value + + + + . CP: + + + + =Parameters!ClienteCP.Value + + + + . + - 0cm 0.13678cm 0cm 20.28859cm @@ -2312,7 +2479,6 @@ CIUDAD DE MEXICO - 0cm 0.13678cm 0cm 25.72414cm @@ -2532,6 +2698,72 @@ CIUDAD DE MEXICO true ReportParameter1 + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + + + String + true + true + ReportParameter1 + diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 056721404..f0d83d50d 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -117,6 +117,19 @@ Partial Class Inventarios_EntregaAlmacen End Set End Property + Private Property CveTipoVenta As Integer + Get + If ViewState("CveTipoVenta") Is Nothing Then + ViewState("CveTipoVenta") = -1 + End If + Return CType(ViewState("CveTipoVenta"), Integer) + End Get + Set(value As Integer) + ViewState("CveTipoVenta") = value + End Set + End Property + + Private Property TipoEstatus As Integer Get @@ -320,15 +333,15 @@ Partial Class Inventarios_EntregaAlmacen End Property - Private Property PedidoBloqueCantidad As Boolean + Private Property BloqueCantidad As Boolean Get - If ViewState("PedidoBloqueCantidad") Is Nothing Then - ViewState("PedidoBloqueCantidad") = False + If ViewState("BloqueCantidad") Is Nothing Then + ViewState("BloqueCantidad") = False End If - Return Boolean.Parse(ViewState("PedidoBloqueCantidad").ToString) + Return Boolean.Parse(ViewState("BloqueCantidad").ToString) End Get Set(value As Boolean) - ViewState("PedidoBloqueCantidad") = value + ViewState("BloqueCantidad") = value End Set End Property @@ -675,6 +688,7 @@ Partial Class Inventarios_EntregaAlmacen LbObservacionesAlmacen.Text = drE("ObservacionesAlmacen").ToString() CveVentaSurtir = CveVenta CveOSSurtir = CveOS + CveTipoVenta = drE("CveTipoVenta").ToString().ToEntero CveAlmacenTraspasoDestino = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).ToString().ToEntero() CveAlmacenTraspasoOrigen = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoDestino", "CveAlmacenTraspasoOrigen")).ToString().ToEntero() CveContrato = drE("CveContrato").ToString().ToEntero() @@ -842,14 +856,19 @@ Partial Class Inventarios_EntregaAlmacen End If ObjInventario.Dispose() - UpGenerales.Update() - If CveAlmacen <= 0 Then CargaGvDatos() + UpGenerales.Update() + + If (EsDevolucionVenta = 1 AndAlso CveOSSurtir > 0 AndAlso TipoMovimiento = 2 AndAlso TipoDocto = "Ped") Or (UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 AndAlso CveTipoVenta <> 3) Then + BloqueCantidad = True + Else + BloqueCantidad = False + End If - - - If EsDevolucionVenta = 1 AndAlso CveOSSurtir > 0 AndAlso TipoMovimiento = 2 AndAlso TipoDocto = "Ped" Then - PedidoBloqueCantidad = True - End If + If CveAlmacen <= 0 Then CargaGvDatos() + + + + @@ -1106,7 +1125,7 @@ Partial Class Inventarios_EntregaAlmacen CType(e.Row.FindControl("RFVCaducidad"), RequiredFieldValidator).Enabled = False 'si aplica caducidad y viene vacía (posible por venta anterior), que se active su registro - If (e.Row.FCTextBox("TxtCaducidad").Text = "" OrElse e.Row.FCTextBox("TxtCaducidad").Text.ToDate <= MinFecha) OrElse UsuarioActual.TienePermisoProceso(364) Then + If (e.Row.FCTextBox("TxtCaducidad").Text = "" OrElse e.Row.FCTextBox("TxtCaducidad").Text.ToDate <= MinFecha) OrElse UsuarioActual.TienePermisoProceso(364) OrElse UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then e.Row.FCTextBox("TxtCaducidad").ReadOnly = False CType(e.Row.FindControl("RFVCaducidad"), RequiredFieldValidator).Enabled = True e.Row.FCTextBox("TxtCaducidad").Enabled = True @@ -1120,7 +1139,7 @@ Partial Class Inventarios_EntregaAlmacen If CBool(e.Row.DBCampo("AplicaLote")) Then e.Row.FCTextBox("TxtLote").Visible = True 'si aplica caducidad y viene vacía (posible por venta anterior), que se active su registro - If e.Row.FCTextBox("TxtLote").Text = "" OrElse UsuarioActual.TienePermisoProceso(364) Then + If e.Row.FCTextBox("TxtLote").Text = "" OrElse UsuarioActual.TienePermisoProceso(364) OrElse UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then e.Row.FCTextBox("TxtLote").ReadOnly = False e.Row.FCTextBox("TxtLote").Enabled = True Else @@ -1165,7 +1184,7 @@ Partial Class Inventarios_EntregaAlmacen e.Row.FCCheckBox("cbInv").Enabled = False End If - If PedidoBloqueCantidad Then + If BloqueCantidad Then e.Row.FCTextBox("TbCantidadF").Enabled = False End If diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index 7ee3d5ced..bbee6bbff 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -498,10 +498,13 @@ Partial Class OS_Asignaciones Dim TMSelector = DirectCast(e.Row.FindControl("TimeSelector"), TimeSelector) TMSelector.Date = FechaCita + e.Row.Cells(7).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.Ticks.ToString) + e.Row.Cells(8).Attributes.Add("data-order", e.Row.DBCampo("FechaCitaOS").ToDate.ToString("HHmm")) End If + End If UpOS.Update() diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index ffb9530fe..ad9919f31 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -2913,8 +2913,46 @@ Partial Class OS_OrdenesServicios DdlUsuarioAtendio.DataBind() DdlUsuarioAtendio.Items.Insert(0, New ListItem("Sin Asignar", "-1")) - + CargaTecnicoDdlUsuarioAtendio() End Sub + + + + Private Sub CargaTecnicoDdlUsuarioAtendio() + Dim ObjOS As New ClsOS + Dim DtOSSubProyectos As New DataTable + Dim TecnicosSubProyectos As New DataTable + Dim TecnicosResultado As New DataTable + + If ObjOS.GetOrdenesServiciosNoAsignadas(-1, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, "-1", "-1") Then + DtOSSubProyectos = ObjOS.DtResultados.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) + End If + + If DtOSSubProyectos IsNot Nothing Then + + If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then + TecnicosSubProyectos = ObjOS.DtResultados + End If + + For Each SubProyecto As DataRow In DtOSSubProyectos.Rows + Dim TecnicosSubProyectoAux As DataTable = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}'", SubProyecto.Item("SubProyecto"))) + If TecnicosSubProyectoAux.Rows.Count > 0 Then + Dim EstatusDeTipoProcesoMenor As Integer = TecnicosSubProyectoAux.Rows(0).Item("CveEstatusOrdenServicio").ToString.ToEntero + Dim dtAuxiliar As New DataTable + dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"}) + TecnicosResultado.Merge(dtAuxiliar) + End If + Next + End If + + + ObjOS.Dispose() + + DdlUsuarioAtendio.DataSource = TecnicosResultado + DdlUsuarioAtendio.DataBind() + DdlUsuarioAtendio.Items.Insert(0, New ListItem("Sin Asignar", "-1")) + End Sub + Private Sub LnkTecnico_Click(sender As Object, e As EventArgs) Handles LnkTecnico.Click RegistraScript(String.Format("$('#{0}').modal('show');", "DivCambiarTecnico")) End Sub diff --git a/OS/RepOSMedicas.aspx b/OS/RepOSMedicas.aspx index 0c60a2b8c..1efdc1a22 100644 --- a/OS/RepOSMedicas.aspx +++ b/OS/RepOSMedicas.aspx @@ -155,6 +155,13 @@ +
+
+ " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
+
+