From c7ef852de602e89e0fcb344a66fd805d9fc92cbf Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 15 Jan 2024 09:24:19 -0700 Subject: [PATCH 01/44] -- ocultaropciones --- Bancos/ConciliacionesBancarias.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Bancos/ConciliacionesBancarias.aspx.vb b/Bancos/ConciliacionesBancarias.aspx.vb index 0d92fcc16..3b372de36 100644 --- a/Bancos/ConciliacionesBancarias.aspx.vb +++ b/Bancos/ConciliacionesBancarias.aspx.vb @@ -223,6 +223,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx Protected Sub LnkConciliarManual_Click(sender As Object, e As EventArgs) ModalidadConciliacion = "M" + If DdlCriterio.Items.FindByValue("2") Is Nothing Then DdlCriterio.Items.Add(New ListItem("Importe - Tipo Movimiento", "2")) DdlCriterio.SelectedIndex = 0 DivCriterio.Visible = True TxtFechaAplicado.Text = txtFechaI.Text @@ -323,7 +324,7 @@ Partial Class Bancos_ConciliacionesBancariasaspx End Sub Protected Sub LnlConciliarAutomaticamente_Click(sender As Object, e As EventArgs) ModalidadConciliacion = "A" - DdlCriterio.SelectedIndex = 0 + DdlCriterio.Items.Remove(DdlCriterio.Items.FindByValue("2")) DivCriterio.Visible = True TxtFechaAplicado.Text = txtFechaI.Text UpModalCriterio.Update() From 0e06c1590195becf51c54c3e7833855618aac570 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 15 Jan 2024 15:35:55 -0700 Subject: [PATCH 02/44] - cambios SMS --- Inventarios/RepNotasSinAlmacen.aspx | 9 ++++++++- Inventarios/RepNotasSinAlmacen.aspx.vb | 2 ++ 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/Inventarios/RepNotasSinAlmacen.aspx b/Inventarios/RepNotasSinAlmacen.aspx index 5fc8a751c..4c77704d6 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx +++ b/Inventarios/RepNotasSinAlmacen.aspx @@ -174,7 +174,14 @@ - + + + + + + + + diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb index b267fc391..df5bfc5e2 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx.vb +++ b/Inventarios/RepNotasSinAlmacen.aspx.vb @@ -77,9 +77,11 @@ Partial Class RepNotasSinAlmacen GvCompras.Columns(5).Visible = TienePermisoDesmarcar If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then ' es empresa hospitalaria + GvVentas.Columns(2).HeaderText = "Fecha Cirugía" GvVentas.Columns(3).HeaderText = "Hospital" GvVentas.Columns(6).Visible = True GvVentas.Columns(7).Visible = True + TxtFechaF.Text = NowADS.AddDays(3).ToShortDateString CType(GvVentas.Columns(2), BoundField).DataFormatString = "{0:dd/MM/yyyy HH:mm}" CType(GvVentas.Columns(2), BoundField).ItemStyle.Width = Unit.Pixel(120) End If From 34fdb56260ed29c5b3956d9e3859e41629b58103 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 15 Jan 2024 15:38:44 -0700 Subject: [PATCH 03/44] -- error en casteo de bool --- RH/CatDocumentos.aspx | 2 +- RH/CatDocumentos.aspx.vb | 9 ++------- 2 files changed, 3 insertions(+), 8 deletions(-) diff --git a/RH/CatDocumentos.aspx b/RH/CatDocumentos.aspx index 8b286199b..048d8d9e0 100644 --- a/RH/CatDocumentos.aspx +++ b/RH/CatDocumentos.aspx @@ -51,7 +51,7 @@ + EmptyDataText="No se encontraron registros de documentos" CssClass="table table-hover table-advance Widthall mysmallbtn" GridLines="None" > diff --git a/RH/CatDocumentos.aspx.vb b/RH/CatDocumentos.aspx.vb index 55bf7dd7f..cd2cf8e7f 100644 --- a/RH/CatDocumentos.aspx.vb +++ b/RH/CatDocumentos.aspx.vb @@ -233,24 +233,19 @@ Partial Class RH_CatDocumentos TxtOrden.Text = Orden.ToString TxtDiasLimite.Text = GvRow.DataKey("DiasLimite") - ChkAplicaDiasLimite.Checked = Boolean.Parse(GvRow.DataKey("AplicaDiasLimite")) - ChkAplicaFechaVencimiento.Checked = Boolean.Parse(GvRow.DataKey("AplicaFechaVencimiento")) - + ChkAplicaDiasLimite.Checked = CBool(GvRow.DataKey("AplicaDiasLimite")) + ChkAplicaFechaVencimiento.Checked = CBool(GvRow.DataKey("AplicaFechaVencimiento")) DdlDocumentacionTipo.SelectedValueExist(CveDocumentacionTipo) chkEstatus.Checked = Estatus chkRequerido.Checked = Requerido - LtlTituloModalDocumentacion.Text = "Actualizar Documento: " & Documentacion BtnAgregarDocumentoModal.Text = "Actualizar" UpModalDocumentacion.Update() ActualizarDocumentacion = True - - - CargaDatosParametro() RegistraScript("$('#divAgregarDocumentacion').modal({ backdrop: 'static', keyboard: false});") From 79a60e7456c195b3ff69a4771a84d899bfb747ad Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 15 Jan 2024 17:20:46 -0700 Subject: [PATCH 04/44] --activar sugerir lote/caducidad --- Inventarios/EntregaAlmacen.aspx.vb | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index d6d20549f..d907fcd2b 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -4,8 +4,7 @@ Option Explicit On Imports System.Data Imports System.Data.SqlClient Imports System.IO -Imports Extensiones -Imports Microsoft.Owin.Security.Provider +Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Inventarios_EntregaAlmacen @@ -342,7 +341,7 @@ Partial Class Inventarios_EntregaAlmacen InicializaValores() CargaParametrosAD() - If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 146, 119) Then DdlAlmacen.AutoPostBack = True + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 146, 119, 186) Then DdlAlmacen.AutoPostBack = True If UsuarioActual.Empresa.Funcionalidad(281).ToEntero() = 1 Then @@ -521,9 +520,7 @@ Partial Class Inventarios_EntregaAlmacen If DtPendientes IsNot Nothing Then GVPendientes.DataSource = DtPendientes - End If - LtActualizado.Text = String.Format("Actualizado: {0}", NowADS().ToString("H:mm")) GVPendientes.DataBind() @@ -613,8 +610,6 @@ Partial Class Inventarios_EntregaAlmacen TipoEntrega = 1 BtnGuardar.Visible = True - - Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,26)" If UsuarioActual.CveSubProyecto = 8804 Then From 5d447cbd1101561270308ca68e81584bdb6dc779 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 15 Jan 2024 17:50:55 -0700 Subject: [PATCH 05/44] - 2 dias adelante FechaF --- OS/RepOSMedicas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/OS/RepOSMedicas.aspx.vb b/OS/RepOSMedicas.aspx.vb index a561100f0..f1fd8baca 100644 --- a/OS/RepOSMedicas.aspx.vb +++ b/OS/RepOSMedicas.aspx.vb @@ -72,7 +72,7 @@ Partial Class OS_RepOSMedicas End If txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString - txtFechaF.Text = NowADS().ToShortDateString + txtFechaF.Text = NowADS().AddDays(2).ToShortDateString DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") DdlMedico.DataBind() From 4c9ffc031ce3ad53c709281080d310396e1a0731 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 15 Jan 2024 17:53:24 -0700 Subject: [PATCH 06/44] - globalDtRin --- Ventas/Promociones.aspx.vb | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 91d82696c..21fce0286 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -164,11 +164,12 @@ Partial Class Ventas_Promociones If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then GvDatos.Columns(8).Visible = True DivRin.Visible = True - Dim ObjGral As New ClsGenerales - If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then - DdlRin.DataSource = ObjGral.DtResultados - End If - ObjGral.Dispose() + 'Dim ObjGral As New ClsGenerales + 'If ObjGral.GetRinTamanios(UsuarioActual.CveEmpresa) Then + ' DdlRin.DataSource = ObjGral.DtResultados + 'End If + 'ObjGral.Dispose() + DdlRin.DataSource = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa) DdlRin.DataBind() DdlRin.Items.Insert(0, New ListItem("Todos", "-1")) End If @@ -1073,12 +1074,12 @@ Partial Class Ventas_Promociones ObjPS.Dispose() - Dim ObjGral As New ClsGenerales - If ObjGral.GetRimTamanios(UsuarioActual.CveEmpresa) Then - DTRines = ObjGral.DtResultados - End If - ObjGral.Dispose() - + 'Dim ObjGral As New ClsGenerales + 'If ObjGral.GetRinTamanios(UsuarioActual.CveEmpresa) Then + ' DTRines = ObjGral.DtResultados + 'End If + 'ObjGral.Dispose() + DTRines = GlobalDTPSRinTamaños(UsuarioActual.CveEmpresa) Dim RegistroActual As Integer = 1 For Each dRow As DataRow In DTPlantilla.Rows From bd29b29394945d0294ccf056c8c272e731bc9fb8 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 15 Jan 2024 17:53:50 -0700 Subject: [PATCH 07/44] - traspaso --- App_Code/ClsTransportes.vb | 18 +-- Transportes/Boletos.aspx | 281 ++++++++++++++++----------------- Transportes/Boletos.aspx.vb | 32 ++-- Transportes/RepBoletos.aspx | 16 +- Transportes/RepBoletos.aspx.vb | 63 ++++---- 5 files changed, 205 insertions(+), 205 deletions(-) diff --git a/App_Code/ClsTransportes.vb b/App_Code/ClsTransportes.vb index 13189b553..979375c2e 100644 --- a/App_Code/ClsTransportes.vb +++ b/App_Code/ClsTransportes.vb @@ -184,6 +184,7 @@ Public Class ClsTransportes CveMasivo = Data.Rows(0)("CveMasivo").ToString.ToEntero Fecha = Data.Rows(0)("Fecha").ToString.ToDate Ruta = Data.Rows(0)("Ruta").ToString + Me.CveViaje = Data.Rows(0)("CveViaje").ToString.ToEntero End If Retorno = True Catch ex As Exception @@ -273,20 +274,15 @@ Public Class ClsTransportes Return Retorno End Function - Public Function GetViajesPasajeros(CveViaje As Integer, Optional CveViajePasajero As Integer = 0, Optional Estatus As Boolean = False) As Boolean + Public Function GetViajesPasajeros(CveViaje As Integer, Optional CveViajePasajero As Integer = -1, Optional Estatus As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Trans_ViajesPasajerosGet") - If Estatus = True Then - With SqlAdapter.SelectCommand.Parameters - .Add("@CveViaje", SqlDbType.Int).Value = CveViaje - .Add("@Estatus", SqlDbType.Bit).Value = Estatus - End With - Else - With SqlAdapter.SelectCommand.Parameters - .Add("@CveViaje", SqlDbType.Int).Value = CveViaje - End With - End If + With SqlAdapter.SelectCommand.Parameters + .Add("@CveViaje", SqlDbType.Int).Value = CveViaje + .Add("@CveViajePasajero", SqlDbType.Int).Value = CveViajePasajero + .Add("@Estatus", SqlDbType.Int).Value = Estatus + End With Try SqlAdapter.Fill(Data) diff --git a/Transportes/Boletos.aspx b/Transportes/Boletos.aspx index a7201422a..e8c33e9fc 100644 --- a/Transportes/Boletos.aspx +++ b/Transportes/Boletos.aspx @@ -1,5 +1,5 @@ <%@ Page Language="VB" Title="Transportes V&A - Comprar Boleto" AutoEventWireup="false" MasterPageFile="~/Site.master" CodeFile="Boletos.aspx.vb" - Inherits="Boletos" EnableEventValidation="true" %> + Inherits="Boletos" %> Comprar Boleto @@ -67,155 +67,146 @@ -<%-- - -
  • - Viajes -
    • -     -    --%> + + + - -
    -
    -
    -
    - - Datos del Cliente + + +
    +
    +
    +
    +
    + + Datos del Cliente +
    +
    +
    +
    +
    -
    -
    +
    + +
    + + + + +
    + +
    +
    +
    + + +
    +
    + +
    +
    +
    +
    + + + + + + +
    +
    +
    +
    + + + +
    +
    +
    + +
    + + + +
    + +
    +
    + +
    +
    +
    + + Datos del Viaje +
    +
    +
    + +
    +
    +
    + + +
    +
    +
    +
    + + + + + +
    +
    +
    +
    +
    +
    + + +
    +
    +
    + +
    + + + + +
    +
    + +
    + +
    + +
    +
    + +
    +
    + + +
    -
    -
    - - - - -
    - -
    -
    -
    - - -
    -
    - -
    -
    -
    -
    - - - - - - -
    -
    -
    -
    - - - -
    -
    -
    - -
    - - - -
    - -
    -
    - -
    -
    -
    - - Datos del Viaje -
    -
    - -
    - - -
    -
    -
    - - -
    -
    -
    -
    - - - - - -
    -
    -
    -
    -
    -
    - - -
    -
    -
    - -
    - - - - -
    -
    - -
    - - -
    - -
    -
    - -
    -
    - -     -     - -
    -
    - -
    - -
    +
    @@ -226,6 +217,7 @@ + @@ -474,6 +466,9 @@
    +
    + + diff --git a/Transportes/Boletos.aspx.vb b/Transportes/Boletos.aspx.vb index 62774dc29..8af8af748 100644 --- a/Transportes/Boletos.aspx.vb +++ b/Transportes/Boletos.aspx.vb @@ -59,13 +59,16 @@ Partial Class Boletos 'Datos Viaje Dim ObjViaje As New ClsTransportes Dim retornoViaje As Boolean = ObjViaje.GetViajes(CveViaje, UsuarioActual.CveEmpresa) - ViewState("CveRuta") = ObjViaje.CveRuta - If retornoViaje Then + + If retornoViaje AndAlso ObjViaje.CveViaje > 0 Then + CveRuta = ObjViaje.CveRuta TxtRuta.Text = ObjViaje.Ruta TxtFecha.Text = ObjViaje.Fecha.ToShortDateString + CargaDestinos() 'Boletos Vendidos Dim dt As DataTable - If ObjViaje.GetViajesPasajeros(CveViaje, Estatus:=True) Then 'Poner párametro para estatus y cancelado de viajes + If ObjViaje.GetViajesPasajeros(CveViaje, Estatus:=1) Then 'Poner párametro para estatus y cancelado de viajes + dt = ObjViaje.DtResultados dt = ObjViaje.DtResultados Dim cph As ContentPlaceHolder = CType(Me.Master.FindControl("C"), ContentPlaceHolder) For Each dr As DataRow In dt.Rows @@ -75,7 +78,6 @@ Partial Class Boletos lnk.CssClass = "nodisponible" lnk.ToolTip = dr("Nombre").ToString End If - Next End If End If @@ -85,6 +87,10 @@ Partial Class Boletos Protected Sub InicializaCombos() 'Lista Destinos''carga específicos + + End Sub + + Private Sub CargaDestinos() Dim ObjDestinos As New ClsTransportes() If ObjDestinos.GetDestinos(CveRuta:=CveRuta) Then @@ -102,20 +108,18 @@ Partial Class Boletos End If ObjDestinos.Dispose() End Sub - - Protected Sub CotizarTarifa(sender As Object, e As EventArgs) + Private Sub CotizarTarifa() If DdlDestino.SelectedValue <> "" And DdlPartida.SelectedValue <> "" Then Dim ObjDestinos As New ClsTransportes() Dim retorno As Boolean = ObjDestinos.GetDestinosTarifas(DdlPartida.SelectedValue.ToEntero, DdlDestino.SelectedValue.ToEntero) - Dim ImporteR As Decimal = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal + Dim ImporteR As Decimal = ObjDestinos.DtResultados.FiltroPrimeroValor("Importe").ToDecimal.RoundSQL ObjDestinos.Dispose() If retorno Then If ImporteR > 0 Then - Dim redondeado As String = CStr(Math.Round(ImporteR, 2)) - ViewState("Importe") = redondeado - TxtCosto.Text = $"El precio de su boleto es ${Importe}" + ViewState("Importe") = ImporteR + TxtCosto.Text = $"El precio de su boleto es ${ImporteR.FormatoNumero}" BtnGuardar.Visible = True upPanel.Visible = True Else @@ -175,4 +179,12 @@ Partial Class Boletos End Sub + + Protected Sub DdlPartida_SelectedIndexChanged(sender As Object, e As EventArgs) + CotizarTarifa() + End Sub + + Protected Sub DdlDestino_SelectedIndexChanged(sender As Object, e As EventArgs) + CotizarTarifa() + End Sub End Class diff --git a/Transportes/RepBoletos.aspx b/Transportes/RepBoletos.aspx index 27869d3d3..b0c7b381e 100644 --- a/Transportes/RepBoletos.aspx +++ b/Transportes/RepBoletos.aspx @@ -14,9 +14,9 @@ -<%-- + ---%> +
    @@ -27,11 +27,13 @@
    + + -
    +
    + data-sort="true" DataKeyNames="CveViajePasajero,Asiento,Nombre, Visa,Celular,Sexo,Estatus,Partida,Destino, Importe,FechaIng, Agencia, TelefonoAgencia"> @@ -93,10 +95,10 @@ - + data-btn-ok-label="si" OnClick="BtnCancelar_Click" /> @@ -107,6 +109,8 @@
    + + diff --git a/Transportes/RepBoletos.aspx.vb b/Transportes/RepBoletos.aspx.vb index 55a6df615..f85fe63e8 100644 --- a/Transportes/RepBoletos.aspx.vb +++ b/Transportes/RepBoletos.aspx.vb @@ -31,7 +31,7 @@ Partial Class ListadoBoletos Response.Redirect("/Transportes/RepViajes.aspx") End If CveViaje = Request.QueryString("CveViaje").ToEntero - Ruta = Request.QueryString("Ruta") + Ruta = IfNull(Request("Ruta"), "").ToString Prueba.Text = Ruta @@ -46,43 +46,11 @@ Partial Class ListadoBoletos Private Sub CargaDatos() Dim ObjTransportes As New ClsTransportes - If ObjTransportes.GetViajesPasajeros(CveViaje) Then - GvBoletos.DataSource = ObjTransportes.DtResultados - ObjTransportes.Dispose() - GvBoletos.DataBind() End If - End Sub - - Protected Sub ToggleViajesPasajeros(sender As Object, e As EventArgs) - Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) - Dim CveViajePasajero As String = GvRow.DataKey("CveViajePasajero") - Dim Estatus As String = GvRow.DataKey("Estatus") - Dim cambiarEstatus As Boolean = Not Estatus.ToBool - Dim ObjTransportes As New ClsTransportes - - Try - ObjTransportes.IniciaTransacSQL() - If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=True, Estatus:=cambiarEstatus) Then - - If cambiarEstatus Then - Alert($"El boleto ha sido cancelado correctamente.") - Else - Alert($"El boleto ha sido reactivado correctamente.") - - End If - End If - ObjTransportes.Commit() - - Catch ex As Exception - ObjTransportes.RollBack() - Alert($"No se pudo cambiar el estatus del boleto {ex}", TipoMensaje.MsgError) - Finally - ObjTransportes.Dispose() - CargaDatos() - End Try - + ObjTransportes.Dispose() + GvBoletos.DataBind() End Sub Protected Sub ImprimirBoleto(sender As Object, e As EventArgs) @@ -113,4 +81,29 @@ Partial Class ListadoBoletos End Sub + + Protected Sub BtnCancelar_Click(sender As Object, e As EventArgs) + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Dim CveViajePasajero As String = GvRow.DataKey("CveViajePasajero") + Dim Estatus As String = GvRow.DataKey("Estatus") + Dim cambiarEstatus As Boolean = Not Estatus.ToBool + Dim ObjTransportes As New ClsTransportes + ObjTransportes.IniciaTransacSQL() + Try + If ObjTransportes.UpdateViajesPasajeros(CveViajePasajero.ToEntero, Activar:=cambiarEstatus, Estatus:=cambiarEstatus) Then + If Not cambiarEstatus Then + Alert($"El boleto ha sido cancelado correctamente.") + Else + Alert($"El boleto ha sido reactivado correctamente.") + End If + End If + ObjTransportes.Commit() + Catch ex As Exception + ObjTransportes.RollBack() + Alert($"No se pudo cambiar el estatus del boleto {ex}", TipoMensaje.MsgError) + Finally + ObjTransportes.Dispose() + CargaDatos() + End Try + End Sub End Class \ No newline at end of file From 538fc985fbd9233995b1a1dd28bd7479072ad0b8 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 15 Jan 2024 17:54:53 -0700 Subject: [PATCH 08/44] - --- Ventas/Ventas.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index bf9246d46..f8293738d 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -5368,7 +5368,7 @@ + DataKeyNames="CveVenta, CveVentaDetalle, PU, Total, Cantidad, CveContrato,Surtido,Medico,Procedimiento" AllowPaging="False"> From 1f1965af8dc7c96ed7a0816e25e7fe35e13a0259 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 15 Jan 2024 20:01:27 -0700 Subject: [PATCH 09/44] --- Scripts/custom.js | 56 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 56 insertions(+) diff --git a/Scripts/custom.js b/Scripts/custom.js index d14dfa838..a8c3d1b85 100644 --- a/Scripts/custom.js +++ b/Scripts/custom.js @@ -1667,6 +1667,22 @@ function loadsortadscroll() { var index = tthis.index(); var multiplicador = -1; var tipodato = tthis.closest('tr').find('th').data('tipodato') + if(1==1){ + + var table = $(tthis.closest('.ADScroller').find('.ADScroller-body > table ')[0]); + var tabletr = table.find('> tr:not(.trnopadding.ADtr),> tbody > tr:not(.trnopadding.ADtr),> thead > tr:not(.trnopadding.ADtr)'); + if (tabletr.length > 0) { + + el = $(tabletr[0]); + var tdtexto = el.find("> td"); + texto = $(tdtexto[index]).data('order'); + if (texto) { + tipodato = 'dataorder'; + } + + } + } + console.log({ tipodato }) tthis.closest('tr').addClass('tsorterblock'); setTimeout( function () { @@ -1867,6 +1883,43 @@ function loadsortadscroll() { table.append(this.obj); }); } + + function reordenarcinco() { + var re = new RegExp(",", 'g'); + var table = $(tthis.closest('.ADScroller').find('.ADScroller-body > table ')[0]); + var tabletr = table.find('> tr:not(.trnopadding.ADtr),> tbody > tr:not(.trnopadding.ADtr),> thead > tr:not(.trnopadding.ADtr)'); + tipostring = 0; + tiponumeric = 0; + tipodate = 0; + var mapped = tabletr.map(function (i, el) { + el = $(el); + var tdtexto = el.find("> td"); + var texto = null; + var texton = 0; + if (tdtexto && tdtexto.length > index) { + texto = $(tdtexto[index]).data('order'); + + if (texto.length > 0) { + var vnum = texto.replace("$", "").replace("%", "").replace("-", "").replace("(", "").replace(")", "").replace(re, "").trim(); + if (vnum.length > 0) { + if ($.isNumeric(vnum)) { + texton = Number(vnum); + } + } + } + } else { + texto = null; + } + return { index: i, value: texton, obj: el }; + }); + console.log(mapped) + mapped.sort(function (a, b) { + return (+(a.value > b.value) || +(a.value === b.value) - 1) * multiplicador; + }); + mapped.each(function (i, el) { + table.append(this.obj); + }); + } switch (tipodato) { case 'string': reordenardos(); @@ -1877,6 +1930,9 @@ function loadsortadscroll() { case 'numeric': reordenarcuatro(); break; + case 'dataorder': + reordenarcinco(); + break; default: reordenaruno(); } From 58c8b56f171f5f2bfcbd7bdb2b4d281c16d89389 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 15 Jan 2024 20:14:33 -0700 Subject: [PATCH 10/44] customjs --- Scripts/custom.js | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) diff --git a/Scripts/custom.js b/Scripts/custom.js index a8c3d1b85..fd6e9cf3d 100644 --- a/Scripts/custom.js +++ b/Scripts/custom.js @@ -1682,7 +1682,7 @@ function loadsortadscroll() { } } - console.log({ tipodato }) + //console.log({ tipodato }) tthis.closest('tr').addClass('tsorterblock'); setTimeout( function () { @@ -1897,22 +1897,14 @@ function loadsortadscroll() { var texto = null; var texton = 0; if (tdtexto && tdtexto.length > index) { - texto = $(tdtexto[index]).data('order'); - - if (texto.length > 0) { - var vnum = texto.replace("$", "").replace("%", "").replace("-", "").replace("(", "").replace(")", "").replace(re, "").trim(); - if (vnum.length > 0) { - if ($.isNumeric(vnum)) { - texton = Number(vnum); - } - } - } + texton = Number($(tdtexto[index]).data('order')); + } else { texto = null; } return { index: i, value: texton, obj: el }; }); - console.log(mapped) + //console.log(mapped) mapped.sort(function (a, b) { return (+(a.value > b.value) || +(a.value === b.value) - 1) * multiplicador; }); From 20d17f6a2a8d93ecd656ecca4bd3869d409670bf Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 16 Jan 2024 00:52:30 -0700 Subject: [PATCH 11/44] --mejoras en descarga de pdf, cambios en factura USA --- App_Code/ClsPaginas.vb | 42 ++++++++++++++++++++++++++++++++++++++++++ Ashx/SIGDesc.ashx | 37 +++++++++++++++++++++++++++++++++++++ 2 files changed, 79 insertions(+) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 66c8e9396..08c3873c6 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7197,6 +7197,46 @@ Public Class ClsPaginas GuardaLog("No se especifico el tipo de Impresion de venta (Venta, Remision, Cotización, Nota de Crédito).") Return Nothing End If + + If NombreArchivo = "FacturaUSA" Then + Dim DtBaseTotales = Vta.DtDeduccion.Clone() + + If Vta.DtDeduccion IsNot Nothing Then + Dim RowTotal_USA = DtBaseTotales.NewRow() + Dim RowPAYMENTS_USA = DtBaseTotales.NewRow() + Dim RowBALANCE_USA = DtBaseTotales.NewRow() + + Dim TOTAL_USA As Decimal = 0 + Dim PAYMENTS_USA As Decimal = 0 + Dim BALANCE_USA As Decimal = 0 + + For Each Row As DataRow In Vta.DtDeduccion.Rows + If Row("ImpuestoLocal").ToString() = "Total" Then + TOTAL_USA += Row("Importe").ToString().ToDecimal() + End If + Next + + RowTotal_USA("ImpuestoLocal") = "TOTAL" + RowTotal_USA("Importe") = TOTAL_USA + RowTotal_USA("Orden") = 1 + DtBaseTotales.Rows.Add(RowTotal_USA) + + RowPAYMENTS_USA("ImpuestoLocal") = "PAYMENTS/CREDITS" + RowPAYMENTS_USA("Importe") = PAYMENTS_USA + RowPAYMENTS_USA("Orden") = 2 + DtBaseTotales.Rows.Add(RowPAYMENTS_USA) + + BALANCE_USA = TOTAL_USA - PAYMENTS_USA + + RowBALANCE_USA("ImpuestoLocal") = "BALANCE DUE" + RowBALANCE_USA("Importe") = BALANCE_USA + RowBALANCE_USA("Orden") = 3 + DtBaseTotales.Rows.Add(RowBALANCE_USA) + + Vta.DtDeduccion = DtBaseTotales + End If + End If + 'TERMINA REGION PARAMETROS Dim lrds As New List(Of ReportDataSource) 'Si es ECLIPSE CREAR COLUMAS PARA FIRMAS EN DtDetalle. @@ -7273,6 +7313,7 @@ Public Class ClsPaginas If UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 163) AndAlso (RutaFormato.Contains("Factura") Or RutaFormato.Contains("Cotizacion")) Then params.Add(New ReportParameter("Kilometraje", Vta.Kilometraje.ToString)) End If + 'Imprime los parametros 'Dim ast As New StringBuilder 'For Each par As ReportParameter In params @@ -7550,6 +7591,7 @@ Public Class ClsPaginas End If End If ObjVentas.Dispose() + If Not IsNothing(Vta) Then PdfFactura(Vta) Vta = Nothing diff --git a/Ashx/SIGDesc.ashx b/Ashx/SIGDesc.ashx index 43f9264fe..e9b8053df 100644 --- a/Ashx/SIGDesc.ashx +++ b/Ashx/SIGDesc.ashx @@ -6,6 +6,7 @@ Imports System.IO Imports Extensiones Imports Microsoft.Reporting.WebForms Imports Newtonsoft.Json +Imports System.Net.Http Public Class SIGDesc : Implements IHttpHandler, IRequiresSessionState @@ -35,11 +36,47 @@ Public Class SIGDesc : Implements IHttpHandler, IRequiresSessionState context.Response.Flush() context.Response.WriteFile(FileInfo.FullName) context.Response.End() + Else + DescargarPDFVentaPeticion(context, ObjFactura) End If FileInfo = Nothing End If End Sub + + Private Sub DescargarPDFVentaPeticion(ByVal context As HttpContext, ObjFactura As Modelos.Factura) + Dim usuario As Usuario = UsuarioActual(context) + If Not IsNothing(usuario) Then + Dim strURLHOST = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port) + + Dim Url As New Uri(String.Format("{0}/Compras/PopUpVerFactura.aspx?P={1}", strURLHOST, Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1®ENERAR={1}", ObjFactura.CveVenta, "1")))) + Dim File As Byte() = Nothing + Try + Using httpClient As New HttpClient() + httpClient.Timeout = New TimeSpan(0, 1, 0) + Using request As New HttpRequestMessage(HttpMethod.Get, Url) + request.Headers.Add("ADSToken", Encripta(String.Format("CVEEMPRESA={0}&TICKS={1}&CveUsuario={2}", ObjFactura.CveEmpresa, DateTime.UtcNow.Ticks, ObjFactura.CveUsuario))) + Dim response = httpClient.SendAsync(request).Result + If response.StatusCode = Net.HttpStatusCode.OK Then + File = response.Content.ReadAsByteArrayAsync().Result + End If + End Using + End Using + Catch ex As Exception + File = Nothing + OnError("Ocurrió un error al descargar la factura", ex) + End Try + + context.Response.Buffer = True + context.Response.Clear() + context.Response.ContentType = "application/pdf" + context.Response.ClearHeaders() + context.Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", "attachment", ObjFactura.SerieFolio, "pdf")) + context.Response.BinaryWrite(File) ' create the file + context.Response.End() + End If + End Sub + Public ReadOnly Property IsReusable() As Boolean Implements IHttpHandler.IsReusable Get Return False From 9cd23f6c15ea1ce54ba3088e710bc5c3bf20ebc2 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 16 Jan 2024 12:00:20 -0700 Subject: [PATCH 12/44] - mejora --- AF/CatAF.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb index 4a021ea00..1ee85db95 100644 --- a/AF/CatAF.aspx.vb +++ b/AF/CatAF.aspx.vb @@ -124,8 +124,8 @@ Partial Class AF_CatAF DdlTipoActivo.Items.Insert(0, New ListItem("Todos", "-1")) End Sub Private Sub CargaResponsable() - Dim DtPersonal = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") - DdlResponsable.DataSource = DtPersonal + + DdlResponsable.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto") DdlResponsable.DataBind() End Sub Protected Sub DdlTipoActivo_SelectedIndexChanged(sender As Object, e As EventArgs) @@ -454,7 +454,7 @@ Partial Class AF_CatAF End Sub Private Sub GenerarPDF(Optional Formato As String = "PDF") - If DtActivosFijos.Rows.Count > 0 Then + If DtActivosFijos IsNot Nothing AndAlso DtActivosFijos.Rows.Count > 0 Then Dim params As New List(Of ReportParameter) Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png") From f0522e462755a74ba1a69183dcd5ea61b9434e7a Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 16 Jan 2024 18:07:03 -0700 Subject: [PATCH 13/44] =?UTF-8?q?--=20mejora=20aplicaci=C3=B3n=20de=20pago?= =?UTF-8?q?=20usd-mxn?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 08c3873c6..a710b972e 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -9205,7 +9205,7 @@ Public Class ClsPaginas End If If VentaActual.Fecha < tFechaUltimaFluctuacion Then TCValuacionVenta = TCValuacion 'si tiene fecha de documento, debe de evaluarse para su tc. y no la fecha de la prepóliza - If IIf(Pago.FechaDocumentoRelacionado > MinFecha, Pago.FechaDocumentoRelacionado, Pago.Fecha).ToString.ToDate < tFechaUltimaFluctuacion Then TCValuacionPago = TCValuacion + If IIf(Pago.FechaDocumentoRelacionado > MinFecha, Pago.FechaDocumentoRelacionado, Pago.Fecha).ToString.ToDate < tFechaUltimaFluctuacion AndAlso Pago.CveMonedaPago > 1 Then TCValuacionPago = TCValuacion End If End If If VentaActual.CveMoneda = 1 And Pago.CveMonedaPago <> 1 Then 'factura pesos, pago en dolares @@ -9215,7 +9215,7 @@ Public Class ClsPaginas tImporteVenta = (Pago.ImportePago * TCValuacionVenta).RoundSQL tImportePago = (Pago.ImportePago * TCValuacionPago).RoundSQL ElseIf VentaActual.CveMoneda <> 1 And Pago.CveMonedaPago = 1 Then 'factura dolares, pago en pesos - tImporteVenta = (Pago.ImportePago * TCValuacionVenta).RoundSQL + tImporteVenta = (Pago.ImportePagoVenta * TCValuacionVenta).RoundSQL tImportePago = (Pago.ImportePago * TCValuacionPago).RoundSQL End If If VentaActual.CveMoneda > 1 Then ImporteME = Pago.ImportePagoVenta From e8ee1e8f4bc63fbd0a899585154bfaf3a053a52c Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 15 Jan 2024 17:34:26 -0700 Subject: [PATCH 14/44] Ordenamiento Fecha cirugia --- Inventarios/RepNotasSinAlmacen.aspx | 16 +++++++- Inventarios/RepNotasSinAlmacen.aspx.vb | 56 +++++++++++++++++--------- 2 files changed, 51 insertions(+), 21 deletions(-) diff --git a/Inventarios/RepNotasSinAlmacen.aspx b/Inventarios/RepNotasSinAlmacen.aspx index 4c77704d6..29512fb09 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx +++ b/Inventarios/RepNotasSinAlmacen.aspx @@ -165,11 +165,23 @@
    - + + - + + <%-- --%> + + + + + + + + + diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb index df5bfc5e2..f9f62dee2 100644 --- a/Inventarios/RepNotasSinAlmacen.aspx.vb +++ b/Inventarios/RepNotasSinAlmacen.aspx.vb @@ -1,9 +1,10 @@ Imports System.Data Imports Extensiones -Imports Microsoft.Reporting.WebForms - -Partial Class RepNotasSinAlmacen +Imports Microsoft.Reporting.WebForms +Imports Stimulsoft.Report.QuickButtons.StiWpfQuickButtonAttribute +Partial Class RepNotasSinAlmacen Inherits ClsPaginas + #Region "propiedades" Private Property dt As DataTable @@ -57,10 +58,12 @@ Partial Class RepNotasSinAlmacen End Get Set(value As DataTable) ViewState("DtNotasSinAlmacenCompras") = value - End Set - End Property + End Set + End Property + + #End Region - + Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then @@ -82,8 +85,10 @@ Partial Class RepNotasSinAlmacen GvVentas.Columns(6).Visible = True GvVentas.Columns(7).Visible = True TxtFechaF.Text = NowADS.AddDays(3).ToShortDateString - CType(GvVentas.Columns(2), BoundField).DataFormatString = "{0:dd/MM/yyyy HH:mm}" - CType(GvVentas.Columns(2), BoundField).ItemStyle.Width = Unit.Pixel(120) + + GvVentas.Columns(0).ItemStyle.Width = Unit.Pixel(120) + 'CType(GvVentas.Columns(2), Literal).DataFormatString = "{0:dd/MM/yyyy HH:mm}" + 'CType(GvVentas.Columns(2), Literal).ItemStyle.Width = Unit.Pixel(120) End If End Sub @@ -194,16 +199,15 @@ Partial Class RepNotasSinAlmacen End If - UpFiltros.Update() - - End Sub - - + UpFiltros.Update() + End Sub + + #Region " EXPORTAR - PDF - EXCEL " Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click - ImprimirPDFExcel("Excel") - End Sub - + ImprimirPDFExcel("Excel") + End Sub + #Region "P D F" Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click ImprimirPDFExcel() @@ -276,8 +280,10 @@ Partial Class RepNotasSinAlmacen e.Row.FCLinkButton("lnkAccion").Visible = False If GvCompras.Columns(4).Visible Then e.Row.Cells(4).Text = "" - End If - + End If + + + End If End If End Sub @@ -294,7 +300,7 @@ Partial Class RepNotasSinAlmacen Dim ObjCompras As New ClsCompras Dim ObjEventos As New ClsOIEventos - If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1, Usuarioactual.CveUsuario) Then + If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1, UsuarioActual.CveUsuario) Then If ObjEventos.AddEventoBitacora(String.Format("El producto: {0} se marcó como no recibido", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then Alert("El producto se marcó como 'no recibido' correctamente.") End If @@ -308,4 +314,16 @@ Partial Class RepNotasSinAlmacen End Sub + + Protected Sub GvVentas_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + + If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then ' es empresa hospitalaria + e.Row.Cells(2).Text = $"
    {e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy")}
    {e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy HH:mm")}" + Else + e.Row.Cells(2).Text = $"{e.Row.DBCampo("Fecha").ToDateTime.ToString("dd/MM/yyyy")}" + End If + + End If + End Sub End Class From 35fb0d2dd09a3b316e791f10ff3abae1d1358d1b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 16 Jan 2024 19:08:57 -0700 Subject: [PATCH 15/44] SMS - Mejoras --- Empresas/186/Formatos/Traslado.rdlc | 41 ++++++++++++++++++++++++++--- Inventarios/EntregaAlmacen.aspx.vb | 4 +++ 2 files changed, 41 insertions(+), 4 deletions(-) diff --git a/Empresas/186/Formatos/Traslado.rdlc b/Empresas/186/Formatos/Traslado.rdlc index 7a9a096a5..1f5390b8a 100644 --- a/Empresas/186/Formatos/Traslado.rdlc +++ b/Empresas/186/Formatos/Traslado.rdlc @@ -724,7 +724,7 @@ 8.06981in - 4.8037cm + 5.67302cm true true @@ -824,7 +824,7 @@ CIUDAD DE MEXICO - =Microsoft.VisualBasic.Interaction.iif(Parameters!CveConcepto.Value = 8, "AVISO", "ENTRADA") & " DE TRASLADO " + =Microsoft.VisualBasic.Interaction.iif(Parameters!CveConcepto.Value = 8, "PRE-REMISIÓN", "ENTRADA DE TRASLADO") @@ -982,7 +982,7 @@ CIUDAD DE MEXICO Textbox12 - 2.21518cm + 2.85018cm 16.09549cm 0.44478cm 4.32987cm @@ -1187,7 +1187,7 @@ CIUDAD DE MEXICO true - 2.70907cm + 3.66157cm 2.01145cm 20.32792cm 8 @@ -1229,6 +1229,39 @@ CIUDAD DE MEXICO 2pt + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + @@ -203,66 +215,6 @@ - - - - true - - - - - U.M. - - - - - - - - - - - - - - - - Textbox7 - - - - Black - - 1pt - - - Black - - 1pt - - #9cc3e5 - 2pt - 2pt - 2pt - 2pt - - - - @@ -271,7 +223,7 @@ - Descripción + Referencia - Textbox12 + Textbox7 + + + + Black + + 1pt + + + Black + + 1pt + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox15 @@ -490,14 +488,20 @@ - =Fields!Codigo.Value + =Fields!PS.Value + + + + @@ -514,39 +518,6 @@ - - - - true - true - - - - - =Fields!UnidadMedida.Value - - - - - - - UnidadMedida - - - Bottom - 2pt - 2pt - =IIf(rownumber(nothing) = 1, "2pt", "0pt") - - - - @@ -557,14 +528,14 @@ - =Fields!PS.Value + =Fields!Codigo.Value @@ -650,16 +621,123 @@ - + true true - =Fields!Observaciones.Value + =Fields!PUVenta.Value + + + + + + PUVenta + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!SubTotalVenta.Value + + + + + + + SubTotalVenta + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + + true + true + + + + + + + + + + + + Textbox19 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + @@ -668,7 +746,649 @@ - Observaciones + Textbox20 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox23 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox40 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox41 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Sub Total + + + + + + + Textbox42 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Sum(Fields!SubTotalVenta.Value, "DsInventarios") + + + + + + + Textbox43 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + + true + true + + + + + + + + + + + + Textbox44 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox45 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox46 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox47 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox48 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + I.V.A. + + + + + + + Textbox49 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Sum(Fields!IVAVenta.Value, "DsInventarios") + + + + + + + Textbox50 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + + true + true + + + + + + + + + + + + Textbox51 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox52 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox53 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox54 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox55 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Importe Total + + + + + + + Textbox56 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + = Sum(Fields!SubTotalVenta.Value, "DsInventarios") + Sum(Fields!IVAVenta.Value, "DsInventarios") + + + + + + + Textbox57 @@ -704,13 +1424,22 @@ + + Before + + + Before + + + Before + DsInventarios 0.14111cm 0.10068cm - 0.84327cm - 20.3247cm + 1.84953cm + 25.76023cm @@ -718,13 +1447,13 @@ - 0.43055in + 0.88788in @@ -837,7 +1566,7 @@ CIUDAD DE MEXICO Textbox2 0.07163cm - 13.61141cm + 18.69141cm 0.38833cm 6.81397cm 3 @@ -873,7 +1602,7 @@ CIUDAD DE MEXICO Textbox12 0.88084cm - 16.09549cm + 21.17549cm 0.44478cm 4.32987cm 4 @@ -910,7 +1639,7 @@ CIUDAD DE MEXICO Textbox12 1.32562cm - 16.09549cm + 21.17549cm 0.44478cm 4.32987cm 5 @@ -946,7 +1675,7 @@ CIUDAD DE MEXICO Textbox12 1.7704cm - 16.0955cm + 21.1755cm 0.44478cm 4.32987cm 6 @@ -982,8 +1711,8 @@ CIUDAD DE MEXICO Textbox12 - 2.85018cm - 16.09549cm + 2.21518cm + 21.17549cm 0.44478cm 4.32987cm 7 @@ -997,206 +1726,6 @@ CIUDAD DE MEXICO 2pt - - - - true - true - - - - - =IIf(Parameters!CveConcepto.Value = 8, "Almacén Origen:", "Almacén que recibe:") - - - - - - - - =Parameters!AlmacenOrigen.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =IIf(Parameters!CveConcepto.Value = 8, "Almacén Destino:", "Almacén que envía:") - - - - - - - - =Parameters!AlmacenDestino.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Detalles del Movimiento: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!DireccionOrigen.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!DireccionDestino.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - 3.66157cm - 2.01145cm - 20.32792cm - 8 - - - - true true @@ -1215,10 +1744,10 @@ CIUDAD DE MEXICO CveConcepto 0.50379cm - 17.92538cm + 23.00538cm 0.2384cm 2.5cm - 9 + 8 @@ -1245,13 +1774,42 @@ CIUDAD DE MEXICO + + + + + + =Parameters!Documentacion.Value + + + + @@ -1270,74 +1828,10 @@ CIUDAD DE MEXICO - 5.83773cm + 3.8269cm true true - - true - true - - - - - Observaciones: - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!Observaciones.Value - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -1357,11 +1851,10 @@ CIUDAD DE MEXICO Textbox21 - 3.28266cm - 3.14986cm + 1.37766cm + 5.68986cm 0.50243cm 5.79375cm - 2 =iif(Parameters!CveConcepto.Value = 9,true,false) @@ -1394,11 +1887,11 @@ CIUDAD DE MEXICO Textbox21 - 3.28266cm - 11.86467cm + 1.37766cm + 14.40467cm 0.50243cm 5.78664cm - 3 + 1 =iif(Parameters!CveConcepto.Value = 9,true,false) @@ -1445,11 +1938,11 @@ CIUDAD DE MEXICO Textbox21 - 3.56875cm - 3.15781cm + 1.66375cm + 5.69781cm 1.2cm 5.78664cm - 4 + 2 =iif(Parameters!CveConcepto.Value = 9,true,false) @@ -1496,11 +1989,11 @@ CIUDAD DE MEXICO Textbox21 - 3.5682cm - 11.87177cm + 1.6632cm + 14.41177cm 1.2cm 5.78664cm - 5 + 3 =iif(Parameters!CveConcepto.Value = 9,true,false) @@ -1533,11 +2026,11 @@ CIUDAD DE MEXICO Textbox22 - 1.97831cm - 3.15781cm + 0.07331cm + 5.69781cm 0.6cm 5.78664cm - 6 + 4 =iif(Parameters!CveConcepto.Value = 9,true,false) @@ -1570,11 +2063,11 @@ CIUDAD DE MEXICO Textbox22 - 1.97831cm - 11.87177cm + 0.07331cm + 14.41177cm 0.6cm 5.78664cm - 7 + 5 =iif(Parameters!CveConcepto.Value = 9,true,false) @@ -1605,11 +2098,11 @@ CIUDAD DE MEXICO Textbox21 - 2.35606cm - 7.50017cm + 0.45106cm + 10.04017cm 0.63528cm 5.78664cm - 8 + 6 =iif(Parameters!CveConcepto.Value = 8, True, False) @@ -1656,11 +2149,11 @@ CIUDAD DE MEXICO Textbox21 - 3.5682cm - 7.50727cm + 1.6632cm + 10.04727cm 1.2cm 5.78664cm - 9 + 7 =iif(Parameters!CveConcepto.Value = 8, True, False) @@ -1693,11 +2186,11 @@ CIUDAD DE MEXICO Textbox22 - 1.97831cm - 7.50727cm + 0.07331cm + 10.04727cm 0.6cm 5.78664cm - 10 + 8 =iif(Parameters!CveConcepto.Value = 8, True, False) @@ -1741,11 +2234,11 @@ CIUDAD DE MEXICO Textbox29 - 5.31209cm + 3.40709cm 0.10068cm 0.41981cm 5.78083cm - 11 + 9 @@ -1779,11 +2272,11 @@ CIUDAD DE MEXICO Textbox31 - 5.31209cm - 8.15629cm + 3.40709cm + 11.33129cm 0.41981cm 5.13762cm - 12 + 10 @@ -1795,11 +2288,10 @@ CIUDAD DE MEXICO - 1.80136cm 0.13678cm 0cm 20.28859cm - 13 + 11 @@ -1807,11 +2299,10 @@ CIUDAD DE MEXICO - 0.31558cm 0.13678cm 0cm - 20.28859cm - 14 + 25.72414cm + 12 @@ -1819,11 +2310,11 @@ CIUDAD DE MEXICO - 5.17097cm + 3.26597cm 0.10068cm 0cm - 20.3247cm - 15 + 25.76024cm + 13 @@ -1849,11 +2340,11 @@ CIUDAD DE MEXICO Textbox10 - 5.31209cm - 17.60787cm + 3.40709cm + 23.00537cm 0.41981cm 2.55292cm - 16 + 14 @@ -1871,12 +2362,12 @@ CIUDAD DE MEXICO - 27.94cm - 21.59cm - 0.5cm - 0.5cm - 1cm - 1cm + 21.59cm + 27.94cm + 1cm + 1cm + 0.5cm + 0.5cm 0.13cm + + + + + + Textbox1 + + + + Black + + 1pt + + + Black + + 1pt + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Descripción + + + + + + + Textbox3 + + + + Black + + 1pt + + + Black + + 1pt + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Código + + + + + + + Textbox5 + + + + + + + + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + P. Unitario + + + + + + + Textbox7 + + + + Black + + 1pt + + + Black + + 1pt + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Importe + + + + + + + Textbox15 + + + + Black + + 1pt + + + Black + + 1pt + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.4095cm + + + + + true + true + + + + + =Fields!Cantidad.Value + + + + + + + Cantidad + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!PS.Value + + + + + + + + + + + Codigo + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + true + + + + + =Fields!CodigoAlterno.Value + + + + + + + CodigoAlterno + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!PUVenta.Value + + + + + + + PUVenta + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!SubTotalVenta.Value + + + + + + + SubTotalVenta + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.25604cm + + + + + true + true + + + + + + + + + + + + Textbox8 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!Codigo.Value + + + + + + + Codigo1 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox13 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox16 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox17 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.2825cm + + + + + true + true + + + + + + + + + + + + Textbox48 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Fabricante + + + + =Fields!Marca.Value + + + + + + + Marca + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox55 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox59 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox60 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.2825cm + + + + + true + true + + + + + + + + + + + + Textbox62 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Lote + + + + =Fields!Lote.Value + + + + + + + Lote + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox64 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox65 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox66 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.30896cm + + + + + true + true + + + + + + + + + + + + Textbox67 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Caducidad + + + + = Format(Fields!FechaCaducidad.Value, "dd/MM/yyyy") + + + + + + + FechaCaducidad1 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox69 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox70 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox71 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + + true + true + + + + + + + + + + + + Textbox19 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + FechaCaducidad + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox23 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Sub Total + + + + + + + Textbox42 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Sum(Fields!SubTotalVenta.Value, "DsInventarios") + + + + + + + Textbox43 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + + true + true + + + + + + + + + + + + Textbox44 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox45 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox46 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + I.V.A. + + + + + + + Textbox49 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Sum(Fields!IVAVenta.Value, "DsInventarios") + + + + + + + Textbox50 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + 0.33542cm + + + + + true + true + + + + + + + + + + + + Textbox51 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox52 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox53 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + Importe Total + + + + + + + Textbox56 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + = Sum(Fields!SubTotalVenta.Value, "DsInventarios") + Sum(Fields!IVAVenta.Value, "DsInventarios") + + + + + + + Textbox57 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + + + + + + + + + + + + + + After + + + + + + + + + + + + + Before + + + Before + + + Before + + + + DsInventarios + 0.14111cm + 0.10068cm + 2.97953cm + 25.45761cm + + + + + + 1.29815in + + + + + + true + true + + + + + SMS SMART MEDICAL SOLUTIONS + + + + + + + Textbox2 + 0.07163cm + 8.55215cm + 0.38833cm + 8.54466cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + SSM1908213A0 +NEBRASKA 157, Col. NAPOLES +BENITO JUAREZ +C.P. 03810 +CIUDAD DE MEXICO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Microsoft.VisualBasic.Interaction.iif(Parameters!CveConcepto.Value = 8, "REMISIÓN", "ENTRADA DE TRASLADO") + + + + + + + Textbox2 + 0.07163cm + 18.69141cm + 0.38833cm + 6.81397cm + 3 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio + + + + + + + Textbox12 + 0.88084cm + 21.17549cm + 0.44478cm + 4.32987cm + 4 + + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Folio.Value + + + + + + + Textbox12 + 1.32562cm + 21.17549cm + 0.44478cm + 4.32987cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha + + + + + + + Textbox12 + 1.7704cm + 21.1755cm + 0.44478cm + 4.32987cm + 6 + + + #9cc3e5 + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Fecha.Value + + + + + + + Textbox12 + 2.21518cm + 21.17549cm + 0.44478cm + 4.32987cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =iif(Parameters!CveConcepto.Value = 8, "Carga Privada", " ") + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Observaciones.Value + + + + + + + + + + =Parameters!Documentacion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 3.8269cm + true + true + + + true + true + + + + + =Parameters!ResponsableCarga.Value + + + + + + + Textbox21 + 1.37766cm + 5.68986cm + 0.50243cm + 5.79375cm + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!ResponsableRecibio.Value + + + + + + + Textbox21 + 1.37766cm + 14.40467cm + 0.50243cm + 5.78664cm + 1 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 1.66375cm + 5.69781cm + 1.2cm + 5.78664cm + 2 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 1.6632cm + 14.41177cm + 1.2cm + 5.78664cm + 3 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Envió + + + + + + + Textbox22 + 0.07331cm + 5.69781cm + 0.6cm + 5.78664cm + 4 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 0.07331cm + 14.41177cm + 0.6cm + 5.78664cm + 5 + + =iif(Parameters!CveConcepto.Value = 9,true,false) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =IIF(Parameters!NombreAccion.Value = "","",Parameters!NombreAccion.Value) + + + + Textbox21 + 0.45106cm + 10.04017cm + 0.63528cm + 5.78664cm + 6 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ___________________________ + + + + + + + + + Nombre y Firma + + + + + + + Textbox21 + 1.6632cm + 10.04727cm + 1.2cm + 5.78664cm + 7 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Accion.Value + + + + + + + Textbox22 + 0.07331cm + 10.04727cm + 0.6cm + 5.78664cm + 8 + + =iif(Parameters!CveConcepto.Value = 8, True, False) + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.13678cm + 0cm + 20.28859cm + 11 + + + + + + 0.13678cm + 0cm + 25.72414cm + 12 + + + + + + 3.26597cm + 0.10068cm + 0cm + 25.76024cm + 13 + + + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox10 + 3.40709cm + 23.00537cm + 0.41981cm + 2.55292cm + 14 + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 21.59cm + 27.94cm + 1cm + 1cm + 0.5cm + 0.5cm + 0.13cm + + + true + true + + + + + Carta Porte 3.0 + + + + + + + Textbox3 + 2.27425cm + 16.42665cm + 0.5cm + 1.52986in + 19 + + + + Black + + 1pt + + 2pt + 2pt + 2pt + 2pt + + 7.00495in @@ -388,24 +392,19 @@ =IIf(rownumber(nothing) = 1, "2pt", "0pt") + true - + true true - =Fields!PS.Value - - - - + =Fields!PSAlterno.Value @@ -416,7 +415,7 @@ - Codigo + PSAlterno @@ -533,6 +532,177 @@ + + 0.17667cm + + + + + true + true + + + + + + + + + + + + Textbox32 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox37 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox39 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox40 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + + + + + + + + Textbox41 + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + 0.25604cm @@ -578,6 +748,12 @@ + + CATALOGO + + =Fields!Codigo.Value @@ -927,7 +1103,7 @@ - Lote + LOTE @@ -1104,7 +1280,7 @@ - Caducidad + CADUCIDAD @@ -1775,6 +1951,7 @@ + @@ -1791,7 +1968,7 @@ DsInventarios 0.14111cm 0.10068cm - 2.97953cm + 3.1562cm 25.45761cm - 1.29815in + 1.46482in + 0cm 0.13678cm 0cm 20.28859cm @@ -2652,6 +2830,7 @@ CIUDAD DE MEXICO + 0cm 0.13678cm 0cm 25.72414cm diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index f93d73c20..c71349af8 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -174,24 +174,25 @@
    -
    +
    -
    +
    Dirección:
    -
    - +
    +
    -
    +
    Telefono:
    -
    +
    - +
    +
    @@ -239,22 +240,32 @@
    -
    - -
    +
    + +
    Tipo de Venta:
    -
    +
    - Seleccione uno + Seleccione uno
    -
    - + + +
    + Técnico:
    - +
    + +
    +
    + +
    +
    diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 5e7dc1430..557da33ad 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -460,8 +460,10 @@ Partial Class OS_OrdenesServicios End If If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then + DVAMedicoProcedimiento.Visible = True - DVTipoVenta.Visible = True + DVTipoVenta1.Visible = True + DVTipoVenta2.Visible = True DvFechaRecivido1.Visible = False DvFechaRecivido2.Visible = False @@ -471,6 +473,11 @@ Partial Class OS_OrdenesServicios DVEpisodioPaciente.Visible = True + If CveOS > 0 And TipoEstatus = 2 Then + DdlUsuarioAtendio.Enabled = True + DVUsuarioAtendio3.Visible = True + End If + End If End If @@ -653,6 +660,7 @@ Partial Class OS_OrdenesServicios TipoEstatus = GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("TipoEstatus", String.Format("CveEstatusOrdenServicio = {0}", ObjOS.CveEstatusOrdenServicio), "CveEstatusOrdenServicio ASC").ToEntero SeFacturara = GlobalDTTipoOrdenServicios(UsuarioActual.CveEmpresa).FiltroPrimeroValor("SeFacturara", String.Format("CveOrdenServicioTipo = {0}", ObjOS.CveOSTipo)) CveTecnico = ObjOS.CveUsuarioAtendio + DdlUsuarioAtendio.SelectedValueExist(CveTecnico) CargarEstatusDelUsuario(TipoEstatus) CveVenta = ObjOS.CveVenta If UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then @@ -674,7 +682,7 @@ Partial Class OS_OrdenesServicios DdlEstatusOS.SelectedValue = ObjOS.CveEstatusOrdenServicio.ToString 'If TipoEstatus = 2 Then - ' LnkTecnico.Visible = True + LnkTecnico.Visible = True 'End If If TipoEstatus = 3 Then @@ -2897,6 +2905,12 @@ Partial Class OS_OrdenesServicios DdlTecnico.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) DdlTecnico.DataBind() DdlTecnico.Items.Insert(0, New ListItem("Seleccione", "-1")) + + DdlUsuarioAtendio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) + DdlUsuarioAtendio.DataBind() + DdlUsuarioAtendio.Items.Insert(0, New ListItem("Sin Asignar", "-1")) + + End Sub Private Sub LnkTecnico_Click(sender As Object, e As EventArgs) Handles LnkTecnico.Click RegistraScript(String.Format("$('#{0}').modal('show');", "DivCambiarTecnico")) @@ -3341,4 +3355,31 @@ Partial Class OS_OrdenesServicios End Sub End Class + + Protected Sub LnkActualizarUsaurioAtendio_Click(sender As Object, e As EventArgs) + + Dim ObjOs As New ClsOS + Dim ProcesoOk As Boolean = True + + + + If DdlUsuarioAtendio.SelectedValue.ToEntero > 0 Then + For Each GvRow As GridViewRow In GvPS.Rows + If Not ObjOs.UpdateOrdenesServiciosAsignadas(GvRow.DataKey("CveOSDetalle").ToEntero, DdlUsuarioAtendio.SelectedValue.ToEntero, MinFecha, DateTime.Parse(MinFecha.ToShortDateString), UsuarioActual.CveEmpresa) Then + ProcesoOk = False + Alert($"Se presento un error al actualizar el técnico.") + Exit For + End If + Next + If ProcesoOk Then + Alert($"Técnico actualizado correctamenrte a {DdlUsuarioAtendio.SelectedItem.Text}.") + End If + Else + Alert("Debe de seleccionar un ténico para actualziar", TipoMensaje.MsgAdvertencia) + End If + + + ObjOs.Dispose() + + End Sub End Class \ No newline at end of file From a8d1c857f71ed63ead9ef4c993153f2c9041bc46 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Sat, 20 Jan 2024 13:33:55 -0700 Subject: [PATCH 42/44] SMS OS cambiar tecnico correcion tipo termino se permite de tipo 3 en adelante --- OS/OrdenesServicios.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index 557da33ad..f3c135e7f 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -473,7 +473,7 @@ Partial Class OS_OrdenesServicios DVEpisodioPaciente.Visible = True - If CveOS > 0 And TipoEstatus = 2 Then + If CveOS > 0 And TipoEstatus >= 3 Then DdlUsuarioAtendio.Enabled = True DVUsuarioAtendio3.Visible = True End If From 1081243291a843cd5ee79a319e49c6e605853ba6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Sat, 20 Jan 2024 15:24:51 -0700 Subject: [PATCH 43/44] Citrus - Comp Com Ext 2.0 Detalles: --Tabla VentasDetalle (CantidadConversion DECIMAL(18,8)) --ACTUALIZAR CAMPO UPDATE VentasDetalles SET CantidadConversion = Cantidad Procedimientos: --PA_Vta_ManifiestoForVtaGet --PA_CGame_ManifiestoForVtaGet --PA_VentasDetalleGet --PA_VentasDetalleAdd BD: SIG_Resp_RMF2 --- App_Code/ClsVentas.vb | 3 +- Ventas/Ventas.aspx | 81 ++++++++++++++++++++----------------------- Ventas/Ventas.aspx.vb | 48 ++++++++++++++++++++----- 3 files changed, 79 insertions(+), 53 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 14c72baf3..cafaeaf55 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1419,7 +1419,7 @@ Public Class ClsVentas Optional CveContratoDetalle As Integer = -1, Optional PorcentajeIVA As Decimal = 0, Optional IEPS As Decimal = -1, Optional PorcentajeIEPS As Double = 0, Optional CvePromocionDetalle As Integer = -1, Optional CveMovimientoDetallePedido As Integer = -1, Optional ImporteRetIVA As Decimal = 0, Optional PorcentajeRetIVA As Double = 0, Optional ImporteRetISR As Decimal = 0, Optional PorcentajeRetISR As Decimal = 0, Optional CuentaPredial As String = "", Optional CvePrecioLista As Integer = -1, Optional CveActivoFijo As Integer = -1, - Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0) As Boolean + Optional NumTurnos As Decimal = 0D, Optional EstatusAlmacen As Integer = 0, Optional CantidadConversion As Decimal = 0) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasDetalleAdd") @@ -1453,6 +1453,7 @@ Public Class ClsVentas .Add("@CveActivoFijo", SqlDbType.Int).Value = CveActivoFijo .Add("@NumTurnos", SqlDbType.Decimal).Value = NumTurnos .Add("@EstatusAlmacen", SqlDbType.Int).Value = EstatusAlmacen + .Add("@CantidadConversion", SqlDbType.Decimal).Value = CantidadConversion End With Try diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 429a9f65a..be56eacde 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -5,6 +5,11 @@