From e9b7537c1f7667c861c5ce1e41e2a37644580571 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 22 Oct 2019 13:47:57 -0500 Subject: [PATCH 1/9] formato de orden de servicio --- Empresas/72/Formatos/OrdenServicio.rdlc | 2585 +++++++++++++++++++++++ 1 file changed, 2585 insertions(+) create mode 100644 Empresas/72/Formatos/OrdenServicio.rdlc diff --git a/Empresas/72/Formatos/OrdenServicio.rdlc b/Empresas/72/Formatos/OrdenServicio.rdlc new file mode 100644 index 000000000..3728f0dae --- /dev/null +++ b/Empresas/72/Formatos/OrdenServicio.rdlc @@ -0,0 +1,2585 @@ + + + + + + true + true + + + + + DATOS DEL CLIENTE + + + + + + + Textbox165 + 3.63358cm + 0.07cm + 0.47364cm + 18.64497cm + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FECHA + + + + + + + Textbox165 + 0.5338cm + 8.84441cm + 0.47364cm + 4.43083cm + 1 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + DESCRIPCIÓN DEL SERVICIO EN PROCESO + + + + + + + Textbox165 + 7.21306cm + 0.07cm + 0.48cm + 18.65153cm + 2 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + VIGENCIA + + + + + + + Textbox165 + 2.08369cm + 8.84441cm + 0.47364cm + 4.43083cm + 3 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FOLIO + + + + + + + Textbox165 + 0.5338cm + 13.45163cm + 0.47364cm + 5.24334cm + 4 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FolioOS.Value + + + + + + + Textbox165 + 1.00743cm + 13.45163cm + 0.97042cm + 5.26334cm + 5 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CodigoDeServicio.Value + + + + + + + Textbox165 + 2.62788cm + 13.45163cm + 0.89986cm + 5.26334cm + 6 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + CÓDIGO DE SERVICIO + + + + + + + Textbox165 + 2.15424cm + 13.45163cm + 0.47364cm + 5.25334cm + 7 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo1 + FitProportional + 0.1546in + 0.07918in + 1.2065in + 1.21875in + 8 + + + + + + true + true + + + + + SOLICITUD DE + + + + + + + + + SERVICIO + + + + + + + Textbox165 + 1.00743cm + 3.29673cm + 2.52032cm + 5.37129cm + 9 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + RECEPCIÓN DE + + + + + + + Textbox165 + 10.23414cm + 0.07cm + 1.05629cm + 18.65497cm + 10 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + #eceaed + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Descripcion.Value + + + + + + + Textbox165 + 12.08157cm + 0.07cm + 0.99688cm + 18.64497cm + 11 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + FALLA REPORTADA + + + + + + + Textbox165 + 11.60793cm + 0.07cm + 0.47364cm + 18.64497cm + 12 + + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + + Black + + 1pt + + Silver + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + NOMBRE Y FIRMA DEL TÉCNICO + + + + + + + + + ASIGNADO AL SERVICIO + + + + + + + Textbox165 + 14.31538cm + 0.07cm + 0.89754cm + 6.17587cm + 13 + + + + Black + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + NOMBRE Y FIRMA DE ENTERADO DEL + + + + + + + + + COORDINADOR EMPRESARIAL + + + + + + + Textbox165 + 14.31538cm + 6.54879cm + 0.89754cm + 6.17587cm + 14 + + + + Black + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + NOMBRE Y FIRMA DEL CLIENTE + + + + + + + Textbox165 + 14.31538cm + 13.41163cm + 0.89754cm + 5.28334cm + 15 + + + + Black + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + POLÍTICAS + + + + + + + Textbox165 + 15.86248cm + 0.07cm + 0.47421cm + 18.64497cm + 16 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + 1. Toda solicitud será descrita de forma clara para ofrecerle un mejor servicio. +2. La recepción y atención de las solicitudes de servicio se efectuará conforme se vayan recibiendo de acuerdo al número de su reporte. +3. El tiempo estimado para realizar el diagnóstico de su equipo será de 48 horas, posteriores a la recepción de su solicitud. El diagnostico +tiene un costo de $200 pesos, el cual deberá cubrirlo al momento de ingresar su equipo. Sin factura y pago de diagnóstico este reporte no +será procesado. +4. El tiempo de reparación del equipo estará sujeto a la autorización del Cliente y de acuerdo a la disponibilidad de componentes en +Compuproveedores, fabricantes y/o proveedores. +5. El Cliente recibirá una liga al correo electrónico que indicó al momento de ingresar su equipo, en donde podrá consultar el seguimiento a +su servicio. +6. Una vez que reciba la notificación por correo electrónico, de que su equipo ha sido reparado podrá pasar a nuestras oficinas en un horario +de lunes a viernes de 8:00 a.m. a 12:00 a.m. y de 2:00 p.m. a 4:00 p.m. +7. Una vez realizada la reparación de su equipo, podrá permanecer por 10 días hábiles en Compuproveedores/HP store, posteriormente del +día 11 al 20 hábil se cobrara un 3% diario del monto total de la reparación por concepto de almacenaje. Después de este periodo +Compuproveeores no se hace responsable por el resguardo de su equipo. + + + + + + + Textbox165 + 16.51308cm + 0.33448cm + 7.1417cm + 17.72549cm + 17 + + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + + White + + 1pt + + White + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Copia.Value + + + + Copia + 23.83117cm + 0.33448cm + 0.6cm + 18.38049cm + 18 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 9.31248cm + + + 9.31248cm + + + + + 0.62646cm + + + + + true + true + + + + + CLIENTE + + + + : + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + NO. DE CLIENTE: + + + + =Parameters!NoDeCliente.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.67938cm + + + + + true + true + + + + + DIRECCIÓN: + + + + =Parameters!ClienteCalle.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + RFC: + + + + =Parameters!RFC.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + POBLACIÓN: + + + + =Parameters!ClienteCiudad.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + VENDEDOR: + + + + =Parameters!Vendedor.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + CONTACTAR A: + + + + =Parameters!Cliente.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + CORREO: + + + + =Parameters!Correo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + After + + + + + + Before + + + Before + + + + DataSet1 + 4.10722cm + 0.07cm + 2.50584cm + 18.62497cm + 19 + + + + + + true + true + + + + + TELÉFONO: + + + + =Parameters!ClienteTelefono.Value + + + + EXT.: TELÉFONO ADICIONAL: + + + + =Parameters!ClienteTelefono.Value + + + + CELULAR: + + + + =Parameters!ClienteTelefono.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + 9.32576cm + + + 9.32576cm + + + + + 0.6cm + + + + + true + true + + + + + SUCURSAL: + + + + =Parameters!Sucursal.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + LUGAR DE SERVICIO: Taller + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + TIPO DE SERVICIO: Reparación o Servicio + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + TIPO DE EQUIPO: + + + + =Parameters!TipoEquipo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + + + + + DataSet1 + 7.69306cm + 0.07cm + 1.2cm + 18.65153cm + 21 + + + + + + + + + 1.47694cm + + + 1.47694cm + + + 1.47694cm + + + + + 0.97042cm + + + + + true + true + + + + + Día + + + + + + + + + =Day(Parameters!FechaRecibido.Value) + + + + + + + Textbox42 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Mes + + + + + + + + + =Month(Parameters!FechaRecibido.Value) + + + + + + + Textbox44 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Año + + + + + + + + + =Year(Parameters!FechaRecibido.Value) + + + + + + + Textbox46 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + DataSet1 + 1.00743cm + 8.84441cm + 0.97042cm + 4.43083cm + 22 + + + + + + + + + 1.47694cm + + + 1.47694cm + + + 1.47694cm + + + + + 0.97042cm + + + + + true + true + + + + + Día + + + + + + + + + =Microsoft.VisualBasic.DateAndTime.Day(Parameters!FechaRecibido.Value) + + + + + + + Textbox42 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Mes + + + + + + + + + =Microsoft.VisualBasic.DateAndTime.Month(Parameters!FechaRecibido.Value) + + + + + + + Textbox44 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Año + + + + + + + + + =Microsoft.VisualBasic.DateAndTime.Year(Parameters!FechaRecibido.Value) + + + + + + + Textbox46 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + DataSet1 + 2.55733cm + 8.84441cm + 0.97042cm + 4.43082cm + 23 + + + + + + 9.88517in + + + +<%--
  • + PDF +
    • +
  • + Excel +
    • --%> +     + + + + + + + + + <%-- + +
    + +
    +     +     --%> +     + + + + +
    +
    +
    + + "> + +
    +
    +
    + + + +
    +
    + + + + + + + + + + +
    +
    + +
    +
    + + + + + + + + + + +
    +
    + + +
    + +
    + +
    +
    +
    + +
    > +
    + +
    + +
    + +<%-- +
    + +
    --%> +
    +
    +
    +     +     +
    +
    +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + <%----%> + + + + + + + + diff --git a/Compras/RepReqOCCompraInv.aspx.vb b/Compras/RepReqOCCompraInv.aspx.vb new file mode 100644 index 000000000..d92cc9125 --- /dev/null +++ b/Compras/RepReqOCCompraInv.aspx.vb @@ -0,0 +1,161 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports Microsoft.Reporting.WebForms +Imports Extensiones +Partial Class RepReqOCCompraInv + Inherits ClsPaginas + Private Shared missing As Object = System.Reflection.Missing.Value + +#Region "PROPIEDADES" + Private Property FechaI As String + Get + Return ViewState("FechaI").ToString + End Get + Set(value As String) + ViewState("FechaI") = value + End Set + End Property + Private Property FechaF As String + Get + Return ViewState("FechaF").ToString + End Get + Set(value As String) + ViewState("FechaF") = value + End Set + End Property + 'Private Property CveCliente As Integer + ' Get + ' Return ViewState("CveCliente").ToString.ToEntero + ' End Get + ' Set(value As Integer) + ' ViewState("CveCliente") = value + ' End Set + 'End Property + 'Private Property Sucursales As String + ' Get + ' Return ViewState("Sucursales").ToString + ' End Get + ' Set(value As String) + ' ViewState("Sucursales") = value + ' End Set + 'End Property + Private Property DtCompras As DataTable + Get + Return DirectCast(ViewState("DtCompras"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtCompras") = value + End Set + End Property + +#End Region + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + txtFechaI.Text = Now.ToShortDateString + txtFechaF.Text = Now.ToShortDateString + + CargaSucursal() + CargaProveedor() + CargaDatos() + + End If + End Sub + +#Region " C A R G A - D A T O S " + Public Sub CargaDatos() + Dim ObjCompras As New ClsCompras + + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString) + FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString) + + If ObjCompras.GetRepReqOCCompraInv(FechaI.ToDate, FechaF.ToDate, DdlProveedor.SelectedValue.ToEntero, DdlSucursal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjCompras.DtResultados + DtCompras = ObjCompras.DtResultados + GvDatos.DataBind() + UPDatos.Update() + End If + + ObjCompras.Dispose() + End Sub +#End Region + +#Region "G V - D A T O S " + 'Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + ' If e.Row.RowType = DataControlRowType.DataRow Then + + ' 'Cuando es titulo + ' 'If e.Row.DBCampo("PS").ToString.Trim = "" Then + ' ' e.Row.CssClass = "Totales" + + ' ' e.Row.Cells(0).Text = String.Format("Folio: {0} ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida")) + ' ' e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString) + ' ' e.Row.Cells(3).Text = String.Format("Almacen Destino: {0}       Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio")) + ' 'End If + + ' End If + 'End Sub +#End Region + +#Region "CARGA COMBOS FILTRO" + Private Sub CargaSucursal() + DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) + DdlSucursal.DataBind() + DdlSucursal.Items.Insert(0, New ListItem("Todos", "-1")) + DdlSucursal.SelectedValue = "-1" + End Sub + Private Sub CargaProveedor() + DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + DdlProveedor.DataBind() + DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) + DdlProveedor.SelectedValue = "-1" + End Sub +#End Region + +#Region "IMPRESION" + 'Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click + ' Imprime("PDF") + 'End Sub + 'Private Sub Imprime(Formato As String) + ' If DtInventarios IsNot Nothing Then + ' Dim StrFiltro As New StringBuilder + ' If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio: {0}", txtFechaI.Text.ToDate.ToShortDateString) + ' If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", txtFechaF.Text.ToDate.ToShortDateString) + + ' If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Origen: {0}", DdlAlmacenOrigen.SelectedItem.Text) + ' If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Destino: {0}", DdlAlmacenDestino.SelectedItem.Text) + ' If ChkRecibido.Checked Then StrFiltro.AppendFormat(" Recibidos: Si") Else StrFiltro.AppendFormat(" Recibidos: No") + + ' 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 FechaI, FechaF As String + ' FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) + ' FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text) + + ' Dim params As New List(Of ReportParameter) + ' params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + ' params.Add(New ReportParameter("FechaInicio", FechaI)) + ' params.Add(New ReportParameter("FechaFin", FechaF)) + ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + ' params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) + ' If Imagen.Exists Then + ' params.Add(New ReportParameter("LogoPath", logouri)) + ' Else + ' params.Add(New ReportParameter("LogoPath", "")) + ' End If + ' ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato) + ' Else + ' Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) + ' End If + 'End Sub +#End Region + Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click + CargaDatos() + End Sub + + 'Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click + ' Imprime("Excel") + 'End Sub +End Class From b400414c1f504cbe2b74479b25659033f54977e5 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 22 Oct 2019 14:18:01 -0700 Subject: [PATCH 4/9] Reporte de Precios de Compras --- App_Code/ClsCompras.vb | 1 - Compras/RepComprasPrecios.aspx | 321 ++++++++++++++++++++++++++++++ Compras/RepComprasPrecios.aspx.vb | 123 ++++++++++++ 3 files changed, 444 insertions(+), 1 deletion(-) create mode 100644 Compras/RepComprasPrecios.aspx create mode 100644 Compras/RepComprasPrecios.aspx.vb diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb index 1f9dedf7e..68ed6f984 100644 --- a/App_Code/ClsCompras.vb +++ b/App_Code/ClsCompras.vb @@ -3039,7 +3039,6 @@ Public Class ClsCompras Catch ex As Exception OnError("Ocurrió un error al obtener el reporte de Precios de Compras.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try - Return Retorno End Function #End Region diff --git a/Compras/RepComprasPrecios.aspx b/Compras/RepComprasPrecios.aspx new file mode 100644 index 000000000..af6c80308 --- /dev/null +++ b/Compras/RepComprasPrecios.aspx @@ -0,0 +1,321 @@ +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepComprasPrecios.aspx.vb" Inherits="RepComprasPrecios" %> + + + + + + + +
  • + PDF +
    • +
  • + Excel +
    • +     + + + + + + + + + <%-- + +
    + +
    +     +     --%> +     + + + + +
    +
    +
    + + "> + +
    +
    +
    + +
    + +
    +
    +
    +
    + +
    > + +
    +
    +     +     +
    +
    +
    + " style="display: inline-block; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     + + <%----%> + + + + + + + + diff --git a/Compras/RepComprasPrecios.aspx.vb b/Compras/RepComprasPrecios.aspx.vb new file mode 100644 index 000000000..bd90d05a8 --- /dev/null +++ b/Compras/RepComprasPrecios.aspx.vb @@ -0,0 +1,123 @@ +Option Explicit On +Option Strict On + +Imports System.Data +Imports Microsoft.Reporting.WebForms +Imports Extensiones +Partial Class RepComprasPrecios + Inherits ClsPaginas + Private Shared missing As Object = System.Reflection.Missing.Value + +#Region "PROPIEDADES" + Private Property DtCompras As DataTable + Get + Return DirectCast(ViewState("DtCompras"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtCompras") = value + End Set + End Property + +#End Region + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + 'txtFechaI.Text = Now.ToShortDateString + 'txtFechaF.Text = Now.ToShortDateString + + 'CargaSucursal() + CargaProveedor() + CargaDatos() + + End If + End Sub + +#Region " C A R G A - D A T O S " + Public Sub CargaDatos() + Dim ObjCompras As New ClsCompras + + 'FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString) + 'FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString) + + If ObjCompras.GetRepReqOCCompraInv("".ToDate, "".ToDate, DdlProveedor.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then + GvDatos.DataSource = ObjCompras.DtResultados + DtCompras = ObjCompras.DtResultados + GvDatos.DataBind() + UPDatos.Update() + End If + + ObjCompras.Dispose() + End Sub +#End Region + +#Region "G V - D A T O S " + Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + 'Cuando es titulo + 'If e.Row.DBCampo("PS").ToString.Trim = "" Then + ' e.Row.CssClass = "Totales" + + ' e.Row.Cells(0).Text = String.Format("Folio: {0} ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida")) + ' e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString) + ' e.Row.Cells(3).Text = String.Format("Almacen Destino: {0}       Responsable: {1}", e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio")) + 'End If + + End If + End Sub +#End Region + +#Region "CARGA COMBOS FILTRO" + Private Sub CargaProveedor() + DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) + DdlProveedor.DataBind() + DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1")) + DdlProveedor.SelectedValue = "-1" + End Sub +#End Region + +#Region "IMPRESION" + Private Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click + Imprime("PDF") + End Sub + Private Sub Imprime(Formato As String) + 'If DtInventarios IsNot Nothing Then + ' Dim StrFiltro As New StringBuilder + ' If txtFechaI.Text <> "" Then StrFiltro.AppendFormat(" Fecha Inicio: {0}", txtFechaI.Text.ToDate.ToShortDateString) + ' If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(" Fecha Fin: {0}", txtFechaF.Text.ToDate.ToShortDateString) + + ' If DdlAlmacenOrigen.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Origen: {0}", DdlAlmacenOrigen.SelectedItem.Text) + ' If DdlAlmacenDestino.SelectedValue <> "-1" Then StrFiltro.AppendFormat(" Almacén Destino: {0}", DdlAlmacenDestino.SelectedItem.Text) + ' If ChkRecibido.Checked Then StrFiltro.AppendFormat(" Recibidos: Si") Else StrFiltro.AppendFormat(" Recibidos: No") + + ' 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 FechaI, FechaF As String + ' FechaI = If(txtFechaI.Text = "" Or txtFechaI.Text = "__/__/____", "-1", txtFechaI.Text) + ' FechaF = If(txtFechaF.Text = "" Or txtFechaF.Text = "__/__/____", "-1", txtFechaF.Text) + + ' Dim params As New List(Of ReportParameter) + ' params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + ' params.Add(New ReportParameter("FechaInicio", FechaI)) + ' params.Add(New ReportParameter("FechaFin", FechaF)) + ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + ' params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) + ' If Imagen.Exists Then + ' params.Add(New ReportParameter("LogoPath", logouri)) + ' Else + ' params.Add(New ReportParameter("LogoPath", "")) + ' End If + ' ImprimirPDF("Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc", DtInventarios, params, String.Format("RepTraspasoAlmacen-{0}", Now.ToDateTime.ToShortDateString), Formato) + 'Else + ' Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) + 'End If + End Sub +#End Region + Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click + CargaDatos() + End Sub + + Private Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click + Imprime("Excel") + End Sub +End Class From 24b7ce33f2eadd7406ac8e1d8bff021a9272b335 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 23 Oct 2019 10:22:13 -0700 Subject: [PATCH 5/9] clientes. reseteo usados --- Contabilidad/RepBalanceGeneral.aspx.vb | 8 ++++---- Ventas/Clientes.aspx | 8 ++++++++ Ventas/Clientes.aspx.vb | 8 ++++++++ Ventas/ClientesAbonar.aspx.vb | 3 ++- Ventas/Ventas.aspx.vb | 2 +- 5 files changed, 23 insertions(+), 6 deletions(-) diff --git a/Contabilidad/RepBalanceGeneral.aspx.vb b/Contabilidad/RepBalanceGeneral.aspx.vb index 3db5b514a..063f02588 100644 --- a/Contabilidad/RepBalanceGeneral.aspx.vb +++ b/Contabilidad/RepBalanceGeneral.aspx.vb @@ -394,12 +394,12 @@ Partial Class Contabilidad_RepBalanceGeneral End Sub Private Sub ConfiguraFiltros() - FiltroActivoCirculante = "Tipo in ('A','B','C') AND (Sup = 'ACTIVO CIRCULANTE' OR Nombre = 'ACTIVO CIRCULANTE' OR Sup = 'CIRCULANTE' OR Nombre ='CIRCULANTE')" - FiltroActivoNoCirculante = "Tipo in ('A','B','C') AND (Sup = 'ACTIVO NO CIRCULANTE' OR Nombre = 'ACTIVO NO CIRCULANTE' OR Sup = 'FIJO' OR Nombre ='FIJO')" + FiltroActivoCirculante = "Tipo in ('A','B','C') AND (Sup = 'ACTIVO CIRCULANTE' OR Nombre = 'ACTIVO CIRCULANTE' OR Sup = 'CIRCULANTE' OR Nombre ='CIRCULANTE' OR Sup = 'Activo a corto plazo' OR Nombre ='Activo a corto plazo' )" + FiltroActivoNoCirculante = "Tipo in ('A','B','C') AND (Sup = 'ACTIVO NO CIRCULANTE' OR Nombre = 'ACTIVO NO CIRCULANTE' OR Sup = 'FIJO' OR Nombre ='FIJO' OR Sup = 'Activo a largo plazo' OR Nombre ='Activo a largo plazo')" FiltroActivoDiferido = "Tipo In ('A','B','C') AND (Sup = 'DIFERIDO' OR Nombre = 'DIFERIDO')" - FiltroPasivoCirculante = "Tipo in ('D') AND (Sup = 'PASIVO CIRCULANTE' OR (Sup = 'PASIVO' AND Nombre <> 'DIFERIDO' AND Nombre <> 'PASIVO NO CIRCULANTE' ) OR Sup = 'CIRCULANTE' OR Nombre = 'PASIVO CIRCULANTE' OR Sup = 'CORTO PLAZO' OR Nombre = 'CORTO PLAZO')" - FiltroPasivoNoCirculante = "Tipo in ('D') AND (Sup = 'PASIVO NO CIRCULANTE' OR Nombre = 'PASIVO NO CIRCULANTE' OR Sup = 'LARGO PLAZO' OR Nombre = 'LARGO PLAZO' OR Nombre = 'PASIVO LARGO PLAZO')" + FiltroPasivoCirculante = "Tipo in ('D') AND (Sup = 'PASIVO CIRCULANTE' OR (Sup = 'PASIVO' AND Nombre <> 'DIFERIDO' AND Nombre <> 'PASIVO NO CIRCULANTE' ) OR Sup = 'CIRCULANTE' OR Nombre = 'PASIVO CIRCULANTE' OR Sup = 'CORTO PLAZO' OR Nombre = 'CORTO PLAZO' OR Sup = 'Pasivo a corto plazo' OR Nombre = 'Pasivo a corto plazo')" + FiltroPasivoNoCirculante = "Tipo in ('D') AND (Sup = 'PASIVO NO CIRCULANTE' OR Nombre = 'PASIVO NO CIRCULANTE' OR Sup = 'LARGO PLAZO' OR Nombre = 'LARGO PLAZO' OR Nombre = 'PASIVO LARGO PLAZO' OR Sup = 'Pasivo a largo plazo' OR Nombre = 'Pasivo a largo plazo')" FiltroPasivoDiferido = "Tipo in ('D') AND (Sup = 'DIFERIDO' OR Nombre = 'DIFERIDO')" FiltroCapital = "Tipo in ('F') AND (Sup = 'PATRIMONIO CONTRIBUIDO' OR Nombre = 'PATRIMONIO CONTRIBUIDO' OR Sup = 'CAPITAL CONTABLE' OR Sup = 'CAPITAL' OR Nombre = 'CAPITAL CONTABLE' OR Nombre = 'CAPITAL')" diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 7c83e3ae9..722910bf3 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -271,6 +271,14 @@ + + +
  • + +
    • +     +     +
  • diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index e7745f384..4e05ae0a5 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1654,6 +1654,10 @@ Partial Class Clientes DivBonificacionUsado.Visible = True CargaUsados() + If UsuarioActual.TienePermisoProceso(280) Then + UPUsadosReset.Visible = True + End If + End If @@ -9909,6 +9913,10 @@ Partial Class Clientes Alert("No se encontró información.", TipoMensaje.MsgAdvertencia) End If End Sub + + Private Sub LnkUsadosReset_Click(sender As Object, e As EventArgs) Handles LnkUsadosReset.Click + Alert("Puntuación Inicializada") + End Sub #End Region End Class diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index be106ef2c..233ed25db 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -608,7 +608,8 @@ Partial Class Ventas_ClientesAbonar e.Row.FCCheckBox("Chk").Attributes.Add("onclick", String.Format("FnSuma(this,{0},{1}); FnCambia({2},this,{1},0,{3},{4});", e.Row.FCTextBox("TxtAbonar").ClientID, e.Row.DBCampo("Saldo"), e.Row.FCCheckBox("Chk").ClientID, CveMonedaFiltro, moneda)) If Not UsuarioActual.Empresa.Funcionalidad(536) = "1" Then - If e.Row.DBCampo("TipoDocto") = "Rem" Then + 'si es remisión y factura no timbrada + If e.Row.DBCampo("TipoDocto") = "Rem" OrElse (e.Row.DBCampo("TipoDocto") = "Ing" AndAlso e.Row.DBCampo("FolioFiscal") = "") Then e.Row.FCCheckBox("Chk").Visible = False ' que no se pueda pagar si es remisión e.Row.Cells(0).ToolTip = "El documento es remisión y no se puede realizar el pago" End If diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 27961920c..0954fa829 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6107,7 +6107,7 @@ Partial Class Ventas CveProducto = dr("CvePS").ToString.ToEntero CveUnidad = dr("CveUM").ToString.ToEntero Cantidad = TmpDT.SUM("Cantidad", $"CvePS = {CveProducto}") 'VALIDA CONTRA LA SUMA DEL MISMO PS - If UsuarioActual.CveEmpresa.Contiene({72, 80, 119}) AndAlso RemisionesLista.Count < 1 AndAlso dr("EntregaDirecta").ToString.ToEntero < 1 Then + If UsuarioActual.Empresa.UsaInventarios AndAlso RemisionesLista.Count < 1 AndAlso dr("EntregaDirecta").ToString.ToEntero < 1 Then Existencia = ObjInventarios.GetExistenciasPS(CveProducto, CveUnidad, UsuarioActual.CveEmpresa, CveAlmacenExistenciasContrato, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), ExcluyeAdelantado:=1, PendientePorSurtir:=1, RestringirAlmacenes:=1, ExcluyeApartados:=-1) If Existencia < Cantidad Then MensajeCosto.AppendFormat("
    El Producto {0}. No cuenta con la cantidad suficiente en inventario. Cuenta con {1}.", dr("CodigoPS").ToString, Existencia.FormatoNumero(2)) From 67e049f541bd70670784d944b30e7014cc18fc9f Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Wed, 23 Oct 2019 11:55:47 -0700 Subject: [PATCH 6/9] Reporte de Precios de Compras --- Compras/RepComprasPrecios.aspx | 43 ++++++++++++++----------------- Compras/RepComprasPrecios.aspx.vb | 35 ++++++++++++++++++------- 2 files changed, 45 insertions(+), 33 deletions(-) diff --git a/Compras/RepComprasPrecios.aspx b/Compras/RepComprasPrecios.aspx index af6c80308..6adade2de 100644 --- a/Compras/RepComprasPrecios.aspx +++ b/Compras/RepComprasPrecios.aspx @@ -83,7 +83,7 @@ -
  • +
  • PDF
  • @@ -118,17 +118,16 @@
    -
    - -
    - +
    + +
    + +
    -
    > -
    @@ -142,33 +141,29 @@ - + data-sort="true" Style="text-align: center;" GridLines="None" ShowHeader="true" DataKeyNames="CvePS"> - + +<%-- - + - - + + - + - - + + - + - - - - - - - + --%> + diff --git a/Compras/RepComprasPrecios.aspx.vb b/Compras/RepComprasPrecios.aspx.vb index bd90d05a8..af6c4034b 100644 --- a/Compras/RepComprasPrecios.aspx.vb +++ b/Compras/RepComprasPrecios.aspx.vb @@ -21,13 +21,8 @@ Partial Class RepComprasPrecios #End Region Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then - 'txtFechaI.Text = Now.ToShortDateString - 'txtFechaF.Text = Now.ToShortDateString - - 'CargaSucursal() CargaProveedor() CargaDatos() - End If End Sub @@ -35,10 +30,7 @@ Partial Class RepComprasPrecios Public Sub CargaDatos() Dim ObjCompras As New ClsCompras - 'FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), MinFecha.ToShortDateString) - 'FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), MaxFecha.ToShortDateString) - - If ObjCompras.GetRepReqOCCompraInv("".ToDate, "".ToDate, DdlProveedor.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then + If ObjCompras.GetRepComprasPrecios(DdlProveedor.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then GvDatos.DataSource = ObjCompras.DtResultados DtCompras = ObjCompras.DtResultados GvDatos.DataBind() @@ -53,6 +45,31 @@ Partial Class RepComprasPrecios Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then + GvDatos.HeaderRow.Cells(0).Visible = False + e.Row.Cells(0).Visible = False + + e.Row.HorizontalAlign = HorizontalAlign.Right + e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left + + If e.Row.DBCampo("CvePS") = "" Then + e.Row.CssClass = "Totales" + End If + + For Each Cells As TableCell In e.Row.Cells + Dim Celda As String = Cells.Text + If IsNumeric(Celda) Then + 'If Celda.ToDouble = 0 Then + ' Cells.Text = "" + 'Else + Dim ce = DirectCast(Cells, System.Web.UI.WebControls.DataControlFieldCell) + + If Not ce.ContainingField.HeaderText = "PS" Then + Cells.Text = Cells.Text.FormatoNumero(2) + End If + 'End If + End If + Next + 'Cuando es titulo 'If e.Row.DBCampo("PS").ToString.Trim = "" Then ' e.Row.CssClass = "Totales" From 0a7d60331073f02c47f00a5e880a6d01a1a2bf11 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 23 Oct 2019 12:05:41 -0500 Subject: [PATCH 7/9] actualizando formato de orden de servicio para la 72 --- Compras/PopUpVerFactura.aspx.vb | 1 + Empresas/72/Formatos/OrdenServicio.rdlc | 753 ++++++++++++++++-------- 2 files changed, 521 insertions(+), 233 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index aee05f84b..de293344c 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2972,6 +2972,7 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("TipoEquipo", dr("TipoEquipo").ToString)) params.Add(New ReportParameter("Descripcion", dr("Descripcion").ToString)) params.Add(New ReportParameter("Copia", "Copia: Original")) + params.Add(New ReportParameter("Equipo", dr("Equipo").ToString)) End If End If End If diff --git a/Empresas/72/Formatos/OrdenServicio.rdlc b/Empresas/72/Formatos/OrdenServicio.rdlc index 3728f0dae..b2229978d 100644 --- a/Empresas/72/Formatos/OrdenServicio.rdlc +++ b/Empresas/72/Formatos/OrdenServicio.rdlc @@ -133,8 +133,8 @@ Textbox165 - 7.21306cm - 0.07cm + 6.93966cm + 0.07344cm 0.48cm 18.65153cm 2 @@ -548,7 +548,7 @@ RECEPCIÓN DE @@ -560,9 +560,9 @@ Textbox165 - 10.23414cm + 9.69619cm 0.07cm - 1.05629cm + 0.44775cm 18.65497cm 10 @@ -1102,7 +1102,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. =Parameters!Cliente.Value @@ -1131,7 +1131,13 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. - NO. DE CLIENTE: + NO. DE CLIENTE: + + + + @@ -1139,7 +1145,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. =Parameters!NoDeCliente.Value @@ -1162,7 +1168,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. - 0.67938cm + 0.54709cm @@ -1173,7 +1179,13 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. - DIRECCIÓN: + DIRECCIÓN: + + + + @@ -1181,7 +1193,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. =Parameters!ClienteCalle.Value @@ -1210,7 +1222,13 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. - RFC: + RFC: + + + + @@ -1218,7 +1236,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. =Parameters!RFC.Value @@ -1241,7 +1259,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. - 0.6cm + 0.57354cm @@ -1252,7 +1270,13 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. - POBLACIÓN: + POBLACIÓN: + + + + @@ -1260,7 +1284,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. =Parameters!ClienteCiudad.Value @@ -1289,7 +1313,13 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. - VENDEDOR: + VENDEDOR: + + + + @@ -1297,7 +1327,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. =Parameters!Vendedor.Value @@ -1331,7 +1361,13 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. - CONTACTAR A: + CONTACTAR A: + + + + @@ -1339,7 +1375,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. =Parameters!Cliente.Value @@ -1368,7 +1404,13 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. - CORREO: + CORREO: + + + + @@ -1376,7 +1418,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. =Parameters!Correo.Value @@ -1425,13 +1467,14 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. DataSet1 4.10722cm 0.07cm - 2.50584cm - 18.62497cm + 2.26772cm + 18.62496cm 19 + 7pt @@ -1481,7 +1524,7 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. Textbox21 - 6.61306cm + 6.37494cm 0.07cm 0.49417cm 18.64497cm @@ -1496,194 +1539,6 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. 2pt - - - - - 9.32576cm - - - 9.32576cm - - - - - 0.6cm - - - - - true - true - - - - - SUCURSAL: - - - - =Parameters!Sucursal.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - LUGAR DE SERVICIO: Taller - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - 0.6cm - - - - - true - true - - - - - TIPO DE SERVICIO: Reparación o Servicio - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - TIPO DE EQUIPO: - - - - =Parameters!TipoEquipo.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - - - - - - - - - - - - - - - - - - - - - - - DataSet1 - 7.69306cm - 0.07cm - 1.2cm - 18.65153cm - 21 - - - - @@ -1859,8 +1714,8 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. 1.00743cm 8.84441cm 0.97042cm - 4.43083cm - 22 + 4.43082cm + 21 @@ -2043,15 +1898,441 @@ Compuproveeores no se hace responsable por el resguardo de su equipo. 8.84441cm 0.97042cm 4.43082cm - 23 + 22 + + + + + 9.32749cm + + + 9.32749cm + + + + + 0.57354cm + + + + + true + true + + + + + SUCURSARL: + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + LUGAR DE SERVICIO: + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.52062cm + + + + + true + true + + + + + TIPO DE SERVICIO: + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + TIPO DE EQUIPO: + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + DataSet1 + 7.41966cm + 0.07344cm + 1.09417cm + 18.65497cm + 23 + + + 9pt + + + + + + + 9.30904cm + + + + + 0.6cm + + + + + true + true + + + + + Equipo + + + + + + + Textbox23 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.44125cm + + + + + true + true + + + + + =Parameters!Equipo.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + 8.58438cm + 0.07344cm + 1.04125cm + 9.30904cm + 24 + + + + + + true + true + + + + + ( ) Bandeja + + + + + + + + + + + + + + + + + + + + + + + + + + - 9.88517in + 9.8435in