diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 950871f6f..1bd14b0b8 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -1305,7 +1305,7 @@ Public Class ClsOS Return Retorno End Function - Public Function UpdateVentaOS(CveVenta As Integer, CveOS As Integer) As Boolean + Public Function UpdateVentaOS(CveVenta As Integer, CveOS As Integer, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_UpdateVentaOS") @@ -1313,6 +1313,8 @@ Public Class ClsOS With SqlAdapter.SelectCommand.Parameters .Add("@CveVenta", SqlDbType.Int).Value = CveVenta .Add("@CveOS", SqlDbType.Int).Value = CveOS + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@Episodio", SqlDbType.VarChar).Value = Episodio End With Try diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index ff9a10c2a..d4f433f47 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -10717,6 +10717,7 @@ Public Class ClsPaginas PaginaDict.Add("/Transportes/RepViajes.aspx".ToUpper(), 599) PaginaDict.Add("/Transportes/RepBoletos.aspx".ToUpper(), 600) PaginaDict.Add("/Transportes/Boletos.aspx".ToUpper(), 601) + PaginaDict.Add("/Transportes/RepContratosCalendario.aspx".ToUpper(), 603) #End Region 'Antes de aquí. diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index cafaeaf55..d84a4c789 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -59,7 +59,7 @@ Public Class ClsVentas Public Property Neto As Double Public Property PorNeto As Double Public Property CveClasificacionDetalle As Integer - + Public Property CveMedicoNuevo As Integer = -1 #End Region @@ -439,8 +439,7 @@ Public Class ClsVentas Optional CorreoNotificacion As String = "", Optional FormaPaqueteria As Integer = 1, Optional FacturarSucursal As Boolean = False, Optional VentaDesglosaIEPS As Boolean = False, Optional ServicioDomicilio As Boolean = False, Optional RFCReceptor As String = "", Optional Adjunto As String = "-1", Optional DevolucionImportePagado As Decimal = 0, Optional EsGarantia As Boolean = False, Optional CveLineaAdicional As Integer = -1, Optional DescripcionVenta As String = "", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveTipoVenta As Integer = -1, Optional RequiereOS As Boolean = False, - Optional FechaParaSurtir As DateTime = MinFecha - ) As Boolean + Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasAdd") @@ -547,6 +546,9 @@ Public Class ClsVentas .Add("@RequiereOS", SqlDbType.Int).Value = RequiereOS .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = If(FechaParaSurtir = MinFecha, Fecha, FechaParaSurtir) + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@Episodio", SqlDbType.VarChar).Value = Episodio + .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With @@ -576,7 +578,8 @@ Public Class ClsVentas Optional AtencionA As String = "", Optional PedidoContrato As String = "", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Decimal = -1, Optional RetISR As Decimal = -1, Optional Kilometraje As Decimal = 0, Optional CveUsoCFDi As Integer = -1, Optional ServicioDomicilio As Boolean = False, Optional CveVendedor As Integer = -1, - Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional FechaParaSurtir As DateTime = MinFecha) As Boolean + Optional RequiereOS As Boolean = False, Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional FechaParaSurtir As DateTime = MinFecha, + Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -613,6 +616,8 @@ Public Class ClsVentas .Add("@CveMedico", SqlDbType.Int).Value = CveMedico .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = FechaParaSurtir + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@Episodio", SqlDbType.VarChar).Value = Episodio End With Try @@ -627,7 +632,7 @@ Public Class ClsVentas Public Function UpdateObservacionesVenta(CveVenta As Integer, CveEmpresa As Integer, CveVendedor As Integer, Observaciones As String, FormaPaqueteria As Integer, CorreoNotificaciones As String, ObservacionesAlm As String, Pedido As String, OrdenCompra As String, FechaPago As String, CveUsoCFDI As Integer, Optional DescripcionVenta As String = "-1", Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, - Optional FechaParaSurtir As DateTime = MinFecha) As Boolean + Optional FechaParaSurtir As DateTime = MinFecha, Optional Paciente As String = "-1", Optional Episodio As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasObservacionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -646,6 +651,8 @@ Public Class ClsVentas .Add("@CveMedico", SqlDbType.Int).Value = CveMedico .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@FechaParaSurtir", SqlDbType.DateTime).Value = FechaParaSurtir + .Add("@Paciente", SqlDbType.VarChar).Value = Paciente + .Add("@Episodio", SqlDbType.VarChar).Value = Episodio End With Try @@ -6020,7 +6027,24 @@ Public Class ClsVentas End Function + Public Function UpdateVentaCorte(CveVenta As Integer, CveEmpresa As Integer, CveCorte As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Vta_VentaCorteUpdate") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveVenta", SqlDbType.Int).Value = CveVenta + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveCorte", SqlDbType.Int).Value = CveCorte + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar los datos de facturación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno + + End Function #Region "TIPO VENTA" @@ -6072,9 +6096,10 @@ Public Class ClsVentas Public Function AddMedico(Medico As String, CedulaProfesional As String, FechaNacimiento As Date, Notas As String, DiasAtencion As String, Horario As String, Lugar As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer, Telefono As String, Mail As String, CveMedicoEspecialidad As Integer, Celular As String, Consultorio As String, Optional CveMedicoSubEspecialidad As Integer = -1, - Optional Torre As String = "-1") As Boolean + Optional Torre As String = "-1") As Integer Dim Retorno As Boolean = False + CveMedicoNuevo = -1 DataAdapter("PA_Vta_MedicosAdd") With SqlAdapter.SelectCommand.Parameters @@ -6095,16 +6120,20 @@ Public Class ClsVentas .Add("@Consultorio", SqlDbType.VarChar).Value = Consultorio .Add("@CveMedicoSubEspecialidad", SqlDbType.Int).Value = CveMedicoSubEspecialidad .Add("@Torre", SqlDbType.VarChar).Value = Torre + .Add("@CveMedicoNuevo", SqlDbType.Int).Direction = ParameterDirection.Output + End With Try SqlAdapter.Fill(Data) + CveMedicoNuevo = SqlAdapter.SelectCommand.Parameters("@CveMedicoNuevo").Value.ToString.ToEntero Retorno = True Catch ex As Exception OnError("Ocurrió un error al guardar el Medico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try - Return Retorno + + Return CveMedicoNuevo End Function diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 263b49b72..a390a7455 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2156,7 +2156,7 @@ Namespace Modelos CveMetodoPago33:=factura.CveMetodoPago33, CveUsoCFDI:=factura.CveUsoCFDI, OrdenCompra:=factura.OrdenCompra, CveCuentaTerminal:=factura.CveCuentaTerminal, CveTipoRelacion:=factura.CveTipoRelacion, ImpuestoLocal:=TotalImpuestoLocal, CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)), CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, ServicioDomicilio:=factura.ServicioDomicilio, RFCReceptor:=RFCReceptor, EsGarantia:=factura.EsGarantia, DescripcionVenta:=factura.DescripcionVenta, - CveMedico:=factura.CveMedico, CveProcedimiento:=factura.CveProcedimiento, CveTipoVenta:=factura.CveTipoVenta, FechaParaSurtir:=factura.FechaParaSurtir) Then + CveMedico:=factura.CveMedico, CveProcedimiento:=factura.CveProcedimiento, CveTipoVenta:=factura.CveTipoVenta, FechaParaSurtir:=factura.FechaParaSurtir, Paciente:=factura.Paciente, Episodio:=factura.Episodio) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") @@ -7657,6 +7657,9 @@ Namespace Modelos Public Property CveProcedimiento As Integer = -1 Public Property Procedimiento As String = "" Public Property CveTipoVenta As Integer = -1 + + Public Property Paciente As String = "" + Public Property Episodio As String = "" #End Region End Class diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index e46aabf4d..0378716e1 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -45,6 +45,32 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState End If + Exit Select + Case "contrato_transportes" + + If context.Request("U").ToEntero > 0 Then + + CveUsuario = context.Request("U").ToEntero + CveEmpresa = context.Request("E").ToEntero + + Dim CveSubProyecto As Integer = If(context.Request("CveSubProyecto") IsNot Nothing, context.Request("CveSubProyecto").ToEntero, -1) + Dim CveUsuarioPara As Integer = If(context.Request("CveUsuarioPara") IsNot Nothing, context.Request("CveUsuarioPara").ToEntero, -1) + + + FI = context.Request("start").ToDate + FF = context.Request("end").ToDate + + If Not GetContratos(context:=context) Then + 'Convierte el objeto de Eventos en JSON + 'Dim oSerializer As System.Web.Script.Serialization.JavaScriptSerializer = New System.Web.Script.Serialization.JavaScriptSerializer + Dim sJSON As String = Newtonsoft.Json.JsonConvert.SerializeObject(events) + + context.Response.Write(sJSON) + End If + + End If + + Exit Select Case Else Exit Select @@ -69,13 +95,6 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState End If End If - - - - - - - End Sub Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable @@ -137,11 +156,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState End If - - - Dim EsCoordinador As Boolean = False - Dim usuarioActual_ As Usuario = UsuarioActual(context) If context IsNot Nothing AndAlso CveOS = -2 Then If usuarioActual_.TienePermisoProceso(348) Then @@ -265,7 +280,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState 'AGREGAMOS CUANDO NO ES RECURRENTE Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) 'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA - If dr("FechaFin").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then + If dr("FechaFinal").ToString.ToDateTime > tFecha Or dr("FechaInicio").ToString.ToDateTime > tFecha Then events.Add(cevent) End If Else @@ -418,6 +433,172 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState Return ErrorEventos End Function + Private Function GetContratos(Optional context As HttpContext = Nothing) As Boolean + Dim ObjContratos As New ClsContratos + + events = New List(Of CalendarEvent) + + Dim DT_SubProyectos As New DataTable + Dim DT_EstatusOS As New DataTable + Dim usuarioActual_ As Usuario = UsuarioActual(context) + Dim ErrorEventos As Boolean = False + Dim Colores() As String = {"#006699", "#0099cc", "#0066cc", "#0033cc", "#0000ff", "#3333ff", "#3333ff", "#6600ff", "#9933ff", "#cc00ff", "#cc00cc", "#cc0099", "#cc3399", "#cc6699", "#cc0066", "#009933", "#00cc00", "#00cc66", "#009999", "#669900", "#99cc00", "#cccc00", "#cc9900", "#ff9900", "#006666", "#669999"} + + DT_SubProyectos.Columns.Add("CveSubProyecto", GetType(Integer)) + DT_SubProyectos.Columns.Add("backgroundColor") + DT_EstatusOS.Columns.Add("", GetType(Integer)) + + If ObjContratos.GetContratos(-1, usuarioActual_.CveEmpresa, TipoContrato:=2) Then + + If ObjContratos.DtResultados.Rows.Count > 0 Then + + Try + For Each dr As DataRow In ObjContratos.DtResultados.Rows + Dim cevent As CalendarEvent = New CalendarEvent() + + + cevent.id = dr("CveContrato").ToString.ToEntero + cevent.title = dr("DescripcionContrato").ToString + cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime) + cevent.end = String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime) + cevent.allDay = False + cevent.CveEventoEstatus = dr("NumeroContrato").ToString.ToEntero + + If Not cevent.recurrenciatipo > 0 Then + + 'AGREGAMOS CUANDO NO ES RECURRENTE + Dim tFecha As DateTime = DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) + 'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA + If dr("FechaFinal").ToString.ToDateTime > tFecha Or dr("FechaInicial").ToString.ToDateTime > tFecha Then + events.Add(cevent) + End If + Else + + 'EMPIEZA METODO PARA AGREGAR CUANDO SI ES RECURRENTE + + Dim FinRecurrencia As Integer = cevent.recurrenciafin.ToEntero + Dim FI As DateTime, FF As DateTime, FT As DateTime + Dim DiasSemana As String() = cevent.diassemana.Split(","c) + FI = cevent.start.ToDateTime + FF = cevent.end.ToDateTime + + 'OBTENEMOS LA FECHA TERMINO (FT) DE LA RECURRENCIA + Select Case FinRecurrencia + Case -1 + FT = DateAdd(DateInterval.Year, 2, dr("FechaInicial").ToString.ToDateTime) + Case Is > 0 + FinRecurrencia -= 1 + Select Case cevent.recurrenciatipo + Case 1 + FT = DateAdd(DateInterval.Hour, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) + Case 2 + FT = DateAdd(DateInterval.Day, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) + Case 3 + FT = DateAdd(DateInterval.WeekOfYear, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) + FT = DateAdd(DateInterval.Day, (7 - Weekday(FT)).ToString.ToDouble, FT) + Case 4 + FT = DateAdd(DateInterval.Month, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) + Case 5 + FT = DateAdd(DateInterval.Year, FinRecurrencia * cevent.frecuencia, dr("FechaInicial").ToString.ToDateTime) + End Select + End Select + + 'SI ES TIPO SEMANAL Y DIASSEMANA TIENE VALORES CHECKEA ESTOS VALORES + Do + If DiasSemana.Length > 0 AndAlso DiasSemana(0) <> "" Then + For Each drDias As String In DiasSemana + Dim FIT As Date = FI, FFT As Date = FF + + FIT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FI)).ToString.ToDouble, FI) + FFT = DateAdd(DateInterval.Day, (drDias.ToEntero - Weekday(FF)).ToString.ToDouble, FF) + + cevent = New CalendarEvent() + cevent.id = dr("CveContrato").ToString.ToEntero + cevent.description = dr("DescripcionContrato").ToString + cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime) + cevent.end = String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime) + cevent.allDay = False + cevent.CveEventoEstatus = dr("NumeroContrato").ToString.ToEntero + + + + '11/05/2018 - Evento Gasto Recurrente + cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero + If cevent.CveTipoEvento = 10 Then + cevent.Importe = dr("Importe").ToString.ToDouble + End If + + If cevent.CveEventoEstatus.ToString.ToEntero = 3 Then + cevent.backgroundColor = "#1BBC9B" + End If + + 'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL Y/0 SI LA FECHA INICIAL DE LA RECURRENCIA ES MENOR A LA FECHA QUE SE CREO EL EVENTO NO LO AGREGA + If FIT > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) And FIT >= dr("FechaInicial").ToString.ToDateTime Then + events.Add(cevent) + End If + Next + Else + cevent = New CalendarEvent() + cevent.id = dr("CveContrato").ToString.ToEntero + cevent.description = dr("DescripcionContrato").ToString + cevent.start = String.Format("{0:s}", dr("FechaInicial").ToString.ToDateTime) + cevent.end = String.Format("{0:s}", dr("FechaFinal").ToString.ToDateTime) + cevent.allDay = False + 'cevent.CveEventoEstatus = dr("NumeroContrato").ToString.ToEntero + 'cevent.CveEventoEstatus = dr("CveEventoEstatus").ToString.ToEntero + 'cevent.cveagendatipo = dr("CveAgendaTipo").ToString + 'cevent.prioridad = dr("CvePrioridad").ToString.ToEntero + 'cevent.backgroundColor = dr("BackGroundColor").ToString + + 'cevent.recurrenciatipo = dr("RecurrenciaTipo").ToString.ToEntero + 'cevent.frecuencia = dr("Frecuencia").ToString.ToEntero + 'cevent.diassemana = dr("DiasSemana").ToString + 'cevent.dia = dr("Dia").ToString.ToEntero + 'cevent.mes = dr("Mes").ToString.ToEntero + 'cevent.recurrenciafin = dr("RecurrenciaFin").ToString + 'cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero + 'cevent.Prospecto = dr("Prospecto").ToString + + '11/05/2018 - Evento Gasto Recurrente + + + 'SI LA FECHA DEL EVENTO ES MENOR DE 6 MESES DE LA FECHA ACTUAL NO LO AGREGA + If FI > DateAdd(DateInterval.Month, -6, ClsPaginas.NowADS()) Then + events.Add(cevent) + End If + End If + + Select Case cevent.recurrenciatipo + Case 1 + FI = DateAdd(DateInterval.Hour, cevent.frecuencia, FI) + FF = DateAdd(DateInterval.Hour, cevent.frecuencia, FF) + Case 2 + FI = DateAdd(DateInterval.Day, cevent.frecuencia, FI) + FF = DateAdd(DateInterval.Day, cevent.frecuencia, FF) + Case 3 + FI = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FI) + FF = DateAdd(DateInterval.WeekOfYear, cevent.frecuencia, FF) + Case 4 + FI = DateAdd(DateInterval.Month, cevent.frecuencia, FI) + FF = DateAdd(DateInterval.Month, cevent.frecuencia, FF) + Case 5 + FI = DateAdd(DateInterval.Year, cevent.frecuencia, FI) + FF = DateAdd(DateInterval.Year, cevent.frecuencia, FF) + End Select + + Loop Until FI > FT + End If + Next + Catch ex As Exception + GuardaLog(ex.ToString()) + End Try + End If + + End If + ObjContratos.Dispose() + Return ErrorEventos + End Function + ReadOnly Property UsuarioActual(ByVal context As HttpContext) As Usuario Get UsuarioActual = DirectCast(If(context IsNot Nothing, context.Session("UsuarioSIG"), Nothing), Usuario) diff --git a/Ashx/E119.ashx b/Ashx/E119.ashx index d9fc7099f..cbf1d3adf 100644 --- a/Ashx/E119.ashx +++ b/Ashx/E119.ashx @@ -379,6 +379,7 @@ Public Class E119 : Implements IHttpHandler Dim ObjInventario As New ClsInventarios(ObjClientes.IniciaTransacSQL()) Dim CveSubProyecto, CveCliente, CveMoneda, CvePS As Integer Dim Cantidad, PU, Descuento As Decimal + Dim CveDireccionEnvio As Integer = 0 Dim Obs As String = "" CveSubProyecto = 12659 ' fijo Ecommerce CveCliente = 0 @@ -388,8 +389,8 @@ Public Class E119 : Implements IHttpHandler Dim RFC As String = "" Dim NombreCliente As String = "" If JsonRequest("billing") IsNot Nothing Then - RFC = JsonRequest("billing").First("first_name").ToString() - NombreCliente = JsonRequest("billing").First("first_name").ToString() & " " & JsonRequest("billing").First("last_name").ToString() + RFC = JsonRequest("billing")("first_name").ToString() + NombreCliente = JsonRequest("billing")("first_name").ToString() & " " & JsonRequest("billing")("last_name").ToString() End If 'BUSCAR SI ESTÁ REGISTRADO EL CLIENTE @@ -407,16 +408,16 @@ Public Class E119 : Implements IHttpHandler MsgLog.AppendLine("1.5 crear cliente") If JsonRequest("billing") IsNot Nothing Then Dim CveEstado As Integer = -1 - Dim Direccion As String = If(JsonRequest("billing").First("address_1") Is Nothing, "", JsonRequest("billing").First("address_1").ToString()) + Dim Direccion As String = If(JsonRequest("billing")("address_1") Is Nothing, "", JsonRequest("billing")("address_1").ToString()) Dim NumExt As String = "" Dim NumInt As String = "" Dim Colonia As String = "" - Dim Ciudad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString()) - Dim Localidad As String = If(JsonRequest("billing").First("city") Is Nothing, "", JsonRequest("billing").First("city").ToString()) - Dim CP As String = If(JsonRequest("billing").First("postcode") Is Nothing, "", JsonRequest("billing").First("postcode").ToString()) - Dim Telefono As String = If(JsonRequest("billing").First("phone") Is Nothing, "", JsonRequest("billing").First("phone").ToString()) - Dim Correo As String = If(JsonRequest("billing").First("email") Is Nothing, "", JsonRequest("billing").First("email").ToString()) - Dim Estado As String = If(JsonRequest("billing").First("state") Is Nothing, "", JsonRequest("billing").First("state").ToString()) + Dim Ciudad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) + Dim Localidad As String = If(JsonRequest("billing")("city") Is Nothing, "", JsonRequest("billing")("city").ToString()) + Dim CP As String = If(JsonRequest("billing")("postcode") Is Nothing, "", JsonRequest("billing")("postcode").ToString()) + Dim Telefono As String = If(JsonRequest("billing")("phone") Is Nothing, "", JsonRequest("billing")("phone").ToString()) + Dim Correo As String = If(JsonRequest("billing")("email") Is Nothing, "", JsonRequest("billing")("email").ToString()) + Dim Estado As String = If(JsonRequest("billing")("state") Is Nothing, "", JsonRequest("billing")("state").ToString()) If Not String.IsNullOrEmpty(Estado) Then CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero() If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA @@ -438,13 +439,58 @@ Public Class E119 : Implements IHttpHandler End If End If - ' shiping - 'shiping_lines/ method_id: free_shipping/local_pickup + If JsonRequest("shipping") IsNot Nothing AndAlso Not TieneError Then + Dim CveEstado As Integer = -1 + Dim Direccion As String = If(JsonRequest("shipping")("address_1") Is Nothing, "", JsonRequest("shipping")("address_1").ToString()) + Dim NumExt As String = "" + Dim NumInt As String = "" + Dim Colonia As String = "" + Dim Ciudad As String = If(JsonRequest("shipping")("city") Is Nothing, "", JsonRequest("shipping")("city").ToString()) + Dim Localidad As String = If(JsonRequest("shipping")("city") Is Nothing, "", JsonRequest("shipping")("city").ToString()) + Dim CP As String = If(JsonRequest("shipping")("postcode") Is Nothing, "", JsonRequest("shipping")("postcode").ToString()) + Dim Telefono As String = If(JsonRequest("shipping")("phone") Is Nothing, "", JsonRequest("shipping")("phone").ToString()) + Dim Correo As String = If(JsonRequest("shipping")("email") Is Nothing, "", JsonRequest("shipping")("email").ToString()) + Dim Estado As String = If(JsonRequest("shipping")("state") Is Nothing, "", JsonRequest("shipping")("state").ToString()) + If Not String.IsNullOrEmpty(Estado) Then + CveEstado = ClsPaginas.GlobalDTGralEstados("MEX").FiltroPrimeroValor("CveEstado", $"NombreEstado = '{Estado.Trim}'").ToEntero() + If CveEstado <= 0 Then 'SI NO ENCUENTRA EL ESTADO INGRESA EL DE SONORA + CveEstado = 26 + End If + Else + CveEstado = 26 + End If + + If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then + Dim dtt As DataTable = ObjClientes.DtResultados + If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then + dtt = dtt.FiltraParametros($"EnvioDireccion = '{Direccion}' and EnvioCP = '{CP}'") + If dtt.Rows.Count > 0 Then + CveDireccionEnvio = dtt.FiltroPrimeroValor("CveDireccionEnvio").ToEntero + End If + Else + CveDireccionEnvio = ObjClientes.DireccionEnvioAdd(CveCliente, Direccion, NumExt, NumInt, Colonia, Ciudad, Estado, CP, "", 100, 1) + End If + End If + + Else + MsgLog.AppendLine("1.5.9 sin datos cliente") + TieneError = True + Resp.Mensajes.Add("no existen datos del cliente") + End If MsgLog.AppendLine("1.6 inicio generar venta") ObjFactura = Modelos.Factura.CrearVentaNueva(Usuario, CveSubProyecto, CveCliente, CveMoneda, "Rem") MsgLog.AppendFormat("1.6.0 objeto creado {0}", If(ObjFactura IsNot Nothing, "si", "no")) + If JsonRequest("shiping_lines") IsNot Nothing Then + ' shiping + 'shiping_lines/ method_id: free_shipping/local_pickup + Dim Entrega As String = If(JsonRequest("shiping_lines")("method_id") Is Nothing, "", JsonRequest("shiping_lines")("method_id").ToString()) + ObjFactura.Alfa1 = Entrega + End If + + ObjFactura.CveDireccionEnvio = cvedireccionenvio + If JsonRequest("line_items") IsNot Nothing Then Dim ListaPS As JArray = JArray.Parse(JsonRequest("line_items").ToString()) Dim Consec As Integer = 1 @@ -471,6 +517,7 @@ Public Class E119 : Implements IHttpHandler Resp.Mensajes.Add("no existen productos definidos") End If + If ObjFactura IsNot Nothing AndAlso Not TieneError Then MsgLog.AppendLine("1.7 agregar la remision") Resp = ObjFactura.EmitirFactura(False, Transac:=ObjClientes.IniciaTransacSQL()) diff --git a/Empresas/186/Formatos/Entradas.rdlc b/Empresas/186/Formatos/Entradas.rdlc index 1f588275d..1f0b6b6be 100644 --- a/Empresas/186/Formatos/Entradas.rdlc +++ b/Empresas/186/Formatos/Entradas.rdlc @@ -437,7 +437,6 @@ 2pt - true @@ -791,12 +790,24 @@ CIUDAD DE MEXICO + + + + + + + + + + 0cm 0.13678cm 0cm 20.28859cm @@ -2299,6 +2312,7 @@ CIUDAD DE MEXICO + 0cm 0.13678cm 0cm 25.72414cm diff --git a/Empresas/72/Formatos/GestionCobranza2.rdlc b/Empresas/72/Formatos/GestionCobranza2.rdlc index c3669d193..b06e52e56 100644 --- a/Empresas/72/Formatos/GestionCobranza2.rdlc +++ b/Empresas/72/Formatos/GestionCobranza2.rdlc @@ -2,78 +2,102 @@ 0 - + System.Data.DataSet /* Local Connection */ - 74f8a171-24f1-4404-809e-ec2e098f1907 + 457ddefa-843b-4fae-8b02-70764606cb28 - + - DataSet3 + DsInventarios /* Local Query */ - - NombreCliente + + Codigo System.String - - SerieFolio + + PS System.String - - Fecha + + UnidadMedida System.String - - FechaCobranza + + PU + System.Decimal + + + Cantidad + System.Decimal + + + Total + System.Decimal + + + Descuento + System.Decimal + + + CodigoAF System.String - - CobranzaEstatus + + Almacen System.String - - CobranzaObservacion + + SerieLote System.String - - Horario + + Observaciones System.String - - Documentacion + + Lote System.String - - CobranzaEstatusTurno + + FechaCaducidad + System.Date + + + PUVenta + System.Decimal + + + IVAVenta + System.Decimal + + + SubTotalVenta + System.Decimal + + + Marca System.String - - Saldo + + CodigoAlterno System.String - - Telefono - System.String - - - Direccion - System.String - - - NIVEL + + PSAlterno System.String - DataSet3 - C:\Users\jesus\Documents\Visual Studio 2015\WebSites\WebSite2\App_Code\DataSet3.xsd - DataTable1 + DsInventarios + C:\inetpub\wwwVentas\App_Code\DsInventarios.xsd + DtMovimientos @@ -84,68 +108,42 @@ - - 0.08792cm - 0.06868cm - 0cm - 26.42467cm - - - - - + - 5.33044cm + 1.37635cm - 1.68858cm + 10.38681cm - 1.63298cm + 4.60507cm - 1.58391cm + 4.43146cm - 1.57085cm - - - 4.00057cm - - - 1.91793cm - - - 4.10921cm - - - 1.98437cm - - - 2.60584cm + 4.65792cm - 0.46771cm + 0.43377cm - - true + true - Cliente + Cant. @@ -154,24 +152,67 @@ - Textbox3 + Textbox1 + Black + + 1pt Black + + 1pt - + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox3 + - - + + + Black - + 1pt + + + Black + + 1pt + + #9cc3e5 2pt 2pt 2pt @@ -183,16 +224,16 @@ - true true - Factura + Código @@ -204,21 +245,15 @@ Textbox5 + - Black + - Black + - - - - - - + #9cc3e5 2pt 2pt 2pt @@ -229,17 +264,18 @@ - + true true - Saldo + P. Unitario @@ -248,212 +284,22 @@ - Textbox8 + Textbox7 + Black + + 1pt Black + + 1pt - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Estatus - - - - - - - Textbox21 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Turno - - - - - - - Textbox6 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Observación - - - - - - - Textbox19 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Teléfono - - - - - - - Textbox17 - - - - Black - - - Black - - - - - - - + #9cc3e5 2pt 2pt 2pt @@ -471,10 +317,11 @@ - Dirección + Importe @@ -486,115 +333,19 @@ Textbox15 + Black + + 1pt Black + + 1pt - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Horario - - - - - - - Textbox27 - - - - Black - - - Black - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Documentación - - - - - - - Textbox4 - - - - Black - - - Black - - - - - - - + #9cc3e5 2pt 2pt 2pt @@ -606,88 +357,123 @@ - 0.73229cm + 0.4095cm - + true true - = IIF(Fields!NombreCliente.Value = "", IIF(Fields!NIVEL.Value = "1", "Total Saldo",IIF(Fields!NIVEL.Value = "2" AND Fields!CobranzaEstatusTurno.Value = "Sin Turno", "Sin Turno", Fields!CobranzaEstatusTurno.Value) ),Fields!NombreCliente.Value) + =Fields!Cantidad.Value - - NombreCliente + Cantidad - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - =Fields!SerieFolio.Value + =Fields!PSAlterno.Value - - SerieFolio + PSAlterno - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + + true + true + true + + + + + =Fields!CodigoAlterno.Value + + + + + + + CodigoAlterno + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + true true - =Fields!Saldo.Value + =Fields!PUVenta.Value @@ -696,530 +482,49 @@ - Saldo + PUVenta - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - =Fields!CobranzaEstatus.Value + =Fields!SubTotalVenta.Value - CobranzaEstatus + SubTotalVenta - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CobranzaEstatusTurno.Value - - - - - - - CobranzaEstatusTurno - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!CobranzaObservacion.Value - - - - - - - CobranzaObservacion - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Telefono.Value - - - - - - - Telefono - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Direccion.Value - - - - - - - Direccion - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Horario.Value - - - - - - - Horario - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Documentacion.Value - - - - - - - Documentacion - - - =IIF(Fields!NombreCliente.Value = "","#67809F",IIF(Fields!SerieFolio.Value = "","Silver","Transparent")) - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - After - - - - - - - true - true - true - true - DataSet1 - 0.36336cm - 0.06868cm - 1.2cm - 26.42468cm - 1 - - - - - - - - - 3.69063cm - - - 2.5cm - - - 5.7966cm - - - 3.68307cm - - - 3.69882cm - - - 2.46535cm - - - 4.59021cm - - - - - 0.49417cm - - - - - true - true - - - - - Otras Actividades - - - - - - - Textbox16 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox22 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - Documentos - - - - - - - Textbox33 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - Textbox39 - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - Textbox42 - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1227,168 +532,38 @@ - 0.6cm + 0.17667cm - + true true - Cliente/Proveedor + - Textbox26 + Textbox32 + - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Actividad - - - - - - - Textbox28 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - a entregar - - - - - - - Textbox34 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1402,10 +577,9 @@ - a recibir + @@ -1417,32 +591,45 @@ Textbox37 + - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox39 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1456,249 +643,26 @@ - Hora + Textbox40 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - Dirección - - - - - - - Textbox43 - - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - - Black - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.62646cm - - - - - true - true - - - - - - - - - - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1714,11 +678,13 @@ - Textbox41 @@ -1726,49 +692,10 @@ - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -1776,11 +703,11 @@ - 0.61448cm + 0.25604cm - + true true @@ -1789,34 +716,71 @@ - - Textbox45 + Textbox8 - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + + true + true + + + + + CATALOGO + + + + =Fields!Codigo.Value + + + + + + + Codigo1 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + true true @@ -1825,32 +789,99 @@ - - Textbox46 + Textbox13 - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - 2 - + + + + true + true + + + + + + + + + + + + Textbox16 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox17 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.2825cm + @@ -1862,11 +893,14 @@ - Textbox48 @@ -1874,199 +908,53 @@ - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - + FABRICANTE - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - + =Fields!Marca.Value - - Textbox50 + Marca - - - 1pt - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - true - true - - - - - - - - - - - - - 1pt - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - - @@ -2078,11 +966,13 @@ - Textbox55 @@ -2090,20 +980,17 @@ - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true @@ -2112,32 +999,31 @@ - - Textbox56 + Textbox59 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true @@ -2146,59 +1032,24 @@ - - Textbox57 + Textbox60 - - - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -2206,11 +1057,11 @@ - 0.6cm + 0.2825cm - + true true @@ -2219,26 +1070,412 @@ - - Textbox18 + Textbox62 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + LOTE + + + + =Fields!Lote.Value + + + + + + + Lote + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox64 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox65 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox66 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.30896cm + + + + + true + true + + + + + + + + + + + + Textbox67 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + CADUCIDAD + + + + = Format(Fields!FechaCaducidad.Value, "dd/MM/yyyy") + + + + + + + FechaCaducidad1 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox69 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox70 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox71 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + + true + true + + + + + + + + + + + + Textbox19 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + FechaCaducidad + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -2254,11 +1491,13 @@ - Textbox23 @@ -2266,151 +1505,77 @@ - - - + Bottom 2pt 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - + Sub Total - - Textbox29 + Textbox42 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - + =Sum(Fields!SubTotalVenta.Value, "DsInventarios") - - Textbox32 + Textbox43 - - - + Bottom 2pt 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -2418,11 +1583,11 @@ - 0.6cm + 0.33542cm - + true true @@ -2431,33 +1596,32 @@ - - Textbox47 + Textbox44 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true @@ -2466,68 +1630,31 @@ - - Textbox54 + Textbox45 - - - + Bottom 2pt 2pt - 2pt - 2pt - - - 2 - - - - - - - true - true - - - - - - - - - - - - - - 2pt - 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true @@ -2536,66 +1663,103 @@ - - Textbox61 + Textbox46 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + true true - + I.V.A. - - Textbox62 + Textbox49 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") - + + true + true + + + + + =Sum(Fields!IVAVenta.Value, "DsInventarios") + + + + + + + Textbox50 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + true true @@ -2604,25 +1768,158 @@ - - Textbox63 + Textbox51 - - - + Bottom 2pt 2pt - 2pt - 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox52 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox53 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Importe Total + + + + + + + Textbox56 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + = Sum(Fields!SubTotalVenta.Value, "DsInventarios") + Sum(Fields!IVAVenta.Value, "DsInventarios") + + + + + + + Textbox57 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") @@ -2638,27 +1935,40 @@ - - - - - - - - - + + After + + + + + + + + + + + + + + Before + + + Before + + + Before + - DataSet1 - 1.67096cm - 0.06868cm - 4.13511cm - 26.42468cm - 2 + DsInventarios + 0.14111cm + 0.10068cm + 3.1562cm + 25.45761cm @@ -2666,53 +1976,57 @@ - 2.35091in + 1.46482in - + true true - =Parameters!NombreEmpresa.Value + SMS SMART MEDICAL SOLUTIONS - Textbox1 - 0.11854cm - 6.54848cm - 0.6cm - 12.7441cm + Textbox2 + 0.07163cm + 8.55215cm + 0.38833cm + 8.54466cm 1 - + true true - REPORTE DE GESTIÓN DE COBRANZA + SSM1908213A0 +NEBRASKA 157, Col. NAPOLES +BENITO JUAREZ - + - + + + + - + true true - Fecha Inicio: + =Microsoft.VisualBasic.Interaction.iif(Parameters!CveConcepto.Value = 8, "REMISIÓN", "ENTRADA DE TRASLADO") - - - - - - - - =Parameters!FechaInicio.Value - - - - - - - - - Fecha Fin - - - - : - - - - - - - - - =Parameters!FechaFin.Value - @@ -2846,11 +2116,11 @@ - Textbox13 - 0.15382cm - 22.79155cm - 2.18834cm - 3.53188cm + Textbox2 + 0.07163cm + 18.69141cm + 0.38833cm + 6.81397cm 3 - - true - true - - - - - Cobrador: - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2902,7 +2139,153 @@ - =IIF(Parameters!Cobrador.Value = "Todos", "",Parameters!Cobrador.Value) + Folio + + + + + + + Textbox12 + 0.88084cm + 21.17549cm + 0.44478cm + 4.32987cm + 4 + + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Folio.Value + + + + + + + Textbox12 + 1.32562cm + 21.17549cm + 0.44478cm + 4.32987cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + 1.7704cm + 21.1755cm + 0.44478cm + 4.32987cm + 6 + + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox12 + 2.21518cm + 21.17549cm + 0.44478cm + 4.32987cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Parameters!CveConcepto.Value = 8, "Carga Privada", " ") @@ -2911,12 +2294,74 @@ + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + + + + =Parameters!Documentacion.Value + + + + @@ -2935,22 +2380,383 @@ - 0.74082cm + 3.8269cm true true - - 0.11437cm - 0.10583cm - 0cm - 26.38752cm + + true + true + + + + + =Parameters!ResponsableCarga.Value + + + + + + + Textbox21 + 1.37766cm + 5.68986cm + 0.50243cm + 5.79375cm + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + 2pt + 2pt + 2pt + 2pt - - + + + true + true + + + + + =Parameters!ResponsableRecibio.Value + + + + + + + Textbox21 + 1.37766cm + 14.40467cm + 0.50243cm + 5.78664cm + 1 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 1.66375cm + 5.69781cm + 1.2cm + 5.78664cm + 2 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 1.6632cm + 14.41177cm + 1.2cm + 5.78664cm + 3 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Envió + + + + + + + Textbox22 + 0.07331cm + 5.69781cm + 0.6cm + 5.78664cm + 4 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 0.07331cm + 14.41177cm + 0.6cm + 5.78664cm + 5 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!NombreAccion.Value = "","",Parameters!NombreAccion.Value) + + + + Textbox21 + 0.45106cm + 10.04017cm + 0.63528cm + 5.78664cm + 6 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 1.6632cm + 10.04727cm + 1.2cm + 5.78664cm + 7 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 0.07331cm + 10.04727cm + 0.6cm + 5.78664cm + 8 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + true true @@ -2959,51 +2765,32 @@ Usuario: + + + + - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - =Parameters!UsuarioImprimio.Value @@ -3014,60 +2801,34 @@ 2pt - + true true - Fecha Impresión: + Fecha Impresión: - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - =Parameters!FechaImpresion.Value @@ -3078,7 +2839,43 @@ 2pt - + + 0cm + 0.13678cm + 0cm + 20.28859cm + 11 + + + + + + 0cm + 0.13678cm + 0cm + 25.72414cm + 12 + + + + + + 3.26597cm + 0.10068cm + 0cm + 25.76024cm + 13 + + + + + true true @@ -3087,7 +2884,6 @@ ="Página " & Globals.PageNumber & " de " & Globals.TotalPages @@ -3097,12 +2893,12 @@ - Textbox3 - 0.22726cm - 22.91855cm - 0.36335cm - 3.40488cm - 5 + Textbox10 + 3.40709cm + 23.00537cm + 0.41981cm + 2.55292cm + 14 @@ -3122,8 +2918,8 @@ 21.59cm 27.94cm - 0.5cm - 0.5cm + 1cm + 1cm 0.5cm 0.5cm 0.13cm @@ -3132,49 +2928,85 @@ - + String true true ReportParameter1 - + String true true ReportParameter1 - + + DateTime + true + true + ReportParameter1 + + String true true ReportParameter1 - + String true true ReportParameter1 - + String true true ReportParameter1 - + String true true ReportParameter1 - + + Integer + 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 @@ -3192,13 +3024,71 @@ 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 + + + image/png + iVBORw0KGgoAAAANSUhEUgAAAS4AAAC3CAYAAACsXrN8AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAACxIAAAsSAdLdfvwAAB0CSURBVHhe7Z3djyXHWcaHG4S4sYU0s0qi4AjHIEXIu5sYLJDWWisXsGtHtjeeGaMIsUKQSNx4d7O7xt4Zz1o2/oDYWWMbGzlCi1AswwUziYlswOvdoAiZD6EVDmCHC+8fkItxUOByqae63jPVdd7qrj5d/XFmnp/0aqarq6urq6ueft/qOucsEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCJlH7rlh48bVxbXjK4trW6tLa1dWFtcvrO47d9jtJoSQcbG8uHHACNW11aX169O2dtFlI4SQcWA9raX17WnB8mxx/bzLTggh/XH0wc0Dd3118zDs6KnN40dObp6H3ferz7+lilVgd3/lr56WY3w7enLzgpZ+5NTmvXI+VwVCCJlmIk4nN09UCcmvPbj5KXfIAuazNKGasobzXb5Q+vVA3cI6EEL2CBj4oSiION3z4OaNLlstqcK1srR+wh3SCtQNdfS9PtSbQkbILkQGvHhTGPjYdrtnpniLqItVyTp8wwjvTIQMf7HtdhFC5hHxqiTEauJNpYAlEKpQlW3bZe8ceF7wwETE6IkRMidgsIoHksOrqsMI09VAqMpmxM1l7ZWwHYo3oDuhLdaauayEkKGwE9rGs+rb0/jCFy/eunLT4++XxAq2b/3HQ4lWCITr/p9/crqOXKpByDCIYCFEyh0K1oHzQSjx1y5EXVo/ATGAYN31u68/3Hd9qpgSLWtrV9xuQkgfTEKhAQRLwLljk+FIx363OTja6v7lTz522e0mhHSNFYyeQ8KQFGGCJzgWr2v5lidPh8J1751/ +siYeo8tGCGmLm1C+iJAGSw+O3f7sUTuPFfFy+kK8PbcZZSxel9T3i59+8u77f/GZ7658fONphLaybwxtSsiuwXgF5Td2+x7932N3vniT2z0I8E6aeClDe10QJF9k8ZbR/VtCvFh6X4S0AB5BSbTEBn5Th8HdJEQd0uvSzh0TLiCeWZPrI4R4xITLhDqPuiy9Y72SGUKqIbyumGBWCRcQj5LiRcgMYAAtf+L8h75orSytfXTXb7/+pcmiyh7FQLwRt9mIvr2uqvPVCZeAa51FpAnZs0CQMPCwuNOfnJcJZQDhspPKPXgH4oW0Ecq+vC60S5VIpgoXQDkoz20SQmKIaKWKkXhC4oW55KzkEMc+vK46obFi37CNZjmGkD1HG5HAAIOANRG+OlBWrpCpS68rpZ6zilDONiBk15FrgKAMCKANJRuUd3n/Q4dhbjO7l5S7PCG13dp4TxQvQhS6GNQSdooXFvN2Lh08c/6dA2e23zl49rrYm7c9/DSEz2XJRm6vq4mgNJnf0sgRMhOya5B5KrfZCRjc1gMz5/EH+qWDZy/4guXb3/zyI3/msmUjp0A3ES3QVrgguGi/rsJdQuaKLud+QiCS4oV99Tf+9AFNsHwzoWN2DyPH9YYCnEJb4QJ9PGQIGT1NvYacvPr5p57WxMq3tz97Nnu42MbrEq9nlpAth3CBnF4jIXPH0E9viJImVr5h/stlz8osXhfyQzBmES2QS7jArOJJyNwzdOe/vP/0AU2sfLu8/0wnnkVTr6WtaOF4iKXbbE3u8giZC8YSbrxz8MxVTbCsHTh7zWXrhFSvq61ogTZLIWIwZCR7jhwT1DnA5LsmXm9+7uEf/sUdjx1y2TohZeCjjXJ4pl0IF2DISPYMY3pSY9BBRP/88OOPXjp45iIMc1+nH3j11j4GZZWAi2jlEPiurgV1Y8hI9gRj8bYgoFXCgPS2IVodr37+qZPfue2RD4vQ9Mw2hPPy/gdvxDlziRbIOTEfgjZC +W7pNQnYfMiDd5iCIIKV4fciL+nYxMC/vP308DFFhf/+53//P3/rKN7+US7RAl8IFui6fkEEZ+ukswtm0DqlCl0oxtzYtWmJ/e9vDL7usWehaWLqaQyNkFAz5ZK4LDesIj/+vlxc+9eHXF2YqK+ZtiV06eDbrbx720e70usiuBAM/p9eSioR7Oc4tHtt/vPCTr/3gpYXrsA9eWmg8YGsXv2ZeitGHqNDrIrsSDPguJ7o1RGhynvft5245JKIl5nYlU7f49dLBM1sua2v6fGDQ6yK7jr47ddvQMMYHLy4caCtcENI3bn/k+5powfzvBWtLn54QBBLt7jYJmW/E83GbnZIzNNTAwHz72U//s4iWEbILblcS0haPH3vxJsxllUTrwNmPnj/ytW/kFNs+hQv15rousmvo60ncRWgo2JDLeI24FgxQeF6YoHe7kxAv0G1aEDbCwxIvC3WXc9gMLel73VxX7U9I7/QRJooo5B6k8FZEsFzSTNhyEssQAXabreg7RM9Zd0IGpcvBA6HCQGkrLCEiWDnCLNStaTnWw8twTX0LF+jhnPDocA4sG8Ecoxjexl40ltLWiABwfGhNQV20cppEGOGxTaYf8JAIj9cM7YI2q6qXdlxT2x0PLQiLNu/x3y8sHP7gpYUtzBHNuh5Knu45Q5OcggUgPrOGyW2OFQYRrgz1rgDX44tVzDCIqvoF7q92XNOHBfq2Vk5q/0E7hcduG0sltT18g8Br9dPyNrXe+1snQABCEcDckP9WzogXOlkj7ODIGBrmFizxBFsLT0sRGEK4Yg+rDMBr0AZLzCAAsbaLCRfO0YSrxrRyUvsRPBTt+NSH8SzCJRZ6R1qeprY7hEsbePC2fOGCuV1RjLgdx2LPf7jw8btzCALAAEP9cgoWkHJzeYJtvMohhGtlae3elU9sbK8urV/Hr5Cv7tvI0Q4xz6bOIF7awy0mXE28HVyXVgYstT/FxDg15GojXDDfw9T2N7VdIlzKwIHH +ZYRoW0SrzuOCYPki981n7jjqds2ECAu8gtwhTRfhq3hv+OuSktC83a5Z3XfuMAQrMHglbcB1Q1C0gZJimhcVEy5YqmhUiWlqu8c8ttR5rrbC5Qu7tr+p7V7hAvC6/uXCz3z70nM3v1E3xwVh84Vrlo/ZgC4FC0CsUH5TgUlhlrIHEa7F9fOKcF1fXtxo095VAoGHHvoDBjrmbrQ8sLDdqoQr9ZMLMdGBpbQ76qQdC0sV+5hwId23qrqKUIfHiGnHSLuH1mt/64y6UCUllAk9LiNkjQZB14IFUO4sXlETxJtzm7Xgmru63hjLNz/xiiZcLcNFDBJt8IRtgbaPDdAwb5VwweruY1WYCEsZwHV1SAHjJ/VYtIGWt06otWNqx+1ck0O4wA9eWDgBAXv/Jf2tD9LNfvuWUhaGQkQw0LsULICyIRJus1OanCu1bdsi3iDO94Xli19e3bf+o7JwrTV++RKgDZzYYEPbaPnDtqgTjboHBDw87TixFOFCnbRjxdqUEUMT9rp5vTA/rJe+NRi1wpXBKzBidbzskf3Ej37zzEu/B8HKOdekgVCsL9ESUtusS+HCQ8FeuzkHHg5+fRAWYlJ++ZPnr97/C09dvOeGjTZeaMyzqWpzLX/YFnXCVeeFVIWlsBTRiXmSYin3D3m0Y2PEwu4qtPyd9a1RUDd4cngr4RwYbOuPDj7gdncG6t33HJKQIl5dCBfOiQeCtZprbxraRogJTNW5tfxhW8TK9S0muGh3Lb9vKf2i7oVDylxbU+Hqqj13B5On7s1PXDOhQuVTt+0A04QLk/9udyeEXsYQoA5VHmUu4fJDQfxtMo+XoQ5dDbRYub7FRLcuTITV9b8U8UtZmoHr0o6N0VV7zj8QqdWldbuOx7PoW5K2nRvzW4Fwpb6RaYzMm3UdgqYgdYkJSZt2rQoFm5BBuGIDvG14niJcsX5UFybC6oRLC9m0cuvancKVi9XFteOBaBW275zaODmEwH2E6Dwm8Wf9 +CFEdGMzwOMYgWoJ4Q6F4IR3t6jaTgVilhoIpoJyYsDZAGzhNPs+nERvAoYX3OsVTgtW1nbbwVPPk6u4hhSsXTYXLDpYMg6RLRAjGJFqCL1L4Pnt8z9d3fumRq9++/dz3sG0zVSDHwzvCfcggNBMy3duYh9OmXByrlRkaPCOflDARVle38JoQFmp1qvsIUlPh4uR8DKzZMUIVhorbXc5zdQkGdtO5nb5BKDf5jcbA8HuNLtsE8R4lFOxKkDMJV+xjMTDsmyWMTRWuMFysm1AXq7pm9KMwvywZCdPrpj2aChfKC/NCRKsI88N2n3ABTM4bsboK0bKT9DUrp8cqXBAEDOwxixYw4nReEy0x8byskLhQsI+XC2g3nMttzkpKeIYBiWtMvU8x4dIGtoi6tkYsJmRVwqWVI/1fO3/VNTURrpi3WOfVacfsTuFqSqa5kKxgYMMrcZujBr8MpAmW2LduP/d+F6FgCpkeSlVel28QEuSt8yBjwqWFUlJ/rQ6xelUJlyY20s+wBCLc17QsGNLF4M1VvVCoKh9ox6BccuTUX99tPYEBBpaGDaPmRLSAJla+vXXbQ++6rL2TSbjQJ7RBXWVV540JFwQvTJNQSvOuNO8JViUG2sJT8X5R53Bf1XVo+ZtYyqcatONy3NP5BgJhwrGPjp7aum7t5NZ2H2FMDFufAc8/C+8cOLOtCZZY7h+ZbULmaQB4RKnzTLDYuWPCBbRwTRMICGmsnCrh0vILWnlV966NcOE6U5wE7VgKlxUqES1nR05u1U0YtgbLJrCMwl8+gfmseRMtgAl4TbDE8CO0LmvvdDB/ifuF66kKf3zTPOcq4Up9c4g5tabCpc3X+cKEawv3Q6hjzCpcOGeKaAHt+L0tXAgNQ9ESy/A2Kgo+32hs8p1g7/3xT73c5du1rrm8/8Eb417XmavY77L2TgfC5QNRqgshtYdglXBp4qIZ2rSpcGlzaOGaNE2QYw/TWYSrSgg1tDIoXJpowY6c +2noFnT5mONa3VNHRvoEV9t3nfva0yzKX4Lca//LQ+e8Z7+p/IFh/99mH/u+1Ox57Y0jRArhX7t8uwb2vErCwb1QJF6jz5nAu0FS4tMn8cK2ddh2x9Xgx4cL5YbE5uCbzt9rxe1u4gBGoq4pw1c7JhMIFjykUt9DwAuDNZz/zuiZc//j1j11DGShr7MsfQmQRaSje9s0orttck0vqHZzf/dsHsbd84UCNCY5QFy6KkMTKibV3ijeliRGuSyMmXD7anF2sPI3wWBiFC4MLQuWLVlvhwPG2zJObJTcc6ZeevfmiJlz4Pi8MfCuERuAmgndquG+BSKFov+q1ZnJNQ8zf9SxcEO6UgVYnXHXhorR1E+HCMbG8vmnhJMRHI0W4NBFuEi6Gx8IoXF2AyX0RwlB0YqEi5r1clhIY7ChjImQjEjPrUSUu24Cw2XobAetzLq9n4QIpAw33TsvnEwsXJUwEsXK0vhEL21JNezClCFdMhFPDRe1YClcX2CUNRrRMGPrDu05sHnLJE/zJefzFB7TdriQ0McN2nx4NrjFVtHwKb3TzuBZadsEcC1csXPQfcE2EKyYyqdakzBBNhFPDxfA4WN/3dO+Agfnrp791K/66pE6xQgYxESFzC2pzi8NEeFqKJOqFclDnqjCzLS2FC/cO852hVZEy0FKEK+ap+G3VRLhQby1vqmntmCpcbcLF8DgYhatrmoRTOYEYWC8M4uDEDP8jrUoo7A/mvrhw0XiCVzDv5n8poohNTjG03iPm9Dpqo5bClTowfbT8YR1ShAuEnoofJoImwqXla2KaYKe2TyxMTbnn2nEUrj7AoOwzjIsBwYFwxSb/sRjWiNW1cP4N4oX6Q7S68o6swENcM7aTCK3bnIXYwKyqo5Z/VuEKPZXwWlKFK+a9NTHNQ0oVLoDjw3wp4WJ4DIzC1Re5PZVcWI/HCBdE45U/uGcrFC3YuxcW/6kvr9EKaaY3kFaknSjPCIRCGzilt8UeqUISyxcS +Ck740Eg9n/amEN5cDPTTMD8svCdNhEtbKpISLobHwChcfWFDNzMg3eYosd/iqgjXv7/w0//qsvQC2koErI3YZxCumKeCQR+KCLa1NUuw8BpShQsgr1hIrJwwryYaYdgZonlIocfXRLhmDRe1YyhcfWLDoZ48l1moWKoR8zA6BQIGT3XWEBXClyG0jS1LwMBGu2AQQQRi+TTPJiY4TUkVLq1udYNfm8wPQ7smwoX7oOWtCxe1YyhcfQPhyjmPkxtMzAfCdbWr79FPxc7NYV7OtF0TIWo5MS/EwsVU07zsPoUrJhihuIVoohQuRG0iXED7OFFduBjmh1G4hmCs812C8bAOYIX/a88cWnNJo8DOxxkBSw3/MgkXmHUpgRZSgj6FKxai1T0AUo5rKlyxh0AYgvpo+SlcQyAhUIYwpjMyzA91BuqV8gYyo3DhPsXmr2IGTyJWvz6FSxMXLXwNiU3Q15UNi4F21PJXzbdp+SlcQ5HhVX2njFm4hKo3kB3UH4NOW0ipGUSuSlRjgtOUWDn+dWveYt3EvKBN0Pui0VS4QOwBEHuIa3kpXEMy5vmueRAuAK/VtqMLv1cW1y/gV53wQynLH9t4t+rXnWYEnggELBQEDEhMNKe8fME9x/GhNSVWjt+ntP2pD0y5Tt/8FzUoJ9wPqyJ2TGwcaHlH+8DfM4x1vmtehEtAG973K89/A4JVtjV0dEJITsY63zVvwgUgUtPCtQ5viBCSmzHOd82jcOE3NClchPQIvv7GiNf37dfhnNy6hnkbt2sQMPc2dB2asrK0dm8oWpjzcrtnpk7Etf14GEm6ZuJh46+2PzZ9YJeEmP0xDx33DG9T6+6d1C92HqnXWOdgyUgwHe2ifPmgtZNbdQvzsoAObs6Hb4A1Vvb6Mi4n6I3lzzz15eWfe+LfbNi4uJ6l/nJPtEGOgS37XZLFLtdw6ZpBFJDPioOy31rwDbrApNtv65XjBdy70rHG7BdaRoTH3Pctm8f0O5dU +wqsX5whJHHQQ11F2Op7pVPL0REcKLfa0TAVlhOfE8gK3ey6FCwO4bbuESNtogxxpst8lWTzhumLvYWBSR7kH1ss26RAr/yfzkGYLdKA8pOM4lyQPH1dH+xsKk76EbZdtArwp2R97QHp9g8JF4thOK50p6FASHoSGQSoDIdkQSjghNIPlrdI5C5t0VOR3/84FEIPQa8zBpG3MPfFDtJIAGHPJFrQd0urasLiP5Xa35ULA7PHl3/hEPqTjOJdkhKv4wRdfWH1PEPfbJVvs2je3T9sPtHoRMgU6KzoeBoftiB3NLfgiuNuEqwtvC/jt43ukoQC4ZEsb4QKFeDnPy+sLyIc0X7jc8VOhrNzrMH0idFJHxZOM1YuQwfE658TmNVTEINU8hxz47eN7QPjf3+eSLb4ooJ1987027x5MCQTSsA95XFKlcLnNSgqvdOc6RBz9OoGqehEyOOigZnBhotYMiGI9mfMkrqBzF/vG+9Ek0FWIKLgBbAe7/evC7eL/nd/ldNktIlya+aJTJRBIC/NH0my5brOSiZfoJv4hrMXx5farqhcho8J6LYEXIQYBc9lGhYhW6DHkZKcdJm/urhSCXkqLhIq2PSE2O+aFfn0L1+T+ujrsCHD5/lK4yNzgew+qKa/nhwSihYHXpWgBuX6cZzLvZNujeIEi2zazY0e4ZpvjAnI/cgkXxEryGrMi6t9zvx0pXGQukCdvnXUtEqkUA6ufj0rJteN/00476+2ckPv7hbbCJXNRYbnIh7SScDkxxT10SRZXV3iHNl3eVMas9OKBwkXGAgaD7ZBeqCLIQKszf8AMAc6PuvZZD7l2/O8LCv4P9wuzCheE2B6749mVhAPbSPevfyKm5hiIlA35PYGVekqYCIHC8WKTuhrvyxZoCOtFyCD4czFFJy2/ApfOW2f+gOmLYhAVa9aGOL9cu9ss6uOJf7gf1LWnXEdxbXoeCEnoUZr0KeGyYhcL88UrlDDRhbc+OF7yi8hV1Qvm +n5+QzvCe4J7tvEkKhS1mXYZm4hFi0PuGNBlQQyDX7jan0Pa3ES7zUNmCV6S1tdk/JVwAeXGMCFjxd+f+igcWPrAEnNOW68JFrV6+hecnJDuxTojB5bK4EEV/oygW6/RtsOc14U0x0Itf2na7CCF7nTqPC9hwQs1XPMFze1sQLDzhtTk3QgiZCgURGrhdJRCSwbMSAYMXBm8op2jZkHAOBQveoPVeE+ptQ7cK71HC4roQuCqf1MdtTrZjJvcw5dzY7/6dQq5Na4eqfQDp2F9VPiElbIe18yCbv+OSegd1gKeVUwi7BvWd8kTNtiboGJiliXLkMw+CMJ/MgfnhukZVPjmH25xsx0zEIlYm6mjq6hbWFobtUOCsMGG/ubbovvBtaNguztA2VQJKiGXIpx06KDy/eRItW2dPtMLB5w86DM5SXm/OEAPUZbNUCZJPVT4p223KxH1hrh6uvkWa84K0MgvR2rm2ct3L0wSeOOG6klbcl8rD/6U27eYzpmQXUTz5+u8odlAHc2rzgA1pMcAC78K+SHBv4AQM4mIg7gx0tLU2QKsEyacqn5TrNkuYdPXtI9DK9K9TBM72FSc4/rX6wmXL8a5LE67i3hd5/frg/7rrJ2RC351lKLHMgQxoiJJLiqINTmCOLZYieO2uiYdGVT45n9ssYdIbCZfkD8/jzY1OhMgTJ2sQNxFqb990fiOKLomQ5miDYFbQYdExbed0T2oB2xj48ypaoAhvi0FnB3xwjT5uwE4JiSYUWppGVb7Y+YBJn0m4wvwT0dGFy36DCP6XsrT8YJLPiLhWJ0Jq0QbBLECQIEzoiEWH3flGVqzYxn5/bmReMddRmrB2VvqWByD73OYE2x4m3W93LU2jKl/sfMCk9yJc3v/2Gye0/EDO6RtC6nl+qJGe0QZBEyBGNoSo8D52Gxhg/uS1tSD0kXS3OUETCi1Noypf7HzApPciXNg2bSOfi/SFrCRcAPvUh8Ae6kekBXWDpQp5M+hP +VO81MNBExHyPQQai25ygCYWWpiH5tK8Uip0PmPTehMs+yDCpjzI9EbOZI6D/TPIq10bIFHWDJYZ4Wrsh/GuLNmnvDd5S+IM8Nt1rd008NHbylX80A+dAOswllTDpMwlXWB/Ji/0uSRcz1x6eVQoX0MohJMosHtNeFS37csGIhi9GRVtMD/SJQBlvTNrXhtQymL2QSBMPDRwjxyOvPXfJ45v++TFg9jUSronwGPGVY6ywODHGfpvREBMcbLv00j57DSjXlOH3H9NeSd4ZIRZ0PK1DV7FXw0MZuDHz21EGqJYPg9Rls4h4xKxUblkQovl8zL5GwgVBmZrDc4Z0X3BQpttXFi5PZP19+N9LV2z+1veRAUDHi3V4DRuWmE7pNvcUxYA2nkEgSKEXJhTekPG8XH6bzxMIoYlwWS8r+PbS2PkFk6eRcAG5VpRtz2OuAdu+aIGYcAGvnqV9ONekXDGUr7QNISpNhMsNxOgA2UvA40S7pXqeXXioTc7fhq7OARHs6xrILiTlSWef9HtwXosQMlJShGuvzmsRQkZKnXAxRCSEjI4q4bLzEN7rb0IIGQVVwgVPa6++RSSEjJiYcDFEJISMlphwhaubCSFkNGhrubQ0QggZDaFIcUKeEDJ6QuHihDwhZPRgYal8uNX/nxBCRo1M0HOFPCFkboBwcfkDIWSuOHbgD9+979ALr3H5AyFkLlhdWruyurR+fXXf+o9X920wTCSEjJ+VpbV7rXAtrb+3vLjBt4mEkPGDpRDHDnztabdJCCHjp+pD1oQQMjrCxaeEEDJ66G0RQuYKeluEkLmD3hYhZK7gKnlCyFzg1mtdxZqt+2954r1jd754k9tFCCHjAyvijWBtu4Wmztamfn2YEEJGw8rS+omyaBXmdhNCyPjwPtZD4SKEzA9GqOz8ltjK4voFt4sQQsbJPTds3GhDxsX186uLa/yWU0IIIYQQQgghhBBCCCGEEEIIIYQQQgghhBBCCCGEEEIIIYQQ +QgghhBBCyJ5lYeH/Aev8eE4+mU6OAAAAAElFTkSuQmCC + + Cm - 2ec96151-d7c1-4609-bfdd-795b02d33b5a + 859971a9-970d-45f5-be4a-0f05a1eb9a33 \ No newline at end of file diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 1eacb145e..f8f696d38 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -3509,7 +3509,7 @@ Partial Class General_SaldosIniciales Dim CveSATRiesgoPuesto As Integer = 1 Dim CveJornada As Integer = 1 - If Sexo.ToUpper.Contains("Masculino") Then CveGenero = 1 Else CveGenero = 2 + If Sexo.ToUpper.Contiene("Masculino", "1: Masculino") Then CveGenero = 1 Else CveGenero = 2 If AltaIMSS.ToUpper.Contiene("SI", "1") Then AltaIMSS = "True" Else AltaIMSS = "False" myarraystr = EstadoCivil.Split(":"c) If (myarraystr.Length > 1) Then diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb index 1eed90a5b..2c3ffb9ac 100644 --- a/Inicio.aspx.vb +++ b/Inicio.aspx.vb @@ -1,16 +1,10 @@ Imports System.Data -Imports System.Globalization Imports Extensiones Imports System.Web.Services Imports Newtonsoft.Json -Imports System.Drawing Imports ADSNetLibrary.SIGAPI.Models.CRM.Request Imports ADSNetLibrary.SIGAPI.Services.CRM -Imports Telerik.Web.UI.Scheduler.Views -Imports Microsoft.EntityFrameworkCore.Storage.ValueConversion.Internal - -'Imports System.Reflection -'Imports Telerik.Web.UI +Imports ADSNetLibrary.SIGAPI.Models.CRM.Response Partial Class Inicio Inherits ClsPaginas @@ -31,7 +25,7 @@ Partial Class Inicio theDataSet.ReadXml(theReader) If theDataSet.Tables(0).Rows(0)("Uuid").ToString() <> "null" Then - Dim sb = New StringBuilder() + Dim sb As New StringBuilder() For Each item As DataRow In theDataSet.Tables(0).Rows sb.AppendFormat("{0};", item("Uuid").ToString()) @@ -161,7 +155,7 @@ Partial Class Inicio If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then Dim ObjPolizas As New ClsContPAQi(UsuarioActual.Empresa) If ObjPolizas.GetPolizasCuadre() And ObjPolizas.DtResultados.Rows.Count > 0 Then - Dim ObjNotificacion = ItemNotificaciones(String.Format("Polizas de cuadre {0}", ObjPolizas.DtResultados.Rows.Count), Ico:="icon-calculator", Tipo:="warning", Link:="/Contabilidad/RepPolizasCuadre.aspx") + Dim ObjNotificacion As String = ItemNotificaciones(String.Format("Polizas de cuadre {0}", ObjPolizas.DtResultados.Rows.Count), Ico:="icon-calculator", Tipo:="warning", Link:="/Contabilidad/RepPolizasCuadre.aspx") NotificacionesPendientes(ObjNotificacion) End If ObjPolizas.Dispose() @@ -172,7 +166,7 @@ Partial Class Inicio Dim OC As New ClsOC If OC.GetOrdenesPendientes("-1", 0, UsuarioActual.CveEmpresa, -1, -1, -1, UsuarioActual.CveUsuario, -1) Then If (OC.DtResultados.Rows.Count > 0) Then - Dim ObjNotificacion = ItemNotificaciones(String.Format("Orden de Compra por atender {0}", OC.DtResultados.Rows.Count), Ico:="fa fa-tags", Tipo:="warning", Link:="/OC/RepOC.aspx") + Dim ObjNotificacion As String = ItemNotificaciones(String.Format("Orden de Compra por atender {0}", OC.DtResultados.Rows.Count), Ico:="fa fa-tags", Tipo:="warning", Link:="/OC/RepOC.aspx") NotificacionesPendientes(ObjNotificacion) End If End If @@ -263,7 +257,7 @@ Partial Class Inicio If ObjProveedor.GetEvaluacionesProveedores(-1, -1, UsuarioActual.CveEmpresa) Then If ObjProveedor.DtResultados.COUNT("CveEvaluacionProveedor", $"Evaluado = 0 AND CveUsuario={UsuarioActual.CveUsuario}") > 0 Then Dim Mensaje As String = "Hay evaluaciones pendientes de proveedores. ¿Desea realizarlas ahora?" - Dim MsgAccionAceptar = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");" + Dim MsgAccionAceptar As String = "window.open(""/Compras/EvaluacionProveedor.aspx?CveProveedor=-1"");" Alert(Mensaje, TipoMensaje.MsgConfirmacion, JSBtnAceptar:=MsgAccionAceptar, TextoConfirmacion:="    Si    ", TextoCancelacion:="    No    ") End If @@ -350,7 +344,7 @@ Partial Class Inicio Private Sub MuestraPsProximosAVencer() - Dim ObjInventarios = New ClsInventarios + Dim ObjInventarios As New ClsInventarios If ObjInventarios.GetProductosCaducidad(-1, MinFecha, NowADS().AddDays(30), -1, -1, -1, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Opcion:=2, CveCompuesto:=-1) Then If ObjInventarios.DtResultados.Rows.Count > 0 Then @@ -359,11 +353,9 @@ Partial Class Inicio Else GvModalPSPorCaducar.DataSource = Nothing End If - Else GvModalPSPorCaducar.DataSource = Nothing End If - ObjInventarios.Dispose() GvModalPSPorCaducar.DataBind() @@ -772,10 +764,8 @@ Partial Class Inicio Private Sub CargaDdlAcercamientoCRM() DdlAcercamientoCRM.Items.Clear() - Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - - - Dim aceramientoGet = New RequestAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM:=DdlEmpresaCRM.SelectedValue.ToEntero) + Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) + Dim aceramientoGet As New RequestAcercamiento(UsuarioActual.CveEmpresa, CveEmpresaCRM:=DdlEmpresaCRM.SelectedValue.ToEntero) Dim objAcercamiento = cRMService.GetAceracamientoCRM(aceramientoGet) If objAcercamiento.IsSuccess Then DdlAcercamientoCRM.DataSource = objAcercamiento.Result @@ -788,8 +778,8 @@ Partial Class Inicio Private Sub CargaDdlContactoCRM() DdlContactoCRM.Items.Clear() - Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - Dim contactoEmpresaCRM = New RequestContactoEmpresaCRM(DdlEmpresaCRM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) + Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) + Dim contactoEmpresaCRM As New RequestContactoEmpresaCRM(DdlEmpresaCRM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Dim objServicio = cRMService.GetContactosEmpresasCRM(contactoEmpresaCRM) If objServicio.IsSuccess Then @@ -818,13 +808,13 @@ Partial Class Inicio Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Dim ObjEventos As New ClsOIEventos - Dim FechaInicio = TxtFechaInicioAgenda.Text.ToDateTime() - Dim FechaFin = TxtFechaFinAgenda.Text.ToDateTime() - Dim validacionesAgendaOpcionesOK = True + Dim FechaInicio As DateTime = TxtFechaInicioAgenda.Text.ToDateTime() + Dim FechaFin As DateTime = TxtFechaFinAgenda.Text.ToDateTime() + Dim validacionesAgendaOpcionesOK As Boolean = True RegistraScript("GetView();") - Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1" + Dim RecurrenciaTipo As Integer = 0, Frecuencia As Integer = -1, DiasSemana As String = "-1", Dias As Integer = -1, Mes As Integer = -1, RecurrenciaFin As String = "-1" If CheckRecurrencia.Checked Then RecurrenciaTipo = RBLRecurrencia.SelectedValue.ToEntero Frecuencia = TxtFrecuencia.Text.ToEntero @@ -832,7 +822,7 @@ Partial Class Inicio 'OBTENEMOS LOS DIAS SELECCIONADOS EN LA OPCION DE RECURRENCIA POR SEMANA Select Case RecurrenciaTipo Case 3 - Dim StringDias = "" + Dim StringDias As String = "" For Each item As ListItem In CheckDiasSemana.Items If item.Selected Then If StringDias.Length > 0 Then @@ -1022,8 +1012,8 @@ Partial Class Inicio Public Shared Function ActualizaEvento(ClsEvent As CalendarEvent) As String Dim ObjEventos As New ClsOIEventos - Dim FechaInicio = DateTimeOffset.Parse(ClsEvent.start).DateTime - Dim FechaFin = DateTimeOffset.Parse(ClsEvent.end).DateTime + Dim FechaInicio As DateTime = DateTimeOffset.Parse(ClsEvent.start).DateTime + Dim FechaFin As DateTime = DateTimeOffset.Parse(ClsEvent.end).DateTime If ObjEventos.UpdateEvento("-1", "-1", -1, -1, -1, FechaInicio, FechaFin, -1, "-1", ClsEvent.id) Then End If @@ -1162,7 +1152,7 @@ Partial Class Inicio If i = index Then serie.name = row(i).ToString() Else - Dim actual = row(i).ToString().ToDouble + Dim actual As Double = row(i).ToString().ToDouble serie.data.Add(actual) anterior = actual End If @@ -1450,7 +1440,7 @@ Partial Class Inicio If UsuarioActual.CveEmpresa = 140 Then DVDescargasBDH.Visible = True - Dim TmpDT = New DataTable() + Dim TmpDT As New DataTable() Dim ObjDoc As New ClsEdocumentacion If ObjDoc.DocumentacionGet(-1, -1, 1, UsuarioActual.Empresa.CveEmpresa, Modulo:=8) Then @@ -1541,8 +1531,8 @@ Partial Class Inicio Private Sub CargaDdlEmpresaCRM() - Dim cRMService = New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) - Dim parametros = New RequestEmpresasCRM(UsuarioActual.CveEmpresa, -1, CveMedioCaptacion:=-1) + Dim cRMService As New CRMService(System.Configuration.ConfigurationManager.ConnectionStrings("Conexion").ConnectionString) + Dim parametros As New RequestEmpresasCRM(UsuarioActual.CveEmpresa, -1, CveMedioCaptacion:=-1) Dim objServicio = cRMService.GetEmpresasCRM(parametros) If objServicio.IsSuccess Then @@ -1554,9 +1544,6 @@ Partial Class Inicio If objServicio.Result.Count > 0 Then DdlEmpresaCRM_SelectedIndexChanged(Nothing, Nothing) End If - - - End If End Sub diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 7b0c3b044..7cd33263d 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -421,6 +421,14 @@ +
+ +
+ +
+
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 9f9985580..b1054773a 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -840,6 +840,12 @@ Partial Class Inventarios_EntradasSalidas LblFolioOrdenCorte.Text = DtMov.Rows(0)("FolioOrdendeCorte").ToString End If + If DtMov.Rows(0)("CveOS").ToString.ToEntero() > 0 Then + divOS.Visible = True + HplOS.Text = DtMov.Rows(0)("OSFolio").ToString + HplOS.NavigateUrl = $"/OS/OrdenesServicios.aspx?CveOS={DtMov.Rows(0)("CveOS")}" + End If + If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen)) diff --git a/Inventarios/RepNotasSinAlmacen.aspx b/Inventarios/RepNotasSinAlmacen.aspx index 29512fb09..5970fc15d 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx +++ b/Inventarios/RepNotasSinAlmacen.aspx @@ -167,6 +167,7 @@ @@ -191,6 +192,7 @@ + diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb index f9f62dee2..83b2321a0 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx.vb +++ b/Inventarios/RepNotasSinAlmacen.aspx.vb @@ -324,6 +324,13 @@ Partial Class RepNotasSinAlmacen e.Row.Cells(2).Text = $"{e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy")}" End If + + + If e.Row.DataKey("EsDevolucionVenta").ToEntero = 1 Then + e.Row.FCHyperLink("lnkSurtir").Visible = False + e.Row.FCHyperLink("LnkRecibir").Visible = True + End If + End If End Sub End Class diff --git a/LogIn.aspx b/LogIn.aspx index 0c13cbbea..89e2e8368 100644 --- a/LogIn.aspx +++ b/LogIn.aspx @@ -90,7 +90,7 @@
- 2023 © AD Sistemas. + 2024 © AD Sistemas.
<%--
Registrar diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index c71349af8..676c2cced 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -1283,7 +1283,28 @@

