From 9868300d9470187000772697a50c0a7e63f6875a Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 10 Jul 2021 11:54:48 -0700 Subject: [PATCH 01/11] mejora en manejo de bancos --- Contabilidad/RegPrePolizaS.aspx | 2 +- Contabilidad/RegPrePolizaS.aspx.vb | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index f579a6d2d..d151c81df 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -341,7 +341,7 @@
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 706b97522..9378df66c 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -869,9 +869,9 @@ Partial Class ContabilidadC_RegPrePolizaS End If For Each Gvr As GridViewRow In GvMov.Rows - If Gvr.DataKey("CveConceptoContable") = "30" AndAlso Gvr.FCTextBox("TxtCargo").Text.ToDecimal <> 0 Then 'si es movimietno de bancos, y tiene cantidad, deben de especificarse los datos del IE + If Gvr.DataKey("CveConceptoContable") = "30" AndAlso (Gvr.FCTextBox("TxtCargo").Text.ToDecimal <> 0 OrElse Gvr.FCTextBox("TxtAbono").Text.ToDecimal <> 0) Then 'si es movimietno de bancos, y tiene cantidad, deben de especificarse los datos del IE If Gvr.DataKey("ContadoCuenta").ToEntero = 0 OrElse Gvr.DataKey("ContadoTipoTransaccion").ToEntero = 0 Then - Alert($"La suma de los movimientos no son iguales ({TotalCargos}-{TotalAbonos})", TipoMensaje.MsgAdvertencia) + Alert("No se han especificado las condiciones de pago ", TipoMensaje.MsgAdvertencia) Exit Sub End If End If From 1ef0a28d4cd3f43a1ceafb22e6e5fb92c244e1f4 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 10 Jul 2021 18:45:43 -0700 Subject: [PATCH 02/11] =?UTF-8?q?-=20validaci=C3=B3n=20del=20permiso=20de?= =?UTF-8?q?=20=20reporte=20diario?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/RepPS.aspx | 2 +- Ventas/RepPS.aspx.vb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/Ventas/RepPS.aspx b/Ventas/RepPS.aspx index 48d0adee4..799e44502 100644 --- a/Ventas/RepPS.aspx +++ b/Ventas/RepPS.aspx @@ -68,7 +68,7 @@ Excel
  • - Reporte Diario + Reporte Diario
    • diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb index 01cb8f2ba..47208fa02 100644 --- a/Ventas/RepPS.aspx.vb +++ b/Ventas/RepPS.aspx.vb @@ -36,7 +36,7 @@ Partial Class Ventas_RepPS 'DdlMarca.Items.Insert(0, New ListItem("Todos", "-1")) End If - If UsuarioActual.TienePermisoProceso(320) OrElse UsuarioActual.CveRol = 1 Then + If UsuarioActual.TienePermisoProceso(320) Then HLReporteDiario.Visible = True End If From 0bcbb73548ce247b96d6ae377c9556b0820a4e23 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 12 Jul 2021 13:33:11 -0700 Subject: [PATCH 03/11] - se activaron los almacen de capital humano --- Inventarios/AjustesSeccionAlmacen.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb index 6f34af016..9b4bbe96c 100644 --- a/Inventarios/AjustesSeccionAlmacen.aspx.vb +++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb @@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen End Sub Private Sub CargaCombos() - Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,2,12,14,16, 26)") + Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,2,12,14,16,19, 26)") DdlAlmacen.DataSource = DtAlmacenes DdlAlmacen.DataBind() From d261055ef801897c291a1a9560dd72daa282dfd8 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 12 Jul 2021 13:33:44 -0700 Subject: [PATCH 04/11] -- mejora --- Contabilidad/RegPrePolizaS.aspx | 8 ++++---- Contabilidad/RegPrePolizaS.aspx.vb | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index d151c81df..1fc134068 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -98,10 +98,10 @@
    - -
    -
    - + +
    +
    + diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 9378df66c..47c048b72 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -914,7 +914,7 @@ Partial Class ContabilidadC_RegPrePolizaS 'End If 'Registra movimieno bancario - If gvr.DataKey("CveConcepto").ToEntero = 30 Then + If gvr.DataKey("CveConcepto").ToEntero = 30 AndAlso gvr.DataKey("ContadoImporte").ToString.ToDecimal <> 0 Then CveIE = ObjIE.AddBancos_IE(gvr.DataKey("ContadoCuenta").ToEntero, gvr.DataKey("ContadoTipoTransaccion").ToEntero, TxtFecha.Text, gvr.DataKey("ContadoNumeroFolio").ToString, gvr.DataKey("ContadoBeneficiario").ToString, gvr.DataKey("ContadoImporte").ToString.ToDecimal, CveMoneda, 0, gvr.DataKey("ContadoObservaciones").ToString, "", From 5a3ef27af1d0bc0566d8d47780ef03aacf7530ec Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 12 Jul 2021 13:34:21 -0700 Subject: [PATCH 05/11] -- subproyecto en la salida de prepoliza --- Inventarios/EntradasSalidas.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index d6fa69575..7eea03d5b 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -4234,7 +4234,7 @@ Partial Class Inventarios_EntradasSalidas End If If ValorEntrada >= ValorSalida Then - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveSubProyecto:=tCveSubProyectoEntrada, ImporteMX:=ValorEntrada + ValorSalida, Contabilizable:=EsContabilizable) Then ErrorMovInv = True Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso" End If From ee64b40941f99767994ddc4dbd9ca873f584fa5a Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 12 Jul 2021 15:28:19 -0700 Subject: [PATCH 06/11] Contratos --- Contratos/ContratoObra.aspx.vb | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 484dc6af8..acff7db4c 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -1820,6 +1820,26 @@ Partial Class Contratos_ContratoObra Protected Sub BtnAgregarDetalleInsumos_Click(sender As Object, e As EventArgs) + + 'DdlProductowsInsumos.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + If Not DdlProductowsInsumos.UsaWebService Then + If DdlRubro.SelectedValue.ToEntero = 2 And DdlProductowsInsumos.SelectedValue.ToEntero <= 0 Then + Alert("Debe de seleccionar un producto.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + Else + + + If DdlRubro.SelectedValue.ToEntero = 1 And DdlProductowsInsumos.txtValue.Value.ToEntero <= 0 Then + Alert("Debe de seleccionar un producto.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + End If + + + If CveContratoDetalleEditar = -1 Then Dim Row As DataRow = TmpDT.NewRow() From b3255c2a92f6d7a4168e675e0a864323f8a5b503 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 12 Jul 2021 16:23:04 -0700 Subject: [PATCH 07/11] global de conceptos contables --- Bancos/RegistroPagoIntermediario.aspx.vb | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/Bancos/RegistroPagoIntermediario.aspx.vb b/Bancos/RegistroPagoIntermediario.aspx.vb index 86bf1f0bf..e5a3caf42 100644 --- a/Bancos/RegistroPagoIntermediario.aspx.vb +++ b/Bancos/RegistroPagoIntermediario.aspx.vb @@ -199,12 +199,7 @@ Partial Class Bancos_PagosIntermediarios If ImporteMovimiento <> 0 Then 'Conta ContPAQ If (IdCtaContable < 1 Or IdCuentaBancaria < 1) Then - CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) - End If - - 'Conta SIG - If (CveCuenta < 1 Or CveCuentaBancaria < 1) Then - CuentasContablesInvalidasSIG.Append("
    " & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) + CuentasContablesInvalidas.Append("
    " & GlobalDTContaConceptosContables(ConceptoContable).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString) End If If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, ImporteMovimiento, ConceptoMovimiento, ConceptoContable, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, gvr.DataKey("CveVenta").ToString.ToEntero, -1, -1, CveCliente, CveProveedor:=DdlProveedorPagoInt.SelectedValue.ToEntero, ImporteMX:=importeMX, CveCuenta:=CveCuenta) Then From 962930a90b066fc063545f8a7e43a0420e4ccfef Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 12 Jul 2021 16:23:42 -0700 Subject: [PATCH 08/11] -- texto cuando no hay registros --- CRM/AsignarVendedorEnProspectos.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/CRM/AsignarVendedorEnProspectos.aspx b/CRM/AsignarVendedorEnProspectos.aspx index bf082f0cd..b3d9085dd 100644 --- a/CRM/AsignarVendedorEnProspectos.aspx +++ b/CRM/AsignarVendedorEnProspectos.aspx @@ -82,7 +82,7 @@ " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
    - From efb084b482eb3c5cceb818a20254954662bb3440 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 12 Jul 2021 17:08:55 -0700 Subject: [PATCH 09/11] =?UTF-8?q?correcci=C3=B3n=20de=20titulo?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- AF/RepDepreciacion.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/AF/RepDepreciacion.aspx b/AF/RepDepreciacion.aspx index a6faf68bf..a988c3520 100644 --- a/AF/RepDepreciacion.aspx +++ b/AF/RepDepreciacion.aspx @@ -47,7 +47,7 @@ - + Depreciaciones From f179ea2db294d0bb36f91f36aa0d89b6b93b8ff1 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 12 Jul 2021 17:09:18 -0700 Subject: [PATCH 10/11] =?UTF-8?q?para=20quitar=20warning,=20asignaci=C3=B3?= =?UTF-8?q?n=20de=20nothing?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 14ef4ef01..7b0b077a3 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -9732,7 +9732,7 @@ Partial Class Compras_Compras Dim ObjInventario As New ClsInventarios(ObjCompra.IniciaTransacSQL) Dim ObjContabilidad As New ClsContabilidad(ObjCompra.IniciaTransacSQL) Dim ObjAF As New ClsAF(ObjCompra.IniciaTransacSQL) - Dim ObjContaAC As ClsContPAQi '= New ClsContPAQi(UsuarioActual.Empresa) + Dim ObjContaAC As ClsContPAQi = Nothing '= New ClsContPAQi(UsuarioActual.Empresa) Dim Retorno As Boolean = True Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero From f33cd168177463d824a3f8cc17b9657476873b55 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 12 Jul 2021 17:09:32 -0700 Subject: [PATCH 11/11] quitar el align center --- Contabilidad/RepGastosCC.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Contabilidad/RepGastosCC.aspx b/Contabilidad/RepGastosCC.aspx index b5bd25078..b43b120a0 100644 --- a/Contabilidad/RepGastosCC.aspx +++ b/Contabilidad/RepGastosCC.aspx @@ -167,7 +167,7 @@ + data-sort="true" GridLines="None">