diff --git a/Agropecuaria/RepPreciosVentaManifiesto.aspx b/Agropecuaria/RepPreciosVentaManifiesto.aspx new file mode 100644 index 000000000..d61fd61be --- /dev/null +++ b/Agropecuaria/RepPreciosVentaManifiesto.aspx @@ -0,0 +1,157 @@ +<%@ Page Title="Reporte de Ordenes de Servicio Médicas" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepPreciosVentaManifiesto.aspx.vb" Inherits="Agrupecuaria_RepPreciosVentaManifiesto" %> + + + + + + + + + + + + + + Reporte de Ordenes de Servicio Médicas + + + + +
  • + Excel +
    • +     + + + +     +     + + + + +
    +
    +
    + + +
    +
    +
    + + + +
    + Fecha Inicio: + +
    +
    +
    + + + + +
    + + + + + + +
    +
    + Fecha Fin: + +
    +
    +
    + + + + +
    + + + + + + +
    + + SubProyecto: +
    + +
    + + + +
    +
    +
    + +
    +     +     + +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + <%--0--%> + + <%----%> + <%--1--%> + + <%--2--%> + + <%--3--%> + + <%--4--%> + + <%--5--%> + + <%--6--%> + + <%--7--%> + + <%--8--%> + + <%--9--%> + + <%--10--%> + + <%--11--%> + + <%--12--%> + + <%--13--%> + + <%--14--%> + + + + + + + + + +     + + diff --git a/Agropecuaria/RepPreciosVentaManifiesto.aspx.vb b/Agropecuaria/RepPreciosVentaManifiesto.aspx.vb new file mode 100644 index 000000000..53e5f678f --- /dev/null +++ b/Agropecuaria/RepPreciosVentaManifiesto.aspx.vb @@ -0,0 +1,261 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports Extensiones + +Partial Class Agrupecuaria_RepPreciosVentaManifiesto + Inherits ClsPaginas + + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not IsPostBack Then + If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx") + + CargaCombos() + CargaDatos() + End If + + End Sub + + +#Region " CARGA COMBOS " + + + Private Sub CargaCombos() + + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto) + + CargaCultivo() + + 'CargaEstatus + DdlEstatusOS.DataSource = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) + DdlEstatusOS.DataBind() + DdlEstatusOS.Items.Insert(0, New ListItem("Todos", "-1")) + Dim DTTecnicos As DataTable = Nothing + + Dim ObjOS As New ClsOS + If ObjOS.GetSubProyectosEstatusInicial(-1, 3, UsuarioActual.CveEmpresa) Then + DTTecnicos = ObjOS.DtResultados + End If + ObjOS.Dispose() + + DdlTecnico.DataSource = DTTecnicos + DdlTecnico.DataBind() + DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1")) + DdlTecnico.Items.Insert(1, New ListItem("Sin Asignar", "-2")) + + '376 + If UsuarioActual.TienePermisoProceso(376) Then + DdlTecnico.Enabled = False + DdlTecnico.SelectedValueExist(UsuarioActual.CveUsuario) + End If + + + If IfNull(Request("CveUsuarioTecnico"), 0).ToString.ToEntero > 0 Then + DdlTecnico.SelectedValueExist(Request("CveUsuarioTecnico").ToString) + Else + ViewState("CveUsuarioTecnico") = -1 + End If + + 'CargaClientes + Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) + 'If EsWS Then + ' DdlClientes.setEsWebService(True) + 'Else + ' DdlClientes.setEsWebService(False) + ' DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) + ' DdlClientes.DataBind() + ' DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + 'End If + + 'Vendedor + DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso + DdlVendedor.DataBind() + DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1")) + DdlVendedor.Items.Insert(1, New ListItem("Sin Vendedor", "-2")) + + If UsuarioActual.CveVendedor > 0 Then + DdlVendedor.SelectedValueExist(UsuarioActual.CveVendedor) + DdlVendedor.Enabled = False + End If + + txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString + txtFechaF.Text = NowADS().AddDays(2).ToShortDateString + + + DdlMedico.DataSource = If(UsuarioActual.CveVendedor > 0, GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros($" Estatus = 'True' AND CveVendedor = {UsuarioActual.CveVendedor} "), GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")) + DdlMedico.DataBind() + + DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlProcedimiento.DataBind() + + DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa) + DdlTipoVenta.DataBind + + Dim ObjVentas As New ClsVentas + + If ObjVentas.GetMedicosEspecialidades(-1, UsuarioActual.CveEmpresa, -1) Then + DdlEspecialidad.DataSource = ObjVentas.DtResultados + Else + DdlEspecialidad.DataSource = Nothing + End If + + ObjVentas.Dispose() + + DdlEspecialidad.DataBind() + DdlEspecialidad.Items.Insert(0, New ListItem("Todas", "-1")) + + DdlClienteSucursal.DataSource = GlobalDTClientesTodosSucursales(UsuarioActual.CveEmpresa) + DdlClienteSucursal.DataBind() + DdlClienteSucursal.Items.Insert(0, New ListItem("Todos", "-1")) + + 'Dim EsWS As Boolean = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) + 'If EsWS Then + ' DdlCliente.setEsWebService(True) + + 'Else + ' DdlCliente.setEsWebService(False) + ' DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) + ' DdlCliente.DataBind() + ' DdlCliente.ddl.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) + 'End If + + End Sub + + Private Sub CargaCultivo() + DdlCultivo.Items.Clear() + If DdlSubProyecto.GetSelectedValuesM(True) <> "" Then + DdlCultivo.DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto IN ({0})", DdlSubProyecto.GetSelectedValuesM(True))) + DdlCultivo.DataBind() + Else + DdlCultivo.DataSource = Nothing + DdlCultivo.DataBind() + End If + End Sub + +#End Region + +#Region " CARGA DATOS " + Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click + + CargaDatos() + + End Sub + + Private Sub CargaDatos() + + Dim ObjOS As New ClsOS + Dim FechaI As Date = If(txtFechaI.Text.Trim = "", MinFecha, txtFechaI.Text.ToDate) + Dim FechaF As Date = If(txtFechaF.Text.Trim = "", MaxFecha, txtFechaF.Text.ToDate) + Dim Cvecliente As Integer = DdlClienteSucursalCliente() + Dim CveClienteSucursal As Integer = DdlClienteSucursalSucursal() + LnkPersonalizar.Visible = False + + If ObjOS.GetRepOrdenesServicioMedicasRep(FechaI, FechaF, Cvecliente, DdlVendedor.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, DdlTecnico.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, + CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveEspecialidad:=DdlEspecialidad.SelectedValue.ToEntero, + CveClienteSucursal:=CveClienteSucursal, CveUsuario:=UsuarioActual.CveUsuario, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero) Then + GvDatos.DataSource = ObjOS.DtResultados + If ObjOS.DtResultados IsNot Nothing AndAlso ObjOS.DtResultados.Rows.Count > 0 Then + LnkPersonalizar.Visible = True + End If + Else + GvDatos.DataSource = Nothing + End If + + ObjOS.Dispose() + + GvDatos.DataBind() + + + LnkExportar.Visible = If(GvDatos.Rows.Count > 0, True, False) + UpAcciones.Update() + + + UPDatos.Update() + + End Sub + + +#End Region + + + 'Private Sub CargaClientes() + ' DdlClientes.ddl.Items.Clear() + ' DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) '.FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1") + ' DdlClientes.DataBind() + ' DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + 'End Sub + + Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged + CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue) + End Sub + + +#Region " GV DATOS - ROW DATABOUND " + Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + e.Row.Cells(1).Attributes.Add("data-order", e.Row.DBCampo("FechaCita").ToDateTime.ToString("yyyyMMddHHmm")) + If e.Row.DBCampo("CveOS") = "" Then + e.Row.CssClass = "Totales" + End If + End If + End Sub +#End Region + + Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + + Dim SubProyecto As String = "" + + If DdlSubProyecto.SelectedValue.ToEntero > 0 Then + SubProyecto = DdlSubProyecto.SelectedItem.Text + End If + + Dim SbFiltros As New StringBuilder() + SbFiltros.AppendFormat($"Fecha Inicio: {txtFechaI.Text} Fecha Fin: {txtFechaF.Text}|") + SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto) + + + GvDatos.ExportToExcelGembox("OrdenesServicio", UsuarioActual, "Ordenes de Servicio Medicas", DatoTituloExtra:=$"", DatosFiltros:=SbFiltros.ToString()) + + End Sub + + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) + End Sub + + Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs) + + ' ChkGuardarPersonalizacion.Checked = False + RegistraScript("$('#DivPersonalizar').modal('show')") + + End Sub + + Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click + Personaliza() + End Sub + + Private Sub Personaliza() + GvDatos.Columns(13).Visible = ChkObservaciones.Checked + GvDatos.Columns(14).Visible = ChkFolioAdicional.Checked + CargaDatos() + End Sub + + Private Function DdlClienteSucursalCliente() As Integer + If DdlClienteSucursal.SelectedValue = "-1" Then + Return -1 + Else + Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c) + Return If(array(0).ToEntero > 0, array(0).ToEntero, -1) + End If + End Function + + Private Function DdlClienteSucursalSucursal() As Integer + If DdlClienteSucursal.SelectedValue = "-1" Then + Return -1 + Else + Dim array As String() = DdlClienteSucursal.SelectedValue.Split("|"c) + Return If(array(1).ToEntero > 0, array(1).ToEntero, -1) + End If + End Function + + +End Class diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index ac4aa3906..8e1b2afe6 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -11138,6 +11138,8 @@ Public Class ClsPaginas PaginaDict.Add("/Contabilidad/OCDetalleAlmacen.aspx".ToUpper(), -1) PaginaDict.Add("/Contabilidad/RepBalanceGeneralHorizontal.aspx".ToUpper(), -1) PaginaDict.Add("/Agropecuaria/CierreCultivo.aspx".ToUpper(), 1326) + PaginaDict.Add("/Agropecuaria/RepPreciosVentaManifiesto.aspx".ToUpper(), -1) + PaginaDict.Add("/Inventarios/RepRSCO.aspx".ToUpper(), 1328) PaginaDict.Add("/testApi.aspx".ToUpper(), -1) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 7e514cd05..81ca7b875 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6335,7 +6335,7 @@ Public Class ClsVentas End Function - Public Function UpdateVentaLineaAdicional(CveLineaAdicional As Integer, CveVenta As Integer, LineaAdicionalComprobante As String, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean + Public Function UpdateVentaLineaAdicional(CveLineaAdicional As Integer, CveVenta As Integer, LineaAdicionalComprobante As String, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer, Optional OrdenCompra As String = "-1") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_LineasAdicionalesVentaUpdate") @@ -6345,6 +6345,7 @@ Public Class ClsVentas .Add("@LineaAdicionalComprobante", SqlDbType.VarChar).Value = LineaAdicionalComprobante .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra End With Try SqlAdapter.Fill(Data) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 784aaecf0..986c618b0 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -252,6 +252,20 @@ Partial Class Compras_Compras Return ViewState("CveCompra").ToString.ToEntero End Get End Property + + Private Property CveCompraFactura As Integer + Get + If ViewState("CveCompraFactura") Is Nothing Then + ViewState("CveCompraFactura") = -1 + End If + Return ViewState("CveCompraFactura").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CveCompraFactura") = value + End Set + End Property + + Private ReadOnly Property CveFactura As Integer Get Return ViewState("CveFactura").ToString.ToEntero @@ -1545,7 +1559,7 @@ Partial Class Compras_Compras If UsuarioActual.Empresa.Funcionalidad(562).ToEntero > 0 Then CargaGastosServicios(UsuarioActual.Empresa.Funcionalidad(562).ToEntero) End If - + CargaGvPersonal() ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then 'If UsuarioActual.Empresa.Funcionalidad(574).ToEntero = 1 Then @@ -1594,6 +1608,7 @@ Partial Class Compras_Compras 'End If LnkAgregarGuia.Visible = False UpLnkPaqueteriaGuias.Update() + CargaGvPersonal() End If If UsuarioActual.TienePermisoProceso(360) AndAlso UsuarioActual.CveEmpresa = 119 Then BtnProrateoDeducible.Visible = True @@ -2973,6 +2988,7 @@ Partial Class Compras_Compras LblRetISR.Text = If(dr("RetISR").ToString.ToDecimal > 0, TmpDT.MAX("RetISRPorcentaje").ToDecimal * 100, 0).ToString.FormatoNumero(4) '(If(SubTotal2 > 0, (RetencionISR / SubTotal2), 0) * 100).FormatoNumero(3) If dr("TipoFactura").ToString <> "CFDi" Then LblTipoFact.Text = dr("TipoFactura").ToString : divTipoFactura.Visible = True ViewState("CveFactura") = dr("CveFactura").ToString.ToEntero + CveCompraFactura = dr("CveFactura").ToString.ToEntero ViewState("IdPoliza") = dr("IdPoliza").ToString.ToEntero DdlMoneda.SelectedValue = dr("CveMoneda").ToString @@ -17381,9 +17397,11 @@ Partial Class Compras_Compras If TxtIEPS.Text.ToDouble > 0 Then TrIEPS.Visible = True End If If TxtDescuento.Text.ToDouble > 0 Then TrDescuento.Visible = True - 'If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Then - TxtTotal.Text = Total.ToString.FormatoNumero() - 'End If + + If ActualizaTotales And UsuarioActual.CveEmpresa = 72 Or Not CveCompraFactura > 0 Then + TxtTotal.Text = Total.ToString.FormatoNumero() + End If + Else TxtSubTotal.Text = SubTotal.ToString.FormatoNumero() TxtSubTotal2.Text = SubTotal2.ToString.FormatoNumero() diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e4f747f8b..b9612d751 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -39669,8 +39669,25 @@ Partial Class Ventas End If End If + + Dim OrdenCompra As String = "-1" + + If UsuarioActual.CveEmpresa = 119 Then + Dim arrayStr As String() = DdlLineaAdicional.SelectedItem.Text.Split(":"c) + If arrayStr.Length > 0 Then + Dim OrdenCompraTmp As String = arrayStr(0).Replace("IMP", "").Trim + If TxtOrdenCompra.Text.Trim.Length > 0 Then + If OrdenCompraTmp.ToUpper <> TxtOrdenCompra.Text.Trim.ToUpper Then + OrdenCompra = $"{TxtOrdenCompra.Text}, {OrdenCompraTmp}" + End If + Else + OrdenCompra = $"{OrdenCompraTmp}" + End If + End If + End If + Using ObjVentas As New ClsVentas - If ObjVentas.UpdateVentaLineaAdicional(DdlLineaAdicional.SelectedValue.ToEntero(), CveVenta, "", 1, UsuarioActual.CveEmpresa) Then + If ObjVentas.UpdateVentaLineaAdicional(DdlLineaAdicional.SelectedValue.ToEntero(), CveVenta, "", 1, UsuarioActual.CveEmpresa, OrdenCompra:=OrdenCompra) Then Alert("Se actualizó la linea adicional de crédito de la venta") End If End Using