diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index 2f8659c84..ea286a715 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -1761,7 +1761,7 @@ Namespace Modelos CvePlantilaPoliza = 4 ElseIf ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then CvePlantilaPoliza = 7 - ElseIf ObjFactura.TipoDocto = "Rem" Then + ElseIf ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then CvePlantilaPoliza = 4 End If @@ -1818,7 +1818,7 @@ Namespace Modelos Select Case ConceptoContable Case 1 'Cliente - If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem") Then + If Not ObjFactura.TipoDocto.Contiene("Egs", "Rem", "RNC") Then importeMovimiento = ((ObjFactura.Total - ObjFactura.TotalOtrosConceptos) * ValorMultiplicador) importeMX = (importeMovimiento * tipoCambio * Multiplicador) FechaMovimiento = ObjFactura.FechaPago @@ -1888,6 +1888,37 @@ Namespace Modelos importeMovimiento = 0 ObjFactura.SeGuardoPrePoliza = True End If + Case 277 'Remisión del cliente + + If ObjFactura.TipoDocto = "RNC" Then + importeMovimiento = ((ObjFactura.Total - TotalOtrosConceptos) * ValorMultiplicador) + importeMX = importeMovimiento * tipoCambio * Multiplicador + FechaMovimiento = ObjFactura.FechaPago + CveSubProyectoContabilizar = CveSubProyectoVenta + If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}" + + If tipoCambio = 1 Then + IdCtaContable = ObjFactura.Cliente.IdCtaContClientes + CveCuenta = ObjFactura.Cliente.CveCuentaClientes + Else + IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera + CveCuenta = ObjFactura.Cliente.CveCuentaMonedaExtranjera + End If + IdCtaContableCliente = IdCtaContable + CveCuentaCliente = CveCuenta + + If ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 277, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + If Not ObjConta.AddPrePolizasDetalle(ObjFactura.CvePrePoliza, Not TipoMovimiento, importeMovimiento, Referencia, 278, Concepto, FechaMovimiento, IdCtaContable, -1, CveVenta:=ObjFactura.CveVenta, CveCliente:=ObjFactura.CveCliente, CveIE:=CveIE, ImporteMX:=importeMX, ImporteME:=If(tipoCambio = 1, 0, importeMovimiento), CveCuenta:=CveCuenta, Contabilizable:=False, CveSubProyecto:=CveSubProyectoContabilizar) Then + ErrorPrepoliza = True + End If + Else + ErrorPrepoliza = True + End If + + importeMovimiento = 0 + ObjFactura.SeGuardoPrePoliza = True + End If + Case 12 'Nota de Credito If ObjFactura.TipoDocto.Contiene("Egs", "Dev") Then @@ -2287,7 +2318,7 @@ Namespace Modelos importeMovimiento = 0 Case 4 'Venta Clasificacion - If Not ObjFactura.TipoDocto.Contiene("Rem", "Ant", "Egs", "Dev") Then + If Not ObjFactura.TipoDocto.Contiene("Rem", "Ant", "Egs", "Dev", "RNC") Then Dim ConceptoContableAplicar = 4 Dim CveVentaAplicar = ObjFactura.CveVenta @@ -2442,7 +2473,7 @@ Namespace Modelos importeMovimiento = 0 Case 103 'Descuento - If Not ObjFactura.TipoDocto.Contiene("Rem") AndAlso ObjFactura.CveTipoAmortizacionAnticipo = -1 Then + If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") AndAlso ObjFactura.CveTipoAmortizacionAnticipo = -1 Then importeMovimiento = (ObjFactura.Descuento * ValorMultiplicador) importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador @@ -2480,7 +2511,7 @@ Namespace Modelos End If Case 8 'Ret IVA por Trasladar - If Not ObjFactura.TipoDocto.Contiene("Rem") Then + If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then importeMovimiento = (ObjFactura.RetIVA * ValorMultiplicador) importeMX = Math.Round(importeMovimiento, 2) * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago @@ -2511,7 +2542,7 @@ Namespace Modelos End If Case 9 'Ret ISR por Trasladar - If Not ObjFactura.TipoDocto.Contiene("Rem") Then + If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then importeMovimiento = (ObjFactura.RetISR * ValorMultiplicador) importeMX = importeMovimiento * tipoCambio * Multiplicador FechaMovimiento = ObjFactura.FechaPago @@ -2541,7 +2572,7 @@ Namespace Modelos End If End If Case 13 'Iva por Trasladar - If Not ObjFactura.TipoDocto.Contiene("Rem") Then + If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then importeMovimiento = (ObjFactura.IVA * ValorMultiplicador) importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2) FechaMovimiento = ObjFactura.FechaPago @@ -2554,7 +2585,7 @@ Namespace Modelos Case 38 'IEPS por Trasladar - If Not ObjFactura.TipoDocto.Contiene("Rem") Then + If Not ObjFactura.TipoDocto.Contiene("Rem", "RNC") Then importeMovimiento = (ObjFactura.IEPS * ValorMultiplicador) importeMX = Math.Round(importeMovimiento * tipoCambio * Multiplicador, 2) FechaMovimiento = ObjFactura.Fecha diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 8f4d452c1..28c52df1c 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -1203,10 +1203,10 @@ Partial Class Bancos_IE If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - If IDCtaBeneficiario = 0 And UsuarioActual.Empresa.UsaContabilidad Then + If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False - ElseIf CveCuentaBeneficiario = 0 And UsuarioActual.Empresa.UsaContabilidadSIG Then + ElseIf CveCuentaBeneficiario = 0 AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then Alert("El Beneficiario no tiene cuenta contable vinculada en SIG. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False Else @@ -1256,7 +1256,7 @@ Partial Class Bancos_IE End If If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.UsaContabilidad Then + If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False ElseIf CveCuentaBeneficiario = 0 AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then @@ -1316,7 +1316,7 @@ Partial Class Bancos_IE CveCuentaBeneficiario = ObjPersonal.CveCuentaPersonal If UsuarioActual.Empresa.UsaAC OrElse UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.UsaContabilidad Then + If IDCtaBeneficiario = 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then Alert("El Beneficiario no tiene cuenta contable vinculada. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) BtnGuardar.Enabled = False ElseIf CveCuentaBeneficiario = 0 AndAlso UsuarioActual.Empresa.UsaContabilidadSIG Then @@ -1415,7 +1415,7 @@ Partial Class Bancos_IE DivTarjeta.Visible = False End If - If Not IDCtaContable > 0 AndAlso UsuarioActual.Empresa.UsaContabilidad Then + If Not IDCtaContable > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then Alert("La Cuenta Bancaria no tiene asignada una cuenta contable", TipoMensaje.MsgAdvertencia) End If @@ -3764,10 +3764,10 @@ Partial Class Bancos_IE End If Dim Banc As New ClsBancos - Banc.IniciaTransacSQL() + Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL()) Dim ObjAC As ClsContPAQi = Nothing - If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then + If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC.IniciaTransacSQL() End If @@ -3778,7 +3778,7 @@ Partial Class Bancos_IE Dim IdPolizaNueva = -1 Dim FolioPolizaNueva = -1 - If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad)) Then + If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1")) Then If ObjAC Is Nothing Then ErrorCancelar = True @@ -3827,20 +3827,38 @@ Partial Class Bancos_IE Else - 'LIMPIA POLIZA PONIENDO IMPORTE EN CEROS - For Each dr As DataRow In dt.Rows - If Not ObjAC.UpdateMovimiento(dr("Id").ToString.ToEntero, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "1", 0, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegNeg").ToString.ToEntero, dr("Fecha").ToString.ToDate) Then - ErrorCancelar = True - MensajeError = "Error al actualizar Movimientos con importe 0" - Exit For - End If - Next + 'SE COMENTO PARA PODER DESBLOQUEAR LA PREPOLIZA Y CREAR UNA NUEVA POLIZA + ''LIMPIA POLIZA PONIENDO IMPORTE EN CEROS + 'For Each dr As DataRow In dt.Rows + ' If Not ObjAC.UpdateMovimiento(dr("Id").ToString.ToEntero, dr("IdCuenta").ToString.ToEntero, dr("TipoMovto").ToString = "1", 0, dr("Referencia").ToString, dr("Concepto").ToString, dr("IdSegNeg").ToString.ToEntero, dr("Fecha").ToString.ToDate) Then + ' ErrorCancelar = True + ' MensajeError = "Error al actualizar Movimientos con importe 0" + ' Exit For + ' End If + 'Next - 'AJUSTA POLIZA - If Not ErrorCancelar Then - If Not ObjAC.AjustaPoliza(IDPoliza) Then + ''AJUSTA POLIZA + 'If Not ErrorCancelar Then + ' If Not ObjAC.AjustaPoliza(IDPoliza) Then + ' ErrorCancelar = True + ' MensajeError = "Error al ajustar poliza negativa" + ' End If + 'End If + + If ObjAC.RemovePoliza(IDPoliza) Then + If Not ObjConta.DesvincularPrePolizaContabilizada(IDPoliza, UsuarioActual.CveEmpresa) Then ErrorCancelar = True - MensajeError = "Error al ajustar poliza negativa" + MensajeError = "Error al desvincular poliza." + End If + Else + ErrorCancelar = True + MensajeError = "Error al eliminar poliza." + End If + + If Not ErrorCancelar Then + If Not ObjConta.UpdatePrePolizasDetalleBloquear(CvePrePoliza, False) Then + ErrorCancelar = True + MensajeError = "Error al desbloquear prepoliza." End If End If @@ -3852,6 +3870,11 @@ Partial Class Bancos_IE End If End If + If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + ErrorCancelar = True + MensajeError = "Error al contabilizar poliza" + End If + End If End If @@ -3951,6 +3974,7 @@ Partial Class Bancos_IE If ObjAC IsNot Nothing Then ObjAC.Dispose() Banc.Dispose() + ObjConta.Dispose() End Sub Protected Sub BtnDevueltoIE_Click(sender As Object, e As EventArgs) @@ -3977,7 +4001,7 @@ Partial Class Bancos_IE Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL) Dim ObjAC As ClsContPAQi = Nothing - If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad Then + If UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC.IniciaTransacSQL() End If @@ -3987,7 +4011,7 @@ Partial Class Bancos_IE Dim IdPolizaNueva = -1 Dim FolioPolizaNueva = -1 - If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad)) Then + If (IDPoliza > 0 AndAlso (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1")) Then If ObjAC Is Nothing Then ErrorCancelar = True @@ -4307,7 +4331,7 @@ Partial Class Bancos_IE Dim ErrorCompra = False 'Elimina la poliza - If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IDPoliza > 0 Then + If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then If Not ObjAC.RemovePoliza(IDPoliza) Then ErrorCompra = True End If @@ -4697,7 +4721,7 @@ Partial Class Bancos_IE End If End If - If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.UsaContabilidad) AndAlso IDPoliza > 0 Then + If (UsuarioActual.Empresa.UsaAC Or UsuarioActual.Empresa.Funcionalidad(200).ToString = "1") AndAlso IDPoliza > 0 Then ObjAC = New ClsContPAQi(UsuarioActual.Empresa) ObjAC.IniciaTransacSQL() If Not ObjAC.RemovePoliza(IDPoliza) Then diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 5edf6341b..f9d14b40f 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -6250,7 +6250,7 @@ Partial Class Compras_Compras - If Not ChkNCInvNC.Checked Then + If Not ChkNCInvNC.Checked OrElse Not ListaDocumentos.Count > 0 Then 'GASTO If UsuarioActual.CveEmpresa = 119 Then DT = TmpDT diff --git a/Compras/RepCompras.aspx.vb b/Compras/RepCompras.aspx.vb index 7303258cc..3173f899a 100644 --- a/Compras/RepCompras.aspx.vb +++ b/Compras/RepCompras.aspx.vb @@ -285,12 +285,10 @@ Partial Class Compras_RepCompras If e.Row.DBCampo("Orden") = "" Then e.Row.FCLiteral("LtlGrupo").Text = e.Row.FCLiteral("LtlGrupo").Text - e.Row.FCLiteral("LtlCantidad").Text = e.Row.FCLiteral("LtlCantidad").Text Else e.Row.FCLiteral("LtlGrupo").Text = String.Format("{2}", Css, Liga, e.Row.FCLiteral("LtlGrupo").Text) - e.Row.FCLiteral("LtlCantidad").Text = String.Format("{2}", Css, Liga, e.Row.FCLiteral("LtlCantidad").Text) End If - + e.Row.FCLiteral("LtlCantidad").Text = String.Format("{2}", Css, Liga, e.Row.FCLiteral("LtlCantidad").Text) If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.FCLiteral("LtlSubTotal").Text = "" If e.Row.DBCampo("Descuento").ToDouble = 0 Then e.Row.FCLiteral("LtlDescuento").Text = "" @@ -399,7 +397,7 @@ Partial Class Compras_RepCompras params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToString)) - params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Proveedor}{Capturo}{Grupo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{FechaICaptura}{FechaFCaptura}{TipoDocto}")) + params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo}{Proveedor}{Capturo}{Moneda}{FechaIn}{FechaFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{FechaICaptura}{FechaFCaptura}{TipoDocto}")) If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", logouri)) Else diff --git a/Compras/RepComprasDetalle.aspx.vb b/Compras/RepComprasDetalle.aspx.vb index c0be4ca41..ada9dcb43 100644 --- a/Compras/RepComprasDetalle.aspx.vb +++ b/Compras/RepComprasDetalle.aspx.vb @@ -437,7 +437,7 @@ Partial Class Compras_RepComprasDetalle params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", Now.ToString)) - params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Proveedor}{Capturo}{Grupo}{FechaIn}{FechaFn}{FechaCIn}{FechaCFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{TipoDocto}")) + params.Add(New ReportParameter("AgrupadoPor", $"Agrupado Por: {Grupo}{Proveedor}{Capturo}{FechaIn}{FechaFn}{FechaCIn}{FechaCFn}{Proyecto}{SubProyecto}{TipoGasto}{TipoProveedor}{TipoDocto}")) If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", logouri)) Else diff --git a/Compras/RepProductosServicios.aspx.vb b/Compras/RepProductosServicios.aspx.vb index d4ca7b2e6..7680c1dcc 100644 --- a/Compras/RepProductosServicios.aspx.vb +++ b/Compras/RepProductosServicios.aspx.vb @@ -309,23 +309,25 @@ Partial Class Compras_RepProductosServicios If DdlGrupo.SelectedValue = "6" Then ' cuando es Año '-1/01 - If e.Row.DBCampo("Anio") = "-1/01" Then - FechaI = $"01/01/{e.Row.DBCampo("Anio")}" + If e.Row.DBCampo("Anio") = "-1" Then + FechaI = "-1" + FechaF = "-1" Else - FechaI = $"01/01/{e.Row.DBCampo("Anio")}".ToDate.FirstDayOfMonth.ToShortDateString + FechaI = $"01/01/{e.Row.DBCampo("Anio")}" + FechaF = $"01/12/{e.Row.DBCampo("Anio")}".ToDate.LastDayOfMonth.ToShortDateString End If - FechaF = $"01/12/{e.Row.DBCampo("Anio")}".ToDate.LastDayOfMonth.ToShortDateString End If If DdlGrupo.SelectedValue = "8" Then ' cuando es Año/Mes - If e.Row.DBCampo("AnioMes") = "-1/01" Then - FechaI = $"{e.Row.DBCampo("AnioMes")}/01" + If e.Row.DBCampo("AnioMes") = "-1" Then + FechaI = "-1" + FechaF = "-1" Else - FechaI = $"{e.Row.DBCampo("AnioMes")}/01".ToDate.FirstDayOfMonth.ToShortDateString + FechaI = $"{e.Row.DBCampo("AnioMes")}/01".ToDate.ToShortDateString + FechaF = $"{e.Row.DBCampo("AnioMes")}/01".ToDate.LastDayOfMonth.ToShortDateString End If - FechaF = $"{e.Row.DBCampo("AnioMes")}/01".ToDate.LastDayOfMonth.ToShortDateString End If @@ -337,9 +339,8 @@ Partial Class Compras_RepProductosServicios If Not e.Row.DBCampo("GpoID") = "1" Then e.Row.Cells(0).Text = String.Format("{1}", Liga, If(e.Row.DBCampo("GpoID") = "1", e.Row.DBCampo("Moneda"), e.Row.DBCampo("GPO"))) - e.Row.Cells(1).Text = String.Format("{1}", Liga, e.Row.DBCampo("Cantidad").FormatoNumero) End If - + e.Row.Cells(1).Text = String.Format("{1}", Liga, e.Row.DBCampo("Cantidad").FormatoNumero) 'Si son igual a cero se limpia el campo If e.Row.DBCampo("SubTotal").ToDouble = 0 Then e.Row.Cells(2).Text = "" @@ -482,7 +483,7 @@ Partial Class Compras_RepProductosServicios params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString())) - params.Add(New ReportParameter("Filtros", $"{Proveedor}{FechaInicio}{FechaFin}{Grupo}{TipoGasto}{Categoria}{Clasificacion}{PS}{Proyecto}{Estatus}{Usuario}{TipoAF}{SubTipoAF}{AF}")) + params.Add(New ReportParameter("Filtros", $"{Grupo}{Proveedor}{FechaInicio}{FechaFin}{TipoGasto}{Categoria}{Clasificacion}{PS}{Proyecto}{Estatus}{Usuario}{TipoAF}{SubTipoAF}{AF}")) 'params.Add(New ReportParameter("Proveedor", DdlProveedor.SelectedItem.Text)) 'params.Add(New ReportParameter("FechaInicio", txtFechaI.Text)) 'params.Add(New ReportParameter("FechaFin", txtFechaF.Text)) diff --git a/Empresas/Grales/Formatos/RepComprasDetalle.rdlc b/Empresas/Grales/Formatos/RepComprasDetalle.rdlc index e1d30edb3..408a5b1db 100644 --- a/Empresas/Grales/Formatos/RepComprasDetalle.rdlc +++ b/Empresas/Grales/Formatos/RepComprasDetalle.rdlc @@ -50,7 +50,7 @@ - 1.25345cm + 1.862cm 1.29144cm @@ -68,7 +68,7 @@ 1.69804cm - 2.03728cm + 1.42874cm 3.5848cm @@ -86,14 +86,14 @@ - + true true - =Fields!Moneda.Value + =Fields!SerieFolio.Value - Moneda + SerieFolio1 @@ -301,14 +301,14 @@ - + true true - =Fields!SerieFolio.Value + =Fields!Moneda.Value - SerieFolio + Moneda @@ -457,7 +457,7 @@ - Moneda + Serie/Folio @@ -685,7 +685,7 @@ - Serie/Folio + Moneda diff --git a/Empresas/Grales/Formatos/RepProductosServiciosDetalleCompra.rdlc b/Empresas/Grales/Formatos/RepProductosServiciosDetalleCompra.rdlc index 25d996c63..e41a1122b 100644 --- a/Empresas/Grales/Formatos/RepProductosServiciosDetalleCompra.rdlc +++ b/Empresas/Grales/Formatos/RepProductosServiciosDetalleCompra.rdlc @@ -5,9 +5,6 @@ - - 1.60749cm - 1.70081cm @@ -15,73 +12,40 @@ 1.92431cm - 3.73987cm + 4.71883cm - 2.5cm + 1.41521cm - 4.74981cm + 2.95064cm - 1.3231cm + 1.69352cm - 2.88058cm + 1.84871cm - 1.70617cm + 1.65325cm 1.82697cm - 1.70625cm + 1.65333cm - 1.85343cm + 3.70551cm + + + 2.5cm 0.47879cm - - - - true - true - - - - - SerieFolio - - - - - - - Textbox4 - - - Silver - 2pt - 2pt - 2pt - 2pt - - - - @@ -163,7 +127,7 @@ - Proveedor + Producto/Servicio - - SerieFolio1 + Textbox4 + LightGrey + - =iif(Fields!CveCompra.Value = "", "#67809F", "Transparent") + Silver 2pt 2pt 2pt @@ -516,6 +478,11 @@ + + + + 0.42588cm + @@ -587,14 +554,14 @@ - + true true - =Fields!RazonSocial.Value + =IIf(Fields!CveCompra.Value <= 0, IIf(Fields!GPO.Value = "", Fields!SerieFolio.Value, Fields!GPO.Value),Fields!PS.Value) @@ -621,14 +588,14 @@ - + true true - =Fields!SubProyecto.Value + =Fields!CodigoAF.Value - - SubProyecto + CodigoAF1 @@ -655,14 +624,14 @@ - + true true - =Fields!PS.Value + =Fields!Clasificacion.Value @@ -690,81 +659,7 @@ - - true - true - - - - - =Fields!CodigoAF.Value - - - - - - - CodigoAF - - - =iif(Fields!CveCompra.Value = "", "#67809F", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - - true - true - - - - - =Fields!Clasificacion.Value - - - - - - - Clasificacion - - - =iif(Fields!CveCompra.Value = "", "#67809F", "Transparent") - 2pt - 2pt - 2pt - 2pt - - - - - - - + true true @@ -775,7 +670,7 @@ @@ -785,7 +680,7 @@ - PU + PU1 @@ -801,7 +696,7 @@ - + true true @@ -812,7 +707,7 @@ @@ -822,7 +717,7 @@ - Cantidad + Cantidad1 @@ -838,7 +733,8 @@ - + + true true @@ -858,7 +754,7 @@ - SubTotal + SubTotal1 @@ -874,7 +770,8 @@ - + + true true @@ -884,7 +781,7 @@ @@ -894,7 +791,116 @@ - Total1 + Total + + + =iif(Fields!CveCompra.Value = "", "#67809F", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + =Fields!SerieFolio.Value + + + + + + + SubProyecto + + + =iif(Fields!CveCompra.Value = "", "#67809F", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + true + + + + + + true + + + + + =Fields!RazonSocial.Value + + + + + + + RazonSocial1 + + + =iif(Fields!CveCompra.Value = "", "#67809F", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + + SubProyecto1 @@ -942,7 +948,7 @@ 0.70583cm 0.06614cm 0.90467cm - 27.51879cm + 27.59109cm @@ -1372,6 +1378,10 @@ GPO System.String + + Moneda + System.String + DataSet diff --git a/Empresas/Grales/Formatos/RepVentasUtilidadPadre.rdlc b/Empresas/Grales/Formatos/RepVentasUtilidadPadre.rdlc index e2fb28945..5e314ec69 100644 --- a/Empresas/Grales/Formatos/RepVentasUtilidadPadre.rdlc +++ b/Empresas/Grales/Formatos/RepVentasUtilidadPadre.rdlc @@ -51,25 +51,37 @@ - 2.51027cm + 1.78756cm - 2.396cm + 1.7468cm - 1.01424cm + 1.87995cm - 2.3007cm + 1.75936cm - 0.96542cm + 1.99234cm - 2.21367cm + 0.7279cm - 0.90371cm + 2.03612cm + + + 0.67438cm + + + 1.94909cm + + + 0.5862cm + + + 1.38875cm @@ -112,6 +124,114 @@ + + + + true + true + + + + + =Fields!Descuento.Value + + + + + + + Descuento + + + =IIF(Fields!GPO.Value="", "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Bonificacion.Value + + + + + + + Bonificacion + + + =IIF(Fields!GPO.Value="", "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Costo.Value + + + + + + + Costo + + + =IIF(Fields!GPO.Value="", "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + @@ -328,6 +448,42 @@ + + + + true + true + + + + + =Fields!Rentabilidad.Value + + + + + + + Rentabilidad + + + =IIF(Fields!GPO.Value="", "CornflowerBlue", "Transparent") + 2pt + 2pt + 2pt + 2pt + + + + @@ -373,6 +529,123 @@ + + + 0.46771cm + + + true + true + + + + + Descuento + + + + + + + Textbox25 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Bonificacion + + + + + + + Textbox20 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.46771cm + + + true + true + + + + + Costo + + + + + + + Textbox17 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + 0.46771cm @@ -607,6 +880,45 @@ + + + 0.46771cm + + + true + true + + + + + % Rent. + + + + + + + Textbox21 + + + Gray + 2pt + 2pt + 2pt + 2pt + + + + + @@ -614,7 +926,7 @@ - 7.28314cm + 3.0587cm true @@ -725,7 +1037,7 @@ Textbox1 1.01452cm - 6.93622cm + 5.03122cm 1.73771cm 5.11444cm 2 @@ -763,7 +1075,7 @@ Textbox1 1.85236cm - 7.25372cm + 5.34872cm 0.58236cm 2.59949cm 3 @@ -800,7 +1112,7 @@ Textbox1 1.85236cm - 10.04757cm + 8.14257cm 0.58236cm 1.68559cm 4 @@ -814,11 +1126,86 @@ 2pt + + true + true + + + + + = "RENTABILIDAD" + HTML + + + + + + + Textbox1 + 1.01452cm + 10.71594cm + 1.73771cm + 5.11444cm + 5 + + + SeaGreen + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + =Parameters!Rentabilidad.Value + HTML + + + + + + + Textbox1 + 1.85236cm + 12.93844cm + 0.58236cm + 2.59949cm + 6 + + + 2pt + 2pt + 2pt + 2pt + + 1.667in @@ -170,8 +172,9 @@ -
-
+
+
+
@@ -183,6 +186,18 @@
+ +
+
+
+
+
+
+
+
+
+

@@ -194,12 +209,16 @@ + + + + @@ -215,8 +234,20 @@
-
+
+ + +
+ + + +
+
+ + +
+
@@ -232,7 +263,7 @@ diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb index 8719b0036..b4d764d2a 100644 --- a/Ventas/RepVentasUtilidadPadre.aspx.vb +++ b/Ventas/RepVentasUtilidadPadre.aspx.vb @@ -136,6 +136,12 @@ Partial Class Ventas_RepVentasUtilidadPadre LblNeto.Text = Neto.ToString("N2") LblPorNeto.Text = PorNeto.ToString("N2") End If + + LblNombreRentabilidad.Text = "Rentabilidad" + DivClaseRentabilidad.Attributes.Add("class", "dashboard-stat dashboard-stat-v2 green") + LblRentabilidadIndicador.Attributes.Add("data-original-title", "Rentabilidad") + LblRentabilidad.Text = DtDatos.Rows(0)("Rentabilidad").ToString.ToDouble.ToString("N2") + End If ObjVentas.Dispose() @@ -161,26 +167,52 @@ Partial Class Ventas_RepVentasUtilidadPadre LblTituloGrafica.Text = $"Agrupado por: {Agrupador}" RegistraScript("$('#DivModalGrafica').modal('show')") - Dim Dt As New DataTable() - Dt.Columns.Add("gpo") - Dt.Columns.Add("utilidad") - Dt.Columns.Add("perdida") - For Each Dr As DataRow In DtDatos.Rows - If Dr("GPO").ToString <> "" Then - Dim Row As DataRow = Nothing - Row = Dt.NewRow() - Row("gpo") = Dr("GPO").ToString - Row("utilidad") = Dr("Utilidad").ToString.FormatoNumero - Row("perdida") = Dr("Perdida").ToString.FormatoNumero - Dt.Rows.Add(Row) - End If - Next + CargaGrafica() + + End Sub + + Private Sub CargaGrafica() + If DdlVer.SelectedValue.ToEntero = 1 Then + Dim Dt As New DataTable() + Dt.Columns.Add("gpo") + Dt.Columns.Add("neto") + For Each Dr As DataRow In DtDatos.Rows + If Dr("GPO").ToString <> "" Then + Dim Row As DataRow = Nothing + Row = Dt.NewRow() + Row("gpo") = Dr("GPO").ToString + Row("neto") = Dr("Neto").ToString.FormatoNumero + Dt.Rows.Add(Row) + End If + Next + + Dim query = From s In Dt.AsEnumerable() Select New With {.gpo = s("gpo").ToString(), .neto = s("neto").ToString().ToDouble()} + Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query) + RegistraScript($"CargaGraficaBarrasNeto({json})", "22") + ElseIf DdlVer.SelectedValue.ToEntero = 2 Then + Dim Dt2 As New DataTable() + Dt2.Columns.Add("gpo") + Dt2.Columns.Add("rentabilidad") + For Each Dr As DataRow In DtDatos.Rows + If Dr("GPO").ToString <> "" Then + Dim Row As DataRow = Nothing + Row = Dt2.NewRow() + Row("gpo") = Dr("GPO").ToString + Row("rentabilidad") = Dr("Rentabilidad").ToString.FormatoNumero + Dt2.Rows.Add(Row) + End If + Next + + Dim query2 = From s In Dt2.AsEnumerable() Select New With {.gpo = s("gpo").ToString(), .rentabilidad = s("rentabilidad").ToString().ToDouble()} + Dim json2 As String = Newtonsoft.Json.JsonConvert.SerializeObject(query2) + RegistraScript($"CargaGraficaBarrasRentabilidad({json2})", "23") + End If - Dim query = From s In Dt.AsEnumerable() Select New With {.gpo = s("gpo").ToString(), .utilidad = s("utilidad").ToString().ToDouble(), .perdida = s("perdida").ToString().ToDouble} - Dim json As String = Newtonsoft.Json.JsonConvert.SerializeObject(query) - RegistraScript($"CargaGraficaCompracion({json})", "22") UPModalProd.Update() End Sub + Protected Sub DdlVer_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaGrafica() + End Sub #End Region @@ -197,7 +229,12 @@ Partial Class Ventas_RepVentasUtilidadPadre e.Row.DBCampo("FechaI"), e.Row.DBCampo("FechaF"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveVendedor"), e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion")) e.Row.Cells(0).Text = "" & e.Row.Cells(0).Text & "" + Else + e.Row.Cells(9).BackColor = Drawing.Color.LightGray End If + + + End If End Sub @@ -234,6 +271,7 @@ Partial Class Ventas_RepVentasUtilidadPadre params.Add(New ReportParameter("Filtros", StrFiltro.ToString)) params.Add(New ReportParameter("Neto", LblNeto.Text)) params.Add(New ReportParameter("PorNeto", $"{LblPorNeto.Text}%")) + params.Add(New ReportParameter("Rentabilidad", $"{LblRentabilidad.Text}%")) If Imagen.Exists Then params.Add(New ReportParameter("LogoPath", logouri)) @@ -248,4 +286,5 @@ Partial Class Ventas_RepVentasUtilidadPadre + End Class