From ff50c5df32c5b4980afafeecf21a60bfd33bae98 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 Jan 2022 11:13:48 -0700 Subject: [PATCH 1/5] -- que puedan ver lo pendinete por surtir, si tienen acceso al modulo --- Inventarios/PopUpExistenciasAlmacen.aspx | 2 +- Inventarios/PopUpExistenciasAlmacen.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx b/Inventarios/PopUpExistenciasAlmacen.aspx index a5f1f5d49..89158f963 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx +++ b/Inventarios/PopUpExistenciasAlmacen.aspx @@ -127,7 +127,7 @@
- + diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb index 01f56bb74..bc490bf9d 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb +++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb @@ -150,7 +150,7 @@ Partial Class Inventarios_Default End If End If - If UsuarioActual.CveUsuario = 100 Then + If UsuarioActual.TienePermisoPagina(624) Then HlPendiente.Visible = True HlPendiente.NavigateUrl = String.Format("/Inventarios/RepVentasXSurtir.aspx?CvePS={0}", CvePS) End If From 42f5e996ce158c60fe95359f0675b25c92fa5904 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 Jan 2022 11:14:11 -0700 Subject: [PATCH 2/5] si emite carta porte, validar el producto --- Inventarios/TraspasoAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 92ffc32fd..b2e79d503 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -675,7 +675,7 @@ Partial Class Inventarios_TraspasoAlmacen Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") - If ChkEmitirTimbrado.Checked Then + If ChkEmitirTimbrado.Checked AndAlso ChkEmitirCartaPorte.Checked Then If Not ValidaPSSAT(DrPS) Then Exit Sub End If From ef131eb0967d4f08aa208b306884316405876212 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 19 Jan 2022 11:16:40 -0700 Subject: [PATCH 3/5] -- solo aplica al emitir carta porte, la validacion de los ps --- Inventarios/TraspasoAlmacen.aspx.vb | 19 +++---------------- 1 file changed, 3 insertions(+), 16 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index b2e79d503..ce676f0f5 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -3309,8 +3309,6 @@ Partial Class Inventarios_TraspasoAlmacen End Function - - Function ValidaPSSAT(DrPS As DataRow) As Boolean Dim Respuesta As Boolean = False @@ -3326,29 +3324,18 @@ Partial Class Inventarios_TraspasoAlmacen SBMensaje.AppendLine("El producto seleccionado presenta la siguiente situación:
") - If CveSATPS <= 0 Then - SBMensaje.AppendLine("-Producto SAT no asignado.
") - End If + If CveSATPS <= 0 Then SBMensaje.AppendLine("-Producto SAT no asignado.
") + If PesoKg = 0 Then SBMensaje.AppendLine("-Producto sin peso definido.
") - If PesoKg = 0 Then - SBMensaje.AppendLine("-Producto sin peso definido.
") - End If - - - If SATClaveUnidadMedida.Length = 0 Then - SBMensaje.AppendLine("-Producto sin unidad de medida SAT asignada. ") - End If - + If SATClaveUnidadMedida.Length = 0 Then SBMensaje.AppendLine("-Producto sin unidad de medida SAT asignada. ") SBMensaje.AppendLine($"

