Limpiar recepcion de usados
This commit is contained in:
@@ -322,82 +322,80 @@ Partial Class Inventarios_RecepcionUsados
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
|
||||
|
||||
CveMovimiento = -1
|
||||
CveMovimientoRelacionado = -1
|
||||
TieneRelacionado = -1
|
||||
TieneSalida = False
|
||||
EstatusAlmacenCompra = -1
|
||||
EsConsumoInterno = False
|
||||
Correo = ""
|
||||
FolioCorreo = ""
|
||||
|
||||
If IfNull(Request("Opc"), "").ToString = "S" Then
|
||||
RBLOpcion.SelectedValue = "3"
|
||||
DivCliente.Visible = False
|
||||
End If
|
||||
|
||||
CreaDT()
|
||||
CargaCombos()
|
||||
TxtFecha.Text = Now.ToShortDateString
|
||||
TxtFechaPendientes.Text = Now.ToShortDateString
|
||||
RVFecha.MaximumValue = Now.ToShortDateString
|
||||
InicializaClientes()
|
||||
|
||||
'si viene una parámetro para cargar un movimiento lo hacemos dentro del procedimiento cargadatos
|
||||
Select Case UsuarioActual.Empresa.Funcionalidad(103)
|
||||
Case "1"
|
||||
|
||||
Case "2"
|
||||
divMonedaSeccion.Visible = True
|
||||
divGuia.Visible = True
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
'AsignacionOpcion()
|
||||
SiguienteFolio()
|
||||
|
||||
|
||||
'SI YA ES MOVIMIENTO REGISTRADO NO ESCONDE COLUMNA AF
|
||||
If CveMovimiento > 0 Then
|
||||
BloqueaEdicionEncabezado()
|
||||
If UsuarioActual.CveEmpresa.Contiene(66, 13) Then
|
||||
TrSubProyectoActivoFijo.Visible = True
|
||||
VisualizaAF(True)
|
||||
CargaSubProyectos()
|
||||
End If
|
||||
End If
|
||||
|
||||
CargaSubProyectosUsados()
|
||||
InicializaBitacoraTemporal()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
|
||||
DivCodigoSeriePS.Visible = True
|
||||
End If
|
||||
|
||||
'If IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then
|
||||
' ActivaConsumoInterno()
|
||||
'End If
|
||||
|
||||
'BLOQUEA PERMISOS
|
||||
BtnGuardar.Enabled = PermiteGuardar()
|
||||
BtnEliminar.Enabled = PermiteEliminar()
|
||||
BtnContabilizar.Enabled = PermiteContabilizar()
|
||||
BtnNuevo.Enabled = PermiteCrearNuevo()
|
||||
|
||||
ActivaPermisoSeccionAlmacen()
|
||||
If CveMovimiento > 0 Then
|
||||
PermisoVerImportes()
|
||||
End If
|
||||
|
||||
CargaTamaños()
|
||||
'DdlProducto2.setEsWebService(True)
|
||||
'DdlProducto2.Attributes.Add("data-metodo", "getpsusados")
|
||||
CargaInicial()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaInicial()
|
||||
CveMovimiento = -1
|
||||
CveMovimientoRelacionado = -1
|
||||
TieneRelacionado = -1
|
||||
TieneSalida = False
|
||||
EstatusAlmacenCompra = -1
|
||||
EsConsumoInterno = False
|
||||
Correo = ""
|
||||
FolioCorreo = ""
|
||||
|
||||
If IfNull(Request("Opc"), "").ToString = "S" Then
|
||||
RBLOpcion.SelectedValue = "3"
|
||||
DivCliente.Visible = False
|
||||
End If
|
||||
|
||||
CreaDT()
|
||||
CargaCombos()
|
||||
TxtFecha.Text = Now.ToShortDateString
|
||||
TxtFechaPendientes.Text = Now.ToShortDateString
|
||||
RVFecha.MaximumValue = Now.ToShortDateString
|
||||
InicializaClientes()
|
||||
|
||||
'si viene una parámetro para cargar un movimiento lo hacemos dentro del procedimiento cargadatos
|
||||
Select Case UsuarioActual.Empresa.Funcionalidad(103)
|
||||
Case "1"
|
||||
|
||||
Case "2"
|
||||
divMonedaSeccion.Visible = True
|
||||
divGuia.Visible = True
|
||||
End Select
|
||||
|
||||
'AsignacionOpcion()
|
||||
SiguienteFolio()
|
||||
|
||||
'SI YA ES MOVIMIENTO REGISTRADO NO ESCONDE COLUMNA AF
|
||||
If CveMovimiento > 0 Then
|
||||
BloqueaEdicionEncabezado()
|
||||
If UsuarioActual.CveEmpresa.Contiene(66, 13) Then
|
||||
TrSubProyectoActivoFijo.Visible = True
|
||||
VisualizaAF(True)
|
||||
CargaSubProyectos()
|
||||
End If
|
||||
End If
|
||||
|
||||
CargaSubProyectosUsados()
|
||||
InicializaBitacoraTemporal()
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(132) = "1" Then
|
||||
DivCodigoSeriePS.Visible = True
|
||||
End If
|
||||
|
||||
'If IfNull(Request("CI"), -1).ToString.ToEntero > 0 Then
|
||||
' ActivaConsumoInterno()
|
||||
'End If
|
||||
|
||||
'BLOQUEA PERMISOS
|
||||
BtnGuardar.Enabled = PermiteGuardar()
|
||||
BtnEliminar.Enabled = PermiteEliminar()
|
||||
BtnContabilizar.Enabled = PermiteContabilizar()
|
||||
BtnNuevo.Enabled = PermiteCrearNuevo()
|
||||
|
||||
ActivaPermisoSeccionAlmacen()
|
||||
If CveMovimiento > 0 Then
|
||||
PermisoVerImportes()
|
||||
End If
|
||||
|
||||
CargaTamaños()
|
||||
'DdlProducto2.setEsWebService(True)
|
||||
'DdlProducto2.Attributes.Add("data-metodo", "getpsusados")
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
@@ -630,6 +628,7 @@ Partial Class Inventarios_RecepcionUsados
|
||||
CveRemisionRecibida = -1
|
||||
EsDistribuidor = False
|
||||
DdlClientes.SelectedValueExist("-1")
|
||||
DdlClientes_SelectedIndexChanged(DdlClientes, EventArgs.Empty)
|
||||
|
||||
SiguienteFolio()
|
||||
|
||||
@@ -654,6 +653,7 @@ Partial Class Inventarios_RecepcionUsados
|
||||
If Not DdlAlmacen.Items.Contains(New ListItem("Seleccione", "-1")) Then
|
||||
DdlAlmacen.Items.Add(New ListItem("Seleccione", "-1"))
|
||||
End If
|
||||
|
||||
DdlAlmacen.SelectedValue = "-1"
|
||||
If Not EsConsumoInterno Then
|
||||
DdlAlmacen_SelectedIndexChanged(DdlAlmacen, EventArgs.Empty)
|
||||
@@ -680,6 +680,8 @@ Partial Class Inventarios_RecepcionUsados
|
||||
TxtRemision.Text = ""
|
||||
DivRemision.Visible = False
|
||||
|
||||
'CargaInicial()
|
||||
|
||||
UpRegistroTipoCambio.Update()
|
||||
UPDatos.Update()
|
||||
End Sub
|
||||
@@ -2046,22 +2048,12 @@ Partial Class Inventarios_RecepcionUsados
|
||||
'End Sub
|
||||
|
||||
Private Sub CreaRemisionNC(CveCliente As Integer, CveSubProyecto As Integer, CveMoneda As Integer)
|
||||
If ObjRemisionNC IsNot Nothing Then
|
||||
ObjRemisionNC.Dispose()
|
||||
ObjRemisionNC = Nothing
|
||||
End If
|
||||
Me.ObjRemisionNC = New Modelos.Factura(UsuarioActual)
|
||||
|
||||
'Dim Folio As String = ""
|
||||
'Dim Serie As String = ""
|
||||
|
||||
'Dim ObjFolios As New ClsGralFolios()
|
||||
'If ObjFolios.GetFolios("RNC", UsuarioActual.CveEmpresa) Then
|
||||
' Dim DT As DataTable = ObjFolios.DtResultados.FiltraParametros(String.Format(" Estado = 'Activo' AND CveSubProyecto = {0}", CveSubProyecto))
|
||||
' If DT.Rows.Count > 0 Then
|
||||
' Serie = DT.Rows(0)("Serie").ToString()
|
||||
' Folio = DT.Rows(0)("FActual").ToString()
|
||||
' End If
|
||||
' DT.Dispose()
|
||||
'End If
|
||||
'ObjFolios.Dispose()
|
||||
|
||||
Me.ObjRemisionNC.TipoMensajeRespuesta = Modelos.TipoMensajeRespuesta.HTML
|
||||
Me.ObjRemisionNC.Serie = "-1"
|
||||
Me.ObjRemisionNC.Folio = -1 'Folio.ToEntero()
|
||||
|
||||
Reference in New Issue
Block a user