diff --git a/Acumuladores/RepEntradasUsadosClientes.aspx.vb b/Acumuladores/RepEntradasUsadosClientes.aspx.vb index 9d266557c..e23ddf41d 100644 --- a/Acumuladores/RepEntradasUsadosClientes.aspx.vb +++ b/Acumuladores/RepEntradasUsadosClientes.aspx.vb @@ -29,7 +29,7 @@ Partial Class Acumuladores_RepEntradasUsadosClientes End Sub Public Sub CargaCombos() - DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 22) DdlAlmacen.DataBind() DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) 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/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index fe9d24568..214c598f8 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -144,6 +144,14 @@ SATClaveProdServ System.String + + SATClaveUM + System.String + + + PorcentajeIVA + System.String + DsOC @@ -333,10 +341,10 @@ External =Parameters!QR.Value FitProportional - 0.1632in + 0.02778in 0.02254in - 1.2939in - 1.53682in + 0.88765in + 0.97432in @@ -345,6 +353,7 @@ true + true true @@ -372,19 +381,6 @@ - - - - - - - - - - - Start - true - 6.39675in - 0.0645in - 1.67778in + 6.39118in + 0.07484in + 0.91543in 8.23221in @@ -988,7 +955,7 @@ - true + true true @@ -997,7 +964,7 @@ =Fields!UM.Value @@ -1023,7 +990,7 @@ - true + true true @@ -1032,7 +999,7 @@ =Fields!Codigo.Value @@ -1057,17 +1024,17 @@ - - true + + true true - =Fields!SATClaveProdServ.Value + =Fields!SATClaveUM.Value @@ -1077,7 +1044,7 @@ - SATClaveProdServ + SATClaveUM @@ -1093,7 +1060,7 @@ - true + true true @@ -1102,7 +1069,7 @@ =Fields!PS.Value & System.Environment.NewLine & IIF(Fields!Obs.Value <> "","Observaciones: ","") & Fields!Obs.Value @@ -1126,7 +1093,7 @@ - true + true true @@ -1135,8 +1102,9 @@ =Fields!PU.Value @@ -1158,17 +1126,17 @@ - - true + + true true - + =Fields!PorcentajeIVA.Value - Descuento + PorcentajeIVA @@ -1196,7 +1164,7 @@ - true + true true @@ -1205,7 +1173,7 @@ =Fields!Descuento.Value - @@ -1717,7 +1685,9 @@ - @@ -1738,7 +1708,9 @@ - @@ -1751,7 +1723,9 @@ - @@ -1767,7 +1741,7 @@ Textbox4 - 3.20357cm + 2.88607cm 0.28014cm 1.09007cm 9.71199cm @@ -1784,6 +1758,7 @@ true + true true @@ -1871,7 +1846,7 @@ Textbox4 - 3.50094cm + 2.86594cm 10.06268cm 0.7927cm 9.71199cm @@ -2045,7 +2020,7 @@ Textbox4 - 4.29364cm + 3.97614cm 0.25136cm 0.74611cm 13.82025cm @@ -2078,7 +2053,7 @@ Textbox32 - 4.46621cm + 3.98996cm 14.07729cm 0.57354cm 2.90753cm @@ -2113,7 +2088,7 @@ Textbox35 - 5.09559cm + 4.77809cm 0.26772cm 0.52062cm 9.72441cm @@ -2175,8 +2150,8 @@ Textbox4 - 6.7641cm - 3.33321cm + 6.3831cm + 1.74571cm 1.05328cm 17.71415cm 15 @@ -2195,6 +2170,7 @@ true + true true @@ -2213,6 +2189,7 @@ @@ -2231,6 +2208,7 @@ @@ -2249,6 +2227,7 @@ @@ -2267,6 +2246,7 @@ @@ -2285,6 +2265,7 @@ @@ -2303,11 +2284,12 @@ Textbox4 - 9.21745cm + 9.72545cm 0.22108cm 2.03224cm 20.79751cm @@ -2337,8 +2319,8 @@ Textbox5 - 12.95331cm - 0.19009cm + 13.43309cm + 0.21585cm 0.05496cm 20.88652cm 17 @@ -2357,7 +2339,7 @@ Embedded ID5 FitProportional - 11.49964cm + 11.91239cm 0.17151cm 0.96488cm 3.75909cm @@ -2415,7 +2397,7 @@ Textbox4 - 12.51148cm + 12.95598cm 0.19008cm 0.40655cm 12.88812cm @@ -2434,7 +2416,7 @@ Embedded ID4 FitProportional - 11.49964cm + 11.91239cm 4.34941cm 0.91769cm 3.03541cm @@ -2449,7 +2431,7 @@ Embedded ID1 FitProportional - 11.49964cm + 11.91239cm 7.56121cm 0.97656cm 4.16281cm @@ -2464,9 +2446,9 @@ Embedded ID6 FitProportional - 11.49964cm + 11.91239cm 11.90634cm - 1.01184cm + 0.97656cm 3.76809cm 22 + + true + true + + + + + ** SI LAS LLANTAS NO SON INSTALADAS EN ECONOLLANTAS PIERDE SU GARANTÍA DE FABRICA ** + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + - 20.50931cm + 18.7493cm - - - - 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..4366af744 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -10,10 +10,14 @@ 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 = False + If UsuarioActual.CveEmpresa = 141 Then + pnlOrden.Visible = True + DdlOrden.SelectedValue = 2 + End If 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 +28,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 +124,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 +140,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 +243,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/ClientesAbonar.aspx b/Ventas/ClientesAbonar.aspx index d23679560..372c52348 100644 --- a/Ventas/ClientesAbonar.aspx +++ b/Ventas/ClientesAbonar.aspx @@ -238,7 +238,7 @@ - +
    diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index a9c503494..b50c93038 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -333,12 +333,7 @@ Partial Class Ventas_ClientesAbonar ElseIf CveMoneda = -1 Then TxtFechaDocumento.Attributes.Add("onchange", "CambiaTC(this);") TxtTCDolares.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) - End If - - If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then - ChkComplementoPago.Visible = True - 'ChkComplementoPago.Checked = True + TxtTC.Text = GlobalTipoCambio(Fecha).FormatoNumero(4) End If If UsuarioActual.TienePermisoProceso(209) Or UsuarioActual.TienePermisoProceso(204) Then 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/Ventas/RepVentasMensuales.aspx b/Ventas/RepVentasMensuales.aspx index 248ffec8c..596318722 100644 --- a/Ventas/RepVentasMensuales.aspx +++ b/Ventas/RepVentasMensuales.aspx @@ -83,7 +83,7 @@ -
    Fecha Fin:
    +
    Fecha Fin:
    @@ -95,35 +95,34 @@
    -
    Sucursal:
    +
    Sucursal:
    - +
    -
    Clasificación de Productos:
    -
    - + +
    +
    -
    Vendedor:
    -
    - + +
    +
    -
    Marca:
    -
    - + +
    +
    -
    -
    Grupo:
    -
    - +
    + +
    + Clientes Sucursales - Productos Servicios
    diff --git a/vwd.webinfo b/vwd.webinfo index 2f273a97f..bfda47f43 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -21,10 +21,6 @@ - - - -