Corregir Producto ") - Alert(SBMensaje.ToString, TipoMensaje.MsgAdvertencia) End If - Return Respuesta End Function From 46aef86685a3318581cb27bd3d045b8a59917d30 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 19 Jan 2022 15:35:31 -0700 Subject: [PATCH 4/5] --- App_Code/ClsInventarios.vb | 7 +++- App_Code/ClsNominas.vb | 4 +- CRM/AsignarVendedorEnProspectos.aspx.cs | 1 + Compras/PopUpVerFactura.aspx.vb | 10 +++-- GPS/EmbarqueManifiesto.rdlc | 55 +++++++------------------ Inventarios/CatUnidades.aspx | 7 +++- Inventarios/CatUnidades.aspx.vb | 7 ++-- Nomina/CalculoISRAnual.aspx | 4 ++ Nomina/CalculoISRAnual.aspx.cs | 3 +- 9 files changed, 46 insertions(+), 52 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 5a91fa352..ef302e425 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5532,7 +5532,8 @@ Public Class ClsInventarios End Function Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String, - Optional CveTipoCamion As Integer = 1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "") As Boolean + Optional CveTipoCamion As Integer = 1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "", + Optional NumeroTrailer As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesAdd") With SqlAdapter.SelectCommand.Parameters @@ -5556,6 +5557,7 @@ Public Class ClsInventarios .Add("@LineaTransportacion", SqlDbType.VarChar).Value = LineaTransportacion .Add("@SCAC", SqlDbType.VarChar).Value = SCAC .Add("@CAAT", SqlDbType.VarChar).Value = CAAT + .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer End With Try SqlAdapter.Fill(Data) @@ -5582,7 +5584,7 @@ Public Class ClsInventarios End Function Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, - NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = -1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "") As Boolean + NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = -1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "", Optional NumeroTrailer As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -5606,6 +5608,7 @@ Public Class ClsInventarios .Add("@LineaTransportacion", SqlDbType.VarChar).Value = LineaTransportacion .Add("@SCAC", SqlDbType.VarChar).Value = SCAC .Add("@CAAT", SqlDbType.VarChar).Value = CAAT + .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index b3cf9ba5b..73d098a52 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -174,13 +174,15 @@ Public Class ClsNominas End Sub #End Region - Public Function AutorizaCalculoAnual(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String) As Boolean + Public Function AutorizaCalculoAnual(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String, Optional Numpagos As Integer = 1) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_AutorizaCalculoAnual", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@PersonalXml", SqlDbType.Xml).Value = If(String.IsNullOrEmpty(PersonalXml), DBNull.Value, DirectCast(PersonalXml, Object)) + .Add("@Numpagos", SqlDbType.Int).Value = Numpagos + End With Try SqlAdapter.Fill(Data) diff --git a/CRM/AsignarVendedorEnProspectos.aspx.cs b/CRM/AsignarVendedorEnProspectos.aspx.cs index 576c4b589..c3e28ef66 100644 --- a/CRM/AsignarVendedorEnProspectos.aspx.cs +++ b/CRM/AsignarVendedorEnProspectos.aspx.cs @@ -30,6 +30,7 @@ public partial class CRM_AsignarVendedorEnProspectos : ClsPaginas } ObjCRM.Dispose(); GvProspectos.DataBind(); + UpDatos.Update(); } private void CargaFiltros() diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 9ebd61d4d..878270f00 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -234,7 +234,7 @@ Partial Class PopUpVerFactura Dim LineaTransportacion As String = "" Dim SCAC As String = "" Dim CAAT As String = "" - + Dim NumeroTrailer As String = "" Dim tablaReporte As New DataTable @@ -256,13 +256,13 @@ Partial Class PopUpVerFactura Hora = String.Format("{0:hh }:{0:mm }:{0:ss tt}:", row("FechaIng")) Chofer = row("Chofer").ToString() CamPlaca = row("CamPlaca").ToString() - Camion = String.Format("{0} {1}", row("CamAnio"), row("CamEspecificacion")) + Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio")) Rem1Placa = row("Rem1Placa").ToString() NoFactura = row("NoFactura").ToString() - Remolque1 = String.Format("{0} {1}", row("Rem1Anio"), row("Rem1Especificacion")) + Remolque1 = String.Format("{0} ", row("Rem1Especificacion"), row("Rem1Anio")) Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional") - + NumeroTrailer = row("NumeroTrailer").ToString() LongitudCaja = row("LongitudCaja").ToString() LineaTransportacion = row("LineaTransportacion").ToString() @@ -306,6 +306,8 @@ Partial Class PopUpVerFactura params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion)) params.Add(New ReportParameter("SCAC", SCAC)) params.Add(New ReportParameter("CAAT", CAAT)) + params.Add(New ReportParameter("NumeroTrailer", NumeroTrailer)) + params.Add(New ReportParameter("NoFactura", NoFactura)) params.Add(New ReportParameter("Mercado", Mercado)) diff --git a/GPS/EmbarqueManifiesto.rdlc b/GPS/EmbarqueManifiesto.rdlc index 92ac47ba4..8f17b1a9f 100644 --- a/GPS/EmbarqueManifiesto.rdlc +++ b/GPS/EmbarqueManifiesto.rdlc @@ -444,7 +444,9 @@ <USDA REGISTRATION> - @@ -3133,7 +3135,7 @@ @@ -3842,7 +3844,6 @@ 2 - true @@ -3934,7 +3935,7 @@ - + =Parameters!CAAT.Value @@ -3954,42 +3955,10 @@ 2pt + 3 - - - - true - true - - - - - =Parameters!CAAT.Value - - - - - - - Textbox187 - - - 2pt - 2pt - 2pt - 2pt - - - 2 - - + @@ -7472,6 +7441,12 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + diff --git a/Inventarios/CatUnidades.aspx b/Inventarios/CatUnidades.aspx index 2f3f2258e..2e1c6ac29 100644 --- a/Inventarios/CatUnidades.aspx +++ b/Inventarios/CatUnidades.aspx @@ -34,7 +34,7 @@ - @@ -80,6 +80,11 @@
+
+ + + +
diff --git a/Inventarios/CatUnidades.aspx.vb b/Inventarios/CatUnidades.aspx.vb index e1c5467d1..3a9c36b2c 100644 --- a/Inventarios/CatUnidades.aspx.vb +++ b/Inventarios/CatUnidades.aspx.vb @@ -86,6 +86,7 @@ Partial Class Inventarios_CatUnidades TxtLineaTransportacion.Text = "" TxtSCAC.Text = "" TxtCAAT.Text = "" + TxtNumeroTrailer.Text = "" ChkesRemolque.Checked = False LtlTituloModal.Text = "Agregar Unidad" @@ -111,7 +112,7 @@ Partial Class Inventarios_CatUnidades TxtNumermisoSCT.Text = GvRow.DataKey("NumPermisoSCT") TxtNombreAseguradora.Text = GvRow.DataKey("NombreAseguradora") TxtNumPolizaSeguro.Text = GvRow.DataKey("NumPolizaSeguro") - + TxtNumeroTrailer.Text = GvRow.DataKey("NumeroTrailer") TxtNombreAseguradoraMedioAmbiente.Text = GvRow.DataKey("NombreAseguradoraMedioAmbiente") TxtNumPolizaSeguroMedioAmbiente.Text = GvRow.DataKey("NumPolizaSeguroMedioAmbiente") TxtNombreAseguradoraCarga.Text = GvRow.DataKey("NombreAseguradoraCarga") @@ -170,14 +171,14 @@ Partial Class Inventarios_CatUnidades If CveCamion <= 0 Then If ObjInventarios.AddCamiones(TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, UsuarioActual.CveEmpresa, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, - TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text) Then + TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, TxtNumeroTrailer.Text) Then Alert("Unidad agregada correctamente") Else ErrorPrceso = True End If Else If ObjInventarios.UpdateCamiones(CveCamion, TxtPlacaNuevo.Text, TxtEspecificacionNuevo.Text, DdlConfigAuto.SelectedValue, TxtAnio.Text.ToEntero(), DdlTipoPermisoSCT.SelectedValue.ToEntero, TxtNumermisoSCT.Text, TxtNombreAseguradora.Text, TxtNumPolizaSeguro.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, - TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text) Then + TxtNombreAseguradoraMedioAmbiente.Text, TxtNumPolizaSeguroMedioAmbiente.Text, TxtNombreAseguradoraCarga.Text, TxtNumPolizaSeguroCarga.Text, CveTipoCamion, TxtLongitudCaja.Text, TxtLineaTransportacion.Text, TxtSCAC.Text, TxtCAAT.Text, TxtNumeroTrailer.Text) Then Alert("Unidad actualizada correctamente") Else ErrorPrceso = True diff --git a/Nomina/CalculoISRAnual.aspx b/Nomina/CalculoISRAnual.aspx index 828a99f3c..0feb26ab9 100644 --- a/Nomina/CalculoISRAnual.aspx +++ b/Nomina/CalculoISRAnual.aspx @@ -251,6 +251,10 @@
+
+ + +
diff --git a/Nomina/CalculoISRAnual.aspx.cs b/Nomina/CalculoISRAnual.aspx.cs index 70479d5d2..aee5ef0b6 100644 --- a/Nomina/CalculoISRAnual.aspx.cs +++ b/Nomina/CalculoISRAnual.aspx.cs @@ -231,6 +231,7 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas protected void LnkAutoriza_Click(object sender, EventArgs e) { bool continuar = true; + int numpagos = TxtNumerodePagos.Text.ToEntero(); System.Xml.Linq.XDocument xmlarchivos = new System.Xml.Linq.XDocument(); @@ -249,7 +250,7 @@ public partial class Nomina_CalculoISRAnual : ClsPaginas using (ClsNominas onom = new ClsNominas()) { - continuar = onom.AutorizaCalculoAnual(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, xmlpeople); + continuar = onom.AutorizaCalculoAnual(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, xmlpeople, numpagos); } if (continuar) { From 1bf5d40c34357df17b5a213a30a74ca138204429 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 20 Jan 2022 07:48:39 -0700 Subject: [PATCH 5/5] --- App_Code/ClsInventarios.vb | 9 +- App_Code/ClsNominas.vb | 23 ++++ Inventarios/CatUnidades.aspx | 235 ++++++++++++++++---------------- Inventarios/CatUnidades.aspx.vb | 18 ++- Nomina/CalculoISRAnual.aspx | 2 +- vwd.webinfo | 2 + 6 files changed, 166 insertions(+), 123 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index ef302e425..7d53118dc 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5530,10 +5530,11 @@ Public Class ClsInventarios End Try Return Retorno End Function + Public Function AddCamiones(Placa As String, Especificacion As String, CveEmpresa As Integer, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = 1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "", - Optional NumeroTrailer As String = "") As Boolean + Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesAdd") With SqlAdapter.SelectCommand.Parameters @@ -5552,7 +5553,7 @@ Public Class ClsInventarios .Add("@NombreAseguradoraCarga", SqlDbType.VarChar).Value = NombreAseguradoraCarga .Add("@NumPolizaSeguroCarga", SqlDbType.VarChar).Value = NumPolizaSeguroCarga .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion - + .Add("@CveTipoRemolque", SqlDbType.Int).Value = CveTipoRemolque .Add("@LongitudCaja", SqlDbType.VarChar).Value = LongitudCaja .Add("@LineaTransportacion", SqlDbType.VarChar).Value = LineaTransportacion .Add("@SCAC", SqlDbType.VarChar).Value = SCAC @@ -5584,7 +5585,8 @@ Public Class ClsInventarios End Function Public Function UpdateCamiones(CveCamion As Integer, Placa As String, Especificacion As String, ConfigCartaPorte As String, Anio As Integer, CveTipoPermisoSCT As Integer, NumPermisoSCT As String, NombreAseguradora As String, NumPolizaSeguro As String, CveUsuario As Integer, CveEmpresa As Integer, NombreAseguradoraMedioAmbiente As String, NumPolizaSeguroMedioAmbiente As String, NombreAseguradoraCarga As String, - NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = -1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "", Optional NumeroTrailer As String = "") As Boolean + NumPolizaSeguroCarga As String, Optional CveTipoCamion As Integer = -1, Optional LongitudCaja As String = "", Optional LineaTransportacion As String = "", Optional SCAC As String = "", Optional CAAT As String = "", + Optional CveTipoRemolque As Integer = -1, Optional NumeroTrailer As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesUpdate") With SqlAdapter.SelectCommand.Parameters @@ -5604,6 +5606,7 @@ Public Class ClsInventarios .Add("@NombreAseguradoraCarga", SqlDbType.VarChar).Value = NombreAseguradoraCarga .Add("@NumPolizaSeguroCarga", SqlDbType.VarChar).Value = NumPolizaSeguroCarga .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion + .Add("@CveTipoRemolque", SqlDbType.Int).Value = CveTipoRemolque .Add("@LongitudCaja", SqlDbType.VarChar).Value = LongitudCaja .Add("@LineaTransportacion", SqlDbType.VarChar).Value = LineaTransportacion .Add("@SCAC", SqlDbType.VarChar).Value = SCAC diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 73d098a52..d2f7e6a76 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -174,6 +174,29 @@ Public Class ClsNominas End Sub #End Region + Public Function ManifiestoForVtaGet(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String, CveEmbarqueManifiesto As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Vta_ManifiestoForVtaGet", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario + .Add("@CveEmbarqueManifiesto", SqlDbType.Int).Value = CveEmbarqueManifiesto + + End With + Try + SqlAdapter.Fill(DTSet) + If DTSet.Tables.Count > 0 Then + Data = DTSet.Tables(0) + End If + retorno = True + Catch Ex1 As SqlException + + Me.OnError("Ocurrió un error al obtener datos manifiesto.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener los datos manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return retorno + End Function Public Function AutorizaCalculoAnual(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String, Optional Numpagos As Integer = 1) As Boolean Dim retorno As Boolean = False DataAdapter("PA_Nom_AutorizaCalculoAnual", CommandType.StoredProcedure) diff --git a/Inventarios/CatUnidades.aspx b/Inventarios/CatUnidades.aspx index e2c405e14..6df94e0e3 100644 --- a/Inventarios/CatUnidades.aspx +++ b/Inventarios/CatUnidades.aspx @@ -1,49 +1,46 @@ <%@ Page Title="Catálogo de Unidades" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatUnidades.aspx.vb" Inherits="Inventarios_CatUnidades" EnableEventValidation="false" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - + - + - - Catálogo de Unidades + + Catálogo de Unidades - - + - +
  • - +
    • - + - + - - + + - - + + - + @@ -57,7 +54,7 @@ - +