From 38841f71c97a0c9e0f9ccca5b0cd827e076f2961 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 18 Jul 2022 03:00:58 -0700 Subject: [PATCH 1/9] --- App_Code/ClsRH.vb | 3 +++ App_Code/Timbrado.vb | 6 +++--- RH/CatPersonal.aspx | 2 +- RH/CatPersonal.aspx.vb | 26 ++++++++++++++++---------- 4 files changed, 23 insertions(+), 14 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index c02d7b5e2..4672e0848 100644 --- a/App_Code/ClsRH.vb +++ b/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 diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index fa00d566c..d9ea519f1 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -1228,7 +1228,7 @@ Public Class Timbrado Retorno = If(Ret = "", True, False) Case 3 - If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then 'AndAlso NomUsaPac4 Retorno = TimbrarFacturaProFactV40(UsuarioActual, Ventas) Else Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas) @@ -1236,7 +1236,7 @@ Public Class Timbrado 'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV) Case 4 - If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then 'AndAlso NomUsaPac4 Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial) If Ret <> "" Then MensajeErrorCFDI = Ret Retorno = If(Ret = "", True, False) @@ -1248,7 +1248,7 @@ Public Class Timbrado Case 5 - If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then 'AndAlso NomUsaPac4 Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial) If Ret <> "" Then MensajeErrorCFDI = Ret Retorno = If(Ret = "", True, False) diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index e95bc4d97..7df1632af 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -316,7 +316,7 @@
- +
diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 5b869cc0f..7d0d44a98 100644 --- a/RH/CatPersonal.aspx.vb +++ b/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 - 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 + If ObjPersonal.CvePersonal > 0 Then - 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 Ver empleado", 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 Ver empleado", ObjPersonal.CvePersonal), TipoMensaje.ToastInformacion, "", 0) continuar = True ISChange = True ObjPersonal.Commit() From 8dd989efdee4ba49a99727947da2399d6c6098ce Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 18 Jul 2022 03:16:38 -0700 Subject: [PATCH 2/9] --- App_Code/ClsNominas.vb | 30 +++++++++++++++++++++--------- App_Code/ClsRH.vb | 28 ++++++++++++++++++++++++++++ 2 files changed, 49 insertions(+), 9 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 6eca35de7..5239a3524 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2735,9 +2735,13 @@ Public Class ClsNominas End With SqlAdapter.Fill(Data) retorno = True - Catch sqEx As SqlException - retorno = False - OnError("Ocurrió un error al agregar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + 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 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 - retorno = False - OnError("Ocurrió un error al actualizar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + 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 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 - retorno = False - OnError("Ocurrió un error al eliminar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + 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 retorno = False OnError("Ocurrió un error al eliminar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 4672e0848..1bdf423cc 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -5899,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 @@ -5920,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 @@ -5935,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 @@ -5958,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 From fa8683b784221e4df0b305f2cc3113e895a70c98 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 18 Jul 2022 16:59:50 -0700 Subject: [PATCH 3/9] --fecha llegada --- App_Code/ClsGenerales.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 90c5be8f7..9319c5d1e 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -3984,7 +3984,7 @@ Public Class ClsGenerales Return Retorno End Function - Public Function AsignaEntregaAlmacenRuta(CveCamion As Integer, CveChofer As Integer, FechaEntrega As Date, CveEntregaAlmacen As Integer, CveEmpresa As Integer) As Boolean + Public Function AsignaEntregaAlmacenRuta(CveCamion As Integer, CveChofer As Integer, FechaEntrega As Date, FechaLlegada As DateTime, CveEntregaAlmacen As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_EntregaAlmacenRutaAsignar") @@ -3992,6 +3992,7 @@ Public Class ClsGenerales .Add("@CveCamion", SqlDbType.Int).Value = CveCamion .Add("@CveChofer", SqlDbType.Int).Value = CveChofer .Add("@FechaEntrega", SqlDbType.DateTime).Value = FechaEntrega + .Add("@FechaLlegada", SqlDbType.DateTime).Value = FechaLlegada .Add("@CveEntregaAlmacen", SqlDbType.Int).Value = CveEntregaAlmacen .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa From d0f35ab3a166a3cf3d4eeb258d50c33e0e2c408b Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 18 Jul 2022 17:00:17 -0700 Subject: [PATCH 4/9] =?UTF-8?q?--=20timbrado=20n=C3=B3mina=204.0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/LogicNominas.vb | 13 +++++++------ App_Code/Timbrado.vb | 8 ++++---- 2 files changed, 11 insertions(+), 10 deletions(-) diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 8df3ed569..a7b7cb98b 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -28,7 +28,7 @@ Public Class LogicNominas ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero() ObjFactura.Serie = cfdi.Comprobante.Serie ObjFactura.Timbre = cfdi - If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, False) Then + If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC) Then Retorno = ObjTimbrado.MensajeErrorCFDI End If End If @@ -175,7 +175,7 @@ Public Class LogicNominas If continuar AndAlso objPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) AndAlso objPersonal.DtResultados.Rows.Count > 0 Then RFC = objPersonal.RFC cfdi.Emisor.RegistroPatronal = objPersonal.DtResultados.Rows(0)("RegistroPatronal").ToString() - NombreCompleto = objPersonal.NombreCompleto + NombreCompleto = String.Format("{0} {1} {2}", objPersonal.Nombres, objPersonal.APaterno, objPersonal.AMaterno) CodigoPostal = objPersonal.CP Sindicalizado = objPersonal.DtResultados.Rows(0)("Sindicalizado").ToString().ToUpper().Contiene("TRUE", "1") CURP = objPersonal.CURP @@ -318,7 +318,8 @@ Public Class LogicNominas cfdi.Emisor.CURP = UsuarioActual.Empresa.CURP End If cfdi.Nomina.CveNomina = CveNomina - cfdi.Receptor.UsoCFDI = "P01" + + cfdi.Receptor.UsoCFDI = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "CN01", "P01") cfdi.Receptor.RFC = RFC cfdi.Receptor.Nombre = NombreCompleto @@ -426,7 +427,7 @@ Public Class LogicNominas If ObjDeducciones IsNot Nothing AndAlso ObjDeducciones.Count > 0 Then cfdi.Nomina.Deducciones = ObjDeducciones - cfdi.Comprobante.Version = "3.3" + cfdi.Comprobante.Version = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "4.0", "3.3") cfdi.Comprobante.Serie = Serie cfdi.Comprobante.Folio = Folio cfdi.Comprobante.Fecha = Now @@ -439,7 +440,7 @@ Public Class LogicNominas cfdi.Comprobante.TipoDocto = "Egs" cfdi.Comprobante.MetodoPago = "PUE" cfdi.Comprobante.CondicionesdePago = "" '"CONTADO" - cfdi.Comprobante.FormadePago = "99" + cfdi.Comprobante.FormadePago = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "", "99") cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta '4.0 @@ -466,7 +467,7 @@ Public Class LogicNominas cfdi.Nomina.Receptor.Sindicalizado = If(Sindicalizado, "Si", "No") cfdi.Nomina.Receptor.CodigoEntidadFederativa = ClaveEstado - cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.Subtotal, .Importe = cfdi.Comprobante.Subtotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal()}) + cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.SubTotal, .Importe = cfdi.Comprobante.SubTotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal(), .ObjetoImpuesto = "01"}) If continuar Then diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index fa00d566c..de93de273 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -1192,7 +1192,7 @@ Public Class Timbrado Return Timbre End Function - Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1, Optional NomUsaPac4 As Boolean = True) As Boolean + Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1) As Boolean Dim Retorno As Boolean = False Dim tCvePAC As Integer = UsuarioActual.Empresa.CvePAC @@ -1228,7 +1228,7 @@ Public Class Timbrado Retorno = If(Ret = "", True, False) Case 3 - If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then Retorno = TimbrarFacturaProFactV40(UsuarioActual, Ventas) Else Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas) @@ -1236,7 +1236,7 @@ Public Class Timbrado 'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV) Case 4 - If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial) If Ret <> "" Then MensajeErrorCFDI = Ret Retorno = If(Ret = "", True, False) @@ -1248,7 +1248,7 @@ Public Class Timbrado Case 5 - If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial) If Ret <> "" Then MensajeErrorCFDI = Ret Retorno = If(Ret = "", True, False) From 951d291545cc50492d10c402b5f105792b48f9a0 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 18 Jul 2022 17:01:00 -0700 Subject: [PATCH 5/9] -- mejora carga excel --- Contabilidad/RegPrePolizaS.aspx.vb | 30 +++++++++++------------------- 1 file changed, 11 insertions(+), 19 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index eafc5dd0b..3965abdfb 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -817,6 +817,8 @@ Partial Class ContabilidadC_RegPrePolizaS GvMov.DataSource = DtMovimientos GvMov.DataBind() + GvPrePoliza.DataBind() ''limpio el grid + UpPrePoliza.Update() UPMovs.Update() End Sub @@ -982,9 +984,12 @@ Partial Class ContabilidadC_RegPrePolizaS FolioPoliza = ObjMov.FolioPoliza Dim Gv As GridView = GvMov - If DdlPlantilla.SelectedValue = "53" Then - Gv = GvPrePoliza - TipoGrid = 1 + If DdlPlantilla.SelectedValue = "53" OrElse GvPrePoliza.Visible = True Then + If GvPrePoliza.Rows.Count > 0 Then + Gv = GvPrePoliza + TipoGrid = 1 + End If + End If 'inserto las compras que voy a pagarDdlSaldos @@ -1164,10 +1169,6 @@ Partial Class ContabilidadC_RegPrePolizaS If row.FCCheckBox("chkModificado").Checked Then contador = contador + 1 - - - - Dim ImporteIE As Decimal = If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal) If row.DataKey("CveConceptoContable").ToEntero = 30 AndAlso ImporteIE > 0 AndAlso row.DataKey("CveIE").ToDecimal <= 0 Then @@ -1182,9 +1183,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If End If - - - If Not ObjContabilidad.UpdatePrePolizasDetalle(row.DataKey("CvePrePolizaDetalle").ToEntero, row.FCLiteral("TxtConcepto").Text, row.DataKey("CveSubProyecto").ToEntero, row.DataKey("IdCtaContable").ToEntero, If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, False, True), If(row.FCLiteral("TxtCargo").Text.ToDecimal <> 0, row.FCLiteral("TxtCargo").Text.ToDecimal, row.FCLiteral("TxtAbono").Text.ToDecimal), CveTipoGasto:=If(DdlTipoGasto.Visible, row.DataKey("CveTipoGasto").ToEntero, row.DataKey("CveTipoGasto").ToEntero), @@ -1242,7 +1240,7 @@ Partial Class ContabilidadC_RegPrePolizaS If Not OcurrioError Then If IdPoliza > 0 AndAlso contador Then - ' BtnContabilizar_Click(Nothing, Nothing) + Contabilizar() End If End If @@ -2304,7 +2302,6 @@ Partial Class ContabilidadC_RegPrePolizaS DdlPlantilla.SelectedValue = DdlPlantilla2.SelectedValue dt = ReadExcelFile(Ruta + FileName, True) - If Not ErrorArchivo Then If Not dt.Columns(0).ColumnName.ToUpper = "CONCEPTOADMINISTRATIVO" Then @@ -2512,6 +2509,8 @@ Partial Class ContabilidadC_RegPrePolizaS ContadorRegistros = ContadorRegistros + 1 Next + GvMov.DataBind() + divMovtos.Visible = False GvPrePoliza.DataSource = DtMovimientos GvPrePoliza.DataBind() UpPrePoliza.Update() @@ -2599,8 +2598,6 @@ Partial Class ContabilidadC_RegPrePolizaS Dim FolioManual As Integer = If(TxtFolio.Text.ToEntero > 0, TxtFolio.Text.ToEntero, -1) - - If ObjConta.ContabilizaDesContabilizaPrePoliza(CvePrePoliza, True, UsuarioActual.CveEmpresa, Folio:=FolioManual) Then Alert($"Contabilizado Correctamente Folio { ObjConta.ContaFolio.ToString()}.", TipoMensaje.MsgInformacion) @@ -2618,7 +2615,6 @@ Partial Class ContabilidadC_RegPrePolizaS Else - If IdPoliza > 0 Then 'si está bloqueada, lo desbloqueaprimero ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) End If @@ -2637,10 +2633,6 @@ Partial Class ContabilidadC_RegPrePolizaS End If - - - - ObjConta.Dispose() End Sub From 41f1b8448846a7a9a14ca3d17338438f1c216477 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 18 Jul 2022 17:01:17 -0700 Subject: [PATCH 6/9] visual --- Inventarios/EntradasSalidas.aspx | 7 ------- 1 file changed, 7 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 1ce8ec81e..a53253db2 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -1717,9 +1717,6 @@
- - -
@@ -1731,10 +1728,6 @@
- - - -
From 658e1731936d4062584d9386626ae072011c1c15 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 18 Jul 2022 17:01:39 -0700 Subject: [PATCH 7/9] acomodo visual --- Ventas/Clientes.aspx | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 410f079fb..fda9bb029 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -634,18 +634,21 @@
-
+
+
- -
+
+
+
+
From a7f0f922baf7c9bf87a7e371f3e3d3f0a1c62ae1 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 20 Jul 2022 07:04:00 -0700 Subject: [PATCH 8/9] --- App_Code/ClsNominas.vb | 8 ++++++++ App_Code/ClsRH.vb | 11 ++++++----- RH/Personal.aspx | 4 ++++ RH/Personal.aspx.vb | 5 +++-- vwd.webinfo | 2 ++ 5 files changed, 23 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 5239a3524..b9ce81522 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -353,6 +353,14 @@ Public Class ClsNominas Try SqlAdapter.Fill(DTSet) retorno = True + + Catch Ex1 As SqlException + If Ex1.Message.Contains("x50102;") Then + Alert("No se puede eliminar el finiquito ya que se encuentra vinculado a un periodo autorizado.", TipoMensaje.MsgAdvertencia) + GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al eliminar finiquito ", 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 el finiquito.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 1bdf423cc..b0d5a6a97 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2063,7 +2063,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1, - Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1) As Boolean + Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -2155,9 +2155,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte .Add("@EsReserva", SqlDbType.Int).Value = EsReserva - - - + .Add("@Fiscalizable", SqlDbType.Int).Value = Fiscalizable End With @@ -2583,7 +2581,10 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Retorno = True Catch Ex1 As SqlException If Ex1.Message.Contains("Número: 2627;") Then - Alert("Ya se registró la Asistencia del día " & Fecha & " para el empleado.", TipoMensaje.MsgAdvertencia) + Alert("Ya se registró la Asistencia del día " & Fecha & " para el empleado.", TipoMensaje.MsgAdvertencia) + ElseIf Ex1.Message.Contains("x50102;") Then + Alert("No se puede editar o agregar la asistencia ya que se encuentra vinculada a un periodo autorizado.", TipoMensaje.MsgAdvertencia) + GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ocurrió un error al editar o agregar la asistencia ", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())) Else Me.OnError("Ocurrió un error al guardar la Asistencia.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End If diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 3af11e247..6ef865e35 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -627,6 +627,10 @@
+
+ + +