App_Code/ClsCRM.vb

@@ -1096,7 +1096,7 @@ Public Class ClsCRM
 #End Region
 
 #Region "Asignar Vendedor a Prospectos"
-    Public Function GetProspectosPorAsignarVendedor(CveEmpresa As Integer, Optional Empresa As String = "-1", Optional CveSubProyecto As Integer = -1, Optional CveGiro As Integer = -1) As Boolean
+    Public Function GetProspectosPorAsignarVendedor(CveEmpresa As Integer, Optional Empresa As String = "-1", Optional CveSubProyecto As Integer = -1, Optional CveGiro As Integer = -1, Optional TipoAsignacion As Integer = 0) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_CRM_GetProspectosPorAsignarVendedor", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -1104,6 +1104,7 @@ Public Class ClsCRM
             .Add("@Empresa", SqlDbType.NVarChar).Value = Empresa
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveGiro", SqlDbType.Int).Value = CveGiro
+            .Add("@TipoAsignacion", SqlDbType.Int).Value = TipoAsignacion
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsInventarios.vb

@@ -5531,7 +5531,8 @@ Public Class ClsInventarios
         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) As Boolean
+                                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
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_CamionesAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -5549,6 +5550,12 @@ Public Class ClsInventarios
             .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("@LongitudCaja", SqlDbType.VarChar).Value = LongitudCaja
+            .Add("@LineaTransportacion", SqlDbType.VarChar).Value = LineaTransportacion
+            .Add("@SCAC", SqlDbType.VarChar).Value = SCAC
+            .Add("@CAAT", SqlDbType.VarChar).Value = CAAT
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -5574,7 +5581,8 @@ Public Class ClsInventarios
         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) As Boolean
+                                   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
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_CamionesUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -5593,6 +5601,11 @@ Public Class ClsInventarios
             .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("@LongitudCaja", SqlDbType.VarChar).Value = LongitudCaja
+            .Add("@LineaTransportacion", SqlDbType.VarChar).Value = LineaTransportacion
+            .Add("@SCAC", SqlDbType.VarChar).Value = SCAC
+            .Add("@CAAT", SqlDbType.VarChar).Value = CAAT
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsRH.vb

