2022-01-20 07:48:39 -07:00
parent 4c60ac8896
commit 1bf5d40c34
6 changed files with 166 additions and 123 deletions
--- 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
--- 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)
--- a/Inventarios/CatUnidades.aspx
+++ b/Inventarios/CatUnidades.aspx
@@ -1,26 +1,23 @@
 <%@ 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" %>
-<asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
+<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
-<asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+<asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">

    <style>
-
        #DivAgregarUnidad > div.modal-dialog > div label input {
            padding: 0px !important;
        }
-
    </style>

 </asp:Content>
-<asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
+<asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
    Catálogo de Unidades
 </asp:Content>
-<asp:Content ID="Content4" ContentPlaceHolderID="HB" Runat="Server">
-   
+<asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" Runat="Server">
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
    <asp:UpdatePanel runat="server" ID="UpAgregar">
        <ContentTemplate>
            <li>
@@ -29,12 +26,12 @@
        </ContentTemplate>
    </asp:UpdatePanel>
 </asp:Content>
-<asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
+<asp:Content ID="Content6" ContentPlaceHolderID="HA" runat="Server">
 </asp:Content>
-<asp:Content ID="Content7" ContentPlaceHolderID="C" Runat="Server">
+<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,ConfigCartaPorte,Anio,CveTipoCamion,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque" 
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCamion,Placa,Especificacion,ConfigCartaPorte,Anio,CveTipoCamion,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga,LongitudCaja,LineaTransportacion,SCAC,CAAT,CveTipoRemolque,NumeroTrailer"
                EmptyDataText="No se Encontraron Unidades" ToolTip="Listado de Unidades" CssClass="table table-striped table-advance table-hover mysmallbtn " data-sort="true" Style="width: 100%" GridLines="None">
                <Columns>
                    <asp:BoundField HeaderText="Unidad" DataField="Especificacion" ItemStyle-HorizontalAlign="Left" />
@@ -82,7 +79,8 @@
                            </div>


-                               <div class="form-group form-md-line-input input-iconright col-md-12"  runat="server"  id="DVTiposRemolque" visible="false">
+                            <div class="col-md-12" runat="server" id="DVTiposRemolque" visible="false">
+                                <div class="form-group form-md-line-input input-iconright ">
                                    <asp:DropDownList ID="DdlTiposRemolque" CssClass="form-control input-sm select2me" Width="100%" runat="server" AppendDataBoundItems="true" CausesValidation="true" DataTextField="TipoRemolqueCod" DataValueField="CveTipoRemolque" Style="padding: 0px">
                                    </asp:DropDownList>
                                    <asp:RequiredFieldValidator ID="RfvDdlTiposRemolque" runat="server" ControlToValidate="DdlTiposRemolque" InitialValue="-1" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo Remolque''</b> es necesario, por favor ingréselo." ValidationGroup="GrpUnidad"></asp:RequiredFieldValidator>
@@ -90,6 +88,13 @@
                                    <i></i>
                                </div>

+                            </div>
+                                <div class="form-group form-md-line-input input-iconright col-md-12">
+                                    <asp:TextBox ID="TxtNumeroTrailer" CssClass="form-control" runat="server" MaxLength="100"></asp:TextBox>
+                                    <asp:Label AssociatedControlID="TxtNumeroTrailer" runat="server" Text="NÚMERO DE TRAILER"></asp:Label>
+                                    <i></i>
+                                </div>
+
                            <div class="form-group form-md-line-input input-iconright col-md-6">

                                <asp:TextBox ID="TxtPlacaNuevo" CssClass="form-control" runat="server" MaxLength="7"></asp:TextBox>
@@ -200,14 +205,14 @@


                        <div class="row">
-                              <div class="col-md-6">
+                            <div class="col-md-6" runat="server" id="DVLongitudCaja" visible="false">
                                <div class="form-group form-md-line-input input-iconright">
                                    <asp:TextBox ID="TxtLongitudCaja" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                    <label for="<%= TxtLongitudCaja.ClientID.ToString()%>">Longitud de caja:</label>
                                    <i></i>
                                </div>
                            </div>
