From 86481c478bc829bb2ec0c58d0806d16d84413946 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Thu, 27 Feb 2020 08:33:22 -0700 Subject: [PATCH 01/13] inventarios --- App_Code/ClsInventarios.vb | 3 +- Inventarios/KardexAlmacenHorizontal.aspx | 49 +++++++++++++++++---- Inventarios/KardexAlmacenHorizontal.aspx.vb | 4 +- vwd.webinfo | 2 + 4 files changed, 46 insertions(+), 12 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 7b8d53ecf..32297767a 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) 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) 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 End With Try diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 397af66ab..b0c469f31 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -58,6 +58,26 @@ .psagregar > div.codigo > input[type="submit"] { display: none; } + + @media (min-width: 991px) { + .textfilter { + max-width: 80px; + } + + .textfilter2 { + max-width: 70px; + } + + .dateFilter { + min-width: 115px; + } + } + + @media (min-width: 991px) and (max-width: 1400px) { + .titlefiltrosmedia .col-md-3 { + width: 22%; + } + } @@ -87,18 +107,18 @@ "> -
+
-
Proveedor
+
Proveedor
- -
- + +
+
- -
+ +
@@ -110,7 +130,7 @@
- +
@@ -146,7 +166,7 @@
- + @@ -154,6 +174,17 @@ <%----%>
+ + +
+ + + + + + +
+
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index b8c30dfb3..92b34df1c 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -13,7 +13,7 @@ Partial Class Inventarios_KardexAlmacen 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 @@ -128,7 +128,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) 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()) Then If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then dt = ObjMovimientos.DtResultados Dim ListaBorrar As New List(Of DataColumn) diff --git a/vwd.webinfo b/vwd.webinfo index 2515705b1..bfda47f43 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -21,6 +21,8 @@ + + \ No newline at end of file From 9fdfbcdd7250e0f77584db3a4f69018a4bef080f Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 2 Mar 2020 12:56:50 -0700 Subject: [PATCH 02/13] - checa la base de iva, para ver si lo agrega --- Ventas/Ventas.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9ecd8ab82..bc28592cc 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -8803,8 +8803,8 @@ Partial Class Ventas 'siempre estaremos agregando el iva, auqnue sea en importe cero o tasa cero, para que se emita la factura ' If drr("ImporteIVA").ToString.ToDouble > 0 Then - 'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos - If Timbre.Comprobante.Total > 0 Then + 'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos, y si la BASE de calculo es mayor a cero + If Timbre.Comprobante.Total > 0 AndAlso concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0 Then concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional, .TasaOCuota = drr("PorcentajeIVA").ToString.ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString.ToDecimal}) End If From 91b0b7772f50cc9dce44708b6c9139ac1986c47d Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Mar 2020 11:47:06 -0700 Subject: [PATCH 03/13] - cambio en dropdownlost --- CxC/RepCxC.aspx.vb | 8 +++----- CxC/RepCxCDetalle.aspx.vb | 10 ++++------ 2 files changed, 7 insertions(+), 11 deletions(-) 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() From 8e7287a941d2bad27cdae95790fab16f19418358 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Wed, 4 Mar 2020 09:51:47 -0700 Subject: [PATCH 04/13] --- Inventarios/KardexAlmacenHorizontal.aspx | 2 +- Inventarios/KardexAlmacenHorizontal.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index b0c469f31..e0035b667 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -174,7 +174,7 @@ <%----%>
- +
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 92b34df1c..32a4a710e 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -10,7 +10,7 @@ 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 From f8c3cb3d9ec5f9b8bb629f9a8779ea30754a7e45 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 4 Mar 2020 10:08:56 -0700 Subject: [PATCH 05/13] css en ventas mensuales y acomodo de Factura.rdlc --- Empresas/141/Formatos/Factura.rdlc | 214 +++++++++++++---------------- Ventas/RepVentasMensuales.aspx | 33 +++-- 2 files changed, 111 insertions(+), 136 deletions(-) diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index fe9d24568..8061393f9 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -333,10 +333,10 @@ External =Parameters!QR.Value FitProportional - 0.1632in + 0.02778in 0.02254in - 1.2939in - 1.53682in + 0.88765in + 0.97432in @@ -345,6 +345,7 @@ true + true true @@ -372,19 +373,6 @@ - - - - - - - - - - @@ -1717,7 +1679,9 @@ - @@ -1738,7 +1702,9 @@ - @@ -1751,7 +1717,9 @@ - @@ -1767,7 +1735,7 @@ Textbox4 - 3.20357cm + 2.88607cm 0.28014cm 1.09007cm 9.71199cm @@ -1784,6 +1752,7 @@ true + true true @@ -1871,7 +1840,7 @@ Textbox4 - 3.50094cm + 2.86594cm 10.06268cm 0.7927cm 9.71199cm @@ -2045,7 +2014,7 @@ Textbox4 - 4.29364cm + 3.97614cm 0.25136cm 0.74611cm 13.82025cm @@ -2078,7 +2047,7 @@ Textbox32 - 4.46621cm + 3.98996cm 14.07729cm 0.57354cm 2.90753cm @@ -2113,7 +2082,7 @@ Textbox35 - 5.09559cm + 4.77809cm 0.26772cm 0.52062cm 9.72441cm @@ -2175,7 +2144,7 @@ Textbox4 - 6.7641cm + 6.3831cm 3.33321cm 1.05328cm 17.71415cm @@ -2195,6 +2164,7 @@ true + true true @@ -2213,6 +2183,7 @@ @@ -2231,6 +2202,7 @@ @@ -2249,6 +2221,7 @@ @@ -2267,6 +2240,7 @@ @@ -2285,6 +2259,7 @@ @@ -2303,11 +2278,12 @@ Textbox4 - 9.21745cm + 8.32845cm 0.22108cm 2.03224cm 20.79751cm @@ -2337,8 +2313,8 @@ Textbox5 - 12.95331cm - 0.19009cm + 12.03609cm + 0.21585cm 0.05496cm 20.88652cm 17 @@ -2357,7 +2333,7 @@ Embedded ID5 FitProportional - 11.49964cm + 10.51539cm 0.17151cm 0.96488cm 3.75909cm @@ -2415,7 +2391,7 @@ Textbox4 - 12.51148cm + 11.55898cm 0.19008cm 0.40655cm 12.88812cm @@ -2434,7 +2410,7 @@ Embedded ID4 FitProportional - 11.49964cm + 10.51539cm 4.34941cm 0.91769cm 3.03541cm @@ -2449,7 +2425,7 @@ Embedded ID1 FitProportional - 11.49964cm + 10.51539cm 7.56121cm 0.97656cm 4.16281cm @@ -2464,9 +2440,9 @@ Embedded ID6 FitProportional - 11.49964cm + 10.51539cm 11.90634cm - 1.01184cm + 0.97656cm 3.76809cm 22 - 20.50931cm + 17.16179cm - - Start - true - 5.84118in + 6.39118in 0.07484in 0.91543in 8.23221in @@ -910,7 +907,7 @@ - 0.14436in + 0.13436in @@ -1259,7 +1256,7 @@ DsOC 2.12778in 0.09836in - 0.34081in + 0.33081in 8.20966in 1 + + true + true + + + + + ** SI LAS LLANTAS NO SON INSTALADAS EN ECONOLLANTAS PIERDE SU GARANTÍA DE FABRICA ** + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + - 17.16179cm + 18.7493cm @@ -947,7 +955,7 @@ - true + true true @@ -956,7 +964,7 @@ =Fields!UM.Value @@ -982,7 +990,7 @@ - true + true true @@ -991,7 +999,7 @@ =Fields!Codigo.Value @@ -1016,17 +1024,17 @@ - - true + + true true - =Fields!SATClaveProdServ.Value + =Fields!SATClaveUM.Value @@ -1036,7 +1044,7 @@ - SATClaveProdServ + SATClaveUM @@ -1052,7 +1060,7 @@ - true + true true @@ -1061,7 +1069,7 @@ =Fields!PS.Value & System.Environment.NewLine & IIF(Fields!Obs.Value <> "","Observaciones: ","") & Fields!Obs.Value @@ -1085,7 +1093,7 @@ - true + true true @@ -1094,8 +1102,9 @@ =Fields!PU.Value @@ -1117,17 +1126,17 @@ - - true + + true true - + =Fields!PorcentajeIVA.Value - Descuento + PorcentajeIVA @@ -1155,7 +1164,7 @@ - true + true true @@ -1164,7 +1173,7 @@ =Fields!Descuento.Value