diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb index d4ca7b2e6..7680c1dcc 100644 --- a/Compras/RepProductosServicios.aspx.vb +++ b/Compras/RepProductosServicios.aspx.vb @@ -309,23 +309,25 @@ Partial Class Compras_RepProductosServicios If DdlGrupo.SelectedValue = "6" Then ' cuando es Año '-1/01 - If e.Row.DBCampo("Anio") = "-1/01" Then - FechaI = $"01/01/{e.Row.DBCampo("Anio")}" + If e.Row.DBCampo("Anio") = "-1" Then + FechaI = "-1" + FechaF = "-1" Else - FechaI = $"01/01/{e.Row.DBCampo("Anio")}".ToDate.FirstDayOfMonth.ToShortDateString + FechaI = $"01/01/{e.Row.DBCampo("Anio")}" + FechaF = $"01/12/{e.Row.DBCampo("Anio")}".ToDate.LastDayOfMonth.ToShortDateString End If - FechaF = $"01/12/{e.Row.DBCampo("Anio")}".ToDate.LastDayOfMonth.ToShortDateString End If If DdlGrupo.SelectedValue = "8" Then ' cuando es Año/Mes - If e.Row.DBCampo("AnioMes") = "-1/01" Then - FechaI = $"{e.Row.DBCampo("AnioMes")}/01" + If e.Row.DBCampo("AnioMes") = "-1" Then + FechaI = "-1" + FechaF = "-1" Else - FechaI = $"{e.Row.DBCampo("AnioMes")}/01".ToDate.FirstDayOfMonth.ToShortDateString + FechaI = $"{e.Row.DBCampo("AnioMes")}/01".ToDate.ToShortDateString + FechaF = $"{e.Row.DBCampo("AnioMes")}/01".ToDate.LastDayOfMonth.ToShortDateString End If - FechaF = $"{e.Row.DBCampo("AnioMes")}/01".ToDate.LastDayOfMonth.ToShortDateString End If @@ -337,9 +339,8 @@ Partial Class Compras_RepProductosServicios If Not e.Row.DBCampo("GpoID") = "1" Then e.Row.Cells(0).Text = String.Format("{1}", Liga, If(e.Row.DBCampo("GpoID") = "1", e.Row.DBCampo("Moneda"), e.Row.DBCampo("GPO"))) - e.Row.Cells(1).Text = String.Format("{1}", Liga, e.Row.DBCampo("Cantidad").FormatoNumero) End If - + e.Row.Cells(1).Text = String.Format("{1}", Liga, e.Row.DBCampo("Cantidad").FormatoNumero) 'Si son igual a cero se limpia el campo If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.Cells(2).Text = "" @@ -482,7 +483,7 @@ Partial Class Compras_RepProductosServicios params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString())) - params.Add(New ReportParameter("Filtros", $"{Proveedor}{FechaInicio}{FechaFin}{Grupo}{TipoGasto}{Categoria}{Clasificacion}{PS}{Proyecto}{Estatus}{Usuario}{TipoAF}{SubTipoAF}{AF}")) + params.Add(New ReportParameter("Filtros", $"{Grupo}{Proveedor}{FechaInicio}{FechaFin}{TipoGasto}{Categoria}{Clasificacion}{PS}{Proyecto}{Estatus}{Usuario}{TipoAF}{SubTipoAF}{AF}")) 'params.Add(New ReportParameter("Proveedor", DdlProveedor.SelectedItem.Text)) 'params.Add(New ReportParameter("FechaInicio", txtFechaI.Text)) 'params.Add(New ReportParameter("FechaFin", txtFechaF.Text)) diff --git a/Empresas/Grales/Formatos/RepProductosServiciosDetalleCompra.rdlc b/Empresas/Grales/Formatos/RepProductosServiciosDetalleCompra.rdlc index 25d996c63..e41a1122b 100644 --- a/Empresas/Grales/Formatos/RepProductosServiciosDetalleCompra.rdlc +++ b/Empresas/Grales/Formatos/RepProductosServiciosDetalleCompra.rdlc @@ -5,9 +5,6 @@ - - 1.60749cm - 1.70081cm @@ -15,73 +12,40 @@ 1.92431cm - 3.73987cm + 4.71883cm - 2.5cm + 1.41521cm - 4.74981cm + 2.95064cm - 1.3231cm + 1.69352cm - 2.88058cm + 1.84871cm - 1.70617cm + 1.65325cm 1.82697cm - 1.70625cm + 1.65333cm - 1.85343cm + 3.70551cm + + + 2.5cm 0.47879cm - - - - true - true - - - - - SerieFolio - - - - - - - Textbox4 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - @@ -163,7 +127,7 @@ - Proveedor + Producto/Servicio - - SerieFolio1 + Textbox4 + LightGrey + - =iif(Fields!CveCompra.Value = "", "#67809F", "Transparent") + Silver 2pt 2pt 2pt @@ -516,6 +478,11 @@ + + + + 0.42588cm + @@ -587,14 +554,14 @@ - + true true - =Fields!RazonSocial.Value + =IIf(Fields!CveCompra.Value <= 0, IIf(Fields!GPO.Value = "", Fields!SerieFolio.Value, Fields!GPO.Value),Fields!PS.Value) @@ -621,14 +588,14 @@ - + true true - =Fields!SubProyecto.Value + =Fields!CodigoAF.Value - - SubProyecto + CodigoAF1 @@ -655,14 +624,14 @@ - + true true - =Fields!PS.Value + =Fields!Clasificacion.Value @@ -690,81 +659,7 @@ - - true - true - - - - - =Fields!CodigoAF.Value - - - - - - - CodigoAF - - - =iif(Fields!CveCompra.Value = "", "#67809F", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Clasificacion.Value - - - - - - - Clasificacion - - - =iif(Fields!CveCompra.Value = "", "#67809F", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - + true true @@ -775,7 +670,7 @@ @@ -785,7 +680,7 @@ - PU + PU1 @@ -801,7 +696,7 @@ - + true true @@ -812,7 +707,7 @@ @@ -822,7 +717,7 @@ - Cantidad + Cantidad1 @@ -838,7 +733,8 @@ - + + true true @@ -858,7 +754,7 @@ - SubTotal + SubTotal1 @@ -874,7 +770,8 @@ - + + true true @@ -884,7 +781,7 @@ @@ -894,7 +791,116 @@ - Total1 + Total + + + =iif(Fields!CveCompra.Value = "", "#67809F", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!SerieFolio.Value + + + + + + + SubProyecto + + + =iif(Fields!CveCompra.Value = "", "#67809F", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + + + + + =Fields!RazonSocial.Value + + + + + + + RazonSocial1 + + + =iif(Fields!CveCompra.Value = "", "#67809F", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + + SubProyecto1 @@ -942,7 +948,7 @@ 0.70583cm 0.06614cm 0.90467cm - 27.51879cm + 27.59109cm @@ -1372,6 +1378,10 @@ GPO System.String + + Moneda + System.String + DataSet diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 76eba6639..7ffc1911c 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1533,7 +1533,6 @@ Partial Class General_SaldosIniciales Dim contadorMovimientos As Integer = 0 Dim listadoMovimientos As String = "" Dim mensajeError As String = "" - Dim banderRowCount As Integer = dt.Rows.Count Try For Each almacenSinRepetir As DataRow In dt.FiltraParametros("Almacen <> ''", DistinctColumns:={"Almacen"}).Rows Dim almacenActual As String = almacenSinRepetir("Almacen").ToString @@ -1545,10 +1544,9 @@ Partial Class General_SaldosIniciales contadorMovimientos += 1 For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' AND CveEmpresa = {UsuarioActual.CveEmpresa}") - - Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero - Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero - If CvePS > 0 Then + If RowPS IsNot Nothing Then + Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero + Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero If CveUM > 0 Then Dim Cantidad As Decimal = nuevaEntrada("Existencia").ToString.ToDecimal Dim Valor As Decimal = nuevaEntrada("Valor").ToString.ToDecimal @@ -1563,7 +1561,6 @@ Partial Class General_SaldosIniciales End If Else mensajeError = $"No se encontró el producto o servicio con código ""{nuevaEntrada("CodigoPS")}""" - Throw New Exception() End If Next Else diff --git a/Global.asax b/Global.asax index f69cea9f7..dcb70128c 100644 --- a/Global.asax +++ b/Global.asax @@ -183,7 +183,7 @@ 'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing - If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTEstatusIE") = Nothing + If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing ObjBancos.Dispose() diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index b2349edd5..cf78b510d 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1253,7 +1253,7 @@ Partial Class Clientes 'CargaFormaPago33() 'CargaComboCFDI() - 'LnkPorcentajePrecios.Visible = True + LnkPorcentajePrecios.Visible = True If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index c8c23ac17..29c2aca5d 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -130,7 +130,7 @@
-
+
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index efd4939a0..31ec53798 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -212,6 +212,14 @@ Partial Class ProductosyServicios InicializaEcommerce() + If UsuarioActual.CveEmpresa.Contiene(141) Then + 'DivDatos.Attributes("class") = "col-md-12" + + DivDdlTipo.Visible = True + DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();") + + End If + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then 'DivDatos.Attributes("class") = "col-md-12" TxtPS.Enabled = False