From 6c440db08cfb681b91d8fc0df8450f21e915b1b0 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 May 2025 05:56:43 -0700 Subject: [PATCH 1/6] =?UTF-8?q?--=20mandar=20parametro=20de=20cr=C3=A9dito?= =?UTF-8?q?/contado=20en=20concepto=204,=20en=20prepolizasdetalle,=20cveco?= =?UTF-8?q?lectiva?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f1a0e6c53..4e80b42c6 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16054,6 +16054,7 @@ Partial Class Ventas Dim ConceptoContableAplicar As Integer = 4 Dim CveVentaAplicar As Integer = ObjFactura.CveVenta Dim CveVentaAmortizacionAplicar As Integer = -1 + Dim CondicionesPago As Integer = RBLPago.SelectedValue.ToEntero If ObjFactura.TipoDocto.Contiene("Egs") And DdlTipoComprobante.SelectedValue = "Ant" And CveDevolucion > 0 And NuevaFactura = 1 Then ConceptoContableAplicar = 11 @@ -16102,7 +16103,7 @@ Partial Class Ventas Next End If End If - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString().ToEntero(), CveSubProyecto:=Row2("CveSubProyecto").ToString().ToEntero(), ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal, CveColectiva:=CondicionesPago) Then ErrorPrepoliza = True Else ViewState("SeGuardoPrePoliza") = True From 89fdba710ecacbcf36a2d28612584545c893b52b Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 May 2025 09:13:28 -0700 Subject: [PATCH 2/6] -- monedas en ixc --- Ventas/ClientesAbonar.aspx.vb | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 216ca1ed8..11578c1be 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -815,11 +815,16 @@ Partial Class Ventas_ClientesAbonar If DtSaldo IsNot Nothing AndAlso DtSaldo.Rows.Count = 1 Then Dim ImporteRef As Decimal = DtSaldo.SUM("Saldo", $"CveIE={DdlIngreso.SelectedValue.ToEntero()}") + Dim tCveMonedaIE As Integer = DtSaldo.FiltroPrimeroValor("CveMoneda", "").ToEntero Dim ImporteAbonar As Decimal = 0 - + Dim TC As Decimal = 1 + 'comparativo. For Each gvr As GridViewRow In GvCxC.Rows If gvr.FCCheckBox("Chk").Checked Then - ImporteAbonar += gvr.FCTextBox("TxtAbonar").Text.ToDecimal() + TC = 1 + If tCveMonedaIE = 1 AndAlso gvr.DataKey("CveMoneda") = "2" Then TC = TxtTC.Text.ToDecimal + If tCveMonedaIE = 2 AndAlso gvr.DataKey("CveMoneda") = "1" Then TC = 1D / TxtTC.Text.ToDecimal + ImporteAbonar += (gvr.FCTextBox("TxtAbonar").Text.ToDecimal() * TC).RoundSQL(2) End If Next ImporteAbonar += TxtAnticipo.Text.ToDecimal() @@ -1067,10 +1072,10 @@ Partial Class Ventas_ClientesAbonar Pago.FechaDocumentoRelacionado = FechaIngreso Pago.CveClientePago = CveCliente End If - 'Tipos de cambio If Pago.CveMonedaPago = 1 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en Pesos Pago.TCPago = TxtTC.Text.ToDecimal + Pago.ImportePago = (Pago.ImportePago * Pago.TCPago).RoundSQL ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 2 Then 'Si la venta viene en Dolares y se va a pagar en DOLARES Pago.TCPago = If(TxtTCDolaresDolares.Visible, TxtTCDolaresDolares.Text.ToDecimal, TxtTCDolares.Text.ToDecimal) ElseIf Pago.CveMonedaPago = 2 AndAlso VentaActual.CveMoneda = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES From 92f29627a988c181dce54c3efb040f5a125e72cc Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 May 2025 09:13:44 -0700 Subject: [PATCH 3/6] -- globales con %Imp y colectiva --- Contabilidad/CatCuentasAsignaciones.aspx | 22 +++++++-- Contabilidad/CatCuentasAsignaciones.aspx.vb | 52 +++++++++++++++++++-- 2 files changed, 66 insertions(+), 8 deletions(-) diff --git a/Contabilidad/CatCuentasAsignaciones.aspx b/Contabilidad/CatCuentasAsignaciones.aspx index 01910855b..e64e0933e 100644 --- a/Contabilidad/CatCuentasAsignaciones.aspx +++ b/Contabilidad/CatCuentasAsignaciones.aspx @@ -103,7 +103,7 @@
@@ -111,7 +111,7 @@ - + @@ -238,7 +238,7 @@
- +
@@ -261,7 +261,21 @@ - + +
+
+
+ + +
+
+
+
+ + + +
+
diff --git a/Contabilidad/CatCuentasAsignaciones.aspx.vb b/Contabilidad/CatCuentasAsignaciones.aspx.vb index f708e4802..9096f48eb 100644 --- a/Contabilidad/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad/CatCuentasAsignaciones.aspx.vb @@ -203,7 +203,6 @@ Partial Class Contabilidad2_CatCuentasAsignaciones RegistraScript("$('#ModalCat').modal();") End If - End Sub Private Sub RecargaConcepto(CveConceptoContable As Integer) @@ -268,10 +267,13 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Dim ObjG As New ClsGenerales If ObjG.GetColectivas(UsuarioActual.CveEmpresa, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then DdlColectivas.DataSource = ObjG.DtResultados + DdlGlobalColectiva.DataSource = ObjG.DtResultados End If ObjG.Dispose() DdlColectivas.DataBind() + DdlGlobalColectiva.DataBind() DdlColectivas.Items.Insert(0, New ListItem("-", "-1")) + DdlGlobalColectiva.Items.Insert(0, New ListItem("-", "-1")) If OpAgregar Then DdlColectivas.Enabled = True @@ -303,8 +305,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Protected Sub EliminarRowGlobal(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim ObjConta As New ClsContabilidad - If ObjConta.RemoveCuentasGlobales(GvRow.DataKey("CveConceptoContable").ToEntero, GvRow.DataKey("CveEmpresa").ToEntero) Then - Alert("se elimino correctamente") + If ObjConta.RemoveCuentasGlobales(GvRow.DataKey("CveCuentaGlobal").ToEntero, GvRow.DataKey("CveEmpresa").ToEntero) Then + Alert("Se elimino correctamente") End If CargaDatosSistema() UpDatos.Update() @@ -401,7 +403,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Dim ErrorString As String = "" Dim ObjConta As New ClsContabilidad - If Not ObjConta.AddCuentasGlobales(DdlConceptoGlobal.SelectedValue.ToEntero, DdlCuentaGlobal.SelectedValue.ToEntero, DdlTipoGlobal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If Not ObjConta.AddCuentasGlobales(DdlConceptoGlobal.SelectedValue.ToEntero, DdlCuentaGlobal.SelectedValue.ToEntero, DdlTipoGlobal.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, TxtGlobalPorcentajeIVA.Text.ToDecimal, DdlGlobalColectiva.SelectedValue.ToEntero) Then ErrorString = "Error al agregar" End If ObjConta.Dispose() @@ -432,4 +434,46 @@ Partial Class Contabilidad2_CatCuentasAsignaciones ObjConta.Dispose() DdlCuentaGlobal.DataBind() End Sub + + Protected Sub DdlConceptoGlobal_SelectedIndexChanged(sender As Object, e As EventArgs) + RecargaConceptoGlobal(DdlConceptoGlobal.SelectedValue.ToEntero) + End Sub + + Private Sub RecargaConceptoGlobal(CveConceptoContable As Integer) + Dim Dr As DataRow = GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimero("") + + If Dr IsNot Nothing Then + + 'divCliente.Visible = Boolean.Parse(Dr("AplicaCliente").ToString) + 'divProveedor.Visible = Boolean.Parse(Dr("AplicaProveedor").ToString) + 'divPersonal.Visible = Boolean.Parse(Dr("AplicaPersonal").ToString) + divGlobalPorcentajeIVA.Visible = Boolean.Parse(Dr("AplicaImpuesto").ToString) + 'divClasificacion.Visible = Boolean.Parse(Dr("AplicaClasificacion").ToString) + 'divBancos.Visible = Boolean.Parse(Dr("AplicaBancos").ToString) + 'divAlmacen.Visible = Boolean.Parse(Dr("AplicaAlmacen").ToString) + 'divSubProyectos.Visible = Boolean.Parse(Dr("AplicaSubProyecto").ToString) + 'divActivoFijo.Visible = Boolean.Parse(Dr("AplicaActivoFijo").ToString) + 'divCredito.Visible = Boolean.Parse(Dr("AplicaCredito").ToString) + divGlobalColectiva.Visible = Boolean.Parse(Dr("AplicaColectiva").ToString) + + If Dr("AplicaColectiva").ToString = "True" Then + Dim dtt As DataTable = Nothing + Dim ObjG As New ClsGenerales + If ObjG.GetColectivas(UsuarioActual.CveEmpresa, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then + dtt = ObjG.DtResultados + End If + If ObjG.GetColectivas(0, CveConceptoContable:=DdlCconceptosContables.SelectedValue.ToEntero) Then + dtt.Merge(ObjG.DtResultados) + End If + DdlGlobalColectiva.DataSource = dtt + ObjG.Dispose() + + DdlGlobalColectiva.DataBind() + DdlGlobalColectiva.Items.Insert(0, New ListItem("-", "-1")) + DdlGlobalColectiva.Enabled = True + + End If + End If + + End Sub End Class From 82d05bbe512afbd940021adb794cf8ac942ba1bf Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 May 2025 09:13:54 -0700 Subject: [PATCH 4/6] - --- Inventarios/EntradasSalidas.aspx.vb | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index e8976f18d..56cf628f4 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -2139,14 +2139,12 @@ Partial Class Inventarios_EntradasSalidas Dim CveClasificacion As Integer = -1 Select Case DdlConcepto.SelectedValue.ToEntero Case 2, 32 + EsContabilizable = True + Case 28 CveConceptoContable = 78 EsContabilizable = True - Case 28, 31 + Case 31 CveConceptoContable = 290 - If DdlConcepto.SelectedValue.ToEntero = 28 Then - ''cuando es 28, es otros ingresos.78 - CveConceptoContable = 78 - End If EsContabilizable = True Case 30 CveConceptoContable = 181 From a2bd8965f1897ec86b0d3fd12fd5a0a986840dff Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 May 2025 19:30:40 -0700 Subject: [PATCH 5/6] -- mandar la colectiva --- App_Code/Modelos.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index e0251b3d1..e7aa74343 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -3924,6 +3924,7 @@ Namespace Modelos DT = TmpDTDetalle.FiltraParametros($"CvePS <> {ObjFactura.CvePSAmortizacion}", "", {"CveClasificacion", "CveSubProyecto", "PorcentajeIVA"}) If DT.Rows.Count > 0 Then + Dim CondicionesPago As Integer = If(ObjFactura.CondicionesPago = 0, 2, ObjFactura.CondicionesPago) 'Se agrega movimiento separado por la cuenta de ventas (ER) For Each Row2 As DataRow In DT.Rows importeMovimiento = ((TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} AND CveSubProyecto = {1} AND PorcentajeIVA = {2}", Row2("CveClasificacion"), Row2("CveSubProyecto"), Row2("PorcentajeIVA"))).ToString.ToDecimal) * ValorMultiplicador) @@ -3934,7 +3935,7 @@ Namespace Modelos If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" 'Nota cuando es Nota de crédiot, debe de tomar el devoluciones y rebajas If importeMovimiento <> 0 Then - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, importeMX, ConceptoContableAplicar, Referencia, Concepto, CveVenta:=CveVentaAplicar, CveVentaAmortizacion:=CveVentaAmortizacionAplicar, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, CveClasificacion:=Row2("CveClasificacion").ToString.ToEntero, CveSubProyecto:=Row2("CveSubProyecto").ToString.ToEntero, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), TipoCambio:=tipoCambio, PorcentajeImpuesto:=Row2("PorcentajeIVA").ToString().ToDecimal, CveColectiva:=CondicionesPago) Then ErrorPrepoliza = True Else ObjFactura.SeGuardoPrePoliza = True From 4db03c7c65923c912cba06ac97dfcf3d45c18d31 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 6 May 2025 19:32:10 -0700 Subject: [PATCH 6/6] -- ver todos los regimenes de inicio --- Nomina/Nomina.aspx | 2 +- Nomina/Nomina.aspx.cs | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index e2b86eaf9..81e414268 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -444,7 +444,7 @@ - +
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 4d27e3f08..6f96841c4 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -440,6 +440,9 @@ public partial class Nomina_Nomina2 : ClsPaginas DdlBanco.DataSource = GlobalDTNomSatBancos; DdlBanco.DataBind(); + + if(UsuarioActual.CveEmpresa == 119) DdlRegimenContratacion.SelectedValue = "1"; + //Permisos if (UsuarioActual.TienePermisoProceso(82)) {