@@ -1972,8 +1972,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
                 Alert("El nuevo personal no se guardo debido a que actualmente se encuentra registrado", TipoMensaje.MsgAdvertencia)
             ElseIf Ex1.Message.Contains("Chk_RH_PersonalSalarioIMSS") Then
                 Alert("El nuevo personal no se guardo debido a que se presento un problema al calcular el salario", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al guardar el nuevo personal.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
             ElseIf Ex1.Message.Contains("dbo.Vw_Val_Nom_Curps") Then
                 Alert(String.Format("El nuevo personal no se guardo, ya existe un personal con esta curp '{0}'", CURP), TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al guardar el nuevo personal.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
             Else
                 Me.OnError("Ocurrió un error al guardar el nuevo personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If

CRM/AsignarVendedorEnProspectos.aspx

@@ -36,6 +36,14 @@
                             <div class="col-md-2">
                                 <asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
                             </div>
+                            <label class="col-md-1 " style="width: 90px; margin-top: 5px;">Asignación a vendedor:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlAsignacion" Width="100%" runat="server"  AppendDataBoundItems="true" CssClass="form-control input-sm select2me">
+                                    <asp:ListItem Value="-1" Text="Todos" Selected="True"></asp:ListItem>
+                                    <asp:ListItem Value="0" Text="Por asignar"></asp:ListItem>
+                                    <asp:ListItem Value="1" Text="Asignados"></asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
                         </div>
                     </div>
                 </div>

CRM/AsignarVendedorEnProspectos.aspx.cs

@@ -24,7 +24,7 @@ public partial class CRM_AsignarVendedorEnProspectos : ClsPaginas
     {
         string Empresa = (TxtNombre.Text == "" ? "-1" : TxtNombre.Text);
         ClsCRM ObjCRM = new ClsCRM();
-        if (ObjCRM.GetProspectosPorAsignarVendedor(UsuarioActual.CveEmpresa, Empresa, DdlSubProyecto.SelectedValue.ToEntero(),DdlGiroClasificacion.SelectedValue.ToEntero()))
+        if (ObjCRM.GetProspectosPorAsignarVendedor(UsuarioActual.CveEmpresa, Empresa, DdlSubProyecto.SelectedValue.ToEntero(),DdlGiroClasificacion.SelectedValue.ToEntero(), DdlAsignacion.SelectedValue.ToEntero()))
         {
             GvProspectos.DataSource = ObjCRM.DtResultados;
         }

Compras/PopUpVerFactura.aspx.vb

@@ -227,6 +227,16 @@ Partial Class PopUpVerFactura
         Dim NoPallets As String = ""
         Dim NoBultos As String = ""
         Dim NoKgManifiesto As String = ""
+        Dim Mercado As String = ""
+        Dim NoFactura As String = ""
+
+        Dim LongitudCaja As String = ""
+        Dim LineaTransportacion As String = ""
+        Dim SCAC As String = ""
+        Dim CAAT As String = ""
+
+
+
         Dim tablaReporte As New DataTable
 
         'Envase = "1 1/9"
@@ -248,15 +258,25 @@ Partial Class PopUpVerFactura
                 CamPlaca = row("CamPlaca").ToString()
                 Camion = String.Format("{0} {1}", row("CamAnio"), row("CamEspecificacion"))
                 Rem1Placa = row("Rem1Placa").ToString()
+                NoFactura = row("NoFactura").ToString()
                 Remolque1 = String.Format("{0} {1}", row("Rem1Anio"), row("Rem1Especificacion"))
-                If row("CveCamionRemolque1").ToString() = "1" Then
-                    Rem1Placa = "12-TF-5E"
-                    Remolque1 = "Remolque 1"
-                Else
-                    Rem1Placa = "15-TF-7f"
-                    Remolque1 = "Remolque 2"
+                Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional")
 
-                End If
+
+
+                LongitudCaja = row("LongitudCaja").ToString()
+                LineaTransportacion = row("LineaTransportacion").ToString()
+                SCAC = row("SCAC").ToString()
+                CAAT = row("CAAT").ToString()
+
+                'If row("CveCamionRemolque1").ToString() = "1" Then
+                '    Rem1Placa = "12-TF-5E"
+                '    Remolque1 = "Remolque 1"
+                'Else
+                '    Rem1Placa = "15-TF-7f"
+                '    Remolque1 = "Remolque 2"
+
+                'End If
 
                 If objnom.PA_Agro_Embarque_PalletGet(-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, cveEmbarqueManifiesto, -1) And objnom.DtResultados.Rows.Count > 0 Then
                     NoPallets = objnom.DtResultados.Rows.Count.ToString()
@@ -282,6 +302,13 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Remolque1", Remolque1))
 
 
+        params.Add(New ReportParameter("LongitudCaja", LongitudCaja))
+        params.Add(New ReportParameter("LineaTransportacion", LineaTransportacion))
+        params.Add(New ReportParameter("SCAC", SCAC))
+        params.Add(New ReportParameter("CAAT", CAAT))
+
+        params.Add(New ReportParameter("NoFactura", NoFactura))
+        params.Add(New ReportParameter("Mercado", Mercado))
         params.Add(New ReportParameter("NoBultos", NoBultos))
         params.Add(New ReportParameter("NoPallets", NoPallets))
         params.Add(New ReportParameter("NoKgManifiesto", NoKgManifiesto))
@@ -291,7 +318,6 @@ Partial Class PopUpVerFactura
 
 
 
-
         Dim lrds As New List(Of ReportDataSource)
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
         lrds.Add(rds)

General/SaldosIniciales.aspx.vb

@@ -2291,7 +2291,10 @@ Partial Class General_SaldosIniciales
                 If CvePersonal > 0 Then
                     Contador = Contador + 1
                 Else
-                    If Not ObjRH.AddPersonal(Codigo, ApellidoPaterno, ApellidoMaterno, Nombre, CorreoElectronico, FechaIn, CveTipoPeriodo, NumeroSS, CBool(AltaIMSS), SalarioDiario.ToDouble, SalarioDiario.ToDouble, SDI.ToDouble, SalarioDiario.ToDouble,
+                    If SalarioDiario.ToDouble > SDI.ToDouble Then
+                        SDI = SalarioDiario
+                    End If
+                    If Not ObjRH.AddPersonal(Codigo, ApellidoPaterno, ApellidoMaterno, Nombre, CorreoElectronico, FechaIn, CveTipoPeriodo, NumeroSS, CBool(AltaIMSS), SalarioDiario.ToDouble, SalarioDiario.ToDouble, SDI.ToDouble, SDI.ToDouble,
                                   -1, -1, -1, CveMetodoPago, FechaIn, FechaFn.ToString, CveTipoContrato, Direccion, CveTurno, CvePuesto, CveDepartamento, -1, CveEscolaridad, CveEstadoCivil, CveGenero, -1, FechaBaja, CveEstatusPersonal, FechaNac,
                                  LugarNacimiento, Direccion, "", "", "", CodigoPostal, Ciudad, CveEstado, Telefono, Celular, RFC, CURP, NombrePadre, NombreMadre, -1, CveSATRiesgoPuesto, CveSATRegimenContratacion, -1, -1, "", -1,
                                  ClabeInterbancaria, "", CveJornada, CveJornada, "", -1, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveUsuarioNomina) Then

Inventarios/CatUnidades.aspx

@@ -34,7 +34,7 @@
 <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,CveTipoPermisoSCT,NumPermisoSCT,NombreAseguradora,NumPolizaSeguro,NombreAseguradoraMedioAmbiente,NumPolizaSeguroMedioAmbiente,NombreAseguradoraCarga,NumPolizaSeguroCarga" 
+            <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" 
                 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" />
@@ -188,6 +188,46 @@
                                   </div>
 
                           </div>
+
+                        
+                          <div class="row">
+                              <div class="col-md-6">
+                            <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="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>
+                                <i></i>
+                            </div>
+                                  </div>
+
+                          </div>
+                        
+                          <div class="row">
+                              <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>
+                                <label for="<%= TxtSCAC.ClientID.ToString()%>">SCAC:</label>
+                                <i></i>
+                            </div>
+                                  </div>
+                              <div class="col-md-6">
+                            <div class="form-group form-md-line-input input-iconright"  >
+                                <asp:TextBox ID="TxtCAAT" CssClass="form-control" runat="server" MaxLength="25"></asp:TextBox>
+                                <label for="<%= TxtCAAT.ClientID.ToString()%>">CAAT:</label>
+                                <i></i>
+                            </div>
+                                  </div>
+
+                          </div>
+
+
+                            <asp:CheckBox ID="ChkesRemolque" Checked="true" TextAlign="Left" Text="¿Es remolque?:" runat="server" />
                      
 
                     </div>

Inventarios/CatUnidades.aspx.vb

@@ -82,7 +82,11 @@ Partial Class Inventarios_CatUnidades
         TxtNumPolizaSeguroMedioAmbiente.Text = ""
         TxtNombreAseguradoraCarga.Text = ""
         TxtNumPolizaSeguroCarga.Text = ""
-
+        TxtLongitudCaja.Text = ""
+        TxtLineaTransportacion.Text = ""
+        TxtSCAC.Text = ""
+        TxtCAAT.Text = ""
+        ChkesRemolque.Checked = False
         LtlTituloModal.Text = "Agregar Unidad"
 
         UpModalUnidades.Update()
@@ -113,6 +117,14 @@ Partial Class Inventarios_CatUnidades
         TxtNombreAseguradoraCarga.Text = GvRow.DataKey("NombreAseguradoraCarga")
         TxtNumPolizaSeguroCarga.Text = GvRow.DataKey("NumPolizaSeguroCarga")
 
+
+        TxtLongitudCaja.Text = GvRow.DataKey("LongitudCaja")
+        TxtLineaTransportacion.Text = GvRow.DataKey("LineaTransportacion")
+        TxtSCAC.Text = GvRow.DataKey("SCAC")
+        TxtCAAT.Text = GvRow.DataKey("CAAT")
+
+        ChkesRemolque.Checked = (GvRow.DataKey("CveTipoCamion") = "2")
+
         LtlTituloModal.Text = "Actualizar Unidad"
 
         UpModalUnidades.Update()
@@ -128,18 +140,19 @@ Partial Class Inventarios_CatUnidades
 
         Dim CveCamionEliminar = GvRow.DataKey("CveCamion").ToEntero()
 
-        Dim ObjInventarios As New ClsInventarios
+        Using ObjInventarios As New ClsInventarios
 
-        If (ObjInventarios.RemoveCamiones(CveCamionEliminar, UsuarioActual.CveEmpresa)) Then
 
-            UpDatos.Update()
-            RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarUnidad"))
-            Alert("Unidad Eliminada Correctamente")
-        Else
-            ErrorAlElimiar = True
-        End If
+            If (ObjInventarios.RemoveCamiones(CveCamionEliminar, UsuarioActual.CveEmpresa)) Then
+
+                UpDatos.Update()
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarUnidad"))
+                Alert("Unidad Eliminada Correctamente")
+            Else
+                ErrorAlElimiar = True
+            End If
+        End Using
 
-        ObjInventarios.Dispose()
 
         If Not ErrorAlElimiar Then
             GlobalDTInvCamiones(UsuarioActual.CveEmpresa) = Nothing
@@ -152,23 +165,25 @@ Partial Class Inventarios_CatUnidades
 
         Dim ErrorPrceso As Boolean = False
 
-        Dim ObjInventarios As New ClsInventarios
+        Dim CveTipoCamion As Integer = If(ChkesRemolque.Checked, 2, 1)
+        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) Then
-                Alert("Unidad agregada correctamente")
+            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
+                    Alert("Unidad agregada correctamente")
+                Else
+                    ErrorPrceso = True
+                End If
             Else
-                ErrorPrceso = True
+                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
+                    Alert("Unidad actualizada correctamente")
+                Else
+                    ErrorPrceso = True
+                End If
             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) Then
-                Alert("Unidad actualizada correctamente")
-            Else
-                ErrorPrceso = True
-            End If
-        End If
+        End Using
 
 
         If Not ErrorPrceso Then

Nomina/Nomina.aspx

@@ -945,10 +945,9 @@
                                                 <Columns>
                                                     <asp:TemplateField HeaderText="Fecha" ItemStyle-HorizontalAlign="Center">
                                                         <ItemTemplate>
-                                                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng","{0:dd-MM-yyyy}") %>'></asp:Literal>
+                                                            <asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaIng","{0:dd-MM-yyyy}") %>'/>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
-                                                    <asp:BoundField DataField="FechaIng" HeaderText="Fecha" DataFormatString="dd-MM-yyyy" ItemStyle-HorizontalAlign="Center" />
                                                     <asp:BoundField DataField="Descripcion" HeaderText="Descripción" ItemStyle-HorizontalAlign="Left" />
                                                     <asp:BoundField DataField="Anterior" HeaderText="Anterior" ItemStyle-HorizontalAlign="Left" />
                                                     <asp:BoundField DataField="Actual" HeaderText="Actual" ItemStyle-HorizontalAlign="Left" />
@@ -3677,6 +3676,42 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </asp:Panel>
+    
+    <div id="ModalCancelarDocumento" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="UpCancelarDocumento" class="modal-dialog rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">Cancelar Documento</h4>
+                    </div>
+                    <div class="modal-body">
+                        <br />
+                        <div class="row" id="DivMotivoCancelacion" runat="server">
+                            <div class="col-md-2">
+                                <label>Motivo:</label>
+                            </div>
+                            <div class="col-md-10">
+                                <asp:DropDownList ID="DdlMotivoCancelacion" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="MotivoCancelacion" DataValueField="CveMotivoCancelacion">
+                                </asp:DropDownList>
+                                <asp:RequiredFieldValidator ID="RFVMotivoCancelacion" runat="server" CssClass="help-block errorimput" Display="Dynamic" InitialValue="-1" ControlToValidate="DdlMotivoCancelacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo''</b> es necesario, por favor ingréselo." ValidationGroup="GrpModalCancelarDocumento"></asp:RequiredFieldValidator>
+                            </div>
+                        </div> 
+                    </div>
+                    <div class="modal-footer">
+                        <asp:UpdatePanel ID="UpFooterCancelarRemision" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <button id="BCancelarDocumento" type="button" class="btn btn-default" data-dismiss="modal">Cerrar</button>
+                                <asp:Button Text="Cancelar Documento" ID="BtnCancelarDocumento" OnClick="BtnCancelarDocumento_Click" CssClass="btn btn-primary" ValidationGroup="GrpModalCancelarDocumento" runat="server" />
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+
     <asp:TextBox ID="TxtCvePeriodo" CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox>
     <asp:TextBox ID="TxtCvePersonal" CssClass="TxtCvePersonal hidden" runat="server"></asp:TextBox>
     <asp:Button ID="BtnGeneratepdf" CssClass="BtnGeneratepdf hidden" OnClick="BtnGeneratepdf_Click" UseSubmitBehavior="false" runat="server" Text="Button" />

Nomina/Nomina.aspx.cs

@@ -193,7 +193,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
         if (!IsPostBack)
         {
-            using (ClsNominas objnom =new ClsNominas())
+            using (ClsNominas objnom = new ClsNominas())
             {
                 objnom.GetNominasSinTimbrar(-1, UsuarioActual.CveEmpresa);
                 GVNominaPendiente.DataSource = objnom.DTSetResultados.Tables[0];
@@ -1210,13 +1210,37 @@ public partial class Nomina_Nomina2 : ClsPaginas
         }
     }
 
+    protected int CveNominaCancelar
+    {
+        get
+        {
+            if (ViewState["CveNominaCancelar"] == null) { return 0; }
+            else { return ViewState["CveNominaCancelar"].ToString().ToEntero(); }
+        }
+
+        set { ViewState["CveNominaCancelar"] = value; }
+    }
     protected void LnkCancelar_Click(object sender, EventArgs e)
     {
         int CveNomina = ((LinkButton)sender).CommandArgument.ToEntero();
+        CveNominaCancelar = CveNomina;
+        DdlMotivoCancelacion.DataSource = get_GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltraParametros("CveSATMotivoCancelacion IN (2,3)");
+        DdlMotivoCancelacion.DataBind();
+        UpCancelarDocumento.Update();
+        RegistraScript("$('#ModalCancelarDocumento').modal()");
+    }
+
+    protected void BtnCancelarDocumento_Click(object sender, EventArgs e)
+    {
+        int CveNomina = CveNominaCancelar;
+
 
 
         if (CveNomina > 0)
         {
+
+ 
+            DdlMotivoCancelacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
             using (ClsNominas Nom = new ClsNominas())
             {
 
@@ -1229,8 +1253,14 @@ public partial class Nomina_Nomina2 : ClsPaginas
                     string RFCReceptor = Nom.RFC;
                     string RFCEmisor = UsuarioActual.Empresa.RFC;
                     string SerieFolio = Nom.SerieFolio;
+                    DataRow rowc = get_GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa).FiltroPrimero(string.Format("CveMotivoCancelacion={0}", DdlMotivoCancelacion.SelectedValue));
+                    int CveMotivoCancelacion = -1;
+                    if(rowc != null)
+                    {
+                        CveMotivoCancelacion = rowc["CveSATMotivoCancelacion"].ToString().ToEntero();
+                    }
 
-                    if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor, 4))
+                    if (ObjTimbrado.CFDICancelar(UsuarioActual.Empresa, FolioFiscal, Total, RFCReceptor, RFCEmisor, 4, CveSATMotivoCancelacion: CveMotivoCancelacion))//,CveSATMotivoCancelacion:=
                     {
                         try
                         {
@@ -1266,9 +1296,9 @@ public partial class Nomina_Nomina2 : ClsPaginas
 
             cargaDatos();
         }
+        RegistraScript("$('#ModalCancelarDocumento').modal('hide')");
     }
 
-
     protected void LnkModalPlantillaNomina_Click(object sender, EventArgs e)
     {
         RegistraScript("$('#DModalNominas').modal();");
@@ -1925,7 +1955,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         using (ClsNominas objRH = new ClsNominas())
         {
 
-            if (objRH.GETPersonalVacaciones(UsuarioActual.CveEmpresa ,SRCvePersonal))
+            if (objRH.GETPersonalVacaciones(UsuarioActual.CveEmpresa, SRCvePersonal))
             {
                 GvVacaciones.DataSource = objRH.DtResultados;
 
@@ -7710,4 +7740,5 @@ public partial class Nomina_Nomina2 : ClsPaginas
         }
         UpModalProrrateo.Update();
     }
+
 }