From ea9bbea37ccd3b01db9658c07257fa6af8a8460a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 9 Nov 2020 11:15:01 -0700 Subject: [PATCH 01/75] Correcion en recepcion de compras con usados --- Inventarios/RecepcionAlmacen.aspx.vb | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index 99ce829eb..993e5ce61 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -978,8 +978,17 @@ Partial Class Inventarios_RecepcionAlmacen CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra) End If Else - SumarImporteUsados = False DtRecepcion = ObjInventario.DtResultados.Copy() + + 'VERIFICA LOS QUE TENGAN LAS CLASIFICACION DE USADOS + If ObjCompras.GetCompraDetalle(pCveCompra) Then + If ObjCompras.DtResultados.COUNT("Cantidad", "CveClasificacion=20519") > 0 Then + SumarImporteUsados = True + Else + SumarImporteUsados = False + End If + End If + End If CveAlmacenDevolucionProveedor = DtRecepcion.Rows(0)("CveAlmacenDevolucionProveedor").ToString.ToEntero From ee889a8bd2bece55f4ec05ac57843c0d2df92341 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 9 Nov 2020 12:58:13 -0700 Subject: [PATCH 02/75] - todos las cuentas --- Contabilidad/RepIVA.aspx.cs | 1 + 1 file changed, 1 insertion(+) diff --git a/Contabilidad/RepIVA.aspx.cs b/Contabilidad/RepIVA.aspx.cs index 6d37128bf..ff5467b8a 100644 --- a/Contabilidad/RepIVA.aspx.cs +++ b/Contabilidad/RepIVA.aspx.cs @@ -68,6 +68,7 @@ public partial class Contabilidad_RepIVA : ClsPaginas DdlCuenta.DataSource = get_GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:UsuarioActual.CveEmpresa, CveTipoCuenta:2); DdlCuenta.DataBind(); + DdlCuenta.Items.Insert(0, new ListItem("Todos", "-1")); } public void Consulta() From a684591c6713bcd28b90b834d166331e22022878 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 9 Nov 2020 12:58:36 -0700 Subject: [PATCH 03/75] -- registro, con serie,lote,caducidad --- Inventarios/Consignaciones.aspx.vb | 15 ++++++++++++--- 1 file changed, 12 insertions(+), 3 deletions(-) diff --git a/Inventarios/Consignaciones.aspx.vb b/Inventarios/Consignaciones.aspx.vb index a98290c76..8da1e3b5e 100644 --- a/Inventarios/Consignaciones.aspx.vb +++ b/Inventarios/Consignaciones.aspx.vb @@ -595,9 +595,9 @@ Partial Class Inventarios_Consignaciones Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero Dim SeccionAlmacen As String = DdlSeccionAlmacen.SelectedItem.Text - Dim Serie As String = If(TxtSerie.Text = "", "-1", TxtSerie.Text) - Dim Lote As String = If(TxtLote.Text = "", "-1", TxtLote.Text) - Dim Caducidad As String = If(TxtCaducidad.Text = "", "-1", TxtCaducidad.Text) + Dim Serie As String = If(TxtSerie.Text = "", "", TxtSerie.Text) + Dim Lote As String = If(TxtLote.Text = "", "", TxtLote.Text) + Dim Caducidad As String = If(TxtCaducidad.Text = "", MinFecha.ToShortDateString, TxtCaducidad.Text) Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=PSSelected).FiltroPrimero("") @@ -634,6 +634,15 @@ Partial Class Inventarios_Consignaciones GvDatos.DataSource = DtMovimientos GvDatos.DataBind() + + If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then + GvDatos.Columns(7).Visible = DtMovimientos.MAX("CveSeccionAlmacen").ToEntero > 0 + GvDatos.Columns(8).Visible = DtMovimientos.MAX("Serie") <> "" + GvDatos.Columns(9).Visible = DtMovimientos.MAX("Lote") <> "" + GvDatos.Columns(10).Visible = DtMovimientos.MAX("FechaCaducidad").ToDate > MinFecha + + End If + TxtCantidad.Text = "" TxtPU.Text = "" LbTotal.Text = "" From 69e7eee86f22ee9c32a524285bb9116943404cbe Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 9 Nov 2020 12:58:56 -0700 Subject: [PATCH 04/75] -- permiso 131, que aplique al editar una OC ya autorizada --- OC/OC.aspx.vb | 2 +- vwd.webinfo | 4 ++++ 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 35b261248..fb8f773a7 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -3740,7 +3740,7 @@ Partial Class OC GvD.EditIndex = e.NewEditIndex CargaDatosDetalles() Dim EditingRow As GridViewRow = GvD.Rows(e.NewEditIndex) - If Not EsCreaApartirDe Then + If Not EsCreaApartirDe AndAlso Not UsuarioActual.TienePermisoProceso(131) Then 'si tiene el proce 131, e va a permitir, sino que lo bloquee If EditingRow.DataKey("TipoDato").ToEntero = 2 Or EditingRow.DataKey("CantidadNoEditable").ToDecimal > 0 Then EditingRow.FCDropDownList("DdlClasificacion").Enabled = False EditingRow.FCDropDownList("DdlPS").Enabled = False diff --git a/vwd.webinfo b/vwd.webinfo index 58b25d2ef..1391aa8cf 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -130,6 +130,10 @@ + + + + From 47e7aefb7207a720f8f0fc237ffad03b7523bde6 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 9 Nov 2020 19:24:22 -0700 Subject: [PATCH 05/75] Correcion en porcentaje de iva en pagos --- Ventas/Ventas.aspx.vb | 67 ++++++++++++++++++++++++------------------- 1 file changed, 38 insertions(+), 29 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 71ec1f5d1..6fccf6b6f 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -11906,8 +11906,6 @@ Partial Class Ventas IdCtaContable = 0 CveCuenta = 0 CveSubProyectoContabilizar = CveSubProyectoVenta - Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIVA").ToDecimal - If GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows.Count = 1 Then IdCtaContable = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, DrPago("CveCuenta").ToString().ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)("IdCtaContable").ToString().ToEntero() @@ -11938,36 +11936,47 @@ Partial Class Ventas Exit For End If - '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, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVAxTrasladar, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then - ErrorPrepoliza = True - Exit For + + If ObjFactura.IVA <> 0 Then + Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIVA").ToDecimal + + '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, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 13, Concepto, Fecha, IdCtaIVAXTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVAxTrasladar, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) 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, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVATrasladado, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then + ErrorPrepoliza = True + Exit For + End If 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, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IVA) / ObjFactura.Total, Referencia, 61, Concepto, Fecha, IdCtaIVATrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IVA) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuentaIVATrasladado, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then - ErrorPrepoliza = True - Exit For - End If - 'IEPS X TRASLADAR - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=UsuarioActual.Empresa.CveCuentaIEPSxTrasladar, CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - Exit For - End If - 'IEPS PAGADO - Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) - If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=UsuarioActual.Empresa.CveCuentaIEPSTrasladado, CveSubProyecto:=CveSubProyectoContabilizar) Then - ErrorPrepoliza = True - Exit For + If ObjFactura.IEPS <> 0 Then + Dim PorcentajeImpuestoPago As Decimal = TmpDT.MAX("PorcentajeIEPS").ToDecimal + + 'IEPS X TRASLADAR + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 38, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 38, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSxTrasladar, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=UsuarioActual.Empresa.CveCuentaIEPSxTrasladar, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then + ErrorPrepoliza = True + Exit For + End If + + 'IEPS PAGADO + Concepto = ObjConta.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, 39, NombreCliente, $"{ObjFactura.Serie}-{ObjFactura.Folio}", FolioIE.ToString()) + If ObjFactura.IEPS > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, (importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total, Referencia, 39, Concepto, Fecha, UsuarioActual.Empresa.IdCuentaIEPSTrasladado, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=CveCliente, CveIE:=CveIEPago, ImporteMX:=((importeMovimiento * ObjFactura.IEPS) / ObjFactura.Total) * tipoCambio * Multiplicador, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=UsuarioActual.Empresa.CveCuentaIEPSTrasladado, CveSubProyecto:=CveSubProyectoContabilizar, PorcentajeImpuesto:=PorcentajeImpuestoPago) Then + ErrorPrepoliza = True + Exit For + End If End If @@ -12125,7 +12134,7 @@ Partial Class Ventas If UsuarioActual.Empresa.UsaInventarios AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem", "Dev") Then - If RemisionesLista.Count > 0 AndAlso factura.TipoDocto.Contiene("Ing", "Egs", "Rem") Then + If RemisionesLista.Count > 0 AndAlso factura.TipoDocto.Contiene("Ing", "Rem") Then For Each CveRemision As Integer In RemisionesLista 'El almacen general es el Primer Almacen de Material en la Sucursal If Not TraspasoAlmacen(ObjInventario, CveRemision, ObjConta, True, 9) Then From 21bc9c576d58a7c3604139fc2445cd42f35b08f1 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Mon, 9 Nov 2020 19:24:47 -0700 Subject: [PATCH 06/75] Agregar gastos desde trayectos --- GPS/TrayectoDetalle.aspx | 71 +++++++++++++++++++++++++++++++++---- GPS/TrayectoDetalle.aspx.vb | 30 ++++++++++++++++ 2 files changed, 95 insertions(+), 6 deletions(-) diff --git a/GPS/TrayectoDetalle.aspx b/GPS/TrayectoDetalle.aspx index 1721b3034..c38fa69ef 100644 --- a/GPS/TrayectoDetalle.aspx +++ b/GPS/TrayectoDetalle.aspx @@ -34,13 +34,16 @@ -
  • - - + + +
  • Terminar Trayecto - - -
    • + +
  • + Agregar Gasto +
    • + +     @@ -488,6 +491,62 @@ + @@ -3056,6 +3158,36 @@ } + function ValidateCant(variable) { + + var txt = $(variable); + var max = txt.data('cantidad'); + var value = parseInt(txt.val()); + if (value > max) { + txt.val(max); + } + if (value < 0) { + txt.val(0); + } + + var importe = $('.txtimporte[data-cve="' + txt.data('cve') + '"]'); + importe.val(parseFloat(txt.val()) * parseFloat(txt.data('pu'))); + + } + + + + function keydownenabledtab(event) { + var key = event.keyCode; + + + if (key == 9) { + return true; + } else { + event.preventDefault(); + } + + } diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 35b261248..41a611481 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -547,9 +547,27 @@ Partial Class OC End Set End Property + + + Private Property ContratoObraAplciado As Boolean + Get + If ViewState("ContratoObraAplciado") Is Nothing Then + Return False + Else + Return Boolean.Parse(ViewState("ContratoObraAplciado").ToString) + End If + End Get + Set(value As Boolean) + ViewState("ContratoObraAplciado") = value + End Set + End Property + + + #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load + If Not Page.IsPostBack Then CargaDatosAgregarPS() @@ -582,6 +600,7 @@ Partial Class OC CargaDatos(CveOrdenCompra) Else + LIContratos.Visible = True EsNuevo = True InicializarValores() HlAgregarExcel.Visible = True @@ -1065,6 +1084,8 @@ Partial Class OC DtDetalle.Columns.Add("CveVentaDetalleCotizacion", GetType(Integer)) + DtDetalle.Columns.Add("CveTipoGastoObra", GetType(Integer)) + 'DtDetalle.Columns.Add("CveOrdenCompraDetalle", GetType(Integer)) ' DtDetalle.Columns.Add("ClasificacionOG", GetType(String)) @@ -2150,7 +2171,7 @@ Partial Class OC Private Sub AddPS(Cantidad As String, CvePS As Integer, PS As String, Observaciones As String, Importe As Double, Descuento As Double, Total As Double, CveUnidadMedida As Integer, IVAPS As Double, IEPSPS As Double, IEPSPSIVA As Double, CveClasificacion As Integer, UM As String, Clasificacion As String, CveProyecto As Integer, Proyecto As String, CveSubProyecto As Integer, SubProyecto As String, CodigoAF As String, CveActivoFijo As Integer, TipoDato As Integer, CveOrdenCompraDetalle As Integer, CveOrdenCompra As Integer, IdCuentaPorEjercer As Integer, IdCuentaComprometido As Integer, CveProgramaOperativo As Integer, CveUnidadAdministrativa As Integer, - CveFuenteFinanciamiento As Integer, CveTipoGasto As Integer, CveClasificacionOG As Integer, RetIVA As Double, RetISR As Double, Optional CveContratoDetalle As Integer = 0) + CveFuenteFinanciamiento As Integer, CveTipoGasto As Integer, CveClasificacionOG As Integer, RetIVA As Double, RetISR As Double, Optional CveContratoDetalle As Integer = -1, Optional CveTipoGastoObra As Integer = -1) If DtDetalle IsNot Nothing Then Dim dr As DataRow = DtDetalle.NewRow @@ -2206,6 +2227,8 @@ Partial Class OC dr("CveTipoGasto") = CveTipoGasto dr("CveClasificacionOG") = CveClasificacionOG dr("CveContratoDetalle") = CveContratoDetalle + dr("CveTipoGastoObra") = CveTipoGastoObra + DtDetalle.Rows.Add(dr) DtDetalle.AcceptChanges() @@ -2488,7 +2511,7 @@ Partial Class OC IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, - IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) Then + IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble, CveTipoGastoObra:=dr("CveTipoGastoObra").ToString.ToEntero) Then TieneError = True Exit For End If @@ -2566,7 +2589,7 @@ Partial Class OC dr("Observacion").ToString, UsuarioActual.CveUsuario, CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, pCveOrdenCompraPadre:=CveOrdenCompraPadre, Descuento:=dr("Descuento").ToString.ToDouble, IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, - IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble, CveVentaDetalleCotizacion:=dr("CveVentaDetalleCotizacion").ToString().ToEntero()) Then + IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble, CveVentaDetalleCotizacion:=dr("CveVentaDetalleCotizacion").ToString().ToEntero(), CveTipoGastoObra:=dr("CveTipoGastoObra").ToString.ToEntero) Then TieneError = True Exit For End If @@ -2679,7 +2702,7 @@ Partial Class OC 'inserto los nuevos detalles If Not TieneError Then For Each dr As DataRow In DtDetalle.FiltraParametros("TipoDato = 0").Rows - If Not OC.AddOrdenCompraDetalle(CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, CvePresupuestoEgreso:=If(TipoOC = "REQ", -1, dr("CvePresupuestoEgreso").ToString.ToEntero), Descuento:=dr("Descuento").ToString.ToDouble, IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) Then + If Not OC.AddOrdenCompraDetalle(CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero, dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, CvePresupuestoEgreso:=If(TipoOC = "REQ", -1, dr("CvePresupuestoEgreso").ToString.ToEntero), Descuento:=dr("Descuento").ToString.ToDouble, IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble, CveTipoGastoObra:=dr("CveTipoGastoObra").ToString.ToEntero) Then TieneError = True Exit For Else @@ -3158,7 +3181,8 @@ Partial Class OC RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, - IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) Then + IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble, + CveTipoGastoObra:=dr("CveTipoGastoObra").ToString.ToEntero) Then HuboError = True Exit For End If @@ -3199,7 +3223,7 @@ Partial Class OC 'CveOrdenCompra = objOrdenCompra.CveOrdenCompra If Not HuboError Then For Each dr As DataRow In DtDetalle.Rows - If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(), dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, CveOrdenCompra, CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble, IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble) Then + If Not objOrdenCompra.AddOrdenCompraDetalle(objOrdenCompra.CveOrdenCompra, dr("Cantidad").ToString.ToDouble(), dr("CveUnidadMedida").ToString.ToEntero, dr("CvePS").ToString.ToEntero, dr("Importe").ToString.ToDouble, dr("CveSubProyecto").ToString.ToEntero(), dr("CveActivoFijo").ToString.ToEntero, dr("Observacion").ToString, UsuarioActual.CveUsuario, CveOrdenCompra, CvePresupuestoEgreso:=dr("CvePresupuestoEgreso").ToString.ToEntero, Descuento:=dr("Descuento").ToString.ToDouble, IEPSPS:=dr("IEPSPS").ToString.ToDouble, IEPSPSIVA:=dr("IEPSPSIVA").ToString.ToDouble, IVA:=dr("IVA").ToString.ToDouble, RetIVA:=dr("RetIVA").ToString.ToDouble, RetISR:=dr("RetISR").ToString.ToDouble, Total:=dr("Total").ToString.ToDouble, CveContratoDetalle:=dr("CveContratoDetalle").ToString.ToEntero, IVAPorcentaje:=dr("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=dr("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=dr("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=dr("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=dr("IEPSPSIVAPorcentaje").ToString.ToDouble, CveTipoGastoObra:=dr("CveTipoGastoObra").ToString.ToEntero) Then HuboError = True Exit For End If @@ -3751,6 +3775,15 @@ Partial Class OC End If End If + If ContratoObraAplciado Then + EditingRow.FCDropDownList("DdlClasificacion").Enabled = False + EditingRow.FCDropDownList("DdlPS").Enabled = False + EditingRow.FCDropDownList("CboUnidadMedidaEdit").Enabled = False + EditingRow.FCDropDownList("DdlProyectoEdit").Enabled = False + EditingRow.FCDropDownList("DdlSubProyectoEdit").Enabled = False + EditingRow.FCTextBox("LblEditCodigo").Enabled = False + End If + End Sub Protected Sub GvD_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvD.RowUpdating Dim Cantidad, Importe, Descuento As Double @@ -7296,6 +7329,9 @@ Partial Class OC End If End If + + + DdlContratos.Items.Insert(0, New ListItem("Seleccione", "-1")) UpContrato.Update() End Sub @@ -8230,4 +8266,118 @@ Partial Class OC + Protected Sub LnkAcontratos_Click(sender As Object, e As EventArgs) + + + DdlContratosObra.Items.Clear() + DdlContratosObra.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) + DdlContratosObra.DataBind() + DdlContratosObra.Items.Insert(0, New ListItem("Seleccione", "-1")) + + + DdlTipoGasto.Items.Clear() + DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) + DdlTipoGasto.DataBind() + DdlTipoGasto.Items.Insert(0, New ListItem("Seleccione", "-1")) + + RegistraScript("$('#DivmodalConmtrato').modal('show')") + UpModalContrato.Update() + + End Sub + + Protected Sub DdlContratosCompras_SelectedIndexChanged(sender As Object, e As EventArgs) + + + If DdlContratosObra.SelectedValue.ToEntero > 0 Then + Dim ObjContratos As New ClsContratos() + + If ObjContratos.GetContratosObraCompras(DdlContratosObra.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + + If ObjContratos.DtResultados.Rows.Count > 0 Then + GvContratosControl.DataSource = ObjContratos.DtResultados + BtnAplicarContrato.Visible = True + Else + GvContratosControl.DataSource = Nothing + BtnAplicarContrato.Visible = False + End If + + End If + + + ObjContratos.Dispose() + + GvContratosControl.DataBind() + + UpModalContrato.Update() + End If + + + + End Sub + + Protected Sub BtnAplicarContrato_Click(sender As Object, e As EventArgs) + + + DtDetalle.Rows.Clear() + + Dim CveTipoGastoObra As Integer = DdlTipoGasto.SelectedValue.ToEntero + + For Each GvRow As GridViewRow In GvContratosControl.Rows + + Dim CveContratoDetalle As Integer = GvRow.DataKey("CveContratoDetalle").ToEntero + + Dim Cantidad As Double = GvRow.FCTextBox("TxtCantidad").Text.ToDouble + Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero + Dim PS As String = GvRow.DataKey("PS") + Dim PU As Double = GvRow.DataKey("PU").ToDouble + Dim TotalPS As Double = GvRow.FCTextBox("TxtImporte").Text.ToDouble + Dim CveUnidadMedida As Integer = GvRow.DataKey("CveUnidadMedida") + Dim UMAbreviatura As String = GvRow.DataKey("Abreviatura").ToString + + Dim SubProyecto As Integer = GvRow.DataKey("SubProyecto") + Dim CveSubProyecto As Integer = GvRow.DataKey("CveSubProyecto").ToEntero + Dim Codigo As String = "" 'GvRow.DataKey("Codigo") + + Dim Proyecto As String = GvRow.DataKey("Proyecto") + Dim CveProyecto As Integer = GvRow.DataKey("CveProyecto").ToEntero + + Dim RetISR As Double = GvRow.DataKey("RetISR").ToString.ToDouble + Dim RetIVA As Double = GvRow.DataKey("RetIVA").ToString.ToDouble + Dim IvaPS As Double = GvRow.DataKey("IVA").ToString.ToDouble + + Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToString.ToEntero + Dim Clasificacion As String = GvRow.DataKey("Clasificacion") + + + Dim IEPSPS As Double = GvRow.DataKey("IEPSPorcentaje").ToString.ToDouble + Dim IEPSPSIVA As Double = If(GvRow.DataKey("IEPSGrabaIVA").ToString = "True", IEPSPS, 0) + + Dim IdCuentaPorEjercer As Integer = -1 + Dim IdCuentaComprometido As Integer = -1 + + If Cantidad > 0 Then + + AddPS(Cantidad, CvePS, PS, PS, PU, 0, TotalPS, + CveUnidadMedida, IvaPS, IEPSPS, IEPSPSIVA, CveClasificacion, UMAbreviatura, Clasificacion, CveProyecto, Proyecto, + CveSubProyecto, SubProyecto, Codigo, -1, 0, -1, -1, IdCuentaPorEjercer, + IdCuentaComprometido, -1, -1, -1, -1, + -1, RetIVA, RetISR, CveContratoDetalle:=CveContratoDetalle, CveTipoGastoObra:=CveTipoGastoObra) + + + ContratoObraAplciado = True + + End If + + Next + + CargaSuperior() + CargaDatosDetalles() + + + RegistraScript("$('#DivmodalConmtrato').modal('hide')") + UPPDetalle.Update() + + + End Sub + End Class From a241dca5b116d332ec99b958ec7f4472f5adcf28 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Thu, 12 Nov 2020 15:26:37 -0700 Subject: [PATCH 17/75] eFacturas, mensajes vinculacion complemento --- Compras/eFacturas.aspx.vb | 44 ++++++++++++++++++++++++++++++--------- 1 file changed, 34 insertions(+), 10 deletions(-) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 6282a37cd..58e9dd59c 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2639,6 +2639,7 @@ Partial Class Compras_eFacturas Protected Sub LnkAgregarPago_Click(sender As Object, e As EventArgs) Dim sbSinIE As New StringBuilder + Dim TieneCompras As Boolean = False HdnCveIE.Value = "" MSGComplemento = "" @@ -2841,6 +2842,15 @@ Partial Class Compras_eFacturas GVPDocumentosRelacionadosPagos.DataBind() + + If DTDocumentosRelacionados.MAX("CveCompra").ToString.ToEntero > 0 Then + TieneCompras = True + Else + TieneCompras = False + End If + + + For Each dRow2 As DataRow In DTDocumentosRelacionados.Rows If dRow2("CveMetodoPago").ToString.ToEntero > 0 Then If dRow2("CveMetodoPago").ToString.ToEntero = 1 Then @@ -2947,27 +2957,41 @@ Partial Class Compras_eFacturas ObjCompras.Dispose() - If Math.Abs(DiferenciaImportes) > 5 Then - TextoDiferenciaImporte = $"  -   IE ${ImporteIES.FormatoNumero}
    Diferencia { DiferenciaImportes.FormatoNumero() }
    " - BtnVincularPago.Visible = False - MSGComplemento = MSGComplemento & $" Existe una diferencia mayor a $5.00 ({Math.Abs(DiferenciaImportes)})" + If TieneCompras Then + If ImporteIES > 0 Then + If Math.Abs(DiferenciaImportes) > 5 Then + TextoDiferenciaImporte = $"  -   IE ${ImporteIES.FormatoNumero}
    Diferencia { DiferenciaImportes.FormatoNumero() }
    " + BtnVincularPago.Visible = False + MSGComplemento = MSGComplemento & $" Existe una diferencia mayor a $5.00 ({Math.Abs(DiferenciaImportes)})" - If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then - DivVincularPagoManualmente.Visible = True + If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then + DivVincularPagoManualmente.Visible = True + End If + End If + Else + TextoDiferenciaImporte = $"No se encontraron pagos " + BtnVincularPago.Visible = False + MSGComplemento = MSGComplemento & $" No se encontraron pagos " + If TieneRegistros AndAlso UsuarioActual.TienePermisoProceso(286) Then + DivVincularPagoManualmente.Visible = True + End If End If - Else - 'BtnVincularPago.Visible = True - 'TextoDiferenciaImporte = "" + BtnVincularPago.Visible = False + MSGComplemento = MSGComplemento & $"No se encontraron compras relacionadas" + DivVincularPagoManualmente.Visible = False End If + + + LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}" LblImportePago.Text = Monto.ToString("###,###,###.00") 'ImportePago.FormatoNumero LblPagosCantidad.Text = PagosCantidad.ToString LblImporteIE.Text = ImporteIES.FormatoNumero - LblDiferencia.Text = If(DiferenciaImportes <> 0, DiferenciaImportes.FormatoNumero, "") + LblDiferencia.Text = If(DiferenciaImportes <> 0 And ImporteIES > 0, DiferenciaImportes.FormatoNumero, "") If MSGComplemento.Trim.Length > 0 And CveComplementoPagoCompra <= 0 Then From 17988bad434cf7f3d8d93085dcf72ab996a7d155 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 12 Nov 2020 20:16:13 -0700 Subject: [PATCH 18/75] =?UTF-8?q?condici=C3=B3n=20en=20el=20reporte=20de?= =?UTF-8?q?=20OC=20para=20el=20tipo=20de=20proveedor=20y=20validaci=C3=B3n?= =?UTF-8?q?=20de=20c=C3=B3digo=20PS=20SAT=20no=20permitido?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsOC.vb | 2 ++ App_Code/ClsPaginas.vb | 3 +++ Ventas/Ventas.aspx.vb | 13 +++++++++---- 3 files changed, 14 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsOC.vb b/App_Code/ClsOC.vb index b12725805..4f046f9db 100644 --- a/App_Code/ClsOC.vb +++ b/App_Code/ClsOC.vb @@ -68,6 +68,7 @@ Public Class ClsOC Public Property FechaEstimadaEntrega As Date 'Private _NombreUsuario As String Public Property CveProveedor As Integer + Public Property TipoProveedor As String Public Property CveProveedorSucursal As Integer Public Property SucursalDireccion As String Public Property ProveedorContacto As String @@ -736,6 +737,7 @@ Public Class ClsOC _NombreUsuario = dr("NombreUsuario").ToString _CveProveedor = If(Not IsDBNull(dr("CveProveedor")), dr("CveProveedor").ToString.ToEntero, -1) + Me.TipoProveedor = If(Not IsDBNull(dr("CveTipoProveedor")), dr("CveTipoProveedor").ToString, "-1") _CveProveedorSucursal = If(Not IsDBNull(dr("CveProveedorSucursal")), dr("CveProveedorSucursal").ToString.ToEntero, -1) _RazonSocial = If(Not IsDBNull(dr("RazonSocial")), dr("RazonSocial").ToString, "") _Direccion = If(Not IsDBNull(dr("Direccion")), dr("Direccion").ToString, "") diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 38ccbc84f..191b602d2 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7406,6 +7406,9 @@ Public Class ClsPaginas params.Add(New ReportParameter("ProveedorDireccion", If(ObjOC.CveProveedorSucursal > 0, ObjOC.SucursalDireccion, ObjOC.Direccion))) params.Add(New ReportParameter("ProveedorTel", If(ObjOC.CveProveedorSucursal > 0, ObjOC.SucursalTelefono, ObjOC.Telefono))) + If UsuarioActual.CveEmpresa = 119 Then + params.Add(New ReportParameter("TipoProveedor", ObjOC.TipoProveedor)) + End If params.Add(New ReportParameter("ProveedorRFC", ObjOC.RFC)) params.Add(New ReportParameter("IVA", ObjOC.IVA.ToString)) params.Add(New ReportParameter("RetIVA", ObjOC.RetIVA.ToString.FormatoNumero(2))) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 71ec1f5d1..db277f368 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -15931,10 +15931,15 @@ Partial Class Ventas Return False End If - If UsuarioActual.CveEmpresa = 72 AndAlso DrPS("SATClavePS").ToString() = "01010101" Then - MensajeCveSAT.AppendFormat("{0}-{1}: El producto/servicio no existe en el catálogo del SAT
    ", DrPS("Codigo").ToString(), DrPS("PS").ToString()) - Return False - End If + 'If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) AndAlso DrPS("SATClavePS").ToString() = "01010101" Then + ' MensajeCveSAT.AppendFormat("{0}-{1}: El producto/servicio no existe en el catálogo del SAT
    ", DrPS("Codigo").ToString(), DrPS("PS").ToString()) + ' Return False + 'End If + End If + Else + If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) AndAlso DrPS("SATClavePS").ToString() = "01010101" Then + MensajeCveSAT.AppendFormat("{0}-{1}: El producto/servicio no existe en el catálogo del SAT
    ", DrPS("Codigo").ToString(), DrPS("PS").ToString()) + Return False End If End If From e4150c4d5ba4dcc13a4eb25467e13ae073f3db46 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 12 Nov 2020 20:29:39 -0700 Subject: [PATCH 19/75] =?UTF-8?q?columnas=20de=20reporte=20con=20condici?= =?UTF-8?q?=C3=B3n=20para=20aparecer=20y=20desaparecer?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Empresas/119/Formatos/OC.rdlc | 218 +++++++++++++++++++++++++++++++++- 1 file changed, 214 insertions(+), 4 deletions(-) diff --git a/Empresas/119/Formatos/OC.rdlc b/Empresas/119/Formatos/OC.rdlc index 972fe2b26..1d461c99b 100644 --- a/Empresas/119/Formatos/OC.rdlc +++ b/Empresas/119/Formatos/OC.rdlc @@ -12,10 +12,16 @@ 1.5586cm - 11.45281cm + 9.58751cm - 5.42617cm + 3.627cm + + + 1.8653cm + + + 1.79919cm @@ -254,6 +260,122 @@ + + + + true + true + + + + + P. U. + + + + + + + Textbox2 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Total + + + + + + + Textbox1 + + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + + LightGrey + + 1pt + + #008204 + 2pt + 2pt + 2pt + 2pt + + + + @@ -477,6 +599,75 @@ + + + + true + true + + + + + =Fields!Importe.Value + + + + + + + Importe + + + 2pt + 2pt + 1pt + + + + + + + + true + true + + + + + =Fields!Total.Value + + + + + + + Total + + + 2pt + 2pt + 1pt + + + + @@ -487,6 +678,16 @@ + + + =IIF(Parameters!TipoProveedor.Value = "1",true,false) + + + + + =IIF(Parameters!TipoProveedor.Value = "1",true,false) + + @@ -503,7 +704,7 @@ 4.58198cm 0.20457cm 0.96717cm - 20.2584cm + 20.25842cm =Today @@ -2276,6 +2480,12 @@ true ReportParameter1 + + String + true + true + ReportParameter1 + From 6b6dd2763c5551f9963ba575c68948a613922ce9 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 13 Nov 2020 10:23:33 -0700 Subject: [PATCH 20/75] Fecha de sucursal al emitir complementos --- App_Code/ClsBancos.vb | 29 ++++++++++++++++- Bancos/RepComplementoPago.aspx | 2 +- Bancos/RepComplementoPago.aspx.vb | 54 ++++++++++++++++++++----------- 3 files changed, 64 insertions(+), 21 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index eacb04c20..f1bbcc6ae 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -945,7 +945,7 @@ Public Class ClsBancos Public Function GeneraTimbrePago(CveIE As Integer, CveVenta As Integer, UsuarioActual As Usuario, Optional CveCliente As Integer = -1, Optional CFDIRelacionado As String = "-1", Optional EsRegeneracion As Boolean = False, Optional CvePrePoliza As Integer = -1, Optional FechaTimbrado As DateTime = MinFecha) As Boolean - If FechaTimbrado = MinFecha Then FechaTimbrado = DateTime.Now + Dim Serie As String = "Pag" Dim Folio As Integer = -1 Dim Retorno As Boolean = False @@ -961,6 +961,33 @@ Public Class ClsBancos 'If EsCancelacion Then Estatus = 2 If EsRegeneracion Then Estatus = 3 + If FechaTimbrado = MinFecha Then + Dim RowFiltro As DataRow = Nothing + + RowFiltro = dttpagos.FiltroPrimero("") + + If RowFiltro IsNot Nothing Then + If Now.EsHorarioVerano Then + Dim UTCOffsetVerano As Integer = RowFiltro("UTCOffsetVerano").ToString().ToEntero() + If UTCOffsetVerano <> 0 Then + FechaTimbrado = DateTime.UtcNow.AddHours(UTCOffsetVerano) + Else + FechaTimbrado = DateTime.Now + End If + Else + Dim UTCOffsetInvierno As Integer = RowFiltro("UTCOffsetInvierno").ToString().ToEntero() + If UTCOffsetInvierno <> 0 Then + FechaTimbrado = DateTime.UtcNow.AddHours(UTCOffsetInvierno) + Else + FechaTimbrado = DateTime.Now + End If + End If + Else + FechaTimbrado = DateTime.Now + End If + + End If + Dim tCveComplementoPago As Integer = AddComplementoPago(If(CvePrePoliza > 0, CveIE, dr("CveIE").ToString.ToEntero), -1, Serie, Folio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza, Estatus:=Estatus) If tCveComplementoPago > 0 Then diff --git a/Bancos/RepComplementoPago.aspx b/Bancos/RepComplementoPago.aspx index 9b28d447a..06af838af 100644 --- a/Bancos/RepComplementoPago.aspx +++ b/Bancos/RepComplementoPago.aspx @@ -114,7 +114,7 @@ diff --git a/Bancos/RepComplementoPago.aspx.vb b/Bancos/RepComplementoPago.aspx.vb index bcfde9140..629fa321f 100644 --- a/Bancos/RepComplementoPago.aspx.vb +++ b/Bancos/RepComplementoPago.aspx.vb @@ -51,28 +51,44 @@ Partial Class Bancos_RepComplementoPago For Each gvr As GridViewRow In GvD.Rows - If gvr.FCCheckBox("Chk").Checked Then - Dim Banco As New ClsBancos - Banco.IniciaTransacSQL() - - - If Banco.GeneraTimbrePago(gvr.DataKey("CveIE").ToEntero, -1, UsuarioActual) Then - If Banco.Mensaje = "" Then - Banco.Commit() - PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False) - Str.AppendFormat("Folio: {0}  ", Banco.ComplementoSerieFolio) - Str.AppendFormat("XML    ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) - Str.AppendFormat("PDF   ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) - Str.AppendFormat("{1}   {2}
    ", gvr.DataKey("CveIE"), gvr.DataKey("Folio"), gvr.DataKey("NombreCliente")) - MandaCorreo(Banco.ComplementoSerieFolio, gvr.DataKey("CobranzaCorreo")) - End If - - Else - Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", gvr.DataKey("Folio"), Banco.Mensaje) - Banco.RollBack() + If gvr.FCCheckBox("Chk").Checked Then + Dim FechaTimbrado As DateTime = DateTime.Now + + Dim UTCOffset As Integer = 0 + + If Now.EsHorarioVerano Then + If gvr.DataKey("UTCOffsetVerano").ToEntero() <> 0 Then + UTCOffset = gvr.DataKey("UTCOffsetVerano").ToEntero() + End If + Else + If gvr.DataKey("UTCOffsetInvierno").ToEntero() <> 0 Then + UTCOffset = gvr.DataKey("UTCOffsetInvierno").ToEntero() + End If End If + If UTCOffset <> 0 Then + FechaTimbrado = DateTime.UtcNow.AddHours(UTCOffset) + End If + Dim Banco As New ClsBancos + Banco.IniciaTransacSQL() + + If Banco.GeneraTimbrePago(gvr.DataKey("CveIE").ToEntero, -1, UsuarioActual, FechaTimbrado:=FechaTimbrado) Then + If Banco.Mensaje = "" Then + Banco.Commit() + PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False) + Str.AppendFormat("Folio: {0}  ", Banco.ComplementoSerieFolio) + Str.AppendFormat("XML    ", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) + Str.AppendFormat("PDF   ", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago))) + Str.AppendFormat("{1}   {2}
    ", gvr.DataKey("CveIE"), gvr.DataKey("Folio"), gvr.DataKey("NombreCliente")) + MandaCorreo(Banco.ComplementoSerieFolio, gvr.DataKey("CobranzaCorreo")) + End If + + Else + Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", gvr.DataKey("Folio"), Banco.Mensaje) + Banco.RollBack() + End If + Banco.Dispose() End If Next From 3db74f2b52405fa0db5fcad3eac576ef06c3716a Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 13 Nov 2020 18:01:44 -0700 Subject: [PATCH 21/75] =?UTF-8?q?se=20agrego=20la=20119=20a=20la=20condici?= =?UTF-8?q?=C3=B3n=20de=20subtotal2=20en=20impreci=C3=B3n=20de=20OC?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsPaginas.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 191b602d2..1fc7ddb54 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7376,7 +7376,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("Descuento", DtDetalle.SUM("Descuento").ToString.FormatoNumero(2))) End If 'DATOS PARA DESCUENTO - If EmpresaActual.CveEmpresa.Contiene(4, 145, 7, 11, 12, 13, 72, 80, 83, 122, 126) Then 'EMPRESAS QUE YA TIENEN EL AJUSTE EN EL FORMATO + If EmpresaActual.CveEmpresa.Contiene(4, 145, 7, 11, 12, 13, 72, 80, 83, 119, 122, 126) Then 'EMPRESAS QUE YA TIENEN EL AJUSTE EN EL FORMATO params.Add(New ReportParameter("SubTotal", ObjOC.SubTotal.ToString)) params.Add(New ReportParameter("SubTotal2", DtDetalle.SUM("Total").ToString)) Else From 1d49c40910610aa7672765524216222af4767d5e Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Fri, 13 Nov 2020 19:02:03 -0700 Subject: [PATCH 22/75] Contratos, Indicadores reportes --- App_Code/ClsContratos.vb | 57 +++- Ashx/SIGWeb.ashx | 7 + Contratos/ContratoAvance.aspx.vb | 28 +- Contratos/ContratoObra.aspx | 227 +++++++++---- Contratos/ContratoObra.aspx.vb | 315 ++++++++++-------- Contratos/RepContratosObraAvances.aspx | 229 +++++++++++-- Contratos/RepContratosObraAvances.aspx.vb | 49 ++- Contratos/RepContratosObraAvancesDetalle.aspx | 206 ++++++++---- .../RepContratosObraAvancesDetalle.aspx.vb | 128 ++++--- Contratos/RepContratosObraAvancesPartida.aspx | 37 +- .../RepContratosObraAvancesPartida.aspx.vb | 20 +- 11 files changed, 904 insertions(+), 399 deletions(-) diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index bcb4c4ff5..a46495d7e 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -145,6 +145,7 @@ Public Class ClsContratos Public Property FechaFinal As DateTime Public Property Ubicacion As String Public Property Responsable As String + Public Property Lugar As String Public Property CveSubProyecto As Integer Public Property SubProyectoContrato As String Public Property CveProyecto As Integer @@ -290,6 +291,8 @@ Public Class ClsContratos Me.FechaVenc = Data.Rows(0)("FechaVenc").ToString.ToDate Me.CveVendedor = Data.Rows(0)("CveVendedor").ToString.ToEntero Me.ImporteTotal = Data.Rows(0)("ImporteTotal").ToString.ToDecimal + Me.Lugar = Data.Rows(0)("Lugar").ToString + Observaciones = Data.Rows(0)("Observaciones").ToString CveDireccionEnvio = Data.Rows(0)("CveDireccionEnvio").ToString.ToEntero AplicaImpuestosLocales = CBool(Data.Rows(0)("AplicaImpuestosLocales")) @@ -540,7 +543,7 @@ Public Class ClsContratos Geom As String, CveContratoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsPresupuestal As Boolean, Minimo As Double, Maximo As Double, Importe As Double, CveMoneda As Integer, ModalidadDetalle As Integer, Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1, Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CvePeriodo As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, - Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "") As Integer + Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "") As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Con_ContratosObraAdd") @@ -591,6 +594,7 @@ Public Class ClsContratos .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio .Add("@AplicaImpuestosLocales", SqlDbType.Bit).Value = If(AplicaImpuestosLocales, 1, 0) .Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev + .Add("@Lugar", SqlDbType.VarChar).Value = Lugar .Add("@CveContrato", SqlDbType.Int).Direction = ParameterDirection.Output @@ -617,7 +621,7 @@ Public Class ClsContratos CveContratoPadre As Integer, CveUsuario As Integer, CveEmpresa As Integer, EsPresupuestal As Boolean, Minimo As Double, Maximo As Double, Importe As Double, CveMoneda As Integer, ModalidadDetalle As Integer, Optional CveContratosEstatus As Integer = -1, Optional CveContratoTipo As Integer = -1, Optional TipoCambio As Double = 1.0, Optional CveSucursalCliente As Integer = -1, Optional CveAlmacenOrigen As Integer = -1, Optional CveAlmacenDestino As Integer = -1, Optional PorcentajeComision As Integer = -1, Optional TipoGarantia As Integer = -1, Optional Folio As Integer = -1, Optional FechaVenc As Date = Nothing, Optional EstatusFianza As Integer = -1, Optional CveContratoPlantilla As Integer = -1, Optional CveCuentaEquipo As Integer = -1, - Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "") As Boolean + Optional CveVendedor As Integer = -1, Optional Observaciones As String = "", Optional CveDireccionEnvio As Integer = -1, Optional AplicaImpuestosLocales As Boolean = False, Optional CorreoNotificacionPedDev As String = "", Optional Lugar As String = "") As Boolean Dim Retorno = False DataAdapter("PA_Con_ContratosObraUpdate") @@ -666,7 +670,8 @@ Public Class ClsContratos .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones .Add("@CveDireccionEnvio", SqlDbType.Int).Value = CveDireccionEnvio .Add("@AplicaImpuestosLocales", SqlDbType.Bit).Value = If(AplicaImpuestosLocales, 1, 0) - .Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev + .Add("@CorreoNotificacionPedDev", SqlDbType.VarChar).Value = CorreoNotificacionPedDev + .Add("@Lugar", SqlDbType.VarChar).Value = Lugar End With @@ -2149,11 +2154,11 @@ Public Class ClsContratos End Try Return Retorno - End Function - - + End Function + + #Region " REPORTES AVANCES " - + Public Function GetReporteContratosAvancesCP(CveEmpresa As Integer, CveCliente As Integer, CveProveedor As Integer, CveTipoContrato As Integer, CveContrato As Integer, Optional CveEstatus As Integer = -1, Optional CveTipoEstatus As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -2178,7 +2183,17 @@ Public Class ClsContratos End Try Return Retorno - End Function + End Function + + + + + + + + + + Public Function GetReporteContratosAvancesDetalleCP(CveContrato As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False @@ -2197,8 +2212,34 @@ Public Class ClsContratos OnError("Ocurrió un error al obtener el Reporte de Avances Detalle CP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) End Try + Return Retorno + End Function + + + + + Public Function GetReporteContratosAvancesDetalleControl(CveContrato As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_Con_ReporteContratosAvancesControlDetalle") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveContrato", SqlDbType.Int).Value = CveContrato + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener el Reporte de Avances de control.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return Retorno End Function + + Public Function GetVentasAvance(CveContrato As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 0bd572211..46d96e18d 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -966,6 +966,13 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState Private Function GETUMSAT(ByVal context As HttpContext) As String Dim retorno As String = "" + + If context.Application("GlobalDTPSATUM") Is Nothing Then + Dim ObjGrales As New ClsGenerales + If ObjGrales.GetSATUnidadMedida Then context.Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else context.Application("GlobalDTPSATUM") = Nothing + ObjGrales.Dispose() + End If + Dim DTUM = DirectCast(context.Application("GlobalDTPSATUM"), EnumerableRowCollection(Of DataRow)) Dim DtPSRetorno As DataTable diff --git a/Contratos/ContratoAvance.aspx.vb b/Contratos/ContratoAvance.aspx.vb index 0163feb42..4ff8715fb 100644 --- a/Contratos/ContratoAvance.aspx.vb +++ b/Contratos/ContratoAvance.aspx.vb @@ -476,10 +476,16 @@ Partial Class Contratos_ContratoAvance Dim DtControl As New DataTable Dim ObjContratos As New ClsContratos + Dim Lugar As String = "" + Dim DescripcionContrato As String = "" If ObjContratos.GetContratosObraAvancesControlAcumulativo(CveContrato, CveEstimacion, UsuarioActual.CveEmpresa) Then DtControl = ObjContratos.DtResultados + If DtControl.Rows.Count > 0 Then + Lugar = DtControl(0)("Lugar").ToString + DescripcionContrato = DtControl(0)("DescripcionContrato").ToString + End If End If ObjContratos.Dispose() @@ -502,10 +508,16 @@ Partial Class Contratos_ContratoAvance WSControl.Cell(20, 6).Value = NumeroContrato - WSControl.Cell(18, 2).Value = "" 'Lugar + WSControl.Cell(18, 2).Value = Lugar + WSControl.Cell(18, 2).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Left) + WSControl.Cell(18, 2).Style.Alignment.SetVertical(XLAlignmentVerticalValues.Top) + WSControl.Cell(17, 6).Value = "" 'Periodo Fecha Inicial WSControl.Cell(17, 7).Value = "" 'Periuodo Fecha Final - WSControl.Cell(20, 2).Value = "" 'Obra + WSControl.Cell(20, 2).Value = DescripcionContrato + WSControl.Cell(20, 2).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Left) + WSControl.Cell(20, 2).Style.Alignment.SetVertical(XLAlignmentVerticalValues.Top) + WSControl.Cell(22, 7).Value = "" 'Presupuesto segun contrato WSControl.Cell(19, 5).Value = "" 'Contrtatista @@ -613,8 +625,6 @@ Partial Class Contratos_ContratoAvance range.Value = "C. SALVADOR SUAREZ" - - range = WSControl.Range($"A{CuerrentRow + 5}:D{CuerrentRow + 5}") range.Merge() range.Style.Border.BottomBorder = ClosedXML.Excel.XLBorderStyleValues.Thin @@ -632,12 +642,11 @@ Partial Class Contratos_ContratoAvance range.Style.Font.Bold = True - - End If CuerrentRow = CuerrentRow + 1 RowCountControl = RowCountControl + 1 + Next WBAnexo.Worksheet(1).CopyTo(WBAnexoSalvar, "CONTROL") @@ -654,9 +663,7 @@ Partial Class Contratos_ContratoAvance WSDetalle.Cell(4, 10).Value = "" 'Fecha a WSDetalle.Cell(4, 11).Value = NumeroEstimacion - 'WSDetalle.Picture("Logo").Name = $"Logo{Drow("CveContratoDetalle").ToString}" - 'WSDetalle.Picture("Firma").Name = $"Firma{Drow("CveContratoDetalle").ToString}" - + WSDetalle.Cell(6, 6).Value = DescripcionContrato WSDetalle.Cell(14, 2).Value = Drow("Codigo").ToString WSDetalle.Cell(14, 3).Value = Drow("PS").ToString @@ -715,12 +722,9 @@ Partial Class Contratos_ContratoAvance End If - Next - - Dim msB = New MemoryStream() WBAnexoSalvar.SaveAs(msB) diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx index 4ee9ea4b0..040501b96 100644 --- a/Contratos/ContratoObra.aspx +++ b/Contratos/ContratoObra.aspx @@ -75,7 +75,7 @@ -
  • +<%--
  • Concluir Contrato
  • @@ -155,7 +155,7 @@ Habilitar Ajuste A.F.
    • -     +     --%> @@ -185,7 +185,7 @@ - + <%-- @@ -195,7 +195,7 @@ - + --%>     @@ -209,6 +209,7 @@ <%-- +
    @@ -373,6 +374,13 @@
    +
    + +
    + +
    +
    + <%--
    @@ -950,7 +958,8 @@ DataKeyNames="CveContratoDetalle,CveUM, CvePS, Cantidad, PU,CveTipoPresupuesto,CveClasificacion,CodigoPS,LimitarCantidad,PS,OCInterna,NoIdentificacion,PermitirAvance" ShowHeader="true" SelectedRowStyle-BackColor="#66CCFF" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"> - + + <%-- @@ -958,7 +967,9 @@ - + --%> + + @@ -978,7 +989,7 @@ - + <%-- @@ -986,7 +997,7 @@ - + --%> @@ -1216,7 +1227,7 @@ - + <%-- @@ -1224,7 +1235,7 @@ - + --%> @@ -1517,66 +1528,158 @@ -
    -
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - -
    - - - - - - - - - -
    Clasificación Contratado Avance Faltante Avance Por Facturar Anticipo
    -
    - - - + + + + + +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + +
    + + + + + + + + + +
    Clasificación Contratado Avance Faltante Avance Por Facturar Anticipo
    +
    + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +     +     + +     +     + + + + + +
    +
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> +
    +
    + + + + +
    + + + + + + + <%-- + --%> + +
    Clasificación Contratado Avance Faltante Avance Por Facturar Anticipo
    +
    + + + + + + + + + + + + + + + + + + + + + + +<%-- + + + + + + + + + + --%> + + + + +     +     + + +     +     + + +     + + - - - - - - - - - - - - - - - - - - - - - - - - - -     -     -     -     diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index fe738afd7..da9636f7a 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -454,12 +454,12 @@ Partial Class Contratos_ContratoObra If CveContrato > 0 Then If UsuarioActual.TienePermisoProceso(164) Then BtnEliminar.Visible = True - Gv.Columns(11).Visible = True - GvInsumos.Columns(9).Visible = True + Gv.Columns(9).Visible = True + GvInsumos.Columns(8).Visible = True Else BtnEliminar.Visible = False - Gv.Columns(11).Visible = False - GvInsumos.Columns(9).Visible = False + Gv.Columns(9).Visible = False + GvInsumos.Columns(8).Visible = False End If 'If CveTipoContrato.Contiene(11, 25) Then 'ciclo comercial @@ -469,8 +469,8 @@ Partial Class Contratos_ContratoObra Else TabPres.Visible = False - Gv.Columns(11).Visible = True - GvInsumos.Columns(9).Visible = True + Gv.Columns(9).Visible = True + GvInsumos.Columns(8).Visible = True End If @@ -993,7 +993,7 @@ Partial Class Contratos_ContratoObra 'RowPorcentajeComision.Visible = False RowEstatus.Visible = False 'dvAddendum.Visible = False - liImprimir.Visible = True + 'liImprimir.Visible = True CargaPlantillas() 'TrContratoPlantilla.Visible = True 'DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo")) @@ -1042,7 +1042,7 @@ Partial Class Contratos_ContratoObra 'TDObservacion.Visible = True 'tdObservaciones.Visible = True TxtObservaciones.Text = ObjContratos.DtResultados.Rows(0)("Observaciones").ToString - Gv.Columns(6).Visible = True + Gv.Columns(4).Visible = True 'DdlPeriodo.SelectedValueExist(ObjContratos.DtResultados.Rows(0)("CvePeriodo").ToString) End If @@ -1073,6 +1073,7 @@ Partial Class Contratos_ContratoObra TxtFechaInicial.Text = ObjContratos.FechaInicial.ToShortDateString TxtUbicacion.Text = ObjContratos.Ubicacion TxtResponsable.Text = ObjContratos.Responsable + TxtLugar.Text = ObjContratos.Lugar TxtPorAnticipo.Text = ObjContratos.PorAmortizacionAnticipo.FormatoNumero TxtPorAmortizacionAnticipo.Text = ObjContratos.PorAmortizacionAnticipo.FormatoNumero TxtPorGarantia.Text = ObjContratos.PorGarantia.FormatoNumero @@ -1100,8 +1101,8 @@ Partial Class Contratos_ContratoObra If ObjContratos.TipoEstatus = 2 Then DdlEstatus.Enabled = False If UsuarioActual.TienePermisoProceso(173) Then - liVigenteContrato.Visible = True - LBVigenteContrato.Visible = True + 'liVigenteContrato.Visible = True + 'LBVigenteContrato.Visible = True End If Else DdlEstatus.Items.Clear() @@ -1110,17 +1111,17 @@ Partial Class Contratos_ContratoObra DdlEstatus.DataBind() Select Case ObjContratos.TipoEstatus Case 1 - If UsuarioActual.TienePermisoProceso(173) Then - liTerminarContrato.Visible = True - LBTerminarContrato.Visible = True - - liCancelarContrato.Visible = True - LBCancelarContrato.Visible = True + If UsuarioActual.TienePermisoProceso(173) Then + ' liTerminarContrato.Visible = True + 'LBTerminarContrato.Visible = True + + ' liCancelarContrato.Visible = True + 'LBCancelarContrato.Visible = True End If Case 2, 3 ' reactivar el contrato - If UsuarioActual.TienePermisoProceso(173) Then - liVigenteContrato.Visible = True - LBVigenteContrato.Visible = True + If UsuarioActual.TienePermisoProceso(173) Then + ' liVigenteContrato.Visible = True + ' LBVigenteContrato.Visible = True End If End Select @@ -1315,7 +1316,7 @@ Partial Class Contratos_ContratoObra TxtTipoCambio.Text.ToDouble, CveSucursalCliente:=DdlSucursalCliente.SelectedValue.ToEntero, CveAlmacenOrigen:=-1, CveAlmacenDestino:=-1, PorcentajeComision:=0, TipoGarantia:=-1, Folio:=0, FechaVenc:=Nothing, EstatusFianza:=1, CvePeriodo:=-1, CveCuentaEquipo:=-1, CveContratoPlantilla:=-1, CveVendedor:=-1, - Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False, CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim()) + Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False, CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim) TieneError = Not GuardaFianzas(ObjContratos) @@ -1414,7 +1415,7 @@ Partial Class Contratos_ContratoObra CveAlmacenOrigen:=-1, CveAlmacenDestino:=-1, PorcentajeComision:=0, TipoGarantia:=-1, Folio:=-1, FechaVenc:=Nothing, EstatusFianza:=-1, CveContratoPlantilla:=-1, CveCuentaEquipo:=-1, CveVendedor:=-1, Observaciones:=TxtObservaciones.Text, CveDireccionEnvio:=-1, AplicaImpuestosLocales:=False, - CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim()) Then + CorreoNotificacionPedDev:=TxtCorreoNotificacion.Text.Trim(), Lugar:=TxtLugar.Text.Trim) Then TieneError = Not GuardaFianzas(ObjContratos) @@ -1840,11 +1841,11 @@ Partial Class Contratos_ContratoObra Gv.DataSource = DtTemp DtPresupuestos = DtTemp Gv.DataBind() - If CveTipoContrato = 25 Then - Gv.Columns(0).Visible = False - Gv.Columns(2).Visible = False - Gv.Columns(3).Visible = False - Gv.Columns(9).Visible = False + If CveTipoContrato = 25 Then + ' Gv.Columns(0).Visible = False + Gv.Columns(2).Visible = False + ' Gv.Columns(3).Visible = False + Gv.Columns(7).Visible = False End If 'If (Gv.Rows.Count > 0) Then ' Gv.UseAccessibleHeader = True @@ -2581,7 +2582,7 @@ Partial Class Contratos_ContratoObra End If TabReporteAvance.Visible = True - lbImprimirAvance.Visible = True + 'lbImprimirAvance.Visible = True Dim Modalidad = IfNull(Request("Tipo"), 1, 2) @@ -2600,16 +2601,32 @@ Partial Class Contratos_ContratoObra Alert("Ocurrió un Error al obtener el Reporte de Avances. Por favor vuelva a intentar", TipoMensaje.MsgError) End If - ObjContratos.Dispose() + 'ObjContratos.Dispose() GvDatosAvance.DataBind() If (GvDatosAvance.Rows.Count > 0) Then GvDatosAvance.UseAccessibleHeader = True GvDatosAvance.HeaderRow.TableSection = TableRowSection.TableHeader RegistraScript("OrdenarGV();") - End If - - UpGral.Update() + End If + + + + + + If ObjContratos.GetReporteContratosAvancesDetalleControl(CveContrato, UsuarioActual.CveEmpresa) Then + + GvDatosAvanceControl.DataSource = ObjContratos.DtResultados + Else + Alert("Ocurrió un Error al obtener el Reporte de Avances de control. Por favor vuelva a intentar", TipoMensaje.MsgError) + End If + + + GvDatosAvanceControl.DataBind() + + ObjContratos.Dispose() + UpGral.Update() + End Sub Protected Sub GvDatosAvance_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvance.RowDataBound @@ -2629,6 +2646,27 @@ Partial Class Contratos_ContratoObra e.Row.FCLinkButton("LBAvanceXFacturarCantidad").CommandArgument = Liga2 e.Row.FCLinkButton("LBAvanceXFacturarImporte").CommandArgument = Liga2 + End If + End Sub + + + Protected Sub GvDatosAvanceControl_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvanceControl.RowDataBound + If e.Row.RowType = DataControlRowType.DataRow Then + + If e.Row.DBCampo("CveClasificacion").ToString.ToEntero = 0 Then + e.Row.CssClass = "Totales white" + ElseIf e.Row.DBCampo("CvePS").ToString.ToEntero = 0 Then + e.Row.CssClass = "SubTotales" + End If + + 'Dim Liga1 = $"{e.Row.DBCampo("CveClasificacion").ToEntero}|{e.Row.DBCampo("Clasificacion")}|{e.Row.DBCampo("CvePS").ToEntero}|{e.Row.DBCampo("CodigoPS")}|1" + 'e.Row.FCLinkButton("LBAvanceCantidad").CommandArgument = Liga1 + 'e.Row.FCLinkButton("LBAvanceImporte").CommandArgument = Liga1 + + 'Dim Liga2 = $"{e.Row.DBCampo("CveClasificacion").ToEntero}|{e.Row.DBCampo("Clasificacion")}|{e.Row.DBCampo("CvePS").ToEntero}|{e.Row.DBCampo("CodigoPS")}|2" + 'e.Row.FCLinkButton("LBAvanceXFacturarCantidad").CommandArgument = Liga2 + 'e.Row.FCLinkButton("LBAvanceXFacturarImporte").CommandArgument = Liga2 + End If End Sub Protected Sub MuestaModalVentasAvance(sender As Object, e As EventArgs) @@ -2672,9 +2710,9 @@ Partial Class Contratos_ContratoObra GVAvanceXDocumento.DataSource = ObjContratos.DtResultados DtAvanceDocumento = ObjContratos.DtResultados If DtAvanceDocumento.Rows.Count > 0 Then - LBImprimir.Visible = True - End If - LBImprimirInformacionG.Visible = True + 'LBImprimir.Visible = True + End If + ' LBImprimirInformacionG.Visible = True Else Alert("Ocurrió un error al obtener el Reporte de Avances por Documento. Por favor vuelva a intentar", TipoMensaje.MsgError) End If @@ -2871,7 +2909,7 @@ Partial Class Contratos_ContratoObra If GvContratosGastos.Rows.Count > 0 Then GvContratosGastos.HeaderRow.CssClass = "SinColor" - LBImprimirGastos.Visible = True + 'LBImprimirGastos.Visible = True End If UpContratoGasto.Update() @@ -2948,12 +2986,12 @@ Partial Class Contratos_ContratoObra UpPedidosDevoluciones.Update() End Sub - Protected Sub ImgExcelPedDev_Click(sender As Object, e As EventArgs) Handles LbImprimirPedDevExcel.Click - GenerarPDFPedDev("Excel") - End Sub - Protected Sub ImgImprimirPedDev_Click(sender As Object, e As EventArgs) Handles LbImprimirPedDev.Click - GenerarPDFPedDev() - End Sub + 'Protected Sub ImgExcelPedDev_Click(sender As Object, e As EventArgs) Handles LbImprimirPedDevExcel.Click + ' GenerarPDFPedDev("Excel") + 'End Sub + 'Protected Sub ImgImprimirPedDev_Click(sender As Object, e As EventArgs) Handles LbImprimirPedDev.Click + ' GenerarPDFPedDev() + 'End Sub Private Sub GenerarPDFPedDev(Optional Formato As String = "PDF") If DsDatosPedDev Is Nothing Then Alert("No se pudieron consultar los pedidos y devoluciones", TipoMensaje.MsgAdvertencia) @@ -3202,27 +3240,27 @@ Partial Class Contratos_ContratoObra ObjInv.Dispose() - LnkAjusteAF.Visible = True + 'LnkAjusteAF.Visible = True DivHajusteAF.Visible = False GvDatosAlmacen.Columns(6).Visible = False CargaInventarios() - UPHajusteAF.Update() - UpHajusteAcciones.Update() - + UPHajusteAF.Update() + ' UpHajusteAcciones.Update() + End Sub - Protected Sub LnkAjusteAF_Click(sender As Object, e As EventArgs) - - LnkAjusteAF.Visible = False + Protected Sub LnkAjusteAF_Click(sender As Object, e As EventArgs) + + ' LnkAjusteAF.Visible = False DivHajusteAF.Visible = True GvDatosAlmacen.Columns(6).Visible = True CargaInventarios() - UPHajusteAF.Update() - UpHajusteAcciones.Update() + UPHajusteAF.Update() + ' UpHajusteAcciones.Update() UpAlmacen.Update() End Sub @@ -3425,9 +3463,9 @@ Partial Class Contratos_ContratoObra Response.End() End If End Sub - Public Sub LbDescargarExcel_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click - DescargarFormato() - End Sub + 'Public Sub LbDescargarExcel_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click + ' DescargarFormato() + 'End Sub Private Function ReadExcelFile(ByVal flatFilePath As String, ByVal firstRowHasHeaders As Boolean) As DataTable SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) Dim excelFile As ExcelFile = ExcelFile.Load(flatFilePath) @@ -3702,9 +3740,9 @@ Partial Class Contratos_ContratoObra #Region " IMPRESION " #Region " IMPRIMIR AVANCE POR DOCUMENTO " - Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles LBImprimir.Click - GenerarPDF() - End Sub + 'Protected Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles LBImprimir.Click + ' GenerarPDF() + 'End Sub Private Sub GenerarPDF(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -3730,66 +3768,67 @@ Partial Class Contratos_ContratoObra End If Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato) - End Sub - Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click - Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) - Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) - - Dim dt As DataTable = DtAvanceDocumento - Dim params As New List(Of ReportParameter) - params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) - params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) - params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) - params.Add(New ReportParameter("Contrato", Titulo)) - 'DATOS DEL CONTRATO - params.Add(New ReportParameter("NoContrato", TxtNumeroContrato.Text.Trim)) - params.Add(New ReportParameter("Descripcion", TxtDescripcionContrato.Text.Trim)) - params.Add(New ReportParameter("Proveedor", If(TrProveedor.Visible = True, DdlContratista.SelectedItem.Text.Trim, "-"))) - params.Add(New ReportParameter("Ubicacion", TxtUbicacion.Text.Trim)) - params.Add(New ReportParameter("Responsable", TxtResponsable.Text.Trim)) - params.Add(New ReportParameter("Almacen", "-")) - params.Add(New ReportParameter("Porcentaje", "-")) - 'CENTRO DE COSTOS - params.Add(New ReportParameter("Proyecto", If(DVddlproyecto.Visible = True, DdlProyecto.SelectedItem.Text.Trim, "-"))) - params.Add(New ReportParameter("SubProyecto", CveSubProyecto.ToString)) - params.Add(New ReportParameter("Addendum", "")) - 'INFORMACION - params.Add(New ReportParameter("Cliente", If(TrCliente.Visible = True, DdlCliente.SelectedItem.Text.Trim, "-"))) - params.Add(New ReportParameter("Sucursal", If(TrClienteSucursal.Visible = True, DdlSucursalCliente.SelectedItem.Text.Trim, "-"))) - params.Add(New ReportParameter("FechaInicial", TxtFechaInicial.Text.Trim)) - params.Add(New ReportParameter("FechaFinal", TxtFechaFinal.Text.Trim)) - params.Add(New ReportParameter("Moneda", DdlMoneda.SelectedItem.Text.Trim)) - params.Add(New ReportParameter("TipoCambio", If(tipoCambio.Visible = True, TxtTipoCambio.Text.Trim, "-"))) - params.Add(New ReportParameter("IVA", TxtPorIVA.Text.Trim)) - params.Add(New ReportParameter("Anticipo", TxtPorAnticipo.Text.Trim)) - params.Add(New ReportParameter("Amortizacion", TxtPorAmortizacionAnticipo.Text.Trim)) - params.Add(New ReportParameter("Garantia", TxtPorGarantia.Text.Trim)) - params.Add(New ReportParameter("Minimo", "-")) - params.Add(New ReportParameter("Maximo", "-")) - params.Add(New ReportParameter("Total", If(DvTotal.Visible = True, TxtTotal.Text.Trim, "-"))) - 'Estatus - params.Add(New ReportParameter("Estatus", DdlEstatus.SelectedItem.Text.Trim)) - params.Add(New ReportParameter("TipoGarantia", "")) - params.Add(New ReportParameter("EstatusFianza", "")) - params.Add(New ReportParameter("Folio", "0")) - params.Add(New ReportParameter("FechaVencimiento", "")) - - If Imagen.Exists Then - params.Add(New ReportParameter("LogoPath", logouri)) - Else - params.Add(New ReportParameter("LogoPath", "")) - End If - ImprimirPDF("Empresas/Grales/Formatos/Contrato.rdlc", dt, params, $"Contrato-{Titulo}", Formato:="PDF") - End Sub + 'Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click + ' Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + ' Dim dt As DataTable = DtAvanceDocumento + ' Dim params As New List(Of ReportParameter) + ' params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + ' params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + ' params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) + ' params.Add(New ReportParameter("Contrato", Titulo)) + ' 'DATOS DEL CONTRATO + ' params.Add(New ReportParameter("NoContrato", TxtNumeroContrato.Text.Trim)) + ' params.Add(New ReportParameter("Descripcion", TxtDescripcionContrato.Text.Trim)) + ' params.Add(New ReportParameter("Proveedor", If(TrProveedor.Visible = True, DdlContratista.SelectedItem.Text.Trim, "-"))) + ' params.Add(New ReportParameter("Ubicacion", TxtUbicacion.Text.Trim)) + ' params.Add(New ReportParameter("Responsable", TxtResponsable.Text.Trim)) + ' params.Add(New ReportParameter("Almacen", "-")) + ' params.Add(New ReportParameter("Porcentaje", "-")) + ' 'CENTRO DE COSTOS + ' params.Add(New ReportParameter("Proyecto", If(DVddlproyecto.Visible = True, DdlProyecto.SelectedItem.Text.Trim, "-"))) + ' params.Add(New ReportParameter("SubProyecto", CveSubProyecto.ToString)) + ' params.Add(New ReportParameter("Addendum", "")) + ' 'INFORMACION + ' params.Add(New ReportParameter("Cliente", If(TrCliente.Visible = True, DdlCliente.SelectedItem.Text.Trim, "-"))) + ' params.Add(New ReportParameter("Sucursal", If(TrClienteSucursal.Visible = True, DdlSucursalCliente.SelectedItem.Text.Trim, "-"))) + ' params.Add(New ReportParameter("FechaInicial", TxtFechaInicial.Text.Trim)) + ' params.Add(New ReportParameter("FechaFinal", TxtFechaFinal.Text.Trim)) + ' params.Add(New ReportParameter("Moneda", DdlMoneda.SelectedItem.Text.Trim)) + ' params.Add(New ReportParameter("TipoCambio", If(tipoCambio.Visible = True, TxtTipoCambio.Text.Trim, "-"))) + ' params.Add(New ReportParameter("IVA", TxtPorIVA.Text.Trim)) + ' params.Add(New ReportParameter("Anticipo", TxtPorAnticipo.Text.Trim)) + ' params.Add(New ReportParameter("Amortizacion", TxtPorAmortizacionAnticipo.Text.Trim)) + ' params.Add(New ReportParameter("Garantia", TxtPorGarantia.Text.Trim)) + ' params.Add(New ReportParameter("Minimo", "-")) + ' params.Add(New ReportParameter("Maximo", "-")) + ' params.Add(New ReportParameter("Total", If(DvTotal.Visible = True, TxtTotal.Text.Trim, "-"))) + ' 'Estatus + ' params.Add(New ReportParameter("Estatus", DdlEstatus.SelectedItem.Text.Trim)) + ' params.Add(New ReportParameter("TipoGarantia", "")) + ' params.Add(New ReportParameter("EstatusFianza", "")) + ' params.Add(New ReportParameter("Folio", "0")) + ' params.Add(New ReportParameter("FechaVencimiento", "")) + + ' If Imagen.Exists Then + ' params.Add(New ReportParameter("LogoPath", logouri)) + ' Else + ' params.Add(New ReportParameter("LogoPath", "")) + ' End If + ' ImprimirPDF("Empresas/Grales/Formatos/Contrato.rdlc", dt, params, $"Contrato-{Titulo}", Formato:="PDF") + + 'End Sub + #End Region #Region "I M P R E S I O N D E G A S T O S" - Protected Sub ImgImprimirGastos_Click(sender As Object, e As EventArgs) Handles LBImprimirGastos.Click - GenerarPDFGastos() - End Sub + 'Protected Sub ImgImprimirGastos_Click(sender As Object, e As EventArgs) Handles LBImprimirGastos.Click + ' GenerarPDFGastos() + 'End Sub Private Sub GenerarPDFGastos(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) @@ -3819,22 +3858,22 @@ Partial Class Contratos_ContratoObra End If Dim Nombre As String = If(LtlTitulo.Text.Length > 20, LtlTitulo.Text.Substring(0, 20), LtlTitulo.Text) ImprimirPDF("Empresas/Grales/Formatos/RepContratoGastos.rdlc", dt, params, $"{Nombre}-Gastos", Formato:=Formato) - End Sub - - Private Sub LBAgregarGasto_Click(sender As Object, e As EventArgs) Handles LBAgregarGasto.Click - TxtDescripcion.Text = "" - TxtImporteC.Text = "" - TxtFecha.Text = "" - UpAgregarGastos.Update() - RegistraScript("$('#ModalAgregarGastos').modal();") End Sub + 'Private Sub LBAgregarGasto_Click(sender As Object, e As EventArgs) Handles LBAgregarGasto.Click + ' TxtDescripcion.Text = "" + ' TxtImporteC.Text = "" + ' TxtFecha.Text = "" + ' UpAgregarGastos.Update() + ' RegistraScript("$('#ModalAgregarGastos').modal();") + 'End Sub + #End Region #Region "I M P R E S I O N D E S U M I N I S T R O S" - Protected Sub ImgImprimirSuministros_Click(sender As Object, e As EventArgs) Handles LbImprimirSuministros.Click - GenerarPDFSuministros() - End Sub + 'Protected Sub ImgImprimirSuministros_Click(sender As Object, e As EventArgs) Handles LbImprimirSuministros.Click + ' GenerarPDFSuministros() + 'End Sub Private Sub GenerarPDFSuministros(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -3863,9 +3902,9 @@ Partial Class Contratos_ContratoObra #End Region #Region "I M P R E S I O N D E A V A N C E " - Private Sub lbImprimirAvance_Click(sender As Object, e As EventArgs) Handles lbImprimirAvance.Click - GenerarPDFAvance() - End Sub + 'Private Sub lbImprimirAvance_Click(sender As Object, e As EventArgs) Handles lbImprimirAvance.Click + ' GenerarPDFAvance() + 'End Sub Private Sub GenerarPDFAvance(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -3895,9 +3934,9 @@ Partial Class Contratos_ContratoObra #End Region #Region "I M P R E S I O N D E P R E S U P U E S T O " - Private Sub lLbImprimirPresupuesto_Click(sender As Object, e As EventArgs) Handles LbImprimirPresupuesto.Click - GenerarPDFPPresupuesto() - End Sub + 'Private Sub lLbImprimirPresupuesto_Click(sender As Object, e As EventArgs) Handles LbImprimirPresupuesto.Click + ' GenerarPDFPPresupuesto() + 'End Sub Private Sub GenerarPDFPPresupuesto(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -3927,12 +3966,12 @@ Partial Class Contratos_ContratoObra #End Region #Region "I M P R E S I O N D E A C T I V O S F I J O S " - Private Sub LbImprmirAF_Click(sender As Object, e As EventArgs) Handles LbImprmirAF.Click - GenerarPDFActivosFijos() - End Sub - Private Sub LbImprmirAFExcel_Click(sender As Object, e As EventArgs) Handles LbImprmirAFExcel.Click - GenerarPDFActivosFijos("Excel") - End Sub + 'Private Sub LbImprmirAF_Click(sender As Object, e As EventArgs) Handles LbImprmirAF.Click + ' GenerarPDFActivosFijos() + 'End Sub + 'Private Sub LbImprmirAFExcel_Click(sender As Object, e As EventArgs) Handles LbImprmirAFExcel.Click + ' GenerarPDFActivosFijos("Excel") + 'End Sub Private Sub GenerarPDFActivosFijos(Optional Formato As String = "PDF") Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) @@ -4053,13 +4092,13 @@ Partial Class Contratos_ContratoObra ObjGral.Dispose() 'DdlPlantillaContrato.DataSource = DtPlantillasContratos 'DdlPlantillaContrato.DataBind() - End Sub - - Protected Sub BtnImprimirC_Click(sender As Object, e As EventArgs) Handles liImprimir.Click - ' Dim docx As String = DtPlantillasContratos.FiltroPrimeroValor("URL", $"CveContratoPlantilla = {DdlPlantillaContrato.SelectedValue}") - ' DescarFormato(docx) End Sub + 'Protected Sub BtnImprimirC_Click(sender As Object, e As EventArgs) Handles liImprimir.Click + ' ' Dim docx As String = DtPlantillasContratos.FiltroPrimeroValor("URL", $"CveContratoPlantilla = {DdlPlantillaContrato.SelectedValue}") + ' ' DescarFormato(docx) + 'End Sub + #End Region diff --git a/Contratos/RepContratosObraAvances.aspx b/Contratos/RepContratosObraAvances.aspx index 5587ae0af..7f31c16ea 100644 --- a/Contratos/RepContratosObraAvances.aspx +++ b/Contratos/RepContratosObraAvances.aspx @@ -28,7 +28,7 @@
    -
    + <%--
    Fecha Inicio:
    @@ -46,9 +46,9 @@ -
    - +
    --%> +<%--
    Fecha Fin:
    @@ -65,7 +65,7 @@ -
    +
    --%>
    Cliente: @@ -92,6 +92,151 @@ + + + + +
    + +
    +
    + +
    + +
    + Contratos +

    + + +

    + +
    + +
    + Total +

    + $ +

    +
    + +
    + +
    + +
    + +
    + +
    + + +
    +
    +
    + +
    + + + + +
    + Avance +

    + + + + +

    + +     		+ Porcentaje +

    + + + + +

    + +
    + +
    + +
    + +
    +
    +
    + +
    + + <%--76% Avance--%> + +
    + +
    +
    Avance
    +
    +
    + +
    +
    +
    + +
    +
    +
    + +
    + + + + +
    + Faltante +

    + + + + +

    + +     		+ Porcentaje +

    + + + + +

    + +
    + + +
    + +
    + +
    +
    +
    +
    + + <%--76% Avance--%> + +
    +
    +
    Faltante
    +
    +
    +
    +
    +
    + +
    + +     +     + @@ -116,45 +261,91 @@ DataKeyNames="CveContrato,NumeroContrato" ShowHeader="True" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"> - - - - - - - - - - - - + + + + + + + + + + - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + + + - + + + +
    diff --git a/Contratos/RepContratosObraAvances.aspx.vb b/Contratos/RepContratosObraAvances.aspx.vb index 6215f5a5a..066bab9dc 100644 --- a/Contratos/RepContratosObraAvances.aspx.vb +++ b/Contratos/RepContratosObraAvances.aspx.vb @@ -11,7 +11,7 @@ Partial Class RepContratosObraAvances CargaClientes() CargaContratos() - 'CargaDatos() + CargaDatos() End If End Sub @@ -20,9 +20,11 @@ Partial Class RepContratosObraAvances Private Sub CargaDatos() Dim Con As New ClsContratos + Dim DTDatos As New DataTable - If Con.GetContratosObraRepAvances(txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, DdlCliente.SelectedValue.ToEntero, DdlContrato.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then GVDatos.DataSource = Con.DtResultados + DTDatos = Con.DtResultados Else GVDatos.DataSource = Nothing End If @@ -30,8 +32,47 @@ Partial Class RepContratosObraAvances Con.Dispose() GVDatos.DataBind() - UpDatos.Update() - + UpDatos.Update() + + + If DTDatos.Rows.Count > 0 Then + Indicadores(DTDatos) + End If + + End Sub + + + + Private Sub Indicadores(DTDatos As DataTable) + + Dim NumeroContratos As Integer = DTDatos.Rows.Count + + Dim TotalContratos As Decimal = DTDatos.SUM("Importe") + Dim TotalAvance As Decimal = DTDatos.SUM("AvanceImporte") + Dim TotalFaltante As Decimal = TotalContratos - TotalAvance + + + Dim TotalAvancePorcentaje As Decimal = (TotalAvance * 100) / TotalContratos + Dim TotalFaltantePorcentaje As Decimal = 100 - TotalAvancePorcentaje + + + LtlGrafNumeroContratos.Text = NumeroContratos.ToString + LtlGrafTotal.Text = TotalContratos.ToString("###,###,###.00") + + + LtlAvanceImporte.Text = $"$ {TotalAvance.ToString("###,###,###.00")}" + LtlAvanceImporteProcentaje1.Text = $"{TotalAvancePorcentaje.ToString("###.00")} %" + LtlAvanceImporteProcentaje2.Text = $"{TotalAvancePorcentaje.ToString("###.00")}%" + SPAvance1.Attributes.Add("style", $"width:{TotalAvancePorcentaje.ToString.ToEntero}%") + + + LtlFaltanteImporte.Text = $"$ {TotalFaltante.ToString("###,###,###.00")}" + LtlFaltanteImportePorcentaje1.Text = $"{TotalFaltantePorcentaje.ToString("###.00")} %" + LtlFaltanteImportePorcentaje2.Text = $"{TotalFaltantePorcentaje.ToString("###.00")}%" + SPFaltante.Attributes.Add("style", $"width:{TotalFaltantePorcentaje.ToString.ToEntero}%") + + UpGrafica.Update() + End Sub #Region "C O M B O S" diff --git a/Contratos/RepContratosObraAvancesDetalle.aspx b/Contratos/RepContratosObraAvancesDetalle.aspx index 1a1269883..1cee61c45 100644 --- a/Contratos/RepContratosObraAvancesDetalle.aspx +++ b/Contratos/RepContratosObraAvancesDetalle.aspx @@ -8,89 +8,159 @@ - Reporte Contratos Avance Detalle + -<%-- + + + - -
    -
    +
    -
    - -
    - -
    -
    - -
    - Fecha Inicio: -
    -
    -
    - - - - -
    - - - - - - +
    +
    +
    -
    +
    + Numero Estimaciones +

    + + +

    + +
    + +
    + Numero Estimaciones +

    + +

    +
    + +
    + +
    + +
    + +
    + +
    -
    - Fecha Fin: -
    -
    -
    - - - +
    +
    +
    + +
    + + + + +
    + Avance +

    + + - - - - - - - - + +

    + +     		+ Porcentaje +

    + + + + +

    + +
    -
    - Cliente: -
    -
    - -
    +
    + +
    + +
    +
    +
    + +
    + + <%--76% Avance--%> + +
    + +
    +
    Avance
    +
    +
    -
    - Contrato: -
    -
    - -
    - - -
    -
    -
    - + +
    +
    +
    + +
    + + + + +
    + Fecha Fin +

    + + + + +

    + +     		+ Dias Restantes +

    + + + + +

    + +
    + + +
    + +
    + +
    +
    + + <%--
    +
    + + 76% Avance + +
    +
    +
    Días
    +
    +
    +
    --%> + +
    +
    + +
    + - --%> + @@ -99,11 +169,11 @@
    -
    - +
    +
    -
    +
    " style="display: inline-block; margin-right: -20px; width: 150px; height: 25px; border-color: #89C4F4;" /> " class="btn btn-circle btn-sm label-info"> @@ -115,7 +185,7 @@
    -
    +
    0, Request("CveContrato").ToString.ToEntero, -1) - LblNumeroContrato.Text = If(Request("NumeroContrato") IsNot Nothing AndAlso Request("NumeroContrato").ToString.Length > 0, $"Numero Contrato: {Request("NumeroContrato").ToString}", "") + NumeroContrato = If(Request("NumeroContrato") IsNot Nothing AndAlso Request("NumeroContrato").ToString.Length > 0, $"{Request("NumeroContrato").ToString}", "") + LblNumeroContrato.Text = If(Request("NumeroContrato") IsNot Nothing AndAlso Request("NumeroContrato").ToString.Length > 0, $"Estimaciones del Contrato: {Request("NumeroContrato").ToString}", "") If CveContrato > 0 Then CargaDatos() @@ -40,54 +52,72 @@ Partial Class RepContratosObraAvancesDetalle Private Sub CargaDatos() Dim Con As New ClsContratos - + Dim DTDatos As DataTable = New DataTable + Dim DTContrato As DataTable = New DataTable + If Con.GetContratosObraRepAvancesDetalle(CveContrato, UsuarioActual.CveEmpresa) Then GVDatos.DataSource = Con.DtResultados - + DTDatos = Con.DtResultados If Con.DtResultados.Rows.Count = 0 Then Alert("No se encontraron estimaciones.", TipoMensaje.MsgAdvertencia) End If Else GVDatos.DataSource = Nothing + End If + If Con.GetContratosObraRepAvances(MinFecha, MaxFecha, -1, CveContrato, UsuarioActual.CveEmpresa) Then + DTContrato = Con.DtResultados + If DTContrato.Rows.Count > 0 Then + Indicadores(DTContrato, DTDatos.Rows.Count) + End If End If + + Con.Dispose() GVDatos.DataBind() - UpDatos.Update() - + UpDatos.Update() + End Sub - '#Region "C O M B O S" + Private Sub Indicadores(DTDatos As DataTable, NumeroEstimaciones As Integer) + + LtlGrafNumeroEstimaciones.Text = NumeroEstimaciones - ' Private Sub CargaContratos() - ' DdlContrato.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo IN(30,31) ") - ' DdlContrato.DataBind() - ' DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) - ' End Sub + Dim AvanceImporte As Decimal = DTDatos(0)("AvanceImporte").ToString.ToDecimal + Dim TotalContratos As Decimal = DTDatos(0)("Importe").ToString.ToDecimal + Dim TotalAvancePorcentaje As Decimal = (AvanceImporte * 100) / TotalContratos + Dim TotalFaltantePorcentaje As Decimal = 100 - TotalAvancePorcentaje + + Dim FechaFinal As Date = DTDatos(0)("FechaFinal").ToString.ToDate + Dim Dias As Integer = (FechaFinal - Now).Days + + Dias = If(Dias < 0, 0, Dias) + + LtlAvanceImporte.Text = $"$ {AvanceImporte.ToString("###,###,###.00")}" + + LtlAvanceImporteProcentaje1.Text = $"{TotalAvancePorcentaje.ToString("###.00")} %" + LtlAvanceImporteProcentaje2.Text = $"{TotalAvancePorcentaje.ToString("###.00")}%" + SPAvance1.Attributes.Add("style", $"width:{TotalAvancePorcentaje.ToString.ToEntero}%") + + LtlFechaFin.Text = FechaFinal.ToString("dd/MM/yyyy") + LtlDiasRestantes.Text = Dias.ToString("###,###") + + UpGrafica.Update() + + End Sub + - ' Private Sub CargaClientes() - ' Dim dt As DataTable = Nothing - ' Dim Cli As New ClsClientes - ' If Cli.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then - ' dt = Cli.DtResultados - ' End If - ' Cli.Dispose() - ' DdlCliente.DataSource = dt - ' DdlCliente.DataBind() - ' DdlCliente.Items.Insert(0, New ListItem("Todos", "-1")) - ' End Sub - '#End Region Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then Dim HplNumeroEstimacion As HyperLink = e.Row.FCHyperLink("HplNumeroEstimacion") - HplNumeroEstimacion.NavigateUrl = $"./RepContratosObraAvancesPartida.aspx?CveEstimacion={e.Row.DataKey("CveEstimacion")}&NumeroEstimacion={ e.Row.DataKey("NumeroEstimacion")}&CveContrato={ CveContrato }" + HplNumeroEstimacion.NavigateUrl = $"./RepContratosObraAvancesPartida.aspx?CveEstimacion={e.Row.DataKey("CveEstimacion")}&NumeroEstimacion={ e.Row.DataKey("NumeroEstimacion")}&CveContrato={ CveContrato }&NumeroContrato={NumeroContrato}" Dim LnkAnexo As LinkButton = e.Row.FCLinkButton("LnkAnexo") @@ -97,9 +127,6 @@ Partial Class RepContratosObraAvancesDetalle End Sub - 'Protected Sub CmdConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click - ' CargaDatos() - 'End Sub Protected Sub LnkAnexo_Click(sender As Object, e As EventArgs) @@ -130,18 +157,23 @@ Partial Class RepContratosObraAvancesDetalle Dim DtControl As New DataTable Dim ObjContratos As New ClsContratos - - + Dim Lugar As String = "" + Dim DescripcionContrato As String = "" If ObjContratos.GetContratosObraAvancesControlAcumulativo(CveContrato, CveEstimacion, UsuarioActual.CveEmpresa) Then DtControl = ObjContratos.DtResultados + + + If DtControl.Rows.Count > 0 Then + Lugar = DtControl(0)("Lugar").ToString + DescripcionContrato = DtControl(0)("DescripcionContrato").ToString + End If End If ObjContratos.Dispose() If DtControl.Rows.Count > 0 Then - Dim WBAnexo = New ClosedXML.Excel.XLWorkbook(PlantillaAnexo) Dim WBAnexoSalvar = New ClosedXML.Excel.XLWorkbook @@ -158,10 +190,16 @@ Partial Class RepContratosObraAvancesDetalle WSControl.Cell(20, 6).Value = NumeroContrato - WSControl.Cell(18, 2).Value = "" 'Lugar + WSControl.Cell(18, 2).Value = Lugar + WSControl.Cell(18, 2).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Left) + WSControl.Cell(18, 2).Style.Alignment.SetVertical(XLAlignmentVerticalValues.Top) + WSControl.Cell(17, 6).Value = "" 'Periodo Fecha Inicial WSControl.Cell(17, 7).Value = "" 'Periuodo Fecha Final - WSControl.Cell(20, 2).Value = "" 'Obra + WSControl.Cell(20, 2).Value = DescripcionContrato + WSControl.Cell(20, 2).Style.Alignment.SetHorizontal(XLAlignmentHorizontalValues.Left) + WSControl.Cell(20, 2).Style.Alignment.SetVertical(XLAlignmentVerticalValues.Top) + WSControl.Cell(22, 7).Value = "" 'Presupuesto segun contrato WSControl.Cell(19, 5).Value = "" 'Contrtatista @@ -310,9 +348,7 @@ Partial Class RepContratosObraAvancesDetalle WSDetalle.Cell(4, 10).Value = "" 'Fecha a WSDetalle.Cell(4, 11).Value = NumeroEstimacion - 'WSDetalle.Picture("Logo").Name = $"Logo{Drow("CveContratoDetalle").ToString}" - 'WSDetalle.Picture("Firma").Name = $"Firma{Drow("CveContratoDetalle").ToString}" - + WSDetalle.Cell(6, 6).Value = DescripcionContrato WSDetalle.Cell(14, 2).Value = Drow("Codigo").ToString WSDetalle.Cell(14, 3).Value = Drow("PS").ToString @@ -353,7 +389,7 @@ Partial Class RepContratosObraAvancesDetalle Dim ImgWidth As Double = Imagen.Height - Dim nRowmas As Integer = ImgWidth / RowH + Dim nRowmas As Integer = (ImgWidth / RowH).ToEntero CurrectRowImg = CurrectRowImg + nRowmas @@ -396,13 +432,5 @@ Partial Class RepContratosObraAvancesDetalle End Sub - 'Public Function GetStream(excelWorkbook As ClosedXML.Excel.XLWorkbook) As Stream - - ' Dim fs = New MemoryStream() - ' excelWorkbook.SaveAs(fs) - ' fs.Position = 0 - ' Return fs - - 'End Function End Class \ No newline at end of file diff --git a/Contratos/RepContratosObraAvancesPartida.aspx b/Contratos/RepContratosObraAvancesPartida.aspx index 31ffcfad3..ec7f8299d 100644 --- a/Contratos/RepContratosObraAvancesPartida.aspx +++ b/Contratos/RepContratosObraAvancesPartida.aspx @@ -8,45 +8,14 @@ - Reporte Contratos Avance por partida + -<%-- - - -
    -
    -
    -
      -
    • Cliente: - -
      • -
    • Contratos: - -
      • -
    • Sección: - -
      • -
    • Partida: - -
      • -
    • Productos y Servicios: - -
      • -
    -
    -
    - -
    -
    -
    -     -     -     --%> + @@ -56,7 +25,7 @@
    - +
    diff --git a/Contratos/RepContratosObraAvancesPartida.aspx.vb b/Contratos/RepContratosObraAvancesPartida.aspx.vb index 07287f5ab..2abb6424b 100644 --- a/Contratos/RepContratosObraAvancesPartida.aspx.vb +++ b/Contratos/RepContratosObraAvancesPartida.aspx.vb @@ -25,7 +25,6 @@ Partial Class RepContratosObraAvancesPartida Property CveContrato As Integer - Get If ViewState("CveContrato") Is Nothing Then Return -1 @@ -36,8 +35,20 @@ Partial Class RepContratosObraAvancesPartida Set(value As Integer) ViewState("CveContrato") = value End Set - - + End Property + + + Property NumeroContrato As String + Get + If ViewState("NumeroContrato") Is Nothing Then + Return "" + Else + Return ViewState("NumeroContrato").ToString + End If + End Get + Set(value As String) + ViewState("NumeroContrato") = value + End Set End Property Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -46,8 +57,9 @@ Partial Class RepContratosObraAvancesPartida CveEstimacion = If(Request("CveEstimacion") IsNot Nothing AndAlso Request("CveEstimacion").ToString.ToEntero > 0, Request("CveEstimacion").ToString.ToEntero, -1) CveContrato = If(Request("CveContrato") IsNot Nothing AndAlso Request("CveContrato").ToString.ToEntero > 0, Request("CveContrato").ToString.ToEntero, -1) + NumeroContrato = If(Request("NumeroContrato") IsNot Nothing AndAlso Request("NumeroContrato").ToString.Length > 0, $"{Request("NumeroContrato").ToString}", "") - LblEstimacion.Text = If(Request("NumeroEstimacion") IsNot Nothing AndAlso Request("NumeroEstimacion").ToString.Length > 0, $"Numero Estimacion: {Request("NumeroEstimacion").ToString}", "") + LblEstimacion.Text = If(Request("NumeroEstimacion") IsNot Nothing AndAlso Request("NumeroEstimacion").ToString.Length > 0, $"Contgrato { NumeroContrato } Estimacion {Request("NumeroEstimacion").ToString}", "") If CveEstimacion > 0 Then From dfd0d7ffe099304536076e4ec03e0f0e657d4c91 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 13 Nov 2020 20:51:04 -0700 Subject: [PATCH 23/75] Cambios en tipos de contrato --- App_Code/ClsPaginas.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 38ccbc84f..d82bbdd16 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1758,12 +1758,12 @@ Public Class ClsPaginas End Property Property GlobalDTContratosTipos(CveEmpresa As Integer) As DataTable Get - Dim AppNombre As String = String.Format("GlobalDTContratosTipos-{0}", CveEmpresa) + Dim AppNombre As String = "GlobalDTContratosTipos" 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Dim ObjContratos As New ClsContratos - If ObjContratos.GetContratosTipos(CveEmpresa) Then Application(AppNombre) = ObjContratos.DtResultados + If ObjContratos.GetContratosTipos(-1) Then Application(AppNombre) = ObjContratos.DtResultados ObjContratos.Dispose() End If @@ -1771,7 +1771,7 @@ Public Class ClsPaginas End Get Set(value As DataTable) - Dim AppNombre As String = String.Format("GlobalDTContratosTipos-{0}", CveEmpresa) + Dim AppNombre As String = "GlobalDTContratosTipos" Application(AppNombre) = value End Set End Property From 90655409a24b530a6621c9b6285d2e4efed357a5 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 13 Nov 2020 20:51:25 -0700 Subject: [PATCH 24/75] Modalidad Contable en RepVentas --- App_Code/ClsVentas.vb | 6 +- Ventas/RepVentaDetalle.aspx | 6 ++ Ventas/RepVentaDetalle.aspx.vb | 17 ++-- Ventas/RepVentas.aspx | 8 +- Ventas/RepVentas.aspx.vb | 137 ++++++++++++++++++++++----------- 5 files changed, 120 insertions(+), 54 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 6a4739cf8..9e3fe70cf 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1346,7 +1346,7 @@ Public Class ClsVentas Public Function GetRepVentas(FechaI As Date, FechaF As Date, FechaIEjec As Date, FechaFEjec As Date, CveCliente As Integer, CveSubProyectoEjecucion As Integer, CveVendedor As String, CveUsuario As Integer, CveEstatus As String, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1", Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1, - Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean + Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasGetRep") @@ -1373,6 +1373,7 @@ Public Class ClsVentas .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable End With Try @@ -1477,7 +1478,7 @@ Public Class ClsVentas Vendedor As String, CveUsuario As Integer, CveEstatus As String, FechaI As Date, FechaF As Date, CveCorte As Integer, TipoDocto As String, CveSubProyectoEjecucion As Integer, CveEmpresa As Integer, FechaIEjec As Date, FechaFEjec As Date, Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveMoneda As Integer = -1, Optional CveUsuarioConsulta As Integer = -1, - Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1) As Boolean + Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasGetRepDetalle") @@ -1509,6 +1510,7 @@ Public Class ClsVentas .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@CveCondicionesPago", SqlDbType.Int).Value = CveCondicionesPago .Add("@TipoCliente", SqlDbType.Int).Value = TipoCliente + .Add("@ModalidadContable", SqlDbType.Bit).Value = ModalidadContable End With Try diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx index 0dc5dd450..9cb218984 100644 --- a/Ventas/RepVentaDetalle.aspx +++ b/Ventas/RepVentaDetalle.aspx @@ -303,6 +303,12 @@
    +
    + +
    + +
    +
    diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb index 4e35dd634..324054b77 100644 --- a/Ventas/RepVentaDetalle.aspx.vb +++ b/Ventas/RepVentaDetalle.aspx.vb @@ -450,8 +450,8 @@ Partial Class RepVentaDetalle ConfiguraEmpresa() UPDatos.Update() End Sub - Private Sub CargaDatos() - Dim ObjVentas As New ClsVentas() + Private Sub CargaDatos() + Dim AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString Dim Fecha = If(Request("Fecha") IsNot Nothing, Request("Fecha").ToString, "-1").ToString Dim IVA = If(Request("IVA") IsNot Nothing, Request("IVA").ToString, "-1").ToString @@ -478,12 +478,15 @@ Partial Class RepVentaDetalle FechaIEjec = If(IsDate(TxtFechaIEjec.Text.Trim()), TxtFechaIEjec.Text.Trim.ToDate, MinFecha) FechaFEjec = If(IsDate(TxtFechaFEjec.Text.Trim()), TxtFechaFEjec.Text.Trim.ToDate, MaxFecha) - 'FechaI, FechaF, -1, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero + Dim ModalidadContable As Boolean = CBool(If(Request("ModalidadContable") IsNot Nothing, Request("ModalidadContable").ToEntero(), 0)) + + Dim ObjVentas As New ClsVentas() + 'FechaI, FechaF, -1, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero If ObjVentas.GetRepVentasDetalle(DdlGrupo.SelectedValue.ToEntero, Anio.ToEntero, Mes.ToEntero, AnioMes, Fecha, CveCliente, IVA, Vendedores, DdlUsuario.SelectedValue.ToEntero, Estatus, FechaI, FechaF, CveCorte.ToEntero, TipoComprobante, DdlSubProyectoEjecucion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaIEjec, FechaFEjec, CveProyecto, Sucursales, TipoCambio, TCEspecifico, CveMoneda, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, - CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then + CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable) Then DtVentas = AddRows(ObjVentas.DtResultados) ImgImprimir.Enabled = True GvDatos.DataSource = AddRows(ObjVentas.DtResultados) @@ -491,9 +494,11 @@ Partial Class RepVentaDetalle Else GvDatos.DataSource = Nothing GvVsh.DataSource = Nothing - End If - Agrupador = DdlGrupo.SelectedItem.Text + End If ObjVentas.Dispose() + + Agrupador = DdlGrupo.SelectedItem.Text + GvDatos.DataBind() GvVsh.DataBind() End Sub diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx index ebafa4a4f..699b91e4a 100644 --- a/Ventas/RepVentas.aspx +++ b/Ventas/RepVentas.aspx @@ -293,8 +293,12 @@
    - - +
    +
    + +
    + +
    diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb index 9694e4ff0..548d83a87 100644 --- a/Ventas/RepVentas.aspx.vb +++ b/Ventas/RepVentas.aspx.vb @@ -10,8 +10,8 @@ Imports System.IO Imports System.Xml Partial Class Ventas_RepVentas - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "Propiedades" Private Property Opcion As String Get @@ -74,12 +74,12 @@ Partial Class Ventas_RepVentas Set(value As DataTable) ViewState("DtColor") = value End Set - End Property - - - + End Property + + + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then TipoCambio = 1 @@ -117,11 +117,11 @@ Partial Class Ventas_RepVentas End If End If - End Sub - - + End Sub + + #Region " CARGA COMBOS " - + Private Sub CargaGrupo() DdlGrupo.Items.Insert(0, New ListItem("Año", "1")) DdlGrupo.Items.Insert(1, New ListItem("Mes", "2")) @@ -284,10 +284,10 @@ Partial Class Ventas_RepVentas DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) DdlSubProyecto.DataBind() 'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1")) - End Sub - + End Sub + #End Region - + #Region " CARGA DATOS " Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click CargaDatos() @@ -321,7 +321,7 @@ Partial Class Ventas_RepVentas If ObjVentas.GetRepVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, Vendedores, DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario, - CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero) Then + CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ChkModalidadContable.Checked) Then GvDatos.DataSource = ObjVentas.DtResultados DtVentas = ObjVentas.DtResultados Else @@ -332,12 +332,12 @@ Partial Class Ventas_RepVentas CveProyecto = DdlProyecto.SelectedValue.ToEntero ObjVentas.Dispose() GvDatos.DataBind() - End Sub - + End Sub + #End Region - + #Region "SELECTED INDEX CHANGE" - + Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) CargaClientes() End Sub @@ -380,10 +380,10 @@ Partial Class Ventas_RepVentas CargaDatos() RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio")) UPDatos.Update() - End Sub - + End Sub + #End Region - + #Region " GV DATOS - ROW DATABOUND " Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then @@ -417,11 +417,60 @@ Partial Class Ventas_RepVentas Else CveSubProyecto = e.Row.DBCampo("CveSubProyecto") CveProyecto = e.Row.DBCampo("CveProyecto") - End If - - - 'LIGA A DETALLE - Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaI}&FechaF={FechaF}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}" + End If + + Dim FechaInicial As String = FechaI + Dim FechaFinal As String = FechaF + + If Not e.Row.DBCampo("GPO").Contains("Total") Then + Select Case DdlGrupo.SelectedValue.ToEntero() + Case 2 ' MES + Dim FechaIRef As DateTime = FechaI.ToDateTime() + Dim FechaFRef As DateTime = FechaF.ToDateTime() + + Dim Anio As Integer = FechaFRef.Year + Dim Mes As Integer = e.Row.DBCampo("Mes").ToEntero() + Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes) + + Dim Dia As Integer = FechaFRef.Day + + If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then + Dia = lastDayOfMonth + End If + + If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then + FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy") + End If + + FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy") + Case 3 ' AÑO/MES + Dim FechaIRef As DateTime = FechaI.ToDateTime() + Dim FechaFRef As DateTime = FechaF.ToDateTime() + + Dim Anio As Integer = e.Row.DBCampo("Anio").ToEntero() + Dim Mes As Integer = e.Row.DBCampo("Mes").ToEntero() + Dim lastDayOfMonth = DateTime.DaysInMonth(Anio, Mes) + + Dim Dia As Integer = FechaFRef.Day + + If e.Row.DBCampo("Mes").ToEntero() <> FechaFRef.Month Then + Dia = lastDayOfMonth + End If + + If e.Row.DBCampo("Mes").ToEntero() <> FechaIRef.Month Then + FechaInicial = New DateTime(Anio, Mes, 1).ToString("dd/MM/yyyy") + End If + + FechaFinal = New DateTime(Anio, Mes, Dia).ToString("dd/MM/yyyy") + Case 4 ' FECHA + FechaInicial = e.Row.DBCampo("Fecha").ToDateTime().ToString("dd/MM/yyyy") + FechaFinal = e.Row.DBCampo("Fecha").ToDateTime().ToString("dd/MM/yyyy") + End Select + End If + + + 'LIGA A DETALLE + Dim Liga As String = $"/Ventas/RepVentaDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkModalidadContable.Checked, 1, 0)}" e.Row.FCLiteral("LtlGrupo").Text = "" & e.Row.FCLiteral("LtlGrupo").Text & "" @@ -434,9 +483,9 @@ Partial Class Ventas_RepVentas End If End If - End Sub + End Sub #End Region - + #Region " PERSONALIZAR " Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Personaliza() @@ -519,18 +568,18 @@ Partial Class Ventas_RepVentas UPDatos.Update() - End Sub + End Sub #End Region - + #Region " EXCEL " Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click 'GvDatos.ExportToExcel("ReporteVentas" & Now.ToShortDateString) GenerarPDF("Excel") - End Sub + End Sub #End Region - + #Region "PDF" - + Private Sub GenerarPDF(Optional Formato As String = "PDF") If DtVentas IsNot Nothing Then Dim StrFiltro As New StringBuilder @@ -602,10 +651,10 @@ Partial Class Ventas_RepVentas Response.AppendHeader("Content-Disposition", "attachment; filename=ReporteHP.csv") Response.Write(Str.ToString) Context.Response.End() - End Sub - + End Sub + #End Region - + #Region "XML-CONFIGURACIÓN" Private Sub XmlConf(CveUsuario As Integer, CveModulo As Integer, Values As String(,)) Dim settings As New XmlWriterSettings() @@ -644,11 +693,11 @@ Partial Class Ventas_RepVentas {"SucursalEjecuccion", DdlSubProyectoEjecucion.Text.ToString()}, {"Proyecto", DdlProyecto.Text.ToString()} } - End Sub + End Sub #End Region - + #Region "GRAFICA" - + Protected Sub LnkVerGrafica_Click(sender As Object, e As EventArgs) If Not DtVentas IsNot Nothing AndAlso DtVentas.Rows.Count > 0 Then Alert("No hay datos disponibles", TipoMensaje.MsgAdvertencia) @@ -778,9 +827,9 @@ Partial Class Ventas_RepVentas Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs) CambioGrafica() - End Sub - + End Sub + #End Region - - + + End Class From ddea609bb5ed11fcaf9530801bc7d0d5aec5a968 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 13 Nov 2020 20:51:51 -0700 Subject: [PATCH 25/75] Seccion de almacen al cancelar factura --- App_Code/Modelos.vb | 41 ++++++++++++++++++++++++++++++++++++----- 1 file changed, 36 insertions(+), 5 deletions(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 7ce9cd07e..d6b72340c 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4707,7 +4707,7 @@ Namespace Modelos If CveMovimientoDevolucion > 0 Then For Each Dr As DataRow In DtExistencias.FiltraParametros($"CveMovimiento = {RowMovimiento("CveMovimiento").ToString()}").Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoDevolucion, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, -1, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero) Then ErrorCancelar = True MensajeError = "Ocurrió un error al procesar los conceptos de salida. Por favor vuelva a intentar." Exit For @@ -4810,7 +4810,7 @@ Namespace Modelos 'REALIZA LA DEVOLUCION AL ALMACEN VIRTUAL - If Not GeneraMovimientosVirtuales(CveVenta, CveMovimientoDevolucion, RowMovimiento("CveMovimiento").ToString().ToEntero(), ObjInventario) Then + If Not ErrorCancelar AndAlso Not GeneraMovimientosVirtuales(CveVenta, CveMovimientoDevolucion, RowMovimiento("CveMovimiento").ToString().ToEntero(), ObjInventario) Then ErrorCancelar = True MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar." End If @@ -4824,6 +4824,10 @@ Namespace Modelos End If End If + If ErrorCancelar Then + Exit For + End If + Next 'SI EXISTEN HAY EXISTENCIA EN (ENTREGA POR ADELANTADO) SE TIENE QUE REGRESAR AL ALMACEN ORGINAL (GENERAL,SIN COSTO) @@ -4857,6 +4861,10 @@ Namespace Modelos End If Next + If ErrorCancelar Then + Exit For + End If + Next End If @@ -5297,7 +5305,7 @@ Namespace Modelos Exit For End If - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, CveAF:=DrRem("CveActivoFijo").ToString.ToEntero, Serie:=DrRem("Serie").ToString, Lote:=DrRem("Lote").ToString, CveVentaDetalle:=CveVentaDetalleRem, CveMovimientoDetalleEntrada:=DrRem("CveMovimientoDetalle").ToString().ToEntero()) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalidaDevRem, DrRem("Cantidad").ToString.ToDecimal, DrRem("CveUM").ToString.ToEntero, DrRem("CvePS").ToString.ToEntero, DrRem("PU").ToString.ToDecimal, CveAF:=DrRem("CveActivoFijo").ToString.ToEntero, Serie:=DrRem("Serie").ToString, Lote:=DrRem("Lote").ToString, CveVentaDetalle:=CveVentaDetalleRem, CveMovimientoDetalleEntrada:=DrRem("CveMovimientoDetalle").ToString().ToEntero(), CveSeccionAlmacen:=-3) Then ErrorCancelar = True Exit For End If @@ -5320,7 +5328,7 @@ Namespace Modelos If Not ErrorCancelar Then If DtEntradaDetalle IsNot Nothing Then For Each Dr As DataRow In DtEntradaDetalle.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntradaDevRem, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero(), CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero, Lote:=Dr("Lote").ToString, CveSeccionAlmacen:=-3) Then ErrorCancelar = True Exit For End If @@ -6097,6 +6105,28 @@ Namespace Modelos Public Sub SetCliente() If CveCliente > 0 Then Cliente = New Modelos.ClienteModel(CveCliente, CveEmpresa) + If Me.CveClienteSucursal > 0 Then + Dim ObjCliente As New ClsClientes() + If ObjCliente.GetSucursales(CveCliente, Me.CveClienteSucursal) AndAlso ObjCliente.DtResultados.Rows.Count > 0 Then + Me.ClienteSucursal = New Modelos.SucursalModel(ObjCliente.DtResultados.Rows(0)) + End If + ObjCliente.Dispose() + Else + Me.ClienteSucursal = New Modelos.SucursalModel() + Me.ClienteSucursal.NoExt = Cliente.NoExt + Me.ClienteSucursal.NoInt = Cliente.NoInt + Me.ClienteSucursal.Localidad = Cliente.Localidad + Me.ClienteSucursal.Direccion = Cliente.Direccion + Me.ClienteSucursal.Colonia = Cliente.Colonia + Me.ClienteSucursal.Municipio = Cliente.Localidad + Me.ClienteSucursal.Estado = Cliente.Estado + Me.ClienteSucursal.CP = Cliente.CP + Me.ClienteSucursal.Pais = Cliente.Pais + Me.ClienteSucursal.CorreoSucursal = Cliente.CorreoCotizacion + Me.ClienteSucursal.TelefonoSucursal = Cliente.Telefono + Me.ClienteSucursal.Sucursal = Cliente.Sucursal + Me.ClienteSucursal.ImprimeNombreSucursal = Cliente.ImprimeNombreSucursal.ToString() + End If End If End Sub Public Sub SetMoneda() @@ -9435,7 +9465,8 @@ Namespace Modelos Public Property ClaveSATColonia As String Public Property ClaveSATCP As String Public Property EsDistribuidor As Boolean - + Public Property CorreoCotizacion As String + Public Property ImprimeNombreSucursal As Integer End Class From 3bea8796e6d17abb2e7ac10e53bacd947c43cd9d Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 13 Nov 2020 20:54:19 -0700 Subject: [PATCH 26/75] No permitir timbrado en amortizacion de anticipos en factura con total en 0 --- Ventas/Ventas.aspx.vb | 31 ++++++++++++++++++++++++++++++- 1 file changed, 30 insertions(+), 1 deletion(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 6fccf6b6f..b5034fd60 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -4177,6 +4177,11 @@ Partial Class Ventas DdlTipoAmortizacionAnticipo.SelectedValueExist(DbRowVenta("CveTipoAmortizacionAnticipo")) DdlTiposRelacion.SelectedValueExist(DbRowVenta("CveTipoRelacion")) + 'Si es AMORTIZACIÓN ANTICIPO SOBRE FACTURA EN CERO no debe timbrar + If DbRowVenta("CveTipoAmortizacionAnticipo").ToString().ToEntero() = 3 Then + BtnEmitir.Visible = False + End If + 'HdnAmortizacion.Value = LblAmort.Text.ToDouble.ToString() 'HdnSubTotalDescuestos.Value = (TxtSubTotal.Text.Replace(",", "").ToDouble - LblDescuentos.Text.Replace(",", "").ToDouble - LblAmortizacion.Text.Trim.Replace(",", "").ToDouble - TxtRetISR.Text.Replace(",", "").ToDouble).FormatoNumero(2) 'DdlAmortizacionConceptos.SelectedValue = DbRowVenta("AnticipoPosicion").ToString() @@ -5723,6 +5728,15 @@ Partial Class Ventas End If End If + 'Puede hacer pedido + If Me.CveVenta <= 0 Then + If Not UsuarioActual.TienePermisoProceso(177) Then + If DdlTipoComprobante.Items.FindByValue("Pd2") IsNot Nothing Then + DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2")) + End If + End If + End If + 'CUANDO SEA COTIZACION Y SEA COMPUPROVEEDORES (EMPRESA 72) NO DEBE ENVIAR CORREO AL CLIENTE If UsuarioActual.CveEmpresa = 72 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then ChkEnviarFactura.Checked = False @@ -7660,6 +7674,11 @@ Partial Class Ventas End If End If + 'Si es AMORTIZACIÓN ANTICIPO SOBRE FACTURA EN CERO no debe timbrar + If DdlTipoAmortizacionAnticipo.SelectedValue = "3" Then + DebeTimbrar = False + End If + If ObjFactura.TipoDocto.Contiene("Ing", "Egs", "Ant", "Dev") Then If UsuarioActual.Empresa.TipoFacturacion = "CFDi" AndAlso UsuarioActual.Empresa.FacturaProduccion Then @@ -12825,7 +12844,7 @@ Partial Class Ventas pdf = PdfFactura(ObjFactura) Catch ex As Exception - Alert("Ocurrió un error al generar el PDF", TipoMensaje.MsgError) + OnError("Ocurrió un error al generar el PDF", ex) End Try LocalSerieFolio = ObjFactura.SerieFolio @@ -16664,6 +16683,16 @@ Partial Class Ventas LnkRemisiones.Visible = False End If + 'Puede hacer pedido + If Me.CveVenta <= 0 Then + If Not UsuarioActual.TienePermisoProceso(177) Then + If DdlTipoComprobante.Items.FindByValue("Pd2") IsNot Nothing Then + DdlTipoComprobante.Items.Remove(DdlTipoComprobante.Items.FindByValue("Pd2")) + End If + End If + End If + + '[IPP]: FALTA CONFIGURAR Y DAR PERMISO A TODOS LOS QUE TENGAN ACCESO A VENTAS ''Puede remisionar 'If Not UsuarioActual.TienePermisoProceso(199) Then From b13267c6c561bc1ff2b6abd37dcf6d531aee94eb Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 13 Nov 2020 20:55:44 -0700 Subject: [PATCH 27/75] Cambios de logos en factura E141 --- Empresas/141/Formatos/Factura.rdlc | 861 +++++++++++++++-------------- 1 file changed, 449 insertions(+), 412 deletions(-) diff --git a/Empresas/141/Formatos/Factura.rdlc b/Empresas/141/Formatos/Factura.rdlc index 76daa0c7d..5d6e0d999 100644 --- a/Empresas/141/Formatos/Factura.rdlc +++ b/Empresas/141/Formatos/Factura.rdlc @@ -335,6 +335,141 @@ + + true + true + true + + + + + Sonora: Veracruz (662) 210-0041 - Morelos (662) 211-0805 - Colosio (662) 2608088 - Colosio2 (662) 1189939 - Reforma (662) 213-8724 - Perisur (662) 254-4849 - Rodríguez (662) 213-0388 + + + + + + + + + Sahuaro (662) 2161471 - Solidaridad (662) 216-0935 - Palo Verde (662) 4363254 - Progreso (662) 3105781 - Quiroga (662) 261- 0838 - Caborca (637) 3724214 - Magdalena (632) 322-4080 + + + + + + + + + Nogales (631) 319-0093 - Cananea (645) 332 20 40 - Guaymas (622) 222-2417 - Obregón (644)412-2002 Obregón II (644) 413-1543- Obregón III (644) 4134501 - Navojoa (642) 422-9852 + + + + + + + + + Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Tierra Blanca (667) 716-6997 - Sanalona (667) 713-667 + + + + + + + + + Tres Ríos (667) 455-4621 - Mazatlán (669) 910-2122 - Baja California: Tijuana1 (664) 622-5221 - Tijuana3 (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali3 (686) 326 02 79 + + + + + + + + + Tecate (665) 5212080 - Ensenada (646) 172-4075 - Ensenada2 (646) 176-2703 - Baja California Sur: La Paz (612) 146-3656 - La Paz 2 (612) 121-3185 - Los Cabos (624) 688 3552 + + + + + + + Textbox4 + 9.91718cm + 0.22108cm + 2.03224cm + 20.79751cm + + + 2pt + 2pt + 2pt + 2pt + + @@ -477,10 +612,11 @@ true - 6.06618in + 6.31618in 0.06752in 1.42169in 8.23953in + 1 @@ -1275,7 +1411,7 @@ 0.09836in 0.36206in 8.16629in - 1 + 2 @@ -1297,11 +1433,11 @@ Textbox5 - 8.32309cm + 9.27559cm 0.28014cm 0.05496cm 20.88652cm - 2 + 3 @@ -1345,11 +1481,11 @@ Textbox1 - 8.41332cm + 9.36582cm 2.01402cm 0.51608cm 19.15264cm - 3 + 4 @@ -1368,7 +1504,7 @@ 1.15361cm 2.413cm 2.75323cm - 4 + 5 @@ -1448,7 +1584,7 @@ 4.32565cm 2.70968cm 7.93893cm - 5 + 6 @@ -1528,7 +1664,7 @@ 12.68838cm 2.70968cm 5.11312cm - 6 + 7 @@ -1562,7 +1698,7 @@ 18.23008cm 0.96018cm 2.79101cm - 7 + 8 @@ -1598,7 +1734,7 @@ 18.23008cm 0.6cm 2.79101cm - 8 + 9 @@ -1649,7 +1785,7 @@ 18.23008cm 0.86903cm 2.79101cm - 9 + 10 @@ -1740,7 +1876,7 @@ 0.28014cm 1.09007cm 9.71199cm - 10 + 11 @@ -1820,7 +1956,7 @@ 10.06268cm 0.7927cm 9.71199cm - 11 + 12 @@ -2001,7 +2137,7 @@ 0.25136cm 0.74611cm 13.82025cm - 12 + 13 @@ -2034,7 +2170,7 @@ 14.07729cm 0.57354cm 2.90753cm - 13 + 14 @@ -2068,11 +2204,11 @@ Textbox4 - 5.8751cm + 6.1926cm 1.74571cm 1.05328cm 17.71415cm - 14 + 15 =IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") > 0),false,true) @@ -2086,142 +2222,6 @@ 2pt - - true - true - true - - - - - Sonora: Veracruz (662) 210-0041 - Morelos (662) 211-0805 - Colosio (662) 2608088 - Colosio2 (662) 1189939 - Reforma (662) 213-8724 - Perisur (662) 254-4849 - Rodríguez (662) 213-0388 - - - - - - - - - Sahuaro (662) 2161471 - Solidaridad (662) 216-0935 - Palo Verde (662) 4363254 - Progreso (662) 3105781 - Quiroga (662) 261- 0838 - Caborca (637) 3724214 - Magdalena (632) 322-4080 - - - - - - - - - Nogales (631) 319-0093 - Cananea (645) 332 20 40 - Guaymas (622) 222-2417 - Obregón (644)412-2002 Obregón II (644) 413-1543- Obregón III (644) 4134501 - Navojoa (642) 422-9852 - - - - - - - - - Sinaloa: Los Mochis (668) 817-0209 - Los Mochis II (668) 176-5802 - Guasave (687) 871-5317 - Calzada (667) 729-2112 - Zapata (667) 992-0876 - Tierra Blanca (667) 716-6997 - Sanalona (667) 713-667 - - - - - - - - - Tres Ríos (667) 455-4621 - Mazatlán (669) 910-2122 - Baja California: Tijuana1 (664) 622-5221 - Tijuana3 (664) 626-2615 - Rosarito (661) 612-4461 - Mexicali (686) 567-6102 - Mexicali3 (686) 326 02 79 - - - - - - - - - Tecate (665) 5212080 - Ensenada (646) 172-4075 - Ensenada2 (646) 176-2703 - Baja California Sur: La Paz (612) 146-3656 - La Paz 2 (612) 121-3185 - Los Cabos (624) 688 3552 - - - - - - - Textbox4 - 8.96468cm - 0.22108cm - 2.03224cm - 20.79751cm - 15 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2237,7 +2237,7 @@ Textbox5 - 12.60759cm + 13.24259cm 0.24983cm 0.05496cm 20.88652cm @@ -2253,57 +2253,6 @@ 2pt - - Embedded - ID3 - FitProportional - 21.4598cm - 0.28014cm - 0.93046cm - 5.37042cm - 17 - - - - - - true - true - - - - - DESCARGA NUESTRA NUEVA APLICACIÓN - - - - - - - Textbox60 - 19.12502cm - 0.28014cm - 0.6882cm - 20.71217cm - 18 - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -2346,7 +2295,7 @@ 17.09066cm 0.64028cm 3.90165cm - 19 + 17 @@ -2509,11 +2458,11 @@ Textbox4 - 12.76838cm + 13.40338cm 0.16383cm 2.44366cm 15.51057cm - 20 + 18 @@ -2544,11 +2493,11 @@ Textbox19 - 5.01303in + 5.26303in 6.21617in 0.17708in 0.94607in - 21 + 19 @@ -2579,11 +2528,11 @@ Textbox19 - 5.2055in + 5.4555in 6.21616in 0.17966in 0.94607in - 22 + 20 @@ -2614,11 +2563,11 @@ Textbox19 - 5.40449in + 5.65449in 6.21616in 0.18819in 0.94607in - 23 + 21 @@ -2649,11 +2598,11 @@ Textbox19 - 5.61074in + 5.86074in 6.22658in 0.17119in 0.94607in - 24 + 22 @@ -2685,11 +2634,11 @@ Textbox19 - 5.80137in + 6.05137in 6.237in 0.19596in 0.94607in - 25 + 23 @@ -2721,11 +2670,11 @@ Textbox42 - 5.03803in + 5.28803in 7.16224in 0.17708in 0.98426in - 26 + 24 @@ -2756,11 +2705,11 @@ Textbox42 - 5.2305in + 5.4805in 7.16224in 0.17966in 0.98425in - 27 + 25 @@ -2791,11 +2740,11 @@ Textbox42 - 5.42949in + 5.67949in 7.17266in 0.18819in 0.98425in - 28 + 26 @@ -2827,11 +2776,11 @@ Textbox42 - 5.63574in + 5.88574in 7.17266in 0.17119in 0.98425in - 29 + 27 @@ -2863,11 +2812,11 @@ Textbox42 - 5.82637in + 6.07637in 7.18308in 0.19596in 0.98425in - 30 + 28 @@ -2904,7 +2853,7 @@ 6.75122cm 0.82021cm 5.51336cm - 31 + 29 @@ -2930,11 +2879,11 @@ Textbox5 - 15.2826cm + 15.9176cm 0.10579cm 0.05496cm 20.88652cm - 32 + 30 @@ -2946,55 +2895,6 @@ 2pt - - true - true - true - - - - - ** SI LAS LLANTAS NO SON INSTALADAS EN ECONOLLANTAS PIERDE SU GARANTÍA DE FABRICA ** - - - - - - - - - 2pt - 2pt - 2pt - 2pt - - true true @@ -3018,11 +2918,249 @@ Textbox4 - 12.13048cm + 12.79723cm 0.19008cm 0.40655cm 12.88812cm + 31 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + + + + Black + 2pt + 2pt + 2pt + 2pt + + + + Embedded + rockblade + FitProportional + 12.06211cm + 6.5919cm + 0.62223cm + 4.03523cm 34 + + + + + + Embedded + yokohama2 + FitProportional + 12.06211cm + 0.58737cm + 0.62223cm + 4.03523cm + 35 + + + + + + Embedded + mastercraft + FitProportional + 12.12228cm + 17.02729cm + 0.62223cm + 4.03523cm + 36 + + + + + + Embedded + coopertires + FitProportional + 12.18225cm + 11.79701cm + 0.62223cm + 4.03523cm + 37 + + + + + + true + true + true + + + + + ESTAS LLANTAS SOLO TENDRAN GARANTÍA DE POR VIDA CONTRA DEFECTO DE FABRICA. +*SI LAS LLANTAS NO SON INSTALADAS EN ECONOLLANTAS PIERDE SU GARANTÍA DE FABRICA*. + + + + =IIF(IIF((Sum(IIF(Fields!CveClasificacion.Value = 20345,1,0), "DsOC") = 0) and (Sum(IIF(Fields!CveClasificacion.Value = 20342 or Fields!CveClasificacion.Value = 20341,1,0), "DsOC") > 0),false,true),"","<br/>**EL CLIENTE NO ACEPTA PÓLIZA DE SEGURO**") + HTML + + + + + + + + + PARA UNA OPTIMA DURACION DE SUS LLANTAS, ESTAS DEBEN ALINEARSE BALANCEARSE Y ROTAR CADA 6 MESES O 1O MIL KILOMETROS. + + + + PARA HACER VALIDA UNA RECLAMACIÓN DEBERAN CUMPLIR CON EL ANTERIOR REQUISITO + + + + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + ID3 + FitProportional + 22.13416cm + 0.22725cm + 0.93046cm + 5.37042cm + 39 + + + + + + true + true + + + + + DESCARGA NUESTRA NUEVA APLICACIÓN + + + + + + + Textbox60 + 19.79938cm + 0.22725cm + 0.6882cm + 20.71217cm + 40 @@ -3038,11 +3176,11 @@ =System.Convert.FromBase64String(Parameters!QRDescarga.Value) image/png FitProportional - 8.0685in - 6.67743in + 8.33399in + 6.65661in 0.6035in 0.78275in - 35 + 41 @@ -3091,11 +3229,11 @@ Textbox60 - 19.5698cm - 0.28014cm + 20.24416cm + 0.22725cm 1.49135cm 5.37042cm - 36 + 42 @@ -3106,68 +3244,6 @@ 2pt - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - - - true - true - - - - - - - - Black - 2pt - 2pt - 2pt - 2pt - - true true @@ -3246,11 +3322,11 @@ Textbox60 - 19.5698cm - 7.45145cm + 20.24416cm + 7.39856cm 2.45709cm 6.56105cm - 39 + 43 @@ -3285,11 +3361,11 @@ Textbox60 - 19.56002cm - 14.67145cm + 20.23438cm + 14.61856cm 1.46939cm 6.32076cm - 40 + 44 @@ -3300,68 +3376,24 @@ 2pt - - Embedded - rockblade - FitProportional - 11.19428cm - 5.58835cm - 0.86918cm - 4.08628cm - 41 + + + Start + + true + 19.90494cm + 0cm + 3.07798cm + 21.09991cm + 45 - - - Embedded - yokohama2 - FitProportional - 11.33186cm - 0.58737cm - 0.65751cm - 4.35272cm - 42 - - - - - - Embedded - mastercraft - FitProportional - 11.30011cm - 17.06617cm - 0.93972cm - 3.99634cm - 43 - - - - - - Embedded - coopertires - FitProportional - 11.33186cm - 10.33489cm - 0.65751cm - 6.09184cm - 44 - - - - + - 22.57045cm + 23.17899cm + + true + true + + + + + ="Usuario Imprimio: " & Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + - - - - - - - Registro de movimientos - - - - -
  • - PDF -
    • -
  • - Descargar XML SAT -
    • -
  • - Descargar PDF SAT -
    • -
  • - Descargar Carta Porte -
    • -
  • - Traspaso Almacen -
    • -
  • - -
    • -
  • - Ver PrePóliza -
    • -
  • - -
    • -
  • - -
    • -
  • - Cargar Concepto -
    • -
  • - -
    • -     -     -     - - - - - <%--FILTROS--%> - - - -
    -
    -
    - -
    -
    -
    +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="EntradasSalidas.aspx.vb" Inherits="Inventarios_EntradasSalidas" EnableEventValidation="false" %> + + +<%@ Register Assembly="eWorld.UI" Namespace="eWorld.UI" TagPrefix="ew" %> + + + + + + + + + Registro de movimientos + + + + +
  • + PDF +
    • +
  • + Descargar XML SAT +
    • +
  • + Descargar PDF SAT +
    • +
  • + Descargar Carta Porte +
    • +
  • + Traspaso Almacen +
    • +
  • + +
    • +
  • + Ver PrePóliza +
    • +
  • + +
    • +
  • + +
    • +
  • + +
    • +
  • + Cargar Concepto +
    • +
  • + +
    • +     +     +     + + + + + <%--FILTROS--%> + + + +
    +
    +
    + +
    +
    +
    <%--
    -
    --%> - -
    - -
    - -
    - -
    -
    -
    -
    -
    -     -     -     - -
    - -
    - - - - -
    -
    -
    -
    - "> - -
    -
    +
    --%> + +
    + +
    + +
    + +
    +
    +
    +
    +
    + +     +     + +
    + +
    + + + + +
    +
    +
    +
    + "> + +
    +
    Información del movimiento -
    -
    -
    > -
    -
    - - -
    - - - -
    - -
    - - - -
    -
    - -
    - -
    - -
    - -
    -
    - -
    - -
    - - - - - -
    -
    -
    -
    - -
    - -
    - -
    -
    -
    - -
    - -
    - -
    - - -
    - -
    -
    - -
    - -
    -
    -
    - - - - - - - - - - - - - - -
    -
    -
    - - - -
    - - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    - -
    -
    -
    -
    - -
    - -
    -
    -
    - -
    - - <%----%> -
    -
    -
    -
    +
    +
    > +
    +
    + + +
    + + + +
    + +
    + + + +
    +
    + +
    + +
    + +
    + +
    +
    + +
    + +
    + + + + + +
    +
    +
    +
    + +
    + +
    + +
    +
    +
    + +
    + +
    + +
    + + +
    + +
    +
    + +
    + +
    +
    +
    + + + + + + + + + + + + + + +
    +
    +
    + + + +
    + + +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    + +
    +
    +
    +
    + +
    + +
    +
    +
    + +
    + + <%----%> +
    +
    +
    + -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - Proyecto: -
    - - - -
    -
    -
    - -
    - -
    -
    -
    -
    -
    -
    - - - - - <%--INVENTARIO INICIAL--%> - - -
    -
    -
    -
    - "> -
    -
    + + +
    + +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    + Proyecto: +
    + + + +
    +
    +
    + +
    + +
    +
    +
    +
    +
    +
    + +     +     + + <%--INVENTARIO INICIAL--%> + + +
    +
    +
    +
    + "> +
    +
    Agregar Producto -
    -
    -
    - -
    - -
    - -
    -
    -
    - -
    - -
    -
    -
    - -
    - - - - - - - -
    -
    -
    - -
    - -
    -
    -
    - -
    - - - - - - - -
    -
    -
    -
    -
    - -
    -
    -     -
    -
    -
    -     -     - - - - -
    - -
    -
    -
    - "> - -
    -
    + +
    +
    +
    + +
    + +
    + +
    +
    +
    + +
    + +
    +
    +
    + +
    + + + + + + + +
    +
    +
    + +
    + +
    +
    +
    + +
    + + + + + + + +
    +
    +
    +
    +
    + +
    +
    +     +
    +
    +
    +     +     + + + + +
    + +
    +
    +
    + "> + +
    +
    Información de registro -
    -
    -
    -
    -
    +
    +
    +
    + -
    - -
    - -
    -
    - +
    + +
    + +
    +
    + -
    - -
    -
    -
    - +
    + +
    +
    +
    + -
    - Ver Compra - Ver Venta - Ver Póliza - Ver Orden Compra - -
    -
    -
    - +
    + Ver Compra + Ver Venta + Ver Póliza + Ver Orden Compra + +
    +
    +
    + -
    - - <%----%> -
    -
    -
    - +
    + + <%----%> +
    +
    +
    + -
    - -
    -
    -
    - +
    + +
    +
    +
    + -
    - ver -
    -
    -
    - -
    - -
    -
    -
    - "> - -
    -
    + + +
    + ver +
    +
    +
    + +
    + +
    +
    +
    + "> + +
    +
    Tipo de Cambio -
    -
    -
    - - - - - - - - - - - - -
    Moneda: - - - - - - -
    Tipo de Cambio: - - - -
    - -
    -
    -
    - - -
    -     -     - -
    - - - -
    -
    - - - - - - - -
    - - - - - - - - - - - - - -
    -
    -
    -     -     - - - - + +
    +
    +
    + + + + + + + + + + + + +
    Moneda: + + + + + + +
    Tipo de Cambio: + + + +
    + +
    +
    +
    + + +
    +     +     + +
    + + + +
    +
    + + + + + + + +
    + + + + + + + + + + + + + +
    +
    +
    +     +     + + + + <%--
    -
    --%> - -
    -
    - - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    -
    - - - - - - - -
    - - - <%-- EMPIEZA: BITACORA --%> - - - -
    -
    -
    - Bitácora -
    -
    -
    -
    - - -
    -
    -
    -
    - - - - - - - - - - - - - - - - - - - - - -
    -
    - -
    - - - -     -     - <%-- TERMINA: BITACORA --%> -     -     - - - - - - -
    - - - - - - - - - - + + + + + + +
    +
    + + + + + + + - - + + diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 84dc61700..f06097173 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -43,6 +43,23 @@ Partial Class Inventarios_EntradasSalidas ViewState("DtMovimientosSalidaInvFisico") = value End Set End Property + Public Property DtMovimientosEntradaCambioVigencias() As DataTable + Get + Return CType(ViewState("DtMovimientosEntradaCambioVigencias"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtMovimientosEntradaCambioVigencias") = value + End Set + End Property + + Public Property DtMovimientosCambioVigencias() As DataTable + Get + Return CType(ViewState("DtMovimientosCambioVigencias"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtMovimientosCambioVigencias") = value + End Set + End Property Public Property CveMovimiento() As Integer Get @@ -366,11 +383,13 @@ Partial Class Inventarios_EntradasSalidas End If + 'HABILITA EL CAMBIO DE VIGENCIAS + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + LnkCambioVigencia.Visible = True + End If + End If - - - End Sub #Region " PERMISOS PAGINAS " @@ -470,9 +489,16 @@ Partial Class Inventarios_EntradasSalidas CargaGVM(dt) DtMovimientos = dt.Clone + DtMovimientosEntradaInvFisico = dt.Clone DtMovimientosSalidaInvFisico = dt.Clone + DtMovimientosCambioVigencias = dt.Clone + DtMovimientosCambioVigencias.Columns.Add("CvePSVigencia", Type.GetType("System.Int32")) + DtMovimientosCambioVigencias.Columns.Add("CodigoPSVigencia", Type.GetType("System.String")) + DtMovimientosCambioVigencias.Columns.Add("CveUMVigencia", Type.GetType("System.Int32")) + + End Sub Private Sub CargaCombos() 'Llenar el dropdownlist de Secciones @@ -515,15 +541,19 @@ Partial Class Inventarios_EntradasSalidas End If DdlAlmacenInventarioFisico.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa) + DdlAlmacenCambioVigencias.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)") DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacenInventarioFisico.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlAlmacenCambioVigencias.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacen.SelectedValue = "-1" DdlAlmacenInventarioFisico.SelectedValue = "-1" + DdlAlmacenCambioVigencias.SelectedValue = "-1" DdlAlmacen.DataBind() DdlAlmacenInventarioFisico.DataBind() + DdlAlmacenCambioVigencias.DataBind() If IsNothing(Request("CveMovimiento")) Then DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen) @@ -546,6 +576,7 @@ Partial Class Inventarios_EntradasSalidas DdlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") DdlPSSalida.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") + DdlPSCambioSalida.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") If UsuarioActual.CveEmpresa = 66 Then DdlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios") @@ -555,14 +586,17 @@ Partial Class Inventarios_EntradasSalidas DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2") DdlPS.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2") DdlPSSalida.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2") + DdlPSCambioSalida.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2") DdlProducto2.DataBind() DdlPS.DataBind() DdlPSSalida.DataBind() + DdlPSCambioSalida.DataBind() DdlProducto2.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlPSSalida.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlPSCambioSalida.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) End If End Sub @@ -2492,7 +2526,7 @@ Partial Class Inventarios_EntradasSalidas 'codigo provisional, hay entradas con productos, que al asignar serie, debe de tener e ncantidad = 1 If GvRow.DataKey("Cantidad").ToEntero() > 1 Then txtCantidad.Enabled = True End If - txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString + txtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero().ToString DdlProducto2.SelectedValue = GvRow.DataKey("CvePS") DdlProducto2.SelectedText = GvRow.DataKey("CodigoPS") ElProductoChange() @@ -2653,6 +2687,25 @@ Partial Class Inventarios_EntradasSalidas #Region " CONTABILIZAR " + + Public Function ContabilizaMovimientoAlmacen(ByRef ObjConta As ClsContabilidad, Fecha As Date, Concepto As String, Modulo As String, CveMovimientoSalida As Integer, CveMovimientoEntrada As Integer, Importe As Decimal, CveUsuario As Integer, CveEmpresa As Integer, Contabilizable As Boolean) As Integer + Dim Retorno As Integer = -1 + Dim ErrorMovInv As Boolean = False + + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas(Modulo, 53, 0, 0, 1, Fecha, Concepto, CveUsuario, CveEmpresa) + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, "", 68, Concepto, Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=Importe, Contabilizable:=Contabilizable) Then + ErrorMovInv = True + End If + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, "", 68, Concepto, Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=Importe, Contabilizable:=Contabilizable) Then + ErrorMovInv = True + End If + + If Not ErrorMovInv Then Retorno = CvePrePoliza + + Return Retorno + End Function + Protected Sub BtnContabilizar_Click(sender As Object, e As EventArgs) Handles BtnContabilizar.Click Dim ObjContaAC As ClsContPAQi = Nothing Dim ObjInventario As New ClsInventarios @@ -3609,6 +3662,10 @@ Partial Class Inventarios_EntradasSalidas RegistraScript(String.Format("$('#{0}').modal();", "DivModalCambioFisico")) End Sub + Protected Sub LnkCambioVigencia_Click(sender As Object, e As EventArgs) + RegistraScript(String.Format("$('#{0}').modal();", "DivModalCambiarVigencias")) + End Sub + #Region "ENTRADAS" Private Sub BtnAgregarEntrada_Click(sender As Object, e As EventArgs) Handles BtnAgregarEntrada.Click If Not DdlPS.SelectedValue.ToEntero > 0 Then @@ -3809,6 +3866,127 @@ Partial Class Inventarios_EntradasSalidas CargaGvSalidas(DtMovimientosSalidaInvFisico) End Sub + +#End Region + +#Region "CAMBIO VIGENCIA" + Private Sub LnkAddSalidaCambio_Click(sender As Object, e As EventArgs) Handles LnkAddSalidaCambio.Click + If Not DdlPSCambioSalida.SelectedValue.ToEntero > 0 Then + RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") + Alert("Es necesario especificar el producto.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + + AddPSCambioSalida(DdlPSCambioSalida.SelectedValue.ToEntero, TxtCantCambio.Text.ToDouble) + End Sub + + Protected Sub AddPSCambioSalida(CvePS As Integer, Cantidad As Double) + If DdlAlmacenCambioVigencias.SelectedValue.ToEntero <= 0 Then Alert("Seleccione un almacen", TipoMensaje.MsgAdvertencia) : RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") : DdlPSCambioSalida.SelectedText = "" : Exit Sub + + Dim Valido As Boolean = True + + If Valido Then + Dim CveClasificacion As Integer + Dim CveUM As Double + Dim CodigoPS As String = "" + Dim PS As String = "" + + Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacenSalida.SelectedValue.ToEntero + Dim Serie As String = If(TxtSerieSalida.Text = "", "", TxtSerieSalida.Text) + Dim Lote As String = If(TxtLoteSalida.Text = "", "", TxtLoteSalida.Text) + Dim Caducidad As String = If(TxtCaducidadSalida.Text = "", MinFecha.ToShortDateString, TxtCaducidadSalida.Text) + + Dim dr As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS).FiltroPrimero("", "PS") + If dr IsNot Nothing Then + CveClasificacion = dr("CveClasificacion").ToString.ToEntero + CveUM = dr("CveUM").ToString.ToEntero + CodigoPS = dr("PSCodigo").ToString.ToString + PS = dr("PS").ToString.ToString + End If + + Dim registro As DataRow = DtMovimientosCambioVigencias.NewRow + registro.Item("Cantidad") = Cantidad + registro.Item("CveUM") = CveUM + registro.Item("CvePS") = CvePS + registro.Item("CodigoPS") = CodigoPS + registro.Item("PS") = PS + registro.Item("PU") = 0 + registro.Item("Total") = 0 + registro.Item("CveClasificacion") = CveClasificacion + registro.Item("Estatus") = "" + registro.Item("CveSeccionAlmacen") = CveSeccionAlmacen + registro.Item("Serie") = Serie + registro.Item("Lote") = Lote + registro.Item("FechaCaducidad") = Caducidad + + If CvePS > 0 Then + Using ObjPS As New ClsProductosServicios() + If ObjPS.GetPS(CvePS, -1, UsuarioActual.CveEmpresa) AndAlso ObjPS.DtResultados.Rows.Count > 0 Then + Dim CvePSAdicionalVigencia = ObjPS.DtResultados.Rows(0)("CvePSAdicionalVigencia").ToString.ToEntero() + Dim CodigoPSVigencia As String = ObjPS.DtResultados.Rows(0)("CodigoPSVigencia").ToString + 'SI EXISTE UN MOVIMIENTO DE VIGENCIA + If CvePSAdicionalVigencia > 0 Then + + If ObjPS.GetPS(CvePSAdicionalVigencia, -1, UsuarioActual.CveEmpresa) AndAlso ObjPS.DtResultados.Rows.Count > 0 Then + registro.Item("CvePSVigencia") = CvePSAdicionalVigencia + registro.Item("CodigoPSVigencia") = CodigoPSVigencia + registro.Item("CveUMVigencia") = ObjPS.DtResultados.Rows(0)("CveUM").ToString.ToEntero() + + DtMovimientosCambioVigencias.Rows.Add(registro) + End If + + Else + Alert("Este producto no tiene un producto de vigencia relacionado", TipoMensaje.MsgAdvertencia) + End If + End If + End Using + End If + + CargaGvCambioSalidas(DtMovimientosCambioVigencias) + + RegistraScript("playsonidito('beep-07.wav')") + End If + End Sub + + Protected Sub DeleteRowCambioVigencia(ByVal sender As Object, ByVal e As EventArgs) + Dim lnkRemove As LinkButton = DirectCast(sender, LinkButton) + + If DtMovimientosCambioVigencias.Rows.Count > 0 And lnkRemove.CommandArgument.ToString.Length > 0 Then + Dim i As Integer + i = lnkRemove.CommandArgument.ToString.ToEntero + Dim Drs As DataRow() = DtMovimientosCambioVigencias.Select(String.Format("No = {0}", i)) + If Drs.Count > 0 Then + + Drs(0).Delete() + End If + DtMovimientosCambioVigencias.AcceptChanges() + End If + + GvSalidasCambioVigencia.EditIndex = -1 + + CargaGvCambioSalidas(DtMovimientosCambioVigencias) + End Sub + + Private Sub CargaGvCambioSalidas(DtTemp As DataTable) + GvSalidasCambioVigencia.DataSource = DtTemp + GvSalidasCambioVigencia.DataBind() + + If DtTemp IsNot Nothing AndAlso DtTemp.Rows.Count > 0 Then + GvSalidasCambioVigencia.Columns(2).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0 + GvSalidasCambioVigencia.Columns(3).Visible = DtTemp.MAX("Serie") <> "" + GvSalidasCambioVigencia.Columns(4).Visible = DtTemp.MAX("Lote") <> "" + GvSalidasCambioVigencia.Columns(5).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha + GvSalidasCambioVigencia.Columns(5).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad") + End If + UpGvCambioSalidas.Update() + End Sub + Protected Sub GvSalidasCambioVigencia_RowDataBound(sender As Object, e As GridViewRowEventArgs) + If e.Row.RowType = DataControlRowType.DataRow Then + e.Row.Cells(1).CssClass = "SubTotales" + e.Row.Cells(6).CssClass = "Totales" + End If + End Sub + #End Region #Region "GUARDAR" @@ -4034,6 +4212,133 @@ Partial Class Inventarios_EntradasSalidas ObjInventario.Dispose() 'elimino la instancia End Sub + Private Sub BtnGuardarCambiosVigencia_Click(sender As Object, e As EventArgs) Handles BtnGuardarCambiosVigencia.Click + + If GvSalidasCambioVigencia.Rows.Count = 0 Then + Alert("No hay ningun registro para generar el movimiento. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgError) + RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") + RegistraScript(String.Format("$('#{0}').modal();", "DivModalCambioFisico")) + Exit Sub + End If + + Dim ObjInventario As New ClsInventarios + Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) + Dim CveMovimientoEntrada As Integer = -1 + Dim CveMovimientoSalida As Integer = -1 + Dim ErrorMovInv As Boolean = False + Dim Mensaje As String = "" + Dim ValorEntrada As Decimal = 0 + Dim ValorSalida As Decimal = 0 + Dim ImporteConcepto As Decimal = 0 + Dim tConcepto As String = TxtObsCambioVigencia.Text.Trim + Dim Fecha = TxtFechaCambio.Text.ToDate.ToString("yyyy/MM/dd").ToDate + Dim tCveSubProyecto As Integer = -1 + Dim TipoMovto As Boolean = False + Dim idCtaContableEntrada As Integer = 0 + Dim idCtaContableSalida As Integer = 0 + + Dim FolioSalida As Integer = 0 + Dim FolioEntrada As Integer = 0 + + Dim IdCuentaOtrosIngresos As Integer = UsuarioActual.Empresa.IdCuentaOtrosIngresos + + Dim CveAlmacen As Integer = DdlAlmacenCambioVigencias.SelectedValue.ToEntero + + Dim CveModalidad As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=CveAlmacen).FiltroPrimeroValor("CveModalidad").ToEntero() + + Dim EsContabilizable As Boolean = (CveModalidad = 1) + + 'MOVIMIENTOS + If DtMovimientosCambioVigencias.Rows.Count > 0 Then + FolioSalida = ObjInventario.GetFolioSiguiente(8, UsuarioActual.CveEmpresa) + CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacen, 8, 1, Fecha, FolioSalida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObsCambioVigencia.Text.Trim, Modulo:="ES/CV1") + + FolioEntrada = ObjInventario.GetFolioSiguiente(9, UsuarioActual.CveEmpresa) + CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacen, 9, 1, Fecha, FolioEntrada, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObsCambioVigencia.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="ES/CV2") + End If + + + 'VALIDA, sino hay registrado ningun movimiento, que no siga + If (CveMovimientoEntrada <= 0 AndAlso CveMovimientoSalida <= 0) Then + Alert("Ocurrió un error al realizar los registros. Por favor verifique y vuelva a intentar", TipoMensaje.MsgError) + RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") + ObjInventario.RollBack() 'deshace lo insertado. + ObjInventario.Dispose() 'elimino la instancia + Exit Sub + End If + + 'VALIDA EXISTENCIAS SALIDA E INSERTA DETALLES + For Each Dr As DataRow In DtMovimientosCambioVigencias.Rows + If ObjInventario.GetExistenciasPS(Dr("CvePS").ToString.ToEntero, Dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1) >= Dr("Cantidad").ToString.ToDouble Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, + Dr("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString, + Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate) Then + Mensaje = "Ocurrió un error al guardar los movimientos de salida" + ErrorMovInv = True + Exit For + Else + 'OBTIENE EL COSTO DE LA SALIDA + If Not ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa, CveMovimientoDetalle:=ObjInventario.CveMovimientoDetalle) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then + Mensaje = "Ocurrió un error al guardar los movimientos de salida" + ErrorMovInv = True + Exit For + Else + Dim PUEntrada As Decimal = ObjInventario.DtResultados.Rows(0)("PU").ToString().ToDecimal() + ImporteConcepto += PUEntrada * Dr("Cantidad").ToString.ToDecimal() + + 'INSERTA EL MOVIMIENTO DE ENTRADA + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUMVigencia").ToString.ToEntero, Dr("CvePSVigencia").ToString.ToEntero, PUEntrada, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero) Then + Mensaje = "Ocurrió un error al guardar los movimientos de entrada" + ErrorMovInv = True + Exit For + End If + End If + End If + Else + Mensaje = String.Format("No hay existencias suficientes del producto: {0}", Dr("PS")) + RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") + ErrorMovInv = True + Exit For + End If + Next + + 'CONTABILIZAR MOVIMIENTOS + If Not ErrorMovInv Then + If Not ContabilizaMovimientoAlmacen(ObjConta, Now, "CAMBIO DE VIGENCIA", "ES/CV", CveMovimientoSalida, CveMovimientoEntrada, ImporteConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False) > 0 Then + ErrorMovInv = True + Mensaje = "No se pudo generar el movimiento de prepoliza" + End If + End If + + If Not ErrorMovInv Then + ObjInventario.Commit() ' aplica los movimientos insertados + + Dim Msg As New StringBuilder + Msg.AppendFormat("
    El Movimiento de entrada se registró con el Folio: {1}", CveMovimientoEntrada, FolioEntrada) + If CveMovimientoEntrada > 0 Then Msg.AppendFormat("
    Imprimir Movimiento Entrada ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) + Msg.AppendFormat("

    El Movimiento de salida se registró con el Folio: {1}", CveMovimientoSalida, FolioSalida) + If CveMovimientoSalida > 0 Then Msg.AppendFormat("
    Imprimir Movimiento Salida ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoSalida))) + Alert(Msg.ToString, TipoMensaje.MsgInformacion) + + RegistraScript("playsonidito('beep-07.wav');$('#DivModalCambiarVigencias').modal('hide');") + + DtMovimientosCambioVigencias.Clear() + + GvSalidasCambioVigencia.DataSource = DtMovimientosCambioVigencias + GvSalidasCambioVigencia.DataBind() + + TxtObsCambioVigencia.Text = "" + + Else + ObjInventario.RollBack() + + Alert(Mensaje, TipoMensaje.MsgError) + + RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") + End If + ObjInventario.Dispose() 'elimino la instancia + + End Sub #End Region #End Region @@ -4530,4 +4835,6 @@ Partial Class Inventarios_EntradasSalidas End Sub + + End Class diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb index d2b995433..4f19a33b8 100644 --- a/Inventarios/RecepcionUsados.aspx.vb +++ b/Inventarios/RecepcionUsados.aspx.vb @@ -2676,6 +2676,48 @@ Partial Class Inventarios_RecepcionUsados HdnPSAjusteMarca.Value = CveMarca.ToString() HdnPSAjusteClasificacion.Value = CveClasificacion.ToString() + Dim CveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={DdlAlmacen.SelectedValue}").ToEntero + + If UsuarioActual.Empresa.Funcionalidad(404).ToEntero > 0 Then 'cuando el valor es 10.- secuencia Cliente/Sucursal, 20 - sucursal/cliente + Dim TipoPrecioLista As Integer = UsuarioActual.Empresa.Funcionalidad(404).ToEntero + ' si es 10. primero el cliente + Dim CvePrecioListaPS As Integer + Dim PorcentajePrecio As Decimal = 0 + + If TipoPrecioLista = 10 Then + CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=DdlClientes.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista").ToEntero() + If CvePrecioListaPS <= 0 Then + CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero() + End If + Else + CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero() + If CvePrecioListaPS <= 0 Then + CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=DdlClientes.SelectedValue.ToEntero()).FiltroPrimeroValor("CvePrecioLista").ToEntero() + End If + End If + + If CvePrecioListaPS > 0 Then + Dim ObjPS As New ClsProductosServicios + If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSParametro) Then + PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal + PorcentajePrecio = ObjPS.DtResultados.FiltroPrimeroValor("Porcentaje").ToDecimal + End If + ObjPS.Dispose() + End If + + If PrecioSugerido = 0 Then + Dim ObjInventarios As New ClsInventarios + Dim CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, txtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, CveSubProyecto, CveTipoAlmacen:=1) + 'si el costo es cero, puede ser que no halla movimientos del producto, en esa sucursal. y se volverá a sacar sin especificar sucursal + If CostoPS = 0 Then CostoPS = ObjInventarios.GetCostoPS(CvePSParametro, txtCantidad.Text.Trim.ToDouble, -1, "-1", TxtFecha.Text.ToDate, -1, CveTipoAlmacen:=1) + ObjInventarios.Dispose() + If CostoPS > 0 And PorcentajePrecio > 0 Then + PrecioSugerido = ((PorcentajePrecio / 100) + 1) * CostoPS + End If + End If + 'CvePrecioLista = CvePrecioListaPS + End If + Dim MarcaPorcentaje As DataRow = DtPorcentajeMarcas.FiltroPrimero(String.Format("CveMarca = {0}", drPS("CveMarca").ToString)) If MarcaPorcentaje IsNot Nothing Then Dim PorcentajeProducto As Decimal = MarcaPorcentaje("PorcentajeProducto").ToString.ToDecimal / 100 @@ -2705,6 +2747,7 @@ Partial Class Inventarios_RecepcionUsados TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2) End If UpModalAgregar.Update() + UpAjuste.Update() End Sub Private Sub CargaBCIAjuste() diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 91b9fb262..7a5c4faa1 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -224,12 +224,13 @@
    - <%-- - - --%> - <%-- - --%> + +
    +
    +
    + +

    diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 4311727ff..6f9b5de8f 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -212,6 +212,11 @@ Partial Class ProductosyServicios DdlIVA.Enabled = False End If + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + DivPSAdicionalVigencia.Visible = True + CargaPSAdicionalesVigencias() + End If + If CvePS > 0 Then CargaEquivalencias() CargaPSAdicionales() @@ -769,6 +774,12 @@ Partial Class ProductosyServicios DdlSATPS.SelectedText = $"{ObjProductosServicios.SATClavePS} - {ObjProductosServicios.SATDescripcion}" CveSATPS = ObjProductosServicios.CveSATPS End If + + If ObjProductosServicios.DtResultados.Rows(0)("CvePSAdicionalVigencia").ToString.ToEntero() > 0 Then + DdlPSAdicionalVigencia.SelectedValue = ObjProductosServicios.DtResultados.Rows(0)("CvePSAdicionalVigencia").ToString + DdlPSAdicionalVigencia.SelectedText = ObjProductosServicios.DtResultados.Rows(0)("CodigoPSVigencia").ToString + End If + If ObjProductosServicios.CveFraccionArancelaria.ToString <> Nothing Then DdlFraccionArancelaria.SelectedValue = ObjProductosServicios.CveFraccionArancelaria.ToString DdlFraccionArancelaria.SelectedText = ObjProductosServicios.ClaveSATFraccionArancelariaDescripcion @@ -918,6 +929,14 @@ Partial Class ProductosyServicios DdlSATPS.ddlWS.Attributes.Add("data-metodo", "getpssat") End Sub + Public Sub CargaPSAdicionalesVigencias() + DdlPSAdicionalVigencia.setEsWebService(True) + DdlPSAdicionalVigencia.Attributes.Add("data-cvesubproyecto", "-1") + DdlPSAdicionalVigencia.ddlWS.Attributes.Add("data-cveclasificacion", "-1") + DdlPSAdicionalVigencia.ddlWS.Attributes.Add("data-pagina", "ventas/ventas") + DdlPSAdicionalVigencia.ddlWS.Attributes.Add("data-Estatus", "1") + End Sub + Public Sub CargaDdlFraccionArancelaria() DdlFraccionArancelaria.setEsWebService(True) DdlFraccionArancelaria.Attributes.Add("data-metodo", "getfraccionarancelaria") @@ -1218,7 +1237,7 @@ Partial Class ProductosyServicios CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero, CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(), ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, - ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad) > 0 Then + ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero()) > 0 Then ViewState("CvePS") = ObjProductosServicios.CvePS For Each GVR As GridViewRow In GvImpuestosLocales.Rows If GVR.FCCheckBox("ChkDeduccion").Checked Then @@ -1267,7 +1286,7 @@ Partial Class ProductosyServicios CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(), ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString, ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, - AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad) Then + AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero()) Then If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then TieneError = True From eb9507e6091bc1b1fe79aaf9413c01975a88d933 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 25 Nov 2020 22:10:16 -0700 Subject: [PATCH 70/75] Filtro de conceptos de entradas y salidas --- Ventas/Clientes.aspx | 8 ++++++++ Ventas/Clientes.aspx.vb | 2 +- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 62d141b39..534af4d89 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4294,6 +4294,14 @@
    + +
    + + + + + +
    diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index be55071aa..b5e4b733d 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -9137,7 +9137,7 @@ Partial Class Clientes Dim ImporteCargo As Decimal = 0D Dim ImporteBonificacion As Decimal = 0D - If ObjAcum.DistribuidorMovtosGet(CveCliente, UsuarioActual.CveEmpresa, TxtFechaIUsados.Text.ToDate, TxtFechaFUsados.Text.ToDate) Then + If ObjAcum.DistribuidorMovtosGet(CveCliente, UsuarioActual.CveEmpresa, TxtFechaIUsados.Text.ToDate, TxtFechaFUsados.Text.ToDate, CveConcepto:=DdlConceptoUsado.SelectedValue.ToEntero()) Then GvAcum.DataSource = ObjAcum.DtResultados From 5c0a418d0bee787be4dba8cb0e687bf0a03363bd Mon Sep 17 00:00:00 2001 From: Raul Pimienta Date: Wed, 25 Nov 2020 22:58:43 -0700 Subject: [PATCH 71/75] Cambios en el reporte de comisiones de JAM --- Ventas/RepComisionesJAM.aspx | 57 +++++++++++++++++++------ Ventas/RepComisionesJAM.aspx.cs | 76 +++++++++++++++++++++++---------- 2 files changed, 97 insertions(+), 36 deletions(-) diff --git a/Ventas/RepComisionesJAM.aspx b/Ventas/RepComisionesJAM.aspx index eeeb3e5c9..8fac2b313 100644 --- a/Ventas/RepComisionesJAM.aspx +++ b/Ventas/RepComisionesJAM.aspx @@ -69,7 +69,7 @@
    - +
    @@ -86,26 +86,26 @@
    -
    Esquema Nuevo:
    -
    - -
    +
    Esquema Nuevo:
    +
    + +
    - " style="display: inline-block; margin-right: -20px; width: 150px;" /> - " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> -
    + " style="display: inline-block; margin-right: -20px; width: 150px;" /> + " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"> + - + OnRowDataBound="GvDatos_RowDataBound" OnPreRender="GvDatos_PreRender"> <%-- 0 --%> @@ -130,7 +130,7 @@ <%-- 10 --%> <%-- 11 --%> - + <%-- 12 --%> <%-- 13 --%> @@ -150,13 +150,42 @@ <%-- 20 --%> <%-- 21 --%> - + <%-- 22 --%> + + <%-- 23 --%> + + <%-- 24 --%> + <%-- 25 --%> + + + + + + + + + diff --git a/Ventas/RepComisionesJAM.aspx.cs b/Ventas/RepComisionesJAM.aspx.cs index 06f32a97b..1dfcf5071 100644 --- a/Ventas/RepComisionesJAM.aspx.cs +++ b/Ventas/RepComisionesJAM.aspx.cs @@ -60,6 +60,10 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas GvDatos.Columns[15].Visible = UsuarioActual.TienePermisoProceso(201); + GvDatos.Columns[21].Visible = UsuarioActual.TienePermisoProceso(311); + GvDatos.Columns[22].Visible = UsuarioActual.TienePermisoProceso(311); + + } private void Consulta() @@ -106,29 +110,33 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas } else { - if (e.Row.DBCampo("Transaccion").ToString() == "Pago") + if (e.Row.DBCampo("Transaccion").ToString() == "Pago" && ChkEsquemaNuevo.Checked) { - if (e.Row.DBCampo("CveCategoria").ToEntero() < 1 && e.Row.DBCampo("Comision").ToDouble() == 0) - { - //if (UsuarioActual.TienePermisoProceso(201)) - //{ - // e.Row.Cells[21].ToolTip = "No se encuentra dentro de alguna categoria que de comision ni a alguno de los productos especiales."; - // e.Row.Cells[22].ToolTip = "No se encuentra dentro de alguna categoria que de comision ni a alguno de los productos especiales."; - //} - //else - //{ - e.Row.Cells[21].ToolTip = "No se encuentra dentro de alguna categoria que de comision ni a alguno de los productos especiales."; - e.Row.Cells[22].ToolTip = "No se encuentra dentro de alguna categoria que de comision ni a alguno de los productos especiales."; - //} - }else if (e.Row.DBCampo("CveCategoria").ToEntero() > 0 ) - { - e.Row.Cells[21].ToolTip = $"El producto obtuvo la comision porque se encuentra en la categoria: {get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Categoria",$"CveCategoria = {e.Row.DBCampo("CveCategoria").ToString()}")}."; - e.Row.Cells[22].ToolTip = $"El producto obtuvo la comision porque se encuentra en la categoria: {get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Categoria", $"CveCategoria = {e.Row.DBCampo("CveCategoria").ToString()}")}."; - }else if(e.Row.DBCampo("Comision").ToDouble() > 0) - { - e.Row.Cells[21].ToolTip = "El producto obtuvo comision porque esta dentro de los de las comisiones especiales."; - e.Row.Cells[22].ToolTip = "El producto obtuvo comision porque esta dentro de los de las comisiones especiales."; - } + e.Row.FCLinkButton("LnkInfo").Visible = true; + //if (e.Row.DBCampo("CveCategoria").ToEntero() < 1 && e.Row.DBCampo("Comision").ToDouble() == 0) + //{ + // //if (UsuarioActual.TienePermisoProceso(201)) + // //{ + // // e.Row.Cells[21].ToolTip = "No se encuentra dentro de alguna categoria que de comision ni a alguno de los productos especiales."; + // // e.Row.Cells[22].ToolTip = "No se encuentra dentro de alguna categoria que de comision ni a alguno de los productos especiales."; + // //} + // //else + // //{ + // e.Row.Cells[21].ToolTip = "No se encuentra dentro de alguna categoria que de comision ni a alguno de los productos especiales."; + // e.Row.Cells[22].ToolTip = "No se encuentra dentro de alguna categoria que de comision ni a alguno de los productos especiales."; + // //} + //}else if (e.Row.DBCampo("CveCategoria").ToEntero() > 0 ) + //{ + // e.Row.Cells[21].ToolTip = $"El producto obtuvo la comision porque se encuentra en la categoria: {get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Categoria",$"CveCategoria = {e.Row.DBCampo("CveCategoria").ToString()}")}."; + // e.Row.Cells[22].ToolTip = $"El producto obtuvo la comision porque se encuentra en la categoria: {get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Categoria", $"CveCategoria = {e.Row.DBCampo("CveCategoria").ToString()}")}."; + //}else if(e.Row.DBCampo("Comision").ToDouble() > 0) + //{ + // e.Row.Cells[21].ToolTip = "El producto obtuvo comision porque esta dentro de los de las comisiones especiales."; + // e.Row.Cells[22].ToolTip = "El producto obtuvo comision porque esta dentro de los de las comisiones especiales."; + //} + }else + { + e.Row.FCLinkButton("LnkInfo").Visible = false; } //if (e.Row.DBCampo("CveMoneda").ToEntero() != 1) @@ -342,4 +350,28 @@ public partial class Ventas_RepComisionesJAM : ClsPaginas ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/119/Formatos/RepComisionesJAM.rpt"), DtDatos, lista, "RepComisionesJAM", Formato), "RepComisionesJAM", Formato); } + + protected void LnkInfo_Click(object sender, EventArgs e) + { + GridViewRow gvRow = (GridViewRow)(((LinkButton)sender).NamingContainer); + + if (!Convert.ToBoolean(gvRow.DataKey("TieneCategoriaValida")) && gvRow.DataKey("Comision").ToDouble() == 0) + { + LblInfo.Text = $"No se encuentra dentro de alguna categoria que de comision ni alguno de los productos especiales.
    La categoria del producto es: {get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Categoria", $"CveCategoria = { gvRow.DataKey("CveCategoria").ToString()}")}. "; + } + else if (Convert.ToBoolean(gvRow.DataKey("TieneCategoriaValida")) && gvRow.DataKey("Comision").ToDouble() > 0) + { + LblInfo.Text = $"El producto obtuvo la comision porque se encuentra en la categoria: {get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Categoria", $"CveCategoria = {gvRow.DataKey("CveCategoria").ToString()}")} y esta dentro de los rangos de precio publico y dias validos. "; + } + else if (Convert.ToBoolean(gvRow.DataKey("TieneCategoriaValida")) && gvRow.DataKey("Comision").ToDouble() == 0) + { + LblInfo.Text = $"El producto se encuentra en la categoria: {get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Categoria", $"CveCategoria = {gvRow.DataKey("CveCategoria").ToString()}")} que da comision, pero no se encuentra dentro de los rangos de precio publico y dias validos."; + } + else if (gvRow.DataKey("Comision").ToDouble() > 0) + { + LblInfo.Text = $"El producto obtuvo comision porque esta dentro de los de las comisiones especiales.
    La categoria del producto es: {get_GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("Categoria", $"CveCategoria = { gvRow.DataKey("CveCategoria").ToString()}")}.
    El producto es: {gvRow.DataKey("CodigoPS").ToString()}. "; + } + + this.RegistraScript("$('#DModalInfo').modal();"); UpModalInformacion.Update(); + } } \ No newline at end of file From f2c9afc401e7d08dad9f890cbe2ce33b99ec35c9 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 26 Nov 2020 11:54:55 -0700 Subject: [PATCH 72/75] Correciones de clientes --- Ventas/Clientes.aspx | 22 +++++++++++++--------- Ventas/Clientes.aspx.vb | 1 + 2 files changed, 14 insertions(+), 9 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 534af4d89..bab59dcf6 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4223,15 +4223,19 @@
    - - - - - - - + + + + + + + + + + +
    diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index b5e4b733d..afd23bfe7 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -9174,6 +9174,7 @@ Partial Class Clientes UpAcciones.Update() UpUsadosResumen.Update() + UpGvUsadosResumen.Update() UpAcum.Update() End If From 65423715d8379549b903d8ac2d2ca6f87d14f5c8 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 27 Nov 2020 09:42:53 -0700 Subject: [PATCH 73/75] =?UTF-8?q?en=20varias=20p=C3=A1ginas=20se=20consult?= =?UTF-8?q?a=20la=20funcion=20147=20de=20manera=20mas=20logica=20y=20se=20?= =?UTF-8?q?agregaron=20nuevos=20parametros=20en=20los=20documentos=20para?= =?UTF-8?q?=20personal?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsRH.vb | 5 +++++ Inventarios/AjustesSeccionAlmacen.aspx | 2 +- Inventarios/AjustesSeccionAlmacen.aspx.vb | 3 +-- Inventarios/EntradasSalidas.aspx | 7 ++++--- Inventarios/EntradasSalidas.aspx.vb | 12 +++++------ Inventarios/EntregaAlmacen.aspx | 2 +- Inventarios/EntregaAlmacen.aspx.vb | 21 ++++++++++---------- Inventarios/RecepcionAlmacen.aspx | 2 +- Inventarios/RecepcionAlmacen.aspx.vb | 2 +- Inventarios/RepProductosPorCaducar.aspx.cs | 3 ++- Inventarios/TraspasoAlmacen.aspx | 2 +- Inventarios/TraspasoAlmacen.aspx.vb | 23 +++++++++++----------- RH/CatDocumentos.aspx | 7 +++++++ vwd.webinfo | 6 ++++++ 14 files changed, 58 insertions(+), 39 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 1163cef22..5508900fd 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -6747,6 +6747,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActual}", fechaActual)) ListaTagsDocumentost.Add(New TagsDocumentos("{FechaActualDF}", FechaActualDF)) + ListaTagsDocumentost.Add(New TagsDocumentos("{HoraInicioJornada}", DtResultados(0)("HorarioDe").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{HoraFinJornada}", DtResultados(0)("HorarioA").ToString)) + ListaTagsDocumentost.Add(New TagsDocumentos("{Salario}", "")) + ListaTagsDocumentost.Add(New TagsDocumentos("{MetodoPago}", DtResultados(0)("MetodoPago").ToString)) + End If Return ListaTagsDocumentost diff --git a/Inventarios/AjustesSeccionAlmacen.aspx b/Inventarios/AjustesSeccionAlmacen.aspx index 84d46f37c..a92e2bd1c 100644 --- a/Inventarios/AjustesSeccionAlmacen.aspx +++ b/Inventarios/AjustesSeccionAlmacen.aspx @@ -87,7 +87,7 @@ - + <%----%> diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb index d9806259f..9fc766030 100644 --- a/Inventarios/AjustesSeccionAlmacen.aspx.vb +++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb @@ -25,8 +25,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen DdlClasificaciones.DataBind() DdlClasificaciones.Items.Insert(0, New ListItem("Todos", "-1")) - GvD.Columns(4).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Fecha Elaboración", "Fecha Caducidad") - GvD.Columns(10).HeaderText = If(UsuarioActual.Empresa.Funcionalidad(147) = "Fecha Elaboración", "Nueva Fecha Elaboración", "Nueva Fecha Caducidad") + If Not String.IsNullOrWhiteSpace(UsuarioActual.Empresa.Funcionalidad(147)) Then GvD.Columns(4).HeaderText = UsuarioActual.Empresa.Funcionalidad(147) : GvD.Columns(10).HeaderText = String.Format("Nueva {0}", UsuarioActual.Empresa.Funcionalidad(147)) End Sub diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 1bcb1d186..5826c2883 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -593,7 +593,7 @@