From def012c005783c616fa6afe090b7ec990d0e39b7 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 3 Jul 2020 17:50:52 -0700 Subject: [PATCH 1/3] Correcion de devolucion de impuestos --- Ventas/Ventas.aspx.vb | 118 ++++++++++++++++++++++-------------------- 1 file changed, 63 insertions(+), 55 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index cd322a23a..7175cc562 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -9564,6 +9564,11 @@ Partial Class Ventas CveTipoRetencion = factura.CveTipoRetencion End If + 'SI LA FACTURA ESTA PAGADA DEBE MARCAR LA DEVOLUCION POR SI SE QUIERE AMORTIZAR + If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso factura.TipoDocto = "Dev" Then + factura.Alfa3 = "DEV" + End If + factura.CvePrePoliza = ObjConta.AddPrePolizas("Ventas/GuardarVenta", factura.CvePlantillaPoliza, factura.Total, factura.Total, factura.CveMoneda, factura.Fecha, If(CveEmpresaCRM > 0, LblEmpresaCRM.Text, factura.Cliente.Nombre), factura.CveUsuario, factura.CveEmpresa) If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC, factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC, @@ -10886,12 +10891,12 @@ Partial Class Ventas For Each Row2 As DataRow In DT.Rows importeMovimiento = (TmpDTDetalle.SUM("TotalImporte", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador - If ObjFactura.TipoDocto = "Egs" Then - importeMovimiento += (TmpDTDetalle.SUM("ImporteIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador - importeMovimiento += (TmpDTDetalle.SUM("ImporteIEPS", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador - importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador - importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetISR", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador - End If + 'If ObjFactura.TipoDocto = "Egs" Then + ' importeMovimiento += (TmpDTDetalle.SUM("ImporteIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador + ' importeMovimiento += (TmpDTDetalle.SUM("ImporteIEPS", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador + ' importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetIVA", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador + ' importeMovimiento -= (TmpDTDetalle.SUM("ImporteRetISR", String.Format("CveClasificacion = {0} And CveSubProyecto = {1}", Row2("CveClasificacion"), Row2("CveSubProyecto"))).ToString().ToDecimal) * ValorMultiplicador + 'End If importeMX = importeMovimiento * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago @@ -10992,7 +10997,8 @@ Partial Class Ventas CveSubProyectoContabilizar = CveSubProyectoVenta If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - If ObjFactura.TipoDocto = "Dev" Then + 'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO + If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then TipoMovimiento = True ConceptoContable = 62 importeMovimiento = importeMovimiento * -1 @@ -11030,7 +11036,8 @@ Partial Class Ventas CveSubProyectoContabilizar = CveSubProyectoVenta If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - If ObjFactura.TipoDocto = "Dev" Then + 'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO + If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then TipoMovimiento = True ConceptoContable = 314 importeMovimiento = importeMovimiento * -1 @@ -11054,7 +11061,8 @@ Partial Class Ventas FechaMovimiento = ObjFactura.FechaPago CveSubProyectoContabilizar = CveSubProyectoVenta - If ObjFactura.TipoDocto = "Dev" Then + 'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO + If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then TipoMovimiento = True ConceptoContable = 63 importeMovimiento = importeMovimiento * -1 @@ -11092,7 +11100,8 @@ Partial Class Ventas FechaMovimiento = ObjFactura.FechaPago PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal - If ObjFactura.TipoDocto = "Dev" Then + 'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO + If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then TipoMovimiento = True ConceptoContable = 61 importeMovimiento = importeMovimiento * -1 @@ -11110,41 +11119,39 @@ Partial Class Ventas If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" End If + 'If ObjFactura.TipoDocto = "Egs" Then - If ObjFactura.TipoDocto = "Egs" Then + ' importeMovimiento = ObjFactura.IVA * ValorMultiplicador + ' importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2) + ' FechaMovimiento = ObjFactura.FechaPago + ' PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal - importeMovimiento = ObjFactura.IVA * ValorMultiplicador - importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2) - FechaMovimiento = ObjFactura.FechaPago - PorcentajeImpuesto = TmpDT.MAX("PorcentajeIVA").ToDecimal + ' If importeMovimiento <> 0 Then + ' 'IVA X TRASLADAR + ' IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) + ' CveCuentaIVAxTrasladar = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar) + ' Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If importeMovimiento <> 0 Then - 'IVA X TRASLADAR - IdCtaIVAXTrasladar = If(IdCtaIVAXTrasladar > 0, IdCtaIVAXTrasladar, UsuarioActual.Empresa.IdCuentaIVAxTrasladar) - CveCuentaIVAxTrasladar = If(CveCuentaIVAxTrasladar > 0, CveCuentaIVAxTrasladar, UsuarioActual.Empresa.CveCuentaIVAxTrasladar) - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 13, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + ' If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVAxTrasladar, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then + ' ErrorPrepoliza = True + ' Exit For + ' End If - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVAxTrasladar, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then - ErrorPrepoliza = True - Exit For - End If + ' 'IVA PAGADO + ' IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) + ' CveCuentaIVATrasladado = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) + ' Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - 'IVA PAGADO - IdCtaIVATrasladado = If(IdCtaIVATrasladado > 0, IdCtaIVATrasladado, UsuarioActual.Empresa.IdCuentaIVATrasladado) - CveCuentaIVATrasladado = If(CveCuentaIVATrasladado > 0, CveCuentaIVATrasladado, UsuarioActual.Empresa.CveCuentaIVATrasladado) - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 61, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVATrasladado, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then - ErrorPrepoliza = True - Exit For - End If - End If + ' If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVATrasladado, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuesto) Then + ' ErrorPrepoliza = True + ' Exit For + ' End If + ' End If - importeMovimiento = 0 - importeMX = 0 - End If - + ' importeMovimiento = 0 + ' importeMX = 0 + 'End If Case 38 'IEPS por Trasladar If Not ObjFactura.TipoDocto.Contiene("Rem") Then @@ -11153,7 +11160,8 @@ Partial Class Ventas FechaMovimiento = ObjFactura.Fecha CveSubProyectoContabilizar = CveSubProyectoVenta - If ObjFactura.TipoDocto = "Dev" Then + 'SI LA FACTURA ESTA PAGADA EN SU TOTALIDAD DEBE REGRESAR EL IMPUESTO + If (ObjFacturaNC IsNot Nothing AndAlso ObjFacturaNC.Pagado > 0) AndAlso ObjFactura.TipoDocto = "Dev" Then TipoMovimiento = True ConceptoContable = 39 importeMovimiento = importeMovimiento * -1 @@ -11176,24 +11184,24 @@ Partial Class Ventas If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" - If importeMovimiento <> 0 AndAlso ObjFactura.TipoDocto = "Egs" Then - 'IEPS X TRASLADAR - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - Exit For - End If + 'If importeMovimiento <> 0 AndAlso ObjFactura.TipoDocto = "Egs" Then + ' 'IEPS X TRASLADAR + ' Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + ' If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + ' ErrorPrepoliza = True + ' Exit For + ' End If - 'IEPS PAGADO - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - Exit For - End If + ' 'IEPS PAGADO + ' Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, ObjFactura.Cliente.Nombre, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + ' If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=-1, ImporteMX:=importeMX * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveSubProyecto:=CveSubProyectoContabilizar) Then + ' ErrorPrepoliza = True + ' Exit For + ' End If - importeMovimiento = 0 - importeMX = 0 - End If + ' importeMovimiento = 0 + ' importeMX = 0 + 'End If End If From 7cf14ef53b27419fdb8a454813b4d64af3e6b06b Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 3 Jul 2020 20:02:49 -0700 Subject: [PATCH 2/3] agregando la carga de los ddl desde clspaginas --- App_Code/ClsPaginas.vb | 10 ++++-- Compras/Compras.aspx | 27 +++++++++------ Compras/Compras.aspx.vb | 76 ++++++++++++++++++++--------------------- 3 files changed, 63 insertions(+), 50 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a04b7132b..e5e692298 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -8053,12 +8053,18 @@ Public Class ClsPaginas If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False LblSubProyecto.Text = "Proyecto" Case 4 - If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto" + If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto
" LblSubProyecto.Text = "Subproyecto" Case 5 - If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto" + If LthProyectoP IsNot Nothing Then LthProyectoP.Text = "Proyecto
" LblSubProyecto.Text = "Sucursal" End Select + DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})) + DdlProyecto.DataBind() + + DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) + DdlSubProyecto.DataBind() + DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub End Class diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 781193794..82abd140c 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -613,9 +613,8 @@ Producto o Servicio Observación -   - - + +   @@ -650,13 +649,21 @@ - - - - <%--
--%> - - - +
+
+ + + +
+ <%----%> +
+
+
+ + + +
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 816d8cd42..9782d8da6 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -1546,11 +1546,11 @@ Partial Class Compras_Compras ' LblSubProyecto.InnerText = "Proyecto" ' 'LblSubProyectoDivAplica.InnerText = "Proyecto" - DdlSubProyecto.Items.Clear() - ' 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlSubProyecto.Items.Clear() + ''DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) + 'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) + 'DdlSubProyecto.DataBind() + 'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) ' 'DdlAsignaSubProyecto.Items.Clear() ' 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) @@ -1572,48 +1572,48 @@ Partial Class Compras_Compras ' LblSubProyecto.InnerText = "Sucursal" ' 'LblSubProyectoDivAplica.InnerText = "Sucursal" - DdlSubProyecto.Items.Clear() - 'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlSubProyecto.Items.Clear() + ''DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) + 'DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) + 'DdlSubProyecto.DataBind() + 'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - ' 'DdlAsignaSubProyecto.Items.Clear() - ' 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) - ' 'DdlAsignaSubProyecto.DataBind() - ' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + ' 'DdlAsignaSubProyecto.Items.Clear() + ' 'DdlAsignaSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) + ' 'DdlAsignaSubProyecto.DataBind() + ' 'DdlAsignaSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - divproyecto.Visible = False - 'divasignaproyecto.Visible = False - DdlProyecto.Visible = False - DdlProyecto.Items(0).Text = "" + divproyecto.Visible = False + 'divasignaproyecto.Visible = False + DdlProyecto.Visible = False + DdlProyecto.Items(0).Text = "" - 'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then - ' LitHProyecto.Text = "Sucursal" - ' LthProyectoP.Text = "Sucursal" + 'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then + ' LitHProyecto.Text = "Sucursal" + ' LthProyectoP.Text = "Sucursal" - ' LblSubProyectoHeader.Text = "Proyecto" - ' LblSubProyectoPHeader.Text = "Proyecto" + ' LblSubProyectoHeader.Text = "Proyecto" + ' LblSubProyectoPHeader.Text = "Proyecto" - ' 'LblSubProyectoDivAplica.InnerText = "Sucursal" - ' 'LblProyectoDivAplica.InnerText = "Proyecto" - ' LblSubProyecto.InnerText = "Sucursal" - ' LblProyecto.InnerText = "Proyecto" + ' 'LblSubProyectoDivAplica.InnerText = "Sucursal" + ' 'LblProyectoDivAplica.InnerText = "Proyecto" + ' LblSubProyecto.InnerText = "Sucursal" + ' LblProyecto.InnerText = "Proyecto" - 'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then - ' LitHProyecto.Text = "Proyecto" - ' LthProyectoP.Text = "Proyecto" + 'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then + ' LitHProyecto.Text = "Proyecto" + ' LthProyectoP.Text = "Proyecto" - ' LblSubProyectoHeader.Text = "Sucursal" - ' LblSubProyectoPHeader.Text = "Sucursal" + ' LblSubProyectoHeader.Text = "Sucursal" + ' LblSubProyectoPHeader.Text = "Sucursal" - ' 'LblSubProyectoDivAplica.InnerText = "Proyecto" - ' 'LblProyectoDivAplica.InnerText = "Sucursal" - ' LblSubProyecto.InnerText = "Proyecto" - ' LblProyecto.InnerText = "Sucursal" - End If + ' 'LblSubProyectoDivAplica.InnerText = "Proyecto" + ' 'LblProyectoDivAplica.InnerText = "Sucursal" + ' LblSubProyecto.InnerText = "Proyecto" + ' LblProyecto.InnerText = "Sucursal" + End If - CargaGvPersonal() + CargaGvPersonal() CargaDdlPersonal() From 2624f0d8e1dae6addef5bbd93976b9836dbc19f2 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 3 Jul 2020 20:03:27 -0700 Subject: [PATCH 3/3] - --- Acumuladores/CatFoliosGarantia.aspx | 2 +- Acumuladores/CatFoliosGarantia.aspx.vb | 1 + Ventas/Ventas.aspx | 8 ++-- Ventas/Ventas.aspx.vb | 51 +++++++++++++------------- 4 files changed, 32 insertions(+), 30 deletions(-) diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx index d5595991a..ee503615a 100644 --- a/Acumuladores/CatFoliosGarantia.aspx +++ b/Acumuladores/CatFoliosGarantia.aspx @@ -250,10 +250,10 @@
+ SubProyecto: -
diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb index 778a6275d..26e8947e3 100644 --- a/Acumuladores/CatFoliosGarantia.aspx.vb +++ b/Acumuladores/CatFoliosGarantia.aspx.vb @@ -47,6 +47,7 @@ Partial Class Acumuladores_CatFoliosGarantia #Region "Folios Garantía" Private Sub CargaSubProyectos() + CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto) DdlSubProyectos.Items.Clear() DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) DdlSubProyectos.DataBind() diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index a394d9dfa..5d72b5557 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -891,8 +891,8 @@ Cantidad
Facturada -
- +
+ P.U.  Desc @@ -5345,16 +5345,16 @@
+ Proyecto: -
+ SubProyecto: -
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index afc90a877..0fb24e713 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1948,7 +1948,7 @@ Partial Class Ventas CreaDTmpF() CreaDTDocumentosRelacionados() CargaDdlSubProyectos() - CargaProyecto() + 'CargaProyecto() CargaSucursales() CargaClasificaciones() @@ -2455,10 +2455,10 @@ Partial Class Ventas 'DdlProyecto.Visible = False BrSubProyecto.Visible = False DdlProyectoPyME.Visible = False - LblProyectoHeader.Text = "Sucursal" + ' LblProyectoHeader.Text = "Sucursal" LblSubProyecto.Text = "" divProyectoPyME.Visible = False - LblSubProyectoPyME.InnerText = "Sucursal" + 'LblSubProyectoPyME.InnerText = "Sucursal" Dim dttSub As New DataTable dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) @@ -2479,37 +2479,38 @@ Partial Class Ventas 'DdlProyecto.Visible = False BrSubProyecto.Visible = False DdlProyectoPyME.Visible = False - LblProyectoHeader.Text = "Proyecto" + 'LblProyectoHeader.Text = "Proyecto" LblSubProyecto.Text = "" divProyectoPyME.Visible = False - LblSubProyectoPyME.InnerText = "Proyecto" - Dim dttSub As New DataTable - dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) + 'LblSubProyectoPyME.InnerText = "Proyecto" + 'Dim dttSub As New DataTable + 'dttSub = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyecto.Items.Clear() - DdlSubProyecto.DataSource = dttSub - 'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) - DdlSubProyecto.DataBind() - DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'DdlSubProyecto.Items.Clear() + 'DdlSubProyecto.DataSource = dttSub + ''DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) + 'DdlSubProyecto.DataBind() + 'DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlSubProyectoPyME.Items.Clear() - DdlSubProyectoPyME.DataSource = dttSub - 'DdlSubProyectoPyME.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) - DdlSubProyectoPyME.DataBind() - DdlSubProyectoPyME.Items.Insert(0, New ListItem("Seleccione", "-1")) - dttSub.Dispose() + 'DdlSubProyectoPyME.Items.Clear() + 'DdlSubProyectoPyME.DataSource = dttSub + ''DdlSubProyectoPyME.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"}) + 'DdlSubProyectoPyME.DataBind() + 'DdlSubProyectoPyME.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'dttSub.Dispose() - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then - LblProyectoHeader.Text = "Sucursal" - LblSubProyecto.Text = "Proyecto" + 'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then + ' LblProyectoHeader.Text = "Sucursal" + ' LblSubProyecto.Text = "Proyecto" - ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then - LblProyectoHeader.Text = "Proyecto" - LblSubProyecto.Text = "Sucursal" + 'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then + ' LblProyectoHeader.Text = "Proyecto" + ' LblSubProyecto.Text = "Sucursal" End If - CargarCentrosDeCosto(Nothing, Nothing, LblProyectoHeader, LblSubProyecto) + CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyectoHeader, LblSubProyecto) + CargarCentrosDeCosto(DdlProyectoPyME, DdlSubProyectoPyME, LblProyectoPyME, LblSubProyectoPyME) 'MOSTRAR LA OPCION DE AGREGAR PS EN BDH If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then