Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
879
Inventarios/TrasladoSolicitud.aspx.vb
Normal file
879
Inventarios/TrasladoSolicitud.aspx.vb
Normal file
@@ -0,0 +1,879 @@
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System.Data
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
|
||||
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
|
||||
#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 = Now.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("CveDireccionEnvio", Type.GetType("System.Int32"))
|
||||
'TempDT.Columns.Add("DireccionEnvio", Type.GetType("System.String"))
|
||||
|
||||
TempDT.Columns.Add()
|
||||
End Sub
|
||||
Private Sub CargaPaqueterias()
|
||||
DdlPaqueteria.DataSource = GlobalDTPaqueterias()
|
||||
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
|
||||
|
||||
GvDatos.Columns(4).Visible = False
|
||||
DivFolio.Visible = True
|
||||
LbFolio.Text = ObjInventarios.DtResultados.Rows(0)("FolioTraspaso").ToString
|
||||
TxtObservaciones.Text = ObjInventarios.DtResultados.Rows(0)("ObservacionesTraspaso").ToString
|
||||
|
||||
|
||||
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}"
|
||||
|
||||
'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().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
|
||||
BtnEliminar.Visible = True
|
||||
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
|
||||
|
||||
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 " 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
|
||||
|
||||
TxtCantidad.Text = ""
|
||||
DdlProductoServicio.SelectedText = ""
|
||||
DdlProductoServicio.SelectedValue = "-1"
|
||||
DdlUM.SelectedIndex = 0
|
||||
|
||||
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()
|
||||
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") = ""
|
||||
|
||||
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"))
|
||||
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}", 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().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND 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) 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:<br/>")
|
||||
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("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("<br/> - <b>{0}.</b> 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
|
||||
|
||||
'VERIFICA EXISTENCIAS
|
||||
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:<br/>")
|
||||
Dim CodigoPS As String = ""
|
||||
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"))
|
||||
If Existencia - TempDT.SUM("Cantidad", $"CvePS = {row.DataKey("CvePS").ToEntero} AND CveUM = {row.DataKey("CveUM").ToEntero}") < 0 Then
|
||||
MensajeExistencia.AppendFormat("<br/> - <b>{0}.</b> 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 = 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 = 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)
|
||||
|
||||
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 Double = Row.DataKey("Precio").ToEntero
|
||||
Dim Observaciones As String = Row.DataKey("Observaciones")
|
||||
Dim CveContratoDetalle As Integer = Row.DataKey("CveContratoDetalle").ToEntero
|
||||
|
||||
If Not ObjInventarios.AddTrasladoSolicitudDetalle(CveTraspasoSolicitud, Cantidad, CveUM, CvePS, Precio, Observaciones, CveContratoDetalle) 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 #: <b>{Folio}</b>.", TipoMensaje.MsgInformacion, $"document.location.href=""/Inventarios/TrasladoSolicitud.aspx?CveTraspasoSolicitud={CveTraspasoSolicitud}""")
|
||||
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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
Dim 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().FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
NumContrato = GlobalDTContratos().FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}")
|
||||
CveCliente = GlobalDTContratos().FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero
|
||||
CveDireccionEnvio = GlobalDTContratos().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", Now.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)))
|
||||
|
||||
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)
|
||||
|
||||
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", logouri))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
|
||||
If UsuarioActual.CveEmpresa = 72 Or UsuarioActual.CveEmpresa = 1 Then
|
||||
ImprimirPDF(String.Format("Empresas\{0}\Formatos\RepTrasladoSolicitud.rdlc", UsuarioActual.CveEmpresa), dt, params, String.Format("Solicitud de Traslado - {0}", Now.ToDateTime.ToShortDateString), Formato:=Formato)
|
||||
Else
|
||||
ImprimirPDF(RutaFormatoDefault, dt, params, String.Format("Solicitud de Traslado - {0}", Now.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 = AppDomain.CurrentDomain.BaseDirectory & file.patch
|
||||
Dim Tipo As String = If(file.Extencion.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 <br/>" & ex.Message, ex)
|
||||
End Try
|
||||
Conexion.Close()
|
||||
|
||||
|
||||
Dim DTContratosTemporal As New DataTable
|
||||
Dim ObjContratos As New ClsContratos
|
||||
If ObjContratos.GetContratosDetalle(DdlContratos.SelectedValue.ToEntero) 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}", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
End If
|
||||
TempDT.Rows.Add(RowTemp)
|
||||
Else
|
||||
Alert($"El Código: ""<b>{CodigoPS}</b>"", 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 = AppDomain.CurrentDomain.BaseDirectory & "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)
|
||||
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)
|
||||
End If
|
||||
UpPS.Update()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user