From 4f9eca412c900a1d1ec9396c94604168a81d3936 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 20 Dec 2021 11:39:55 -0700 Subject: [PATCH] =?UTF-8?q?mejora=20en=20validaci=C3=B3n=20de=20datos=20de?= =?UTF-8?q?=20traslados?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/TraspasoAlmacen.aspx.vb | 44 +++++++++++++---------------- 1 file changed, 20 insertions(+), 24 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 3f7215698..c4fab3d5a 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -204,29 +204,25 @@ Partial Class Inventarios_TraspasoAlmacen divEmitir.Visible = False End If - If UsuarioActual.CveEmpresa.Contiene(1, 119, 140, 2) Then - - If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then - ChkEmitirTimbrado.Checked = True - End If + If UsuarioActual.CveEmpresa.Contiene(1, 2, 119, 140) Then ChkEmitirCartaPorte.Visible = True End If CantidadTotal = 0 - CvePS = 0 - TipoSeccionAlmacen = 0 + CvePS = 0 + TipoSeccionAlmacen = 0 - If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then + If UsuarioActual.Empresa.Funcionalidad(281).ToEntero = 1 Then - TxtFecha.Enabled = False - ImgFecha.Visible = False + TxtFecha.Enabled = False + ImgFecha.Visible = False - TxtFechaRecepcion.Enabled = False - ImgFechaRecepcion.Visible = False + TxtFechaRecepcion.Enabled = False + ImgFechaRecepcion.Visible = False - End If + End If Else If ChkTransitorio.Checked Then @@ -731,19 +727,19 @@ Partial Class Inventarios_TraspasoAlmacen #Region " GUARDAR " Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click - If ChkEmitirTimbrado.Checked Then + 'If ChkEmitirTimbrado.Checked Then - If DdlChofer.SelectedValue.ToEntero <= 0 Then - Alert("Debe de seleccionar un chofer") - Exit Sub - End If - If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then - Alert("Debe de seleccionar una unidad") - Exit Sub - End If + ' If DdlChofer.SelectedValue.ToEntero <= 0 Then + ' Alert("Debe de seleccionar un chofer") + ' Exit Sub + ' End If + ' If DdlUnidadCamion.SelectedValue.ToEntero <= 0 Then + ' Alert("Debe de seleccionar una unidad") + ' Exit Sub + ' End If - End If + 'End If 'VALIDA ALMACEN ORIGEN Y DESTINO If DdlAlmacenOrigen.SelectedValue = DdlAlmacenDestino.SelectedValue Then @@ -1156,7 +1152,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim CveSubProyectoTimbre As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").Rows(0)("CveSubProyecto").ToString.ToEntero Dim Fechallegada As DateTime = (TxtFechaLlegada.Text & " 23:59:59").ToDateTime - Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, -1, CveMovimientoSalida, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, Fechallegada, "T", 1, 1, 1) + Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, -1, CveMovimientoSalida, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, Fechallegada, "T", "", "", MinFecha, 1, 1, 1) If CveEntregaAlmacen > 0 Then CveTimbre = ObjGral.AddGralTimbre("Tra", CveSubProyectoTimbre, TxtFechaEntrega.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=ChkEmitirCartaPorte.Checked)