From 81041947eda8ab8531ba94eec6868dd5a16bcf80 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 7 Oct 2019 09:11:27 -0500 Subject: [PATCH 1/7] =?UTF-8?q?peque=C3=B1a=20correci=C3=B3n=20en=20Asigna?= =?UTF-8?q?ciones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- OS/Asignaciones.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index 591aed260..ce7b69d13 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -46,7 +46,6 @@ Partial Class OS_Asignaciones DivAsignacionPersona.Visible = False 'CargaOrdenesServiciosAsignadas() End If - CargarTecnico() Dim ObjEstatusPermisos As New ClsOS If ObjEstatusPermisos.GetEstatusUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then @@ -97,6 +96,7 @@ Partial Class OS_Asignaciones GvNA.DataBind() ObjOS.Dispose() UpOS.Update() + CargarTecnico() End Sub Private Sub CargaOrdenesServiciosAsignadas() Dim ObjOS As New ClsOS From e6127d911a4ac4919782eb0e505d50fe616cc913 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 7 Oct 2019 09:45:16 -0500 Subject: [PATCH 2/7] aplicando correcciones en UsuarioDetalle --- Sistemas/UsuarioDetalle.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb index 1f177a879..6daf7065a 100644 --- a/Sistemas/UsuarioDetalle.aspx.vb +++ b/Sistemas/UsuarioDetalle.aspx.vb @@ -2829,12 +2829,12 @@ Partial Class Sistemas_UsuarioDetalle If CveEstatus > 0 Then If Row.FCCheckBox("chkEstatus" + r.ToString).Checked = False And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero > 0 Then 'Eliminar el registro existente - If Not ObjOS.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero, -1) Then + If Not ObjOS.RemoveEstatusUsuarios(Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero, -1, -1) Then HuboErrores = True Exit For End If ElseIf Row.FCCheckBox("chkEstatus" + r.ToString).Checked = True And Row.FCHiddenField("hdnCveEstatusUsuarios" + r.ToString).Value.ToEntero = -1 Then - If Not ObjOS.AddEstatusUsuarios(CveEstatus, CveUsuario, CveSubProyecto) Then + If Not ObjOS.AddEstatusUsuarios(CveEstatus, CveUsuario, CveSubProyecto, UsuarioActual.CveUsuario) Then HuboErrores = True Exit For End If From 85fd91afb18c33dc397127dcea3e1f7837819773 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 7 Oct 2019 13:57:21 -0500 Subject: [PATCH 3/7] Asignaciones de OS listo --- OS/Asignaciones.aspx | 2 +- OS/Asignaciones.aspx.vb | 25 +++++++++++++++++++++++-- 2 files changed, 24 insertions(+), 3 deletions(-) diff --git a/OS/Asignaciones.aspx b/OS/Asignaciones.aspx index ea189147a..fb112083e 100644 --- a/OS/Asignaciones.aspx +++ b/OS/Asignaciones.aspx @@ -175,7 +175,7 @@
- diff --git a/OS/Asignaciones.aspx.vb b/OS/Asignaciones.aspx.vb index ce7b69d13..ddec422b5 100644 --- a/OS/Asignaciones.aspx.vb +++ b/OS/Asignaciones.aspx.vb @@ -26,6 +26,15 @@ Partial Class OS_Asignaciones ViewState("DtOSSubProyectos") = value End Set End Property + + Private Property DtTecnicosSubProyectos As DataTable + Get + Return CType(ViewState("DtTecnicosSubProyectos"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtTecnicosSubProyectos") = value + End Set + End Property #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then @@ -163,6 +172,7 @@ Partial Class OS_Asignaciones dtAuxiliar = TecnicosSubProyectos.FiltraParametros(String.Format("SubProyecto = '{0}' AND CveEstatusOrdenServicio = {1}", SubProyecto.Item("SubProyecto"), EstatusDeTipoProcesoMenor), "", {"CveUsuario", "Nombre"}) TecnicosResultado.Merge(dtAuxiliar) Next + DtTecnicosSubProyectos = TecnicosResultado DdlTecnico.DataSource = TecnicosResultado DdlTecnico.DataBind() DdlTecnico.Items.Insert(0, New ListItem("Todos", "-1")) @@ -184,10 +194,21 @@ Partial Class OS_Asignaciones If row.FCCheckBox("ChbxAsignar").Checked Then time = DateTime.Parse(String.Format("{0} {1}:{2} {3}", row.FCTextBox("FechaOS").Text, picker.Hour, picker.Minute, picker.AmPm)) - If Not ObjOS.UpdateOrdenesServiciosAsignadas(row.DataKey("CveOSDetalle").ToEntero, DdlTecnico.SelectedValue.ToEntero, row.FCTextBox("FechaOS").Text.ToDate, time, UsuarioActual.CveEmpresa) Then - TieneError = True + + If ObjOS.GetSubProyectosEstatusInicial(DdlTecnico.SelectedValue.ToEntero, 3, UsuarioActual.CveEmpresa) Then + Dim subProyectoDelTecnico As DataTable + subProyectoDelTecnico = ObjOS.DtResultados.FiltraParametros(String.Format("CveSubProyecto = {0}", row.DataKey("CveSubProyecto"))) + If subProyectoDelTecnico.Rows.Count > 0 Then + If Not ObjOS.UpdateOrdenesServiciosAsignadas(row.DataKey("CveOSDetalle").ToEntero, DdlTecnico.SelectedValue.ToEntero, row.FCTextBox("FechaOS").Text.ToDate, time, UsuarioActual.CveEmpresa) Then + TieneError = True + End If + Else + Alert("El técnico y la Orden de Servicio deben pertenecer al mismo subProyecto", TipoMensaje.MsgAdvertencia) + TieneError = True + End If End If + If Not TieneError Then If Not ObjOS.UpdateOrdenesServiciosEstatus(CveEstatusOS.ToEntero, UsuarioActual.CveUsuario, row.DataKey("CveOS").ToEntero) Then TieneError = True From b0296087bfb3db68aa4cb6f387082eb25d8424f6 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 7 Oct 2019 13:09:15 -0700 Subject: [PATCH 4/7] --- Compras/Compras.aspx | 3 +++ Compras/Compras.aspx.vb | 28 +++++++++++++++++++++++----- 2 files changed, 26 insertions(+), 5 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 6fb4ef422..7b6f8fcc3 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -13,6 +13,9 @@ +
  • + +
  • Agregar Concepto
    • diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 557ae3e82..a09bfd53d 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -3755,7 +3755,7 @@ Partial Class Compras_Compras Dim GuardaNoDeducibles As Boolean = False If ChkEsNoDeducible.Checked Then For Each Row As DataRow In TmpDT.Rows - If Row("NoDeducible").ToString().ToUpper() = "TRUE" OrElse Row("NoDeducible").ToString().ToUpper() = "1" Then + If Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1") Then GuardaNoDeducibles = True End If Next @@ -4748,7 +4748,7 @@ Partial Class Compras_Compras CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, OtrosGastos:=Row("OtrosGastos").ToString.ToDecimal, RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble, IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble, - IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString = "True" OrElse Row("NoDeducible").ToString = "1") AndAlso EsNoDeducible, True, False)) Then + IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False)) Then ErrorDetalles = True Exit For @@ -9312,7 +9312,7 @@ Partial Class Compras_Compras If Not ObjCompra.UpdateCompraDetalle(Row("CvePS").ToString.ToEntero, Row("Cantidad").ToString.ToDouble, Row("PU").ToString.ToDouble, Row("IVA").ToString.ToDouble, Row("Total").ToString.ToDouble, Row("Descuento").ToString.ToDouble, Row("Obs").ToString, Row("CveSubProyecto").ToString.ToEntero, Row("CvePresupuestoEgreso").ToString.ToEntero, CveAF, Row("CveCompraDetalle").ToString.ToEntero, CvePersonal:=CvePersonal, CveTipoGasto:=Row("CveTipoGasto").ToString.ToEntero, AF_Medida:=Row("AFMedida").ToString.ToEntero, AF_TipoMantenimiento:=Row("AFTipoMantenimiento").ToString.ToEntero, Referencia:=Referencia, RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble, - IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If(Row("NoDeducible").ToString = "True" AndAlso EsNoDeducible, True, False)) Then + IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble, IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False)) Then Retorno = False Exit For @@ -16518,7 +16518,7 @@ Partial Class Compras_Compras Dim PS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimero("") DdlIVA.Enabled = True - ChkEsNoDeduciblePS.Checked = If(GvRow.DataKey("NoDeducible").Contiene("True", "1"), True, False) + ChkEsNoDeduciblePS.Checked = If(GvRow.DataKey("NoDeducible").ToUpper().Contiene("TRUE", "1"), True, False) If PS IsNot Nothing Then If PS("IVA").ToString.ToEntero() <> -1 Then @@ -18988,5 +18988,23 @@ Partial Class Compras_Compras End If ObjComp.Dispose() - End Sub + End Sub + Protected Sub btnpruebas_Click(sender As Object, e As EventArgs) + Dim GuardaNoDeducibles As Boolean = False + If ChkEsNoDeducible.Checked Then + For Each Row As DataRow In TmpDT.Rows + If Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1") Then + GuardaNoDeducibles = True + End If + + Next + If GuardaNoDeducibles = False Then + Alert("Si la compra es No Deducible, mínimo se debe registrar un producto No Deducible", TipoMensaje.MsgAdvertencia) + Exit Sub + Else + Alert("todo bien!", TipoMensaje.MsgInformacion) + + End If + End If + End Sub End Class \ No newline at end of file From 2035766c199d8221eac64919de071ba2ec6c45f3 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 7 Oct 2019 13:38:30 -0700 Subject: [PATCH 5/7] Salida Automatica de Almacen al facturar Cot --- Ventas/Ventas.aspx.vb | 24 ++++++++++++++++++------ 1 file changed, 18 insertions(+), 6 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 24c458fb8..0b9e6e136 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1598,6 +1598,14 @@ Partial Class Ventas End Set End Property + Private Property CvePrecioLista As Integer + Get + Return ViewState("CvePrecioLista").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("CvePrecioLista") = value + End Set + End Property #End Region @@ -1652,6 +1660,7 @@ Partial Class Ventas ViewState("ClienteDesglosaIEPS") = False ViewState("ClienteRetIVA") = 0 ViewState("ClienteRetISR") = 0 + ViewState("CvePrecioLista") = 0 idCuentaContabilizacion = 1 CveEmpresaCRM = 0 CveAcercamientoCRM = 0 @@ -3848,6 +3857,7 @@ Partial Class Ventas DdlSubProyectoDatos.Items.Insert(0, New ListItem("Seleccione", "-1")) End If DdlSubProyectoDatos.SelectedValueExistInsert(DbRowVenta("CveSubProyecto").ToString, DbRowVenta("SubProyecto").ToString) + CargarAlmacenes() If DdlSubProyectoCobranza.Items.Count = 0 Then DdlSubProyectoCobranza.Items.Insert(0, New ListItem("Seleccione", "-1")) @@ -4444,7 +4454,7 @@ Partial Class Ventas End Function Private Sub CargarAlmacenes() - If CveVenta > 0 Then + If CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot" Then DivAlmacen.Visible = False Else Dim DTAlmacen As DataTable @@ -4605,6 +4615,8 @@ Partial Class Ventas ViewState("CveCuentaRetISR") = ObjCliente.CveCuentaRetISR ViewState("CodCliente") = ObjCliente.Codigo + ViewState("CvePrecioLista") = ObjCliente.CvePrecioLista + ViewState("CliNoExt") = ObjCliente.NoExt ViewState("CliNoInt") = ObjCliente.NoInt ViewState("CliLocalidad") = If(ObjCliente.Localidad.Trim.Length = 0, ObjCliente.Ciudad.Trim, ObjCliente.Localidad.Trim) @@ -5780,7 +5792,7 @@ Partial Class Ventas End If - If CveVenta > 0 Then + If CveVenta > 0 And DdlTipoComprobante.SelectedValue <> "Cot" Then If e.Row.DBCampo("CveConcepto").ToEntero = 3 Then CveAlmacenDevolucion = e.Row.DBCampo("CveAlmacen").ToEntero e.Row.FCCheckBox("cbInv").Visible = False End If @@ -13851,10 +13863,10 @@ Partial Class Ventas PU = 0 Dim PrecioSugerido As Decimal = 0 - Dim CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero - If CvePrecioListaPS > 0 Then + 'Dim CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CvePrecioLista", $"CveCliente = {CveCliente}").ToEntero + If CvePrecioLista > 0 Then Dim ObjPS As New ClsProductosServicios - If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioListaPS, CvePS:=CvePSAdicional) Then + If ObjPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, CvePrecioLista, CvePS:=CvePSAdicional) Then PrecioSugerido = ObjPS.DtResultados.FiltroPrimeroValor("PrecioLista").ToDecimal If PrecioSugerido = 0 Then @@ -14500,7 +14512,7 @@ Partial Class Ventas GvPS.DataBind() 'RECARGA GV INVENTARIO - If Not CveVenta > 0 Then + If Not CveVenta > 0 Or DdlTipoComprobante.SelectedValue = "Cot" Then DtInv = TmpDT.Copy.FiltraParametros("CveTipoPS = 2") CargaGVInv(DtInv) End If From 01a0579acc4358dff906ddee3b59592dfd6eb368 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Mon, 7 Oct 2019 14:22:37 -0700 Subject: [PATCH 6/7] =?UTF-8?q?Formato=20de=20Pagos=20en=20pesta=C3=B1a=20?= =?UTF-8?q?de=20Bancos=20de=20Proveedores?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Formatos/RepProveedoresPagosBancos.rdlc | 969 ++++++++++++++++++ 1 file changed, 969 insertions(+) create mode 100644 Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc diff --git a/Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc b/Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc new file mode 100644 index 000000000..ea4c41db8 --- /dev/null +++ b/Empresas/Grales/Formatos/RepProveedoresPagosBancos.rdlc @@ -0,0 +1,969 @@ + + + + + + true + true + + + + + =Parameters!AgrupadoPor.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 0.84237cm + 0.15558cm + 0cm + 19.84166cm + 1 + + + + + + + + + 4.42895cm + + + 3.2021cm + + + 3.36938cm + + + 2.89562cm + + + 3.34667cm + + + 2.5cm + + + + + 0.6cm + + + + + true + true + + + + + Factura + + + + + + + Textbox3 + + + + 1pt + + + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Compra + + + + + + + Textbox15 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Fecha Ven. + + + + + + + Textbox13 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Movto. + + + + + + + Textbox17 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abonado + + + + + + + Textbox19 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + Abreviatura + + + + + + + Textbox21 + + + Silver + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.6cm + + + + + true + true + + + + + = IIF( IsNothing(Fields!CveCompra.Value) , (Fields!Banco.Value & " - " & Fields!NumCuenta.Value),Fields!SerieFolio.Value) + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = IIF( IsNothing(Fields!CveCompra.Value), Fields!FechaDocumento.Value,Fields!FechaVencimiento.Value) + + + + + + + FechaVencimiento + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + = IIF( IsNothing(Fields!CveCompra.Value), Fields!FolioPago.Value,"") + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Abonado.Value + + + + + + + Abonado + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + es-MX + + + + + + + + true + true + + + + + =Fields!Abreviatura.Value + + + + + + = IIF( IsNothing(Fields!CveCompra.Value), "Silver","White") + 2pt + 2pt + 2pt + 2pt + + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DataSet1 + 1.00112cm + 0.12912cm + 1.2cm + 19.74272cm + 2 + + + + + + 0.99158in + + + + + + + Textbox1 + 0.18521cm + 3.21468cm + 0.6cm + 14.02238cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + REPORTE PAGOS PROVEEDORES + + + + + + + Textbox2 + 1.10271cm + 3.21468cm + 0.52945cm + 14.02238cm + 1 + + + 2pt + 2pt + 2pt + 2pt + + + + External + =Parameters!LogoPath.Value + FitProportional + 0.06614cm + 2.22362cm + 2.33715cm + 2 + + + + + + + + + + + 0.76376cm + true + true + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox3 + 0.08291cm + 17.90491cm + 0.68085cm + 2.09233cm + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Usuario: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!FechaImpresion.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + 29.7cm + 21cm + 0.25cm + 0.25cm + 1cm + 1cm + 0.13cm +