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) {