diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index e574d4783..2a6016ebd 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1472,7 +1472,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional CveMarca As Integer = -1) As Boolean + Public Function GetKardexAlmacenHorizontal(CvePS As Integer, FechaFin As Date, CveAlmacen As Integer, CveUnidadMedida As Integer, CveProveedor As Integer, CveTipoAlmacen As Integer, IncluyeTransitorios As Integer, CveClasificacion As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CondicionExistencias As Integer = 0, Optional Orden As Integer = -1, Optional CveMarca As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_KardexAlmacenHorizontalGet") @@ -1490,6 +1490,7 @@ Public Class ClsInventarios .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedor .Add("@CveTipoAlmacen", SqlDbType.Int).Value = CveTipoAlmacen .Add("@ExistenciasCondicion", SqlDbType.Int).Value = CondicionExistencias + .Add("@Orden", SqlDbType.Int).Value = Orden .Add("@CveMarca", SqlDbType.Int).Value = CveMarca End With @@ -4879,27 +4880,6 @@ Public Class ClsInventarios End Try Return Retorno End Function - - Public Function GetExistenciasMedRin(CvePS As Integer, CveEmpresa As Integer, CveRinTamaño As Integer, CveMedida As Integer) As Boolean - Dim Retorno As Boolean = False - DataAdapter("PA_Inv_ExistenciaMedRinGet") - - With SqlAdapter.SelectCommand.Parameters - .Add("@CvePS", SqlDbType.Int).Value = CvePS - .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveRinTamaño", SqlDbType.Int).Value = CveRinTamaño - .Add("@CveMedida", SqlDbType.Int).Value = CveMedida - End With - Try - SqlAdapter.Fill(Data) - Retorno = True - Catch ex As Exception - OnError("Ocurrió un error al obtener las Existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - End Try - - Return Retorno - End Function - Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesUpdate") diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index 34a9b77b2..7c3b73753 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -114,13 +114,11 @@ Partial Class RepCxC #Region "CARGAS" Private Sub CargaCombos() 'CargaClientes - If UsuarioActual.CveEmpresa = 119 Then + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.setEsWebService(True) Else DdlClientesWS.setEsWebService(False) - DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - DdlClientesWS.DataBind() - DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + CargaClientes() End If 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) 'DdlClientes.DataBind() @@ -1433,7 +1431,7 @@ Partial Class RepCxC End Sub Private Sub CargaClientes() - If UsuarioActual.CveEmpresa <> 119 Then + If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.ddl.Items.Clear() DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1") DdlClientesWS.DataBind() diff --git a/CxC/RepCxCDetalle.aspx.vb b/CxC/RepCxCDetalle.aspx.vb index 9795b367f..8b2f794e6 100644 --- a/CxC/RepCxCDetalle.aspx.vb +++ b/CxC/RepCxCDetalle.aspx.vb @@ -205,13 +205,11 @@ Partial Class RepCxCDetalle 'CargaClientes 'CargaClientes - If UsuarioActual.CveEmpresa = 119 Then + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.setEsWebService(True) Else - DdlClientesWS.setEsWebService(False) - DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - DdlClientesWS.DataBind() - DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1")) + DdlClientesWS.setEsWebService(False) + CargaClientes() End If 'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) 'DdlClientes.DataBind() @@ -983,7 +981,7 @@ Partial Class RepCxCDetalle End Sub Private Sub CargaClientes() - If UsuarioActual.CveEmpresa <> 119 Then + If Not UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.ddl.Items.Clear() DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveClienteClasificacion = {DdlClienteClasificacion.SelectedValue.ToEntero} OR {DdlClienteClasificacion.SelectedValue.ToEntero} = -1") DdlClientesWS.DataBind() diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index fa4013eb6..f7338501b 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -1,241 +1,254 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="KardexAlmacenHorizontal.aspx.vb" Inherits="Inventarios_KardexAlmacen" %> - - - - - - - - - - Kardex Almacén Horizontal - - - - - - -
  • - Generar Excel -
    • -     - - - - - - - -
    -
    -
    - - "> - -
    -
    -
    -
    -
    -
    Proveedor
    -
    - -
    -
    -
    -
    -
    - -
    - -
    -
    -
    -
    -
    - -
    - - - -
    -
    -
    -
    -
    - -
    -
    -
    - - - - -
    - - -
    -
    -
    -
    -
    -
    - -
    - - - - -
    -
    -
    -
    -
    -
    -
    > -
    - -
    - - - -
    - -
    - - - -
    - -
    - -
    - -
    - - - -
    - -
    - - - - - - <%----%> -
    -
    -
    -
    -     -     -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    - - - - - - + +
    - - - -
    -
    - - - - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="KardexAlmacenHorizontal.aspx.vb" Inherits="Inventarios_KardexAlmacen" %> + + + + + + + + + + Kardex Almacén Horizontal + + + + + + +
  • + Generar Excel +
    • +     + + + + + + + +
    +
    +
    + + "> + +
    +
    +
    +
    Proveedor
    +
    + +
    + +
    + +
    +
    +
    + +
    + + + +
    +
    +
    + +
    +
    +
    + + + + +
    + + +
    +
    + +
    + + + + +
    +
    +
    +
    +
    > +
    + +
    + + + +
    + +
    + + + +
    + +
    + +
    + +
    + + + +
    + +
    + + + + + + <%----%> +
    +
    + + +
    + + + + + + +
    +     +
    +
    +     +     +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    + + + + + + - -
    + + + +
    +
    + + + + + + Código - - - -
    - -
    -     -     - - + + +
    + +
    +     +     + + Producto - - - -
    - -
    -     -     -     -     -     -     -
    -     - - - +     + +
    + +
    +     +     +     +     +     +     +
    +     + + + diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 978bba1e9..d85e92bbb 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -10,10 +10,10 @@ Partial Class Inventarios_KardexAlmacen Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then 'TxtFechaI.Text = Now.AddMonths(-1).ToShortDateString - TxtFechaF.Text = Now.ToShortDateString + TxtFechaF.Text = Now.ToShortDateString CargaCombos() ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) - + pnlOrden.Visible = UsuarioActual.CveEmpresa = 141 If IfNull(Request("CvePS"), "-1").ToString.ToEntero > 0 Then CargarKardex(Request("CvePS").ToString.ToEntero) ddlProducto2.SelectedValue = If(Request("CvePS") IsNot Nothing, Request("CvePS").ToString, "-1") End If @@ -24,18 +24,19 @@ Partial Class Inventarios_KardexAlmacen Private Sub CargaCombos() CargaFuncionalidad105() - CargaPS() - - ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) - ddlAlmacen.DataBind() + CargaPS() + Using ObjPS As New ClsProductosServicios If ObjPS.GetMarcas(UsuarioActual.CveEmpresa) Then DdlMarca.DataSource = ObjPS.DtResultados.Copy() End If End Using DdlMarca.DataBind() - DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) - + DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) + + ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) + ddlAlmacen.DataBind() + Dim ObjInv As New ClsInventarios() If ObjInv.GetTiposAlmacenes() Then DdlTipoAlmacen.DataSource = ObjInv.DtResultados @@ -119,6 +120,12 @@ Partial Class Inventarios_KardexAlmacen Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click Dim CveProducto As Integer = ddlProducto2.SelectedValue.ToEntero CargarKardex(CveProducto) + 'If CveProducto > 0 Then + + 'Else + ' Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia) + 'End If + End Sub Private Sub CargarKardex(CvePS As Integer) Dim dt As DataTable = Nothing @@ -129,8 +136,7 @@ Partial Class Inventarios_KardexAlmacen Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1) - If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, - UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, CveMarca:=DdlMarca.SelectedValue.ToEntero()) Then + If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue, Orden:=DdlOrden.SelectedValue.ToEntero(), CveMarca:=DdlMarca.SelectedValue.ToEntero()) Then If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then dt = ObjMovimientos.DtResultados Dim ListaBorrar As New List(Of DataColumn) @@ -233,6 +239,7 @@ Partial Class Inventarios_KardexAlmacen End Sub Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + Imprimir("Excel") End Sub Private Sub Imprimir(Optional reporte As String = "PDF") diff --git a/Ventas/RepIngresosDetalle.aspx b/Ventas/RepIngresosDetalle.aspx index acc505d4d..942f7bbe0 100644 --- a/Ventas/RepIngresosDetalle.aspx +++ b/Ventas/RepIngresosDetalle.aspx @@ -188,16 +188,21 @@ - + - + + + + + + diff --git a/vwd.webinfo b/vwd.webinfo index 2f273a97f..bfda47f43 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -21,10 +21,6 @@ - - - -