diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 4649f28f2..7d53118dc 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5514,16 +5514,13 @@ Public Class ClsInventarios #End Region - - #Region "Camiones" - Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1) As Boolean + Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_CamionesGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveCamion", SqlDbType.Int).Value = CveCamion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion End With Try SqlAdapter.Fill(Data) @@ -5533,9 +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 CveTipoRemolque As Integer = -1) As Boolean + 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_CamionesAdd") With SqlAdapter.SelectCommand.Parameters @@ -5555,11 +5554,11 @@ Public Class ClsInventarios .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 .Add("@CAAT", SqlDbType.VarChar).Value = CAAT + .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer End With Try SqlAdapter.Fill(Data) @@ -5586,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 CveTipoRemolque As Integer = -1) 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 @@ -5606,11 +5606,12 @@ 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 .Add("@CAAT", SqlDbType.VarChar).Value = CAAT - .Add("@CveTipoRemolque", SqlDbType.Int).Value = CveTipoRemolque + .Add("@NumeroTrailer", SqlDbType.VarChar).Value = NumeroTrailer End With Try SqlAdapter.Fill(Data) @@ -5622,103 +5623,6 @@ Public Class ClsInventarios End Function #End Region - '#Region "Camiones" - ' Public Function GetCamiones(CveCamion As Integer, CveEmpresa As Integer, Optional CveTipoCamion As Integer = -1) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Inv_CamionesGet") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveCamion", SqlDbType.Int).Value = CveCamion - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al momento de obtener el listado de camiones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' 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, CveTipoCamion As Integer, - ' CveTipoRemolque As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Inv_CamionesAdd") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@Placa", SqlDbType.VarChar).Value = Placa - ' .Add("@Especificacion", SqlDbType.VarChar).Value = Especificacion - ' .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte - ' .Add("@Anio", SqlDbType.Int).Value = Anio - ' .Add("@CveTipoPermisoSCT", SqlDbType.VarChar).Value = CveTipoPermisoSCT - ' .Add("@NumPermisoSCT", SqlDbType.VarChar).Value = NumPermisoSCT - ' .Add("@NombreAseguradora", SqlDbType.VarChar).Value = NombreAseguradora - ' .Add("@NumPolizaSeguro", SqlDbType.VarChar).Value = NumPolizaSeguro - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@NombreAseguradoraMedioAmbiente", SqlDbType.VarChar).Value = NombreAseguradoraMedioAmbiente - ' .Add("@NumPolizaSeguroMedioAmbiente", SqlDbType.VarChar).Value = NumPolizaSeguroMedioAmbiente - ' .Add("@NombreAseguradoraCarga", SqlDbType.VarChar).Value = NombreAseguradoraCarga - ' .Add("@NumPolizaSeguroCarga", SqlDbType.VarChar).Value = NumPolizaSeguroCarga - ' .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion - ' .Add("@CveTipoRemolque", SqlDbType.Int).Value = CveTipoRemolque - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al momento de insertar el nuevo camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - ' Return Retorno - ' End Function - ' Public Function RemoveCamiones(CveCamion As Integer, CveEmpresa As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Inv_CamionesRemove") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveCamion", SqlDbType.Int).Value = CveCamion - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al momento de eliminar un camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - ' Return Retorno - ' 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, - ' CveTipoCamion As Integer, CveTipoRemolque As Integer) As Boolean - ' Dim Retorno As Boolean = False - ' DataAdapter("PA_Inv_CamionesUpdate") - ' With SqlAdapter.SelectCommand.Parameters - ' .Add("@CveCamion", SqlDbType.Int).Value = CveCamion - ' .Add("@Placa", SqlDbType.VarChar).Value = Placa - ' .Add("@Especificacion", SqlDbType.VarChar).Value = Especificacion - ' .Add("@ConfigCartaPorte", SqlDbType.VarChar).Value = ConfigCartaPorte - ' .Add("@Anio", SqlDbType.Int).Value = Anio - ' .Add("@CveTipoPermisoSCT", SqlDbType.Int).Value = CveTipoPermisoSCT - ' .Add("@NumPermisoSCT", SqlDbType.VarChar).Value = NumPermisoSCT - ' .Add("@NombreAseguradora", SqlDbType.VarChar).Value = NombreAseguradora - ' .Add("@NumPolizaSeguro", SqlDbType.VarChar).Value = NumPolizaSeguro - ' .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario - ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa - ' .Add("@NombreAseguradoraMedioAmbiente", SqlDbType.VarChar).Value = NombreAseguradoraMedioAmbiente - ' .Add("@NumPolizaSeguroMedioAmbiente", SqlDbType.VarChar).Value = NumPolizaSeguroMedioAmbiente - ' .Add("@NombreAseguradoraCarga", SqlDbType.VarChar).Value = NombreAseguradoraCarga - ' .Add("@NumPolizaSeguroCarga", SqlDbType.VarChar).Value = NumPolizaSeguroCarga - ' .Add("@CveTipoCamion", SqlDbType.Int).Value = CveTipoCamion - ' .Add("@CveTipoRemolque", SqlDbType.Int).Value = CveTipoRemolque - ' End With - ' Try - ' SqlAdapter.Fill(Data) - ' Retorno = True - ' Catch ex As Exception - ' OnError("Ocurrió un error al momento de actualizar el camion", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) - ' End Try - ' Return Retorno - ' End Function - '#End Region - Public Function GetExistenciasMedRin(CvePS As Integer, CveEmpresa As Integer, CveRinTamaño As Integer, CveMedida As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ExistenciaMedRinGet") @@ -5742,6 +5646,7 @@ Public Class ClsInventarios Return Retorno End Function + 'Public Function GetMovimientosDetalleTransitorio(CveMovimiento As Integer, CveEmpresa As Integer) As Boolean ' Dim Retorno As Boolean = False ' DataAdapter(" diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index b3cf9ba5b..d2f7e6a76 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -174,13 +174,38 @@ Public Class ClsNominas End Sub #End Region - Public Function AutorizaCalculoAnual(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String) As Boolean + 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) 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/Compras.aspx.vb b/Compras/Compras.aspx.vb index 1cf5bd836..a7e2bb239 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3989,7 +3989,7 @@ Partial Class Compras_Compras - + Dim TotalRealDevolucion As Decimal = 0 Dim EstatusCredito As Integer = 0 Dim CveSubProyecto As Integer = 0 @@ -4689,6 +4689,8 @@ Partial Class Compras_Compras If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then Devolucion = guardardevolucion(ObjInventario, ObjCompras.CveCompra, TxtSubTotal.Text.ToDecimal, TxtFecha.Text.Trim.ToDate) + TotalRealDevolucion = Devolucion.Total + TieneError = Devolucion.TieneError End If Dim ErrorDetalles As Boolean = False @@ -6856,12 +6858,29 @@ Partial Class Compras_Compras End If Else - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then + + Dim DiferenciaDevolucion As Decimal = importeMovimiento - TotalRealDevolucion + + If Math.Abs(DiferenciaDevolucion) > 0 Then + + + Dim CveSubProyecto69 As Integer = TmpDT.FiltroPrimeroValor("CveSubProyecto", "CveSubProyecto > 0 ").ToEntero + Dim CveClasificacion69 As Integer = TmpDT.FiltroPrimeroValor("CveClasificacion", "CveClasificacion > 0 ").ToEntero + + + Dim IdCtaContable69 As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacion69}").ToString.ToEntero + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaDevolucion, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable69, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69, CveClasificacion:=CveClasificacion69) Then + ErrorPrepoliza = True + End If + End If + + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, TotalRealDevolucion, Referencia, ConceptoContabilizacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, ImporteMX:=TotalRealDevolucion, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, CveMovimientoAlmacen:=CveMovimientoDevolucion, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True End If + End If - - End If @@ -14262,6 +14281,11 @@ Partial Class Compras_Compras '*se envia true si hubo un error*' Private Function guardardevolucion(ObjInventario As ClsInventarios, CveCompra As Integer, subtotal As Decimal, Fecha As Date) As MMensajeDevolucion + + + Dim TotalSumaPU As Decimal = 0.0D + + Dim ErrorMovInv As Boolean = False Dim CveAlmacen As Integer = DdlAlmacenDevolucion.SelectedValue.ToEntero() Dim subtotaldevolucion As Double = 0 @@ -14271,6 +14295,7 @@ Partial Class Compras_Compras Dim cantidad As Double = 0.0 Dim TotalAlmacen As Decimal = 0 + For Each Dr As GridViewRow In GVDevolucion.Rows 'CveAlmacen = Dr.DataKey("CveAlmacen").ToString.ToEntero cantidad = Dr.FCTextBox("TxtCantidad").Text.ToDouble @@ -14309,6 +14334,7 @@ Partial Class Compras_Compras PU = (((Dr.FCTextBox("TxtCantidad").Text.ToDecimal * Dr.DataKey("PU").ToString.ToDecimal)) + dif) / Dr.FCTextBox("TxtCantidad").Text.ToDecimal End If + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr.FCTextBox("TxtCantidad").Text.ToDouble, Dr.DataKey("CveUM").ToString.ToEntero, Dr.DataKey("CvePS").ToString.ToEntero, PU, -1, CveMovimientoDetalleEntrada:=Dr.DataKey("CveMovimientoDetalle").ToString.ToEntero) Then ErrorMovInv = True Exit For @@ -14323,12 +14349,26 @@ Partial Class Compras_Compras End If End If + + + If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa, -1, -1) Then + + For Each drow As DataRow In ObjInventario.DtResultados.Rows + TotalSumaPU = TotalSumaPU + drow("Total").ToString.ToDecimal + Next + + End If + + + Return New MMensajeDevolucion() With { .CveMovimiento = CveMovimientoEntrada, .DebeRealizarDevolucion = realizadevolucion, - .TieneError = ErrorMovInv + .TieneError = ErrorMovInv, + .Total = TotalSumaPU } + End Function Private Sub cargaddldevoluciones(CveProveedor As Integer, SubTotal As Double) @@ -21032,4 +21072,5 @@ Public Class MMensajeDevolucion Public Property CveMovimiento As Integer Public Property TieneError As Boolean Public Property DebeRealizarDevolucion As Boolean + Public Property Total As Decimal End Class \ No newline at end of file diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 8d23822d4..e50e6e1ac 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 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 @@ - +