From fab3e90b576441b1df73a54d10dd3e1620678473 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 13 Feb 2023 05:50:59 -0700 Subject: [PATCH 01/10] concepto,Turno --- App_Code/ClsNominas.vb | 22 +++++- App_Code/ClsRH.vb | 21 +++++- Nomina/ConceptoNomina.aspx | 137 +++++++++++++++++----------------- Nomina/ConceptoNomina.aspx.cs | 40 +++++++++- RH/CatTurno.aspx | 27 ++++++- RH/CatTurno.aspx.vb | 45 ++++++----- 6 files changed, 194 insertions(+), 98 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 2308f3c28..d187b5980 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -1,5 +1,6 @@ Imports System.Data Imports System.Data.SqlClient +Imports ADSNetLibrary.SIGAPI.Models Imports Extensiones Imports HigLabo @@ -1356,7 +1357,8 @@ Public Class ClsNominas Public Function AddConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer, - AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer) As Integer + AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, + ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, IdCtaContableB As Integer, CveCuentaB As Integer) As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Nom_ConceptosAdd") @@ -1383,6 +1385,14 @@ Public Class ClsNominas .Add("Especie", SqlDbType.Bit).Value = Especie .Add("Imprimir", SqlDbType.Bit).Value = Imprimir .Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto + + .Add("CtaImporteNegativoProv", SqlDbType.Int).Value = ctaImporteNegativoProv + .Add("Contabiliza", SqlDbType.Int).Value = contabiliza + .Add("CargoOAbono", SqlDbType.Int).Value = CargoOAbono + .Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB + .Add("IdCtaContableB", SqlDbType.Int).Value = IdCtaContableB + .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB + End With Try @@ -1407,7 +1417,8 @@ Public Class ClsNominas Public Function UpdateConcepto(Codigo As String, Concepto As String, Tipo As String, Formula As String, Sistema As Boolean, Estado As Boolean, CveConceptoPadre As Integer, CveConcepto As Integer, EsRetencion As Boolean, CveClasificacion As Integer, IdCtaContable As Integer, CveTipoGasto As Integer, TipoCalculo As Boolean, CveConceptoContable As Integer, - AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer) As Boolean + AplicaFiniquito As Integer, AutomaticoGlobal As Integer, Especie As Integer, Imprimir As Integer, CveSATConcepto As Integer, CveEmpresa As Integer, + ctaImporteNegativoProv As Integer, contabiliza As Integer, CargoOAbono As Integer, cveConceptoContableB As Integer, IdCtaContableB As Integer, CveCuentaB As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_ConceptosUpdate") @@ -1433,6 +1444,13 @@ Public Class ClsNominas .Add("Imprimir", SqlDbType.Bit).Value = Imprimir .Add("CveSATConcepto", SqlDbType.Int).Value = CveSATConcepto .Add("CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + .Add("CtaImporteNegativoProv", SqlDbType.Int).Value = ctaImporteNegativoProv + .Add("Contabiliza", SqlDbType.Int).Value = contabiliza + .Add("CargoOAbono", SqlDbType.Int).Value = CargoOAbono + .Add("CveConceptoContableB", SqlDbType.Int).Value = cveConceptoContableB + .Add("IdCtaContableB", SqlDbType.Int).Value = IdCtaContableB + .Add("CveCuentaB", SqlDbType.Int).Value = CveCuentaB End With Try diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index c516288de..9e98ac57a 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -3520,9 +3520,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo #End Region #Region "ClsRHTurnos" - Public Function GetTurnos() As Boolean + Public Function GetTurnos(Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_TurnoGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With Try SqlAdapter.Fill(Data) Retorno = True @@ -3533,7 +3536,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function Public Function AddTurno(Turno As String, HorarioDe As String, HorarioA As String, CveUsuario As Integer, CveEmpresa As Integer, CveChecadorHorario As Integer, - ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer) As Boolean + ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer, + Comida As Integer, ComidaDe As String, ComidaA As String) As Boolean Dim Retorno As Boolean = False @@ -3543,6 +3547,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@Turno", SqlDbType.VarChar).Value = Turno .Add("@HorarioDe", SqlDbType.Time).Value = HorarioDe .Add("@HorarioA", SqlDbType.Time).Value = HorarioA + + .Add("@Comida", SqlDbType.Int).Value = Comida + .Add("@ComidaDe", SqlDbType.Time).Value = ComidaDe + .Add("@ComidaA", SqlDbType.Time).Value = ComidaA + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveChecadorHorario", SqlDbType.Int).Value = CveChecadorHorario @@ -3568,7 +3577,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function Public Function UpdateTurno(Turno As String, HorarioDe As String, HorarioA As String, Estatus As Boolean, CveTurno As Integer, CveUsuario As Integer, CveChecadorHorario As Integer, - ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer) As Boolean + ToleranciaERetardo As Integer, ToleranciaEFalta As Integer, ToleranciaSRetardo As Integer, ToleranciaSFalta As Integer, + Comida As Integer, ComidaDe As String, ComidaA As String) As Boolean Dim Retorno As Boolean = False @@ -3578,6 +3588,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@Turno", SqlDbType.VarChar).Value = Turno .Add("@HorarioDe", SqlDbType.Time).Value = HorarioDe .Add("@HorarioA", SqlDbType.Time).Value = HorarioA + + .Add("@Comida", SqlDbType.Int).Value = Comida + .Add("@ComidaDe", SqlDbType.Time).Value = ComidaDe + .Add("@ComidaA", SqlDbType.Time).Value = ComidaA + .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@CveTurno", SqlDbType.Int).Value = CveTurno .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario diff --git a/Nomina/ConceptoNomina.aspx b/Nomina/ConceptoNomina.aspx index d469c80ac..d2db06b9e 100644 --- a/Nomina/ConceptoNomina.aspx +++ b/Nomina/ConceptoNomina.aspx @@ -171,20 +171,20 @@
-
+
-
- - +
+ +
-
+
-
-
-
- - Provisión -
-
-
-
-
-
-
- -
-
-
- -
-
-
- - - - - + + +
+
+
+ + Provisión del concepto +
+
+ +
+ +
-
-
- -
-
- - + + +
+
+
+ + +
+
+
+
+ + +
+
-
-
-
- - - - - +
+
+
+ + + + + +
+
+
+ + +
-
-
-
-
-
- - -
-
-
+ +
+
+ + +
+
+
+
+ + +
+
+ <%--
- - + +
-
+
--%> + +
-
-
- + +
diff --git a/Nomina/ConceptoNomina.aspx.cs b/Nomina/ConceptoNomina.aspx.cs index c71b007ca..a77ff6052 100644 --- a/Nomina/ConceptoNomina.aspx.cs +++ b/Nomina/ConceptoNomina.aspx.cs @@ -1,5 +1,6 @@ using Extensiones; using System; +using System.Activities.Expressions; using System.Collections.Generic; using System.Data; using System.Linq; @@ -75,6 +76,8 @@ public partial class Nomina_CatConcepto : ClsPaginas tree_Tables(); InicializaDatos(); } + DivCtasProvision.Visible = ChkContabiliza.Checked; + Divctasnegativas.Visible = chkCtaImporteNegativoProv.Checked; } #region Arboles conceptos @@ -226,6 +229,11 @@ public partial class Nomina_CatConcepto : ClsPaginas DdlConceptoContable.DataBind(); DdlConceptoContable.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlConceptoContable.SelectedValueExist("-1"); + + DdlConceptoContableB.DataSource = get_GlobalDTContaConceptosContables(-1); + DdlConceptoContableB.DataBind(); + DdlConceptoContableB.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlConceptoContableB.SelectedValueExist("-1"); } protected void CargaClasificacion() { @@ -260,6 +268,7 @@ public partial class Nomina_CatConcepto : ClsPaginas if (UsuarioActual.Empresa.TipoContabilidad == 2) { DdlCtaContable.DataValueField = "Id"; + DdlCtaContableB.DataValueField = "Id"; using (ClsContPAQi ObjConta = new ClsContPAQi(UsuarioActual.Empresa)) { @@ -267,11 +276,15 @@ public partial class Nomina_CatConcepto : ClsPaginas { DdlCtaContable.DataSource = ObjConta.DtResultados; DdlCtaContable.DataBind(); + DdlCtaContableB.DataSource = ObjConta.DtResultados; + DdlCtaContableB.DataBind(); } } DdlCtaContable.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlCtaContable.SelectedValueExist("-1"); + DdlCtaContableB.Items.Insert(0, new ListItem("Seleccione", "-1")); + DdlCtaContableB.SelectedValueExist("-1"); } else { @@ -331,6 +344,15 @@ public partial class Nomina_CatConcepto : ClsPaginas int Especie = ChkEspecie.Checked ? 1 : 0; int Imprimir = ChkImprimir.Checked ? 1 : 0; int CveSATConcepto = DdlConceptoSAT.SelectedValue.ToEntero(); + + + int ctaImporteNegativoProv = (chkCtaImporteNegativoProv.Checked ? 1 : 0); + int contabiliza = (ChkContabiliza.Checked ? 1 : 0); + int CargoOAbono = ddlCargooAbono.SelectedValue.ToEntero(); + int cveConceptoContableB = DdlConceptoContableB.SelectedValue.ToEntero(); + int IdCtaContableB = (DdlCtaContableB.DataValueField == "Id" ? DdlCtaContableB.SelectedValue.ToEntero() : 0); + int CveCuentaB = (DdlCtaContableB.DataValueField == "Id" ? 0 : DdlCtaContableB.SelectedValue.ToEntero()); + ClsNominas ObjNomina = new ClsNominas(); ObjNomina.IniciaTransacSQL(); @@ -338,7 +360,9 @@ public partial class Nomina_CatConcepto : ClsPaginas if (EsEditar) { - TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto, UsuarioActual.CveEmpresa); + TieneError = !ObjNomina.UpdateConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, CveConcepto, retencion, CveClasificacion, + IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto, + UsuarioActual.CveEmpresa, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB , IdCtaContableB , CveCuentaB); if (!TieneError) { @@ -368,7 +392,9 @@ public partial class Nomina_CatConcepto : ClsPaginas } else { - CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, CveSATConcepto); + CveConcepto = ObjNomina.AddConcepto(codigo, concepto, tipo, formula, sistema, estado, CveConceptoPadre, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, + retencion, CveClasificacion, IdCtaContable, CveTipoGasto, tipoCalculo, CveConceptoContable, AplicaFiniquito, AutomaticoGlobal, Especie, Imprimir, + CveSATConcepto, ctaImporteNegativoProv, contabiliza, CargoOAbono, cveConceptoContableB, IdCtaContableB, CveCuentaB); @@ -460,19 +486,21 @@ public partial class Nomina_CatConcepto : ClsPaginas if (drow["TipoCalculo"].Equals("True")) ChkTipoCalculo.Checked = true; DdlConceptoPadre.SelectedValueExist(drow["CveConceptoPadre"]); DdlConceptoContable.SelectedValueExist(drow["CveConceptoContable"]); + DdlConceptoContableB.SelectedValueExist(drow["CveConceptoContableB"]); ChkEstado.Checked = drow["Estado"].Equals("Activo"); ChkSistema.Checked = drow["Sistema"].Equals("Sí"); ChkAutomaticoLiquidacion.Checked = drow["AplicaFiniquito"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkContabiliza.Checked = drow["Contabiliza"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); + chkCtaImporteNegativoProv.Checked = drow["CtaImporteNegativoProv"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkAutomaticoGlobal.Checked = drow["AutomaticoGlobal"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkEspecie.Checked = drow["Especie"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); ChkImprimir.Checked = drow["Imprimir"].ToString().ToUpper().Contiene(new string[] { "1", "TRUE" }); DdlClasificacion.SelectedValueExist(drow["CveClasificacion"]); - DdlTipoProvision.SelectedValueExist(drow["TipoProvision"]); + //DdlTipoProvision.SelectedValueExist(drow["TipoProvision"]); ddlCargooAbono.SelectedValueExist(drow["CargoOAbono"]); - ddlCargooAbonoB.SelectedValueExist(drow["CargoOAbonoB"]); + //ddlCargooAbonoB.SelectedValueExist(drow["CargoOAbonoB"]); DdlTipoGasto.SelectedValueExist(drow["CveTipoGasto"]); //DdlCtaContable.SelectedValueExist(drow["CveCuenta"]); if (DdlCtaContable.DataValueField == "Id") @@ -491,6 +519,10 @@ public partial class Nomina_CatConcepto : ClsPaginas { DdlCtaContableB.SelectedValueExist(drow["CveCuentaB"]); } + if (ChkContabiliza.Checked && (DdlCtaContable.SelectedValue.ToEntero() <= 0 || (chkCtaImporteNegativoProv.Checked && DdlCtaContableB.SelectedValue.ToEntero() <= 0))) + { + Alert("el concepto esta marcado como contabilizable pero no estan asignadas correctamente las cuentas.", ModExtensiones.TipoMensaje.MsgAdvertencia); + } //if (UsuarioActual.Empresa.TipoContabilidad == 1) //{ //} diff --git a/RH/CatTurno.aspx b/RH/CatTurno.aspx index e1ca00d75..cbd930149 100644 --- a/RH/CatTurno.aspx +++ b/RH/CatTurno.aspx @@ -47,7 +47,7 @@ + DataKeyNames="CveTurno,Turno,CveChecadorHorario,HorarioDe,HorarioA,Comida,ComidaDe,ComidaA,Estatus,FechaIng,CveUsuario,CveEmpresa,Usuario,ChecadorHorario,ToleranciaERetardo,ToleranciaEFalta,ToleranciaEFalta2,ToleranciaSRetardo,ToleranciaSFalta"> <%----%> @@ -125,6 +125,31 @@
+ + +
+ + +
+
+ + + + + + + +
+ +
+ + + + + + + +
diff --git a/RH/CatTurno.aspx.vb b/RH/CatTurno.aspx.vb index 6b51584dc..7fe9ebd7a 100644 --- a/RH/CatTurno.aspx.vb +++ b/RH/CatTurno.aspx.vb @@ -27,7 +27,7 @@ Partial Class RH_CatTurno End Sub Private Sub CargaDatos() Dim ObjRH As New ClsRH() - If ObjRH.GetTurnos Then + If ObjRH.GetTurnos(UsuarioActual.CveEmpresa) Then GvTurno.DataSource = ObjRH.DtResultados.FiltraParametros(" CveEmpresa =" & UsuarioActual.CveEmpresa) GvTurno.DataBind() End If @@ -36,26 +36,28 @@ Partial Class RH_CatTurno End Sub Private Sub BtnAgregarTurno_Click(sender As Object, e As EventArgs) Handles BtnAgregarTurno.Click - Dim ObjRH As New ClsRH - Dim Estatus As Boolean = False - If ChkEstatus.Checked Then Estatus = True - If HdnModalidad.Value = "A" Then - If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(), - TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero()) Then - CargaDatos() - CargaGlobalDTTurno() - Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) + Using ObjRH As New ClsRH + Dim Estatus As Boolean = False + Dim comida As Integer = If(chkComida.Checked, 1, 0) + If ChkEstatus.Checked Then Estatus = True + If HdnModalidad.Value = "A" Then + If ObjRH.AddTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlChecadorHorario.SelectedValue.ToEntero(), + TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text) Then + CargaDatos() + CargaGlobalDTTurno() + Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) + End If + ElseIf HdnModalidad.Value = "U" Then + If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(), + TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero(), comida, TxtComidade.Text, TxtComidaA.Text) Then + CargaDatos() + CargaGlobalDTTurno() + Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) + End If End If - ElseIf HdnModalidad.Value = "U" Then - If ObjRH.UpdateTurno(TxtTurno.Text, TxtHorarioDe.Text, TxtHorarioA.Text, Estatus, HdnID.Value.ToEntero(), UsuarioActual.CveUsuario, DdlChecadorHorario.SelectedValue.ToEntero(), - TxtRetardo.Text.ToEntero(), TxtFretardo.Text.ToEntero() - TxtRetardo.Text.ToEntero(), 0, TxtFsalida.Text.ToEntero()) Then - CargaDatos() - CargaGlobalDTTurno() - Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) - End If - End If + + End Using RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddTurno")) - ObjRH.Dispose() UpDatos.Update() End Sub @@ -75,6 +77,11 @@ Partial Class RH_CatTurno TxtFretardo.Text = (GvRow.DataKey("ToleranciaEFalta2").ToEntero()).ToString() TxtFsalida.Text = GvRow.DataKey("ToleranciaSFalta") ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) + chkComida.Checked = (GvRow.DataKey("Comida") = "1") + TxtComidade.Text = GvRow.DataKey("ComidaDe") + TxtComidaA.Text = GvRow.DataKey("ComidaA") + + UpAddTurno.Update() 'CargaGlobalDTTurno() From c6b4c0680aff0a04903c4ba6546d328b38a3591d Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Mon, 13 Feb 2023 08:11:24 -0700 Subject: [PATCH 02/10] Oc ajustes mensaje oc con almacen --- OC/OC.aspx.vb | 4 ---- 1 file changed, 4 deletions(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 959542ab0..9d01b0ed8 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -930,17 +930,13 @@ Partial Class OC_OC Private Sub ValidaCancelacionConAlamcen() - ' BtnCancelarPrevio.Visible = True - ' BtnCancelarPrevio.Enabled = True If BtnCancelarPrevio.Visible AndAlso BtnCancelarPrevio.Enabled And GVInv.Rows.Count > 0 Then - 'BtnCancelarPrevio.Attributes.Remove("onclick") BtnCancelarPrevio.Attributes.Add("Data-toggle", "tooltip") BtnCancelarPrevio.Attributes.Add("Title", "La orden de compra no se puede cancelar porque tiene movimientos de almacén.") BtnCancelarPrevio.OnClientClick = "return false;" - 'BtnCancelarPrevio.Attributes.Add("onclick", "$('#DivCancelarCompra').modal('hide')") End If From 81ce67586c6daa6c1bf936aec736433cc1047260 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Mon, 13 Feb 2023 08:19:25 -0700 Subject: [PATCH 03/10] Se comenta linea 183 CargaSubProyecto --- Ventas/RepVentaDetalle.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 9ee1483a7..e8ba3f14d 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -180,7 +180,7 @@ Partial Class RepVentaDetalle DdlCondicionesPago.SelectedValueExist(CveCondicionesPago) DdlProyecto.SelectedValueExist(CveProyecto) - If DivProyecto.Visible Then CargaSubProyecto() + 'If DivProyecto.Visible Then CargaSubProyecto() DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto) DdlSubProyectoEjecucion.SelectedValueExist(CveSubProyectoEjecucion) DdlVendedor.SelectedValuesIfExistM(CveVendedor) From e3e64ce00d46ac6f05f90096418f74bed22f9f75 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 13 Feb 2023 09:12:07 -0700 Subject: [PATCH 04/10] --- Contabilidad2/MovimientosconProveedores.aspx.vb | 2 +- Nomina/ReportePTU.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Contabilidad2/MovimientosconProveedores.aspx.vb b/Contabilidad2/MovimientosconProveedores.aspx.vb index a4d29fda1..3f990190e 100644 --- a/Contabilidad2/MovimientosconProveedores.aspx.vb +++ b/Contabilidad2/MovimientosconProveedores.aspx.vb @@ -54,7 +54,7 @@ Partial Class MovimientosconProveedores End Property Private Property CveSubProyecto As Integer Get - CveSubProyecto = ViewState("CveSubProyecto").ToString + CveSubProyecto = ViewState("CveSubProyecto").ToString().ToEntero() End Get Set(value As Integer) ViewState("CveSubProyecto") = value diff --git a/Nomina/ReportePTU.aspx.vb b/Nomina/ReportePTU.aspx.vb index e41cef5ff..5fbbcfe24 100644 --- a/Nomina/ReportePTU.aspx.vb +++ b/Nomina/ReportePTU.aspx.vb @@ -156,7 +156,7 @@ Partial Class Nomina_ReportePTU If Not IsNothing(rowc) Then CveConcepto = rowc("CveConcepto").ToString().ToEntero() Else - CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0) + CveConcepto = objNomina.AddConcepto("PTU", "Utilidades", "P", "", True, True, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, -1, -1, -1, 0, -1, 0, 0, 0, 0, 0, -1, 1, -1, -1, -1, -1) End If If CveConcepto < 1 Then continuar = False From 2c67f8ba0211f0ce13e8f9a3f0536ecd7402026e Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 13 Feb 2023 10:16:04 -0700 Subject: [PATCH 05/10] Refacturacion de facturas no timbradas --- App_Code/Modelos.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 47d5bf7b6..5e0d0eaea 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -5031,7 +5031,7 @@ Namespace Modelos 'SI YA ESTA TIMBRADA, NUEVO PROCESO REFACTURACION, ASIGNA LA CANCELACION PENDIENTE 'EL ESTATUS REFACTURACION 4 ES PARA LAS QUE NO SE PUDIERON CANCELAR, DEBE OBLIGAR A CANCELAR ANTE EL SAT - If EsRefacturacion AndAlso Me.CveEstatusFactura = 3 AndAlso CveMotivoCancelacion > 0 AndAlso CveEstatusRefacturacion <> 4 Then + If EsRefacturacion AndAlso Me.CveEstatusFactura.Contiene(2, 3) AndAlso CveMotivoCancelacion > 0 AndAlso CveEstatusRefacturacion <> 4 Then CveEstatusFacturaAsignado = 23 End If From 1d7ab74791f4aa66be4bea57037eb25925fc7abc Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 13 Feb 2023 10:16:38 -0700 Subject: [PATCH 06/10] Aplicacion de NC concepto 294 --- Ventas/Ventas.aspx.vb | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9a0ea378f..85d999ca5 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -13939,7 +13939,10 @@ Partial Class Ventas Dim ImporteConcepto12 As Decimal = 0 Dim ImporteAcumulado91 As Decimal = 0 Dim CveUltimaVenta As Integer = 0 - If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + If tipoCambio > 1 Then + Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + ConceptoContable = 293 + End If If tipoCambio = 1 Then IdCtaContable = ObjFactura.Cliente.IdCtaContClientes ElseIf UsaComplementariaClientes Then @@ -14054,7 +14057,13 @@ Partial Class Ventas Exit For End If End If - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, 91, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString().ToEntero(), ImporteMX:=ImporteMN91, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then + Dim CveConceptoAplicacionNC As Integer = 91 + 'SI LA NOTA DE CREDITO ES EN MONEDA EXTRANGERA UTILIZAR EL CONCEPTO DE APLICACION ME + If ConceptoContable = 293 Then + CveConceptoAplicacionNC = 294 + End If + + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, False, Importe91, Referencia, CveConceptoAplicacionNC, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveVentaAmortizacion:=Dr("CveVenta").ToString().ToEntero(), ImporteMX:=ImporteMN91, ImporteME:=If(tipoCambio = 1, 0, Importe91), CveSubProyecto:=CveSubProyectoContabilizar, TipoCambio:=tipoCambio) Then ErrorPrepoliza = True Exit For End If From ad00d309cb9bcf8331a98217702ff2cdbbd8ddef Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 13 Feb 2023 10:17:32 -0700 Subject: [PATCH 07/10] EMD. Aprovechar mas espacion en RDLC de factura --- Empresas/13/Formatos/Factura.rdlc | 699 +++++++++++++++--------------- 1 file changed, 357 insertions(+), 342 deletions(-) diff --git a/Empresas/13/Formatos/Factura.rdlc b/Empresas/13/Formatos/Factura.rdlc index a096913df..cae98ad77 100644 --- a/Empresas/13/Formatos/Factura.rdlc +++ b/Empresas/13/Formatos/Factura.rdlc @@ -1044,6 +1044,7 @@ true + true true @@ -1060,9 +1061,9 @@ Textbox1 - 7.70772cm - 14.63922cm - 0.54708cm + 8.26648cm + 14.6392cm + 0.34478cm 5.65062cm 5 - - External - =Parameters!QR.Value - FitProportional - 3.05943in - 0.13977in - 0.68104in - 0.78032in - 30 - - - - - - true - true - - - - - Serie del Certificado del Emisor - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Folio Fiscal - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - No. de Serie del Certificado de l SAT - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - Fecha y Hora de Certificación - - - - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!CertificadoContribuyente.Value - - - - - - - Textbox2 - 7.89591cm - 8.37312cm - 0.35889cm - 5.62289cm - 35 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FolioFiscal.Value - - - - - - - Textbox2 - 8.29008cm - 8.37312cm - 0.40122cm - 5.62289cm - 36 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!SerieCertificadoSAT.Value - - - - - - - Textbox2 - 8.72658cm - 8.37312cm - 0.3536cm - 5.62289cm - 37 - - - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - =Parameters!FechaCertificacion.Value - - - - - - - Textbox2 - 9.12251cm - 8.37312cm - 0.31479cm - 5.62289cm - 38 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2494,11 +2200,11 @@ Textbox19 - 3.26381in + 3.39026in 14.1724cm - 0.47666in + 0.13921in 2.40844in - 39 + 30 @@ -2615,11 +2321,11 @@ Textbox19 - 4.24278in - 0.10195in + 4.2506in + 0.05612in 0.1296in 7.86825in - 42 + 33 @@ -2693,11 +2399,11 @@ Textbox19 - 4.55448in - 0.09839in + 4.5498in + 0.05256in 0.11805in 7.86825in - 44 + 35 @@ -3204,10 +2910,10 @@ true - 12.06599cm + 11.9011cm 1.93497cm 20.28984cm - 46 + 37 =Microsoft.VisualBasic.Interaction.IIF(First(Fields!SerieFolio.Value, "DataSet4") <> "", False, True) @@ -3378,10 +3084,10 @@ true - 5.71625cm + 5.65275cm 1.2341cm 20.2229cm - 47 + 38 = Not iif(IsNothing(Parameters!TieneCartaPorte), True, iif(Parameters!TieneCartaPorte.Value , True, False)) @@ -3416,7 +3122,7 @@ 10.5005cm 0.17222in 0.82757in - 48 + 39 + + + + External + =Parameters!QR.Value + FitProportional + 0.06848in + 0.0372in + 0.51336in + 0.79074in + + + + + + true + true + + + + + Serie del Certificado del Emisor + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Folio Fiscal + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + No. de Serie del Certificado de l SAT + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha y Hora de Certificación + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!CertificadoContribuyente.Value + + + + + + + Textbox2 + 0cm + 8.1126cm + 0.35889cm + 5.62289cm + 5 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FolioFiscal.Value + + + + + + + Textbox2 + 0.39417cm + 8.1126cm + 0.33067cm + 5.62289cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!SerieCertificadoSAT.Value + + + + + + + Textbox2 + 0.76717cm + 8.1126cm + 0.3536cm + 5.62289cm + 7 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaCertificacion.Value + + + + + + + Textbox2 + 1.1631cm + 8.1126cm + 0.31479cm + 5.62289cm + 8 + + + 2pt + 2pt + 2pt + 2pt + + + + true + 7.84409cm + 0.19628cm + 1.6525cm + 13.9708cm + 41 + + + + - 14.00096cm + 13.83608cm