From 12006f175d99684bbb4985318b5c077fa3ec171d Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 May 2022 20:16:23 -0700 Subject: [PATCH 01/10] -- tipotransaccion filtro estatus --- Bancos/ProveedoresAbonar.aspx.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index ba0735df4..387ed4951 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -753,7 +753,7 @@ Partial Class Bancos_ProveedoresAbonar Dim HuboError As Boolean = False Dim ObjCompra As New ClsCompras Dim ObjEventos As New ClsOIEventos(ObjCompra.IniciaTransacSQL()) - If ObjCompra.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero) Then + If ObjCompra.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then If ObjCompra.CancelarCompra(gvr.DataKey("CveCompra").ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then MsgValidadas.AppendFormat("Factura Cancelada: {0} - {1}
", gvr.DataKey("SerieFolio"), gvr.DataKey("Descripcion")) @@ -2071,21 +2071,21 @@ Partial Class Bancos_ProveedoresAbonar #Region " TIPO TRANSACCION " Private Sub CargaTipoTransaccion() If TipoPago = 1 Then - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' AND CveTipoTransaccion IN (1, 2) ") + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' AND CveTipoTransaccion IN (1, 2) and Estatus = 1 ") DdlTipoTransaccion.DataBind() DdlTipoTransaccion.SelectedValue = TipoPago.ToString ElseIf TipoPago = 2 Then - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' AND CveTipoTransaccion IN (1, 2) ") + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' AND CveTipoTransaccion IN (1, 2) and Estatus = 1 ") DdlTipoTransaccion.DataBind() DdlTipoTransaccion.SelectedValue = TipoPago.ToString RecargaCuentasDepositos() ElseIf TipoPago = 3 Then - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' AND CveTipoTransaccion IN (1, 2) ") + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' AND CveTipoTransaccion IN (1, 2)and Estatus = 1 ") DdlTipoTransaccion.DataBind() DdlTipoTransaccion.SelectedValue = TipoPago.ToString RecargaCuentasDepositos() Else - DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs'") + DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Egs' and Estatus = 1") DdlTipoTransaccion.DataBind() End If From f2997cc14ddd0659a8e94fd7cdb547adf1e2cbc3 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 12 May 2022 14:05:42 -0700 Subject: [PATCH 02/10] =?UTF-8?q?--=20correcci=C3=B3n=20de=20un=20linkedse?= =?UTF-8?q?rver,=20mal=20escrito?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContPAQi.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index 5f7601c45..146607353 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -1074,8 +1074,8 @@ Public Class ClsContPAQi StrSQL.AppendLine(" INNER JOIN Polizas p ON mp.IdPoliza = p.Id ") StrSQL.AppendLine(" INNER JOIN Cuentas c ON c.Id = mp.IdCuenta ") StrSQL.AppendLine(" INNER JOIN TiposPolizas t ON mp.TipoPol = t.Codigo ") - StrSQL.AppendLine(" LEFT JOIN SIG_Resp_2022_04_01.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ") - StrSQL.AppendLine(" LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id ") + StrSQL.AppendLine(" LEFT JOIN SERVIDOR.Ventas.dbo.Usuarios U ON U.CveUsuario = P.IdUsuario ") + StrSQL.AppendLine(" LEFT JOIN SegmentosNegocio s ON mp.IdSegNeg = s.id ") StrSQL.AppendLine(" WHERE (@IdPoliza = -1 OR mp.IdPoliza = @IdPoliza) ") StrSQL.AppendLine(" AND (@Eje = -1 OR mp.Ejercicio = @Eje) ") StrSQL.AppendLine(" AND (@Periodo = -1 OR mp.Periodo = @Periodo) ") From 75163998bc9bda5f0bf4b4f57ad780f5b3fb1549 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 12 May 2022 14:06:04 -0700 Subject: [PATCH 03/10] =?UTF-8?q?--=20correcci=C3=B3n=20del=20tipo=20poliz?= =?UTF-8?q?a=20de=20la=20empresa=20140?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 2 -- 1 file changed, 2 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 4e06e5f4e..7c08d813d 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -187,8 +187,6 @@ Public Class ClsContabilidad If Valor1 = "2" OrElse Valor2 = "2" Then Retorno = 3 End If - Case 140 - Retorno = 2 'egreso End Select From 6c9974c04ae1806ba6c650281b3e3fbda9862b97 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 12 May 2022 14:06:21 -0700 Subject: [PATCH 04/10] =?UTF-8?q?-=20correcci=C3=B3n=20de=20de=20tipo=20de?= =?UTF-8?q?=20dato?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ActualizarPrecios.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/ActualizarPrecios.aspx.vb b/Ventas/ActualizarPrecios.aspx.vb index 4cc1b3df3..641f27ae0 100644 --- a/Ventas/ActualizarPrecios.aspx.vb +++ b/Ventas/ActualizarPrecios.aspx.vb @@ -630,7 +630,7 @@ Partial Class Ventas_ActualizarPrecios DtExcel.Columns.Add(New DataColumn("Fecha Modificación", GetType(DateTime))) DtExcel.Columns.Add(New DataColumn("Usuario Modificó", GetType(String))) DtExcel.Columns.Add(New DataColumn("Porcentaje", GetType(Decimal))) - DtExcel.Columns.Add(New DataColumn("Fecha Ingreso", GetType(Decimal))) + DtExcel.Columns.Add(New DataColumn("Fecha Ingreso", GetType(DateTime))) DtExcel.Columns.Add(New DataColumn("Usuario Ingresó", GetType(String))) From 46dd87f79d23f1e14efe51a52867d24c54f12c60 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 12 May 2022 14:06:50 -0700 Subject: [PATCH 05/10] =?UTF-8?q?-=20se=20agreg=C3=B3=20parametro=20en=20e?= =?UTF-8?q?mpresa,=20al=20actualizar=20estatus?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/eFacturas.aspx.vb | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Ventas/eFacturas.aspx.vb b/Ventas/eFacturas.aspx.vb index 92b66a211..390e3115e 100644 --- a/Ventas/eFacturas.aspx.vb +++ b/Ventas/eFacturas.aspx.vb @@ -91,7 +91,7 @@ Partial Class Ventas_eFacturas Alert("La factura está cancelada ante el SAT.", TipoMensaje.MsgInformacion) End If - If ObjDatos.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero) Then + If ObjDatos.UpdateEstatus(Valida.EsValida, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then BtnConsultar_Click(sender, e) End If ObjDatos.Dispose() @@ -108,7 +108,7 @@ Partial Class Ventas_eFacturas Dim ObjDatos As New ClsCompras - If ObjDatos.UpdateEstatus(1, gvr.DataKey("CveFactura").ToEntero) Then + If ObjDatos.UpdateEstatus(1, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then BtnConsultar_Click(sender, e) End If ObjDatos.Dispose() @@ -124,7 +124,7 @@ Partial Class Ventas_eFacturas Dim ObjDatos As New ClsCompras - If ObjDatos.UpdateEstatus(3, gvr.DataKey("CveFactura").ToEntero) Then + If ObjDatos.UpdateEstatus(3, gvr.DataKey("CveFactura").ToEntero, UsuarioActual.CveEmpresa) Then BtnConsultar_Click(sender, e) End If ObjDatos.Dispose() @@ -297,7 +297,7 @@ Partial Class Ventas_eFacturas Dim ObjDatos As New ClsCompras Dim FueValidado As Integer = 0 If GvD.Rows(e.RowIndex).FCCheckBox("ChkFueValidado").Checked Then FueValidado = 1 - If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then + If ObjDatos.UpdateEstatus(FueValidado, GvD.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvD.EditIndex = -1 BtnConsultar_Click(sender, e) End If @@ -323,7 +323,7 @@ Partial Class Ventas_eFacturas Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvD.RowDeleting Dim Fact As New ClsCompras - If Fact.DeleteFactura(e.Keys("CveFactura").ToString.ToEntero) Then + If Fact.DeleteFactura(e.Keys("CveFactura").ToString.ToEntero, UsuarioActual.CveEmpresa) Then GvD.EditIndex = -1 Alert("La factura se eliminó correctamente.", TipoMensaje.MsgInformacion) CargaDatos() From aa30b45d5f8a8fa1794561e8f06c160ad06a962d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 12 May 2022 14:07:18 -0700 Subject: [PATCH 06/10] =?UTF-8?q?--=20se=20agreg=C3=B3=20parametro=20empre?= =?UTF-8?q?sa,=20al=20actualiza=20estatus=20de=20efactura?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index b86aee900..0ae3f3774 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1711,7 +1711,7 @@ Partial Class Compras_Compras If Valida.EsValida = 2 Then Validada = False - If ObjeFacturas.UpdateEstatus(Valida.EsValida, CveFactura) Then + If ObjeFacturas.UpdateEstatus(Valida.EsValida, CveFactura, UsuarioActual.CveEmpresa) Then End If @@ -4707,7 +4707,7 @@ Partial Class Compras_Compras If OCVinculada AndAlso DdlOCVinculaInv.Visible AndAlso Not (CveImportacion > 0 Or CveFlete > 0) Then CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero End If - If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido + If UsuarioActual.CveEmpresa.Contiene(72, 80, 140, 141, 152) And Not (CveImportacion > 0 Or CveFlete > 0) Then 'se comento, RMF. 2020.08.19, no le hallo sentido CveConceptoContableAlmacen = 205 End If Else From e8b8619fe2fb95f546bd3a69d973d0ebe9cb54a0 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 16 May 2022 18:24:09 -0700 Subject: [PATCH 07/10] - manejo de usados, para que en la conta se vaya como producto ( mercanca por recibir) --- Compras/Compras.aspx.vb | 34 +++++++++++++++++----------------- 1 file changed, 17 insertions(+), 17 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 0ae3f3774..c9753e346 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1735,11 +1735,7 @@ Partial Class Compras_Compras If Validada And Not EnListadoEFOS Then - - - Try - XMLDoc.Load(Archivo) Catch ex As Exception Try @@ -1749,13 +1745,8 @@ Partial Class Compras_Compras Catch ex2 As Exception GuardaLog("Error al intentar leer el XML del SAT. Error:" & ex2.ToString()) End Try - - End Try - - CreaDTConceptos() - CargaComprobanteXML(XMLDoc) If NuevaValidacionXML = 1 Or (Version = "3.3" Or Version = "4.0") Then @@ -1821,7 +1812,6 @@ Partial Class Compras_Compras CargaConceptosXML(XMLDoc) End If - Select Case TipoComprobante Case "ingreso" : DdlTipoComprobante.SelectedValue = "Fac" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("NC")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("DEV")) Case "egreso" : DdlTipoComprobante.SelectedValue = "NC" : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Fac")) : DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Ant")) : ChkAplicaNotaCredito.Enabled = False @@ -5158,7 +5148,7 @@ Partial Class Compras_Compras AutoConta = False End If - If (AutoConta Or UsuarioActual.Empresa.UsaAC) And ObjContaAC Is Nothing Then + If (AutoConta Or UsuarioActual.Empresa.UsaAC) And ObjContaAC Is Nothing AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ObjContaAC.IniciaTransacSQL() End If @@ -7833,7 +7823,7 @@ Partial Class Compras_Compras End If End If - If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) AndAlso UsuarioActual.CveEmpresa <> 72 Then + If Not ErrorPrepoliza AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Compras/Compras-Guardar | Error{ObjConta.MensajePolizaDescuadre} Diferencia{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") ErrorPrepolizaDescuadre = True @@ -8807,7 +8797,7 @@ Partial Class Compras_Compras Dim ErrorCompra = False - If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 Then + If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC.IniciaTransacSQL() If Not ObjAC.RemovePoliza(IdPoliza) Then @@ -9943,7 +9933,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 = Nothing '= New ClsContPAQi(UsuarioActual.Empresa) + Dim ObjContaAC As ClsContPAQi = Nothing Dim Retorno As Boolean = True Dim CveEstatusFactura As Integer = HdnCveEstatusFactura.Value.ToEntero @@ -10427,7 +10417,7 @@ Partial Class Compras_Compras Next If Retorno Then - If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IdPoliza > 0 Then + If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IdPoliza > 0 AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then If ObjContaAC Is Nothing Then ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ObjContaAC.IniciaTransacSQL() @@ -15063,7 +15053,7 @@ Partial Class Compras_Compras End If Dim ObjAC As ClsContPAQi = Nothing - If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then + If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso UsuarioActual.Empresa.TipoContabilidad = 2 Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC.IniciaTransacSQL() End If @@ -18497,6 +18487,10 @@ Partial Class Compras_Compras End If End If + If DrPS("CvePSCargo").ToString <> "" Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto) + CveTipoPS = 2 + End If + Dim DecimalesPermitidos = 6 Row("CveConcepto") = TmpDT.Rows.Count + 1 @@ -18653,13 +18647,19 @@ Partial Class Compras_Compras 'PS - CLASIFICACION If DdlPS.SelectedValue.ToEntero > 0 Then + Dim PSRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") If PSRow IsNot Nothing Then + Dim CveTipoPS As Integer = PSRow("CveTipoPS").ToString.ToEntero + If PSRow("CvePSCargo").ToString <> "" Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto) + CveTipoPS = 2 + End If + DrPS("CveClasificacion") = PSRow("CveClasificacion").ToString DrPS("Clasificacion") = PSRow("Clasificacion").ToString DrPS("CvePS") = DdlPS.SelectedValue DrPS("PS") = PSRow("PS").ToString - DrPS("CveTipoPS") = PSRow("CveTipoPS").ToString.ToEntero + DrPS("CveTipoPS") = CveTipoPS DrPS("CveSATPS") = PSRow("CveSATPS").ToString.ToEntero DrPS("SATClaveProductoServicio") = PSRow("SATClaveProductoServicio").ToString DrPS("CveSATPSActualizado") = 0 From 541976f95157e2f1f86e11bf997a1ac0dc338613 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 16 May 2022 18:26:01 -0700 Subject: [PATCH 08/10] -- mejora en manejo de TCy del gvprepolizas --- Contabilidad/RegPrePolizaS.aspx | 22 +- Contabilidad/RegPrePolizaS.aspx.vb | 310 ++++++++++++++--------------- 2 files changed, 159 insertions(+), 173 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index 31d653243..68914892e 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -176,6 +176,8 @@
+ +
@@ -357,7 +359,7 @@
@@ -475,12 +477,12 @@
+ DataKeyNames="CvePrePolizaDetalle,IdMov, CveConceptoContable, IdCtaContable, CveSubProyecto, CveTipoGasto,Referencia,CveVenta,CveCompra, CveProveedor, CveCliente, CvePersonal, CveCuenta, PorcentajeImpuesto,TipoMovto,EsComplementaria,Concepto,CveClasificacion,ContadoCuenta,ContadoTipoTransaccion,ContadoNumeroFolio,ContadoBeneficiario,ContadoObservaciones,ContadoImporte,TC,ImporteME,Cargo,Abono" Width="100%" > Movimiento -
+
@@ -520,9 +522,7 @@ TipoGasto -
- <%----%> - <%----%> +
@@ -723,7 +723,7 @@