From 2a0079aba97569fe6278be6fbcad3e3b47c8cce0 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Sun, 12 Jan 2020 21:33:58 -0700 Subject: [PATCH 1/4] cambios --- App_Code/modExtensiones.vb | 4 ++-- OC/OC.aspx | 10 ++++++---- OC/OC.aspx.vb | 30 ++++++++++++++++++++-------- Ventas/Ventas.aspx | 9 +++------ Ventas/Ventas.aspx.vb | 41 ++++++++++++++++++++++---------------- 5 files changed, 57 insertions(+), 37 deletions(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 9832061b6..2a531ef0d 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -54,8 +54,8 @@ Namespace Extensiones ' BaseDatos = CType(System.Web.HttpContext.Current.Session("UsuarioSIG"), Usuario).Empresa.BaseDatosNombre 'End If - - Return String.Format("Data Source=192.168.0.2;Initial Catalog={0};User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;", BaseDatos) + Return ConfigurationManager.ConnectionStrings("Conexion").ConnectionString + ' Return String.Format("Data Source=192.168.0.2;Initial Catalog={0};User Id=JCaudillo;Password=JCau127*953;pooling=True; Min Pool Size=10;Application Name=SIG;", BaseDatos) End Function diff --git a/OC/OC.aspx b/OC/OC.aspx index c42828217..bd735893c 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -289,7 +289,7 @@ <%-- --%> - + <%-- --%> @@ -2556,9 +2556,11 @@
- - - + <%----%> + + +<%-- + --%>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 46881c301..fb5de5bea 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1741,20 +1741,25 @@ Partial Class OC CboUnidadMedida.DataBind() End Sub Private Sub CargaProveedores() - If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then DdlProveedores.setEsWebService(True) - DdlProveedores.Attributes.Add("metodo", "getproveedores") + DdlProveedores.Attributes.Add("data-metodo", "getproveedores") + DdlProveedores.SelectedText = "Seleccione" + DdlProveedores.SelectedValue = "-1" + DdlProveedorCot.setEsWebService(True) + DdlProveedorCot.Attributes.Add("data-metodo", "getproveedores") Else - GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedores.DataBind() + DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + + DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual) + DdlProveedorCot.DataBind() + DdlProveedorCot.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + End If - 'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlProveedorCot.DataSource = GlobalDTCompProveedores(CveEmpresaActual) - DdlProveedorCot.DataBind() - DdlProveedorCot.Items.Insert(0, New ListItem("Seleccione", "-1")) UPProv.Update() : UPPEmp.Update() End Sub @@ -2105,6 +2110,8 @@ Partial Class OC Return True End If + + 'SI ES REQUISICION, NO REQUIERE COTIZACION Y ES ESTATUSFINALOK... ENTONCES DEBE DE TENER UN PROVEEDOR SELECCIONADO Y LOS PRECIOS CAPTURADOS 'If (TipoOC = "REQ" And ChkCotizacion.Checked = False And CboE.SelectedValue.ToEntero = CveEstatusFinalOK) OrElse TipoOC = "OC" Then ' If Not UsuarioActual.TienePermisoProceso(179) Then 'PERMISO PARA GENERAR CON O @@ -2222,6 +2229,13 @@ Partial Class OC TieneError = True End If + 'Valida que tenga proveedore + If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC"4) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then + Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia) + TieneError = True + End If + + 'VALIDA QUE ANTES DE QUE PUEDA MANDARLA A SUPERVISADA SE TIENE QUE SELECCIONAR UN PROVEEDOR If UsuarioActual.Empresa.Funcionalidad(565) = "1" Then If (TipoOC.ToUpper = "REQ" And CboE.SelectedValue.ToEntero.Contiene(CveEstatusSupervisada, CveEstatusFinalOK)) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then @@ -5966,7 +5980,7 @@ Partial Class OC Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) - Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath) + Dim excelFile As ExcelFile = excelFile.Load(flatFilePath) Dim unnamed As Integer = 0 Dim cols As Integer diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 6fa1b3ceb..3af333051 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -812,7 +812,7 @@ - +
Turno: @@ -3240,11 +3240,8 @@ - Kilometraje  - - - - + Kilometraje  +
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 1765b3c67..2563cc7b9 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2523,7 +2523,8 @@ Partial Class Ventas DivDdlCuentaTarjetaCredito.Attributes.Add("class", "col-md-4") DivContadoOtros.Visible = True TrKilometraje.Visible = True - TrKilometrajeTxt.Visible = True + TrPedido.Visible = False + ' TrKilometrajeTxt.Visible = True End If End If @@ -2582,8 +2583,9 @@ Partial Class Ventas LkbEstadodeCaja.Visible = True LkbIngreso.Visible = True LkbRetiro.Visible = True - UpTurno.Update() + UpTurno.Visible = True Else + UpTurno.Visible = False 'Ingresar un nuevo Turno RegistraScript("window.onload = function MuestraCorteCaja() { document.getElementById(""C_btnShow"").click(); }") End If @@ -6462,22 +6464,27 @@ Partial Class Ventas End If 'Valida si en caso de que el detalle tenga llantas o polizas se agreguén kilometraje/serie en la parte de observaciones(solo para el caso de empresas llanteras) If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + + If txtkilometraje.text.toentero = 0 Then + Alert("No se ha especificado el kilometraje.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + If TxtObsFact.Text = "" Then Dim FaltaObservacion As Integer = -1 - For Each PS As GridViewRow In GvPS.Rows - Dim PsRenglon As GridViewRow = PS - Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero - If CveClasificacion = 20345 Or CveClasificacion = 20342 Then - FaltaObservacion = CveClasificacion - Exit For - End If - Next + 'For Each PS As GridViewRow In GvPS.Rows + ' Dim PsRenglon As GridViewRow = PS + ' Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero + ' If CveClasificacion = 20345 Or CveClasificacion = 20342 Then + ' FaltaObservacion = CveClasificacion + ' Exit For + ' End If + ' + FaltaObservacion = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20345").ToEntero + If FaltaObservacion = 20345 Then Alert("No se ha especificado la serie para la poliza en la sección de Observaciones", TipoMensaje.MsgAdvertencia) Exit Sub - ElseIf FaltaObservacion = 20342 Then - Alert("No se ha especificado el kilometraje para la llanta en el sección de Observaciones", TipoMensaje.MsgAdvertencia) - Exit Sub End If End If End If @@ -9125,7 +9132,7 @@ Partial Class Ventas CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)), CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM, DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False), - Kilometraje:=If(TrKilometrajeTxt.Visible AndAlso IsNumeric(TxtKilometraje.Text), TxtKilometraje.Text.ToDouble, -1)) Then + Kilometraje:=TxtKilometraje.Text.todouble) Then ErrorList.Add("Ocurrió un error al Generar la Venta.
Revise su factura y cualquier detalle comuníquese a Soporte Técnico") @@ -14276,7 +14283,7 @@ Partial Class Ventas 'AGREGA PS ADICIONAL - If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso Not UsuarioActual.TienePermisoProceso(284) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then + If UsuarioActual.Empresa.Funcionalidad(561).ToString = "1" AndAlso Not UsuarioActual.TienePermisoProceso(285) AndAlso GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows.Count > 0 AndAlso Not SeActualiza Then For Each Dr As DataRow In GlobalDTPSAdicionales(CvePS, UsuarioActual.CveEmpresa).Rows Dim CvePSAdicional As Integer = Dr("CvePSAdicional").ToString.ToEntero @@ -16408,7 +16415,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:=If(TrKilometrajeTxt.Visible AndAlso IsNumeric(TxtKilometraje.Text), TxtKilometraje.Text.ToDouble, -1)) Then + OrdenCompra:=TxtOrdenCompra.Text, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, Kilometraje:=TxtKilometraje.Text.ToDouble) Then OcurrioError = True End If @@ -22080,7 +22087,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:=If(TrKilometrajeTxt.Visible AndAlso IsNumeric(TxtKilometraje.Text), TxtKilometraje.Text.ToDouble, -1)) Then + TipoDocto:=DdlTipoComprobante.SelectedValue, Kilometraje:=TxtKilometraje.Text.ToDouble) Then MensajeError = "Ocurrió un error al actualizar la información de la cotización" OcurrioError = True End If From caa4d2d04d318bfe7e9bbcf12dd37abf75981619 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 13 Jan 2020 11:09:00 -0700 Subject: [PATCH 2/4] =?UTF-8?q?agregando=20mensaje=20de=20validaci=C3=B3n?= =?UTF-8?q?=20al=20kardex?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/Kardex.aspx | 8 ++++++++ OC/OC.aspx.vb | 2 +- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index 3390e698d..e2c88ea88 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -161,6 +161,10 @@ + + + + @@ -175,6 +179,10 @@ + + + +
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 46881c301..d557bfdb9 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1745,10 +1745,10 @@ Partial Class OC DdlProveedores.setEsWebService(True) DdlProveedores.Attributes.Add("metodo", "getproveedores") Else - GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing DdlProveedores.DataSource = GlobalDTCompProveedores(CveEmpresaActual) DdlProveedores.DataBind() + DdlProveedores.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) End If 'DdlProveedores.Items.Insert(0, New ListItem("Seleccione", "-1")) From 8ae43be3f03ce9bfd19d18f07951e3c65a3ec3b8 Mon Sep 17 00:00:00 2001 From: Rene Molina Date: Mon, 13 Jan 2020 11:17:21 -0700 Subject: [PATCH 3/4] -oc. cambioa dropdownlos, ddlproveedores --- App_Code/ClsContabilidad.vb | 1 + Ashx/SIGWeb.ashx | 4 ++-- Inventarios/TraspasoAlmacen.aspx.vb | 6 +++--- OC/OC.aspx | 2 +- OC/OC.aspx.vb | 14 ++++++++++++-- Ventas/Ventas.aspx.vb | 11 ++++++++--- 6 files changed, 27 insertions(+), 11 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 8f89239ca..597854f57 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5768,6 +5768,7 @@ Public Class ClsContabilidad .Add("@Opcion", SqlDbType.Int).Value = Opcion .Add("@Valor", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@MsgSalida", SqlDbType.VarChar, 100).Direction = ParameterDirection.Output + .Add("@MsgPrePolizaSalida", SqlDbType.VarChar, 800).Direction = ParameterDirection.Output .Add("@Diferencia", SqlDbType.Float).Direction = ParameterDirection.Output End With diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index a1d1c9720..faf915fda 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -247,13 +247,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState 'ObjProveedores.Dispose() Dim dt As DataTable = DirectCast(context.Application(AppNombre), DataTable).FiltraParametros($"CveEmpresa = {CveEmpresa}") If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - DtRetorno = dt.FiltraParametros($"RazonSocial like '%{Name}%'") + DtRetorno = dt.FiltraParametros($"NombreCortoProveedor like '%{Name}%'") End If End If If DtRetorno IsNot Nothing AndAlso DtRetorno.Rows.Count > 0 Then DtRetorno.Columns("CveProveedor").ColumnName = "id" - DtRetorno.Columns("RazonSocial").ColumnName = "text" + DtRetorno.Columns("NombreCortoProveedor").ColumnName = "text" retorno = JsonConvert.SerializeObject(DtRetorno).ToString context.Response.Write(retorno) Else diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index ccc628c7f..33aa8f9b5 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -804,7 +804,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim CveAlmacenVirtual As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 24).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero() - CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 3, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida) + CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtual, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/V", CveMovimientoRelacionado:=CveMovimientoSalida) FolioVirtualSalida = ObjInventario.Folio Dim dtvirtual As DataTable = Nothing @@ -829,11 +829,11 @@ Partial Class Inventarios_TraspasoAlmacen 'AGREGAMOS LA ENTRADA If Not ChkTransitorio.Checked Then 'SI NO ES TRANSITORIO SE HACE LA RECEPCION DE INMEDIATO If Not ErrorMovInv Then - Dim TipoMovimientoEntrada = 9 + Dim TipoMovimientoEntrada = 36 AlmacenEntrada = If(ChkTransitorio.Checked, DdlAlmacenTransitorio.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero) CveMovimientoEntrada = ObjInventario.AddMovimiento(AlmacenEntrada, TipoMovimientoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"), - CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G") + CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/G") FolioEntrada = ObjInventario.Folio If CveMovimientoEntrada <= 0 Then TextoError = "Ocurrió un error al generar el movimiento de entrada" diff --git a/OC/OC.aspx b/OC/OC.aspx index bd735893c..edde3253c 100644 --- a/OC/OC.aspx +++ b/OC/OC.aspx @@ -289,7 +289,7 @@ <%-- --%> - + <%-- --%> diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index fb5de5bea..d77b1c6be 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -1294,7 +1294,12 @@ Partial Class OC HplCompraContabilizada.Text = "No" End If - DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.SelectedValue = objOC.CveProveedor.ToString + If DdlProveedores.SelectedValue.ToEntero > 0 Then + DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString + Else + DdlProveedores.SelectedText = "-" + End If 'CARGAMOS LA SUCURSAL SI NO EXISTE SE AGREGA MATRIZ Dim CveProveedorSucursal As Integer = IIf(objOC.CveProveedorSucursal.ToEntero = -1, 0, objOC.CveProveedorSucursal.ToEntero).ToString.ToEntero @@ -1330,7 +1335,12 @@ Partial Class OC lblFolio.Text = "REQ " + objOC.Folio.ToString lblTipoPadreHijo.Text = "OC" ChkCotizacion.Visible = True - DdlProveedores.ddl.SelectedValueExist(objOC.CveProveedor.ToString) + DdlProveedores.SelectedValue = objOC.CveProveedor.ToString + If DdlProveedores.SelectedValue.ToEntero > 0 Then + DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {objOC.CveProveedor}").Rows(0)("RazonSocial").ToString + Else + DdlProveedores.SelectedText = "-" + End If If objOC.CveProveedorSucursal.ToEntero > 0 Then DivProveedorSucursal.Visible = True diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 2563cc7b9..f9c28d63c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6466,8 +6466,13 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then If txtkilometraje.text.toentero = 0 Then - Alert("No se ha especificado el kilometraje.", TipoMensaje.MsgAdvertencia) - Exit Sub + 'cuando es la clasificacion de llantas + Dim FaltaObservacion As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20342").ToEntero + If FaltaObservacion = 20342 Then + Alert("No se ha especificado el kilometraje.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If If TxtObsFact.Text = "" Then @@ -6481,7 +6486,7 @@ Partial Class Ventas ' End If ' FaltaObservacion = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion = 20345").ToEntero - + 'cuando es la clasificacion de polizas If FaltaObservacion = 20345 Then Alert("No se ha especificado la serie para la poliza en la sección de Observaciones", TipoMensaje.MsgAdvertencia) Exit Sub From 27d04a32b61602aabd8ca8fc2310684a094d27c4 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 13 Jan 2020 13:58:39 -0700 Subject: [PATCH 4/4] agregando formatos de entradas.rdlc y salidas.rdlc a la 146 --- Compras/PopUpVerFactura.aspx.vb | 4 +- Empresas/146/Formatos/Factura.rdlc | 128 +++++++++++++++++++++++++++-- Empresas/80/Formatos/Entradas.rdlc | 6 ++ 3 files changed, 129 insertions(+), 9 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index afd814184..74cb73e65 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -1471,7 +1471,7 @@ Partial Class PopUpVerFactura If Archivo.Exists Then 'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH - If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145) Then + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146) Then Dim CiudadSucursal As String = "" Dim DomicilioSucursal As String = "" Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString) @@ -1487,7 +1487,7 @@ Partial Class PopUpVerFactura End If - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then + If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then params.Add(New ReportParameter("Fecha", String.Format("{0} {1}", FechaHora.ToDate.ToString("yyyy-MM-dd"), FechaHora.ToDateTime.ToString("HH:mm:ss")))) params.Add(New ReportParameter("SucursalCliente", DtMovimientos(0)("SucCliente").ToString)) diff --git a/Empresas/146/Formatos/Factura.rdlc b/Empresas/146/Formatos/Factura.rdlc index 593500dc1..ed8648fc9 100644 --- a/Empresas/146/Formatos/Factura.rdlc +++ b/Empresas/146/Formatos/Factura.rdlc @@ -1749,19 +1749,22 @@ - 2.12527cm + 1.34132cm - 2.02474cm + 1.32237cm - 10.17786cm + 2.53649cm + + + 8.96945cm 2.52862cm - 3.15415cm + 3.27979cm @@ -1776,7 +1779,7 @@ - Cantidad + Cant. + + + + + + Textbox1 + + + #ff1037 + 2pt + 2pt + 2pt + 2pt + + + + @@ -1973,7 +2012,7 @@ =Fields!Cantidad.Value @@ -2041,6 +2080,48 @@ + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -2225,6 +2306,38 @@ + + + + true + true + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -2336,6 +2449,7 @@ + @@ -2355,7 +2469,7 @@ 5.75246cm 0.11468cm 1.07241cm - 20.01064cm + 19.97804cm 26