+
+
+
+
+
diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb
index 1ed0fefa3..763e669aa 100644
--- a/Inventarios/TrasladoSolicitud.aspx.vb
+++ b/Inventarios/TrasladoSolicitud.aspx.vb
@@ -1,396 +1,183 @@
-Option Strict On
-Option Explicit On
-
-Imports System.Data
-Imports Extensiones
-Imports Microsoft.Reporting.WebForms
+Imports System.Data
+Imports ClosedXML.Excel.XLPredefinedFormat
+Imports Extensiones
+Imports Telerik.Web.UI.ComboBox.ComboBoxStyles
-Partial Class Inventarios_TrasladoSolicitud
+Partial Class Inventarios_TrasladoSolicitud
Inherits ClsPaginas
-#Region "Propiedades"
- Private Property TempDT As DataTable
- Get
- Return CType(ViewState("TempDT"), DataTable)
- End Get
- Set(value As DataTable)
- ViewState("TempDT") = value
- End Set
- End Property
-
- Private Property CveTraspasoSolicitud As Integer
- Get
- Return CType(ViewState("CveTraspasoSolicitud"), Integer)
- End Get
- Set(value As Integer)
- ViewState("CveTraspasoSolicitud") = value
- End Set
- End Property
-
- 'CveDireccionEnvio del Traslado
- Private Property CveDireccionEnvio As Integer
- Get
- Return CType(ViewState("CveDireccionEnvio"), Integer)
- End Get
- Set(value As Integer)
- ViewState("CveDireccionEnvio") = value
- End Set
- End Property
- Private Property CveUsuarioSolicita As Integer
- Get
- If ViewState("CveUsuarioSolicita") Is Nothing Then
- Return -1
- Else
- Return CType(ViewState("CveUsuarioSolicita"), Integer)
- End If
+ Private Property TempDT As DataTable
+ Get
+ Return CType(ViewState("TempDT"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("TempDT") = value
+ End Set
+ End Property
+
+ Private Property CveTraspasoSolicitud As Integer
+ Get
+ If ViewState("CveTraspasoSolicitud") Is Nothing Then
+ ViewState("CveTraspasoSolicitud") = -1
+ End If
+ Return ViewState("CveTraspasoSolicitud").ToString.ToEntero
End Get
Set(value As Integer)
- ViewState("CveUsuarioSolicita") = value
+ ViewState("CveTraspasoSolicitud") = value
End Set
End Property
- Private Property AplicaSerie As Boolean
+
+ Private Property CveAlmacenOrigen As Integer
Get
- If ViewState("AplicaSerie") Is Nothing Then
- Return False
- Else
- Return CType(ViewState("AplicaSerie"), Boolean)
+ If ViewState("CveAlmacenOrigen") Is Nothing Then
+ ViewState("CveAlmacenOrigen") = -1
End If
-
+ Return ViewState("CveAlmacenOrigen").ToString.ToEntero
End Get
- Set(value As Boolean)
- ViewState("AplicaSerie") = value
+ Set(value As Integer)
+ ViewState("CveAlmacenOrigen") = value
End Set
End Property
- Private Property AplicaLote As Boolean
+
+ Private Property CveAlmacenDestino As Integer
Get
- If ViewState("AplicaLote") Is Nothing Then
- Return False
- Else
- Return CType(ViewState("AplicaLote"), Boolean)
+ If ViewState("CveAlmacenDestino") Is Nothing Then
+ ViewState("CveAlmacenDestino") = -1
End If
-
+ Return ViewState("CveAlmacenDestino").ToString.ToEntero
End Get
- Set(value As Boolean)
- ViewState("AplicaLote") = value
+ Set(value As Integer)
+ ViewState("CveAlmacenDestino") = value
End Set
End Property
- Private Property AplicaCaducidad As Boolean
- Get
- If ViewState("AplicaCaducidad") Is Nothing Then
- Return False
- Else
- Return CType(ViewState("AplicaCaducidad"), Boolean)
- End If
- End Get
- Set(value As Boolean)
- ViewState("AplicaCaducidad") = value
- End Set
- End Property
+ Private Sub Inventarios_RepTrasladoSolicitud_Load(sender As Object, e As EventArgs) Handles Me.Load
+ If Not Page.IsPostBack Then
+ CargaCombos()
+ InicializaValores()
-#End Region
+ TxtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
+ TxtFechaF.Text = NowADS().ToShortDateString
+ End If
+ End Sub
- Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
- If Not IsPostBack Then
-
- InicializaValores()
-
- 'CARGAMOS SOLICITUD YA EXISTENTE.
- If Request("CveTraspasoSolicitud").ToEntero > 0 Then
- CveTraspasoSolicitud = Request("CveTraspasoSolicitud").ToEntero
- CargaDatos()
- End If
-
- End If
+ Private Sub InicializaValores()
+ CreaDTTemporal()
+ CargaAlmacenes()
+ CargaPS()
+ 'CargaClientes()
+
+ ' CargaUnidadMedida()
+
+ End Sub
+
+
+ 'Private Sub CargaUnidadMedida()
+ ' DdlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
+ ' DdlUM.DataBind()
+ 'End Sub
+
+ Private Sub CargaAlmacenes()
+ 'Cargo los almacenes
+ DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
+ 'DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
+ DdlAlmacenOrigen.DataBind()
+ DdlAlmacenOrigen.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+ 'DdlAlmacenDestino.DataBind()
End Sub
-#Region " INICIALIZA VALORES "
- Private Sub InicializaValores()
- CveTraspasoSolicitud = -1
- CveDireccionEnvio = -1
- DivFolio.Visible = False
-
- TxtFecha.Text = NowADS().ToShortDateString
- CreaDTTemporal()
- CargaAlmacenes()
- CargaPS()
- CargaClientes()
- DdlContratos.Items.Insert(0, New ListItem("Seleccione", "-1"))
- CargaUnidadMedida()
- CargaPaqueterias()
- End Sub
- Public Sub CreaDTTemporal()
- TempDT = New DataTable
- TempDT.Columns.Add("Cantidad", Type.GetType("System.Double"))
- TempDT.Columns.Add("CvePS", Type.GetType("System.Int32"))
- TempDT.Columns.Add("CodigoPS", Type.GetType("System.String"))
- TempDT.Columns.Add("CveUM", Type.GetType("System.Int32"))
- TempDT.Columns.Add("UnidadMedida", Type.GetType("System.String"))
- TempDT.Columns.Add("Precio", Type.GetType("System.Double"))
- TempDT.Columns.Add("Observaciones", Type.GetType("System.String"))
- TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32"))
- 'TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32"))
- 'TempDT.Columns.Add("CveDireccionEnvio", Type.GetType("System.Int32"))
+ Private Sub CargaPS()
+ DdlProductoServicio.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+ If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+ DdlProductoServicio.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
+ DdlProductoServicio.SelectedText = ""
+ DdlProductoServicio.SelectedValue = "-1"
+ Else
+ DdlProductoServicio.ddl.Items.Clear()
+ DdlProductoServicio.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1)
+ DdlProductoServicio.ddl.DataBind()
+ DdlProductoServicio.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+ End If
+ 'DdlProductoServicio.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+ 'DdlProductoServicio.DataBind()
+ 'DdlProductoServicio.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ End Sub
+
+ Private Sub CargaCombos()
+ DdlAlmacenOrigenFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
+ DdlAlmacenOrigenFiltro.DataBind()
+ DdlAlmacenOrigenFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+ DdlAlmacenDestinoFiltro.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 9")
+ DdlAlmacenDestinoFiltro.DataBind()
+ DdlAlmacenDestinoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+ 'DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
+ 'DdlContrato.DataBind()
+ 'DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))
+
+ 'DdlSolicitante.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
+ 'DdlSolicitante.DataBind()
+ 'DdlSolicitante.Items.Insert(0, New ListItem("Todos", "-1"))
+ End Sub
+
+
+ Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
+ CargaDatos()
+ End Sub
+
+ Private Sub CargaDatos()
+ Dim ObjInv As New ClsInventarios
+
+ If ObjInv.RepTrasladoSolicitud(DdlAlmacenOrigenFiltro.SelectedValue.ToEntero, DdlAlmacenDestinoFiltro.SelectedValue.ToEntero, -1, TxtFechaI.Text.ToDate, TxtFechaF.Text.ToDate, -1, -1,
+ -1, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+
+ GvT.DataSource = ObjInv.DtResultados
+ End If
+
+ ObjInv.Dispose()
+ GvT.DataBind()
+
+ UPPMov.Update()
+ End Sub
+
+
+
+ Public Sub CreaDTTemporal()
+ TempDT = New DataTable
+ TempDT.Columns.Add("Cantidad", Type.GetType("System.Double"))
+ TempDT.Columns.Add("CvePS", Type.GetType("System.Int32"))
+ TempDT.Columns.Add("CodigoPS", Type.GetType("System.String"))
+ TempDT.Columns.Add("CveUM", Type.GetType("System.Int32"))
+ TempDT.Columns.Add("UnidadMedida", Type.GetType("System.String"))
+ TempDT.Columns.Add("Precio", Type.GetType("System.Double"))
+ TempDT.Columns.Add("Observaciones", Type.GetType("System.String"))
+ TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32"))
+ 'TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32"))
+ 'TempDT.Columns.Add("CveDireccionEnvio", Type.GetType("System.Int32"))
TempDT.Columns.Add("Serie", Type.GetType("System.String"))
- TempDT.Columns.Add("Lote", Type.GetType("System.String"))
- TempDT.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
-
- TempDT.Columns.Add()
- End Sub
- Private Sub CargaPaqueterias()
- DdlPaqueteria.DataSource = GlobalDTPaqueterias(UsuarioActual.CveEmpresa)
- DdlPaqueteria.DataBind()
- DdlPaqueteria.Items.Insert(0, New ListItem("-", "-1"))
- End Sub
-
- Private Sub CargaUnidadMedida()
- DdlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
- DdlUM.DataBind()
- End Sub
-
- Private Sub CargaAlmacenes()
- 'Cargo los almacenes
- DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
- DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
- DdlAlmacenOrigen.DataBind()
- DdlAlmacenDestino.DataBind()
- End Sub
-
- Private Sub CargaClientes()
- DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
- DdlClientes.DataBind()
- DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
- End Sub
-
- Private Sub CargaPS()
- DdlProductoServicio.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
-
- If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
- DdlProductoServicio.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
- DdlProductoServicio.SelectedText = ""
- DdlProductoServicio.SelectedValue = "-1"
- Else
- DdlProductoServicio.ddl.Items.Clear()
- DdlProductoServicio.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1)
- DdlProductoServicio.ddl.DataBind()
- DdlProductoServicio.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
- End If
- 'DdlProductoServicio.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
- 'DdlProductoServicio.DataBind()
- 'DdlProductoServicio.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ TempDT.Columns.Add("Lote", Type.GetType("System.String"))
+ TempDT.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
+
+ TempDT.Columns.Add()
End Sub
-#End Region
-
-#Region " CARGA DATOS "
- Private Sub CargaDatos()
- Dim ObjInventarios As New ClsInventarios
- Dim ObjClientes As New ClsClientes
-
- If ObjInventarios.AddTrasladoSolicitudGet(CveTraspasoSolicitud, UsuarioActual.CveEmpresa) Then
- If ObjInventarios.DtResultados.Rows.Count > 0 Then
- For Each rowtp As DataRow In ObjInventarios.DtResultados.Rows
- If Not AplicaSerie Then
- AplicaSerie = rowtp("Serie").ToString <> ""
- End If
- If Not AplicaLote Then
- AplicaLote = rowtp("Lote").ToString <> ""
- End If
- If Not AplicaCaducidad Then
- AplicaCaducidad = rowtp("FechaCaducidad").ToString <> ""
- End If
- Next
-
- Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProductoServicio.SelectedValue.ToEntero).FiltroPrimero("")
-
-
- GvDatos.Columns(4).Visible = False
- GvDatos.Columns(5).Visible = AplicaSerie
- GvDatos.Columns(6).Visible = AplicaLote
- GvDatos.Columns(7).Visible = AplicaCaducidad
-
- DivFolio.Visible = True
- LbFolio.Text = ObjInventarios.DtResultados.Rows(0)("FolioTraspaso").ToString
- TxtObservaciones.Text = ObjInventarios.DtResultados.Rows(0)("ObservacionesTraspaso").ToString
-
- TempDT = ObjInventarios.DtResultados
- GvDatos.DataSource = ObjInventarios.DtResultados
- GvDatos.DataBind()
-
- If ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero > 0 Then
- RowContrato.Visible = True
- ChkDesdeContrato.Checked = True
- GvDatos.Columns(3).Visible = True
- Else
- GvDatos.Columns(3).Visible = False
- End If
-
- DdlAlmacenOrigen.SelectedValue = ObjInventarios.DtResultados.Rows(0)("CveAlmacenOrigen").ToString
- DdlAlmacenDestino.SelectedValue = ObjInventarios.DtResultados.Rows(0)("CveAlmacenDestino").ToString
- DdlPaqueteria.SelectedValue = ObjInventarios.DtResultados.Rows(0)("CvePaqueteria").ToString
- TxtFecha.Text = ObjInventarios.DtResultados.Rows(0)("Fecha").ToString
- LblUsuario.Text = ObjInventarios.DtResultados.Rows(0)("Usuario").ToString
- HplContrato.Text = ObjInventarios.DtResultados.Rows(0)("DescripcionContrato").ToString
- HplContrato.NavigateUrl = $"/Contratos/Contrato.aspx?CveContrato={ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}"
-
- CveUsuarioSolicita = ObjInventarios.DtResultados.Rows(0)("CveUsuario").ToString.ToEntero
-
- '25/04/2018
- CveDireccionEnvio = ObjInventarios.DtResultados.Rows(0)("CveDireccionEnvio").ToString.ToEntero
- If CveDireccionEnvio > 0 And ObjClientes.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then
- LblDireccionEnvio.Text = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1")).Rows(0)("SucursalClienteVentaDireccion").ToString
- Else
- Dim CveCliente As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}").ToEntero
- Dim DtCliente As DataTable = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
- If DtCliente.Rows.Count > 0 Then
- LblDireccionEnvio.Text = String.Format("{0},{1}, {2}", DtCliente.FiltroPrimeroValor("Direccion"), DtCliente.FiltroPrimeroValor("Colonia"), DtCliente.FiltroPrimeroValor("Ciudad"), DtCliente.FiltroPrimeroValor("Contacto"))
- End If
- End If
-
- If ObjInventarios.DtResultados.Rows(0)("CveTrasladoEstatus").ToString.Contiene("1", "3") And Not ObjInventarios.DtResultados.Rows(0)("CveMovimientoAlmacen").ToString.ToEntero > 0 Then
- LBCancelarTraslado.Visible = True
- End If
-
- If ObjInventarios.DtResultados.Rows(0)("CveTrasladoEstatus").ToString = "2" Then
- DivCancelado.Visible = True
- End If
-
- If ObjInventarios.DtResultados.Rows(0)("CveMovimientoAlmacen").ToString.ToEntero > 0 Then
- RowMovimiento.Visible = True
- HLMovimiento.Text = ObjInventarios.DtResultados.Rows(0)("FolioAlmacen").ToString
- HLMovimiento.NavigateUrl = $"/Inventarios/EntradasSalidas.aspx?CveMovimiento={ObjInventarios.DtResultados.Rows(0)("CveMovimientoAlmacen").ToString.ToEntero}"
- Else
- RowMovimiento.Visible = False
- End If
-
- If ObjInventarios.DtResultados.Rows(0)("Guia").ToString <> "" Then
- TrGuia.Visible = True
- TxtGuia.Text = ObjInventarios.DtResultados.Rows(0)("Guia").ToString
- Else
- TrGuia.Visible = False
- End If
-
- If UsuarioActual.TienePermisoProceso(313) Then
- BtnEliminar.Visible = True
- End If
-
- BtnGuardar.Enabled = False
- TxtObservaciones.Enabled = False
- TxtFecha.Enabled = False
- DdlPaqueteria.Enabled = False
- ChkDesdeContrato.Enabled = False
- DdlAlmacenDestino.Enabled = False
- DdlAlmacenOrigen.Enabled = False
- TxtGuia.Enabled = False
- HLDesdeContrato.Enabled = False
- LbAgregarPS.Enabled = False
- DivInfo.Visible = True
- LbImprimir.Visible = True
- ImgExcel.Visible = True
-
- LbAgregarPS.Visible = False
- HLDesdeContrato.Visible = False
-
-
- Dim EstatusAlmacen As Integer = ObjInventarios.DtResultados.Rows(0)("EstatusAlmacen").ToString().ToEntero
- Dim CveUsuarioAutoriza As Integer = ObjInventarios.DtResultados.Rows(0)("CveUsuarioAutorizaDestino").ToString().ToEntero
-
- If EstatusAlmacen > 0 Then
-
-
- If UsuarioActual.CveUsuario = CveUsuarioAutoriza Then
-
- If EstatusAlmacen = 1 Then
-
-
- DivAutoriza.Visible = True
- DVAutorizarBotones.Visible = True
- DVAutorizaInformacion.Visible = False
-
- ElseIf EstatusAlmacen.Contiene(2, 3) Then
- DivAutoriza.Visible = True
-
- DVAutorizarBotones.Visible = False
- DVAutorizaInformacion.Visible = True
-
- LblEstatusAutorizo.Text = If(EstatusAlmacen = 2, "Aceptado", "Rechazado")
- LblUsaurioAutorizo.Text = ObjInventarios.DtResultados.Rows(0)("NombreAutoriza").ToString()
- LblFechaAutoriza.Text = ObjInventarios.DtResultados.Rows(0)("FechaAutorizacion").ToString().ToDate().ToString("dd/MM/yyyy")
- Else
-
- End If
-
- ElseIf EstatusAlmacen.Contiene(2, 3) Then
-
- DivAutoriza.Visible = True
-
- DVAutorizarBotones.Visible = False
- DVAutorizaInformacion.Visible = True
-
- LblEstatusAutorizo.Text = If(EstatusAlmacen = 2, "Aceptado", "Rechazado")
- LblUsaurioAutorizo.Text = ObjInventarios.DtResultados.Rows(0)("NombreAutoriza").ToString()
- LblFechaAutoriza.Text = ObjInventarios.DtResultados.Rows(0)("FechaAutorizacion").ToString().ToDate().ToString("dd/MM/yyyy")
- GvDatos.Columns(6).Visible = False ' se oculta la columna de eliminar
-
- End If
-
-
- Else
- DivAutoriza.Visible = False
- End If
-
-
-
- Else
- Alert("Ocurrió un error al obtener los datos del traspaso.", TipoMensaje.MsgError)
- End If
-
- UpAutorizaciones.Update()
-
- End If
- ObjInventarios.Dispose()
- ObjClientes.Dispose()
- MostarSerieColumn()
- End Sub
-#End Region
-
-
-#Region " AGREGAR "
- Private Sub BtnAgregarModal_Click(sender As Object, e As EventArgs) Handles LbAgregarPS.Click
-
- If ChkDesdeContrato.Checked Then
- GvDatos.Columns(3).Visible = False
- ChkDesdeContrato.Checked = False
- TempDT.Rows.Clear()
- GvDatos.DataSource = TempDT
- GvDatos.DataBind()
- UpDatos.Update()
- End If
-
- TxtCantidad.Text = ""
- DdlUM.SelectedIndex = 0
- LbContratos.Text = ""
- DdlProductoServicio.SelectedText = ""
- DdlProductoServicio.SelectedValue = "-1"
- UpPS.Update()
- UpDatos.Update()
- RegistraScript(String.Format("$('#{0}').modal();", "ModalPS"))
- End Sub
Private Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) Handles BtnAgregarPS.Click
- If Not DdlProductoServicio.SelectedValue.ToEntero > 0 Then
- Alert("Tiene que seleccionar un producto.", TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
-
- If Not AddPSTemporal() Then
- Exit Sub
+ If Not DdlProductoServicio.SelectedValue.ToEntero > 0 Then
+ Alert("Tiene que seleccionar un producto.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ If Not AddPSTemporal() Then
+ Exit Sub
End If
'If ObjInventario.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, PendientePorSurtir:=1, Lote:=TxtLote.Text.ToString, FechaCaducidad:=TxtCaducidad.Text.ToString) >= TxtCantidad.Text.ToDouble Then
@@ -398,865 +185,526 @@ Partial Class Inventarios_TrasladoSolicitud
TxtCantidad.Text = ""
DdlProductoServicio.SelectedText = ""
DdlProductoServicio.SelectedValue = "-1"
- DdlUM.SelectedIndex = 0
- TxtCaducidad.Text = ""
- TxtSerie.Text = ""
- TxtLote.Text = ""
+ 'DdlUM.SelectedIndex = 0
+ 'TxtCaducidad.Text = ""
+ 'TxtSerie.Text = ""
+ 'TxtLote.Text = ""
GvDatos.DataSource = TempDT
GvDatos.DataBind()
-
- If ChkSeguirAgregando.Checked Then
- TxtCantidad.Focus()
- Else
- RegistraScript("$('#ModalPS').hide();", "EscondeAgregar")
- End If
-
UpPS.Update()
- UpDatos.Update()
- End Sub
- Private Function AddPSTemporal() As Boolean
- Dim Row As DataRow = TempDT.NewRow()
- Dim Lote As String = "-1"
- Dim FechaCaducidad As Date = MinFecha
- Row("Cantidad") = TxtCantidad.Text.Trim.ToDouble
- Row("CvePS") = DdlProductoServicio.SelectedValue.ToEntero
- Row("CodigoPS") = DdlProductoServicio.SelectedText
- Row("Precio") = 0
- Row("CveUM") = DdlUM.SelectedValue.ToEntero
- Row("UnidadMedida") = DdlUM.SelectedItem.Text
+
+ End Sub
+
+
+ Private Function AddPSTemporal() As Boolean
+ Dim Row As DataRow = TempDT.NewRow()
+ Dim Lote As String = "-1"
+ Dim FechaCaducidad As Date = MinFecha
+ Row("Cantidad") = TxtCantidad.Text.Trim.ToDouble
+ Row("CvePS") = DdlProductoServicio.SelectedValue.ToEntero
+ Row("CodigoPS") = DdlProductoServicio.SelectedText
+ Row("Precio") = 0
+ 'Row("CveUM") = DdlUM.SelectedValue.ToEntero
+ 'Row("UnidadMedida") = DdlUM.SelectedItem.Text
Row("Observaciones") = ""
Row("Lote") = "-1"
Row("Serie") = "-1"
Row("FechaCaducidad") = MinFecha
- If divLote.Visible Then
- Row("Lote") = TxtLote.Text
- GvDatos.Columns(6).Visible = True
- Lote = TxtLote.Text.ToString
+
+
+ TempDT.Rows.Add(Row)
+
+
+ Return True
+ End Function
+
+
+#Region " GUARDAR "
+ Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
+
+ Dim CveTraspasoSolicitud As Integer = -1
+
+ If DdlAlmacenOrigen.SelectedValue = DdlAlmacenDestino.SelectedValue Then
+ Alert("Los almacenes de origen y destino no pueden ser el mismo. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
End If
-
- If divCaducidad.Visible Then
- Row("FechaCaducidad") = TxtCaducidad.Text
- GvDatos.Columns(7).Visible = True
- FechaCaducidad = TxtCaducidad.Text.ToDate
- RFVFechaCad.Enabled = True
-
- Else
- FechaCaducidad = MinFecha
- End If
-
-
- If Div4.Visible Then
- Row("Serie") = TxtSerie.Text
- GvDatos.Columns(5).Visible = True
- End If
-
-
-
- Dim ObjInventarios As New ClsInventarios
- Dim Existencia As Double = ObjInventarios.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), Lote:=Lote, FechaCaducidad:=FechaCaducidad)
- ObjInventarios.Dispose()
-
- If Existencia - TxtCantidad.Text.Trim.ToDouble - TempDT.SUM("Cantidad", $"CvePS = {DdlProductoServicio.SelectedValue.ToEntero} AND CveUM = {DdlUM.SelectedValue.ToEntero}") < 0 Then
- If Existencia = 0 Then
- Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
- Else
- Alert($"No hay existencia suficiente del producto. Solo hay en existencia: {Existencia - TempDT.SUM("Cantidad", $"CvePS = {DdlProductoServicio.SelectedValue.ToEntero} AND CveUM = {DdlUM.SelectedValue.ToEntero}")}", TipoMensaje.MsgAdvertencia)
- End If
- Return False
- End If
-
- TempDT.Rows.Add(Row)
-
-
- Return True
- End Function
-#End Region
-
-#Region " AGREGAR DESDE CONTRATO "
- Private Sub ChkDesdeContrato_CheckedChanged(sender As Object, e As EventArgs) Handles ChkDesdeContrato.CheckedChanged
-
- If ChkDesdeContrato.Checked Then
- GvDatos.Columns(3).Visible = True
- DdlContratos.SelectedIndex = 0
- DdlClientes.SelectedIndex = 0
-
- DdlDireccionEnvio.Items.Clear()
- DivContratoDireccionEnvio.Visible = False
-
- CargaExcel.Visible = False
- GvContratos.DataBind()
- UpContrato.Update()
- RegistraScript(String.Format("$('#{0}').modal().show();", "ModalContrato"))
- Else
- LbContratos.Text = ""
- End If
-
- TempDT.Rows.Clear()
- GvDatos.DataSource = TempDT
- GvDatos.DataBind()
- UpDatos.Update()
-
- End Sub
- Private Sub HLDesdeContrato_Click(sender As Object, e As EventArgs) Handles HLDesdeContrato.Click
- DdlContratos.SelectedIndex = 0
- DdlClientes.SelectedIndex = 0
- DdlDireccionEnvio.Items.Clear()
- DivContratoDireccionEnvio.Visible = False
- UpContrato.Update()
- RegistraScript(String.Format("$('#{0}').modal();", "ModalContrato"))
- End Sub
- Private Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientes.SelectedIndexChanged
- DdlContratos.Items.Clear()
-
- Dim ObjContratos As New ClsContratos
- If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
- Dim CveEstatusVigente = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus = 1", Orderby:="CveContratoEstatus").ToEntero
-
- DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($" CveCliente = {DdlClientes.SelectedValue.ToEntero} AND CveContratosEstatus = {CveEstatusVigente}")
-
- 'If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, CveEstatusVigente) Then
- ' DdlContratos.DataSource = ObjContratos.DtResultados
- 'End If
-
- End If
- ObjContratos.Dispose()
-
- DdlContratos.DataBind()
- DdlContratos.Items.Insert(0, New ListItem("Seleccione", "-1"))
- GvContratos.DataBind()
-
- Dim ObjClientes As New ClsClientes
-
- DdlDireccionEnvio.Items.Clear()
- If DdlClientes.SelectedValue <> "-1" And ObjClientes.DireccionEnvioGet(-1, DdlClientes.SelectedValue.ToEntero, -1) And ObjClientes.DtResultados.Rows.Count > 0 Then
- DivContratoDireccionEnvio.Visible = True
- DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
- DdlDireccionEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
- DdlDireccionEnvio.DataBind()
- Else
- DivContratoDireccionEnvio.Visible = False
- End If
- ObjClientes.Dispose()
-
- UpContrato.Update()
- End Sub
- Private Sub DdlContratos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlContratos.SelectedIndexChanged
- Dim ObjContratos As New ClsContratos
- If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
- GvContratos.DataSource = ObjContratos.DtResultados
- GvContratos.DataBind()
- If ObjContratos.DtResultados.Rows.Count > 0 Then
- CargaExcel.Visible = True
- Else
- CargaExcel.Visible = False
- End If
- End If
- ObjContratos.Dispose()
- UpContrato.Update()
- End Sub
- Private Sub BtnAgregarContrato_Click(sender As Object, e As EventArgs) Handles BtnAgregarContrato.Click
-
- TempDT.Rows.Clear()
-
- Dim ObjInventarios As New ClsInventarios
- Dim Existencia = 0.0
- Dim TieneErrorExistencia = False
- Dim MensajeExistencia As New StringBuilder
- MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos: ")
- Dim CodigoPS As String = ""
-
- For Each row As GridViewRow In GvContratos.Rows
- If row.FCTextBox("TxtCantContrato").Text.Trim.ToDouble > 0 Then
- Dim RowTemp As DataRow = TempDT.NewRow()
- RowTemp("Cantidad") = row.FCTextBox("TxtCantContrato").Text.Trim.ToDouble
- RowTemp("CvePS") = row.DataKey("CvePS").ToEntero
- RowTemp("CodigoPS") = row.DataKey("CodigoPS")
- RowTemp("Precio") = row.DataKey("PU")
- RowTemp("CveUM") = row.DataKey("CveUM").ToEntero
- RowTemp("UnidadMedida") = row.DataKey("UM")
- RowTemp("Observaciones") = ""
- RowTemp("Lote") = "-1"
- RowTemp("FechaCaducidad") = MinFecha
- 'RowTemp("CveDireccionEnvio") = DdlDireccionEnvio.SelectedValue
- 'RowTemp("DireccionEnvio") = IIf(DdlDireccionEnvio.SelectedValue = "-1", "", DdlDireccionEnvio.SelectedItem)
- RowTemp("CveContratoDetalle") = row.DataKey("CveContratoDetalle")
- CodigoPS = RowTemp("CodigoPS").ToString
-
-
- Existencia = ObjInventarios.GetExistenciasPS(row.DataKey("CvePS").ToEntero, row.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"))
- If Existencia - row.FCTextBox("TxtCantContrato").Text.Trim.ToDouble - TempDT.SUM("Cantidad", $"CvePS = {row.DataKey("CvePS").ToEntero} AND CveUM = {row.DataKey("CveUM").ToEntero}") < 0 Then
- MensajeExistencia.AppendFormat(" - {0}. Existencia: {1}", CodigoPS, Existencia)
- TieneErrorExistencia = True
- Continue For
- End If
-
- TempDT.Rows.Add(RowTemp)
- End If
- Next
-
- If TieneErrorExistencia Then
- Alert(MensajeExistencia.ToString, TipoMensaje.MsgAdvertencia)
- ObjInventarios.Dispose()
- Exit Sub
- Else
- CveDireccionEnvio = DdlDireccionEnvio.SelectedValue.ToEntero
- End If
-
- ObjInventarios.Dispose()
- GvDatos.DataSource = TempDT
- GvDatos.DataBind()
- CargaTextoContrato()
- RegistraScript(String.Format("$('#{0}').modal().hide();", "ModalContrato"))
-
- UpDatos.Update()
-
- End Sub
-#End Region
-
-
-#Region " GV DATOS "
- Private Sub GvDatos_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
- EliminarRow(e.RowIndex)
- End Sub
- Private Sub EliminarRow(RowIndex As Integer)
- TempDT.Rows(RowIndex).Delete()
- TempDT.AcceptChanges()
- GvDatos.DataSource = TempDT
- GvDatos.DataBind()
- UpDatos.Update()
- End Sub
-
-
-#End Region
-
-
-#Region " GUARDAR "
- Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
-
- If DdlAlmacenOrigen.SelectedValue = DdlAlmacenDestino.SelectedValue Then
- Alert("Los almacenes de origen y destino no pueden ser el mismo. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
-
- If Not GvDatos.Rows.Count > 0 Then
- Alert("No se ha seleccionado ningún Producto para trasladar.", TipoMensaje.MsgAdvertencia)
- Exit Sub
+ If Not GvDatos.Rows.Count > 0 Then
+ Alert("No se ha seleccionado ningún Producto para trasladar.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
End If
-
- Dim CveUsuarioAutoriza As Integer = -1
+ 'Dim CveUsuarioAutoriza As Integer = -1
Dim EstatusAlmacen As Integer = 2
'VERIFICA EXISTENCIAS
- Dim ObjInventarios As New ClsInventarios
+ Dim ObjInventarios As New ClsInventarios
Dim Existencia As Decimal = 0
- Dim TieneErrorExistencia As Boolean = False
- Dim MensajeExistencia As New StringBuilder
- MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos: ")
+ Dim TieneErrorExistencia As Boolean = False
+ Dim MensajeExistencia As New StringBuilder
+ MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos: ")
Dim CodigoPS As String = ""
+ ''Aqui poner permiso para poder evitar permiso de traslado
+ 'If ObjInventarios.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
- 'Aqui poner permiso para poder evitar permiso de traslado
- If ObjInventarios.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+ ' If ObjInventarios.DtResultados.Rows.Count > 0 Then
- If ObjInventarios.DtResultados.Rows.Count > 0 Then
+ ' CveUsuarioAutoriza = If(ObjInventarios.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenDestino.SelectedValue}")(0)("CveUsuarioAutoriza").ToString.ToEntero > 0, ObjInventarios.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenDestino.SelectedValue}")(0)("CveUsuarioAutoriza").ToString.ToEntero, -1)
+ ' If CveUsuarioAutoriza > 0 Then
+ ' EstatusAlmacen = 1
+ ' End If
- CveUsuarioAutoriza = If(ObjInventarios.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenDestino.SelectedValue}")(0)("CveUsuarioAutoriza").ToString.ToEntero > 0, ObjInventarios.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenDestino.SelectedValue}")(0)("CveUsuarioAutoriza").ToString.ToEntero, -1)
- If CveUsuarioAutoriza > 0 Then
- EstatusAlmacen = 1
- End If
+ ' Else
+ ' CveUsuarioAutoriza = -1
+ ' End If
+ 'End If
- Else
- CveUsuarioAutoriza = -1
- End If
- End If
-
-
- For Each row As GridViewRow In GvDatos.Rows
- CodigoPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=row.DataKey("CvePS").ToEntero).FiltroPrimeroValor("PSCodigo", "")
- Existencia = ObjInventarios.GetExistenciasPS(row.DataKey("CvePS").ToEntero, row.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), Lote:=row.DataKey("Lote").ToString, FechaCaducidad:=row.DataKey("FechaCaducidad").ToString.ToDate)
- If Existencia - TempDT.SUM("Cantidad", $"CvePS = {row.DataKey("CvePS").ToEntero} AND CveUM = {row.DataKey("CveUM").ToEntero}") < 0 Then
- MensajeExistencia.AppendFormat(" - {0}. Existencia: {1}", CodigoPS, Existencia)
- TieneErrorExistencia = True
- End If
- Next
-
- If TieneErrorExistencia Then
- Alert(MensajeExistencia.ToString, TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
-
-
- ObjInventarios.IniciaTransacSQL()
- Dim TieneError As Boolean = False
-
- Dim CveContrato As Integer = 0
- Dim Guia As String = ""
- If TxtGuia.Text <> "" Then Guia = TxtGuia.Text Else Guia = ""
- If DdlContratos.SelectedValue.ToEntero > 0 Then CveContrato = DdlContratos.SelectedValue.ToEntero Else CveContrato = -1
-
- Dim Estatus As Integer = -1
-
- If UsuarioActual.Empresa.Funcionalidad(105) <> "" Then
- Estatus = 1
- Else
- Estatus = 3
- End If
-
- Dim Folio As Integer = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.Text.Trim, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato, Guia:=Guia, CvePaqueteria:=DdlPaqueteria.SelectedValue.ToEntero, CveDireccionEnvio:=CveDireccionEnvio, EstatusAlmacen:=EstatusAlmacen)
-
- If Folio > 0 Then
- CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud
- Else
- TieneError = True
- End If
-
- If Not TieneError Then
- For Each Row As GridViewRow In GvDatos.Rows
- Dim CveUM As Integer = Row.DataKey("CveUM").ToEntero
- Dim CvePS As Integer = Row.DataKey("CvePS").ToEntero
- Dim Cantidad As Integer = Row.DataKey("Cantidad").ToEntero
- Dim Precio As Decimal = Row.DataKey("Precio").ToDecimal
- Dim Observaciones As String = Row.DataKey("Observaciones")
- Dim CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero
- Dim Serie As String = Row.DataKey("Serie")
- Dim Lote As String = Row.DataKey("Lote")
- Dim FechaCaducidad As Date = Row.DataKey("FechaCaducidad").ToDate
-
- If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, CveUM, CvePS, Precio, Observaciones, CveContratoDetalle, Serie, Lote, FechaCaducidad) Then
- TieneError = True
- Exit For
- End If
- Next
- End If
-
-
- If TieneError = False Then
- ObjInventarios.Commit()
- Alert($"El Traspaso se guardó correctamente con el folio #: {Folio}.", TipoMensaje.MsgInformacion, $"document.location.href=""/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}""")
-
- If CveUsuarioAutoriza > 0 Then
- MandaCorreoAutorizacion(Folio, CveTraspasoSolicitud, CveUsuarioAutoriza)
- End If
-
- Else
- ObjInventarios.RollBack()
- Alert("Ocurrió un Error al guardar el traspaso.", TipoMensaje.MsgError)
- End If
- ObjInventarios.Dispose()
-
- End Sub
-#End Region
-
-
-#Region " ELIMINAR - CANCELAR "
- Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
- Dim ObjInventarios As New ClsInventarios
- If ObjInventarios.RemoveTrasladoSolicitud(CveTraspasoSolicitud, UsuarioActual.CveEmpresa) Then
- Alert("Se eliminó correctamente el Traspaso.", TipoMensaje.MsgInformacion, "document.location.href=""/Inventarios/TrasladoSolicitud.aspx""")
- End If
- ObjInventarios.Dispose()
- End Sub
- Protected Sub LBCancelarTraslado_Click(sender As Object, e As EventArgs)
- Dim ObjInventarios As New ClsInventarios
-
- If ObjInventarios.UpdateTraspasoSolicitudEstatus(CveTraspasoSolicitud, 2) Then
- LBCancelarTraslado.Visible = False
- Alert("Se canceló correctamente la solicitud de traslado.", TipoMensaje.MsgInformacion)
- End If
-
- ObjInventarios.Dispose()
- End Sub
-#End Region
-
-
-#Region " IMPRESION "
- Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles LbImprimir.Click
- GenerarPDF()
- End Sub
- Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
- GenerarPDF("Excel")
- End Sub
- Private Sub GenerarPDF(Optional Formato As String = "PDF")
-
-
- Dim ObjInventarios As New ClsInventarios
- Dim ObjClientes As New ClsClientes
-
-
- Dim CveTraspasoSolicitud As Integer = Request("CveTraspasoSolicitud").ToEntero
- If ObjInventarios.AddTrasladoSolicitudGet(CveTraspasoSolicitud, UsuarioActual.CveEmpresa) Then
- If ObjInventarios.DtResultados.Rows.Count > 0 Then
- Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
- Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
- Dim dt As DataTable = ObjInventarios.DtResultados
-
- Dim DTCliente As New DataTable
- Dim CveCliente As Integer = 0
- Dim CveDireccionEnvio As Integer = 0
- Dim ClienteNombre = "", EnvioContacto = "", EnvioDireccion = "", EnvioColonia = "", EnvioCiudad = "", EnvioEstado = "", ClientePais = "", EnvioCP = "", Contrato = "",
- Paqueteria = "", NumContrato = ""
-
-
-
- Dim CveContrato As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CveContrato").ToString.ToEntero
- If CveContrato > 0 Then
- Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato}")
- NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} ")
- CveCliente = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero
- CveDireccionEnvio = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero
-
-
- If CveCliente > 0 Then
-
- DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
-
- 'Si el traslado tiene cvedireccionenvio trae sus datos
- If Me.CveDireccionEnvio > 0 And ObjClientes.DireccionEnvioGet(Me.CveDireccionEnvio, DdlClientes.SelectedValue.ToEntero, -1) And ObjClientes.DtResultados.Rows.Count > 0 Then
-
- ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre")
- 'ClientePais = DTCliente.FiltroPrimeroValor("PAIS")
- EnvioContacto = ObjClientes.DtResultados.Rows(0)("EnvioContacto").ToString '??
-
- EnvioDireccion = ObjClientes.DtResultados.Rows(0)("EnvioDireccion").ToString
- EnvioColonia = ObjClientes.DtResultados.Rows(0)("EnvioColonia").ToString
- EnvioCiudad = ObjClientes.DtResultados.Rows(0)("EnvioCiudad").ToString
- EnvioCP = ObjClientes.DtResultados.Rows(0)("EnvioCP").ToString
- EnvioEstado = ObjClientes.DtResultados.Rows(0)("EnvioEstado").ToString
- Else
- '25/04/2018 - Si el trasladosolicitud no tiene cvedireccion envio asignada, va por la el cliente
- Dim ObjVentas As New ClsClientes
- If ObjVentas.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then
- If ObjVentas.DtResultados.Rows.Count > 0 Then
- ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre")
- ClientePais = DTCliente.FiltroPrimeroValor("PAIS")
- EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
- EnvioDireccion = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString
- EnvioColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString
- EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString
- EnvioCP = ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString
- EnvioEstado = ObjVentas.DtResultados.Rows(0)("EnvioEstado").ToString
- Else
- ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre")
- EnvioContacto = DTCliente.FiltroPrimeroValor("Contacto")
- EnvioDireccion = DTCliente.FiltroPrimeroValor("Direccion")
- EnvioColonia = DTCliente.FiltroPrimeroValor("Colonia")
- EnvioCiudad = DTCliente.FiltroPrimeroValor("Ciudad")
- EnvioEstado = DTCliente.FiltroPrimeroValor("Estado")
- ClientePais = DTCliente.FiltroPrimeroValor("PAIS")
- EnvioCP = DTCliente.FiltroPrimeroValor("CP")
- End If
- End If
- ObjVentas.Dispose()
- End If
- End If
- End If
-
-
- Dim params As New List(Of ReportParameter)
- params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
- params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString))
- params.Add(New ReportParameter("Fecha", TxtFecha.Text.Substring(0, 10)))
- params.Add(New ReportParameter("AlmacenOrigen", DdlAlmacenOrigen.SelectedItem.Text))
- params.Add(New ReportParameter("AlmacenDestino", DdlAlmacenDestino.SelectedItem.Text))
- params.Add(New ReportParameter("Guia", TxtGuia.Text))
- params.Add(New ReportParameter("UsuarioSolicito", LblUsuario.Text))
- params.Add(New ReportParameter("Folio", LbFolio.Text))
- params.Add(New ReportParameter("Observaciones", TxtObservaciones.Text))
- params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
- 'NUEVOS
- params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
- params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
- params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
- params.Add(New ReportParameter("EnvioColonia", EnvioColonia))
- params.Add(New ReportParameter("EnvioCiudad", EnvioCiudad))
- params.Add(New ReportParameter("EnvioEstado", EnvioEstado))
- params.Add(New ReportParameter("ClientePais", ClientePais))
- params.Add(New ReportParameter("EnvioCP", EnvioCP))
- params.Add(New ReportParameter("Contrato", Contrato))
- params.Add(New ReportParameter("Paqueteria", DdlPaqueteria.SelectedItem.Text))
- params.Add(New ReportParameter("NumeroContrato", NumContrato))
- params.Add(New ReportParameter("FechaEnvio", TxtFecha.Text.Substring(0, 10)))
- params.Add(New ReportParameter("TieneSerie", GvDatos.Columns(5).Visible.ToString()))
-
- Dim RutaFormato As String = String.Format("Empresas\{0}\Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.CveEmpresa)
- Dim RutaFormatoDefault As String = String.Format("Empresas\Grales\Formatos\RepTrasladoSolicitud.rdlc")
-
- Dim Archivo As New System.IO.FileInfo(RutaFormato)
-
-
- params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-
- If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 1 Then
- ImprimirPDF(String.Format("{0}Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.Empresa.Ruta), dt, params, String.Format("Solicitud de Traslado - {0}", NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
- Else
- ImprimirPDF(RutaFormatoDefault, dt, params, String.Format("Solicitud de Traslado - {0}", NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
- End If
-
- Else
- Alert("Ocurrió un error al obtener los datos del traspaso.", TipoMensaje.MsgError)
- End If
-
- End If
- ObjInventarios.Dispose()
- ObjClientes.Dispose()
-
- End Sub
-
-#End Region
-
-
-#Region "Carga Excel"
- Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
- If TxtExcel.getfiles().Archivos.Count > 0 Then
- Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
- Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.path
- Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
- CargarArchivo(Directorio, file.filename, Tipo)
- Else
- Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
- End If
- End Sub
-
-
- Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
- Dim dt As New DataTable
- Dim Conexion As Odbc.OdbcConnection = Nothing
- Dim ErrorArchivo = False
- Dim ErrorExcel = False
- Dim strConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + Ruta + FileName + ";Extended Properties=Excel 8.0;"
- Dim objDbFactory As Common.DbProviderFactory = Common.DbProviderFactories.GetFactory("System.Data.OleDb")
- Dim objDbAdapter As Common.DbDataAdapter = objDbFactory.CreateDataAdapter()
- Dim objDbConnection As Common.DbConnection = objDbFactory.CreateConnection()
- objDbConnection.ConnectionString = strConnString
- objDbConnection.Open()
- Dim objSheetNames As DataTable = objDbConnection.GetSchema("Tables")
- Dim HojaExcel As String = objSheetNames.FiltroPrimeroValor("TABLE_NAME")
- Try
- Select Case Tipo
- Case "CSV"
- Conexion = New Odbc.OdbcConnection("Driver={Microsoft Access Text Driver (*.txt, *.csv)};Dbq=" + Ruta + ";Extensions=asc,csv,tab,txt;")
- Conexion.Open()
- Dim cmd = Conexion.CreateCommand()
- cmd.CommandType = CommandType.Text
- cmd.CommandText = $"SELECT * FROM [{FileName}]"
- Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
- DataAdapter.Fill(dt)
- Case "EXCEL"
- Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
- Conexion.Open()
- Dim cmd = Conexion.CreateCommand()
- cmd.CommandType = CommandType.Text
- cmd.CommandText = $"SELECT * FROM [{HojaExcel}]"
- Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
- DataAdapter.Fill(dt)
- Case Else
- Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
- Exit Sub
- End Select
- Catch ex As Exception
- ErrorArchivo = True
- OnError("Ocurrio un error al leer el archivo " & ex.Message, ex)
- End Try
- Conexion.Close()
-
-
- Dim DTContratosTemporal As New DataTable
- Dim ObjContratos As New ClsContratos
- If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
- DTContratosTemporal = ObjContratos.DtResultados
- End If
- ObjContratos.Dispose()
-
- If DTContratosTemporal IsNot Nothing Then
- If Not ErrorArchivo Then
- For Each Row As DataRow In dt.FiltraParametros("Cantidad > 0").Rows
- Dim Cantidad As String = Row("Cantidad").ToString
- Dim Codigo As String = Row("Codigo").ToString.Trim
- Dim Observaciones As String = Row("Observaciones").ToString
- Dim CodigoPS As String = ""
- Dim CodigoContrato As String = ""
-
- CodigoPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"Codigo = '{Codigo}'")
-
- CodigoContrato = DTContratosTemporal.FiltroPrimeroValor("Codigo", $"Codigo = '{Codigo}'").ToString
-
- If CodigoContrato <> "" Then
- Dim RowTemp As DataRow = TempDT.NewRow()
- RowTemp("Cantidad") = Cantidad
- RowTemp("CvePS") = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString.ToEntero
- RowTemp("CodigoPS") = CodigoPS
- RowTemp("Observaciones") = Observaciones
-
- Dim ObjInventarios As New ClsInventarios
- Dim Existencia As Double = ObjInventarios.GetExistenciasPS(RowTemp("CvePS").ToString.ToEntero, RowTemp("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"))
- ObjInventarios.Dispose()
-
- If Existencia - RowTemp("Cantidad").ToString.ToDouble - TempDT.SUM("Cantidad", $"CvePS = {RowTemp("CvePS").ToString.ToEntero} AND CveUM = {RowTemp("CveUM").ToString.ToEntero}") < 0 Then
- If Existencia = 0 Then
- Alert($"No hay existencia del producto: {CodigoPS}", TipoMensaje.MsgAdvertencia)
- Else
- Alert($"No hay existencia suficiente del producto: {CodigoPS}, Solo hay en existencia: {Existencia - TempDT.SUM("Cantidad", $"CvePS = {RowTemp("CvePS").ToString.ToEntero} AND CveUM = {RowTemp("CveUM").ToString.ToEntero}")}", TipoMensaje.MsgAdvertencia)
- End If
- End If
- TempDT.Rows.Add(RowTemp)
- Else
- Alert($"El Código: ""{CodigoPS}"", no se encuentra en el contrato.", TipoMensaje.MsgAdvertencia)
- Exit For
- End If
-
- Next
-
- GvDatos.DataSource = TempDT
- GvDatos.DataBind()
- CargaTextoContrato()
- UpDatos.Update()
- RegistraScript(String.Format("$('#{0}').modal().hide();", "ModalContrato"))
-
- End If
- Else
- Alert($"Ha ocurrido un error al cargar el contrato.", TipoMensaje.MsgError)
-
- End If
-
-
- End Sub
-
-
- Public Sub CargaTextoContrato()
- If DdlContratos.SelectedValue.ToEntero > 0 Then
- LbContratos.Text = DdlContratos.SelectedItem.Text
- Else
- LbContratos.Text = ""
- End If
- UpDatos.Update()
- End Sub
-
- Private Sub LbContratos_Click(sender As Object, e As EventArgs) Handles LbContratos.Click
- RegistraScript(String.Format("$('#{0}').modal().show();", "ModalContrato"))
- End Sub
-
- Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
- Dim Directorio As String = ""
- Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SolicitudTraslado.xlsx"
- Dim Archivo As New IO.FileInfo(Directorio)
- If Archivo.Exists Then
- Response.Clear()
- Response.ClearHeaders()
- Response.ClearContent()
- Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name)
- Response.AddHeader("Content-Length", Archivo.Length.ToString())
- Response.ContentType = "text/plain"
- Response.Flush()
- Response.TransmitFile(Archivo.FullName)
- Response.End()
- End If
- End Sub
-
-
-#End Region
-
-
- Protected Sub DdlProductoServicio_selectedindexchange(sender As Object, e As EventArgs)
- If DdlProductoServicio.SelectedValue.ToEntero > 0 Then
- Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProductoServicio.SelectedValue.ToEntero).FiltroPrimero("")
- DdlUM.Items.Clear()
- If UsuarioActual.Empresa.UsaInventarios Then
- DdlUM.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductoServicio.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
- Else
- DdlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
- End If
- DdlUM.Items.Insert(0, New ListItem("Seleccione", "-1"))
- DdlUM.SelectedValue = "-1"
- DdlUM.DataBind()
- DdlUM.SelectedValueExist(drPS("CveUnidadMedida").ToString)
- AplicaSerie = drPS("AplicaSerie").ToString = "True"
- Div4.Visible = AplicaSerie
-
- AplicaLote = drPS("AplicaLote").ToString = "True"
- divLote.Visible = AplicaLote
- RFVLote.Enabled = AplicaLote
-
- AplicaCaducidad = drPS("AplicaCaducidad").ToString = "True"
- divCaducidad.Visible = AplicaCaducidad
- divCaducidad2.Visible = AplicaCaducidad
- RFVFechaCad.Enabled = AplicaCaducidad
-
- End If
- UpPS.Update()
- UpDatos.Update()
- End Sub
-
-
- Protected Sub LnkAceptarTraslado_Click(sender As Object, e As EventArgs)
-
- Dim ObjInven As New ClsInventarios
- If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 2, UsuarioActual.CveUsuario, NowADS()) Then
- Alert("Autorizado correctamente.")
- End If
- ObjInven.Dispose()
-
- CargaDatos()
-
- End Sub
-
- Protected Sub LnkRechazarTraslado_Click(sender As Object, e As EventArgs)
-
- TxtMotivoRechazo.Text = ""
- UpModalRechazo.Update()
- RegistraScript("$('#ModalRechazarTraslado').modal();")
-
- End Sub
-
-
- Protected Sub BtnModalRechazo_Click(sender As Object, e As EventArgs)
- RechazarTraslado()
- End Sub
-
- Private Sub RechazarTraslado()
-
- Dim ErrorProceso As Boolean = False
-
- If TxtMotivoRechazo.Text.Trim.Length.ToEntero = 0 Then
- Alert("El motivo de rechazo es necesario", TipoMensaje.MsgAdvertencia)
- End If
-
-
- Dim ObjInven As New ClsInventarios
-
- If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 3, UsuarioActual.CveUsuario, NowADS()) Then
- Alert("Rechazado correctamente.")
- ErrorProceso = False
- Else
- ErrorProceso = True
- End If
-
- ObjInven.Dispose()
-
- If Not ErrorProceso Then
- MandaCorreoRechazo(LbFolio.Text.ToEntero, CveTraspasoSolicitud, CveUsuarioSolicita, TxtMotivoRechazo.Text)
- CargaDatos()
- RegistraScript("$('#ModalRechazarTraslado').modal('hide');")
- End If
-
- End Sub
-
-
- Private Sub MandaCorreoRechazo(Folio As Integer, CveTraspasoSolicitud As Integer, CveUsuarioSolicita As Integer, MotivoRechazo As String)
-
- Dim SB As New StringBuilder
-
- Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita)(0)("Correo").ToString.Trim
-
-
- If CorreoDestino.Length > 0 Then
-
-
- SB.AppendLine($"
Se ha rechazado la solicitud de traspaso con folio {Folio}, el traspaso fue rechazado por el usuario {UsuarioActual.Nombre }, el traspaso fue rechazado por el motivo: {MotivoRechazo}
")
-
-
-
- SB.AppendLine(" ")
- SB.AppendLine("
")
- SB.AppendLine("
Cantidad
U.M.
Producto
Observaciones
")
-
- For Each GvRow As GridViewRow In GvDatos.Rows
-
- If GvRow.RowType = DataControlRowType.DataRow Then
- SB.AppendLine($"
{GvRow.DataKey("Cantidad")}
{GvRow.DataKey("UnidadMedida")}
{GvRow.DataKey("CodigoPS")}
{GvRow.DataKey("Observaciones")}
")
- End If
-
- Next
- SB.AppendLine("
")
- SB.AppendLine(" ")
-
- SB.AppendLine($"Ir a solicitud de traspaso folio {Folio}")
-
-
-
- Dim MandaCorre As New ClsSisMail
- MandaCorre.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoDestino, $"Rechazo de Autorización de traspaso #{Folio}", SB.ToString, Displayname:="SIG Notificaciones: Rechazo de Traspaso")
-
- End If
-
- End Sub
-
-
- Private Sub MandaCorreoAutorizacion(Folio As Integer, CveTraspasoSolicitud As Integer, CveUsuarioAutoriza As Integer)
-
- Dim SB As New StringBuilder
-
- Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza)(0)("Correo").ToString.Trim
-
-
- If CorreoDestino.Length > 0 Then
-
-
-
- SB.AppendLine($"
Se ha registrado una solicitud de traspaso de {DdlAlmacenOrigen.SelectedItem.Text} a {DdlAlmacenDestino.SelectedItem.Text}, con los siguientes productos.
")
-
-
-
- SB.AppendLine(" ")
- SB.AppendLine("
")
- SB.AppendLine("
Cantidad
U.M.
Producto
Observaciones
")
-
- For Each GvRow As GridViewRow In GvDatos.Rows
-
- If GvRow.RowType = DataControlRowType.DataRow Then
- SB.AppendLine($"
{GvRow.DataKey("Cantidad")}
{GvRow.DataKey("UnidadMedida")}
{GvRow.DataKey("CodigoPS")}
{GvRow.DataKey("Observaciones")}
")
- End If
-
- Next
- SB.AppendLine("
")
- SB.AppendLine(" ")
- SB.AppendLine($"Ir a solicitud de traspaso para autorización")
-
-
-
- Dim MandaCorre As New ClsSisMail
- MandaCorre.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoDestino, $"Solicitud de Autorización de traspaso #{Folio}", SB.ToString, Displayname:="SIG Notificaciones: Solicitud de Traspaso")
-
- End If
-
- End Sub
-
- Public Sub MostarSerieColumn()
- Dim Mostrar As Boolean = False
For Each row As GridViewRow In GvDatos.Rows
- Dim Serie As String = row.DataKey("Serie").ToString
- If Serie IsNot "-1" And Serie IsNot "" Then
- Mostrar = True
- Exit For
+ CodigoPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=row.DataKey("CvePS").ToEntero).FiltroPrimeroValor("PSCodigo", "")
+ Existencia = ObjInventarios.GetExistenciasPS(row.DataKey("CvePS").ToEntero, row.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=NowADS.ToString("yyyy/MM/dd 23:59"), Lote:=row.DataKey("Lote").ToString, FechaCaducidad:=row.DataKey("FechaCaducidad").ToString.ToDate)
+ If Existencia - TempDT.SUM("Cantidad", $"CvePS = {row.DataKey("CvePS").ToEntero} AND CveUM = {row.DataKey("CveUM").ToEntero}") < 0 Then
+ MensajeExistencia.AppendFormat(" - {0}. Existencia: {1}", CodigoPS, Existencia)
+ TieneErrorExistencia = True
End If
Next
- GvDatos.Columns(5).Visible = Mostrar
+
+ If TieneErrorExistencia Then
+ Alert(MensajeExistencia.ToString, TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+
+ ObjInventarios.IniciaTransacSQL()
+ Dim TieneError As Boolean = False
+
+ 'Dim CveContrato As Integer = 0
+ 'Dim Guia As String = ""
+ 'If TxtGuia.Text <> "" Then Guia = TxtGuia.Text Else Guia = ""
+ 'If DdlContratos.SelectedValue.ToEntero > 0 Then CveContrato = DdlContratos.SelectedValue.ToEntero Else CveContrato = -1
+
+ Dim Estatus As Integer = -1
+
+ If UsuarioActual.Empresa.Funcionalidad(105) <> "" Then
+ Estatus = 1
+ Else
+ Estatus = 3
+ End If
+
+ Dim Folio As Integer = ObjInventarios.AddTrasladoSolicitud("", DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, NowADS, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EstatusAlmacen:=EstatusAlmacen)
+
+ If Folio > 0 Then
+ CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud
+ Else
+ TieneError = True
+ End If
+
+ If Not TieneError Then
+ For Each Row As GridViewRow In GvDatos.Rows
+ 'Dim CveUM As Integer = Row.DataKey("CveUM").ToEntero
+ Dim CvePS As Integer = Row.DataKey("CvePS").ToEntero
+ Dim Cantidad As Integer = Row.DataKey("Cantidad").ToEntero
+ 'Dim Precio As Decimal = Row.DataKey("Precio").ToDecimal
+ 'Dim Observaciones As String = Row.DataKey("Observaciones")
+ 'Dim CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero
+ 'Dim Serie As String = Row.DataKey("Serie")
+ 'Dim Lote As String = Row.DataKey("Lote")
+ 'Dim FechaCaducidad As Date = Row.DataKey("FechaCaducidad").ToDate
+
+ If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, -1, CvePS, 0, "", -1, "-1", "-1", MinFecha) Then
+ TieneError = True
+ Exit For
+ End If
+ Next
+ End If
+
+
+ If TieneError = False Then
+ ObjInventarios.Commit()
+ Alert($"El Traspaso se guardó correctamente con el folio #: {Folio}.", TipoMensaje.MsgInformacion)
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "DVModalSolicitudAdd"))
+ CargaDatos()
+ Else
+ ObjInventarios.RollBack()
+ Alert("Ocurrió un Error al guardar el traspaso.", TipoMensaje.MsgError)
+ End If
+ ObjInventarios.Dispose()
+
+ End Sub
+#End Region
+
+
+#Region " GV DATOS "
+ Private Sub GvDatos_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
+ EliminarRow(e.RowIndex)
+ End Sub
+ Private Sub EliminarRow(RowIndex As Integer)
+ TempDT.Rows(RowIndex).Delete()
+ TempDT.AcceptChanges()
+ GvDatos.DataSource = TempDT
+ GvDatos.DataBind()
+ UpPS.Update()
End Sub
- Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
- If e.Row.RowType = DataControlRowType.DataRow Then
- If e.Row.FCLiteral("LtlSerie").ToString = "-1" Then
- e.Row.FCLiteral("LtlSerie").Text = ""
- End If
- If e.Row.FCLiteral("LtlLote").ToString = "-1" Then
- e.Row.FCLiteral("LtlLote").Text = ""
- End If
+#End Region
+
+
+ Protected Sub LnkAgregarSolicitud_Click(sender As Object, e As EventArgs)
+ RegistraScript(String.Format("$('#{0}').modal();", "DVModalSolicitudAdd"))
+ End Sub
+
+ Protected Sub LnkMostrarTraspaso_Click(sender As Object, e As EventArgs)
+
+ Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+ CveTraspasoSolicitud = GvRow.DataKey("CveTraspasoSolicitud").ToEntero
+ CveAlmacenOrigen = GvRow.DataKey("CveAlmacenOrigen").ToEntero
+ CveAlmacenDestino = GvRow.DataKey("CveAlmacenDestino").ToEntero
+ Dim CveTrasladoEstatus As Integer = GvRow.DataKey("CveTrasladoEstatus").ToEntero
+
+ LblModalSolicitudFolio.Text = GvRow.DataKey("Folio")
+ LblModalSolicitudSolicitante.Text = GvRow.DataKey("Nombre")
+ LblModalSolicitudOrigen.Text = GvRow.DataKey("AlmacenOrigen")
+ LblModalSolicitudDestino.Text = GvRow.DataKey("AlmacenDestino")
+
+ ' TraspasoEstatus,AlmacenOrigen,AlmacenDestino,Nombre
+
+ Dim ObjInventarios As New ClsInventarios
+ If ObjInventarios.AddTrasladoSolicitudGet(CveTraspasoSolicitud, UsuarioActual.CveEmpresa) Then
+ GvSolicitudes.DataSource = ObjInventarios.DtResultados
+ End If
+ ObjInventarios.Dispose()
+ GvSolicitudes.DataBind()
+
+ GvSolicitudes.Columns(0).Visible = If(CveTrasladoEstatus = 1, True, False)
+ GvSolicitudes.Columns(2).Visible = If(CveTrasladoEstatus = 1, True, False)
+ BtnAceptarSolicitud.Visible = If(CveTrasladoEstatus = 1, True, False)
+ BtnRechazarSolicitud.Visible = If(CveTrasladoEstatus = 1, True, False)
+
+
+
+ UpModalSolicitudes.Update()
+ RegistraScript(String.Format("$('#{0}').modal();", "DVModalSolicitud"))
+
+ End Sub
+
+ Protected Sub BtnAceptarSolicitud_Click(sender As Object, e As EventArgs)
+
+
+ Dim CveAlmacenTransictorio As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3).FiltroPrimeroValor("CveAlmacen").ToEntero
+
+ If Not CveAlmacenTransictorio > 0 Then
+ Alert("No se encontro un almacen transitorio", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ Dim ErrorMovInv As Boolean = False
+ Dim ErrorExistencia As Boolean = False
+
+ Dim ObjInventario As New ClsInventarios
+ Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
+
+ Dim TextoExistencia As StringBuilder = New StringBuilder
+ TextoExistencia.Append("Los siguiente productos no tienen existencia: ")
+
+ For Each gvr As GridViewRow In GvSolicitudes.Rows
+ Dim Existencia As Decimal = 0
+
+ Dim MsgAdicional As String = ""
+
+ If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, CveAlmacenOrigen, FechaMovto:=NowADS.ToString("yyyy/MM/dd 23:59"), CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", Caducidad:=MinFecha) Then
+ 'si hay existencia en almacen costeado, lo tengo que sacar
+ ' si tiene serie el producto, debe de
+ Existencia = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", CveAlmacenOrigen)).ToDecimal
+ Dim ExistenciaSinPendiente As Decimal = ObjInventario.DtResultados.FiltroPrimeroValor("Existencia", String.Format("CveAlmacen = {0}", CveAlmacenOrigen)).ToDecimal
+ Dim PendienteporSurtir As Decimal = ObjInventario.DtResultados.FiltroPrimeroValor("PendientePorSurtir", String.Format("CveAlmacen = {0}", CveAlmacenOrigen)).ToDecimal
+
+ ' si la existencia es negativa y tiene serie ó lote, quiere decir que la consulta es específica, y si hay pendientes por surtir. puede generar negativos
+ ' para asegurarnos que lo pendiente por surtir se pueda surtir con otras series, consultamos de nuevo, pero a nivel producto, para checar existencia
+
+ If ExistenciaSinPendiente > 0 AndAlso Existencia <= 0 AndAlso PendienteporSurtir > 0 Then
+ MsgAdicional = " Pendiente por surtir: " & PendienteporSurtir.FormatoNumero(0)
+ If ObjInventario.GetExistenciasProducto(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, CveAlmacenOrigen, FechaMovto:=NowADS.ToString("yyyy/MM/dd 23:59")) Then
+ 'si hay existencia en almacen costeado, lo tengo que sacar
+ Existencia = ObjInventario.DtResultados.FiltroPrimeroValor("ExistenciaFinal", String.Format("CveAlmacen = {0}", CveAlmacenOrigen)).ToDecimal
+ 'si la existencia del producto en general, supera a lo pendiente, entonces la serie si se puede sacar.
+
+ End If
+ End If
- If e.Row.FCLiteral("LtlFechaCaducidad").ToString.ToDate = MinFecha Then
- e.Row.FCLiteral("LtlFechaCaducidad").Text = ""
End If
+ Existencia -= gvr.FCTextBox("TxtCantidad").Text.ToDecimal()
+
+ If Existencia < 0 Then
+ ErrorExistencia = True
+ TextoExistencia.AppendFormat("-#{0} {1} {2} Existencia: {3}{4} ", "", gvr.DataKey("CodigoPS"), "", (Existencia + gvr.FCTextBox("TxtCantidad").Text.ToDecimal()), MsgAdicional)
+ End If
+ Next
+
+ If ErrorExistencia Then
+ ObjInventario.Dispose()
+ Alert(TextoExistencia.ToString, TipoMensaje.MsgError)
+ RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
+
+ Exit Sub
+ End If
+
+
+
+ Dim DrAlmO, DrAlmD As DataRow
+ Dim CveSucursalOrigen, CveSucursalDestino As Integer
+ Dim TipoAlmacenOrigen, TipoAlmacenDestino As Integer
+ Dim CveSubProyectoOrigen, CveSubProyectoDestino As Integer
+
+ Dim CveAlmacenVirtualSalida As Integer = -1
+ Dim CveAlmacenVirtualEntrada As Integer = -1
+
+ DrAlmO = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenOrigen).FiltroPrimero("")
+ DrAlmD = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacenDestino).FiltroPrimero("")
+
+ If DrAlmO IsNot Nothing AndAlso DrAlmD IsNot Nothing Then
+ CveSucursalOrigen = DrAlmO("CveSubProyecto").ToString.ToEntero
+ TipoAlmacenOrigen = DrAlmO("CveTipoAlmacen").ToString.ToEntero
+ CveSubProyectoOrigen = DrAlmO("CveSubProyecto").ToString.ToEntero
+ CveAlmacenVirtualSalida = DrAlmO("CveAlmacenVirtual").ToString.ToEntero
+
+
+ CveSucursalDestino = DrAlmD("CveSubProyecto").ToString.ToEntero
+ TipoAlmacenDestino = DrAlmD("CveTipoAlmacen").ToString.ToEntero
+ CveSubProyectoDestino = DrAlmD("CveSubProyecto").ToString.ToEntero
+ CveAlmacenVirtualEntrada = DrAlmD("CveAlmacenVirtual").ToString.ToEntero
End If
+
+ ' val Existencia
+
+ Dim CveMovimientoSalida As Integer = -1
+ Dim CveMovimientoEntrada As Integer = -1
+ Dim TipoMovimientoSalida As Integer = 26
+
+ Dim FolioSalida As Integer = 0
+ Dim FolioEntrada As Integer = 0
+
+ Dim TextoError As String = ""
+ Dim CveConceptoEntrada As Integer = 9
+
+
+ 'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
+ CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenOrigen, TipoMovimientoSalida, 1, NowADS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
+ Observaciones:="", Recibio:="-1",
+ CveAlmacenDestino:=CveAlmacenDestino, GastoIndirecto:=-1,
+ ResponsableCarga:="", ResponsableRecibio:="",
+ Modulo:="STA/G1", CveFolioGarantia:=-1)
+
+
+
+ FolioSalida = ObjInventario.Folio
+ 'Folio = ObjInventario.Folio
+ If CveMovimientoSalida <= 0 Then
+ TextoError = "Ocurrió un error al generar el movimiento de salida"
+ ErrorMovInv = True
+ Else
+ Dim Cont As Integer = 0
+
+
+ For Each gvr As GridViewRow In GvSolicitudes.Rows
+
+ Dim Cantidad As Decimal = gvr.FCTextBox("TxtCantidad").Text.ToDecimal
+ If gvr.FCCheckBox("Chk").Checked AndAlso Cantidad > 0 Then
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Cantidad, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CvePS").ToEntero, 0, CveAF:=-1, CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", FechaCaducidad:=MinFecha, Observaciones:="") Then
+ ErrorMovInv = True
+ TextoError = "Ocurrió un error al guardar los movimientos de salida"
+ Exit For
+ End If
+ Cont += 1
+ End If
+ Next
+
+ 'For Each Dr As DataRow In DtMovimientos.RowsF
+
+ 'Next
+ End If
+
+ 'ENTRADA
+ CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenTransictorio, CveConceptoEntrada, 1, NowADS, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
+ Observaciones:="", Recibio:="",
+ CveAlmacenDestino:=CveAlmacenDestino, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="STA/G2", CveFolioGarantia:=-1)
+ FolioEntrada = ObjInventario.Folio
+ If CveMovimientoEntrada <= 0 Then
+ TextoError = "Ocurrió un error al generar el movimiento de entrada"
+ ErrorMovInv = True
+ Else
+ If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+ Dim Cont As Integer = 0
+ Dim dttSalida As DataTable = ObjInventario.DtResultados
+
+ Dim tCveClasificacion As Integer = ObjInventario.DtResultados.MAX("CveClasificacion").ToEntero
+
+ For Each Dr As DataRow In ObjInventario.DtResultados.Rows
+ Dim CostoEntrada As Decimal = If(TipoAlmacenDestino = 26, 0, Dr("PU").ToString.ToDecimal())
+ If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, CostoEntrada, CveAF:=-1,
+ CveSeccionAlmacen:=-1, Serie:="-1", Lote:="-1", FechaCaducidad:=MinFecha, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString.ToEntero, Observaciones:="") Then
+ ErrorMovInv = True
+ TextoError = "Ocurrió un error al guardar los movimientos de entrada"
+ Exit For
+ End If
+ Cont += 1
+ Next
+
+ Dim Concepto As String = ""
+ If Concepto = "" Then Concepto = "Traspaso"
+
+ 'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO:
+ If Not ErrorMovInv Then
+ Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/TraspasoAlmacen", 53, 0, 0, 1, NowADS, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+ Dim importe As Decimal = dttSalida.SUMD("Total").RoundSQL
+ Dim Contabilizable As Boolean = False
+ If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then Contabilizable = True 'cuando es citrícola
+ If TipoAlmacenOrigen = 26 AndAlso TipoAlmacenDestino <> 26 Then Contabilizable = True
+
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, importe, 68, "", "", CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
+ ErrorMovInv = True
+ End If
+
+ 'si el tipo de almacen de entrada es Almacen sin costo, se registra al costo, la salida.
+ If TipoAlmacenOrigen <> 26 AndAlso TipoAlmacenDestino = 26 Then
+
+
+
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, importe, 69, "", "", CveClasificacion:=tCveClasificacion, CveSubProyecto:=CveSubProyectoOrigen, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then
+ ErrorMovInv = True
+ End If
+ Contabilizable = False
+ importe = 0
+ End If
+
+ If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importe, importe, 68, "", "", CveMovimientoAlmacen:=CveMovimientoEntrada, Contabilizable:=Contabilizable) Then
+ ErrorMovInv = True
+ End If
+
+ If Not ErrorMovInv Then
+ If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then
+ If ObjConta.ValorPolizaDescuadre > 0 Then
+ 'MsgError = ObjMov.MensajePolizaDescuadre
+ ErrorMovInv = True
+ 'GuardaLogAD($"Bancos/Transferencias | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+ End If
+ Else
+ ErrorMovInv = True
+ End If
+ End If
+ End If
+ End If
+ End If
+
+
+ If Not ErrorMovInv Then
+ If ObjInventario.UpdateTraspasoSolicitudMovimiento(CveTraspasoSolicitud, CveMovimientoSalida) Then
+ If Not ObjInventario.UpdateTraspasoSolicitudEstatus(CveTraspasoSolicitud, 2) Then
+ ErrorMovInv = True
+ End If
+ Else
+ ErrorMovInv = True
+ End If
+ End If
+
+ Dim MensajeAlert As New StringBuilder
+ If Not ErrorMovInv Then
+ ObjInventario.Commit()
+ MensajeAlert.Append("Se realizó con éxito el traspaso.")
+ MensajeAlert.AppendFormat(" Folio de Salida: {0}", FolioSalida, CveMovimientoSalida)
+ MensajeAlert.AppendFormat(" Imprimir Salida ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida)))
+
+ MensajeAlert.AppendFormat(" Folio de Transitorio: {0}", FolioEntrada, CveMovimientoEntrada)
+ MensajeAlert.AppendFormat(" Imprimir Transitorio ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada)))
+
+
+ Alert(MensajeAlert.ToString, TipoMensaje.MsgInformacion, "")
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "DVModalSolicitud"))
+ Else
+ ObjInventario.RollBack()
+ Alert(TextoError, TipoMensaje.MsgError)
+ End If
+
+ ObjInventario.Dispose()
+
+ If Not ErrorMovInv Then
+ CargaDatos()
+ End If
+
End Sub
-End Class
-
+
+ Protected Sub BtnRechazarSolicitud_Click(sender As Object, e As EventArgs)
+ Dim ErrorMovInv As Boolean = False
+
+ Dim ObjInventarios As New ClsInventarios
+ If Not ObjInventarios.UpdateTraspasoSolicitudEstatus(CveTraspasoSolicitud, 3) Then
+ ErrorMovInv = True
+ End If
+ ObjInventarios.Dispose()
+
+ If Not ErrorMovInv Then
+ RegistraScript(String.Format("$('#{0}').modal('hide');", "DVModalSolicitud"))
+ Alert("Se rechazo correctamente la solicitud de traspaso.", TipoMensaje.MsgInformacion)
+ CargaDatos()
+ End If
+
+ End Sub
+
+ Protected Sub GvSolicitudes_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ Dim Cantidad As Decimal = e.Row.DataKey("Cantidad").ToDecimal
+ e.Row.FCCheckBox("chk").Attributes.Add("onclick", $"validaCantidadSolicitud({Cantidad},'{e.Row.FCTextBox("TxtCantidad").ClientID}','{e.Row.FCCheckBox("Chk").ClientID}',1);")
+ e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", $"validaCantidadSolicitud({Cantidad},'{e.Row.FCTextBox("TxtCantidad").ClientID}','{e.Row.FCCheckBox("Chk").ClientID}',2);")
+ End If
+
+ End Sub
+
+ Protected Sub GvT_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+ If e.Row.RowType = DataControlRowType.DataRow Then
+
+ e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False)
+
+ If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 1 Then
+ e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm blue"
+ e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-info"
+ Else
+ If e.Row.DataKey("CveTrasladoEstatus").ToEntero = 2 Then
+ e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-success"
+ e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm green"
+ Else
+ e.Row.FCLabel("LblTraspasoEstatus").CssClass = "label label-sm label-danger"
+ e.Row.FCLinkButton("LnkMostrarTraspaso").CssClass = "btn btn-circle btn-sm red"
+ End If
+
+
+ End If
+
+
+ End If
+
+ End Sub
+
+ Protected Sub DdlAlmacenOrigen_SelectedIndexChanged(sender As Object, e As EventArgs)
+
+ DdlAlmacenDestino.ClearSelection()
+ DdlAlmacenDestino.SelectedValue = Nothing
+ DdlAlmacenDestino.Items.Clear()
+
+ DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros($"CveTipoAlmacen <> 9 AND CveAlmacen <> {DdlAlmacenOrigen.SelectedValue}")
+ DdlAlmacenDestino.DataBind()
+ DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione Uno", "-1"))
+ UpPS.Update()
+ End Sub
+End Class
diff --git a/Inventarios/TrasladoSolicitudOld.aspx b/Inventarios/TrasladoSolicitudOld.aspx
new file mode 100644
index 000000000..fef1a621d
--- /dev/null
+++ b/Inventarios/TrasladoSolicitudOld.aspx
@@ -0,0 +1,593 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="TrasladoSolicitudOld.aspx.vb" Inherits="Inventarios_TrasladoSolicitudOld" %>
+
+
+
+
+
+
+
+
+ Solicitud de Traslados
+
+
+
+
+
+
+
+
+
diff --git a/Inventarios/TrasladoSolicitudOld.aspx.vb b/Inventarios/TrasladoSolicitudOld.aspx.vb
new file mode 100644
index 000000000..f3870501b
--- /dev/null
+++ b/Inventarios/TrasladoSolicitudOld.aspx.vb
@@ -0,0 +1,1262 @@
+Option Strict On
+Option Explicit On
+
+Imports System.Data
+Imports Extensiones
+Imports Microsoft.Reporting.WebForms
+
+Partial Class Inventarios_TrasladoSolicitudOld
+ Inherits ClsPaginas
+
+#Region "Propiedades"
+ Private Property TempDT As DataTable
+ Get
+ Return CType(ViewState("TempDT"), DataTable)
+ End Get
+ Set(value As DataTable)
+ ViewState("TempDT") = value
+ End Set
+ End Property
+
+ Private Property CveTraspasoSolicitud As Integer
+ Get
+ Return CType(ViewState("CveTraspasoSolicitud"), Integer)
+ End Get
+ Set(value As Integer)
+ ViewState("CveTraspasoSolicitud") = value
+ End Set
+ End Property
+
+ 'CveDireccionEnvio del Traslado
+ Private Property CveDireccionEnvio As Integer
+ Get
+ Return CType(ViewState("CveDireccionEnvio"), Integer)
+ End Get
+ Set(value As Integer)
+ ViewState("CveDireccionEnvio") = value
+ End Set
+ End Property
+ Private Property CveUsuarioSolicita As Integer
+ Get
+ If ViewState("CveUsuarioSolicita") Is Nothing Then
+ Return -1
+ Else
+ Return CType(ViewState("CveUsuarioSolicita"), Integer)
+ End If
+
+ End Get
+ Set(value As Integer)
+ ViewState("CveUsuarioSolicita") = value
+ End Set
+ End Property
+
+ Private Property AplicaSerie As Boolean
+ Get
+ If ViewState("AplicaSerie") Is Nothing Then
+ Return False
+ Else
+ Return CType(ViewState("AplicaSerie"), Boolean)
+ End If
+
+ End Get
+ Set(value As Boolean)
+ ViewState("AplicaSerie") = value
+ End Set
+ End Property
+
+ Private Property AplicaLote As Boolean
+ Get
+ If ViewState("AplicaLote") Is Nothing Then
+ Return False
+ Else
+ Return CType(ViewState("AplicaLote"), Boolean)
+ End If
+
+ End Get
+ Set(value As Boolean)
+ ViewState("AplicaLote") = value
+ End Set
+ End Property
+
+ Private Property AplicaCaducidad As Boolean
+ Get
+ If ViewState("AplicaCaducidad") Is Nothing Then
+ Return False
+ Else
+ Return CType(ViewState("AplicaCaducidad"), Boolean)
+ End If
+
+ End Get
+ Set(value As Boolean)
+ ViewState("AplicaCaducidad") = value
+ End Set
+ End Property
+
+#End Region
+
+ Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+ If Not IsPostBack Then
+
+ InicializaValores()
+
+ 'CARGAMOS SOLICITUD YA EXISTENTE.
+ If Request("CveTraspasoSolicitud").ToEntero > 0 Then
+ CveTraspasoSolicitud = Request("CveTraspasoSolicitud").ToEntero
+ CargaDatos()
+ End If
+
+ End If
+ End Sub
+
+
+
+#Region " INICIALIZA VALORES "
+ Private Sub InicializaValores()
+ CveTraspasoSolicitud = -1
+ CveDireccionEnvio = -1
+ DivFolio.Visible = False
+
+ TxtFecha.Text = NowADS().ToShortDateString
+ CreaDTTemporal()
+ CargaAlmacenes()
+ CargaPS()
+ CargaClientes()
+ DdlContratos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ CargaUnidadMedida()
+ CargaPaqueterias()
+ End Sub
+ Public Sub CreaDTTemporal()
+ TempDT = New DataTable
+ TempDT.Columns.Add("Cantidad", Type.GetType("System.Double"))
+ TempDT.Columns.Add("CvePS", Type.GetType("System.Int32"))
+ TempDT.Columns.Add("CodigoPS", Type.GetType("System.String"))
+ TempDT.Columns.Add("CveUM", Type.GetType("System.Int32"))
+ TempDT.Columns.Add("UnidadMedida", Type.GetType("System.String"))
+ TempDT.Columns.Add("Precio", Type.GetType("System.Double"))
+ TempDT.Columns.Add("Observaciones", Type.GetType("System.String"))
+ TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32"))
+ 'TempDT.Columns.Add("CveContratoDetalle", Type.GetType("System.Int32"))
+ 'TempDT.Columns.Add("CveDireccionEnvio", Type.GetType("System.Int32"))
+ TempDT.Columns.Add("Serie", Type.GetType("System.String"))
+ TempDT.Columns.Add("Lote", Type.GetType("System.String"))
+ TempDT.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
+
+ TempDT.Columns.Add()
+ End Sub
+ Private Sub CargaPaqueterias()
+ DdlPaqueteria.DataSource = GlobalDTPaqueterias(UsuarioActual.CveEmpresa)
+ DdlPaqueteria.DataBind()
+ DdlPaqueteria.Items.Insert(0, New ListItem("-", "-1"))
+ End Sub
+
+ Private Sub CargaUnidadMedida()
+ DdlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
+ DdlUM.DataBind()
+ End Sub
+
+ Private Sub CargaAlmacenes()
+ 'Cargo los almacenes
+ DdlAlmacenOrigen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
+ DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen <> 9") 'Excluir almacenes de Apartado
+ DdlAlmacenOrigen.DataBind()
+ DdlAlmacenDestino.DataBind()
+ End Sub
+
+ Private Sub CargaClientes()
+ DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+ DdlClientes.DataBind()
+ DdlClientes.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ End Sub
+
+ Private Sub CargaPS()
+ DdlProductoServicio.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+ If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
+ DdlProductoServicio.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
+ DdlProductoServicio.SelectedText = ""
+ DdlProductoServicio.SelectedValue = "-1"
+ Else
+ DdlProductoServicio.ddl.Items.Clear()
+ DdlProductoServicio.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=-1)
+ DdlProductoServicio.ddl.DataBind()
+ DdlProductoServicio.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+ End If
+ 'DdlProductoServicio.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+ 'DdlProductoServicio.DataBind()
+ 'DdlProductoServicio.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ End Sub
+#End Region
+
+
+#Region " CARGA DATOS "
+ Private Sub CargaDatos()
+ Dim ObjInventarios As New ClsInventarios
+ Dim ObjClientes As New ClsClientes
+
+ If ObjInventarios.AddTrasladoSolicitudGet(CveTraspasoSolicitud, UsuarioActual.CveEmpresa) Then
+ If ObjInventarios.DtResultados.Rows.Count > 0 Then
+ For Each rowtp As DataRow In ObjInventarios.DtResultados.Rows
+ If Not AplicaSerie Then
+ AplicaSerie = rowtp("Serie").ToString <> ""
+ End If
+ If Not AplicaLote Then
+ AplicaLote = rowtp("Lote").ToString <> ""
+ End If
+ If Not AplicaCaducidad Then
+ AplicaCaducidad = rowtp("FechaCaducidad").ToString <> ""
+ End If
+ Next
+
+ Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProductoServicio.SelectedValue.ToEntero).FiltroPrimero("")
+
+
+ GvDatos.Columns(4).Visible = False
+ GvDatos.Columns(5).Visible = AplicaSerie
+ GvDatos.Columns(6).Visible = AplicaLote
+ GvDatos.Columns(7).Visible = AplicaCaducidad
+
+ DivFolio.Visible = True
+ LbFolio.Text = ObjInventarios.DtResultados.Rows(0)("FolioTraspaso").ToString
+ TxtObservaciones.Text = ObjInventarios.DtResultados.Rows(0)("ObservacionesTraspaso").ToString
+
+ TempDT = ObjInventarios.DtResultados
+ GvDatos.DataSource = ObjInventarios.DtResultados
+ GvDatos.DataBind()
+
+ If ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero > 0 Then
+ RowContrato.Visible = True
+ ChkDesdeContrato.Checked = True
+ GvDatos.Columns(3).Visible = True
+ Else
+ GvDatos.Columns(3).Visible = False
+ End If
+
+ DdlAlmacenOrigen.SelectedValue = ObjInventarios.DtResultados.Rows(0)("CveAlmacenOrigen").ToString
+ DdlAlmacenDestino.SelectedValue = ObjInventarios.DtResultados.Rows(0)("CveAlmacenDestino").ToString
+ DdlPaqueteria.SelectedValue = ObjInventarios.DtResultados.Rows(0)("CvePaqueteria").ToString
+ TxtFecha.Text = ObjInventarios.DtResultados.Rows(0)("Fecha").ToString
+ LblUsuario.Text = ObjInventarios.DtResultados.Rows(0)("Usuario").ToString
+ HplContrato.Text = ObjInventarios.DtResultados.Rows(0)("DescripcionContrato").ToString
+ HplContrato.NavigateUrl = $"/Contratos/Contrato.aspx?CveContrato={ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}"
+
+ CveUsuarioSolicita = ObjInventarios.DtResultados.Rows(0)("CveUsuario").ToString.ToEntero
+
+ '25/04/2018
+ CveDireccionEnvio = ObjInventarios.DtResultados.Rows(0)("CveDireccionEnvio").ToString.ToEntero
+ If CveDireccionEnvio > 0 And ObjClientes.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then
+ LblDireccionEnvio.Text = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1")).Rows(0)("SucursalClienteVentaDireccion").ToString
+ Else
+ Dim CveCliente As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}").ToEntero
+ Dim DtCliente As DataTable = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
+ If DtCliente.Rows.Count > 0 Then
+ LblDireccionEnvio.Text = String.Format("{0},{1}, {2}", DtCliente.FiltroPrimeroValor("Direccion"), DtCliente.FiltroPrimeroValor("Colonia"), DtCliente.FiltroPrimeroValor("Ciudad"), DtCliente.FiltroPrimeroValor("Contacto"))
+ End If
+ End If
+
+ If ObjInventarios.DtResultados.Rows(0)("CveTrasladoEstatus").ToString.Contiene("1", "3") And Not ObjInventarios.DtResultados.Rows(0)("CveMovimientoAlmacen").ToString.ToEntero > 0 Then
+ LBCancelarTraslado.Visible = True
+ End If
+
+ If ObjInventarios.DtResultados.Rows(0)("CveTrasladoEstatus").ToString = "2" Then
+ DivCancelado.Visible = True
+ End If
+
+ If ObjInventarios.DtResultados.Rows(0)("CveMovimientoAlmacen").ToString.ToEntero > 0 Then
+ RowMovimiento.Visible = True
+ HLMovimiento.Text = ObjInventarios.DtResultados.Rows(0)("FolioAlmacen").ToString
+ HLMovimiento.NavigateUrl = $"/Inventarios/EntradasSalidas.aspx?CveMovimiento={ObjInventarios.DtResultados.Rows(0)("CveMovimientoAlmacen").ToString.ToEntero}"
+ Else
+ RowMovimiento.Visible = False
+ End If
+
+ If ObjInventarios.DtResultados.Rows(0)("Guia").ToString <> "" Then
+ TrGuia.Visible = True
+ TxtGuia.Text = ObjInventarios.DtResultados.Rows(0)("Guia").ToString
+ Else
+ TrGuia.Visible = False
+ End If
+
+ If UsuarioActual.TienePermisoProceso(313) Then
+ BtnEliminar.Visible = True
+ End If
+
+ BtnGuardar.Enabled = False
+ TxtObservaciones.Enabled = False
+ TxtFecha.Enabled = False
+ DdlPaqueteria.Enabled = False
+ ChkDesdeContrato.Enabled = False
+ DdlAlmacenDestino.Enabled = False
+ DdlAlmacenOrigen.Enabled = False
+ TxtGuia.Enabled = False
+ HLDesdeContrato.Enabled = False
+ LbAgregarPS.Enabled = False
+ DivInfo.Visible = True
+ LbImprimir.Visible = True
+ ImgExcel.Visible = True
+
+ LbAgregarPS.Visible = False
+ HLDesdeContrato.Visible = False
+
+
+ Dim EstatusAlmacen As Integer = ObjInventarios.DtResultados.Rows(0)("EstatusAlmacen").ToString().ToEntero
+ Dim CveUsuarioAutoriza As Integer = ObjInventarios.DtResultados.Rows(0)("CveUsuarioAutorizaDestino").ToString().ToEntero
+
+ If EstatusAlmacen > 0 Then
+
+
+ If UsuarioActual.CveUsuario = CveUsuarioAutoriza Then
+
+ If EstatusAlmacen = 1 Then
+
+
+ DivAutoriza.Visible = True
+ DVAutorizarBotones.Visible = True
+ DVAutorizaInformacion.Visible = False
+
+ ElseIf EstatusAlmacen.Contiene(2, 3) Then
+ DivAutoriza.Visible = True
+
+ DVAutorizarBotones.Visible = False
+ DVAutorizaInformacion.Visible = True
+
+ LblEstatusAutorizo.Text = If(EstatusAlmacen = 2, "Aceptado", "Rechazado")
+ LblUsaurioAutorizo.Text = ObjInventarios.DtResultados.Rows(0)("NombreAutoriza").ToString()
+ LblFechaAutoriza.Text = ObjInventarios.DtResultados.Rows(0)("FechaAutorizacion").ToString().ToDate().ToString("dd/MM/yyyy")
+ Else
+
+ End If
+
+ ElseIf EstatusAlmacen.Contiene(2, 3) Then
+
+ DivAutoriza.Visible = True
+
+ DVAutorizarBotones.Visible = False
+ DVAutorizaInformacion.Visible = True
+
+ LblEstatusAutorizo.Text = If(EstatusAlmacen = 2, "Aceptado", "Rechazado")
+ LblUsaurioAutorizo.Text = ObjInventarios.DtResultados.Rows(0)("NombreAutoriza").ToString()
+ LblFechaAutoriza.Text = ObjInventarios.DtResultados.Rows(0)("FechaAutorizacion").ToString().ToDate().ToString("dd/MM/yyyy")
+ GvDatos.Columns(6).Visible = False ' se oculta la columna de eliminar
+
+ End If
+
+
+ Else
+ DivAutoriza.Visible = False
+ End If
+
+
+
+ Else
+ Alert("Ocurrió un error al obtener los datos del traspaso.", TipoMensaje.MsgError)
+ End If
+
+ UpAutorizaciones.Update()
+
+ End If
+ ObjInventarios.Dispose()
+ ObjClientes.Dispose()
+ MostarSerieColumn()
+ End Sub
+#End Region
+
+
+#Region " AGREGAR "
+ Private Sub BtnAgregarModal_Click(sender As Object, e As EventArgs) Handles LbAgregarPS.Click
+
+ If ChkDesdeContrato.Checked Then
+ GvDatos.Columns(3).Visible = False
+ ChkDesdeContrato.Checked = False
+ TempDT.Rows.Clear()
+ GvDatos.DataSource = TempDT
+ GvDatos.DataBind()
+ UpDatos.Update()
+ End If
+
+ TxtCantidad.Text = ""
+ DdlUM.SelectedIndex = 0
+ LbContratos.Text = ""
+ DdlProductoServicio.SelectedText = ""
+ DdlProductoServicio.SelectedValue = "-1"
+ UpPS.Update()
+ UpDatos.Update()
+ RegistraScript(String.Format("$('#{0}').modal();", "ModalPS"))
+ End Sub
+ Private Sub BtnAgregarPS_Click(sender As Object, e As EventArgs) Handles BtnAgregarPS.Click
+
+ If Not DdlProductoServicio.SelectedValue.ToEntero > 0 Then
+ Alert("Tiene que seleccionar un producto.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ If Not AddPSTemporal() Then
+ Exit Sub
+ End If
+
+ 'If ObjInventario.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, PendientePorSurtir:=1, Lote:=TxtLote.Text.ToString, FechaCaducidad:=TxtCaducidad.Text.ToString) >= TxtCantidad.Text.ToDouble Then
+
+ TxtCantidad.Text = ""
+ DdlProductoServicio.SelectedText = ""
+ DdlProductoServicio.SelectedValue = "-1"
+ DdlUM.SelectedIndex = 0
+ TxtCaducidad.Text = ""
+ TxtSerie.Text = ""
+ TxtLote.Text = ""
+
+ GvDatos.DataSource = TempDT
+ GvDatos.DataBind()
+
+
+ If ChkSeguirAgregando.Checked Then
+ TxtCantidad.Focus()
+ Else
+ RegistraScript("$('#ModalPS').hide();", "EscondeAgregar")
+ End If
+
+ UpPS.Update()
+ UpDatos.Update()
+
+ End Sub
+ Private Function AddPSTemporal() As Boolean
+ Dim Row As DataRow = TempDT.NewRow()
+ Dim Lote As String = "-1"
+ Dim FechaCaducidad As Date = MinFecha
+ Row("Cantidad") = TxtCantidad.Text.Trim.ToDouble
+ Row("CvePS") = DdlProductoServicio.SelectedValue.ToEntero
+ Row("CodigoPS") = DdlProductoServicio.SelectedText
+ Row("Precio") = 0
+ Row("CveUM") = DdlUM.SelectedValue.ToEntero
+ Row("UnidadMedida") = DdlUM.SelectedItem.Text
+ Row("Observaciones") = ""
+ Row("Lote") = "-1"
+ Row("Serie") = "-1"
+ Row("FechaCaducidad") = MinFecha
+
+ If divLote.Visible Then
+ Row("Lote") = TxtLote.Text
+ GvDatos.Columns(6).Visible = True
+ Lote = TxtLote.Text.ToString
+ End If
+
+
+ If divCaducidad.Visible Then
+ Row("FechaCaducidad") = TxtCaducidad.Text
+ GvDatos.Columns(7).Visible = True
+ FechaCaducidad = TxtCaducidad.Text.ToDate
+ RFVFechaCad.Enabled = True
+
+ Else
+ FechaCaducidad = MinFecha
+ End If
+
+
+ If Div4.Visible Then
+ Row("Serie") = TxtSerie.Text
+ GvDatos.Columns(5).Visible = True
+ End If
+
+
+
+ Dim ObjInventarios As New ClsInventarios
+ Dim Existencia As Double = ObjInventarios.GetExistenciasPS(DdlProductoServicio.SelectedValue.ToEntero, DdlUM.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), Lote:=Lote, FechaCaducidad:=FechaCaducidad)
+ ObjInventarios.Dispose()
+
+ If Existencia - TxtCantidad.Text.Trim.ToDouble - TempDT.SUM("Cantidad", $"CvePS = {DdlProductoServicio.SelectedValue.ToEntero} AND CveUM = {DdlUM.SelectedValue.ToEntero}") < 0 Then
+ If Existencia = 0 Then
+ Alert("No hay existencia del producto", TipoMensaje.MsgAdvertencia)
+ Else
+ Alert($"No hay existencia suficiente del producto. Solo hay en existencia: {Existencia - TempDT.SUM("Cantidad", $"CvePS = {DdlProductoServicio.SelectedValue.ToEntero} AND CveUM = {DdlUM.SelectedValue.ToEntero}")}", TipoMensaje.MsgAdvertencia)
+ End If
+ Return False
+ End If
+
+ TempDT.Rows.Add(Row)
+
+
+ Return True
+ End Function
+#End Region
+
+#Region " AGREGAR DESDE CONTRATO "
+ Private Sub ChkDesdeContrato_CheckedChanged(sender As Object, e As EventArgs) Handles ChkDesdeContrato.CheckedChanged
+
+ If ChkDesdeContrato.Checked Then
+ GvDatos.Columns(3).Visible = True
+ DdlContratos.SelectedIndex = 0
+ DdlClientes.SelectedIndex = 0
+
+ DdlDireccionEnvio.Items.Clear()
+ DivContratoDireccionEnvio.Visible = False
+
+ CargaExcel.Visible = False
+ GvContratos.DataBind()
+ UpContrato.Update()
+ RegistraScript(String.Format("$('#{0}').modal().show();", "ModalContrato"))
+ Else
+ LbContratos.Text = ""
+ End If
+
+ TempDT.Rows.Clear()
+ GvDatos.DataSource = TempDT
+ GvDatos.DataBind()
+ UpDatos.Update()
+
+ End Sub
+ Private Sub HLDesdeContrato_Click(sender As Object, e As EventArgs) Handles HLDesdeContrato.Click
+ DdlContratos.SelectedIndex = 0
+ DdlClientes.SelectedIndex = 0
+ DdlDireccionEnvio.Items.Clear()
+ DivContratoDireccionEnvio.Visible = False
+ UpContrato.Update()
+ RegistraScript(String.Format("$('#{0}').modal();", "ModalContrato"))
+ End Sub
+ Private Sub DdlClientes_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientes.SelectedIndexChanged
+ DdlContratos.Items.Clear()
+
+ Dim ObjContratos As New ClsContratos
+ If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
+ Dim CveEstatusVigente = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus = 1", Orderby:="CveContratoEstatus").ToEntero
+
+ DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($" CveCliente = {DdlClientes.SelectedValue.ToEntero} AND CveContratosEstatus = {CveEstatusVigente}")
+
+ 'If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, CveEstatusVigente) Then
+ ' DdlContratos.DataSource = ObjContratos.DtResultados
+ 'End If
+
+ End If
+ ObjContratos.Dispose()
+
+ DdlContratos.DataBind()
+ DdlContratos.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ GvContratos.DataBind()
+
+ Dim ObjClientes As New ClsClientes
+
+ DdlDireccionEnvio.Items.Clear()
+ If DdlClientes.SelectedValue <> "-1" And ObjClientes.DireccionEnvioGet(-1, DdlClientes.SelectedValue.ToEntero, -1) And ObjClientes.DtResultados.Rows.Count > 0 Then
+ DivContratoDireccionEnvio.Visible = True
+ DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
+ DdlDireccionEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlDireccionEnvio.DataBind()
+ Else
+ DivContratoDireccionEnvio.Visible = False
+ End If
+ ObjClientes.Dispose()
+
+ UpContrato.Update()
+ End Sub
+ Private Sub DdlContratos_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlContratos.SelectedIndexChanged
+ Dim ObjContratos As New ClsContratos
+ If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+ GvContratos.DataSource = ObjContratos.DtResultados
+ GvContratos.DataBind()
+ If ObjContratos.DtResultados.Rows.Count > 0 Then
+ CargaExcel.Visible = True
+ Else
+ CargaExcel.Visible = False
+ End If
+ End If
+ ObjContratos.Dispose()
+ UpContrato.Update()
+ End Sub
+ Private Sub BtnAgregarContrato_Click(sender As Object, e As EventArgs) Handles BtnAgregarContrato.Click
+
+ TempDT.Rows.Clear()
+
+ Dim ObjInventarios As New ClsInventarios
+ Dim Existencia = 0.0
+ Dim TieneErrorExistencia = False
+ Dim MensajeExistencia As New StringBuilder
+ MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos: ")
+ Dim CodigoPS As String = ""
+
+ For Each row As GridViewRow In GvContratos.Rows
+ If row.FCTextBox("TxtCantContrato").Text.Trim.ToDouble > 0 Then
+ Dim RowTemp As DataRow = TempDT.NewRow()
+ RowTemp("Cantidad") = row.FCTextBox("TxtCantContrato").Text.Trim.ToDouble
+ RowTemp("CvePS") = row.DataKey("CvePS").ToEntero
+ RowTemp("CodigoPS") = row.DataKey("CodigoPS")
+ RowTemp("Precio") = row.DataKey("PU")
+ RowTemp("CveUM") = row.DataKey("CveUM").ToEntero
+ RowTemp("UnidadMedida") = row.DataKey("UM")
+ RowTemp("Observaciones") = ""
+ RowTemp("Lote") = "-1"
+ RowTemp("FechaCaducidad") = MinFecha
+ 'RowTemp("CveDireccionEnvio") = DdlDireccionEnvio.SelectedValue
+ 'RowTemp("DireccionEnvio") = IIf(DdlDireccionEnvio.SelectedValue = "-1", "", DdlDireccionEnvio.SelectedItem)
+ RowTemp("CveContratoDetalle") = row.DataKey("CveContratoDetalle")
+ CodigoPS = RowTemp("CodigoPS").ToString
+
+
+ Existencia = ObjInventarios.GetExistenciasPS(row.DataKey("CvePS").ToEntero, row.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"))
+ If Existencia - row.FCTextBox("TxtCantContrato").Text.Trim.ToDouble - TempDT.SUM("Cantidad", $"CvePS = {row.DataKey("CvePS").ToEntero} AND CveUM = {row.DataKey("CveUM").ToEntero}") < 0 Then
+ MensajeExistencia.AppendFormat(" - {0}. Existencia: {1}", CodigoPS, Existencia)
+ TieneErrorExistencia = True
+ Continue For
+ End If
+
+ TempDT.Rows.Add(RowTemp)
+ End If
+ Next
+
+ If TieneErrorExistencia Then
+ Alert(MensajeExistencia.ToString, TipoMensaje.MsgAdvertencia)
+ ObjInventarios.Dispose()
+ Exit Sub
+ Else
+ CveDireccionEnvio = DdlDireccionEnvio.SelectedValue.ToEntero
+ End If
+
+ ObjInventarios.Dispose()
+ GvDatos.DataSource = TempDT
+ GvDatos.DataBind()
+ CargaTextoContrato()
+ RegistraScript(String.Format("$('#{0}').modal().hide();", "ModalContrato"))
+
+ UpDatos.Update()
+
+ End Sub
+#End Region
+
+
+#Region " GV DATOS "
+ Private Sub GvDatos_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
+ EliminarRow(e.RowIndex)
+ End Sub
+ Private Sub EliminarRow(RowIndex As Integer)
+ TempDT.Rows(RowIndex).Delete()
+ TempDT.AcceptChanges()
+ GvDatos.DataSource = TempDT
+ GvDatos.DataBind()
+ UpDatos.Update()
+ End Sub
+
+
+#End Region
+
+
+#Region " GUARDAR "
+ Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
+
+ If DdlAlmacenOrigen.SelectedValue = DdlAlmacenDestino.SelectedValue Then
+ Alert("Los almacenes de origen y destino no pueden ser el mismo. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+ If Not GvDatos.Rows.Count > 0 Then
+ Alert("No se ha seleccionado ningún Producto para trasladar.", TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+
+ Dim CveUsuarioAutoriza As Integer = -1
+ Dim EstatusAlmacen As Integer = 2
+ 'VERIFICA EXISTENCIAS
+ Dim ObjInventarios As New ClsInventarios
+ Dim Existencia As Decimal = 0
+ Dim TieneErrorExistencia As Boolean = False
+ Dim MensajeExistencia As New StringBuilder
+ MensajeExistencia.Append("No hay la existencia suficiente de los siguientes productos: ")
+ Dim CodigoPS As String = ""
+
+
+
+ 'Aqui poner permiso para poder evitar permiso de traslado
+ If ObjInventarios.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+
+ If ObjInventarios.DtResultados.Rows.Count > 0 Then
+
+ CveUsuarioAutoriza = If(ObjInventarios.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenDestino.SelectedValue}")(0)("CveUsuarioAutoriza").ToString.ToEntero > 0, ObjInventarios.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenDestino.SelectedValue}")(0)("CveUsuarioAutoriza").ToString.ToEntero, -1)
+ If CveUsuarioAutoriza > 0 Then
+ EstatusAlmacen = 1
+ End If
+
+ Else
+ CveUsuarioAutoriza = -1
+ End If
+ End If
+
+
+
+
+ For Each row As GridViewRow In GvDatos.Rows
+ CodigoPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=row.DataKey("CvePS").ToEntero).FiltroPrimeroValor("PSCodigo", "")
+ Existencia = ObjInventarios.GetExistenciasPS(row.DataKey("CvePS").ToEntero, row.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"), Lote:=row.DataKey("Lote").ToString, FechaCaducidad:=row.DataKey("FechaCaducidad").ToString.ToDate)
+ If Existencia - TempDT.SUM("Cantidad", $"CvePS = {row.DataKey("CvePS").ToEntero} AND CveUM = {row.DataKey("CveUM").ToEntero}") < 0 Then
+ MensajeExistencia.AppendFormat(" - {0}. Existencia: {1}", CodigoPS, Existencia)
+ TieneErrorExistencia = True
+ End If
+ Next
+
+ If TieneErrorExistencia Then
+ Alert(MensajeExistencia.ToString, TipoMensaje.MsgAdvertencia)
+ Exit Sub
+ End If
+
+
+ ObjInventarios.IniciaTransacSQL()
+ Dim TieneError As Boolean = False
+
+ Dim CveContrato As Integer = 0
+ Dim Guia As String = ""
+ If TxtGuia.Text <> "" Then Guia = TxtGuia.Text Else Guia = ""
+ If DdlContratos.SelectedValue.ToEntero > 0 Then CveContrato = DdlContratos.SelectedValue.ToEntero Else CveContrato = -1
+
+ Dim Estatus As Integer = -1
+
+ If UsuarioActual.Empresa.Funcionalidad(105) <> "" Then
+ Estatus = 1
+ Else
+ Estatus = 3
+ End If
+
+ Dim Folio As Integer = ObjInventarios.AddTrasladoSolicitud(TxtObservaciones.Text.Trim, DdlAlmacenOrigen.SelectedValue.ToEntero, DdlAlmacenDestino.SelectedValue.ToEntero, Estatus, -1, TxtFecha.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveContrato:=CveContrato, Guia:=Guia, CvePaqueteria:=DdlPaqueteria.SelectedValue.ToEntero, CveDireccionEnvio:=CveDireccionEnvio, EstatusAlmacen:=EstatusAlmacen)
+
+ If Folio > 0 Then
+ CveTraspasoSolicitud = ObjInventarios.CveTraspasoSolicitud
+ Else
+ TieneError = True
+ End If
+
+ If Not TieneError Then
+ For Each Row As GridViewRow In GvDatos.Rows
+ Dim CveUM As Integer = Row.DataKey("CveUM").ToEntero
+ Dim CvePS As Integer = Row.DataKey("CvePS").ToEntero
+ Dim Cantidad As Integer = Row.DataKey("Cantidad").ToEntero
+ Dim Precio As Decimal = Row.DataKey("Precio").ToDecimal
+ Dim Observaciones As String = Row.DataKey("Observaciones")
+ Dim CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero
+ Dim Serie As String = Row.DataKey("Serie")
+ Dim Lote As String = Row.DataKey("Lote")
+ Dim FechaCaducidad As Date = Row.DataKey("FechaCaducidad").ToDate
+
+ If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, CveUM, CvePS, Precio, Observaciones, CveContratoDetalle, Serie, Lote, FechaCaducidad) Then
+ TieneError = True
+ Exit For
+ End If
+ Next
+ End If
+
+
+ If TieneError = False Then
+ ObjInventarios.Commit()
+ Alert($"El Traspaso se guardó correctamente con el folio #: {Folio}.", TipoMensaje.MsgInformacion, $"document.location.href=""/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}""")
+
+ If CveUsuarioAutoriza > 0 Then
+ MandaCorreoAutorizacion(Folio, CveTraspasoSolicitud, CveUsuarioAutoriza)
+ End If
+
+ Else
+ ObjInventarios.RollBack()
+ Alert("Ocurrió un Error al guardar el traspaso.", TipoMensaje.MsgError)
+ End If
+ ObjInventarios.Dispose()
+
+ End Sub
+#End Region
+
+
+#Region " ELIMINAR - CANCELAR "
+ Private Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
+ Dim ObjInventarios As New ClsInventarios
+ If ObjInventarios.RemoveTrasladoSolicitud(CveTraspasoSolicitud, UsuarioActual.CveEmpresa) Then
+ Alert("Se eliminó correctamente el Traspaso.", TipoMensaje.MsgInformacion, "document.location.href=""/Inventarios/TrasladoSolicitud.aspx""")
+ End If
+ ObjInventarios.Dispose()
+ End Sub
+ Protected Sub LBCancelarTraslado_Click(sender As Object, e As EventArgs)
+ Dim ObjInventarios As New ClsInventarios
+
+ If ObjInventarios.UpdateTraspasoSolicitudEstatus(CveTraspasoSolicitud, 2) Then
+ LBCancelarTraslado.Visible = False
+ Alert("Se canceló correctamente la solicitud de traslado.", TipoMensaje.MsgInformacion)
+ End If
+
+ ObjInventarios.Dispose()
+ End Sub
+#End Region
+
+
+#Region " IMPRESION "
+ Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles LbImprimir.Click
+ GenerarPDF()
+ End Sub
+ Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
+ GenerarPDF("Excel")
+ End Sub
+ Private Sub GenerarPDF(Optional Formato As String = "PDF")
+
+
+ Dim ObjInventarios As New ClsInventarios
+ Dim ObjClientes As New ClsClientes
+
+
+ Dim CveTraspasoSolicitud As Integer = Request("CveTraspasoSolicitud").ToEntero
+ If ObjInventarios.AddTrasladoSolicitudGet(CveTraspasoSolicitud, UsuarioActual.CveEmpresa) Then
+ If ObjInventarios.DtResultados.Rows.Count > 0 Then
+ Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+ Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+ Dim dt As DataTable = ObjInventarios.DtResultados
+
+ Dim DTCliente As New DataTable
+ Dim CveCliente As Integer = 0
+ Dim CveDireccionEnvio As Integer = 0
+ Dim ClienteNombre = "", EnvioContacto = "", EnvioDireccion = "", EnvioColonia = "", EnvioCiudad = "", EnvioEstado = "", ClientePais = "", EnvioCP = "", Contrato = "",
+ Paqueteria = "", NumContrato = ""
+
+
+
+ Dim CveContrato As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CveContrato").ToString.ToEntero
+ If CveContrato > 0 Then
+ Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato}")
+ NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} ")
+ CveCliente = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero
+ CveDireccionEnvio = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero
+
+
+ If CveCliente > 0 Then
+
+ DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}")
+
+ 'Si el traslado tiene cvedireccionenvio trae sus datos
+ If Me.CveDireccionEnvio > 0 And ObjClientes.DireccionEnvioGet(Me.CveDireccionEnvio, DdlClientes.SelectedValue.ToEntero, -1) And ObjClientes.DtResultados.Rows.Count > 0 Then
+
+ ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre")
+ 'ClientePais = DTCliente.FiltroPrimeroValor("PAIS")
+ EnvioContacto = ObjClientes.DtResultados.Rows(0)("EnvioContacto").ToString '??
+
+ EnvioDireccion = ObjClientes.DtResultados.Rows(0)("EnvioDireccion").ToString
+ EnvioColonia = ObjClientes.DtResultados.Rows(0)("EnvioColonia").ToString
+ EnvioCiudad = ObjClientes.DtResultados.Rows(0)("EnvioCiudad").ToString
+ EnvioCP = ObjClientes.DtResultados.Rows(0)("EnvioCP").ToString
+ EnvioEstado = ObjClientes.DtResultados.Rows(0)("EnvioEstado").ToString
+ Else
+ '25/04/2018 - Si el trasladosolicitud no tiene cvedireccion envio asignada, va por la el cliente
+ Dim ObjVentas As New ClsClientes
+ If ObjVentas.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then
+ If ObjVentas.DtResultados.Rows.Count > 0 Then
+ ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre")
+ ClientePais = DTCliente.FiltroPrimeroValor("PAIS")
+ EnvioContacto = ObjVentas.DtResultados.Rows(0)("EnvioContacto").ToString
+ EnvioDireccion = ObjVentas.DtResultados.Rows(0)("EnvioDireccion").ToString
+ EnvioColonia = ObjVentas.DtResultados.Rows(0)("EnvioColonia").ToString
+ EnvioCiudad = ObjVentas.DtResultados.Rows(0)("EnvioCiudad").ToString
+ EnvioCP = ObjVentas.DtResultados.Rows(0)("EnvioCP").ToString
+ EnvioEstado = ObjVentas.DtResultados.Rows(0)("EnvioEstado").ToString
+ Else
+ ClienteNombre = DTCliente.FiltroPrimeroValor("Nombre")
+ EnvioContacto = DTCliente.FiltroPrimeroValor("Contacto")
+ EnvioDireccion = DTCliente.FiltroPrimeroValor("Direccion")
+ EnvioColonia = DTCliente.FiltroPrimeroValor("Colonia")
+ EnvioCiudad = DTCliente.FiltroPrimeroValor("Ciudad")
+ EnvioEstado = DTCliente.FiltroPrimeroValor("Estado")
+ ClientePais = DTCliente.FiltroPrimeroValor("PAIS")
+ EnvioCP = DTCliente.FiltroPrimeroValor("CP")
+ End If
+ End If
+ ObjVentas.Dispose()
+ End If
+ End If
+ End If
+
+
+ Dim params As New List(Of ReportParameter)
+ params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+ params.Add(New ReportParameter("FechaImpresion", NowADS().ToShortDateString))
+ params.Add(New ReportParameter("Fecha", TxtFecha.Text.Substring(0, 10)))
+ params.Add(New ReportParameter("AlmacenOrigen", DdlAlmacenOrigen.SelectedItem.Text))
+ params.Add(New ReportParameter("AlmacenDestino", DdlAlmacenDestino.SelectedItem.Text))
+ params.Add(New ReportParameter("Guia", TxtGuia.Text))
+ params.Add(New ReportParameter("UsuarioSolicito", LblUsuario.Text))
+ params.Add(New ReportParameter("Folio", LbFolio.Text))
+ params.Add(New ReportParameter("Observaciones", TxtObservaciones.Text))
+ params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+ 'NUEVOS
+ params.Add(New ReportParameter("ClienteNombre", ClienteNombre))
+ params.Add(New ReportParameter("EnvioContacto", EnvioContacto))
+ params.Add(New ReportParameter("EnvioDireccion", EnvioDireccion))
+ params.Add(New ReportParameter("EnvioColonia", EnvioColonia))
+ params.Add(New ReportParameter("EnvioCiudad", EnvioCiudad))
+ params.Add(New ReportParameter("EnvioEstado", EnvioEstado))
+ params.Add(New ReportParameter("ClientePais", ClientePais))
+ params.Add(New ReportParameter("EnvioCP", EnvioCP))
+ params.Add(New ReportParameter("Contrato", Contrato))
+ params.Add(New ReportParameter("Paqueteria", DdlPaqueteria.SelectedItem.Text))
+ params.Add(New ReportParameter("NumeroContrato", NumContrato))
+ params.Add(New ReportParameter("FechaEnvio", TxtFecha.Text.Substring(0, 10)))
+ params.Add(New ReportParameter("TieneSerie", GvDatos.Columns(5).Visible.ToString()))
+
+ Dim RutaFormato As String = String.Format("Empresas\{0}\Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.CveEmpresa)
+ Dim RutaFormatoDefault As String = String.Format("Empresas\Grales\Formatos\RepTrasladoSolicitud.rdlc")
+
+ Dim Archivo As New System.IO.FileInfo(RutaFormato)
+
+
+ params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
+
+ If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 1 Then
+ ImprimirPDF(String.Format("{0}Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.Empresa.Ruta), dt, params, String.Format("Solicitud de Traslado - {0}", NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
+ Else
+ ImprimirPDF(RutaFormatoDefault, dt, params, String.Format("Solicitud de Traslado - {0}", NowADS().ToDateTime.ToShortDateString), Formato:=Formato)
+ End If
+
+ Else
+ Alert("Ocurrió un error al obtener los datos del traspaso.", TipoMensaje.MsgError)
+ End If
+
+ End If
+ ObjInventarios.Dispose()
+ ObjClientes.Dispose()
+
+ End Sub
+
+#End Region
+
+
+#Region "Carga Excel"
+ Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
+ If TxtExcel.getfiles().Archivos.Count > 0 Then
+ Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
+ Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.path
+ Dim Tipo As String = If(file.Extension.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
+ CargarArchivo(Directorio, file.filename, Tipo)
+ Else
+ Alert("No existe el archivo.Favor de subir un archivo csv o excel a la plataforma", TipoMensaje.MsgError)
+ End If
+ End Sub
+
+
+ Private Sub CargarArchivo(Ruta As String, FileName As String, Tipo As String)
+ Dim dt As New DataTable
+ Dim Conexion As Odbc.OdbcConnection = Nothing
+ Dim ErrorArchivo = False
+ Dim ErrorExcel = False
+ Dim strConnString As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" + Ruta + FileName + ";Extended Properties=Excel 8.0;"
+ Dim objDbFactory As Common.DbProviderFactory = Common.DbProviderFactories.GetFactory("System.Data.OleDb")
+ Dim objDbAdapter As Common.DbDataAdapter = objDbFactory.CreateDataAdapter()
+ Dim objDbConnection As Common.DbConnection = objDbFactory.CreateConnection()
+ objDbConnection.ConnectionString = strConnString
+ objDbConnection.Open()
+ Dim objSheetNames As DataTable = objDbConnection.GetSchema("Tables")
+ Dim HojaExcel As String = objSheetNames.FiltroPrimeroValor("TABLE_NAME")
+ Try
+ Select Case Tipo
+ Case "CSV"
+ Conexion = New Odbc.OdbcConnection("Driver={Microsoft Access Text Driver (*.txt, *.csv)};Dbq=" + Ruta + ";Extensions=asc,csv,tab,txt;")
+ Conexion.Open()
+ Dim cmd = Conexion.CreateCommand()
+ cmd.CommandType = CommandType.Text
+ cmd.CommandText = $"SELECT * FROM [{FileName}]"
+ Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
+ DataAdapter.Fill(dt)
+ Case "EXCEL"
+ Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";")
+ Conexion.Open()
+ Dim cmd = Conexion.CreateCommand()
+ cmd.CommandType = CommandType.Text
+ cmd.CommandText = $"SELECT * FROM [{HojaExcel}]"
+ Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd)
+ DataAdapter.Fill(dt)
+ Case Else
+ Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError)
+ Exit Sub
+ End Select
+ Catch ex As Exception
+ ErrorArchivo = True
+ OnError("Ocurrio un error al leer el archivo " & ex.Message, ex)
+ End Try
+ Conexion.Close()
+
+
+ Dim DTContratosTemporal As New DataTable
+ Dim ObjContratos As New ClsContratos
+ If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+ DTContratosTemporal = ObjContratos.DtResultados
+ End If
+ ObjContratos.Dispose()
+
+ If DTContratosTemporal IsNot Nothing Then
+ If Not ErrorArchivo Then
+ For Each Row As DataRow In dt.FiltraParametros("Cantidad > 0").Rows
+ Dim Cantidad As String = Row("Cantidad").ToString
+ Dim Codigo As String = Row("Codigo").ToString.Trim
+ Dim Observaciones As String = Row("Observaciones").ToString
+ Dim CodigoPS As String = ""
+ Dim CodigoContrato As String = ""
+
+ CodigoPS = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"Codigo = '{Codigo}'")
+
+ CodigoContrato = DTContratosTemporal.FiltroPrimeroValor("Codigo", $"Codigo = '{Codigo}'").ToString
+
+ If CodigoContrato <> "" Then
+ Dim RowTemp As DataRow = TempDT.NewRow()
+ RowTemp("Cantidad") = Cantidad
+ RowTemp("CvePS") = GlobalDTPS(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString.ToEntero
+ RowTemp("CodigoPS") = CodigoPS
+ RowTemp("Observaciones") = Observaciones
+
+ Dim ObjInventarios As New ClsInventarios
+ Dim Existencia As Double = ObjInventarios.GetExistenciasPS(RowTemp("CvePS").ToString.ToEntero, RowTemp("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"))
+ ObjInventarios.Dispose()
+
+ If Existencia - RowTemp("Cantidad").ToString.ToDouble - TempDT.SUM("Cantidad", $"CvePS = {RowTemp("CvePS").ToString.ToEntero} AND CveUM = {RowTemp("CveUM").ToString.ToEntero}") < 0 Then
+ If Existencia = 0 Then
+ Alert($"No hay existencia del producto: {CodigoPS}", TipoMensaje.MsgAdvertencia)
+ Else
+ Alert($"No hay existencia suficiente del producto: {CodigoPS}, Solo hay en existencia: {Existencia - TempDT.SUM("Cantidad", $"CvePS = {RowTemp("CvePS").ToString.ToEntero} AND CveUM = {RowTemp("CveUM").ToString.ToEntero}")}", TipoMensaje.MsgAdvertencia)
+ End If
+ End If
+ TempDT.Rows.Add(RowTemp)
+ Else
+ Alert($"El Código: ""{CodigoPS}"", no se encuentra en el contrato.", TipoMensaje.MsgAdvertencia)
+ Exit For
+ End If
+
+ Next
+
+ GvDatos.DataSource = TempDT
+ GvDatos.DataBind()
+ CargaTextoContrato()
+ UpDatos.Update()
+ RegistraScript(String.Format("$('#{0}').modal().hide();", "ModalContrato"))
+
+ End If
+ Else
+ Alert($"Ha ocurrido un error al cargar el contrato.", TipoMensaje.MsgError)
+
+ End If
+
+
+ End Sub
+
+
+ Public Sub CargaTextoContrato()
+ If DdlContratos.SelectedValue.ToEntero > 0 Then
+ LbContratos.Text = DdlContratos.SelectedItem.Text
+ Else
+ LbContratos.Text = ""
+ End If
+ UpDatos.Update()
+ End Sub
+
+ Private Sub LbContratos_Click(sender As Object, e As EventArgs) Handles LbContratos.Click
+ RegistraScript(String.Format("$('#{0}').modal().show();", "ModalContrato"))
+ End Sub
+
+ Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
+ Dim Directorio As String = ""
+ Directorio = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\SolicitudTraslado.xlsx"
+ Dim Archivo As New IO.FileInfo(Directorio)
+ If Archivo.Exists Then
+ Response.Clear()
+ Response.ClearHeaders()
+ Response.ClearContent()
+ Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name)
+ Response.AddHeader("Content-Length", Archivo.Length.ToString())
+ Response.ContentType = "text/plain"
+ Response.Flush()
+ Response.TransmitFile(Archivo.FullName)
+ Response.End()
+ End If
+ End Sub
+
+
+#End Region
+
+
+ Protected Sub DdlProductoServicio_selectedindexchange(sender As Object, e As EventArgs)
+ If DdlProductoServicio.SelectedValue.ToEntero > 0 Then
+ Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlProductoServicio.SelectedValue.ToEntero).FiltroPrimero("")
+ DdlUM.Items.Clear()
+ If UsuarioActual.Empresa.UsaInventarios Then
+ DdlUM.DataSource = GlobalDTProductosServiciosEquivalencias(DdlProductoServicio.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa)
+ Else
+ DdlUM.DataSource = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa)
+ End If
+ DdlUM.Items.Insert(0, New ListItem("Seleccione", "-1"))
+ DdlUM.SelectedValue = "-1"
+ DdlUM.DataBind()
+ DdlUM.SelectedValueExist(drPS("CveUnidadMedida").ToString)
+ AplicaSerie = drPS("AplicaSerie").ToString = "True"
+ Div4.Visible = AplicaSerie
+
+ AplicaLote = drPS("AplicaLote").ToString = "True"
+ divLote.Visible = AplicaLote
+ RFVLote.Enabled = AplicaLote
+
+ AplicaCaducidad = drPS("AplicaCaducidad").ToString = "True"
+ divCaducidad.Visible = AplicaCaducidad
+ divCaducidad2.Visible = AplicaCaducidad
+ RFVFechaCad.Enabled = AplicaCaducidad
+
+ End If
+ UpPS.Update()
+ UpDatos.Update()
+ End Sub
+
+
+ Protected Sub LnkAceptarTraslado_Click(sender As Object, e As EventArgs)
+
+ Dim ObjInven As New ClsInventarios
+ If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 2, UsuarioActual.CveUsuario, NowADS()) Then
+ Alert("Autorizado correctamente.")
+ End If
+ ObjInven.Dispose()
+
+ CargaDatos()
+
+ End Sub
+
+ Protected Sub LnkRechazarTraslado_Click(sender As Object, e As EventArgs)
+
+ TxtMotivoRechazo.Text = ""
+ UpModalRechazo.Update()
+ RegistraScript("$('#ModalRechazarTraslado').modal();")
+
+ End Sub
+
+
+ Protected Sub BtnModalRechazo_Click(sender As Object, e As EventArgs)
+ RechazarTraslado()
+ End Sub
+
+ Private Sub RechazarTraslado()
+
+ Dim ErrorProceso As Boolean = False
+
+ If TxtMotivoRechazo.Text.Trim.Length.ToEntero = 0 Then
+ Alert("El motivo de rechazo es necesario", TipoMensaje.MsgAdvertencia)
+ End If
+
+
+ Dim ObjInven As New ClsInventarios
+
+ If ObjInven.UpdateTrasladoAutorizar(CveTraspasoSolicitud, UsuarioActual.CveEmpresa, 3, UsuarioActual.CveUsuario, NowADS()) Then
+ Alert("Rechazado correctamente.")
+ ErrorProceso = False
+ Else
+ ErrorProceso = True
+ End If
+
+ ObjInven.Dispose()
+
+ If Not ErrorProceso Then
+ MandaCorreoRechazo(LbFolio.Text.ToEntero, CveTraspasoSolicitud, CveUsuarioSolicita, TxtMotivoRechazo.Text)
+ CargaDatos()
+ RegistraScript("$('#ModalRechazarTraslado').modal('hide');")
+ End If
+
+ End Sub
+
+
+ Private Sub MandaCorreoRechazo(Folio As Integer, CveTraspasoSolicitud As Integer, CveUsuarioSolicita As Integer, MotivoRechazo As String)
+
+ Dim SB As New StringBuilder
+
+ Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioSolicita)(0)("Correo").ToString.Trim
+
+
+ If CorreoDestino.Length > 0 Then
+
+
+ SB.AppendLine($"
Se ha rechazado la solicitud de traspaso con folio {Folio}, el traspaso fue rechazado por el usuario {UsuarioActual.Nombre }, el traspaso fue rechazado por el motivo: {MotivoRechazo}
")
+
+
+
+ SB.AppendLine(" ")
+ SB.AppendLine("
")
+ SB.AppendLine("
Cantidad
U.M.
Producto
Observaciones
")
+
+ For Each GvRow As GridViewRow In GvDatos.Rows
+
+ If GvRow.RowType = DataControlRowType.DataRow Then
+ SB.AppendLine($"
{GvRow.DataKey("Cantidad")}
{GvRow.DataKey("UnidadMedida")}
{GvRow.DataKey("CodigoPS")}
{GvRow.DataKey("Observaciones")}
")
+ End If
+
+ Next
+ SB.AppendLine("
")
+ SB.AppendLine(" ")
+
+ SB.AppendLine($"Ir a solicitud de traspaso folio {Folio}")
+
+
+
+ Dim MandaCorre As New ClsSisMail
+ MandaCorre.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoDestino, $"Rechazo de Autorización de traspaso #{Folio}", SB.ToString, Displayname:="SIG Notificaciones: Rechazo de Traspaso")
+
+ End If
+
+ End Sub
+
+
+ Private Sub MandaCorreoAutorizacion(Folio As Integer, CveTraspasoSolicitud As Integer, CveUsuarioAutoriza As Integer)
+
+ Dim SB As New StringBuilder
+
+ Dim CorreoDestino As String = GlobalDTUsuarios(CveUsuarioAutoriza)(0)("Correo").ToString.Trim
+
+
+ If CorreoDestino.Length > 0 Then
+
+
+
+ SB.AppendLine($"
Se ha registrado una solicitud de traspaso de {DdlAlmacenOrigen.SelectedItem.Text} a {DdlAlmacenDestino.SelectedItem.Text}, con los siguientes productos.
")
+
+
+
+ SB.AppendLine(" ")
+ SB.AppendLine("
")
+ SB.AppendLine("
Cantidad
U.M.
Producto
Observaciones
")
+
+ For Each GvRow As GridViewRow In GvDatos.Rows
+
+ If GvRow.RowType = DataControlRowType.DataRow Then
+ SB.AppendLine($"
{GvRow.DataKey("Cantidad")}
{GvRow.DataKey("UnidadMedida")}
{GvRow.DataKey("CodigoPS")}
{GvRow.DataKey("Observaciones")}
")
+ End If
+
+ Next
+ SB.AppendLine("
")
+ SB.AppendLine(" ")
+ SB.AppendLine($"Ir a solicitud de traspaso para autorización")
+
+
+
+ Dim MandaCorre As New ClsSisMail
+ MandaCorre.SendMail(ClsPaginas.EmpresaNotificaciones, CorreoDestino, $"Solicitud de Autorización de traspaso #{Folio}", SB.ToString, Displayname:="SIG Notificaciones: Solicitud de Traspaso")
+
+ End If
+
+ End Sub
+
+ Public Sub MostarSerieColumn()
+ Dim Mostrar As Boolean = False
+ For Each row As GridViewRow In GvDatos.Rows
+ Dim Serie As String = row.DataKey("Serie").ToString
+ If Serie IsNot "-1" And Serie IsNot "" Then
+ Mostrar = True
+ Exit For
+ End If
+ Next
+ GvDatos.Columns(5).Visible = Mostrar
+ End Sub
+
+ Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ If e.Row.FCLiteral("LtlSerie").ToString = "-1" Then
+ e.Row.FCLiteral("LtlSerie").Text = ""
+ End If
+
+ If e.Row.FCLiteral("LtlLote").ToString = "-1" Then
+ e.Row.FCLiteral("LtlLote").Text = ""
+ End If
+
+ If e.Row.FCLiteral("LtlFechaCaducidad").ToString.ToDate = MinFecha Then
+ e.Row.FCLiteral("LtlFechaCaducidad").Text = ""
+ End If
+
+ End If
+
+
+ End Sub
+End Class
+
diff --git a/Nomina/EventoDetalle.aspx.vb b/Nomina/EventoDetalle.aspx.vb
index 8fbbd883d..20003cb4b 100644
--- a/Nomina/EventoDetalle.aspx.vb
+++ b/Nomina/EventoDetalle.aspx.vb
@@ -954,7 +954,7 @@ Partial Class OI_EventoDetalle
' End If
'End If
- Dim DT As DataTable = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1 {1}", tCveEmpresa, FiltroAD), "Rol ASC")
+ Dim DT As DataTable = GlobalDTUsuarios(-1, tCveEmpresa).FiltraParametros(String.Format(" Estatus = 1 {0}", FiltroAD), "Rol ASC")
GVUsuarios.DataSource = AgregaGrupos(DT)
DT.Dispose()
@@ -1126,7 +1126,7 @@ Partial Class OI_EventoDetalle
'UsuarioPara = DdlUsuarioPara.SelectedItem.Text
- Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara).FiltroPrimero("")
+ Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("")
If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
Dim RutaGuardar = ""
RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta)
diff --git a/Nomina/RepInversiondeNomina.aspx.cs b/Nomina/RepInversiondeNomina.aspx.cs
index 77656795d..e58b249a5 100644
--- a/Nomina/RepInversiondeNomina.aspx.cs
+++ b/Nomina/RepInversiondeNomina.aspx.cs
@@ -93,7 +93,7 @@ public partial class Nomina_RepInversiondeNomina : ClsPaginas
if (!IsPostBack)
{
- DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1);
+ DdlSubProyecto.DataSource = get_GlobalDTSubProyectos( UsuarioActual.CveEmpresa );
DdlSubProyecto.DataBind();
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlDepartamento.DataSource =get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' " );
diff --git a/OC/CatEstatus.aspx.vb b/OC/CatEstatus.aspx.vb
index 065901693..7573f2dbf 100644
--- a/OC/CatEstatus.aspx.vb
+++ b/OC/CatEstatus.aspx.vb
@@ -627,7 +627,7 @@ Partial Class OC_CatEstatus
'Guardado masivo cuando sea SubProyecto "Todos"
If CveSubProyecto = -2 Then
- For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows
+ For Each dr As DataRow In GlobalDTSubProyectos(UsuarioActual.CveEmpresa).Rows
If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, dr("CveSubProyecto").ToString.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
HuboErrores = True
Exit For
@@ -693,7 +693,7 @@ Partial Class OC_CatEstatus
'Guardado masivo cuando sea SubProyecto "Todos"
If CveSubProyecto = -2 Then
- For Each dr As DataRow In GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).Rows
+ For Each dr As DataRow In GlobalDTSubProyectos(UsuarioActual.CveEmpresa).Rows
If Not objEstatusOC.AddEstatusUsuarios(CveEstatus, dr("CveSubProyecto").ToString.ToEntero, Row.DataKey("CveUsuario").ToString.ToEntero, True, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
HuboErrores = True
Exit For
diff --git a/OC/OC.aspx b/OC/OC.aspx
index ad7107f52..dd6c99ce1 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -1,4 +1,5 @@
-<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="OC.aspx.vb" EnableEventValidation="false" Inherits="OC_OC" %>
+<%@ Import Namespace="Extensiones" %>
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="OC.aspx.vb" EnableEventValidation="false" Inherits="OC_OC" %>
@@ -191,9 +192,11 @@
-
- Datos de Orden
-
+
+
+ Datos de Orden
+
+
@@ -201,22 +204,26 @@
<%--linea 1--%>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
<%--linea 2--%>
@@ -439,7 +446,15 @@
-
+
+
+
Sucursal:
+
+
+
+
+
+
@@ -984,7 +999,7 @@
-
+
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 934be7223..fe1dae599 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -84,6 +84,14 @@ Partial Class OC_OC
ViewState("Folio") = value
End Set
End Property
+ Private Property SerieFolio As String
+ Get
+ SerieFolio = ViewState("SerieFolio").ToString
+ End Get
+ Set(value As String)
+ ViewState("SerieFolio") = value
+ End Set
+ End Property
Private Property CveUsuario As Integer
Get
CveUsuario = ViewState("CveUsuario").ToString.ToEntero
@@ -717,6 +725,14 @@ Partial Class OC_OC
TipoOS = True
End If
+ 'temporal
+ If UsuarioActual.CveEmpresa = 189 Then
+ 'GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC)
+ DdlSubProyectoGral.DataSource = GlobalDTOCEstatusUsuarios(CveEmpresaActual, UsuarioActual.CveUsuario, TipoOC) 'GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "SubProyecto")
+ DdlSubProyectoGral.DataBind()
+ DdlSubProyectoGral.SelectedValueExist(UsuarioActual.CveSubProyecto)
+ End If
+
BtnGeneraContrato.Visible = True : CargaClientesContrato()
CargaEstatusInicialFinal()
@@ -848,7 +864,7 @@ Partial Class OC_OC
'DdlSubProyectoEntrega.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyectoContrato.Items.Clear()
- DdlSubProyectoContrato.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos(-1, -1, CveEmpresaActual, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+ DdlSubProyectoContrato.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, CveEmpresaActual, -1, 1), GlobalDTSubProyectos( CveEmpresaActual )) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyectoContrato.DataBind()
DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -933,9 +949,9 @@ Partial Class OC_OC
ChkEntregaDirecta.Checked = False
End If
- If UsuarioActual.CveEmpresa.Contiene(83) AndAlso CveOrdenCompra > 0 AndAlso Request("Conta") IsNot Nothing AndAlso Request("Conta").ToEntero = 1 Then
+ If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso CveOrdenCompra > 0 AndAlso Request("Conta") IsNot Nothing AndAlso Request("Conta").ToEntero = 1 Then
If GeneraPrePolizaPresupuesto(CveOrdenCompra, Nothing) Then
- Alert("PrePoliza de Presupuesto Generada Correctamente")
+ Alert("PrePoliza de Presupuesto Generada Correctamente")
Else
Alert("No Se Genero la PrePoliza de Presupuesto Generada Correctamente", TipoMensaje.MsgAdvertencia)
End If
@@ -957,9 +973,7 @@ Partial Class OC_OC
Private Sub ValidaCancelacionConAlamcen()
-
If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then
-
'BtnCancelarPrevio.Attributes.Remove("onclick")
BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip")
BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.")
@@ -1303,25 +1317,32 @@ Partial Class OC_OC
End If
uppEstatus.Update()
End If
-
-
End If
End If
End Sub
Private Sub CargaFolios()
+ Dim tCveSubProyecto As Integer = UsuarioActual.CveSubProyecto
Dim ObjFolios As New ClsGralFolios()
TipoOC = If(TipoOS, "OS", TipoOC)
If ObjFolios.GetFolios(If(TipoOC = "REQ", "Req", TipoOC), CveEmpresaActual) Then
Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros("Estado = 'Activo'")
+ If UsuarioActual.CveEmpresa = 189 Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
'Verificar primero en la sucursal del usuario
- If DT.FiltraParametros("CveSubProyecto = " + UsuarioActual.CveSubProyecto.ToString).Rows.Count > 0 Then
- ViewState("CveFolio") = DT.FiltraParametros("CveSubProyecto = " + UsuarioActual.CveSubProyecto.ToString).Rows(0)("CveFolio").ToString.ToEntero
- ViewState("FolioActual") = DT.FiltraParametros("CveSubProyecto = " + UsuarioActual.CveSubProyecto.ToString).Rows(0)("FActual").ToString
- lblFolio.Text = TipoOC + " " + DT.Rows(0)("FActual").ToString
+ Dim dts As DataRow = DT.FiltraParametros("CveSubProyecto = " + tCveSubProyecto.ToString).FiltroPrimero("")
+ If dts IsNot Nothing Then
+ ViewState("CveFolio") = dts("CveFolio").ToString.ToEntero
+ If UsuarioActual.CveEmpresa = 189 Then
+ lblFolio.Text = dts("Serie").ToString + " " + dts("FActual").ToString
+ SerieFolio = dts("Serie").ToString + " " + dts("FActual").ToString
+ Else
+ lblFolio.Text = TipoOC + " " + dts("FActual").ToString
+ SerieFolio = dts("FActual").ToString
+ End If
+
ElseIf DT.Rows.Count > 0 Then
ViewState("CveFolio") = DT.Rows(0)("CveFolio").ToString.ToEntero
- ViewState("FolioActual") = DT.Rows(0)("FActual").ToString
lblFolio.Text = TipoOC + " " + DT.Rows(0)("FActual").ToString
+ SerieFolio = DT.Rows(0)("FActual").ToString
Else
Alert("No tiene registrados Folios en esta sucursal.", TipoMensaje.MsgAdvertencia)
End If
@@ -2259,7 +2280,7 @@ Partial Class OC_OC
Dim IvaPS As Decimal = DrPS("IVA").ToString.ToDecimal
'If IvaPS = -1 Then 'IVA DE LA SUCURSAL
- ' IvaPS = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal
+ ' IvaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal
'End If
Dim IEPSPS As Decimal = DrPS("IEPSPorcentaje").ToString.ToDecimal
@@ -2355,9 +2376,9 @@ Partial Class OC_OC
dr("CveSubFamilia") = dr("CveClasificacion")
dr("SubFamilia") = dr("Clasificacion")
End If
- If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
+ If UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(1, 2) Then
dr("CveProyecto") = "-1"
- dr("Proyecto") = "Sin Proyecto"
+ dr("Proyecto") = ""
Else
If CveSubProyecto > 0 Then
dr("CveProyecto") = CveSubProyecto
@@ -2381,15 +2402,12 @@ Partial Class OC_OC
dr("CveContratoDetalle") = CveContratoDetalle
dr("CveTipoGastoObra") = CveTipoGastoObra
dr("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle
- dr("Cuadro") = Cuadro
-
-
+ dr("Cuadro") = If(CveCultivoCuadroDetalle > 0, Cuadro, "")
DtDetalle.Rows.Add(dr)
DtDetalle.AcceptChanges()
End If
-
End Sub
#End Region
@@ -2766,9 +2784,10 @@ Partial Class OC_OC
If Not TieneError Then ' AGREGAR ORDEN DE COMPRA
+ Dim tCveSubProyecto As Integer = -1
+ If UsuarioActual.CveEmpresa = 189 Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
-
- If OC.AddOrdenCompra(If(TipoOS, "OS", TipoOC), -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusNuevo, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
+ If OC.AddOrdenCompra(If(TipoOS, "OS", TipoOC), tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusNuevo, If(TxtFechaEstimadaEntrega.Text.Trim = "", "-1", TxtFechaEstimadaEntrega.Text.Trim),
LugarEntrega, UsuarioActual.CveUsuario, CveEmpresaActual, GvD.Rows(0).FCHiddenField("HdnCvePresupuestoEgreso").Value.ToString.ToEntero, pCveProveedor:=CveProveedor, pCveProveedorSucursal:=CveProveedorSucursal,
RequiereCotizacion:=ChkCotizacion.Checked, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text, EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1),
@@ -2883,13 +2902,9 @@ Partial Class OC_OC
If OC IsNot Nothing Then OC.RollBack()
Alert("Hubo un Error al registrar", TipoMensaje.MsgError)
CveOrdenCompra = -1
-
-
If Request("Tipo") IsNot Nothing AndAlso Request("Tipo") = "Req" AndAlso TipoOC = "OC" Then
TipoOC = "REQ"
End If
-
-
End If
ViewState("LigaOCs") = If(CveEstatusNuevo <> CboE.SelectedValue.ToEntero, String.Format("{1}", CveOrdenCompra, Folio), "")
@@ -2911,9 +2926,9 @@ Partial Class OC_OC
End If
If LigaOCs = "" Then
- Msg.AppendFormat("La {0} No. {1}. Ha sido guardada correctamente {2}", TipoLargo, Folio, If(TipoOC = "OC", ImprimirOC, ""))
+ Msg.AppendFormat("La {0} No. {1}. Ha sido guardada correctamente {2}", TipoLargo, SerieFolio, If(TipoOC = "OC", ImprimirOC, ""))
Else
- Msg.AppendFormat("La {0} No. {1}. Ha sido guardada correctamente
Orden de Compra:{2} {3}", TipoLargo, Folio, LigaOCs, If(TipoOC = "OC", ImprimirOC, ""))
+ Msg.AppendFormat("La {0} No. {1}. Ha sido guardada correctamente
Orden de Compra:{2} {3}", TipoLargo, SerieFolio, LigaOCs, If(TipoOC = "OC", ImprimirOC, ""))
End If
'IMPRIME LIGA A POLIZAS
@@ -3426,8 +3441,10 @@ Partial Class OC_OC
If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "OC", CveProveedor, objOrdenCompra.IniciaTransacSQL) Then
HuboError = True
End If
+ Dim CveSubProyecto As Integer = -1
+ If UsuarioActual.CveEmpresa = 189 Then CveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
- If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
+ If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", CveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
CveUsuario, CveEmpresaActual, 0, pCveProveedor:=CveProveedor, CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
PorcentajeIVA:=PorIVA, IVA:=IVACot, RetIVA:=RetIVA.ToString.ToDecimal, RetISR:=RetISR.ToString.ToDecimal, IDPoliza:=IdPoliza, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal,
@@ -3497,14 +3514,14 @@ Partial Class OC_OC
Else
-
If Not ValidaNumRemision(TxtNumRemision.Text.Trim(), "OC", DdlProveedores.SelectedValue.ToEntero, objOrdenCompra.IniciaTransacSQL) Then
HuboError = True
End If
+ Dim tCveSubProyecto As Integer = -1
+ If UsuarioActual.CveEmpresa = 189 Then tCveSubProyecto = DdlSubProyectoGral.SelectedValue.ToEntero
-
- If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", -1, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
+ If (Not HuboError) AndAlso objOrdenCompra.AddOrdenCompra("OC", tCveSubProyecto, TxtDescrip.Text, TxtJustificacion.Text, DdlPrioridad.SelectedValue.ToEntero, TxtFecha.Text.ToDate, DdlMoneda.SelectedValue.ToEntero, CveEstatusInicialOC, TxtFechaEstimadaEntrega.Text, LugarEntrega,
CveUsuario, CveEmpresaActual, 0, pCveProveedor:=DdlProveedores.SelectedValue.ToEntero, pCveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero, CveUsuarioAsignado:=DdlUsuariosAsignado.SelectedValue.ToEntero(), CveCliente:=Ddlcliente.txtValue.Value.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PrioridadObservacion:=txtobsprioridad.Text,
PorcentajeIVA:=Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2), IVA:=IVA, RetIVA:=TxtRetIVA.Text.ToDecimal, RetISR:=TxtRetISR.Text.ToDecimal, IDPoliza:=IDPolizaPresupuestal, CveCotizacion:=CveCotizacion, FolioAdicional:=TxtFolioAdicional.Text,
EntregaDirecta:=If(ChkEntregaDirecta.Checked, 1, -1), CveDireccionEnvio:=If(DdlDireccionEnvio.Visible, DdlDireccionEnvio.SelectedValue.ToEntero, -1), IEPS:=TxtIEPS.Text.ToDecimal, CveIEAnticipo:=CveIEAnticipo, ImporteAnticipo:=ImporteAnticipos, UsoCFDI:=DdlUsoCFDI.SelectedValue.ToEntero,
@@ -3717,7 +3734,7 @@ Partial Class OC_OC
End If
If (UsuarioActual.Empresa.Funcionalidad(532).Contiene("1", "2")) Then
- GeneraPrePolizaPresupuesto(CveOrdenCompra, objOrdenCompra.IniciaTransacSQL, True)
+ GeneraPrePolizaPresupuesto(CveOrdenCompra, objOrdenCompra.IniciaTransacSQL, EsCancelacion:=True)
End If
If IDPolizaPresupuestal > 0 AndAlso UsuarioActual.Empresa.UsaAC Then
@@ -4007,7 +4024,7 @@ Partial Class OC_OC
DdlPS_SelectedIndexChanged1(e.Row.FCDropDownList("DdlPS"), EventArgs.Empty)
- Dim dr As DataRow = GlobalDTSubProyectos(-1, e.Row.DBCampo("CveSubProyecto").ToEntero, CveEmpresaActual).FiltroPrimero("")
+ Dim dr As DataRow = GlobalDTSubProyectos(CveEmpresaActual, CveSubProyecto:=e.Row.DBCampo("CveSubProyecto").ToEntero).FiltroPrimero("")
If dr IsNot Nothing Then
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
e.Row.FCDropDownList("DdlProyectoEdit").Visible = False
@@ -4223,8 +4240,8 @@ Partial Class OC_OC
End If
End If
- 'Agarra el nuevo AF si se modifico o deja el pasado
- CveActivoFijo = If(gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero > 0, gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero, HdnEditCveActivoFijo.Value.ToEntero)
+ 'Agarra el nuevo AF si se modifico o deja el pasado
+ CveActivoFijo = If(gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero > 0, gvr.FCHiddenField("HdnCveActivoFijo").Value.ToEntero, HdnEditCveActivoFijo.Value.ToEntero)
Codigo = If(gvr.FCHiddenField("HdnCodigoAF").Value <> "-1", gvr.FCHiddenField("HdnCodigoAF").Value, HdnEditCodigo.Value)
HdnEditCveActivoFijo.Value = ""
@@ -5916,7 +5933,7 @@ Partial Class OC_OC
If CveEmpresaActual.Contiene(13, 83, 72, 80) Then
PnlUsuarioAsignado.Visible = True
- DdlUsuariosAsignado.DataSource = GlobalDTUsuarios(CveEmpresa:=CveEmpresaActual).FiltraParametros("Estatus = 1", "Nombre")
+ DdlUsuariosAsignado.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=CveEmpresaActual).FiltraParametros("Estatus = 1", "Nombre")
DdlUsuariosAsignado.DataBind()
DdlUsuariosAsignado.Items.Insert(0, New ListItem(" - ", "-1"))
DdlUsuariosAsignado.SelectedValueExist(CveUsuarioAsignado)
@@ -6082,7 +6099,7 @@ Partial Class OC_OC
'Dim ArrayCC As String()
- Dim Correo As String = GlobalDTUsuarios(CveUsuario)(0)("correo").ToString
+ Dim Correo As String = GlobalDTUsuarios(CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("correo").ToString
'Dim CorreosCCP As New List(Of String)
Dim StrCorreos As New StringBuilder
@@ -6090,7 +6107,7 @@ Partial Class OC_OC
'Aqui seran los que cambiaron de estatus, que son los niveles inferiores
If DtHistorial IsNot Nothing Then
For Each Row As DataRow In DtHistorial.FiltraParametros("CveConceptoHistorialBitacora = 1").Rows
- StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
+ StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("correo").ToString)
'CorreosCCP.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
Next
End If
@@ -6121,15 +6138,15 @@ Partial Class OC_OC
End Try
End Sub
Protected Sub EnviarCorreoModificada()
- If CBool(GlobalDTUsuarios(CveUsuario)(0)("Estatus").ToString) Then
+ If CBool(GlobalDTUsuarios(CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Estatus").ToString) Then
Dim Body As String
- Dim Correo As String = GlobalDTUsuarios(CveUsuario)(0)("correo").ToString
+ Dim Correo As String = GlobalDTUsuarios(CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("correo").ToString
Dim StrCorreos As New StringBuilder
'Sacar los correos a los que se les notificara
'Aqui seran los que cambiaron de estatus, que son los niveles inferiores
For Each Row As DataRow In DtHistorial.FiltraParametros("CveConceptoHistorialBitacora = 1").Rows
- StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
+ StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("correo").ToString)
Next
Try
@@ -6161,7 +6178,7 @@ Partial Class OC_OC
If CveEstatusSiguiente > 0 Then
If hdnCveSuperior.Value.ToEntero > 0 Then
'SI TIENE SUPERIOR MANDA CORREO A TODOS LOS DEL SIGUIENTE ESTATUS
- StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(hdnCveSuperior.Value.ToEntero)(0)("correo").ToString)
+ StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(hdnCveSuperior.Value.ToEntero, CveEmpresaActual).FiltroPrimeroValor("correo").ToString)
Else
'SI NO TIENE SUPERIOR LO BUSCA PARA MANDAR CORREO
Dim objOC As New ClsOC
@@ -6171,8 +6188,8 @@ Partial Class OC_OC
For Each Row As DataRow In objOC.DtResultados.Rows
'INCLUIR FILTRO DE LIMITE SUPERIOR E INFERIOR
If (IsDBNull(Row("LimiteInferior")) OrElse Row("LimiteInferior").ToString.ToDecimal < LblTotal.Text.ToDecimal) And (IsDBNull(Row("LimiteSuperior")) OrElse Row("LimiteSuperior").ToString.ToDecimal > LblTotal.Text.ToDecimal) Then
- StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
- CorreosCCPNombre.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("nombre").ToString)
+ StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, CveEmpresaActual).FiltroPrimeroValor("correo").ToString)
+ CorreosCCPNombre.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, CveEmpresaActual).FiltroPrimeroValor("nombre").ToString)
End If
Next
End If
@@ -6187,9 +6204,9 @@ Partial Class OC_OC
If DtHistorial IsNot Nothing Then
For Each Row As DataRow In DtHistorial.FiltraParametros("CveConceptoHistorialBitacora = 1").Rows
- If GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero).FiltraParametros(" Estatus = True ").Rows.Count > 0 Then
- StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
- CorreosCCPNombre.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("nombre").ToString)
+ If GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, CveEmpresaActual).FiltraParametros(" Estatus = True ").Rows.Count > 0 Then
+ StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("correo").ToString)
+ CorreosCCPNombre.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("nombre").ToString)
End If
Next
@@ -6270,17 +6287,17 @@ Partial Class OC_OC
End Sub
Protected Sub CorreoUsuarioAsignado(pCveEstatus As Integer, Estatus As String, Optional NotificarAlert As Boolean = True)
- If CBool(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero)(0)("Estatus").ToString) Then
+ If CBool(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero, CveEmpresaActual).FiltroPrimeroValor("Estatus").ToString) Then
'Dim CorreosCCP As New List(Of String)
Dim StrCorreos As New StringBuilder
Dim CorreosCCPNombre As New List(Of String)
- Dim Para As String = GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero)(0)("correo").ToString
+ Dim Para As String = GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero, CveEmpresaActual).FiltroPrimeroValor("correo").ToString
'SI TIENE ASIGNADO TAMBIEN SE LE MANDA CORREO
If DdlUsuariosAsignado.SelectedValue.ToEntero > 0 Then
'CorreosCCP.Add(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero)(0)("correo").ToString)
- StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero)(0)("correo").ToString)
- CorreosCCPNombre.Add(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero)(0)("nombre").ToString)
+ StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero, CveEmpresaActual).FiltroPrimeroValor("correo").ToString)
+ CorreosCCPNombre.Add(GlobalDTUsuarios(DdlUsuariosAsignado.SelectedValue.ToEntero, CveEmpresaActual).FiltroPrimeroValor("nombre").ToString)
End If
Dim strOpciones As New StringBuilder
@@ -6761,7 +6778,7 @@ Partial Class OC_OC
NumRow = NumRow + 1
If Proyecto <> "" Then
- Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+ Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DtSubProyecto.CaseSensitive = False
DrProyecto = DtSubProyecto.FiltroPrimero($"(SubProyecto) = '{Proyecto}'")
If DrProyecto IsNot Nothing Then
@@ -6826,7 +6843,7 @@ Partial Class OC_OC
Dim UM As String = DrPS("UnidadMedida").ToString
Dim IvaPS As Decimal = DrPS("IVA").ToString.ToDecimal
'If IvaPS = -1 Then
- ' Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0)
+ ' Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())(0)
' IvaPS = Drr("IVA").ToString().ToDecimal()
'End If
Dim IEPSPS As Decimal = DrPS("IEPSPorcentaje").ToString.ToDecimal
@@ -7278,7 +7295,7 @@ Partial Class OC_OC
End Sub
Private Sub CargaSucursal()
- DdlSucursal.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSucursal.DataBind()
DdlSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSucursal.SelectedValue = "-1"
@@ -7833,7 +7850,7 @@ Partial Class OC_OC
Dim IvaPS As Decimal = DrPS("IVA").ToString.ToDecimal
'If IvaPS = -1 Then 'IVA DE LA SUCURSAL
- ' IvaPS = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal
+ ' IvaPS = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal
'End If
Dim IEPSPS As Decimal = DrPS("IEPSPorcentaje").ToString.ToDecimal
@@ -8565,7 +8582,7 @@ Partial Class OC_OC
Private Sub MostrarUsuarioAsignado()
If CveUsuarioAsignado > 0 Then
PnlUsuarioYaAsignado.Visible = True
- Dim NombreUsuario As String = GlobalDTUsuarios(CveUsuario:=CveUsuarioAsignado).FiltroPrimeroValor("Nombre")
+ Dim NombreUsuario As String = GlobalDTUsuarios(CveUsuarioAsignado, CveEmpresaActual).FiltroPrimeroValor("Nombre")
LblUsuarioYaAsignado.Text = NombreUsuario
End If
End Sub
@@ -8608,10 +8625,10 @@ Partial Class OC_OC
lblFolio.Text = $"Folio OT: {ObjAF.DtResultados(0)("Folio").ToString}"
CveSubProyecto = ObjAF.DtResultados(0)("CveSubProyecto").ToString.ToEntero
- SubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("SubProyecto").ToString
+ SubProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto)(0)("SubProyecto").ToString
- CveProyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("CveProyecto").ToString.ToEntero
- Proyecto = GlobalDTSubProyectos(-1, CveSubProyecto)(0)("Proyecto").ToString
+ CveProyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto)(0)("CveProyecto").ToString.ToEntero
+ Proyecto = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveSubProyecto)(0)("Proyecto").ToString
'DdlAF.SelectedValueExist(ObjAF.DtResultados(0)("CveAF").ToString)
'DdlTipoServicio.SelectedValueExist(ObjAF.DtResultados(0)("CveTipoServicio").ToString)
@@ -8655,7 +8672,7 @@ Partial Class OC_OC
Dim UM As String = DrPS("UnidadMedida").ToString
Dim IvaPS As Decimal = DrPS("IVA").ToString.ToDecimal
'If IvaPS = -1 Then
- ' Dim Drr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero())(0)
+ ' Dim Drr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyecto.SelectedValue.ToEntero())(0)
' IvaPS = Drr("IVA").ToString().ToDecimal()
'End If
Dim IEPSPS As Decimal = DrPS("IEPSPorcentaje").ToString.ToDecimal
@@ -9123,8 +9140,9 @@ Partial Class OC_OC
Else
respuesta = True
End If
+ respuesta = True
Else
- Alert($"No hay presupuesto disponible en: Subproyecto: {ValSubProyecto} Clasificación: {ValClasificacion}.", TipoMensaje.MsgAdvertencia)
+ Alert($"No hay presupuesto disponible en: Subproyecto: {ValSubProyecto} Clasificación: {ValClasificacion}.", TipoMensaje.MsgAdvertencia)
respuesta = False
End If
Else
@@ -9160,14 +9178,14 @@ Partial Class OC_OC
Dim Diferencia As Decimal = saldoTotal - item.TotalSum
If (Diferencia) < 0 Then
- Alert($"No hay presupuesto disponible en: Subproyecto {item.SubProyecto} con la clasificación {item.Clasificacion}. Se excede por {Math.Abs(Diferencia).FormatoNumero}", TipoMensaje.MsgAdvertencia)
+ Alert($"No hay presupuesto disponible en: Subproyecto: {item.SubProyecto} Clasificación {item.Clasificacion}. Se excede por {Math.Abs(Diferencia).FormatoNumero}", TipoMensaje.MsgAdvertencia)
respuesta = False
Exit For
Else
respuesta = True
End If
Else
- Alert($"No hay presupuesto disponible en: Subproyecto {item.SubProyecto} con la clasificación {item.Clasificacion}.", TipoMensaje.MsgAdvertencia)
+ Alert($"No hay presupuesto disponible en: Subproyecto: {item.SubProyecto} Clasificación {item.Clasificacion}.", TipoMensaje.MsgAdvertencia)
respuesta = False
Exit For
End If
@@ -9215,18 +9233,18 @@ Partial Class OC_OC
Dim EnumAgrupado = (From row In DtDetalle.AsEnumerable()
Group row By
- SubProyecto = row.Field(Of String)("SubProyecto"),
- CveSubProyecto = row.Field(Of Integer)("CveSubProyecto"),
- Clasificacion = row.Field(Of String)("Clasificacion"),
- CveClasificacion = row.Field(Of Integer)("CveClasificacion")
- Into Group
+ SubProyecto = row.Field(Of String)("SubProyecto"),
+ CveSubProyecto = row.Field(Of Integer)("CveSubProyecto"),
+ Clasificacion = row.Field(Of String)("Clasificacion"),
+ CveClasificacion = row.Field(Of Integer)("CveClasificacion")
+ Into Group
Select New With {
- .SubProyecto = SubProyecto,
- .CveSubProyecto = CveSubProyecto,
- .Clasificacion = Clasificacion,
- .CveClasificacion = CveClasificacion,
- .TotalSum = Group.Sum(Function(r) If(IsDBNull(r("Total")), 0D, Convert.ToDecimal(r("Total"))) + If(IsDBNull(r("IVA")), 0D, Convert.ToDecimal(r("IVA"))) + If(IsDBNull(r("IEPSPSIVA")), 0D, Convert.ToDecimal(r("IEPSPSIVA"))) - If(IsDBNull(r("RetIVA")), 0D, Convert.ToDecimal(r("RetIVA"))) - If(IsDBNull(r("RetISR")), 0D, Convert.ToDecimal(r("RetISR"))))
- }).ToList()
+ .SubProyecto = SubProyecto,
+ .CveSubProyecto = CveSubProyecto,
+ .Clasificacion = Clasificacion,
+ .CveClasificacion = CveClasificacion,
+ .TotalSum = Group.Sum(Function(r) If(IsDBNull(r("Total")), 0D, Convert.ToDecimal(r("Total"))) + If(IsDBNull(r("IVA")), 0D, Convert.ToDecimal(r("IVA"))) + If(IsDBNull(r("IEPSPSIVA")), 0D, Convert.ToDecimal(r("IEPSPSIVA"))) - If(IsDBNull(r("RetIVA")), 0D, Convert.ToDecimal(r("RetIVA"))) - If(IsDBNull(r("RetISR")), 0D, Convert.ToDecimal(r("RetISR"))))
+ }).ToList()
For Each item In EnumAgrupado
@@ -9247,7 +9265,9 @@ Partial Class OC_OC
Else
Respuesta = False
End If
+ If transaccion Is Nothing Then ObjConta.Dispose() 'sino es transac, que se genere el dispose
End If
+
Return Respuesta
End Function
@@ -9255,16 +9275,14 @@ Partial Class OC_OC
#End Region
-
-
-
-
Protected Sub chkSubProyectoEntrega_CheckedChanged(sender As Object, e As EventArgs)
-
DdlSubProyectoEntrega.Visible = chkSubProyectoEntrega.Checked
txtLugarEntrega.Visible = Not chkSubProyectoEntrega.Checked
UPPEmp.Update()
+ End Sub
+ Protected Sub DdlSubProyectoGral_SelectedIndexChanged(sender As Object, e As EventArgs)
+ CargaFolios()
End Sub
End Class
diff --git a/OC/OC2.aspx.vb b/OC/OC2.aspx.vb
index bc1b0ec4d..e680ffd60 100644
--- a/OC/OC2.aspx.vb
+++ b/OC/OC2.aspx.vb
@@ -502,7 +502,7 @@ Partial Class OC
DdlProyecto.Visible = False
TituloSubProyecto.Visible = False
- DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
+ DdlSubProyecto.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos( UsuarioActual.CveEmpresa )) ' DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
End If
diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb
index 0f9514e06..2fbbf1989 100644
--- a/OC/PopUpBuscarReq.aspx.vb
+++ b/OC/PopUpBuscarReq.aspx.vb
@@ -105,7 +105,7 @@ Partial Class OC_PopUpBuscarReq
'DdlSubProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(DdlProyectos.SelectedValue.ToEntero).FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
DdlSubProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
- GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
+ GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
DdlSubProyectos.DataBind()
DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
diff --git a/OC/RepOCGuias.aspx.vb b/OC/RepOCGuias.aspx.vb
index 942d8e6c2..d34f6ab3c 100644
--- a/OC/RepOCGuias.aspx.vb
+++ b/OC/RepOCGuias.aspx.vb
@@ -80,7 +80,7 @@ Partial Class OC_RepOCGuias
End Sub
Private Sub CargaSubProyectos()
- DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
+ DdlSubproyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyecto.DataBind()
DdlSubproyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
diff --git a/OC/RepOCSinFactura.aspx.vb b/OC/RepOCSinFactura.aspx.vb
index 508f7bf7c..ef5494c07 100644
--- a/OC/RepOCSinFactura.aspx.vb
+++ b/OC/RepOCSinFactura.aspx.vb
@@ -17,7 +17,7 @@ Partial Class OC_RepOCSinFactura
Private Sub CargaCombos()
'CargaSucursales
- DdlSucursal.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+ DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSucursal.DataBind()
'Vendedor
diff --git a/OC/RepOCxSurtir.aspx.vb b/OC/RepOCxSurtir.aspx.vb
index 468e54d2a..0a9726d3a 100644
--- a/OC/RepOCxSurtir.aspx.vb
+++ b/OC/RepOCxSurtir.aspx.vb
@@ -22,7 +22,7 @@ Partial Class OC_RepOCxSurtir
DdlProveedor.DataBind()
DdlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
- DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+ DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
diff --git a/OC/RepRequisiciones.aspx.vb b/OC/RepRequisiciones.aspx.vb
index a7215683e..cfbbd1ffd 100644
--- a/OC/RepRequisiciones.aspx.vb
+++ b/OC/RepRequisiciones.aspx.vb
@@ -38,7 +38,7 @@ Partial Class OC_RepRequisiciones
DdlProyecto.DataBind()
'CargaSubProyectos
- DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
'CargaEstatus de Requisiciones
@@ -76,7 +76,7 @@ Partial Class OC_RepRequisiciones
Public Sub CargaSubProyecto(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
DdlSubProyecto.Items.Clear()
If DdlProyecto.SelectedValue.ToEntero = -1 Then
- DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ DdlSubProyecto.DataSource = DtUsuarioProyectos.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) 'GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
Else
diff --git a/OC/RepSolicitudesAnticipo.aspx.cs b/OC/RepSolicitudesAnticipo.aspx.cs
index e294c04ea..ad3a3f57f 100644
--- a/OC/RepSolicitudesAnticipo.aspx.cs
+++ b/OC/RepSolicitudesAnticipo.aspx.cs
@@ -91,7 +91,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
private void CargaUsuarios()
{
- DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa);
+ DdlUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
DdlUsuarios.DataBind();
}
diff --git a/OI/Circular.aspx.vb b/OI/Circular.aspx.vb
index 212b71247..73e186ff0 100644
--- a/OI/Circular.aspx.vb
+++ b/OI/Circular.aspx.vb
@@ -28,7 +28,7 @@ Partial Class OI_Circular
TxtFechaI.Text = FechaI.ToString()
TxtFechaF.Text = FechaF.ToString
- DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+ DdlUsuario.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuario.DataBind()
DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
diff --git a/OI/CircularDetalle.aspx.vb b/OI/CircularDetalle.aspx.vb
index 7ff4c5c4c..405d4a7a5 100644
--- a/OI/CircularDetalle.aspx.vb
+++ b/OI/CircularDetalle.aspx.vb
@@ -75,7 +75,7 @@ Partial Class OI_CircularDetalle
DdlRolesFiltro.DataBind()
DdlRolesFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
- DdlSucursales.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+ DdlSucursales.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSucursales.DataBind()
DdlSucursales.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
@@ -129,8 +129,8 @@ Partial Class OI_CircularDetalle
Dim buscadorQuery As New StringBuilder
buscadorQuery.Append(If(DdlRolesFiltro.SelectedValue.ToEntero > 0, String.Format("CveRol = {0}", DdlRolesFiltro.SelectedValue), ""))
buscadorQuery.Append(If(DdlSucursales.SelectedValue.ToEntero > 0, String.Format("{0} CveSubProyecto = {1}", If(buscadorQuery.Length > 0, "AND", ""), DdlSucursales.SelectedValue), ""))
- GvUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
- DtUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
+ GvUsuarios.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
+ DtUsuarios = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
GvUsuarios.DataBind()
UpUsuarios.Update()
RegistraScript("$('#ModalDescuento').modal()")
diff --git a/OI/ConvocatoriaDetalle.aspx.cs b/OI/ConvocatoriaDetalle.aspx.cs
index 29e1621d9..c4f6f300e 100644
--- a/OI/ConvocatoriaDetalle.aspx.cs
+++ b/OI/ConvocatoriaDetalle.aspx.cs
@@ -61,7 +61,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
{
string FiltroAD = "";
- GVUsuariosB.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1 {1}", UsuarioActual.CveEmpresa, FiltroAD), "Rol ASC");
+ GVUsuariosB.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" Estatus =1 {0}", FiltroAD), "Rol ASC");
GVUsuarios.DataSource = GVUsuariosB.DataSource;
DdlModera.DataSource = GVUsuariosB.DataSource;
DdlModerador.DataSource = GVUsuariosB.DataSource;
@@ -744,7 +744,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas
ClsSisMail Mail = new ClsSisMail();
- Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, string.Format("⏰ {1} te ha invitado a una reunión, {0}", TxtAsunto.Text, UsuarioDemail), Body, CCP: ArrayCC, Archivos: LSRutasMail);
+ Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, string.Format("⏰ {1} te ha invitado a una reunión, {0}", TxtAsunto.Text, UsuarioDemail), Body, CCP: ArrayCC, Archivos: LSRutasMail);
}
protected void LnkEnviarCorreo_Click(object sender, EventArgs e)
{
diff --git a/OI/DocumentoDetalle.aspx.cs b/OI/DocumentoDetalle.aspx.cs
index f5a013961..46d2cc97c 100644
--- a/OI/DocumentoDetalle.aspx.cs
+++ b/OI/DocumentoDetalle.aspx.cs
@@ -151,7 +151,7 @@ public partial class OI_DocumentoDetalle : ClsPaginas
private void CargarUsuarios()
{
- GvUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1");
+ GvUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 1");
GvUsuarios.DataBind();
}
diff --git a/OI/EventoDetalle.aspx.vb b/OI/EventoDetalle.aspx.vb
index a3da3521b..6fba91334 100644
--- a/OI/EventoDetalle.aspx.vb
+++ b/OI/EventoDetalle.aspx.vb
@@ -954,7 +954,7 @@ Partial Class OI_EventoDetalle
' End If
'End If
- Dim DT As DataTable = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1 {1}", tCveEmpresa, FiltroAD), "Rol ASC")
+ Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" Estatus =1 {0}", FiltroAD), "Rol ASC")
GVUsuarios.DataSource = AgregaGrupos(DT)
DT.Dispose()
@@ -1126,7 +1126,7 @@ Partial Class OI_EventoDetalle
'UsuarioPara = DdlUsuarioPara.SelectedItem.Text
- Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara).FiltroPrimero("")
+ Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("")
If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
Dim RutaGuardar = ""
RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta)
diff --git a/OI/MinutaDetalle.aspx.cs b/OI/MinutaDetalle.aspx.cs
index f5febfad4..0123a40b6 100644
--- a/OI/MinutaDetalle.aspx.cs
+++ b/OI/MinutaDetalle.aspx.cs
@@ -33,10 +33,10 @@ public partial class OI_MinutaDetalle : ClsPaginas
DdlRoles.DataSource = get_GlobalDTRoles(UsuarioActual.CveEmpresa);
DdlRoles.DataBind();
DdlRoles.Items.Insert(0, new ListItem("Todos", "-1"));
- DdlSucursales.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
+ DdlSucursales.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
DdlSucursales.DataBind();
DdlSucursales.Items.Insert(0, new ListItem("Todos", "-1"));
- GVUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
+ GVUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
GVUsuariosB.DataSource = GVUsuarios.DataSource;
DdlTareaPara.DataSource = GVUsuarios.DataSource;
DdlTareaPara.DataBind();
@@ -1015,7 +1015,7 @@ public partial class OI_MinutaDetalle : ClsPaginas
ClsSisMail Mail = new ClsSisMail();
- Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, TxtAsunto.Text, Body, CCP: ArrayCC, Archivos: LSRutasMail);
+ Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(-1,UsuarioActual.CveUsuario).Rows[0]["correo"].ToString() + ";" + TxtCorreoExterno.Text, TxtAsunto.Text, Body, CCP: ArrayCC, Archivos: LSRutasMail);
//Alert("Se Envió por correo la Minuta", ModExtensiones.TipoMensaje.MsgInformacion);
Retorno = true;
}
diff --git a/OI/Minutas.aspx.vb b/OI/Minutas.aspx.vb
index 4d442258d..1bd888f91 100644
--- a/OI/Minutas.aspx.vb
+++ b/OI/Minutas.aspx.vb
@@ -74,11 +74,11 @@ Partial Class OI_Minutas
Private Sub CargaCombos()
- ddlUsuarioTarea.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+ ddlUsuarioTarea.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
ddlUsuarioTarea.DataBind()
ddlUsuarioTarea.Items.Insert(0, New ListItem("Seleccione", "-1"))
- ddlUsuarioAgenda.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+ ddlUsuarioAgenda.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
ddlUsuarioAgenda.DataBind()
ddlUsuarioAgenda.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -95,10 +95,10 @@ Partial Class OI_Minutas
End Sub
Private Sub GetUsuarios()
- Dim DT As Data.DataTable = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa), "Rol ASC")
+ Dim DT As Data.DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Rol ASC")
'AGREGA JULIAN Y RENE DE FUERZAS
- DT.Merge(GlobalDTUsuarios.FiltraParametros(String.Format("CveUsuario IN (2,93) AND CveEmpresa = 70", UsuarioActual.CveEmpresa), "Rol ASC"))
+ DT.Merge(GlobalDTUsuarios(-1, 70).FiltraParametros(String.Format("CveUsuario IN (2,93) AND CveEmpresa = 70", UsuarioActual.CveEmpresa), "Rol ASC"))
DT = DT.FiltraParametros("", "Rol ASC")
GVUsuarios.DataSource = AgregaGrupos(DT)
@@ -187,7 +187,7 @@ Partial Class OI_Minutas
' Dim CorreosCCP As New List(Of String)
For Each Row As DataRow In .DtResultados.FiltraParametros("CveEvento is not null").Rows
'CorreosCCP.Add(GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
- StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero)(0)("correo").ToString)
+ StrCorreos.AppendFormat("{0};", GlobalDTUsuarios(Row("CveUsuario").ToString.ToEntero, UsuarioActual.CveEmpresa)(0)("correo").ToString)
Next
ViewState("ArrayCC") = StrCorreos.ToString 'CorreosCCP.ToArray
End If
@@ -524,7 +524,7 @@ Partial Class OI_Minutas
Try
Body = GeneraContenido(CveEvento)
- ViewState("Para") = GlobalDTUsuarios(CveUsuarioIng)(0)("correo").ToString
+ ViewState("Para") = GlobalDTUsuarios(CveUsuarioIng, UsuarioActual.CveEmpresa)(0)("correo").ToString
ViewState("Asunto") = String.Format("SIG - Minuta {0}", TxtAsunto.Text)
ViewState("Body") = Body
Dim Hilo As New System.Threading.Thread(AddressOf MandaCorreo)
diff --git a/OI/PopUpAgenda.aspx.vb b/OI/PopUpAgenda.aspx.vb
index 44e371eb3..da424dfe8 100644
--- a/OI/PopUpAgenda.aspx.vb
+++ b/OI/PopUpAgenda.aspx.vb
@@ -550,7 +550,7 @@ Partial Class OI_PopUpAgenda
End Sub
Private Sub GetUsuarios()
- Dim DT As DataTable = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "Rol ASC")
+ Dim DT As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("", "Rol ASC")
GVUsuarios.DataSource = AgregaGrupos(DT)
DT.Dispose()
@@ -732,10 +732,9 @@ Partial Class OI_PopUpAgenda
CveRevision = DdlRevision.SelectedValue.ToEntero
Fecha = NowADS().ToLongDateString
- Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara).FiltroPrimero("")
+ Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("")
If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
-
If CveEvento = -1 Then
If CveTipoEvento = 1 Then
If ObjEventos.AddEventoTarea(Asunto, Descripcion, Prioridad, CveUsuarioDe, CveUsuarioPara, FechaInicio.ToDateTime, FechaFin.ToDateTime, -1, 1, CveRevision, Archivo, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, CvePersonal, CveProveedor, CveUsuarioIng, CveUsuario, CveEmpresa) Then
diff --git a/OI/Proyecto.aspx.cs b/OI/Proyecto.aspx.cs
index cfb70ae41..016cab4bf 100644
--- a/OI/Proyecto.aspx.cs
+++ b/OI/Proyecto.aspx.cs
@@ -334,7 +334,7 @@ public partial class OI_Proyecto : ClsPaginas
string[] FiltroAD = { "CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol", "Correo", "Empresa", "CveRol" };
- GVUsuariosB.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Nombre ASC", FiltroAD);
+ GVUsuariosB.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros( " Estatus =1" , "Nombre ASC", FiltroAD);
GVUsuariosB.DataBind();
StringBuilder StrPara = new StringBuilder();
diff --git a/OI/RepProyectos.aspx.cs b/OI/RepProyectos.aspx.cs
index 3efa822f3..282d5be8a 100644
--- a/OI/RepProyectos.aspx.cs
+++ b/OI/RepProyectos.aspx.cs
@@ -17,7 +17,7 @@ public partial class OI_RepProyectos : ClsPaginas
if (!IsPostBack)
{
- DdlPara.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Nombre ASC"); ;
+ DdlPara.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Nombre ASC"); ;
DdlPara.DataBind();
DdlPara.Items.Insert(0, new ListItem("Seleccione uno", "-1"));
diff --git a/OI/RepReuniones.aspx.cs b/OI/RepReuniones.aspx.cs
index ce6409013..3c2b3bb7b 100644
--- a/OI/RepReuniones.aspx.cs
+++ b/OI/RepReuniones.aspx.cs
@@ -245,7 +245,7 @@ public partial class OI_RepReuniones : ClsPaginas
ClsSisMail.ArchivoMail itemMail = new ClsSisMail.ArchivoMail();
ClsSisMail Mail = new ClsSisMail();
- Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(UsuarioActual.CveUsuario).Rows[0]["correo"].ToString()+";" + CorreoExternoconvocatoria, Asuntoconvocatoria, Body, CCP: ArrayCC, Archivos: LSRutasMail);
+ Mail.SendMail(EmpresaNotificaciones, get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).Rows[0]["correo"].ToString()+";" + CorreoExternoconvocatoria, Asuntoconvocatoria, Body, CCP: ArrayCC, Archivos: LSRutasMail);
}
private string Asuntoconvocatoria;
private string CorreoExternoconvocatoria;
diff --git a/OI/RepSoporteADS.aspx.vb b/OI/RepSoporteADS.aspx.vb
index 3fa1aaf16..3397c87bc 100644
--- a/OI/RepSoporteADS.aspx.vb
+++ b/OI/RepSoporteADS.aspx.vb
@@ -75,7 +75,7 @@ Partial Class OI_RepSoporteADS
End Sub
Private Sub CargaUsuarios()
- DdlUsuarios.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = 2 ")
+ DdlUsuarios.DataSource = GlobalDTUsuarios(-1, 2) 'solo empresa 2
DdlUsuarios.DataBind()
DdlUsuarios.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
diff --git a/OI/SoporteADS.aspx.vb b/OI/SoporteADS.aspx.vb
index 8521a99d2..da30b40a8 100644
--- a/OI/SoporteADS.aspx.vb
+++ b/OI/SoporteADS.aspx.vb
@@ -705,7 +705,7 @@ Partial Class OI_SoporteADS
ObjEventos.Dispose()
End Sub
Private Sub CargaUsuarios()
- DdlUsuarios.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = 2 ")
+ DdlUsuarios.DataSource = GlobalDTUsuarios(-1, 2) '.FiltraParametros("CveEmpresa = 2 ")
DdlUsuarios.DataBind()
DdlUsuarios.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
End Sub
@@ -852,7 +852,7 @@ Partial Class OI_SoporteADS
If .CveEmpresaSop > 0 Then
DdlEmpresaSop.SelectedValueExist(.CveEmpresaSop)
- DdlUsuarioSop.DataSource = GlobalDTUsuarios().FiltraParametros($"CveEmpresa = { DdlEmpresaSop.SelectedValue.ToEntero }")
+ DdlUsuarioSop.DataSource = GlobalDTUsuarios(-1, DdlEmpresaSop.SelectedValue.ToEntero)
DdlUsuarioSop.DataBind()
DdlUsuarioSop.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
@@ -1331,7 +1331,7 @@ Partial Class OI_SoporteADS
'UsuarioPara = DdlUsuarioPara.SelectedItem.Text
- Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara).FiltroPrimero("")
+ Dim dru As DataRow = GlobalDTUsuarios(CveUsuarioPara, UsuarioActual.CveEmpresa).FiltroPrimero("")
If dru IsNot Nothing Then CorreoPara = dru("Correo").ToString
Dim RutaGuardar = ""
RutaGuardar = String.Format("{0}OI\", UsuarioActual.Empresa.Ruta)
@@ -2237,7 +2237,7 @@ Partial Class OI_SoporteADS
TxtPersona.Enabled = True
Else
- DdlUsuarioSop.DataSource = GlobalDTUsuarios().FiltraParametros($"CveEmpresa = { DdlEmpresaSop.SelectedValue.ToEntero }")
+ DdlUsuarioSop.DataSource = GlobalDTUsuarios(-1, DdlEmpresaSop.SelectedValue.ToEntero) '.FiltraParametros($"CveEmpresa = { DdlEmpresaSop.SelectedValue.ToEntero }")
DdlUsuarioSop.DataBind()
rfvDdlUsuario.Enabled = True
diff --git a/OI/Tablero.aspx.cs b/OI/Tablero.aspx.cs
index 987befccf..268e0c82a 100644
--- a/OI/Tablero.aspx.cs
+++ b/OI/Tablero.aspx.cs
@@ -47,7 +47,7 @@ public partial class OI_Tablero : ClsPaginas
}
protected void CargaDDl()
{
- DdlTablusuario.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
+ DdlTablusuario.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
DdlTablusuario.DataBind();
UPModalTabl.Update();
}
diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs
index 52732abc1..b4db91477 100644
--- a/OI/TareaDetalle.aspx.cs
+++ b/OI/TareaDetalle.aspx.cs
@@ -9,7 +9,6 @@ using Extensiones;
public partial class OI_TareaDetalle : ClsPaginas
{
-
private class OI_TareaDetalle_Permisos
{
public bool EntrarOI;
@@ -288,18 +287,18 @@ public partial class OI_TareaDetalle : ClsPaginas
DdlRoles.DataBind();
DdlRoles.Items.Insert(0, new ListItem("Todos", "-1"));
- DdlSucursales.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa);
+ DdlSucursales.DataSource = get_GlobalDTSubProyectos(UsuarioActual.CveEmpresa);
DdlSucursales.DataBind();
DdlSucursales.Items.Insert(0, new ListItem("Todos", "-1"));
- GVUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa);
+ GVUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa);
GVUsuarios.DataBind();
UpUsuarios.Update();
- GVUsuarios.DataSource = get_GlobalDTUsuarios().FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Rol ASC", FiltroAD);
+ GVUsuarios.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros( " Estatus =1" , "Rol ASC", FiltroAD);
GVUsuariosB.DataSource = GVUsuarios.DataSource;
GVUsuarios.DataBind();
GVUsuariosB.DataBind();
diff --git a/OI/UnoaUno.aspx.cs b/OI/UnoaUno.aspx.cs
index 689e50025..690ab2c69 100644
--- a/OI/UnoaUno.aspx.cs
+++ b/OI/UnoaUno.aspx.cs
@@ -36,9 +36,7 @@ public partial class OI_UnoaUno : ClsPaginas
TxtCFecha.Text = NowADS().ToString("dd/MM/yyyy");
LtlusuarioTitulo.Text = UsuarioActual.Nombre;
-
-
- GvUsuarioCuest.DataSource = get_GlobalDTUsuarios(CveEmpresa: UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
+ GvUsuarioCuest.DataSource = get_GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("Estatus =1 ", "Rol ASC");
GvUsuarioCuest.DataBind();
CargarSiguiendoA();
CargarSeguidoPor();
diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb
index 27dd8d20a..30f26dad3 100644
--- a/OS/Asignaciones.aspx.vb
+++ b/OS/Asignaciones.aspx.vb
@@ -109,17 +109,17 @@ Partial Class OS_Asignaciones
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.SelectedValue = Nothing
- DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
+ DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaUsuarios()
- DdlPersonas.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+ DdlPersonas.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlPersonas.DataBind()
DdlPersonas.Items.Insert(0, New ListItem("Todos", "-1"))
- DdlTecnico.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+ DdlTecnico.DataSource = GlobalDTUsuarios(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlTecnico.DataBind()
DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -269,13 +269,11 @@ Partial Class OS_Asignaciones
Dim Fecha As DateTime = time
OIDescripcion = $"Orden de servicio {row.DataKey("Folio")} "
-
If Not ObjEventos.AddEventoAgenda(2, DdlTecnico.SelectedItem.Text, $"{DdlTecnico.SelectedItem.Text} {OIDescripcion}", 2, time, time.AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2,
Importe:=0, CveOS:=row.DataKey("CveOS").ToEntero, CveSubProyecto:=row.DataKey("CveSubProyecto").ToEntero) Then
TieneError = True
End If
-
End If
If Not TieneError Then
@@ -284,13 +282,10 @@ Partial Class OS_Asignaciones
End If
End If
- Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnico.SelectedValue.ToEntero).Rows(0)("Correo").ToString
-
- If Not TieneError Then
+ Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnico.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Correo").ToString
+ If Not TieneError AndAlso CorreoAsignado <> "" Then
MandaCorreOS(row.DataKey("CveOS").ToEntero, CorreoAsignado, TrasaccionSql:=ObjOS.IniciaTransacSQL)
End If
-
-
End If
End If
End If
diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb
index 10142da2e..8e4692e47 100644
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/OS/CatEstatusOrdenServicio.aspx.vb
@@ -77,7 +77,7 @@ Partial Class OS_CatEstatusOrdenServicio
End Sub
Public Sub CargaDatos()
- DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+ DTUsuarios = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
Using ObjEstatusOrdenServicios As New ClsOS
If ObjEstatusOrdenServicios.GetEstatusOrdenServicio(UsuarioActual.CveEmpresa) Then
DtEstatusOS = ObjEstatusOrdenServicios.DtResultados
diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx
index c00c2b15b..713b9ab26 100644
--- a/OS/OrdenesServicios.aspx
+++ b/OS/OrdenesServicios.aspx
@@ -385,10 +385,11 @@
-
+
-
+
+
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 287c33d28..2454d6adb 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -903,14 +903,15 @@ Partial Class OS_OrdenesServicios
ObjMateriales.Dispose()
End Sub
Private Sub CargaMateriales()
+ If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then GvMateriales.Columns(2).Visible = True
Dim objOS As New ClsOS
-
If objOS.GetDetalleMateriales(-1, CveOS) Then
GvMateriales.DataSource = objOS.DtResultados
End If
objOS.Dispose()
GvMateriales.DataBind()
+
If (GvMateriales.Rows.Count > 0) Then
GvMateriales.UseAccessibleHeader = True
GvMateriales.HeaderRow.TableSection = TableRowSection.TableHeader
@@ -3576,4 +3577,12 @@ Partial Class OS_OrdenesServicios
Archivo = Nothing
End Sub
+
+ Protected Sub GvMateriales_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+ If e.Row.RowType = DataControlRowType.DataRow Then
+ If e.Row.DBCampo("CantidadRemision").ToDecimal > 0 Then
+ e.Row.CssClass = "bg-green-turquoise bg-font-green-turquoise"
+ End If
+ End If
+ End Sub
End Class
\ No newline at end of file
diff --git a/OS/PopUpBuscarOS.aspx.vb b/OS/PopUpBuscarOS.aspx.vb
index 3e288a7f4..b0401dd2c 100644
--- a/OS/PopUpBuscarOS.aspx.vb
+++ b/OS/PopUpBuscarOS.aspx.vb
@@ -91,8 +91,8 @@ Partial Class OS_PopUpBuscarOS
Private Sub CargaUsuarioRecibio()
DdlUsuarioRecibio.Items.Clear()
- DdlUsuarioRecibio.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
- DdlUsuarioRecibio.DataBind()
+ DdlUsuarioRecibio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
+ DdlUsuarioRecibio.DataBind()
DdlUsuarioRecibio.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaEstatusOrdenServicio()
@@ -105,7 +105,7 @@ Partial Class OS_PopUpBuscarOS
Private Sub CargaSucursales()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.SelectedValue = Nothing
- DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
+ DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
diff --git a/OS/RepOrdenesServicios.aspx.vb b/OS/RepOrdenesServicios.aspx.vb
index 0a448ad7f..8af5782bb 100644
--- a/OS/RepOrdenesServicios.aspx.vb
+++ b/OS/RepOrdenesServicios.aspx.vb
@@ -31,11 +31,11 @@ Partial Class OS_RepOrdenesServicios
DdlClientes.setEsWebService(True)
'CargaSubProyectos
- DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, Estatus:=1)
+ DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Estatus:=1)
DdlSubProyecto.DataBind()
'CargaUsuarios
- DdlUsuarioRecibio.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ DdlUsuarioRecibio.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlUsuarioRecibio.DataBind()
DdlUsuarioRecibio.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -45,7 +45,7 @@ Partial Class OS_RepOrdenesServicios
DdlEstatusOS.Items.Insert(0, New ListItem("Todos", "-1"))
'CargaTecnico
- DdlTecnico.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+ DdlTecnico.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
DdlTecnico.DataBind()
DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
diff --git a/OS/RepServicioDomicilio.aspx.vb b/OS/RepServicioDomicilio.aspx.vb
index 961effd22..df4f87a9e 100644
--- a/OS/RepServicioDomicilio.aspx.vb
+++ b/OS/RepServicioDomicilio.aspx.vb
@@ -856,7 +856,7 @@ Partial Class OS_RepServicioDomicilio
Dim CveSubProyectoTecnico As Integer = If(DdlTecnicoAsignar.SelectedValue.ToEntero > 0, GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", " CveSubProyecto > 0 ").ToEntero, -1)
If CveSubProyectoTecnico = 0 And DdlTecnicoAsignar.SelectedValue.ToEntero = 100 Then
- CveSubProyectoTecnico = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltroPrimeroValor("CveSubProyecto").ToEntero
+ CveSubProyectoTecnico = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
End If
@@ -1021,9 +1021,9 @@ Partial Class OS_RepServicioDomicilio
ObjOS.Dispose()
- Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero).Rows(0)("Correo").ToString
+ Dim CorreoAsignado As String = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)("Correo").ToString
If Not TieneError And CorreoAsignado.Trim.Length > 0 AndAlso DdlTecnicoAsignar.SelectedValue.ToEntero > 0 Then
- CorreoAsignado = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero).Rows(0)("Correo").ToString
+ CorreoAsignado = GlobalDTUsuarios(DdlTecnicoAsignar.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)("Correo").ToString
MandaCorreOS(CveOS, CorreoAsignado)
End If
diff --git a/OS/RepServiciosMedicos.aspx b/OS/RepServiciosMedicos.aspx
index e6698a695..a48100e0f 100644
--- a/OS/RepServiciosMedicos.aspx
+++ b/OS/RepServiciosMedicos.aspx
@@ -121,9 +121,10 @@
-
-
-
+
+