-                              <div class="col-md-6">
+                            <div class="col-md-6" runat="server" id="DVLineaTransportacion" visible="false">
                                <div class="form-group form-md-line-input input-iconright">
                                    <asp:TextBox ID="TxtLineaTransportacion" CssClass="form-control" runat="server" MaxLength="25"></asp:TextBox>
                                    <label for="<%= TxtLineaTransportacion.ClientID.ToString()%>">Linea de transportacion:</label>
@@ -217,7 +222,7 @@

                        </div>

-                          <div class="row">
+                        <div class="row"  runat="server" id="DVSCACCAAT" visible="false">
                            <div class="col-md-6" >
                                <div class="form-group form-md-line-input input-iconright">
                                    <asp:TextBox ID="TxtSCAC" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
@@ -260,6 +265,6 @@


 </asp:Content>
-<asp:Content ID="Content8" ContentPlaceHolderID="JS" Runat="Server">
+<asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

--- a/Inventarios/CatUnidades.aspx.vb
+++ b/Inventarios/CatUnidades.aspx.vb
@@ -95,6 +95,7 @@ Partial Class Inventarios_CatUnidades
        TxtNumPolizaSeguroCarga.Text = ""
        TxtLongitudCaja.Text = ""
        TxtLineaTransportacion.Text = ""
+        TxtNumeroTrailer.Text = ""
        TxtSCAC.Text = ""
        TxtCAAT.Text = ""
        ChkesRemolque.Checked = False
@@ -133,6 +134,7 @@ Partial Class Inventarios_CatUnidades

        DdlTiposRemolque.SelectedValueExist(CveTipoRemolque)

+        TxtNumeroTrailer.Text = GvRow.DataKey("NumeroTrailer")
        TxtLongitudCaja.Text = GvRow.DataKey("LongitudCaja")
        TxtLineaTransportacion.Text = GvRow.DataKey("LineaTransportacion")
        TxtSCAC.Text = GvRow.DataKey("SCAC")
@@ -187,15 +189,15 @@ Partial Class Inventarios_CatUnidades
        Using ObjInventarios As New ClsInventarios

            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, DdlTiposRemolque.SelectedValue.ToEntero) 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, DdlTiposRemolque.SelectedValue.ToEntero(), 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, DdlTiposRemolque.SelectedValue.ToEntero) Then
+                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, DdlTiposRemolque.SelectedValue.ToEntero(), TxtNumeroTrailer.Text) Then
                    Alert("Unidad actualizada correctamente")
                Else
                    ErrorPrceso = True
@@ -228,7 +230,11 @@ Partial Class Inventarios_CatUnidades
            DVNombreAseguradoraMedioAmbiente.Visible = True
            DVNumPolizaSeguroMedioAmbient.Visible = True

+            DVLineaTransportacion.Visible = True
+            DVSCACCAAT.Visible = True
+
            DVTiposRemolque.Visible = False
+            DVLongitudCaja.Visible = False
        Else
            DVAnio.Visible = False
            DVConfigAuto.Visible = False
@@ -238,7 +244,11 @@ Partial Class Inventarios_CatUnidades
            DVNombreAseguradoraMedioAmbiente.Visible = False
            DVNumPolizaSeguroMedioAmbient.Visible = False

+            DVLineaTransportacion.Visible = False
+            DVSCACCAAT.Visible = False
+
            DVTiposRemolque.Visible = True
+            DVLongitudCaja.Visible = True
        End If


--- a/Nomina/CalculoISRAnual.aspx
+++ b/Nomina/CalculoISRAnual.aspx
@@ -253,7 +253,7 @@
                        </div>
                        <div class="form-group form-md-line-input input-iconright">
                            <asp:TextBox ID="TxtNumerodePagos" Text="1" type="number" min="1" CssClass="form-control" runat="server"></asp:TextBox>
-                            <asp:Label runat="server" Text="Dividir en pagos:" AssociatedControlID=""></asp:Label>
+                            <asp:Label runat="server" Text="Dividir en pagos:" AssociatedControlID="TxtNumerodePagos"></asp:Label>
                        </div>
                        <div class="form-group form-md-line-input input-iconright">
                            <asp:Label runat="server" Text="Concepto a compensar:" AssociatedControlID=""></asp:Label>
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -400,6 +400,8 @@
    
  
    
+  
+