merge

App_Code/ClsNominas.vb

@@ -2735,9 +2735,13 @@ Public Class ClsNominas
             End With
             SqlAdapter.Fill(Data)
             retorno = True
-        Catch sqEx As SqlException
+        Catch Ex1 As SqlException
-            retorno = False
+            If Ex1.Message.Contains("x50102;") Then
-            OnError("Ocurrió un error al agregar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             retorno = False
             OnError("Ocurrió un error al agregar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
@@ -2764,9 +2768,13 @@ Public Class ClsNominas
             End With
             SqlAdapter.Fill(Data)
             retorno = True
-        Catch sqEx As SqlException
+        Catch Ex1 As SqlException
-            retorno = False
+            If Ex1.Message.Contains("x50102;") Then
-            OnError("Ocurrió un error al actualizar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             retorno = False
             OnError("Ocurrió un error al actualizar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
@@ -2783,9 +2791,13 @@ Public Class ClsNominas
             End With
             SqlAdapter.Fill(Data)
             retorno = True
-        Catch sqEx As SqlException
+        Catch Ex1 As SqlException
-            retorno = False
+            If Ex1.Message.Contains("x50102;") Then
-            OnError("Ocurrió un error al eliminar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             retorno = False
             OnError("Ocurrió un error al eliminar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())

App_Code/ClsRH.vb

@@ -2167,6 +2167,9 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Then
                 Alert("El Personal no se guardó debido a que actualmente se encuentra registrado.", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("TR_RH_PersonalAltas000") Then
+                Alert("El personal no se guardó el periodo de inicio y fin laboral del empleado está en conflicto con los anteriores, si es un reingreso favor de ingresar una fecha inicio mayor a la última fecha baja registrada.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al intentar guardar los cambios en el Personal.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
             Else
                 Me.OnError("Ocurrió un error al intentar guardar los cambios en el Personal.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If
@@ -5896,6 +5899,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("x50102;") Then
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             OnError("Ocurrió un error al  consultar  las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
@@ -5917,6 +5927,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("x50102;") Then
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             OnError("Ocurrió un error al  consultar  las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
@@ -5932,6 +5949,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("x50102;") Then
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             OnError("Ocurrió un error al Eliminar vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
@@ -5955,6 +5979,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
+        Catch Ex1 As SqlException
+            If Ex1.Message.Contains("x50102;") Then
+                Alert("No se pueden registrar las vacaciones en el periodo indicado ya que exixte un periodo autorizado.", TipoMensaje.MsgAdvertencia)
+                GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al  consultar  las vacacionesa ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()))
+            Else
+                Me.OnError("Ocurrió un error al  consultar  las vacaciones.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+            End If
         Catch ex As Exception
             OnError("Ocurrió un error al  consultar  las vacaciones", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try

App_Code/ClsValidaCFDi.vb

@@ -120,7 +120,7 @@ Public Class ClsValidaCFDi
             'SI NO PUEDE ENCONTRAR EL ESTATUS UTILIZA EL SERVICIO PARA ESTATUS DE CANCELACION
             If EsValida = 0 Then
 
-                Dim Vigencia = Timbrado.VerificarVigenciaSAT(LFolioFiscal.ToUpper, LRFCEmisor, LRFCReceptor, Importe, True)
+                Dim Vigencia = Timbrado.VerificarVigenciaSAT(LFolioFiscal.ToUpper, LRFCEmisor.Replace("%26", "&"), LRFCReceptor.Replace("%26", "&"), Importe, True)
 
                 If Vigencia IsNot Nothing Then
                     If Not Vigencia.Estado.ToUpper().Contains("NO ENCONTRADO") AndAlso Vigencia.EsCancelable.ToUpper() = "NO CANCELABLE" Then

App_Code/Modelos.vb

@@ -5308,6 +5308,8 @@ Namespace Modelos
                         If Not ErrorCancelar Then
                             Dim Filtro As String = ""
                             Dim FiltroDevAlmacen As String = ""
+                            Dim FiltroEntradaUsados As String = ""
+
                             Select Case ObjFactura.TipoDocto
                                 Case "Ing"
                                     Filtro = "CveConcepto IN (3, 40)"
@@ -5318,6 +5320,10 @@ Namespace Modelos
                                     Filtro = "CveConcepto = 18"
                                 Case Else
                                     Filtro = "CveConcepto = 9"
+                                    'VERIFICA SI TIENE ENTRADAS DE USADOS TAMBIEN
+                                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFactura.TipoDocto = "Rem" Then
+                                        FiltroEntradaUsados = "CveConcepto = 42"
+                                    End If
                             End Select
 
                             'CARGA REMISIONES DE LA VENTA DEVUELTA
@@ -5342,6 +5348,14 @@ Namespace Modelos
 
                                     DtExistencias = DtInventario.FiltraParametros($"CvePS IS NOT NULL AND {Filtro} AND CveTipoPS = 2")
                                     TieneSalida = DtExistencias.Rows.Count > 0
+
+                                    'VERIFICA SI SOLO TIENE CARGA DE USADOS EN CASO DE NO TENER SALIDAS DE ALMACEN
+                                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFactura.TipoDocto = "Rem" Then
+                                        FiltroEntradaUsados = "CveConcepto = 42"
+                                        If Not TieneSalida Then
+                                            TieneSalida = DtInventario.FiltraParametros($"CvePS IS NOT NULL AND {FiltroEntradaUsados}").Rows.Count > 0
+                                        End If
+                                    End If
                                 Else
                                     ErrorCancelar = True
                                     MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."

App_Code/Timbrado.vb

@@ -1229,7 +1229,7 @@ Public Class Timbrado
 
             Case 3
                 If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
-                    Retorno = TimbrarFacturaProFactV40(UsuarioActual, Ventas)
+                    Retorno = TimbrarFacturaProFactv40(UsuarioActual, Ventas)
                 Else
                     Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas)
                 End If

Compras/eFacturas.aspx.vb

@@ -4622,4 +4622,22 @@ Partial Class Compras_eFacturas
         RegistraScript("$('#DvmodalPersonalizar').modal('show');")
 
     End Sub
-End Class
+End Class
+
+
+
+Public Class GeneralesAPI
+    Inherits ADSNetLibrary.Helpers.Conexiones.SIGAPI.BaseSIGAPI
+
+    Public Sub New(ByVal Optional domainApi As String = "http://localhost:4001/", ByVal Optional token As String = "")
+        MyBase.New(domainApi, token)
+    End Sub
+
+    Public Function GeneraSolicitud() As Object
+        Return getData(Of Object)("GeneraSolicitud", Nothing, ADSNetLibrary.Helpers.Conexiones.SIGAPI.requestMethod.[GET], False)
+    End Function
+
+    Public Function VerificaSolicitudesNominas() As Object
+        Return getData(Of Object)("VerificaSolicitudesNominas", Nothing, ADSNetLibrary.Helpers.Conexiones.SIGAPI.requestMethod.[GET], False)
+    End Function
+End Class

CxC/RepCxCDetalle.aspx.vb

@@ -236,7 +236,7 @@ Partial Class RepCxCDetalle
             CargaAsignarCobranza()
             TxtFechaCobranza.Text = Now.ToShortDateString
 
-            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso UsuarioActual.CveRol = 1 Then
                 DVCartera.Visible = True
             End If
 

RH/CatPersonal.aspx

@@ -316,7 +316,7 @@
                         
                     </div>
                     <div class="row">
-                        <label class="col-md-1 truncate">clasificacación:</label>
+                        <label class="col-md-1 truncate">clasificación:</label>
                         <div class="col-md-2">
                             <asp:DropDownList ID="ddlclasificacion" runat="server" Width="100%" CssClass="select2me" AppendDataBoundItems="true" DataTextField="Genero" DataValueField="CveGenero" ValidationGroup="GrpGuardar">
                                 <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>

RH/CatPersonal.aspx.vb

@@ -1194,21 +1194,27 @@ Partial Class RH_CatPersonal
                 ) Then
                 Dim filesgral As List(Of Archivo) = TxtFoto.getfiles().Archivos
                 Dim filemove As String = ""
-                For Each fileItem As Archivo In filesgral
+                If ObjPersonal.CvePersonal > 0 Then
-                    Dim extension = fileItem.Extension.Replace(".", "")
-                    If (extension.Contiene("jpg", "png", "bmp")) Then
-                        Dim dir As String = String.Format("{0}RH\Personal\", UsuarioActual.Empresa.Ruta)
-                        System.IO.Directory.CreateDirectory(dir)
-                        Dim file As String = String.Format("{0}{1}.{2}", dir, ObjPersonal.CvePersonal, extension)
-                        System.IO.File.Move(fileItem.FileUrl, file)
-                    End If
 
-                Next
+                    For Each fileItem As Archivo In filesgral
+                        Dim extension = fileItem.Extension.Replace(".", "")
+                        If (extension.Contiene("jpg", "png", "bmp")) Then
+                            Dim dir As String = String.Format("{0}RH\Personal\", UsuarioActual.Empresa.Ruta)
+                            System.IO.Directory.CreateDirectory(dir)
+                            Dim file As String = String.Format("{0}{1}.{2}", dir, ObjPersonal.CvePersonal, extension)
+                            If (System.IO.File.Exists(file)) Then
+                                System.IO.File.Delete(file)
+                            End If
+                            System.IO.File.Move(fileItem.FileUrl, file)
+                        End If
+
+                    Next
+                    Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
+                End If
 
                 ObjPersonal.AgroDepartamentoPersonalUp(UsuarioActual.CveEmpresa, DDlAgroDepartamento.SelectedValue.ToEntero(), ObjPersonal.CvePersonal, If(ChkCharolaForanea.Checked, 1, 0))
 
                 TxtFoto.Text = "[]"
-                Alert(String.Format("El empleado a sido agregado satisfactoriamente <a href=""/RH/Personal.aspx?CvePersonal={0}"">Ver empleado</a>", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0)
                 continuar = True
                 ISChange = True
                 ObjPersonal.Commit()