From 62d1c1fbde3adcae671f2fa7c2a322a47d02fd79 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Oct 2020 14:40:00 -0700 Subject: [PATCH 01/11] -- que seleccione el vendedor, si ya lo tiene asignado --- Inventarios/RepApartados.aspx.vb | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/Inventarios/RepApartados.aspx.vb b/Inventarios/RepApartados.aspx.vb index d2d984085..c6e777e22 100644 --- a/Inventarios/RepApartados.aspx.vb +++ b/Inventarios/RepApartados.aspx.vb @@ -35,7 +35,7 @@ Partial Class Inventarios_RepApartados DdlSubProyectos.DataBind() DdlSubProyectos.Items.Insert(0, New ListItem(" Todas ", "-1")) - If UsuarioActual.CveEmpresa = 119 Then + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlClientesWS.setEsWebService(True) Else DdlClientesWS.setEsWebService(False) @@ -44,15 +44,9 @@ Partial Class Inventarios_RepApartados DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1")) End If - If UsuarioActual.CveEmpresa = 119 Then - DdlClienteTraspasar.setEsWebService(True) - Else - DdlClienteTraspasar.setEsWebService(False) - DdlClienteTraspasar.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - DdlClienteTraspasar.DataBind() - DdlClienteTraspasar.ddl.Items.Insert(0, New ListItem("Todos", "-1")) - End If - + + DdlClienteTraspasar.setEsWebService(True) + Dim DTVendedores As New DataTable DTVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, True) DTVendedores.Merge(GlobalDTVendedores(UsuarioActual.CveEmpresa, False)) @@ -139,7 +133,13 @@ Partial Class Inventarios_RepApartados End If DdlClienteTraspasar.SelectedValue = "-1" - DdlClienteTraspasar.SelectedText = "Seleccione" + DdlClienteTraspasar.SelectedText = "Seleccione" + + + If UsuarioActual.CveVendedor > 0 AndAlso CveVendedor.ToEntero <= 0 Then + CveVendedor = UsuarioActual.CveVendedor.ToString + End If + DdlVendedor.SelectedValueExist(CveVendedor) DdlSubProyectos.SelectedValueExist(CveSucursal) From d7a7004d2cc6fdf05e2a28bfb1af958bf5b97726 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Oct 2020 14:40:26 -0700 Subject: [PATCH 02/11] - comentar un segundo mensaje de error --- Bancos/ProveedoresAbonar.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 284b693e4..74ddb3d8c 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -3258,7 +3258,7 @@ Partial Class Bancos_ProveedoresAbonar ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion) Else - Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError) + 'Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError) MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico" End If From 1f2682a218057591e18d45db26158e9de70348e3 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 27 Oct 2020 19:30:06 -0700 Subject: [PATCH 03/11] filtro por entradas y salidas --- Inventarios/KardexAlmacenHorizontal.aspx | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index 3ccaa1725..5a7f0a38e 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -200,7 +200,8 @@
- + +
From 5b761fad6c401d647d1201f110d964529b0716c8 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 27 Oct 2020 19:30:48 -0700 Subject: [PATCH 04/11] --acomodo de calendario en caducidad --- Inventarios/RecepcionAlmacen.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/RecepcionAlmacen.aspx b/Inventarios/RecepcionAlmacen.aspx index 44dbb2eb4..592ecfc4d 100644 --- a/Inventarios/RecepcionAlmacen.aspx +++ b/Inventarios/RecepcionAlmacen.aspx @@ -489,7 +489,7 @@ - + From a0019c52fcd737f2f00add6c2fd897b667744abe Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 27 Oct 2020 19:31:42 -0700 Subject: [PATCH 05/11] -- en cheque que se visualice la poliza contable en E141, y que tome las cuentas de conta sig --- Compras/PopUpVerFactura.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 8dd046ff6..20159e06d 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -3848,7 +3848,7 @@ Partial Class PopUpVerFactura Dr("Abono") = 0 DtMovimientosPoliza.Rows.Add(Dr) End If - ElseIf UsuarioActual.CveEmpresa = 119 Then + ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then Dim PreP As New ClsContabilidad If PreP.GetPrePolizasDetalle(-1, CveIE) Then DtMovimientosPoliza = New DataTable @@ -3861,8 +3861,8 @@ Partial Class PopUpVerFactura For Each drt As DataRow In PreP.DtResultados.Rows Dim Dr = DtMovimientosPoliza.NewRow - Dr("CODIGO") = drt("ContpaqCodigo") - Dr("Cuenta") = drt("ContpaqCuenta") + Dr("CODIGO") = drt("CuentaCodigo") + Dr("Cuenta") = drt("CuentaNombre") Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0") Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0") DtMovimientosPoliza.Rows.Add(Dr) From a42bac72d58b679836306beec54bbfbcc026439c Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 27 Oct 2020 19:44:26 -0700 Subject: [PATCH 06/11] - columna de folio relacionado --- Inventarios/Kardex.aspx | 5 +++++ Inventarios/Kardex.aspx.vb | 16 ++++++++-------- 2 files changed, 13 insertions(+), 8 deletions(-) diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index d3d08e46b..bb4b9f445 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -378,6 +378,11 @@ + + + + + diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index f2f961c3b..efe5b9a3c 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -66,9 +66,9 @@ Partial Class Inventarios_Kardex Private Sub CargaPermisos() If UsuarioActual.CveRol = 1 Then ChkAgruparAlmacen.Visible = True Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) - GvM.Columns(13).Visible = TienePermisoImportes ' costo - GvM.Columns(14).Visible = TienePermisoImportes ' importe - GvM.Columns(16).Visible = TienePermisoImportes ' valor + GvM.Columns(14).Visible = TienePermisoImportes ' costo + GvM.Columns(15).Visible = TienePermisoImportes ' importe + GvM.Columns(17).Visible = TienePermisoImportes ' valor End Sub Private Function isWithFamily() As Boolean @@ -87,7 +87,7 @@ Partial Class Inventarios_Kardex CBLTiposAlmacen.DataSource = GlobalDTTipoAlmacen(-1) CBLTiposAlmacen.DataBind() For Each item As ListItem In CBLTiposAlmacen.Items - If item.Text = "Entrega Adelantado" Then + If item.Text.Contiene("Entrega Adelantado", "Transitorio") Then item.Selected = False Else item.Selected = True @@ -199,10 +199,10 @@ Partial Class Inventarios_Kardex AplicaSeccion = DtTemp.MAX("SeccionAlmacen") <> "" AplicaLote = DtTemp.MAX("Lote") <> "" AplicaCaducidad = DtTemp.MAX("FechaCaducidad") <> "" - If AplicaSeccion Then GvM.Columns(7).Visible = True - If AplicaSerie Then GvM.Columns(8).Visible = True - If AplicaLote Then GvM.Columns(9).Visible = True - If AplicaCaducidad Then GvM.Columns(10).Visible = True + If AplicaSeccion Then GvM.Columns(8).Visible = True + If AplicaSerie Then GvM.Columns(9).Visible = True + If AplicaLote Then GvM.Columns(10).Visible = True + If AplicaCaducidad Then GvM.Columns(11).Visible = True Dim AuxAplicaSerie As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaSerie") = "True" LnkSeries.Visible = AuxAplicaSerie From 444e5efb8ad5ab8e3ebf41e23e2e55fc5c0d838f Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 27 Oct 2020 23:52:14 -0700 Subject: [PATCH 07/11] -- columna de docto relacionado --- Inventarios/Kardex.aspx | 4 +-- Inventarios/Kardex.aspx.vb | 69 ++++++++++++++++++++------------------ 2 files changed, 38 insertions(+), 35 deletions(-) diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index bb4b9f445..90756c028 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -378,9 +378,9 @@ - + - + diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index efe5b9a3c..15991bad4 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -199,51 +199,54 @@ Partial Class Inventarios_Kardex AplicaSeccion = DtTemp.MAX("SeccionAlmacen") <> "" AplicaLote = DtTemp.MAX("Lote") <> "" AplicaCaducidad = DtTemp.MAX("FechaCaducidad") <> "" + + GvM.Columns(6).Visible = DtTemp.MAX("FolioRelacionEntrada") <> "" + If AplicaSeccion Then GvM.Columns(8).Visible = True - If AplicaSerie Then GvM.Columns(9).Visible = True - If AplicaLote Then GvM.Columns(10).Visible = True - If AplicaCaducidad Then GvM.Columns(11).Visible = True + If AplicaSerie Then GvM.Columns(9).Visible = True + If AplicaLote Then GvM.Columns(10).Visible = True + If AplicaCaducidad Then GvM.Columns(11).Visible = True - Dim AuxAplicaSerie As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaSerie") = "True" - LnkSeries.Visible = AuxAplicaSerie - 'CARGA INDICADORES - If UsuarioActual.TienePermisoProceso(201) Then - DivIndicadores.Visible = True + Dim AuxAplicaSerie As Boolean = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CveProducto).FiltroPrimeroValor("AplicaSerie") = "True" + LnkSeries.Visible = AuxAplicaSerie + 'CARGA INDICADORES + If UsuarioActual.TienePermisoProceso(201) Then + DivIndicadores.Visible = True - Dim Dr = DtTemp.FiltroUltimo("") - Dim TC = If(GlobalTipoCambio(Now) > 0, GlobalTipoCambio(Now), 1) + Dim Dr = DtTemp.FiltroUltimo("") + Dim TC = If(GlobalTipoCambio(Now) > 0, GlobalTipoCambio(Now), 1) - LtIndicador_Existencia.Text = Dr("Existencias").ToString.FormatoNumero() + LtIndicador_Existencia.Text = Dr("Existencias").ToString.FormatoNumero() - LtIndicador_ValorPesos.Text = Dr("ValorInventario").ToString.FormatoNumero() - LtIndicador_ValorDolares.Text = (Dr("ValorInventario").ToString.ToDouble / TC).FormatoNumero() + LtIndicador_ValorPesos.Text = Dr("ValorInventario").ToString.FormatoNumero() + LtIndicador_ValorDolares.Text = (Dr("ValorInventario").ToString.ToDouble / TC).FormatoNumero() - Dim CostoPromedio = If(Dr("Existencias").ToString.ToDouble > 0, Dr("ValorInventario").ToString.ToDouble / Dr("Existencias").ToString.ToDouble, 0) - LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero() - LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero() + Dim CostoPromedio = If(Dr("Existencias").ToString.ToDouble > 0, Dr("ValorInventario").ToString.ToDouble / Dr("Existencias").ToString.ToDouble, 0) + LtIndicador_CPPesos.Text = CostoPromedio.FormatoNumero() + LtIndicador_CPDolares.Text = (CostoPromedio / TC).FormatoNumero() - LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero() - LtIndicador_UCDolares.Text = Dr("UltimoCostoUSD").ToString.FormatoNumero() + LtIndicador_UCPesos.Text = Dr("UltimoCosto").ToString.FormatoNumero() + LtIndicador_UCDolares.Text = Dr("UltimoCostoUSD").ToString.FormatoNumero() - LtIndicador_Mensaje.Text = $"* Importes calculados con el tipo de cambio del dia $ {TC.FormatoNumero(4)} " + LtIndicador_Mensaje.Text = $"* Importes calculados con el tipo de cambio del dia $ {TC.FormatoNumero(4)} " - If TxtSerie.Text <> "" Then - LtIndicador_MensajeSerie.Text = $"* Existencia y costos calculada por numero de serie: {TxtSerie.Text} " + If TxtSerie.Text <> "" Then + LtIndicador_MensajeSerie.Text = $"* Existencia y costos calculada por numero de serie: {TxtSerie.Text} " + Else + LtIndicador_MensajeSerie.Text = "" + End If + + UpIndicadores.Update() + + GvM.Attributes.Add("data-heighterror", "430") Else - LtIndicador_MensajeSerie.Text = "" + GvM.Attributes.Add("data-heighterror", "270") End If - - UpIndicadores.Update() - - GvM.Attributes.Add("data-heighterror", "430") - Else - GvM.Attributes.Add("data-heighterror", "270") + GvM.DataSource = DtTemp + GvM.DataBind() + UpAcciones.Update() End If - GvM.DataSource = DtTemp - GvM.DataBind() - UpAcciones.Update() - End If - Else + Else Alert("Seleccione un producto.", TipoMensaje.MsgAdvertencia) End If End Sub From 9f9c018797c7f5f187fb50469a81e731ba1d6cb3 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 27 Oct 2020 23:52:59 -0700 Subject: [PATCH 08/11] -- cambios en la afectacion contable --- Inventarios/TraspasoAlmacen.aspx.vb | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 84853dda9..b84c1475c 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -1010,7 +1010,7 @@ Partial Class Inventarios_TraspasoAlmacen ErrorMovInv = True End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then ErrorMovInv = True End If End If @@ -1725,7 +1725,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim ImporteDecimal As Decimal = importe.ToDecimal.RoundSQL Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=ImporteDecimal) Then ErrorMovInv = True TextoError = "Ocurrió un erro al cancelar el traspaso" @@ -1817,7 +1817,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate Dim CveAlmacenEntrada As Integer = GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero - Dim CveAlmacenSalida As Integer = GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero + Dim CveAlmacenSalida As Integer = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero Dim TipoAlmacenDestino As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero() @@ -1887,11 +1887,11 @@ Partial Class Inventarios_TraspasoAlmacen Dim importe As Decimal = resultado.SUMD("Total").RoundSQL Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 289, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then ErrorMovInv = True End If - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=importe, Contabilizable:=False) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=importe, Contabilizable:=False) Then ErrorMovInv = True End If End If @@ -2012,8 +2012,8 @@ Partial Class Inventarios_TraspasoAlmacen TxtObservacionesRecepcion.Text = "" Dim Mensaje As StringBuilder = New StringBuilder - Mensaje.AppendFormat("Se realizo correctamente la recepción.
Folio de Entrada: {0}", Folio, CveMovimientoSalida) - Mensaje.AppendFormat("
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida))) 'onclick='ImprimirTraslado()' + Mensaje.AppendFormat("Se realizo correctamente la recepción.
Folio de Entrada: {0}", Folio, CveMovimientoEntrada) + Mensaje.AppendFormat("
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()' If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("


