Validar Almacen garantia
This commit is contained in:
@@ -2774,6 +2774,11 @@ Partial Class Inventarios_RecepcionUsados
|
|||||||
HdnPSAjusteMarca.Value = CveMarca.ToString()
|
HdnPSAjusteMarca.Value = CveMarca.ToString()
|
||||||
HdnPSAjusteClasificacion.Value = CveClasificacion.ToString()
|
HdnPSAjusteClasificacion.Value = CveClasificacion.ToString()
|
||||||
|
|
||||||
|
If DdlAlmacen.SelectedValue.ToEntero() <= 0 Then
|
||||||
|
Alert("Debe seleccionar un almacen de tipo garantía", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero
|
Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero
|
||||||
|
|
||||||
If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es 10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente
|
If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es 10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente
|
||||||
@@ -2951,6 +2956,12 @@ Partial Class Inventarios_RecepcionUsados
|
|||||||
End Sub
|
End Sub
|
||||||
Private Sub CalculaPorcentajeAjuste()
|
Private Sub CalculaPorcentajeAjuste()
|
||||||
Try
|
Try
|
||||||
|
|
||||||
|
If DdlAlmacen.SelectedValue.ToEntero() <= 0 Then
|
||||||
|
Alert("Debe seleccionar un almacen de tipo garantía", TipoMensaje.MsgAdvertencia)
|
||||||
|
Exit Sub
|
||||||
|
End If
|
||||||
|
|
||||||
If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" Then
|
If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" Then
|
||||||
Dim CveMarca As Integer = -1
|
Dim CveMarca As Integer = -1
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user