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/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 30f742231..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 @@ - +