From c16a1049a0c57a6f9003fd9a5aa3a1644b7dfd16 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Tue, 3 Aug 2021 13:18:40 -0700 Subject: [PATCH 01/42] Valida no agregar IEPS si ya se agrego el concepto IEPS. --- Compras/Compras.aspx.vb | 38 +++++++++++++++++++++++++++++++++++++- 1 file changed, 37 insertions(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 4995b7418..734482ff3 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1109,6 +1109,23 @@ Partial Class Compras_Compras End Set End Property + ' + Private Property SeAgregoconceptoIEPS As Boolean + Get + + If ViewState("SeAgregoconceptoIEPS") Is Nothing Then + Return False + Else + Return Boolean.Parse(ViewState("SeAgregoconceptoIEPS").ToString) + End If + + + End Get + Set(value As Boolean) + ViewState("SeAgregoconceptoIEPS") = value + End Set + End Property + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then 'ImgBtnBuscarOC.Attributes.Add("data-toggle", "tooltip") @@ -4385,6 +4402,8 @@ Partial Class Compras_Compras Exit Sub End If + + '------------------TERMINA VALIDACIONES------------------ 'si hay necesidad de actualizar el globaldtps @@ -8652,7 +8671,7 @@ Partial Class Compras_Compras IndiceContador = IndiceContador + 1 Next - If DiferenciaIEPSPS <> 0 Then + If DiferenciaIEPSPS.RoundAD(2) <> 0 Then If DTConsultaIEPSPS.Rows.Count > 0 Then 'Ajusta IPES en primer registro que aplique IEPS @@ -18460,6 +18479,14 @@ Partial Class Compras_Compras End If + If SeAgregoconceptoIEPS Then + + Row("IEPSPS") = 0 + Row("IEPSPSPorcentaje") = 0 + + End If + + TmpDT.Rows.Add(Row) TmpDT.Rows.IndexOf(Row) @@ -18588,6 +18615,13 @@ Partial Class Compras_Compras DrPS("IEPSPSIVA") = IEPSPSIVA * Total DrPS("IEPSPSIVAPorcentaje") = IEPSPSIVA + If SeAgregoconceptoIEPS Then + + DrPS("IEPSPS") = 0 + DrPS("IEPSPSPorcentaje") = 0 + + End If + AplicaCalculaTotales = True 'End If @@ -19799,6 +19833,7 @@ Partial Class Compras_Compras Dim CvePS As Integer = DdlConceptoIEPS.SelectedValue.ToEntero ' If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero AgregarConceptoIEPS(TrasladoIEPS, CvePS) + SeAgregoconceptoIEPS = True TrasladoIEPS = 0 TxtIEPS.Text = 0.ToString.FormatoNumero TrIEPS.Visible = False @@ -19813,6 +19848,7 @@ Partial Class Compras_Compras Dim CvePS As Integer = DdlConceptoOI.SelectedValue.ToEntero 'If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(305).ToString.ToEntero AgregarConceptoIEPS(OtrosImpuestos, CvePS) + SeAgregoconceptoIEPS = True OtrosImpuestos = 0 TxtOtrosImpuestos.Text = 0.ToString.FormatoNumero TrOtrosImpuestos.Visible = False From fc203ec10601bd24ee0b60df1ac577ef52f13e15 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Aug 2021 19:32:07 -0700 Subject: [PATCH 02/42] - contratos. acomodo de columnas y en clase cambio de tipo de dato entero a decimal --- App_Code/ClsContratos.vb | 2 +- Contratos/ContratoAvance.aspx | 96 ++--- Contratos/ContratoAvance.aspx.vb | 8 - Contratos/ContratoObra.aspx | 2 +- Contratos/ContratoObraAutorizacion.aspx | 533 ++++++++++++------------ 5 files changed, 296 insertions(+), 345 deletions(-) diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 7c27793f3..9ce852417 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -1345,7 +1345,7 @@ Public Class ClsContratos With SqlAdapter.SelectCommand.Parameters .Add("@CveContrato", SqlDbType.Int).Value = CveContrato .Add("@CveContratoDetalle", SqlDbType.Int).Value = CveContratoDetalle - .Add("@Cantidad", SqlDbType.Int).Value = Cantidad + .Add("@Cantidad", SqlDbType.Decimal).Value = Cantidad .Add("@Fecha", SqlDbType.Date).Value = Fecha .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa diff --git a/Contratos/ContratoAvance.aspx b/Contratos/ContratoAvance.aspx index 69501d2c1..f96d770f8 100644 --- a/Contratos/ContratoAvance.aspx +++ b/Contratos/ContratoAvance.aspx @@ -4,28 +4,7 @@ - - - - - Autorización de Avance - - - - - - - - - - - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ContratoObraAutorizacion.aspx.vb" Inherits="Contratos_ContratoObraAutorizacion" %> + + + + + + + + + + Autorización de Avance + + + + + + + + + + -
-
+
+
-
- +
+ +
+ +
+ + + +
+
+ + +
+
+ + + +
+
+
+ + +
+ +
-
- - - -
-
- - + + +
+
+ " style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" /> + " class="btn btn-circle btn-sm label-info"> +
+ +
+ +
+
+ + +
+
+ + + + + + + + + + + + <%# Eval("Cantidad", "{0:N2}")%> + + + + + <%# Eval("Importe", "{0:N2}")%> + + + + + <%# Eval("Cantidad_Ultima", "{0:N2}")%> + + + + + <%# Eval("Importe_Ultima", "{0:N2}")%> + + + + + + + + + + +
+ + + +
+ + + + + + +
+
+ + +
+
+
+ + + + + +
+
+
+ + + + + + + + + + + + +
+
+
+
+
+
+ + Cargar Evidencia +
+
+
+
+
+
+ + +
+
+
+
+
+
+ +
+
+ +
+
+
+ +
+
+
+ + + + + +
- - -
- -
- -
- - - -
-
- " style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" /> - " class="btn btn-circle btn-sm label-info"> -
- -
- -
-
- - -
-
- - - - - - - - - - - - <%# Eval("Cantidad", "{0:N2}")%> - - - - - <%# Eval("Importe", "{0:N2}")%> - - - - - <%# Eval("Cantidad_Ultima", "{0:N2}")%> - - - - - <%# Eval("Importe_Ultima", "{0:N2}")%> - - - - - - - - - - - -
- - - -
- - - - +
- - + -
-
+ <%----%> + + - -
-
-
- - - - - -
-
-
- - - - - - - - - - - - -
-
-
-
-
-
- - Cargar Evidencia -
-
-
-
-
-
- - -
-
-
-
-
-
- -
-
- -
-
-
- -
-
-
- - - - - - - - - - - <%----%> - - - - - + + + From 274015cd18f0a30e53a18fb86cac787a5616da79 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Aug 2021 20:22:43 -0700 Subject: [PATCH 03/42] - propiedad de telefono, al imprimir --- App_Code/ClsPaginas.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 1d8d75be2..24d24e0cd 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -6788,7 +6788,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("ClienteTelefono", Vta.ClienteSucursal.TelefonoSucursal)) ElseIf Vta.CveCliente.ToEntero > 0 Then params.Add(New ReportParameter("ClienteContactoMail", Vta.Cliente.MailCotizacion)) - params.Add(New ReportParameter("ClienteTelefono", If(Vta.TipoDocto.Contiene("Ing", "Rem") AndAlso Vta.Cliente.Telefono.Length > 6, Vta.Cliente.Telefono, Vta.TelefonoGenerico))) + params.Add(New ReportParameter("ClienteTelefono", If(Vta.TelefonoGenerico <> "", Vta.TelefonoGenerico, Vta.Cliente.Telefono))) End If If UsuarioActual.CveEmpresa.Contiene(17) Then @@ -7925,7 +7925,7 @@ Public Class ClsPaginas Dim DTDeducciones As Data.DataTable Dim DTDeducciones2 As New Data.DataTable - Dim Ruta As String = RutaEmpresa + Dim Ruta As String = UsuarioActual.Empresa.Ruta Dim PathXML As String = $"{Ruta}XML\Nomina\{ObjNomina.Serie }{If(indemnizacion, "F", "")}-{ObjNomina.Folio}.xml" Dim FechaEmision, FechaCertificacion As DateTime Dim FolioFiscal, NoSerieCertificado, NoSerieCertificadoContribuyente, SelloCFDi, SelloSAT As String From 90a3c0f25b8ac964359571d1ecbae986dbb6923c Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 3 Aug 2021 20:22:52 -0700 Subject: [PATCH 04/42] mejoras en contratos --- Contratos/ContratoObra.aspx.vb | 9 ++++++--- Contratos/ContratoObraAutorizacion.aspx | 2 +- Contratos/ContratoObraAutorizacion.aspx.vb | 14 +------------- 3 files changed, 8 insertions(+), 17 deletions(-) diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index c8a3abb3b..ffd027ab3 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -4476,7 +4476,7 @@ Partial Class Contratos_ContratoObra End Function - Private Sub ProcesaDatosCargaPresupuesto(DTPresupuesto As DataTable, DTCargaPresupuestoManoObra As DataTable, DTCargaPresupuestoFlotillas As DataTable, DTCargaPresupuestoIndirectos As DataTable) + Private Sub ProcesaDatosCargaPresupuesto(TipoPresupuesto As EnumTipoCargaPresupuesto, DTPresupuesto As DataTable, DTCargaPresupuestoManoObra As DataTable, DTCargaPresupuestoFlotillas As DataTable, DTCargaPresupuestoIndirectos As DataTable) If Not DTPresupuesto Is Nothing Then @@ -4548,8 +4548,10 @@ Partial Class Contratos_ContratoObra End If End If + 'si el presupuesto es de ventas. solo valida con el codigo del producto + 'si es presupuesto es de control, valida por ambos - If CvePS = -1 Then + If CvePS = -1 AndAlso TipoPresupuesto = EnumTipoCargaPresupuesto.Control Then StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c) If StrArray.Length > 0 Then @@ -4584,7 +4586,8 @@ Partial Class Contratos_ContratoObra End If ObjPS.Dispose() - + Else + RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>" End If End If diff --git a/Contratos/ContratoObraAutorizacion.aspx b/Contratos/ContratoObraAutorizacion.aspx index 0330daa6b..2b0eece80 100644 --- a/Contratos/ContratoObraAutorizacion.aspx +++ b/Contratos/ContratoObraAutorizacion.aspx @@ -142,7 +142,7 @@ + CssClass="btn btn-circle btn-sm red" Text="" data-toggle="confirmation" data-popout="true" data-original-title="¿Eliminar avance?" data-btn-ok-label="si" /> diff --git a/Contratos/ContratoObraAutorizacion.aspx.vb b/Contratos/ContratoObraAutorizacion.aspx.vb index ccd33f44e..0edb1200f 100644 --- a/Contratos/ContratoObraAutorizacion.aspx.vb +++ b/Contratos/ContratoObraAutorizacion.aspx.vb @@ -137,11 +137,6 @@ Partial Class Contratos_ContratoObraAutorizacion DDlContratosEstimaciones.DataBind() End Sub - - - - - Protected Sub GetAnexos(sender As Object, e As System.EventArgs) Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow) @@ -219,11 +214,8 @@ Partial Class Contratos_ContratoObraAutorizacion If DTEstimaciones.Rows.Count > 0 Then CveEstimacionActual = DTEstimaciones.FiltroPrimeroValor("CveEstimacion", "CveEstimacion > 0").ToString.ToEntero End If - - End If - ObjContratos.Dispose() @@ -263,9 +255,6 @@ Partial Class Contratos_ContratoObraAutorizacion e.Row.CssClass = "SubTotales3" End If - - - End If If e.Row.DBCampo("CveContratoDetalle").ToString.ToEntero > 0 Then @@ -638,7 +627,6 @@ Partial Class Contratos_ContratoObraAutorizacion Dim ErrorProceso As Boolean = True - Dim ObjContrato As New ClsContratos If ObjContrato.RemoveContratosAvance(CveContratoAvance, UsuarioActual.CveEmpresa) Then @@ -650,7 +638,7 @@ Partial Class Contratos_ContratoObraAutorizacion If Not ErrorProceso Then CargaAvancesParaEstimar() - Alert("Avance elimiando correctamente.") + Alert("Avance eliminado correctamente.") End If From 8e4c648bc189344aca6592403b7e19feaf1fb275 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 4 Aug 2021 13:44:47 -0700 Subject: [PATCH 05/42] =?UTF-8?q?cambio=20en=20neteo,=20que=20tome=20solo?= =?UTF-8?q?=20la=20clasfcaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 97cbb3328..b20af7add 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6881,7 +6881,7 @@ Partial Class Compras_Compras Next If ContienePSNeteoBonif Then - 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 ").ToString.ToDecimal + 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 CveClasificacion = 20319 ").ToString.ToDecimal importeMN = importeMovimiento * tipoCambioActual * Multiplicador Dim IdCtaContableDescCompra As Integer = UsuarioActual.Empresa.Funcionalidad(405).ToEntero @@ -8630,7 +8630,7 @@ Partial Class Compras_Compras If Respuesta Then - Dim IEPSPSDetalles As Decimal = TmpDT.SUM("IEPSPS", " IEPSPS > 0 ").ToDecimal + Dim IEPSPSDetalles As Decimal = TmpDT.SUMD("IEPSPS", " IEPSPS > 0 ") Dim DiferenciaIEPSPS As Decimal = TxtIEPS.Text.ToDecimal - IEPSPSDetalles Dim DTConsultaIEPSPS As New DataTable @@ -8657,7 +8657,7 @@ Partial Class Compras_Compras TmpDT.AcceptChanges() Else Respuesta = False - Alert("Los productos especificados en el lisado no tienen asigando impuesto IEPS, favor de realizar la correción en el producto que aplique el impúesto.", TipoMensaje.MsgAdvertencia) + Alert(String.Format("Los productos especificados en el listado no tienen asigando impuesto IEPS, favor de realizar la corrección en el producto que aplique el impuesto. ({0}-{1})", IEPSPSDetalles, TxtIEPS.Text.ToDecimal), TipoMensaje.MsgAdvertencia) End If End If From 33bff2cb7749cfda20a7169aa5134b49f262cc5a Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 4 Aug 2021 18:03:52 -0700 Subject: [PATCH 06/42] Compras correcion IEPS, limpiar correctamente IPES cuando se se aplica como concepto y no permiter modificar ieps una vez que se agregue el concepto, muestra mensaje cada vez que se cambia ps con IEPS --- Compras/Compras.aspx.vb | 36 +++++++++++++----------------------- 1 file changed, 13 insertions(+), 23 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 734482ff3..3cd036bad 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1109,22 +1109,7 @@ Partial Class Compras_Compras End Set End Property - ' - Private Property SeAgregoconceptoIEPS As Boolean - Get - If ViewState("SeAgregoconceptoIEPS") Is Nothing Then - Return False - Else - Return Boolean.Parse(ViewState("SeAgregoconceptoIEPS").ToString) - End If - - - End Get - Set(value As Boolean) - ViewState("SeAgregoconceptoIEPS") = value - End Set - End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -18099,6 +18084,12 @@ Partial Class Compras_Compras TxtRetISRModal.Text = FormatoNumero(ViewState("RetISR").ToString().ToDouble * 100, 0) + If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 And PS("IEPSPorcentaje").ToString.ToDecimal > 0 Then + TxtIEPSModal.Text = "0" + Alert("El producto seleccionado contiene IEPS, pero el acumulado de la factura no contiene IEPS, por lo que no se agregara el impuesto.", TipoMensaje.MsgAdvertencia) + End If + + UpIVA.Update() If PS("CveClasificacion").ToString IsNot Nothing Then @@ -18479,11 +18470,10 @@ Partial Class Compras_Compras End If - If SeAgregoconceptoIEPS Then - + 'Esta parte es para validar cuando la factura tenga ieps en o se asignara el ieps como una partida ya no se considere + If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 Then Row("IEPSPS") = 0 Row("IEPSPSPorcentaje") = 0 - End If @@ -18615,11 +18605,11 @@ Partial Class Compras_Compras DrPS("IEPSPSIVA") = IEPSPSIVA * Total DrPS("IEPSPSIVAPorcentaje") = IEPSPSIVA - If SeAgregoconceptoIEPS Then + 'Esta parte es para validar cuando la factura tenga ieps en o se asignara el ieps como una partida ya no se considere + If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 Then DrPS("IEPSPS") = 0 DrPS("IEPSPSPorcentaje") = 0 - End If @@ -19833,7 +19823,7 @@ Partial Class Compras_Compras Dim CvePS As Integer = DdlConceptoIEPS.SelectedValue.ToEntero ' If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(112).ToString.ToEntero AgregarConceptoIEPS(TrasladoIEPS, CvePS) - SeAgregoconceptoIEPS = True + TrasladoIEPS = 0 TxtIEPS.Text = 0.ToString.FormatoNumero TrIEPS.Visible = False @@ -19848,7 +19838,7 @@ Partial Class Compras_Compras Dim CvePS As Integer = DdlConceptoOI.SelectedValue.ToEntero 'If CvePS = -1 Then CvePS = UsuarioActual.Empresa.Funcionalidad(305).ToString.ToEntero AgregarConceptoIEPS(OtrosImpuestos, CvePS) - SeAgregoconceptoIEPS = True + OtrosImpuestos = 0 TxtOtrosImpuestos.Text = 0.ToString.FormatoNumero TrOtrosImpuestos.Visible = False @@ -19863,7 +19853,7 @@ Partial Class Compras_Compras MostrarOcultarColumnaIEPS() - + AddPS2() End Sub #End Region From f1f0e369234018cc443fa4625c00d9bd6bbe641f Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 4 Aug 2021 18:31:56 -0700 Subject: [PATCH 07/42] dropdownlost, proveedor --- Compras/RepProductosServiciosDetalle.aspx.vb | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/Compras/RepProductosServiciosDetalle.aspx.vb b/Compras/RepProductosServiciosDetalle.aspx.vb index d77fcd5c0..9e444510f 100644 --- a/Compras/RepProductosServiciosDetalle.aspx.vb +++ b/Compras/RepProductosServiciosDetalle.aspx.vb @@ -149,17 +149,21 @@ Partial Class Compras_RepProductosServiciosDetalle 'DdlCategoria.SelectedValueExist(Categoria) DdlClasificacion.SelectedValueExist(Clasificacion) - If PS <> "-1" Then + If PS.ToEntero > 1 Then DdlPS.SelectedValue = PS - DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero)(0)("PSCodigo").ToString + DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PS.ToEntero).FiltroPrimeroValor("PSCodigo") End If 'DdlSubProyecto.SelectedValueExist(SubProyecto) DdlFamilia.SelectedValueExist(Familia) DdlSubFamilia.SelectedValueExist(SubFamilia) - DdlProveedor.SelectedValue = Proveedor + If Proveedor.ToEntero > 0 Then - DdlProveedor.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros($"CveProveedor = {Proveedor}").Rows(0)("RazonSocial").ToString + Dim Dr As DataRow = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, Proveedor.ToEntero).FiltroPrimero("") + If Dr IsNot Nothing Then + DdlProveedor.SelectedText = Dr("RazonSocial").ToString + DdlProveedor.SelectedValue = Proveedor + End If Else DdlProveedor.SelectedText = "Todos" End If @@ -200,8 +204,10 @@ Partial Class Compras_RepProductosServiciosDetalle DdlClasificacion.DataBind() 'CargaProveedor - DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlProveedor.DataBind() + DdlProveedor.setEsWebService(True) + DdlProveedor.Attributes.Add("data-metodo", "getproveedores") + DdlProveedor.SelectedText = "Todos" + DdlProveedor.SelectedValue = "-1" 'CargaUsuarios DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) From 3636ba16e8e2b320f7264dc50fe20a1e5aef7656 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 4 Aug 2021 18:32:20 -0700 Subject: [PATCH 08/42] =?UTF-8?q?cmabio=20en=20cuenta=20mportaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PopIECompras.aspx | 2 +- Bancos/PopIECompras.aspx.vb | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx index 420c6e20b..f76cdd80c 100644 --- a/Bancos/PopIECompras.aspx +++ b/Bancos/PopIECompras.aspx @@ -523,7 +523,7 @@
- + diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index f487fadc2..31560b162 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -2562,7 +2562,7 @@ Partial Class Bancos_PopIECompras If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjMov.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero + IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAxAcreditar").ToString.ToEntero End If End If @@ -2703,7 +2703,7 @@ Partial Class Bancos_PopIECompras If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) And Not IdCtaContable > 0 Then If ObjMov.DtResultados.Rows.Count > 0 Then - IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCtaContable").ToString.ToEntero + IdCtaContable = ObjMov.DtResultados.Rows(0)("IdCuentaIVAAcreditable").ToString.ToEntero End If End If From e362afc6dfc17a53c32e74d44b327878d9f755c6 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 4 Aug 2021 18:32:31 -0700 Subject: [PATCH 09/42] columan foliopoliza --- Compras/Compras.aspx.vb | 12 +- Contabilidad/RegPrePoliza.aspx.vb | 1 + Contratos/ContratoObra.aspx.vb | 22 +- Empresas/146/Formatos/Cotizacion.rdlc | 20 +- Empresas/158/Formatos/Factura.rdlc | 431 +------------------------- vwd.webinfo | 8 + 6 files changed, 33 insertions(+), 461 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 419e2f63a..bcaf447ef 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4088,11 +4088,15 @@ Partial Class Compras_Compras 'DF - 10/04/2017 If UsuarioActual.TienePermisoProceso(187) Then If TxtSerie.Text <> SerieVieja Then - Dim SerieNueva As String = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa).FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString - If SerieNueva = "" Then - Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia) - Exit Sub + Dim dtt As DataTable = GlobalDTProveedorSucursales(CveProveedor, UsuarioActual.CveEmpresa) + If dtt IsNot Nothing AndAlso dtt.Rows.Count > 0 Then + Dim SerieNueva As String = dtt.FiltroPrimeroValor("Serie", $"Serie = '{TxtSerie.Text}'").ToString + If SerieNueva = "" Then + Alert("La Serie no es válida, por favor revise que se encuentre dentro de la lista de las sucursales del proveedor.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If End If + End If End If diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index 8630e7aa5..6f47d8baa 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -371,6 +371,7 @@ Partial Class ContabilidadC_RegPrePoliza .Add("ContadoImporte", Type.GetType("System.Double")) .Add("ContadoBeneficiario", Type.GetType("System.String")) .Add("ContadoObservaciones", Type.GetType("System.String")) + .Add("FolioPoliza", Type.GetType("System.Int32")) End With End Sub diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index ffd027ab3..14edb0b72 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -4387,7 +4387,7 @@ Partial Class Contratos_ContratoObra DTCargaPresupuesto = CargaPresupuestoExcel("Presupuesto") If DTCargaPresupuesto.Rows.Count > 0 Then - ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, Nothing, Nothing, Nothing) + ProcesaDatosCargaPresupuesto(EnumTipoCargaPresupuesto.Ventas, DTCargaPresupuesto, Nothing, Nothing, Nothing) Else Alert("No se encintraron partidas en el documento", TipoMensaje.MsgAdvertencia) End If @@ -4399,7 +4399,7 @@ Partial Class Contratos_ContratoObra DTCargaPresupuestoFlotillas = CargaPresupuestoExcel("Maquinaria") DTCargaPresupuestoIndirectos = CargaPresupuestoExcel("Indirectos") - ProcesaDatosCargaPresupuesto(DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas, DTCargaPresupuestoIndirectos) + ProcesaDatosCargaPresupuesto(EnumTipoCargaPresupuesto.Control, DTCargaPresupuesto, DTCargaPresupuestoManoObra, DTCargaPresupuestoFlotillas, DTCargaPresupuestoIndirectos) End If @@ -4551,15 +4551,20 @@ Partial Class Contratos_ContratoObra 'si el presupuesto es de ventas. solo valida con el codigo del producto 'si es presupuesto es de control, valida por ambos - If CvePS = -1 AndAlso TipoPresupuesto = EnumTipoCargaPresupuesto.Control Then + If CvePS = -1 Then - StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c) - If StrArray.Length > 0 Then - If CBool(StrArray(0)) = True Then - CvePS = StrArray(1).ToEntero + 'si es presup ventas, busca por producto, + If TipoPresupuesto = EnumTipoCargaPresupuesto.Control Then + + StrArray = GetPS("PS", DrowPS("Producto").ToString).Split("|"c) + If StrArray.Length > 0 Then + If CBool(StrArray(0)) = True Then + CvePS = StrArray(1).ToEntero + End If End If End If + If CvePS = -1 Then Dim ObjPS As New ClsProductosServicios @@ -4586,8 +4591,7 @@ Partial Class Contratos_ContratoObra End If ObjPS.Dispose() - Else - RowNoEncontrados &= "Producto: " & StrArray(1) & "<\BR>" + End If End If diff --git a/Empresas/146/Formatos/Cotizacion.rdlc b/Empresas/146/Formatos/Cotizacion.rdlc index 83c342287..309844edc 100644 --- a/Empresas/146/Formatos/Cotizacion.rdlc +++ b/Empresas/146/Formatos/Cotizacion.rdlc @@ -1245,25 +1245,7 @@ 2pt - - - Embedded - VISTAPREVIA22 - FitProportional - 0.01389in - 7.40306in - 6.34944in - 0.09753in - 20 - - =IIf(Parameters!CveVenta.Value > 0, True,False) - - - - - + 6.36333in @@ -342,7 +250,8 @@
- + @@ -367,98 +276,103 @@
-
-
- Número de registros: +
+
+
+ Número de registros: +
+
- - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + - - - - - - - - - + + + + + + + + - - - + -
-
- Forma de pago
- +
+ Forma de pago
+ @@ -1374,7 +1374,7 @@
- + Días extras
@@ -1382,27 +1382,28 @@
- + Ejercicio
- +
¿Prima Vacacional?
-
- -
- ¿Cobrar IMSS? +
+ +
+ ¿Cobrar IMSS? +
+
- -
+
Actualizar @@ -1687,20 +1688,45 @@
-
- - - +
+
+
Calcular automatico
-
- - - +
+
+
+ + + +
+
+
+ +
-
- - - +
+
+
+ + + +
+
+
+ +
+
+
+
+
+ + + +
+
+
+ +
@@ -2257,17 +2283,16 @@ Tipo Periodo:
- +
Salario Diario
-
+
-
-
+
<%--
--%> diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 5f0143d8c..14750421c 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -1823,11 +1823,33 @@ public partial class Nomina_Nomina2 : ClsPaginas TxtmcImporte.Text = ""; TxtmcImporteGrabado.Text = ""; Txtmcvalor.Text = ""; + ChkCalAutomaticoG.Checked = false; + ChkCalAutomatico.Checked = false; + ChkCalAutomaticoV.Checked = false; if (CveConcepto > 0) { DataRow drow = dtempleadosConceptos.FiltroPrimero(string.Format("CveConcepto={0} AND CvePersonal ={1}", CveConcepto, CvePersonal)); if (drow != null) { + int TipoCalculo = drow["Estatus"].ToString().ToEntero(); + ChkCalAutomaticoG.Checked = true; + ChkCalAutomatico.Checked = true; + ChkCalAutomaticoV.Checked = true; + if (TipoCalculo >= 5) + { + TipoCalculo -= 5; + ChkCalAutomaticoG.Checked = false; + } + if (TipoCalculo >= 3) + { + TipoCalculo -= 3; + ChkCalAutomatico.Checked = false; + } + if (TipoCalculo >= 1) + { + ChkCalAutomaticoV.Checked = false; + + } TxtmcImporte.Text = string.Format("{0:N2}", drow["Importe"]); TxtmcImporteGrabado.Text = string.Format("{0:N2}", drow["ImporteGravado"]); Txtmcvalor.Text = string.Format("{0:N2}", drow["Valor"]); @@ -1841,12 +1863,30 @@ public partial class Nomina_Nomina2 : ClsPaginas } } UPpanelModalUpConcepto.Update(); + ChkCalAutomaticoV_CheckedChanged(ChkCalAutomaticoV, null); + ChkCalAutomatico_CheckedChanged(ChkCalAutomatico, null); + ChkCalAutomaticoG_CheckedChanged(ChkCalAutomaticoG, null); + } + protected void ChkCalAutomaticoV_CheckedChanged(object sender, EventArgs e) + { + + Txtmcvalor.Enabled = !ChkCalAutomaticoV.Checked; + } + protected void ChkCalAutomatico_CheckedChanged(object sender, EventArgs e) + { + + TxtmcImporte.Enabled = !ChkCalAutomatico.Checked; + } + protected void ChkCalAutomaticoG_CheckedChanged(object sender, EventArgs e) + { + TxtmcImporteGrabado.Enabled = !ChkCalAutomaticoG.Checked; + } protected void BtnAceptarMC_Click(object sender, EventArgs e) { - int chkImporte = 1; - int chkImporteGravado = 1; - int chkImporteValor = 1; + int chkImporte = ChkCalAutomatico.Checked? 0:1; + int chkImporteGravado = ChkCalAutomaticoG.Checked ? 0 : 1; + int chkImporteValor = ChkCalAutomaticoV.Checked ? 0 : 1; bool continuar = true; int CveNomina = 0; double Total = 0; @@ -1858,12 +1898,15 @@ public partial class Nomina_Nomina2 : ClsPaginas CvePersonal = DdlmcPersonal.SelectedValue.ToEntero(); } int CveConcepto = DdlmcConceptos.SelectedValue.ToEntero(); - if (CveConcepto > 0 && CvePersonal > 0) - { decimal ImporteConcepto = TxtmcImporte.Text.Replace("$", "").Replace(",", "").ToDecimal(); - decimal ImporteGravadoConcepto = TxtmcImporteGrabado.Text.Replace("$", "").Replace(",", "").ToDecimal(); + decimal ImporteGravadoConcepto = ChkCalAutomaticoG.Checked ? 0.0m : TxtmcImporteGrabado.Text.Replace("$", "").Replace(",", "").ToDecimal(); decimal ImporteExentoConcepto = ImporteConcepto - ImporteGravadoConcepto; decimal ImporteValor = Txtmcvalor.Text.Replace("$", "").Replace(",", "").ToDecimal(); + if ((ImporteConcepto>= 0 && ImporteGravadoConcepto<= ImporteConcepto)|| (ImporteConcepto < 0 && ImporteGravadoConcepto >= ImporteConcepto)) + { + + if (CveConcepto > 0 && CvePersonal > 0) + { using (ClsNominas objNomina = new ClsNominas()) { @@ -1933,6 +1976,11 @@ public partial class Nomina_Nomina2 : ClsPaginas { Alert("Debe seleccionar un concepto.", TipoMensaje.MsgAdvertencia); } + } + } + else + { + Alert("el importe gravado no puede ser mayor al importe total, en caso de que el importe total sea negativo no puede ser menor.",TipoMensaje.MsgAdvertencia ); } } @@ -5728,7 +5776,8 @@ public partial class Nomina_Nomina2 : ClsPaginas VacFolioActual = VacFolioActual + 1; ClsRH objRH = new ClsRH(); // Dim continuar As Boolean = objRH.SolicitudVacacionesAdd(CvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, motivoVacaciones) - bool continuar = objRH.SolicitudVacacionesAdd(SRCvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago: fechapago, diasinabiles: diasinhabil, CveTipoPago: DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras: TxtVacDiasExtra.Text.ToEntero());// + bool continuar = objRH.SolicitudVacacionesAdd(SRCvePersonal, fInicio, fFin, 0, UsuarioActual.CveUsuario, VacCveSupervisor, VacFolioActual, FechaPago: fechapago, + diasinabiles: diasinhabil, CveTipoPago: DdlFormapagovacaciones.SelectedValue.ToEntero(), diasExtras: TxtVacDiasExtra.Text.ToEntero()); if (objRH.DtResultados.Rows.Count > 0) { string ShowError = objRH.DtResultados.Rows[0]["ShowError"].ToString(); @@ -6733,4 +6782,5 @@ public partial class Nomina_Nomina2 : ClsPaginas LnkSRVacacionesADD.Visible = true; } + } diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index 3f6a9d946..656147974 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -939,7 +939,16 @@
-