Folio Virtual {2}
Imprimir Reporte", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada) 'onclick='ImprimirTraslado()' From a70fd467633153ee4f664668e95c61bb09cba064 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 28 Oct 2020 13:52:48 -0700 Subject: [PATCH 09/11] Correcion de envio de correo, actualizacion de uso CFDI, Permiso para generar remision --- App_Code/ClsVentas.vb | 3 ++- Ventas/Ventas.aspx.vb | 52 ++++++++++++++++++++++++++++++++----------- 2 files changed, 41 insertions(+), 14 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index df81cf748..6a4739cf8 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -462,7 +462,7 @@ Public Class ClsVentas Optional TipoDocto As String = "Cot", Optional Vigencia As Date = MinFecha, Optional CondicionesPago As Integer = -1, Optional AtencionA As String = "-1", Optional PedidoContrato As String = "-1", Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveCliente As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional OrdenCompra As String = "-1", Optional RetIVA As Double = -1, - Optional RetISR As Double = -1, Optional Kilometraje As Double = 0) As Boolean + Optional RetISR As Double = -1, Optional Kilometraje As Double = 0, Optional CveUsoCFDi As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasUpdate") @@ -493,6 +493,7 @@ Public Class ClsVentas .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal .Add("@OrdenCompra", SqlDbType.VarChar).Value = OrdenCompra .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje + .Add("@CveUsoCFDi", SqlDbType.SmallInt).Value = CveUsoCFDi End With Try diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 496abf10f..d6574ea81 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3940,14 +3940,22 @@ Partial Class Ventas Case "PeC" DdlTipoComprobante.Items.Insert(5, New ListItem("Pedido de Consignación", "PeC")) Case "PA" - BtnGenerarRemision.Visible = If(CveEstatus = 16, True, False) + If UsuarioActual.TienePermisoProceso(199) Then + BtnGenerarRemision.Visible = If(CveEstatus = 16, True, False) + Else + BtnGenerarRemision.Visible = False + End If CvePedidoA = CveVenta DiasCredito = DbRowVenta("DiasCredito").ToString().ToEntero() EsDiasCreditoFijo = CBool(DbRowVenta("EsDiasCreditoFijo").ToString()) Case "Pd2" CvePedido2 = CveVenta BtnGeneraAutorizacion.Visible = If(CveEstatus <> 21, True, False) - BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False) + If UsuarioActual.TienePermisoProceso(199) Then + BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False) + Else + BtnGenerarRemision.Visible = False + End If End Select DdlTipoComprobante.SelectedValue = DbRowVenta("TipoDocto").ToString() @@ -4588,7 +4596,12 @@ Partial Class Ventas 'ACTIVA BOTONERA | DEBE TENER CONCEPTOS PENDIENTES DE FACTURAR If TmpDT.SUM("CantidadFacturadaCot") < TmpDT.SUM("Cantidad") AndAlso DdlTipoComprobante.SelectedValue.Contiene("Cot") Then - BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True) + + If UsuarioActual.TienePermisoProceso(199) Then + BtnGenerarRemision.Visible = If(CveEstatus = 10, False, True) + Else + BtnGenerarRemision.Visible = False + End If BtnsFacturar.Visible = True LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274) End If @@ -5615,7 +5628,6 @@ Partial Class Ventas BtnsFacturar.Visible = False LBFacturarAnticipo.Visible = UsuarioActual.TienePermisoProceso(274) Else - If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then BtnGeneraAutorizacion.Visible = If(CveEstatus <> 21, True, False) End If @@ -5635,7 +5647,11 @@ Partial Class Ventas Else BtnGeneraAutorizacion.Visible = False If DdlTipoComprobante.SelectedValue.Contiene("Pd2") Then - BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False) + If UsuarioActual.TienePermisoProceso(199) Then + BtnGenerarRemision.Visible = If(CveEstatus <> 21, True, False) + Else + BtnGenerarRemision.Visible = False + End If End If End If Else @@ -12667,6 +12683,10 @@ Partial Class Ventas Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgError) End Try + If CveVenta > 0 Then + ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False) + End If + LocalSerieFolio = ObjFactura.SerieFolio LocalTipoDocto = ObjFactura.TipoDocto 'End If @@ -12680,7 +12700,7 @@ Partial Class Ventas Try ' BytesPdfCotizacion(CveVenta) - Dim Hilo As New System.Threading.Thread(Sub() MandaMails(CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF)) + Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF)) Hilo.Start() Catch ex As Exception OnError("Ocurrió error al mandar Mail", ex) @@ -12702,8 +12722,6 @@ Partial Class Ventas Dim LocalSerieFolio As String = String.Empty Dim LocalTipoDocto As String = String.Empty - If CveVenta > 0 Then CreaObjetosVenta() - 'TIMBRADO NUEVO Try pdf = PdfFactura(ObjFactura) @@ -12711,6 +12729,10 @@ Partial Class Ventas Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgError) End Try + If CveVenta > 0 Then + ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False) + End If + LocalSerieFolio = ObjFactura.SerieFolio LocalTipoDocto = ObjFactura.TipoDocto @@ -12722,7 +12744,7 @@ Partial Class Ventas Try ' BytesPdfCotizacion(CveVenta) - Dim Hilo As New System.Threading.Thread(Sub() MandaMails(CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF)) + Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF)) Hilo.Start() Catch ex As Exception OnError("Ocurrió error al mandar Mail", ex) @@ -12753,6 +12775,10 @@ Partial Class Ventas Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgError) End Try + If CveVenta > 0 Then + ObjFactura = New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False) + End If + LocalSerieFolio = ObjFactura.SerieFolio LocalTipoDocto = ObjFactura.TipoDocto @@ -12761,7 +12787,7 @@ Partial Class Ventas Try ' BytesPdfCotizacion(CveVenta) - Dim Hilo As New System.Threading.Thread(Sub() MandaMails(CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF)) + Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF)) Hilo.Start() Catch ex As Exception OnError("Ocurrió error al mandar Mail", ex) @@ -17820,7 +17846,7 @@ Partial Class Ventas #End Region #Region " MANDA CORREO " - Private Sub MandaMails(CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String) + Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String) Dim ObjMail As New ClsSisMail() Dim ObjVentas As New ClsVentas @@ -18383,7 +18409,7 @@ Partial Class Ventas Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), TipoDocto:="Rem", CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, - OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble) Then + OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero()) Then OcurrioError = True End If @@ -24925,7 +24951,7 @@ Partial Class Ventas Vigencia:=TxtFechaVencimientoCotizacion.Text.Trim.ToDate, CondicionesPago:=If(RBLPago.SelectedValue = "2", 0, 1), PedidoContrato:=TxtPedidoContrato.Text, AtencionA:=TxtAtencionA.Text.Trim, CveMetodoPago33:=DdlMetodoPago33.SelectedValue.ToEntero(), CveFormaPago33:=DdlFormaPago33.SelectedValue.ToEntero(), CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, - TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble) Then + TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble, CveUsoCFDi:=DdlUsoCFDI.SelectedValue.ToEntero()) Then MensajeError = "Ocurrió un error al actualizar la información de la cotización" OcurrioError = True End If From 2f586d5876ec0073702e232922e41f4105b9ee0b Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 28 Oct 2020 13:54:29 -0700 Subject: [PATCH 10/11] Pendientes BDH 2020.10.20 --- Compras/PopUpVerFactura.aspx.vb | 136 ++++++++++++++++----------- Empresas/140/Formatos/Salidas.rdlc | 77 +++++++++++++++ Inventarios/RecepcionAlmacen.aspx.vb | 13 ++- Inventarios/TraspasoAlmacen.aspx.vb | 21 ++++- 4 files changed, 187 insertions(+), 60 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 8dd046ff6..3ec5ea9e1 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1248,10 +1248,10 @@ Partial Class PopUpVerFactura Dim PuestoEnrego As String = ObjInventarios.PuestoEntrego Dim ResponsableCarga As String = ObjInventarios.ResponsableCarga Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio + Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo") If Recibio.Trim = "" Then Dim ObjRH As New ClsRH - If ObjRH.GetPersonal(ObjInventarios.CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjRH.DtResultados.Rows.Count > 0 Then Recibio = ObjRH.DtResultados.Rows(0)("NombreCompleto").ToString End If @@ -1276,7 +1276,9 @@ Partial Class PopUpVerFactura Dim CveMovimientoRelacionado As Integer = -1 Dim FolioRelacionado As String = "" - Dim CveConceptoMovtoRelacionado As Integer = -1 + Dim CveConceptoMovtoRelacionado As Integer = -1 + + Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero 'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO If UsuarioActual.CveEmpresa = 140 AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then @@ -1285,6 +1287,9 @@ Partial Class PopUpVerFactura FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual") CveConceptoMovtoRelacionado = 37 ElseIf CveConcepto.Contiene(36, 37) Then + FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado") + CveConceptoMovtoRelacionado = 3 + ElseIf CveConcepto.Contiene(2) AndAlso CveTipoAlmacen.Contiene(24, 25) Then FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado") CveConceptoMovtoRelacionado = 3 End If @@ -1316,7 +1321,7 @@ Partial Class PopUpVerFactura Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero 'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION - If CveTipoAlmacenRelacionado = 24 Then + If CveTipoAlmacenRelacionado.Contiene(24, 25) Then If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy() CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal() @@ -1342,7 +1347,28 @@ Partial Class PopUpVerFactura End If End If - Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero + If UsuarioActual.CveEmpresa = 140 AndAlso CveCompra > 0 Then + If ObjInventarios.RecepcionAlmacenGet(CveCompra, -1, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then + Dim DtFaltante As DataTable = ObjInventarios.DtResultados.FiltraParametros("CantidadF > 0") + If DtFaltante.Rows.Count > 0 Then + Dim SbPendientes As New StringBuilder + SbPendientes.AppendFormat("Los siguientes productos quedaron pendientes por recibir:") + For Each Row As DataRow In DtFaltante.Rows + SbPendientes.AppendFormat(" PS:{0} Cant.:{1:N0},", Row("CodigoPS"), Row("CantidadF")) + Next + SbPendientes.Remove(SbPendientes.Length - 1, 1) + + SbPendientes.AppendFormat(" Total Cant.:{0:N0}, Total Costo:{1:N2}", DtFaltante.SUM("CantidadF"), DtFaltante.SUM("Total")) + + If Not String.IsNullOrEmpty(Observaciones) Then + Observaciones = SbPendientes.ToString() + ".
" + Observaciones + Else + Observaciones = SbPendientes.ToString() + End If + End If + DtFaltante.Dispose() + End If + End If If CveTipoAlmacen = 20 Then CveConcepto = 24 @@ -1359,7 +1385,7 @@ Partial Class PopUpVerFactura MunicipioDestino, EstadoDestino, PaisDestino, CPDestino, FechaMovimiento, NombreCapturo, PuestoRecibio, PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente, CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego, - CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado) + CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo) End Sub Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera @@ -1377,7 +1403,7 @@ Partial Class PopUpVerFactura EstadoOrigen As String, PaisOrigen As String, CPOrigen As String, CalleDestino As String, NoExtDestino As String, ColoniaDestino As String, LocalidadDestino As String, MunicipioDestino As String, EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String, RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0, - Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "") + Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "") Select Case CveConcepto @@ -1527,6 +1553,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("IVA", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("IVA").ToString.FormatoNumero(2), ""))) params.Add(New ReportParameter("Total", If(CveCompra > 0 AndAlso dr IsNot Nothing, dr("Total").ToString.FormatoNumero(2), ""))) 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + params.Add(New ReportParameter("Observaciones", Observaciones)) params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) @@ -1762,7 +1789,8 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("NombreRecibio", Recibio)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString())) - params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) + params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado)) + params.Add(New ReportParameter("UsuarioRegistro", UsuarioRegistro)) ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") Else @@ -2550,19 +2578,19 @@ Partial Class PopUpVerFactura If (UsuarioActual.CveEmpresa = 72) Then params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) End If - ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios") - 'Else - ' params.Add(New ReportParameter("Folio", Folio)) - ' params.Add(New ReportParameter("Fecha", Fecha)) - ' params.Add(New ReportParameter("Almacen", Almacen)) - ' params.Add(New ReportParameter("SubProyecto", SubProyecto)) - ' params.Add(New ReportParameter("Observaciones", Observaciones)) - ' params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - ' ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") - 'End If - - + ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios") + 'Else + ' params.Add(New ReportParameter("Folio", Folio)) + ' params.Add(New ReportParameter("Fecha", Fecha)) + ' params.Add(New ReportParameter("Almacen", Almacen)) + ' params.Add(New ReportParameter("SubProyecto", SubProyecto)) + ' params.Add(New ReportParameter("Observaciones", Observaciones)) + ' params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + ' ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios") + 'End If + + Case 18 'D E V O L U C I O N D E L C L I E N T E Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta)) Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -2739,36 +2767,36 @@ Partial Class PopUpVerFactura ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") ElseIf CveConcepto = 22 Then ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") - End If - - 'Case 22 'ENTRADA POR PRESTAMO - ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - ' Dim params As New List(Of ReportParameter) - - ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - ' If Imagen.Exists Then - ' params.Add(New ReportParameter("LogoPath", logouri)) - ' Else - ' params.Add(New ReportParameter("LogoPath", "")) - ' End If - - ' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) - ' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo")) - ' params.Add(New ReportParameter("Almacen", Almacen)) - ' params.Add(New ReportParameter("Fecha", Fecha)) - ' params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) - ' params.Add(New ReportParameter("Folio", Folio)) - ' params.Add(New ReportParameter("Descuentos", "")) - ' params.Add(New ReportParameter("IVA", "")) - ' params.Add(New ReportParameter("Total", "")) - ' 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) - ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) - ' params.Add(New ReportParameter("FacturadoA", NombreCliente)) - ' If (UsuarioActual.CveEmpresa = 72) Then - ' params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) - ' End If - ' ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") - + End If + + 'Case 22 'ENTRADA POR PRESTAMO + ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim params As New List(Of ReportParameter) + + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + ' If Imagen.Exists Then + ' params.Add(New ReportParameter("LogoPath", logouri)) + ' Else + ' params.Add(New ReportParameter("LogoPath", "")) + ' End If + + ' params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa)) + ' params.Add(New ReportParameter("Concepto", "Entrada por Prestamo")) + ' params.Add(New ReportParameter("Almacen", Almacen)) + ' params.Add(New ReportParameter("Fecha", Fecha)) + ' params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy"))) + ' params.Add(New ReportParameter("Folio", Folio)) + ' params.Add(New ReportParameter("Descuentos", "")) + ' params.Add(New ReportParameter("IVA", "")) + ' params.Add(New ReportParameter("Total", "")) + ' 'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo))) + ' params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio))) + ' params.Add(New ReportParameter("FacturadoA", NombreCliente)) + ' If (UsuarioActual.CveEmpresa = 72) Then + ' params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu)) + ' End If + ' ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios") + Case 24 'SALIDA POR RESGUARDO If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -3251,11 +3279,11 @@ Partial Class PopUpVerFactura If CveConcepto = 2 Then ElseIf CveConcepto = 3 Then End If - End Sub - - + End Sub + + #End Region - + #Region "OP = 'OC' - IMPRIME PDF OC" Private Sub ImprimePDFOC(CveOrdenCompra As Integer) Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1")) diff --git a/Empresas/140/Formatos/Salidas.rdlc b/Empresas/140/Formatos/Salidas.rdlc index 595add00f..54efe605a 100644 --- a/Empresas/140/Formatos/Salidas.rdlc +++ b/Empresas/140/Formatos/Salidas.rdlc @@ -1187,6 +1187,77 @@ 2pt + + true + true + + + + + Usuario Registró: + + + + + + + Textbox5 + 1.62251cm + 0.79137cm + 0.6cm + 2.90426cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioRegistro.Value + + + + + + + Textbox33 + 1.62251cm + 3.69563cm + 0.6cm + 5.93606cm + 7 + + + 2pt + 2pt + 2pt + 2pt + +