AF/AF.aspx.vb

@@ -832,7 +832,7 @@ Partial Class AF_AF
     Protected Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged
         CargaFolios()
         ModalidadesPaginaAF()
-        LatLong.Visible = UsuarioActual.CveEmpresa = 158 And ((DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS"))
+        LatLong.Visible = UsuarioActual.CveEmpresa = 158 And ((DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZO") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZO") Or (DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS"))
         UPEstatus.Update()
     End Sub
 
@@ -944,7 +944,7 @@ Partial Class AF_AF
                 DdlTipoActivoFijo.SelectedValue = ObjActivoFijo.CveTipoActivoFijo.ToString()
                 CargaSubTipoActivoFijo()
                 DdlSubTipoActivoFijo.SelectedValue = ObjActivoFijo.CveSubTipoActivoFijo.ToString()
-                LatLong.Visible = UsuarioActual.CveEmpresa = 158 And ((DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS"))
+                LatLong.Visible = UsuarioActual.CveEmpresa = 158 And ((DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZO") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZO") Or (DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS"))
                 TxtLatitud.Text = ObjActivoFijo.DtResultados.Rows(0)("Lat").ToString()
                 TxtLongitud.Text = ObjActivoFijo.DtResultados.Rows(0)("Long").ToString()
 
@@ -3105,7 +3105,7 @@ Partial Class AF_AF
         CargaCaracteristicas()
         CargaDispositivos()
         ModalidadesPaginaAF()
-        LatLong.Visible = UsuarioActual.CveEmpresa = 158 And ((DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS"))
+        LatLong.Visible = UsuarioActual.CveEmpresa = 158 And ((DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZO") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZO") Or (DdlTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS") Or (DdlSubTipoActivoFijo.SelectedItem.Text.ToUpper() = "POZOS"))
         UPEstatus.Update()
     End Sub
 

App_Code/ClsNominas.vb

@@ -1,6 +1,7 @@
 Imports System.Data
 Imports System.Data.SqlClient
 Imports Extensiones
+Imports HigLabo
 
 Public Class ClsNominas
     Implements IDisposable
@@ -998,7 +999,7 @@ Public Class ClsNominas
         End With
         Try
             SqlAdapter.Fill(Data)
-            Retorno = True
+            retorno = True
         Catch ex As Exception
             OnError("Ocurrió un error al autorizar la nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
@@ -2402,6 +2403,7 @@ Public Class ClsNominas
         Try
             DTSet = New DataSet()
             DataAdapter("PA_Nom_NominaEmpleadoSimulador", CommandType.StoredProcedure)
+            SqlAdapter.SelectCommand.CommandTimeout = 2400
             With SqlAdapter.SelectCommand.Parameters
                 .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
                 .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
@@ -2616,7 +2618,40 @@ Public Class ClsNominas
         End Try
         Return retorno
     End Function
-    Public Function GetNominaEmpleado(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, Optional RegimenContratacion As Integer = 1, Optional CvePersonal As Integer = -1, Optional SalarioDiario As Decimal = 0, Optional CveTipoTrabajador As Integer = -1) As Boolean
+    Public Function GetNominaEmpleado(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer,
+                                      Optional RegimenContratacion As Integer = 1, Optional CvePersonal As Integer = -1, Optional NetoxSalario As Decimal = 0, Optional Neto As Decimal = 0,
+                                      Optional CveTipoTrabajador As Integer = -1) As Boolean
+        Dim retorno As Boolean = False
+        Try
+            DTSet = New DataSet()
+            DataAdapter("PA_Nom_NominaEmpleadosz", CommandType.StoredProcedure)
+            With SqlAdapter.SelectCommand.Parameters
+                .Add("@CveProyecto", SqlDbType.Int).Value = CveProyecto
+                .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+                .Add("@CveTurno", SqlDbType.Int).Value = CveTurno
+                .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
+                .Add("@Agrupador", SqlDbType.VarChar).Value = Agrupador
+                .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+                .Add("@RegimenContratacion", SqlDbType.Int).Value = RegimenContratacion
+                .Add("@CvePersonal", SqlDbType.Decimal).Value = CvePersonal
+                .Add("@NetoxSalario", SqlDbType.Decimal).Value = NetoxSalario
+                .Add("@Neto", SqlDbType.Decimal).Value = Neto
+                .Add("@CveTipoTrabajador", SqlDbType.Decimal).Value = CveTipoTrabajador
+            End With
+
+
+            SqlAdapter.Fill(DTSet)
+            retorno = True
+        Catch sqEx As SqlException
+            retorno = False
+            OnError("Ocurrió un error al Realizar el cálculo de nómina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        Catch ex As Exception
+            retorno = False
+            OnError("Ocurrió un error al Realizar el cálculo de nómina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+    Public Function GetNominaEmpleadoV(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, Optional RegimenContratacion As Integer = 1, Optional CvePersonal As Integer = -1, Optional SalarioDiario As Decimal = 0, Optional CveTipoTrabajador As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         Try
             DTSet = New DataSet()

App_Code/LogicNominas.vb

@@ -19,6 +19,7 @@ Public Class LogicNominas
 
             sw.Start()
         End If
+        hasfiniquito = False
         Dim cfdi As CFDITimbre = PreTimbrar(CveNomina, UsuarioActual, False, versionTimbre) 'CvePersonal, CvePeriodo,
         If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then
             If Not cfdi.Timbrado Then
@@ -232,7 +233,7 @@ Public Class LogicNominas
 
                             End If
                         Next
-                        hasfiniquito = objNomina.DtResultados.COUNT("SATCveConcepto", "(Tipo = 'P' AND SATCveConcepto IN ('022', '023','025')) OR (Tipo = 'D' AND SATCveConcepto = '101')") > 0
+                        hasfiniquito = objNomina.DtResultados.COUNT("SATCveConcepto", "(Tipo = 'P' AND SATCveConcepto IN ('022', '023','025')) ") > 0 'OR (Tipo = 'D' AND SATCveConcepto = '101')
 
 
                         TotalPercepciones = DtPercepciones.SUM("Importe").ToString().ToDecimal()
@@ -399,7 +400,7 @@ Public Class LogicNominas
                     Dim otrp = New CFDINominaOtrosPagos With {.TipoOtroPago = Row("SATCveConcepto").ToString(), .Clave = Row("Codigo").ToString(), .Concepto = Row("Concepto").ToString(),
                                                                          .Importe = Row("Importe").ToString().ToDecimal().Abs(), .Subsidiocausado = Row("ImporteValor").ToString().ToDecimal().Abs()}
                     If Row("SATCveConcepto").ToString().ToEntero() = 4 Then
-                        otrp.ejercicio = DateTime.Now.Year - 1
+                        otrp.ejercicio = DateTime.Now.Year - If(DateTime.Now.Month = 12, 0, 1)
                         otrp.SaldoAFavor = Row("ImporteValor").ToString().ToDecimal().Abs()
                         otrp.RemanenteSalFav = Row("ImporteValor").ToString().ToDecimal().Abs() - Row("Importe").ToString().ToDecimal().Abs()
                     End If

Nomina/Nomina.aspx.cs

@@ -6625,7 +6625,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             while (Neto != NetoSimulado && continuarV)
             {
 
-                if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador, -1, 1, SDI)
+                if (objnom.GetNominaEmpleado(CveProyecto, CveSubProyecto, CveTurno, CvePeriodo, CveEmpresa, Agrupador, -1, 1, Neto)
                     && objnom.DTSetResultados.Tables.Count > 1)
                 {
                     dtempleadosSimula = objnom.DTSetResultados.Tables[3];
@@ -6674,6 +6674,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                 {
                     continuarV = false;
                 }
+                continuarV = false;
             }
         }
         if (continuar)