diff --git a/Acumuladores/Tamaños.aspx.vb b/Acumuladores/Tamaños.aspx.vb index 87ea660b7..1ad466ef6 100644 --- a/Acumuladores/Tamaños.aspx.vb +++ b/Acumuladores/Tamaños.aspx.vb @@ -137,6 +137,7 @@ Partial Class Acumuladores_Tamaños UpGral.Update() Alert("Tamaño Agregado Correctamente", TipoMensaje.MsgInformacion) + GlobalDTAcumTamaños(UsuarioActual.CveEmpresa) = Nothing Else Alert("Ocurrio un error al guardar el Tamaño", TipoMensaje.MsgError) End If @@ -156,6 +157,7 @@ Partial Class Acumuladores_Tamaños UpGral.Update() Alert("Tamaño Actualizado Correctamente", TipoMensaje.MsgInformacion) + GlobalDTAcumTamaños(UsuarioActual.CveEmpresa) = Nothing Else Alert("Ocurrio un error al Actualizar el Tamaño", TipoMensaje.MsgError) End If diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 3aee4f3d4..0f4eea25a 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1631,7 +1631,7 @@ Public Class ClsVentas Return Retorno End Function - Public Function UpdateVentaDetalleRemision(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, IEPS As Decimal, PorcentajeIEPS As Decimal, IVA As Decimal, PorcentajeIVA As Decimal, Descuento As Decimal, Observaciones As String, Optional CveUsuarioModifico As Integer = -1) As Boolean + Public Function UpdateVentaDetalleRemision(CveVenta As Integer, CvePS As Integer, Cantidad As Decimal, PU As Decimal, IEPS As Decimal, PorcentajeIEPS As Decimal, IVA As Decimal, PorcentajeIVA As Decimal, Descuento As Decimal, Observaciones As String, Optional CveUsuarioModifico As Integer = -1, Optional CvePromocionDetalle As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasDetalleRemisionUpdate") @@ -1647,6 +1647,7 @@ Public Class ClsVentas .Add("@Descuento", SqlDbType.Decimal).Value = Descuento .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico + .Add("@CvePromocionDetalle", SqlDbType.Int).Value = CvePromocionDetalle End With Try diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index d81e49fd9..e8fd53eae 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -846,7 +846,7 @@ Namespace Extensiones Dim buttonParameters As Newtonsoft.Json.Linq.JArray = New Newtonsoft.Json.Linq.JArray( New Newtonsoft.Json.Linq.JObject( New Newtonsoft.Json.Linq.JProperty("type", "text"), - New Newtonsoft.Json.Linq.JProperty("text", "https://sig.adssistemas.mx.com/Clientes/Clientes.aspx?CveCliente=1") + New Newtonsoft.Json.Linq.JProperty("text", LigaBoton) ) ) ' Crear el componente "button" diff --git a/Bancos/DepositosCaja.aspx b/Bancos/DepositosCaja.aspx index 3bebf5677..e26f6c71c 100644 --- a/Bancos/DepositosCaja.aspx +++ b/Bancos/DepositosCaja.aspx @@ -180,7 +180,7 @@
- + diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index 773b538be..e060b3de8 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -234,6 +234,12 @@ Partial Class Bancos_DepositosCaja TotalImporte = TotalImporte - TxtComisionIntermediario.Text.ToDecimal - IVA End If + If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso TotalImportePrePoliza = 0 Then + Alert("No se ha especificado un importe a depositar.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Dim OcurrioError As Boolean = False Dim NuevaCvePrePoliza As Integer @@ -621,6 +627,8 @@ Partial Class Bancos_DepositosCaja DDlMesesSinIntereses.Visible = False End If DDlMesesSinIntereses.SelectedValue = "-1" + + UPPFiltros.Update() End Sub Private Function ImpresionDirectaPDF(CveIEOrigen As Integer, CvePrePoliza As Integer) As String diff --git a/Bancos/RepCortes.aspx.vb b/Bancos/RepCortes.aspx.vb index 86d87a132..177d8cb61 100644 --- a/Bancos/RepCortes.aspx.vb +++ b/Bancos/RepCortes.aspx.vb @@ -113,11 +113,11 @@ Partial Class Bancos_RepCortes End If Else If UsuarioActual.CveRol = 1 Then - If e.Row.DBCampo("VentasCorte").ToDecimal.RoundSQL <> e.Row.DBCampo("VentaTotalIngreso").ToDecimal + e.Row.DBCampo("VentaTotalRemision").ToDecimal.RoundSQL Then + If e.Row.DBCampo("VentasCorte").ToDecimal <> e.Row.DBCampo("VentaTotalIngreso").ToDecimal + e.Row.DBCampo("VentaTotalRemision").ToDecimal Then e.Row.Cells(2).ForeColor = Drawing.Color.Red e.Row.Cells(2).ToolTip = (e.Row.DBCampo("VentasCorte").ToDecimal - (e.Row.DBCampo("VentaTotalIngreso").ToDecimal + e.Row.DBCampo("VentaTotalRemision").ToDecimal)).ToString End If - If e.Row.DBCampo("VentasCorte").ToDecimal.RoundSQL <> e.Row.DBCampo("VentasContado").ToDecimal + e.Row.DBCampo("VentasCredito").ToDecimal.RoundSQL Then + If e.Row.DBCampo("VentasCorte").ToDecimal <> e.Row.DBCampo("VentasContado").ToDecimal + e.Row.DBCampo("VentasCredito").ToDecimal Then e.Row.Cells(6).ForeColor = Drawing.Color.Red e.Row.Cells(6).ToolTip = (e.Row.DBCampo("VentasCorte").ToDecimal - (e.Row.DBCampo("VentasContado").ToDecimal + e.Row.DBCampo("VentasCredito").ToDecimal)).ToString End If @@ -280,18 +280,29 @@ Partial Class Bancos_RepCortes GvP.DataBind() GvDep.DataBind() GvPorIVA.DataBind() - GvIngresosRetiros.DataBind() - + GvIngresosRetiros.DataBind() + If UsuarioActual.CveEmpresa.Contiene(189, 193, 195, 196, 197) Then - DivAnexo.Visible = True Dim CveCuenta As Integer = 0 - CveCuenta = If(UsuarioActual.CveEmpresa = 193, 186367, 0) - If DdlSubProyectos.SelectedValue = "12756" Then 'nav - CveCuenta = 188796 - End If - If DdlSubProyectos.SelectedValue = "12755" Then 'hillo - CveCuenta = 188795 + 'obtener relación contable + Dim objC As New ClsContabilidad + If objC.GetCuentasAsignaciones(UsuarioActual.CveEmpresa, 30) Then + 'obtengo la cvecuentabancaria + Dim tCveBancoCuenta As Integer = GlobalDTBancosCuentasGral(UsuarioActual.CveEmpresa, Estatus:=-1, CveTipoCuenta:=1).FiltroPrimeroValor("CveCuenta", $"CveSubProyecto = {DdlSubProyectos.SelectedValue}").ToEntero + CveCuenta = objC.DtResultados.FiltroPrimeroValor("CveCuenta", $"CveBancoCuenta = {tCveBancoCuenta}").ToEntero End If + objC.Dispose() + + DivAnexo.Visible = True + + 'CveCuenta = If(UsuarioActual.CveEmpresa = 193, 186367, 0) + 'If DdlSubProyectos.SelectedValue = "12756" Then 'nav + ' CveCuenta = 188796 + 'End If + 'If DdlSubProyectos.SelectedValue = "12755" Then 'hillo + ' CveCuenta = 188795 + 'End If + 'obtener la cuen Using ObjConta As New ClsContabilidad If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 1f0d383e7..2fe6da977 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -5585,6 +5585,9 @@ Partial Class Compras_Compras Dim listalmacenes As List(Of Integer) = (From cvealmacen In DtInv.AsEnumerable() Where cvealmacen.Field(Of Integer)("cvealmacen") > 0 Select cvealmacen.Field(Of Integer)("cvealmacen")).Distinct().ToList For Each tcvealmacen As Integer In listalmacenes + + Dim ObsGDiaz As String = If(EsGrupoDiaz, TxtObsFact.Text, "") + If GvInv.Rows(indice).FCDropDownList("ddlrecibirinv").SelectedValue = "1" Then Continue For End If @@ -5594,7 +5597,7 @@ Partial Class Compras_Compras If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS() folio = ObjInventario.GetFolioSiguiente(2, UsuarioActual.CveEmpresa) - cvemovimientoentrada = ObjInventario.AddMovimiento(tcvealmacen, 2, 1, fecha, folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Comp/G4") + cvemovimientoentrada = ObjInventario.AddMovimiento(tcvealmacen, 2, 1, fecha, folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Comp/G4", Observaciones:=ObsGDiaz) If cvemovimientoentrada <= 0 Then ErrorMovInv = True Exit For @@ -5618,7 +5621,7 @@ Partial Class Compras_Compras 'agregamos la salida folio = ObjInventario.GetFolioSiguiente(3, UsuarioActual.CveEmpresa) - cvemovimientosalidagasto = ObjInventario.AddMovimiento(tcvealmacen, 3, DdlMoneda.SelectedValue.ToEntero, fecha.AddSeconds(1), folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, Modulo:="Comp/G3") + cvemovimientosalidagasto = ObjInventario.AddMovimiento(tcvealmacen, 3, DdlMoneda.SelectedValue.ToEntero, fecha.AddSeconds(1), folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, Modulo:="Comp/G3", Observaciones:=ObsGDiaz) If cvemovimientosalidagasto <= 0 Then ErrorMovInv = True Exit For @@ -5684,6 +5687,8 @@ Partial Class Compras_Compras If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then + Dim ObsGDiaz As String = If(EsGrupoDiaz, TxtObsFact.Text, "") + For Each tCveAlmacen As Integer In ListAlmacenes If GvInv.Rows(indice).FCDropDownList("DdlRecibirInv").SelectedValue = "1" Then Continue For @@ -5693,7 +5698,7 @@ Partial Class Compras_Compras Dim fecha As Date = TxtFecha.Text.ToDate If Not UsuarioActual.Empresa.UsaAC Then fecha = NowADS() - CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2", CveEntregaAlmacen:=tCveEntregaAlmacen) + CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2", CveEntregaAlmacen:=tCveEntregaAlmacen, Observaciones:=ObsGDiaz) If CveMovimientoInventario <= 0 Then ErrorMovInv = True diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index ad5b9c958..87b1c600a 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1599,7 +1599,7 @@ Partial Class PopUpVerFactura Dim Fecha As String = "", Nombre As String = "" Dim OpcionDetallado As Integer = 1 - If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then OpcionDetallado = 2 + If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa.Contiene(197, 189) Then OpcionDetallado = 2 Dim ConsultaPorSucursal As Boolean = UsuarioActual.Empresa.Funcionalidad(382) = "1" @@ -1628,7 +1628,6 @@ Partial Class PopUpVerFactura End If End If - If DtCortesVentas.Rows.Count > 0 Then Dim RowInfo As DataRow = DtCortesVentas.FiltroPrimero("CveVenta > 0") @@ -1639,7 +1638,7 @@ Partial Class PopUpVerFactura End If - If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then + If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa.Contiene(189, 197) Then If ConsultaPorSucursal Then If ObjVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaConsulta, FechaConsulta, CveSubProyecto) Then DtReporteCorte = ObjVenta.DtResultados.FiltraParametros("FechaInicial IS NOT NULL") @@ -1693,7 +1692,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}")) params.Add(New ReportParameter("LogoPath", RutaImagenLogo)) - If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then + If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa.Contiene(189, 197) Then If DtReporteCorte IsNot Nothing Then Dim dtDatos = DtReporteCorte.Clone() dtDatos.ImportRow(DtReporteCorte.Rows(0)) @@ -1839,21 +1838,29 @@ Partial Class PopUpVerFactura lrds.Add(rds5) - If UsuarioActual.CveEmpresa.Contiene(197, 193) Then + If UsuarioActual.CveEmpresa.Contiene(197, 193, 189) Then Dim CveCuenta As Integer = -1 - If UsuarioActual.CveEmpresa = 193 Then - CveCuenta = 186367 - Else - CveCuenta = 0 - - If CveSubProyecto = 12756 Then 'nav - CveCuenta = 188796 - End If - - If CveSubProyecto = 12755 Then 'hillo - CveCuenta = 188795 - End If + 'obtener relación contable + Dim objC As New ClsContabilidad + If objC.GetCuentasAsignaciones(UsuarioActual.CveEmpresa, 30) Then + 'obtengo la cvecuentabancaria + Dim tCveBancoCuenta As Integer = GlobalDTBancosCuentasGral(UsuarioActual.CveEmpresa, Estatus:=-1, CveTipoCuenta:=1).FiltroPrimeroValor("CveCuenta", $"CveSubProyecto = {CveSubProyecto}").ToEntero + CveCuenta = objC.DtResultados.FiltroPrimeroValor("CveCuenta", $"CveBancoCuenta = {tCveBancoCuenta}").ToEntero End If + objC.Dispose() + 'If UsuarioActual.CveEmpresa = 193 Then + ' CveCuenta = 186367 + 'Else + ' CveCuenta = 0 + + ' If CveSubProyecto = 12756 Then 'nav + ' CveCuenta = 188796 + ' End If + + ' If CveSubProyecto = 12755 Then 'hillo + ' CveCuenta = 188795 + ' End If + 'End If If CveCuenta >= 0 Then Using ObjConta As New ClsContabilidad @@ -1868,7 +1875,6 @@ Partial Class PopUpVerFactura Dim rdsDepositos As New ReportDataSource With {.Name = "DsDepositos", .Value = DtDepositos} lrds.Add(rdsDepositos) End If - End If 'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString())) @@ -1885,7 +1891,6 @@ Partial Class PopUpVerFactura Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas} lrds.Add(rds2) - ImprimirPDF(DirFormato, lrds, params, "ReporteCortes", Formato) End If @@ -3092,11 +3097,9 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("Folio", Folio)) params.Add(New ReportParameter("FacturaProveedor", If(CveCompra > 0, dr("SerieFolio").ToString, ""))) - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then - params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) - Else - params.Add(New ReportParameter("Fecha", Fecha)) - End If + + params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("dd/MM/yyyy"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) + If UsuarioActual.CveEmpresa = 72 Then params.Add(New ReportParameter("CveTipoAlmacen", CveTipoAlmacen.ToString())) @@ -3120,13 +3123,24 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("TelefonoProveedor", If(CveCompra > 0, dr("Telefono").ToString, ""))) params.Add(New ReportParameter("ContactoProveedor", If(CveCompra > 0, dr("ContactoNombre").ToString, ""))) params.Add(New ReportParameter("ImporteLetra", String.Format("({0})", DtMovimientos.SUM("Total").ToString.ToDecimal.Texto2Letras(CveMoneda).ToUpper))) - params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble).FormatoNumero, ""))) + params.Add(New ReportParameter("SubTotal", If(CveCompra > 0, (dr("SubTotal").ToString.ToDouble - dr("Descuentos").ToString.ToDouble).FormatoNumero(2), ""))) params.Add(New ReportParameter("Descuentos", If(CveCompra > 0, (dr("Descuentos").ToString.ToDouble).FormatoNumero(2), ""))) params.Add(New ReportParameter("IVA", If(CveCompra > 0, (dr("IVA").ToString.ToDouble).FormatoNumero, ""))) params.Add(New ReportParameter("Total", If(CveCompra > 0, (dr("Total").ToString.ToDouble).FormatoNumero, ""))) + + params.Add(New ReportParameter("FechaFactura", If(CveCompra > 0, dr("Fecha").ToString.ToDate().ToString("dd/MM/yyyy"), ""))) + params.Add(New ReportParameter("SerieFolio", If(CveCompra > 0, dr("SerieFolio").ToString, ""))) + params.Add(New ReportParameter("Moneda", If(CveCompra > 0, dr("Moneda").ToString, ""))) + params.Add(New ReportParameter("Condicion", If(CveCompra > 0, (((dr("FechaVencimiento").ToString.ToDate - dr("Fecha").ToString.ToDate)).TotalDays).ToString, ""))) + params.Add(New ReportParameter("Saldo", If(CveCompra > 0, dr("Saldo").ToString.ToDouble.FormatoNumero(2), ""))) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario)) params.Add(New ReportParameter("NombreEntrego", String.Format("REVISÓ ALMACÉN{0}{1}", vbCrLf, Recibio))) params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ ALMACÉN{0}{1}", vbCrLf, Recibio))) + + params.Add(New ReportParameter("FechaVencimiento", If(CveCompra > 0, dr("FechaVencimiento").ToString.ToDate().ToString("dd/MM/yyyy"), ""))) + params.Add(New ReportParameter("NombreCapturo", If(CveCompra > 0, dr("NombreCapturo").ToString, ""))) + Else params.Add(New ReportParameter("NombreRecibio", String.Format(Recibio))) params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) diff --git a/Compras/RepComprasDetalle.aspx b/Compras/RepComprasDetalle.aspx index 4765f5ede..9173f4f06 100644 --- a/Compras/RepComprasDetalle.aspx +++ b/Compras/RepComprasDetalle.aspx @@ -302,138 +302,154 @@ + <%--0--%> - Fecha - + Fecha + <%--1--%> - Serie/Folio - + Serie/Folio - + <%--2--%> - Folio Fiscal - + Folio Fiscal - + <%--3--%> - Cant. - + Cant. + <%--4--%> - SubTotal - + SubTotal + <%--5--%> - IVA - + IVA + <%--6--%> - IEPS - + IEPS + <%--7--%> - Descuentos - + Descuentos + <%--8--%> + <%--9--%> + <%--10--%> - Total - + Total + <%--11--%> - Moneda - + Moneda - + <%--12--%> - Proveedor - + Proveedor + <%--13--%> - Folio Inv - + Folio Inv + <%--14--%> - Fecha Movimiento - + Fecha Movimiento + <%--15--%> - Observaciones - + Observaciones - + <%--16--%> + + + Descripción + + + + + + <%--17--%> + + + Almacén + + + + + @@ -521,7 +537,9 @@ - + + + diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index 6a69044fc..db983457b 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -380,7 +380,19 @@ Partial Class Compras_RepComprasDetalle params.Add(New ReportParameter("FechaImpresion", NowADS().ToString)) params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo}{Proveedor}{Capturo}{FechaIn}{FechaFn}{FechaCIn}{FechaCFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{TipoDocto}")) params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", ""))) - ImprimirPDF("Empresas/Grales/Formatos/RepComprasDetalle.rdlc", DtDatos, params, "ReporteComprasDetalles", Opcion) + + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\RepComprasDetalle.rdlc", UsuarioActual.Empresa.Ruta)) + + If Archivo.Exists Then + ImprimirPDF(Archivo.FullName, DtDatos, params, "ReporteComprasDetalles", Opcion) + Else + ImprimirPDF("Empresas/Grales/Formatos/RepComprasDetalle.rdlc", DtDatos, params, "ReporteComprasDetalles", Opcion) + End If + + + + Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) End If @@ -463,6 +475,7 @@ Partial Class Compras_RepComprasDetalle GvDatos.Columns(14).Visible = ChkFecha.Checked GvDatos.Columns(15).Visible = ChkObs.Checked GvDatos.Columns(16).Visible = ChkDescripcion.Checked + GvDatos.Columns(17).Visible = ChkAlmacen.Checked Personalizo = 1 If Personalizo = 1 Then diff --git a/Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc b/Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc index 0b0529c02..66e9b3b1a 100644 --- a/Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc +++ b/Empresas/186/Formatos/EtiquetaDeRecepcion.rdlc @@ -23,9 +23,9 @@ PS 0.14111cm - 2.48778cm - 1.1761cm - 6.93443cm + 2.49661cm + 1.11613cm + 6.06038cm @@ -186,10 +186,10 @@ Embedded Logo FitProportional - 1.5468cm - 8.2016cm + 1.40569cm + 8.55699cm 0.74287cm - 1.52823cm + 1.19402cm 6 + + Embedded + ImagendeWhatsApp20241231alas090549_f3f7f850 + FitProportional + 0.25428cm + 8.55699cm + 1.11613cm + 1.19402cm + 7 + + + + 0.92351in @@ -857,9 +857,9 @@ 1.53162cm - 0.17882cm + 0.14707cm 0cm - 19.11979cm + 21.07279cm 1 @@ -1445,11 +1449,15 @@ - =Fields!Abono.Value + =IIf( + Fields!Abono.Value = 0, + "", + Format(Fields!Abono.Value, "###,###,###.00") +) @@ -1540,14 +1548,17 @@ - + Total - Textbox30 @@ -1569,12 +1580,16 @@ - =Sum(Fields!Cargo.Value) + =IIf( + Sum(Fields!Cargo.Value) = 0, + "", + Format(Sum(Fields!Cargo.Value), "###,###,###.00") +) @@ -1602,12 +1617,16 @@ - =Sum(Fields!Abono.Value) + =IIf( + Sum(Fields!Abono.Value) = 0, + "", + Format(Sum(Fields!Abono.Value), "###,###,###.00") +) @@ -1654,9 +1673,9 @@ DsPrePoliza 2.33687cm - 0.18166cm + 0.14991cm 1.17898cm - 19.11695cm + 21.19397cm 5 + + + + + + + =Parameters!FechaFactura.Value + + + + + + + + + + + =Parameters!SerieFolio.Value + + + + + + + + + + + =Parameters!Moneda.Value + + + + + + + + + + + =Parameters!OCVinculada.Value + + + + @@ -1873,7 +1999,6 @@ : @@ -1881,7 +2006,6 @@ =Parameters!Folio.Value @@ -1916,7 +2040,7 @@ - Fecha: + Capturo: - =Parameters!Fecha.Value - - - - - - - - - Folio Factura del Proveedor: - - - - =Parameters!FacturaProveedor.Value + =Parameters!NombreCapturo.Value @@ -1961,8 +2063,8 @@ Textbox50 0.74112cm - 4.57254cm - 1.70222cm + 6.60454cm + 1.25419cm 14.64707cm 2 + + true + true + + + + + Fecha de Entrada: + + + + + + + + + + + + + + + + + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + + + =Parameters!FechaVencimiento.Value + + + + + + + + + =Parameters!Condicion.Value + + + + + + + + + =Parameters!SubTotal.Value + + + + + + + + + =Parameters!IVA.Value + + + + + + + + + =Parameters!Total.Value + + + + + + + + + =Parameters!Saldo.Value + + + + + + + Textbox2 + 2.13642cm + 18.06883cm + 2.87013cm + 3.15103cm + 5 + + =Parameters!CveTipoAlmacen.Value = "19" + + + + 2pt + 2pt + 2pt + 2pt + + - 2.08167cm + 2.34625cm true true @@ -2006,7 +2353,7 @@ 1.1404cm 0.05012cm 0cm - 19.16949cm + 21.20149cm - 2pt - 2pt - 2pt - 2pt @@ -2076,10 +2419,6 @@ - 2pt - 2pt - 2pt - 2pt @@ -2101,7 +2440,7 @@ Textbox12 1.22061cm - 7.7587cm + 8.7112cm 0.44125cm 2.68521cm 3 @@ -2137,7 +2476,7 @@ Textbox18 1.22061cm - 10.44391cm + 11.39641cm 0.44125cm 3.44953cm 4 @@ -2172,7 +2511,7 @@ Textbox3 1.22061cm - 15.59511cm + 17.50011cm 0.38981cm 3.61081cm 5 @@ -2205,7 +2544,7 @@ Textbox29 1.66186cm - 0.12912cm + 0.14991cm 0.41981cm 5.78083cm 6 @@ -2213,17 +2552,13 @@ - 2pt - 2pt - 2pt - 2pt 0.18344cm - 1.19476cm + 1.53738cm 0cm 5.13525cm