From 95f6d16cd88b349cc7d3ddb0cf66dd4572c83699 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 20 Jan 2022 15:06:54 -0700 Subject: [PATCH 01/32] -- descuento de condiciones comerciales en distribuidor, en PV, no solo los generales --- Ventas/PV.aspx.vb | 30 +++++++++++++++++++----------- 1 file changed, 19 insertions(+), 11 deletions(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 0bc56af0b..ab804f1be 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -4008,20 +4008,20 @@ Partial Class PV DdlUnidadMedida.SelectedValueExist(drPS("CveUnidadMedida").ToString) 'SUGIERE PRECIO - Dim PrecioSugerido = 0.0 - PrecioSugerido = drPS("Precio").ToString.ToDouble + Dim PrecioSugerido As Decimal = 0 + PrecioSugerido = drPS("Precio").ToString.ToDecimal If UsuarioActual.CveEmpresa.Contiene(80, 119) Then Dim CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero If CvePrecioListaPS > 0 Then Dim ObjPS As New ClsProductosServicios If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then - PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDouble + PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal If PrecioSugerido = 0 Then Dim ObjInventarios As New ClsInventarios Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero) ObjInventarios.Dispose() - Dim PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDouble + Dim PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDecimal If CostoPS > 0 And PorcentajePrecio > 0 Then PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS End If @@ -4034,7 +4034,7 @@ Partial Class PV If UsuarioActual.CveEmpresa.Contiene(1) Then Dim ObjPS As New ClsProductosServicios If ObjPS.GetPorcentajeProductos(CveCliente) Then - Dim PrecioAplicado = ObjPS.DtResultados.FiltraParametros($"CvePS = {CvePSParametro}").FiltroPrimeroValor("PrecioA").ToDouble + Dim PrecioAplicado As Decimal = ObjPS.DtResultados.FiltraParametros($"CvePS = {CvePSParametro}").FiltroPrimeroValor("PrecioA").ToDecimal If PrecioAplicado > 0 Then PrecioSugerido = PrecioAplicado End If @@ -4046,7 +4046,7 @@ Partial Class PV Dim TipoPrecioLista As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero ' si es 10. primero el cliente Dim CvePrecioListaPS As Integer - Dim PorcentajePrecio As Double = 0 + Dim PorcentajePrecio As Decimal = 0 If TipoPrecioLista = 10 Then CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() @@ -4063,15 +4063,15 @@ Partial Class PV If CvePrecioListaPS > 0 Then Dim ObjPS As New ClsProductosServicios If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then - PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDouble - PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDouble + PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal + PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDecimal End If ObjPS.Dispose() End If If PrecioSugerido = 0 Then Dim ObjInventarios As New ClsInventarios - Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1) + Dim CostoPS As Decimal = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, DdlSubProyectoDatos.SelectedValue.ToEntero(), CveTipoAlmacen:=1) 'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, TxtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1) ObjInventarios.Dispose() @@ -4124,9 +4124,13 @@ Partial Class PV End If 'Descuento por clasificación - If drPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515) Then - TxtDescuento.Text = (PrecioSugerido * ClasificacionesDescuentos(drPS("CveClasificacion").ToString.ToEntero)).ToString("F2") + Dim ObjDescuento As New Descuentos + + ObjDescuento = CalcularDescuentos(CvePSParametro, TxtCantidad.Text.Trim.ToDecimal, PrecioSugerido) + If ObjDescuento.EsPUModificado Then + PrecioSugerido = ObjDescuento.PU End If + TxtDescuento.Text = ObjDescuento.ImporteDescuento.ToString("N2") HdnDescuentoOriginal.Value = TxtDescuento.Text.ToDecimal().ToString() LblDescuentoIncluido.Text = TxtDescuento.Text.ToDecimal().FormatoNumero(2) @@ -4317,6 +4321,10 @@ Partial Class PV End If End If + Else + If DrPS("CveClasificacion").ToString.ToEntero.Contiene(20516, 20515) Then + Descuento = PU * ClasificacionesDescuentos(DrPS("CveClasificacion").ToString.ToEntero) + End If End If ObjDescuento.ImporteDescuento = Descuento From 9eb739493e720acb2187157792f057c1e40c83cc Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 20 Jan 2022 15:07:33 -0700 Subject: [PATCH 02/32] =?UTF-8?q?visualizaci=C3=B3n=20litraje?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ProductosServicios.aspx | 12 +++++++++--- Ventas/ProductosServicios.aspx.vb | 3 +++ 2 files changed, 12 insertions(+), 3 deletions(-) diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 6f716c614..8c5172390 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -105,18 +105,18 @@
-
+
-
+
-
+
@@ -263,6 +263,12 @@
+
+ + <%----%> + + +



diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index ce0d2c41a..386782326 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -245,6 +245,8 @@ Partial Class ProductosyServicios If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then DivPSAdicionalVigencia.Visible = True divCodigo2.Visible = True + divLitraje.Visible = True + CargaPSAdicionalesVigencias() End If @@ -846,6 +848,7 @@ Partial Class ProductosyServicios TxtCodigo2.Text = ObjProductosServicios.Codigo2 TxtCodigoBarras.Text = ObjProductosServicios.CodigoBarras CodigoBarrasCargado = ObjProductosServicios.CodigoBarras + TxtLitraje.Text = ObjProductosServicios.DtResultados.Rows(0)("Litraje").ToString TxtPS.Text = ObjProductosServicios.PS TxtPrecio.Text = ObjProductosServicios.Precio.ToString("F4") 'no usa N4, porque pone comma From 3feed796ca20cdcdedd1b1dbc478cd3e16536988 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 20 Jan 2022 15:08:05 -0700 Subject: [PATCH 03/32] vendedor sin asignar --- Ventas/RepProductosServiciosDetalle.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index 022ce96af..fa113c939 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -305,7 +305,7 @@ Partial Class Ventas_RepProductosServiciosDetalle CveCliente = If(Request("CveCliente") IsNot Nothing AndAlso Request("CveCliente").ToEntero() > 0, Request("CveCliente").ToEntero(), -1).ToString.ToEntero CveSubProyectoEjecucion = If(Request("CveSubProyectoEjecucion") IsNot Nothing AndAlso Request("CveSubProyectoEjecucion").ToEntero() > 0, Request("CveSubProyectoEjecucion").ToEntero(), -1).ToString - CveVendedor = If(Request("CveVendedor") IsNot Nothing AndAlso Request("CveVendedor").ToEntero() > 0, Request("CveVendedor").ToEntero(), -1).ToString.ToEntero + CveVendedor = If(Request("CveVendedor") IsNot Nothing AndAlso Request("CveVendedor").ToEntero() >= 0, Request("CveVendedor").ToEntero(), -1).ToString.ToEntero CveEstatus = If(Request("CveEstatus") IsNot Nothing AndAlso Request("CveEstatus").ToEntero() > 0, Request("CveEstatus").ToEntero(), -1).ToString CveUsuario = If(Request("CveUsuario") IsNot Nothing AndAlso Request("CveUsuario").ToEntero() > 0, Request("CveUsuario").ToEntero(), -1).ToString TipoDocto = If(Request("TipoDocto") IsNot Nothing AndAlso Request("TipoDocto").ToString() <> "-1", Request("TipoDocto").ToString(), "-1").ToString @@ -421,6 +421,7 @@ Partial Class Ventas_RepProductosServiciosDetalle 'DdlClientes.SelectedValueExist(CveCliente) DdlSubProyectoEjecucion.SelectedValueExist(CveSubProyectoEjecucion) + If CveVendedor = 0 Then DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0")) DdlVendedor.SelectedValueExist(CveVendedor) DdlUsuario.SelectedValueExist(CveUsuario) DdlTipoComprobante.SelectedValuesIfExistM(TipoDocto) From 8d29c7e9b2c7c12cd0eb4d5a82398177bcdb79f8 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 20 Jan 2022 15:08:23 -0700 Subject: [PATCH 04/32] incluye anticipos --- CxC/RepCxC.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index 5baadfd42..da8b8d323 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -347,7 +347,7 @@
- +
From fe9348ccb07af64f25b6da403641b97822c7f729 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 20 Jan 2022 15:14:07 -0700 Subject: [PATCH 05/32] Devoluciones almacen --- Compras/Compras.aspx.vb | 51 ++++++++++++++++++++++++++++++++---- Inventarios/CatUnidades.aspx | 2 +- 2 files changed, 47 insertions(+), 6 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 1cf5bd836..a7e2bb239 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3989,7 +3989,7 @@ Partial Class Compras_Compras - + Dim TotalRealDevolucion As Decimal = 0 Dim EstatusCredito As Integer = 0 Dim CveSubProyecto As Integer = 0 @@ -4689,6 +4689,8 @@ Partial Class Compras_Compras If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then Devolucion = guardardevolucion(ObjInventario, ObjCompras.CveCompra, TxtSubTotal.Text.ToDecimal, TxtFecha.Text.Trim.ToDate) + TotalRealDevolucion = Devolucion.Total + TieneError = Devolucion.TieneError End If Dim ErrorDetalles As Boolean = False @@ -6856,12 +6858,29 @@ Partial Class Compras_Compras End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then + + Dim DiferenciaDevolucion As Decimal = importeMovimiento - TotalRealDevolucion + + If Math.Abs(DiferenciaDevolucion) > 0 Then + + + Dim CveSubProyecto69 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero + Dim CveClasificacion69 As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero + + + Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacion69}").ToString.ToEntero + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaDevolucion, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then + ErrorPrepoliza = True + End If + End If + + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TotalRealDevolucion, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=TotalRealDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If + End If - - End If @@ -14262,6 +14281,11 @@ Partial Class Compras_Compras '*se envia true si hubo un error*' Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Decimal, Fecha As Date) As MMensajeDevolucion + + + Dim TotalSumaPU As Decimal = 0.0D + + Dim ErrorMovInv As Boolean = False Dim CveAlmacen As Integer = DdlAlmacenDevolucion.SelectedValue.ToEntero() Dim subtotaldevolucion As Double = 0 @@ -14271,6 +14295,7 @@ Partial Class Compras_Compras Dim cantidad As Double = 0.0 Dim TotalAlmacen As Decimal = 0 + For Each Dr As GridViewRow In GVDevolucion.Rows 'CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble @@ -14309,6 +14334,7 @@ Partial Class Compras_Compras PU = (((Dr.FCTextBox("TxtCantidad").Text.ToDecimal * Dr.DataKey("PU").ToString.ToDecimal)) + dif) / Dr.FCTextBox("TxtCantidad").Text.ToDecimal End If + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr.FCTextBox("TxtCantidad").Text.ToDouble, Dr.DataKey("CveUM").ToString.ToEntero, Dr.DataKey("CvePS").ToString.ToEntero, PU, -1, CveMovimientoDetalleEntrada:=Dr.DataKey("CveMovimientoDetalle").ToString.ToEntero) Then ErrorMovInv = True Exit For @@ -14323,12 +14349,26 @@ Partial Class Compras_Compras End If End If + + + If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1, -1) Then + + For Each drow As DataRow In ObjInventario.DtResultados.Rows + TotalSumaPU = TotalSumaPU + drow("Total").ToString.ToDecimal + Next + + End If + + + Return New MMensajeDevolucion() With { .CveMovimiento = CveMovimientoEntrada, .DebeRealizarDevolucion = realizadevolucion, - .TieneError = ErrorMovInv + .TieneError = ErrorMovInv, + .Total = TotalSumaPU } + End Function Private Sub cargaddldevoluciones(CveProveedor As Integer, SubTotal As Double) @@ -21032,4 +21072,5 @@ Public Class MMensajeDevolucion Public Property CveMovimiento As Integer Public Property TieneError As Boolean Public Property DebeRealizarDevolucion As Boolean + Public Property Total As Decimal End Class \ No newline at end of file diff --git a/Inventarios/CatUnidades.aspx b/Inventarios/CatUnidades.aspx index e2c405e14..30f742231 100644 --- a/Inventarios/CatUnidades.aspx +++ b/Inventarios/CatUnidades.aspx @@ -35,7 +35,7 @@ + EmptyDataText="No se Encontraron Unidades" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" CellSpacing="0" data-sort="true" Style=" width: 100%" GridLines="None"> From 5fd7144541c5ce4eadafb218c34e0ed7027b6834 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 20 Jan 2022 15:41:27 -0700 Subject: [PATCH 06/32] Validacion en recepcion de usados --- Inventarios/RecepcionUsados.aspx | 2 +- Inventarios/RecepcionUsados.aspx.vb | 11 ++++++++--- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/Inventarios/RecepcionUsados.aspx b/Inventarios/RecepcionUsados.aspx index 6d02158f6..f555b67ce 100644 --- a/Inventarios/RecepcionUsados.aspx +++ b/Inventarios/RecepcionUsados.aspx @@ -568,7 +568,7 @@
- +
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index 968f80443..2c20baccc 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -3278,6 +3278,11 @@ Partial Class Inventarios_RecepcionUsados End If End Sub Protected Sub DdlMarcaPSAjuste_SelectedIndexChanged(sender As Object, e As EventArgs) + If DdlAlmacen.SelectedValue.ToEntero() <= 0 Then + Alert("Debe selecionar un almacen", TipoMensaje.MsgAdvertencia) + UpAjuste.Update() + Exit Sub + End If CargaPSAjuste(-1, DdlPSAjuste, CveMarca:=DdlMarcaPSAjuste.SelectedValue.ToEntero()) UpAjuste.Update() End Sub @@ -3290,7 +3295,7 @@ Partial Class Inventarios_RecepcionUsados Objeto.ddl.Items.Insert(0, New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2")) Objeto.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) Else - Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}") + Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue.ToEntero()}") Objeto.Attributes.Add("data-cvesubproyecto", CveSubProyecto) 'Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString) @@ -3318,8 +3323,8 @@ Partial Class Inventarios_RecepcionUsados End If Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - Dim DtDatos As New DataTable + Dim logouri = String.Format("{0}//{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim DtDatos As New DataTable Dim params As New List(Of ReportParameter) From b4443fb0d8ef0604419afb1b862ebfd2305d9ad9 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 20 Jan 2022 15:42:32 -0700 Subject: [PATCH 07/32] Cambios en formatos de usados y traslado --- Compras/PopUpVerFactura.aspx.vb | 13 +- Empresas/140/Formatos/Traslado.rdlc | 107 +- Empresas/140/Formatos/UsadosEntradas.rdlc | 1273 +++++++++++++++++++++ 3 files changed, 1377 insertions(+), 16 deletions(-) create mode 100644 Empresas/140/Formatos/UsadosEntradas.rdlc diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 4ec533836..e10a3197b 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -4211,19 +4211,24 @@ Partial Class PopUpVerFactura End If ObjAcum.Dispose() - Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2)) - Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1) + 'Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2)) + 'Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1) - Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today)) + 'Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today)) Dim params As New List(Of ReportParameter) params.Add(New ReportParameter("Direccion", Almacen)) - params.Add(New ReportParameter("FechaConFormato", FechaConFormato)) + params.Add(New ReportParameter("FechaConFormato", Now.ToString("dd/MM/yyyy"))) 'params.Add(New ReportParameter("FechaInicial", Fecha)) 'params.Add(New ReportParameter("FechaFinal", Today.ToString("dd/MM/yyyy"))) params.Add(New ReportParameter("Sucursal", "Sucursal")) params.Add(New ReportParameter("Cliente", NombreCliente)) + params.Add(New ReportParameter("Folio", Folio)) + params.Add(New ReportParameter("FechaImpresion", Now.ToString("dd/MM/yyyy hh:mm tt"))) + params.Add(New ReportParameter("Recibio", Recibio)) + params.Add(New ReportParameter("Observaciones", Observaciones)) + 'params.Add(New ReportParameter("Observaciones", "Observaciones con un tamaño mas grande para ver como se ve en el ticket chico.")) ImprimirPDF(String.Format("Empresas/{0}/Formatos/UsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios") Case 7 diff --git a/Empresas/140/Formatos/Traslado.rdlc b/Empresas/140/Formatos/Traslado.rdlc index 722441982..85672b3ae 100644 --- a/Empresas/140/Formatos/Traslado.rdlc +++ b/Empresas/140/Formatos/Traslado.rdlc @@ -15,7 +15,10 @@ 2.19837cm - 8.85259cm + 6.04844cm + + + 2.80415cm 1.41521cm @@ -196,6 +199,48 @@ + + + + true + true + + + + + Serie + + + + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + @@ -420,6 +465,39 @@ + + + + true + true + + + + + =Fields!Serie.Value + + + + + + + Serie + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + @@ -500,6 +578,7 @@ + @@ -611,7 +690,7 @@ 0.72418in @@ -733,9 +812,9 @@ Textbox4 0.63803cm - 17.07518cm + 16.74886cm 0.6cm - 1.2347cm + 2.82632cm 3 Textbox5 0.03803cm - 17.07518cm + 16.74886cm 0.6cm - 1.18203cm + 1.50835cm 4 + + + + + + Textbox7 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Código + + + + + + + Textbox9 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Descripción + + + + + + + Textbox11 + + + + Black + + 1pt + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.32cm + + + + + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + true + + + + + =Fields!PS.Value + + + + + + 2pt + 2pt + =IIf(RowNumber(Nothing)=1,"1pt","0pt") + + + + + + + + + + + + + + + + + + + After + + + + + + + DsInventarios + 0.74054cm + 2.9in + + + + + + 0.29155in + + + + + 2.9in + + + 1.01598in + true + true + + + true + true + + + + + BDH BATERÍAS DISTRIBUCIONES DE HERMOSILLO S.A. DE C.V. + + + + + + + + + =Parameters!Direccion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + =Parameters!FechaConFormato.Value + + + + + + + + + + + FechaConFormato + 1.64702cm + 4.45513cm + 0.4473cm + 2.91087cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Entradas de Usados + + + + + + + Textbox37 + 1.16344cm + 0.38833cm + 7.366cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Folio: + + + + =Parameters!Folio.Value + + + + + + + Textbox37 + 1.64932cm + 0.4473cm + 4.45513cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo2 + Fit + 0.00031in + 0.00522in + 0.3541in + 0.69825in + 4 + + + + + + true + + + + + Cliente: + + + + =Parameters!Cliente.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.59803in + true + true + + + 1.143cm + 0cm + 2.9in + + + + + + true + true + + + + + Fecha Impresión: + + + + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + + + + + Recibió: + + + + =Parameters!Recibio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.03454cm + 0cm + 2.9in + 3 + + 0.5pt + + + + + true + + + + + Observaciones: + + + + =Parameters!Observaciones.Value + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 3.1in + 3.1in + 0.1in + 0.1in + 0.2in + 0.05118in +