Material Utilizado

-
+
+ +
+ +
+
+ + + +
+
+ +
+
+ + + +
+
+
@@ -1342,7 +1363,8 @@
- Guardar diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index f3c135e7f..ffb9530fe 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -473,6 +473,9 @@ Partial Class OS_OrdenesServicios DVEpisodioPaciente.Visible = True + DvTxtPacienteModal.Visible = True + DvTxtEpisodioModal.Visible = True + If CveOS > 0 And TipoEstatus >= 3 Then DdlUsuarioAtendio.Enabled = True DVUsuarioAtendio3.Visible = True @@ -682,7 +685,7 @@ Partial Class OS_OrdenesServicios DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString 'If TipoEstatus = 2 Then - LnkTecnico.Visible = True + 'LnkTecnico.Visible = True 'End If If TipoEstatus = 3 Then @@ -3023,6 +3026,12 @@ Partial Class OS_OrdenesServicios LnkModalMaterialUtilizado.Visible = False End If + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + TxtPacienteModal.Text = TxtPaciente.Text + TxtEpisodioModal.Text = TxtIdentificadorCliente.Text + + End If + UpModalMaterialUtilizado.Update() End Sub @@ -3038,6 +3047,21 @@ Partial Class OS_OrdenesServicios Protected Sub LnkModalMaterialUtilizado_Click(sender As Object, e As EventArgs) + + If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + + If TxtPacienteModal.Text.Trim.Length = 0 Then + Alert("Debe de proporcionar el paciente.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + If TxtEpisodioModal.Text.Trim.Length = 0 Then + Alert("Debe de proporcionar el episodio.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + End If + Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual").ToEntero Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero Dim CveSubProyectoPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveSubProyecto").ToEntero @@ -3247,14 +3271,21 @@ Partial Class OS_OrdenesServicios End If If ProcesoOK Then - - If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS) Then + If Not ObjOS.UpdateVentaOS(Respuesta.CveVenta, CveOS, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim) Then ProcesoOK = False End If - End If + + + End If + End If + + + If ProcesoOK Then + If Not ObjOS.UpdateVentaOS(-1, CveOS, TxtPacienteModal.Text.Trim, TxtEpisodioModal.Text.Trim) Then + ProcesoOK = False End If End If @@ -3307,6 +3338,8 @@ Partial Class OS_OrdenesServicios ObjFactura.FechaParaSurtir = TxtFechaCita.Text.ToDateTime ObjFactura.CveClienteSucursal = DdlSucursalCliente.SelectedValue.ToEntero ObjFactura.CveVentaRelacion = CveVentaPedido + ObjFactura.Paciente = TxtPacienteModal.Text.Trim + ObjFactura.Episodio = TxtEpisodioModal.Text.Trim For Each GvRow As GridViewRow In GvMU.Rows diff --git a/OS/RepServicioDomicilio.aspx b/OS/RepServicioDomicilio.aspx index bc80be8ec..e63fc3c5e 100644 --- a/OS/RepServicioDomicilio.aspx +++ b/OS/RepServicioDomicilio.aspx @@ -842,50 +842,12 @@ function selectDate(start, end, allDay) { - <%-- $('#ModalAgenda').modal('show'); - $("#SpanTituloAgenda").html("Agregar Evento"); - - $("#HdnCveEvento").val(-1); - - $("#DdlAgedaTipo").val("-1"); - $("#DdlPrioridad").val("1"); - - $("#TxtAsuntoAgenda").val(""); - $("#TxtDescripcionAgenda").val(""); - $("#TxtFechaInicioAgenda").val("" + start.format("DD/MM/YYYY 08:00")); - $("#TxtFechaFinAgenda").val("" + start.format("DD/MM/YYYY 09:00")); - - $("#UpRecurrencia").hide(); - $("#CheckRecurrencia").prop('checked', false); - - $get("HdnDiasSemanaAgendar").value = -1; - - $('#<%=RBLRecurrencia.ClientID %>').find("input[value='1']").prop("checked", true); - $('#<%=TrDiasSemanaAdd.ClientID %>').css("display", "none"); - $("#DivDescripcionUpdate").css("display", "none"); - $("#<%=TxtDescripcionAgenda.ClientID%>").css("display", "block"); - $('#<%=LblTextoFrecuencia.ClientID%>').html("Hora(s)"); - - $("#TxtFrecuencia").val("1"); - $("#TxtNumeroOcurrencias").val(""); - $("#TxtFechaFinRecurrencia").val(""); - - $("#ChkGastoRecurrente").prop('checked', false); - $("#TxtImporteGastoRecurrente").val("");--%> + } function updateEvent(event, element) { - - - - //$('#ModalAgenda').modal('show'); - - - // $get("HdnDiasSemanaAgendar").value = - - $('#<%=HFCveOS.ClientID%>').val(event.CveOS); @@ -895,89 +857,7 @@ $('#<%=HFOCveOIEvento.ClientID%>').val(event.id); $('#<%=LnkCommando.ClientID%>').click(); - -<%-- $("#DivDescripcionUpdate").css("display", "block"); - $("#<%=TxtDescripcionAgenda.ClientID%>").css("display", "none"); - $("#HdnCveEvento").val(event.id); - - $("#TxtNumeroOcurrencias").val(''); - $("#TxtFechaFinRecurrencia").val(''); - $("#TxtFrecuencia").val(''); - - $("#TxtAsuntoAgenda").val(event.title); - //SE MUESTRA EL TEXTO HTML EN EL DIV DE LA DESCRIPCION SIN PERMITIR EDITAR, - //SE ASIGNA -1 EN EL TEXBOX PARA QUE NO REALICE CAMBIOS EN BD - $("#DivDescripcionUpdate").html(event.description); - $("#TxtDescripcionAgenda").val("-1"); - - $("#DdlAgedaTipo").val(event.cveagendatipo); - $("#DdlPrioridad").val(event.prioridad); - $('#LblSubProyecto').text(event.SubProyecto); - $('#LblDireccion').text(event.Direccion); - - - - $("#TxtFechaInicioAgenda").val("" + event.start.format("DD/MM/YYYY HH:mm")); - - $("#TxtFechaFinAgenda").val("" + event.end.format("DD/MM/YYYY HH:mm")); - - //Identifica el tipo de Fecha Termino de la Recurrencia - if (event.recurrenciafin == 0) { - $("#TxtFrecuencia").val('0'); - } else if (!isNaN(event.recurrenciafin)) { - $("#RBNumeroOcurrencias").prop('checked', true); - $("#TxtNumeroOcurrencias").val(event.recurrenciafin); - } else { - $("#RBFechaFin").prop('checked', true); - $("#TxtFechaFinRecurrencia").val("" + event.recurrenciafin); - } - - //GASTO RECURRENTE - //Si el evento es tipo 10 = Gasto Mes, activa gasto recurrente - if (event.CveTipoEvento == 10) { - $("#ChkGastoRecurrente").prop('checked', true); - $("#TxtImporteGastoRecurrente").val(event.Importe); - } else { - $("#ChkGastoRecurrente").prop('checked', false); - $("#TxtImporteGastoRecurrente").val(''); - } - - //Verifica que hay Recurrencia para activar los campos y poner sus valores respectivos - if (event.recurrenciatipo > 0) { - $("#CheckRecurrencia").prop('checked', true); - - // CHECKEA EL TIPO DE RECURRENCIA QUE TENGA EL EVENTO - var text = event.recurrenciatipo; - var radio = $("[id*=RBLRecurrencia] label:contains('" + text + "')").closest("td").find("input"); - radio.attr("checked", "checked"); - - // CHECKEA LOS DIAS SELECCIONADOS DE LA RECURRENCIA DE SEMANA - $get("HdnDiasSemanaAgendar").value = event.diassemana; - - //LLENA TEXTO DE FRECUENCIA DE RECURRENCIA - $("#TxtFrecuencia").val("" + event.frecuencia); - } else { - $("#CheckRecurrencia").prop('checked', false); - } - - - //ESCONDE O MUESTRA EL DIV DE LAS OPCIONES DE RECURRENCIA - if ($get('CheckRecurrencia').checked) { - $("#UpRecurrencia").show(); - } else { - $("#UpRecurrencia").hide(); - } - - //LLAMA EL INDEXCHANGED DEL RADIOBUTTONLIST DE LOS TIPOS DE RECURRENCIA - $("#BtnActualizaAdd").click(); - - //Muestra nombre de la empresa si esta tarea sea asigno desde EmpresaCRM - if (event.EmpresaCRM != "") { - $("#<%=LblEmpresaCRM.ClientID%>").css("display", "") - $("#<%=LblEmpresaCRM.ClientID%>").text(event.EmpresaCRM); - } else { - $("#<%=LblEmpresaCRM.ClientID%>").css("display", "none") - }--%> + } function RadionButtonSelectedValueSet(name, SelectdValue) { diff --git a/Transportes/RepContratos.aspx b/Transportes/RepContratos.aspx index a6e58d5a8..f74baa4a8 100644 --- a/Transportes/RepContratos.aspx +++ b/Transportes/RepContratos.aspx @@ -1,4 +1,4 @@ -<%@ Page Language="VB" AutoEventWireup="false" Title="Transportes V&A - Contratos" +<%@ Page Language="VB" AutoEventWireup="true" Title="Transportes V&A - Contratos" MasterPageFile="~/Site.master" CodeFile="RepContratos.aspx.vb" Inherits="ListadoContratos" %> @@ -34,21 +34,12 @@ - - -
  • - Agregar Contrato -
    • - <%--
  • - Contratos -
    • -
  • - Viajes -
    • --%> -     -     +
  • + Agregar Contrato +
    • +
  • + Generar Excel +
    • @@ -61,71 +52,73 @@
    + + + + - - + + + + + - - - - - + + + + + - - - - - + + + + + - - - - - + + + + + - - - - - + + + Fecha
    + Salida +     + + + +     - - - Fecha
    - Salida -     - - - -     + + + Fecha
    + Regreso +     + + + +     - - - Fecha
    - Regreso -     - - - -     + + + + - - - - - - - -     -     - - + + +     +     +     +     +