From edd39a974fb9d740f595c0938509b4bba3d52e42 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 May 2022 14:15:23 -0700 Subject: [PATCH 1/6] -- mejora, en la sugerencia, en el caso de retenciones --- Compras/Compras.aspx.vb | 162 ++++++++++++++++++++++++---------------- 1 file changed, 96 insertions(+), 66 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 3da432e53..a63f3440d 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -2184,12 +2184,10 @@ Partial Class Compras_Compras ObjSAT.Dispose() End If - - Return RFC End Function - Private Sub CargaRetIVAConcepto(Optional Cambio As Boolean = False) + Private Sub CargaRetIVAConcepto(Optional Cambio As Boolean = False, Optional DIOTCveTipoOperacion As Integer = -1) If TrRetIVA.Visible Then TdRetIVAConcepto.Visible = True @@ -2198,32 +2196,66 @@ Partial Class Compras_Compras If Cambio Then DdlRetIVAConcepto.Items.Clear() - If RFCProv.Length = 13 Then - DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) - DdlRetIVAConcepto.Items.Insert(1, New ListItem("Fletes P.F.", "2")) + If RFCProv.Length = 13 Then ' personal moral + If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) + End If + + If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles + DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) + End If + + If DIOTCveTipoOperacion = 3 Then ' 85 - Otros + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) + DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2")) + End If + ElseIf RFCProv.Length = 12 Then - DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.M.", "3")) + If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) + End If + + If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles + DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) + End If + + If DIOTCveTipoOperacion = 3 Then ' 85 - Otros + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Honorarios/Serv. Prof.", "1")) + DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) + DdlRetIVAConcepto.Items.Insert(0, New ListItem("Fletes P.F.", "2")) + End If + End If - DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4")) - ''If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then - DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5")) - ''End If - End If + UpPS.Update() End Sub - Private Sub CargaRetISRConcepto(Optional Cambio As Boolean = False) + Private Sub CargaRetISRConcepto(Optional Cambio As Boolean = False, Optional DIOTCveTipoOperacion As Integer = -1) If TrRetISR.Visible Then TdRetISRConcepto.Visible = True End If If Cambio Then DdlRetISRConcepto.Items.Clear() - DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1")) - DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2")) - DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) + + If DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales + DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1")) + DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) + End If + + If DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles + DdlRetISRConcepto.Items.Insert(0, New ListItem("Arrendamiento", "2")) + DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) + End If + + If DIOTCveTipoOperacion = 3 Then ' 85 - Otros + DdlRetISRConcepto.Items.Insert(0, New ListItem("Honorarios", "1")) + DdlRetISRConcepto.Items.Insert(1, New ListItem("Arrendamiento", "2")) + DdlRetISRConcepto.Items.Insert(1, New ListItem("Resico", "3")) + End If End If UpPS.Update() @@ -3411,56 +3443,53 @@ Partial Class Compras_Compras HdnCveProveedor.Value = ObjProveedor.CveProveedor.ToString TxtFechaPago.Text = (TxtFecha.Text.ToDate.AddDays(LblDiasCredito.Text.ToEntero)).ToShortDateString RFCProv = ObjProveedor.RFC - CargaRetIVAConcepto(True) - CargaRetISRConcepto(True) + CargaRetIVAConcepto(True, ObjProveedor.DIOTCveTipoOperacion) + CargaRetISRConcepto(True, ObjProveedor.DIOTCveTipoOperacion) - If ObjProveedor.DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales - DdlRetIVAConcepto.SelectedValueExist("1") - DdlRetISRConcepto.SelectedValueExist("1") ' honorarios - ElseIf ObjProveedor.DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles - DdlRetIVAConcepto.SelectedValueExist("4") - DdlRetISRConcepto.SelectedValueExist("2") ' arrendamiento - ElseIf ObjProveedor.DIOTCveTipoOperacion = 3 Then ' 85 - Otros - DdlRetIVAConcepto.SelectedValueExist("2") ' flete pf - DdlRetIVAConcepto.SelectedValueExist("3") ' fletes pm - DdlRetISRConcepto.SelectedValueExist("1") ' honorarios - ElseIf ObjProveedor.DIOTCveTipoOperacion = 0 Then + 'If ObjProveedor.DIOTCveTipoOperacion = 1 Then '03 - Prestación de Servicios Profesionales + ' DdlRetIVAConcepto.SelectedValueExist("1") + ' DdlRetISRConcepto.SelectedValueExist("1") ' honorarios + 'ElseIf ObjProveedor.DIOTCveTipoOperacion = 2 Then ' 06 - Arrendamiento de inmuebles + ' DdlRetIVAConcepto.SelectedValueExist("4") + ' DdlRetISRConcepto.SelectedValueExist("2") ' arrendamiento + 'ElseIf ObjProveedor.DIOTCveTipoOperacion = 3 Then ' 85 - Otros + ' DdlRetIVAConcepto.SelectedValueExist("2") ' flete pf + ' DdlRetIVAConcepto.SelectedValueExist("3") ' fletes pm + ' DdlRetISRConcepto.SelectedValueExist("1") ' honorarios + ' 'ElseIf ObjProveedor.DIOTCveTipoOperacion = 0 Then + 'End If - If CveFactura > 0 Then + If CveFactura > 0 Then - If RetIVAOriginal > 0 Then - Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal - - If (CalRetIVAPor).RoundAD(6) = 0.106667 Then - DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profecionales - End If - - If (CalRetIVAPor).RoundAD(2) = 0.04 Then '4 Fletes - - If RFCProv.Length = 13 Then - DdlRetIVAConcepto.SelectedValueExist("2") - Else - DdlRetIVAConcepto.SelectedValueExist("3") - End If - - - End If + If RetIVAOriginal > 0 Then + Dim CalRetIVAPor As Decimal = (RetIVAOriginal * 1 / SubTotal2Original).RoundAD(6).ToDecimal + If (CalRetIVAPor).RoundSQL(6) = 0.106667 OrElse (CalRetIVAPor).RoundSQL(6) = 0.053333 Then + DdlRetIVAConcepto.SelectedValueExist("1") '10.66 servicios profecionales End If - If RetISROriginal > 0 Then + If (CalRetIVAPor).RoundSQL(2) = 0.04 Then '4 Fletes - Dim CalRetISRPor As Decimal = (RetISROriginal * 1 / SubTotal2Original).RoundAD(5).ToDecimal - - If (CalRetISRPor).RoundAD(1) = 0.1 Then '10 Sercviios profecionales - DdlRetISRConcepto.SelectedValueExist("1") + If RFCProv.Length = 13 Then + DdlRetIVAConcepto.SelectedValueExist("2") + Else + DdlRetIVAConcepto.SelectedValueExist("3") End If + End If - If (CalRetISRPor).RoundAD(4) = 0.0125 Then '1.25 Recico regimen simplificado confianza - DdlRetISRConcepto.SelectedValueExist("3") - End If + End If + If RetISROriginal > 0 Then + + Dim CalRetISRPor As Decimal = (RetISROriginal * 1 / SubTotal2Original).RoundAD(5).ToDecimal + + If (CalRetISRPor).RoundSQL(1) = 0.1 Then '10 Servicios profesionales + DdlRetISRConcepto.SelectedValueExist("1") + End If + + If (CalRetISRPor).RoundSQL(4) = 0.0125 Then '1.25 Recico regimen simplificado confianza + DdlRetISRConcepto.SelectedValueExist("3") End If End If @@ -6780,19 +6809,20 @@ Partial Class Compras_Compras importeMovimiento = TmpDT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora + 'no es necesario, ya se está interpretandoe l usado como producto + 'If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then 'cuando es emp acumuladora - Dim Valor As Decimal = 0 - For Each RowAcum As DataRow In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").Rows - Dim TotalTamanio = TmpDT.FiltroPrimeroValor("Total", $"CvePS={RowAcum("CvePSCargo")}").ToDecimal() - If TotalTamanio > 0 Then - Valor += TotalTamanio - End If - Next + ' Dim Valor As Decimal = 0 + ' For Each RowAcum As DataRow In GlobalDTAcumTamaños().FiltraParametros("CveEmpresa = 140").Rows + ' Dim TotalTamanio = TmpDT.FiltroPrimeroValor("Total", $"CvePS={RowAcum("CvePSCargo")}").ToDecimal() + ' If TotalTamanio > 0 Then + ' Valor += TotalTamanio + ' End If + ' Next - importeMovimiento += Valor - importeMN = importeMovimiento * tipoCambioActual * Multiplicador - End If + ' importeMovimiento += Valor + ' importeMN = importeMovimiento * tipoCambioActual * Multiplicador + 'End If Dim ConceptoContabilizacionNC = 225 Dim CveMovimientoDevolucion As Integer = -1 From 1c93bd111fd01e2100bb49aa1d870d5a39e1fc19 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 May 2022 14:15:57 -0700 Subject: [PATCH 2/6] -- mejora en tipocontabilidad --- Compras/Proveedores.aspx.vb | 108 +++++++++++++++++++----------------- 1 file changed, 56 insertions(+), 52 deletions(-) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index e06070550..61b4752e2 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -681,7 +681,7 @@ Partial Class Compras_Proveedores Private Sub CargaCuentasContables(Optional IdCuentaPadre As Integer = -1) - If UsuarioActual.Empresa.UsaContabilidad Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad Then Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa) If ObjContabilidad.GetCuentasRecursiva(IdCuentaPadre, 1) Then DtCuentasContables = ObjContabilidad.DtResultados @@ -1383,55 +1383,59 @@ Partial Class Compras_Proveedores End Sub Protected Sub BtnCargarCuentas_Click(sender As Object, e As EventArgs) Handles BtnCargarCuentas.Click - If DtCuentasContables Is Nothing Then + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + + + If DtCuentasContables Is Nothing Then + + End If + + Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa) + + Select Case HdnCuenta.Value + Case "1" + CargaCuentasDDL(DdlCtaContProveedores, If(DdlCveTipoProveedor.SelectedValue = "2", 202, 201)) + Case "2" + CargaCuentasDDL(DdlCtaContAnticipos, 204) + Case "3" + CargaCuentasDDL(DdlCtaContFondoGarantia, 231) + Case "4" + CargaCuentasDDL(DdlCtaContRetIVA, 206) + Case "5" + CargaCuentasDDL(DdlCtaContRetISR, 206) + Case "6" + CargaCuentasDDL(DdlCtaContAcreedores, 202) + Case "7" + CargaCuentasDDL(DdlCtaContComplementaria, 201) + Case "8" + CargaCuentasDDL(DdlCtaContExtranjera, 201) + Case "9" + CargaCuentasDDL(DdlCtaContAcreedoresExtranjera, 202) + Case "10" + CargaCuentasDDL(DdlCtaContAcreedoresComplementaria, 202) + Case "11" + CargaCuentasDDL(DdlCtaContAnticiposExtranjera, 204) + Case "12" + CargaCuentasDDL(DdlCtaContAnticiposComplementaria, 204) + Case "13" + CargaCuentasDDL(DdlCtaContDeudor, 205) + Case "14" + CargaCuentasDDL(DdlCtaContDeudorExtranjera, 205) + Case "15" + CargaCuentasDDL(DdlCtaContDeudorComplementaria, 205) + Case "16" + CargaCuentasDDL(DdlCtaContDocsXPagar, 203) + Case "17" + CargaCuentasDDL(DdlCtaContDocsXPagarExtranjera, 203) + Case "18" + CargaCuentasDDL(DdlCtaContDocsXPagarComplementaria, 203) + Case "19" + CargaCuentasDDL(DdlCtaContRetISRAcreditable, 206) + Case "20" + CargaCuentasDDL(DdlCtaContRetIVAAcreditable, 206) + End Select End If - - Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa) - - Select Case HdnCuenta.Value - Case "1" - CargaCuentasDDL(DdlCtaContProveedores, If(DdlCveTipoProveedor.SelectedValue = "2", 202, 201)) - Case "2" - CargaCuentasDDL(DdlCtaContAnticipos, 204) - Case "3" - CargaCuentasDDL(DdlCtaContFondoGarantia, 231) - Case "4" - CargaCuentasDDL(DdlCtaContRetIVA, 206) - Case "5" - CargaCuentasDDL(DdlCtaContRetISR, 206) - Case "6" - CargaCuentasDDL(DdlCtaContAcreedores, 202) - Case "7" - CargaCuentasDDL(DdlCtaContComplementaria, 201) - Case "8" - CargaCuentasDDL(DdlCtaContExtranjera, 201) - Case "9" - CargaCuentasDDL(DdlCtaContAcreedoresExtranjera, 202) - Case "10" - CargaCuentasDDL(DdlCtaContAcreedoresComplementaria, 202) - Case "11" - CargaCuentasDDL(DdlCtaContAnticiposExtranjera, 204) - Case "12" - CargaCuentasDDL(DdlCtaContAnticiposComplementaria, 204) - Case "13" - CargaCuentasDDL(DdlCtaContDeudor, 205) - Case "14" - CargaCuentasDDL(DdlCtaContDeudorExtranjera, 205) - Case "15" - CargaCuentasDDL(DdlCtaContDeudorComplementaria, 205) - Case "16" - CargaCuentasDDL(DdlCtaContDocsXPagar, 203) - Case "17" - CargaCuentasDDL(DdlCtaContDocsXPagarExtranjera, 203) - Case "18" - CargaCuentasDDL(DdlCtaContDocsXPagarComplementaria, 203) - Case "19" - CargaCuentasDDL(DdlCtaContRetISRAcreditable, 206) - Case "20" - CargaCuentasDDL(DdlCtaContRetIVAAcreditable, 206) - End Select - End Sub Private Sub CargaCuentasDDL(Ddl As DropDownList, CveFuncionalidad As Integer) @@ -1610,7 +1614,7 @@ Partial Class Compras_Proveedores Dim ObjContaAC As ClsContPAQi = Nothing - If (UsuarioActual.Empresa.Funcionalidad(200).ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(201).ToEntero > 0) Then 'FUNCIONALIDAD 112=AGREGAR CTA CONTABLE PROVEEDOR + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ((UsuarioActual.Empresa.Funcionalidad(200).ToEntero > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(201).ToEntero > 0)) Then 'FUNCIONALIDAD 112=AGREGAR CTA CONTABLE PROVEEDOR ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) ObjContaAC.IniciaTransacSQL() @@ -1846,7 +1850,7 @@ Partial Class Compras_Proveedores 'End If Dim CreoCuenta As Boolean = False - If (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa) Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("") If drCuenta IsNot Nothing Then @@ -4256,7 +4260,7 @@ Partial Class Compras_Proveedores #Region "CUENTAS CONTABLES" Private Sub ActivarRegistroAutomatico() - If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaAC) Then Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa) '' 17/03/2017 FUNCIONALIDADES 249,250,251 @@ -4429,7 +4433,7 @@ Partial Class Compras_Proveedores End Sub Private Sub AgregarCuentaContable(btn As Button, ddl As DropDownList) - If UsuarioActual.Empresa.UsaContabilidad = True Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaContabilidad = True Then Dim IdCuentaContable As Integer = -1 Dim CtaCodigo As String = "" Dim TieneError = False From c620155a0a0a2935b92277d501274934f1d6df2f Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 May 2022 14:16:24 -0700 Subject: [PATCH 3/6] -- mejora en ME, en aplicar anticipos --- Contabilidad/DiarioPagos.aspx.vb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Contabilidad/DiarioPagos.aspx.vb b/Contabilidad/DiarioPagos.aspx.vb index 58492f5e6..08f6e4059 100644 --- a/Contabilidad/DiarioPagos.aspx.vb +++ b/Contabilidad/DiarioPagos.aspx.vb @@ -1017,9 +1017,8 @@ Partial Class Contabilidad_DiarioPagos If CargoAnticipo > 0 AndAlso TotalAnticipos = 0 Then ' cuando el pago no cubre el 100% - If Not Conta.AddMovimiento(IDPoliza, IdCuentaAnticipo, False, CargoAnticipo, gvrc.FCHiddenField("HdnSerieFolio").Value, gvrc.FCHiddenField("HdnSerieFolio").Value, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveProveedor").Value.ContaReferencia(TipoContaReferencia.Proveedor), If(MonExt, CargoProveedor, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For - Dim TmpTotal As Decimal + Dim TmpTotalME As Decimal = CargoAnticipo If CveMoneda = 2 Then 'registro a la cuenta complementaria del proveedor @@ -1028,12 +1027,13 @@ Partial Class Contabilidad_DiarioPagos Else CargoAnticipo = Math.Round(CargoAnticipo * TipoCambioCompra, 2) End If - - 'complementaria - If TmpTotal > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, gvr.DataKey("IdCtaContComplementaria").ToEntero, TipoMovto, TmpTotal, gvrc.FCHiddenField("HdnSerieFolio").Value, gvrc.FCHiddenField("HdnSerieFolio").Value, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveProveedor").Value.ContaReferencia(TipoContaReferencia.Proveedor), If(MonExt, gvrc.FCHiddenField("HdnTotal").Value.ToDouble, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For - End If + If Not Conta.AddMovimiento(IDPoliza, IdCuentaAnticipo, False, CargoAnticipo, gvrc.FCHiddenField("HdnSerieFolio").Value, gvrc.FCHiddenField("HdnSerieFolio").Value, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveProveedor").Value.ContaReferencia(TipoContaReferencia.Proveedor), If(MonExt, TmpTotalME, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For + + 'complementaria + If TmpTotal > 0 AndAlso Not Conta.AddMovimiento(IDPoliza, gvr.DataKey("IdCtaContComplementaria").ToEntero, TipoMovto, TmpTotal, gvrc.FCHiddenField("HdnSerieFolio").Value, gvrc.FCHiddenField("HdnSerieFolio").Value, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveProveedor").Value.ContaReferencia(TipoContaReferencia.Proveedor), If(MonExt, gvrc.FCHiddenField("HdnTotal").Value.ToDouble, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For + End If From 16c064b0daa255a292ae193c494fd191596d0368 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 May 2022 14:17:36 -0700 Subject: [PATCH 4/6] -- envio el parametro. --- App_Code/ClsInventarios.vb | 3 ++- Inventarios/CatAlmacenes.aspx.vb | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 8b89df8a6..8402fca44 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -399,7 +399,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean + Public Function UpdateAlmacen(Almacen As String, CveTipoAlmacen As Integer, IdCtaContable As Integer, Modalidad As Integer, Estatus As Boolean, CveAlmacen As Integer, Inventariable As Byte, CveSubProyecto As Integer, CveEmpresa As Integer, Optional Orden As Integer = -1, Optional CveCuenta As Integer = -1, Optional CveUsuarioAutoriza As Integer = -1, Optional CveAlmacenVirtual As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_AlmacenesUpdate") @@ -413,6 +413,7 @@ Public Class ClsInventarios .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@Inventariable", SqlDbType.Bit).Value = Inventariable .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Orden", SqlDbType.SmallInt).Value = Orden .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta .Add("@CveUsuarioAutoriza", SqlDbType.Int).Value = CveUsuarioAutoriza diff --git a/Inventarios/CatAlmacenes.aspx.vb b/Inventarios/CatAlmacenes.aspx.vb index a5af7cd9e..ef99c11a6 100644 --- a/Inventarios/CatAlmacenes.aspx.vb +++ b/Inventarios/CatAlmacenes.aspx.vb @@ -57,7 +57,7 @@ Partial Class Inventarios_CatAlmacenes Public Sub CargaDatos() Dim ObjAlmacen As New ClsInventarios If ObjAlmacen.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then - GvDatos.DataSource = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GvDatos.DataSource = ObjAlmacen.DtResultados Else GvDatos.DataSource = Nothing End If @@ -271,7 +271,7 @@ Partial Class Inventarios_CatAlmacenes Else TieneError = True End If - ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero, CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero) Then + ElseIf ObjAlmacen.UpdateAlmacen(TxtAlmacen.Text.Trim, DdlTipoAlmacen.SelectedValue.ToEntero, CuentaContable, DdlModalidad.SelectedValue.ToEntero, (CByte(Estatus)), HdnID.Value.ToEntero, CByte(DdlInventariable.SelectedValue), DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, TxtOrden.Text.ToEntero, CveCuenta, CveUsuarioAutoriza:=DdlUsuariosAutoriza.SelectedValue.ToEntero, CveAlmacenVirtual:=DdlAlmacenesVirtuales.SelectedValue.ToEntero) Then Alert("El Almacen se actualizo correctamente.", TipoMensaje.MsgInformacion) UpDatos.Update() ViewState("DTAlmacenes") = ObjAlmacen.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) From c88ce4f24ddc4afa6f34de46b3f7b80a0fa37c7d Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 May 2022 14:18:16 -0700 Subject: [PATCH 5/6] -- mejora en TC --- Contabilidad/RegPrePolizaS.aspx.vb | 33 ++++++++++++++++++++---------- 1 file changed, 22 insertions(+), 11 deletions(-) diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 536dc89fc..55c7ad886 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -1257,12 +1257,6 @@ Partial Class ContabilidadC_RegPrePolizaS DdlConceptosContablesE_SelectedIndexChanged(DdlConceptosContablesE, e) TxtTipoCambio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("TC").ToString.ToDecimal.ToString("###,###,###.00") - DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion")) - DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta")) - TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio") - TxtModalConceptoDocumentoBeneficiario.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoBeneficiario") - TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones") - TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00") TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero @@ -1307,11 +1301,22 @@ Partial Class ContabilidadC_RegPrePolizaS TxtAbonoE.Text = Abono End If - If Abono = 0 Then - CargaModalConceptoTipoTransaccion("Ing") - Else - CargaModalConceptoTipoTransaccion("Egs") + If CveConceptoContable = 30 Then + If Abono = 0 Then + CargaModalConceptoTipoTransaccion("Ing") + Else + CargaModalConceptoTipoTransaccion("Egs") + End If + DdlModalConceptoTipoTransaccion.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoTipoTransaccion")) + DdlModalConceptoCuenta.SelectedValueExist(GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoCuenta")) + TxtModalConceptoDocumentoFolio.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoNumeroFolio") + TxtModalConceptoDocumentoBeneficiario.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoBeneficiario") + TxtModalConceptoDocumentoObservaciones.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoObservaciones") + TxtModalConceptoDocumentoImporte.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ContadoImporte").ToDecimal.ToString("###,###,###.00") + End If + + UpModalConcepto.Update() End Sub @@ -1644,12 +1649,18 @@ Partial Class ContabilidadC_RegPrePolizaS dr("Modificado") = True dr("TC") = TxtTipoCambio.Text.ToDecimal + dr("ContadoCuenta") = DdlModalConceptoCuenta.SelectedValue.ToEntero + dr("ContadoTipoTransaccion") = DdlModalConceptoTipoTransaccion.SelectedValue.ToEntero + dr("ContadoNumeroFolio") = TxtModalConceptoDocumentoFolio.Text + dr("ContadoBeneficiario") = TxtModalConceptoDocumentoBeneficiario.Text + dr("ContadoObservaciones") = TxtModalConceptoDocumentoObservaciones.Text + dr("ContadoImporte") = dr("ImporteMN").ToString + If DrConceptoContable IsNot Nothing Then dr("EsComplementaria") = DrConceptoContable("EsComplementaria") dr("EsMonedaExtranjera") = DrConceptoContable("EsMonedaExtranjera") If dr("EsMonedaExtranjera") = "True" Then dr("ImporteME") = TxtME.Text.ToDecimal - End If If DdlPorcentajeIVAE.Visible Then From 6dc5d188cb84a6a4267e197668d6b964b31b1a0d Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 23 May 2022 14:19:38 -0700 Subject: [PATCH 6/6] -- mejora en tipocontabilidad --- Bancos/IE.aspx.vb | 88 +++++++++++++++++++++++++---------------------- 1 file changed, 46 insertions(+), 42 deletions(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index e34d14c39..e845a08e3 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -3765,7 +3765,7 @@ Partial Class Bancos_IE End Select - If UsuarioActual.Empresa.UsaAC Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC Then Dim ConceptoRenglon, Referencia As String Dim FolioPoliza As Integer Dim Fecha As Date = TxtFechaDocumento.Text.ToDate @@ -4484,7 +4484,7 @@ Partial Class Bancos_IE Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL()) Dim ObjAC As ClsContPAQi = Nothing - If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") Then Try ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC.IniciaTransacSQL() @@ -4779,7 +4779,7 @@ Partial Class Bancos_IE Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL) Dim ObjAC As ClsContPAQi = Nothing - If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC.IniciaTransacSQL() End If @@ -5107,49 +5107,53 @@ Partial Class Bancos_IE EliminaPoliza() End Sub Private Sub EliminaPoliza() - Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) - ObjAC.IniciaTransacSQL() - Dim ObjConta As New ClsContabilidad - ObjConta.IniciaTransacSQL() - Dim ErrorCompra = False + If UsuarioActual.Empresa.TipoContabilidad = 2 Then + Dim ObjAC As New ClsContPAQi(UsuarioActual.Empresa) + ObjAC.IniciaTransacSQL() + Dim ObjConta As New ClsContabilidad + ObjConta.IniciaTransacSQL() - 'Elimina la poliza - If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then - If Not ObjAC.RemovePoliza(IDPoliza) Then - ErrorCompra = True + Dim ErrorCompra = False + + 'Elimina la poliza + If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then + If Not ObjAC.RemovePoliza(IDPoliza) Then + ErrorCompra = True + End If + End If + + 'Desasocia la poliza + If Not ErrorCompra Then + If Not ObjConta.DesasociarPoliza(IDPoliza, UsuarioActual.CveEmpresa) Then + ErrorCompra = True + End If + End If + + If Not ErrorCompra Then + If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then + ErrorCompra = True + End If + End If + + If Not ErrorCompra Then + Alert("La poliza ha sido desvinculada y eliminada con exito.", TipoMensaje.MsgInformacion) + ObjAC.Commit() + ObjConta.Commit() + Else + Alert("Ocurrió un error al desvincular y/o eliminar la poliza. Por favor intente de nuevo ", TipoMensaje.MsgError) + ObjAC.RollBack() + ObjConta.RollBack() + End If + + ObjAC.Dispose() + ObjConta.Dispose() + + If Not ErrorCompra Then + CargaDatos() End If End If - 'Desasocia la poliza - If Not ErrorCompra Then - If Not ObjConta.DesasociarPoliza(IDPoliza, UsuarioActual.CveEmpresa) Then - ErrorCompra = True - End If - End If - - If Not ErrorCompra Then - If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then - ErrorCompra = True - End If - End If - - If Not ErrorCompra Then - Alert("La poliza ha sido desvinculada y eliminada con exito.", TipoMensaje.MsgInformacion) - ObjAC.Commit() - ObjConta.Commit() - Else - Alert("Ocurrió un error al desvincular y/o eliminar la poliza. Por favor intente de nuevo ", TipoMensaje.MsgError) - ObjAC.RollBack() - ObjConta.RollBack() - End If - - ObjAC.Dispose() - ObjConta.Dispose() - - If Not ErrorCompra Then - CargaDatos() - End If End Sub #End Region @@ -5593,7 +5597,7 @@ Partial Class Bancos_IE End If End If - If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then + If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso ((UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0) Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC.IniciaTransacSQL() If Not ObjAC.RemovePoliza(IDPoliza) Then