From 15e6608bbf47ec88925a172a5f51ffa482e945b3 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 9 Dec 2020 19:53:13 -0700 Subject: [PATCH 1/7] txtps de txt a textarea --- Ventas/ProductosServicios.aspx | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 7a5c4faa1..d83ba7ada 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -132,7 +132,7 @@
- + From 100ac0754035f6b16e93f3bcb9e50998097fe32b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 9 Dec 2020 19:53:27 -0700 Subject: [PATCH 2/7] usacomplementarias --- Bancos/ProveedoresAbonar.aspx.vb | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index d8325a81b..c16a3ca10 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -446,7 +446,7 @@ Partial Class Bancos_ProveedoresAbonar HlSaldarCuentasSinPagar.Visible = True End If - If UsuarioActual.CveEmpresa = 119 And CveUsuarioProgramo <> -1 Then + If UsuarioActual.CveEmpresa.Contiene(119, 158) And CveUsuarioProgramo <> -1 Then LnkPDFSolicitud.Visible = True LnkExcelSolicitud.Visible = True End If @@ -942,6 +942,9 @@ Partial Class Bancos_ProveedoresAbonar Dim TipoCambioGeneral As Decimal = 0 Dim tipoCambioCompraValuacion As Decimal = 1 + Dim UsaComplementariaBancos As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119, 158), True, False) + Dim UsaComplementariaProveedores As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119, 158), True, False) + Dim FuncionalidadFluctuacionImpuestos As Boolean = If(UsuarioActual.Empresa.Funcionalidad(159) = "1", True, False) Dim TipoCambioFluctuacion As Decimal = 1 @@ -1046,7 +1049,7 @@ Partial Class Bancos_ProveedoresAbonar ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" IdCtaContable = IdCtaContComplementaria CveCuenta = CveCuentaProveedorExtranjera - If ImporteMovimiento <> 0 AndAlso (UsuarioActual.CveEmpresa = 119 Or IdCtaContable > 0) Then 'Cuando tiene complementaria lo dividimos en dos + If ImporteMovimiento <> 0 AndAlso (UsaComplementariaProveedores Or IdCtaContable > 0) Then 'Cuando tiene complementaria lo dividimos en dos importeMX = ImporteMovimiento If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0.00D, Referencia, CveConceptoComplementaria, ConceptoMovimiento, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=gvr.DataKey("CveCompra").ToEntero, CveProveedor:=CveProveedor, ImporteMX:=Math.Round(ImporteMovimiento * tipoCambioCompraValuacion - ImporteMovimiento, 2, MidpointRounding.AwayFromZero), ImporteME:=ImporteMovimiento, TipoCambio:=tipoCambioCompraValuacion, CveCuenta:=CveCuentaComplementaria) Then MsgError = "No se pudo insertar la póliza" @@ -2034,7 +2037,7 @@ Partial Class Bancos_ProveedoresAbonar If (Not DivTarjeta.Visible Or DdlTarjeta.SelectedValue.ToEntero = -1) Then If TipoCambioPago > 1 AndAlso CveMoneda = 2 Then - If UsuarioActual.CveEmpresa = 119 Or (CveCuentaBancariaComplementaria > 0 OrElse IdCuentaBancariaComplementaria > 0) Then + If UsaComplementariaBancos Or (CveCuentaBancariaComplementaria > 0 OrElse IdCuentaBancariaComplementaria > 0) Then If CveMoneda = 2 AndAlso CveMonedaFiltro = 1 Then 'Si la venta viene en pesos y se va a pagar en DOLARES TipoCambioPago = TxtTCDolares.Text.ToDecimal ElseIf CveMoneda = 2 AndAlso CveMonedaFiltro = 2 Then @@ -3121,6 +3124,7 @@ Partial Class Bancos_ProveedoresAbonar Dim CveMoneda As Integer = gr.DataKey("CveMoneda").ToEntero Dim FechaCompra As Date = gr.DataKey("Fecha").ToDate Dim CveSubProyecto As Integer = gr.DataKey("CveSubProyecto").ToEntero + Dim UsaComplementariaProveedores As Boolean = If(UsuarioActual.CveEmpresa.Contiene(119, 158), True, False) Dim CveConceptoContablePago As Integer = 17 If gr.DataKey("CveTipoConcepto").ToEntero = 2 Then CveConceptoContablePago = 308 'cuando es acreedor @@ -3141,7 +3145,7 @@ Partial Class Bancos_ProveedoresAbonar CvePrePoliza = ObjConta.AddPrePolizas("Bancos/ProveedoresAbonar/Saldar", 98, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Saldo").ToDecimal, gr.DataKey("CveMoneda").ToEntero, TxtFechaIncobrable.Text.ToDate, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - If CveMoneda > 1 AndAlso (IdCtaContComplementaria > 0 Or UsuarioActual.CveEmpresa = 119) Then + If CveMoneda > 1 AndAlso (IdCtaContComplementaria > 0 Or UsaComplementariaProveedores) Then IdCtaContable = IdCtaContComplementaria CveCuenta = CveCuentaProveedorExtranjera If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, 0.00D, gr.DataKey("SerieFolio").ToString, CveConceptoContableComplementaria, ConceptoPartida, Now, IdCtaContable:=IdCtaContable, CveIE:=-1, IdSegmentoNegocio:=-1, CveProveedor:=gr.DataKey("CveProveedor").ToEntero, CveCompra:=gr.DataKey("CveCompra").ToEntero, ImporteMX:=Math.Round(Saldo * TCCompra - Saldo, 2, MidpointRounding.AwayFromZero), ImporteME:=Saldo, TipoCambio:=TCCompra, CveCuenta:=CveCuentaComplementaria) Then From 218e4773628a0656d8da2c907db4be0201079cf6 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Dec 2020 11:40:32 -0700 Subject: [PATCH 3/7] -- complementarias 158 --- Compras/Compras.aspx.vb | 42 ++++++++++++++++++----------------------- 1 file changed, 18 insertions(+), 24 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index b3be5f8a9..fb272a042 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4604,19 +4604,18 @@ Partial Class Compras_Compras CveEstatusFactura = 6 End If 'hay amortización directa como descuento. RMF Temporal - If UsuarioActual.CveEmpresa = 119 Then - 'If LblAmortizacion.Text.ToDouble > 0 AndAlso TxtDescuento.Text.ToDouble = 0 Then - ' TxtDescuento.Text = LblAmortizacion.Text - ' LblAmortizacion.Text = "0.00" - 'End If - 'o si el descuento es igual a la amortizacion - 'If LblAmortizacion.Text.ToDouble = TxtDescuento.Text.ToDouble Then - ' TxtDescuento.Text = LblAmortizacion.Text - ' LblAmortizacion.Text = "0.00" - 'End If + 'If LblAmortizacion.Text.ToDouble > 0 AndAlso TxtDescuento.Text.ToDouble = 0 Then + ' TxtDescuento.Text = LblAmortizacion.Text + ' LblAmortizacion.Text = "0.00" + 'End If + + 'o si el descuento es igual a la amortizacion + 'If LblAmortizacion.Text.ToDouble = TxtDescuento.Text.ToDouble Then + ' TxtDescuento.Text = LblAmortizacion.Text + ' LblAmortizacion.Text = "0.00" + 'End If - End If 'si el registro es manual, toma el mismo dato If CveFactura <= 0 Then TotalOriginal = TxtTotal.Text.ToDecimal @@ -5030,7 +5029,7 @@ Partial Class Compras_Compras Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1" - If UsuarioActual.CveEmpresa = 119 AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then + If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso (DdlPersonalReembolso.SelectedValue.ToEntero > 0 Or DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero > 0 Or DdlTipoComprobante.SelectedValue = "Ant") Then AutoConta = False End If @@ -6897,7 +6896,7 @@ Partial Class Compras_Compras If Not RegistroCuentaPuente AndAlso Not ChkNCInvNC.Checked Then 'GASTO - If UsuarioActual.CveEmpresa = 119 Then + If UsuarioActual.CveEmpresa.Contiene(119, 158) Then DT = TmpDT Else DT = TmpDT.FiltraParametros("ISNULL(AplicaCostoIndirecto,0) <> 1") @@ -7034,6 +7033,7 @@ Partial Class Compras_Compras End If Case 5 'Proveedores If CveTipoConcepto = 2 Then ConceptoContable = 305 'cuando es acreedor + Dim UsaComplementaria As Boolean = UsuarioActual.CveEmpresa.Contiene(119, 158) If tipoCambioActual <> 1 Then Select Case ConceptoContable Case 5 @@ -7059,7 +7059,7 @@ Partial Class Compras_Compras Else IdCtaContable = CtaProveedorComplementaria CveCuenta = CveCuentaProveedorComplementaria - If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 Or UsuarioActual.CveEmpresa = 119) Then 'Cuando tiene complementaria lo dividimos en dos Then + If importeMovimiento <> 0 AndAlso (IdCtaContable > 0 Or CveCuenta > 0 OrElse UsaComplementaria) Then 'Cuando tiene complementaria lo dividimos en dos Then importeMN = importeMovimiento If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, 0, Referencia, CveConceptoContableComplementaria, Concepto, FechaMovimiento, IdCtaContable, -1, CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, ImporteMX:=importeMovimiento * tipoCambioActual - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then ErrorPrepoliza = True @@ -15228,7 +15228,7 @@ Partial Class Compras_Compras 'SI PUEDE RECIBIR POR OC Y COMPRA ' si usa almacen, si tiene activado que reciba por OC, y que si la compra tipo Proveedor. que lo muestre - If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then + If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then DivOCVinculaInv.Visible = True End If @@ -15270,7 +15270,7 @@ Partial Class Compras_Compras 'PROMOCIONES LtOCPromocion.Text = StrPromos.ToString - If LtOCPromocion.Text.Length > 0 And UsuarioActual.CveEmpresa = 119 Then + If LtOCPromocion.Text.Length > 0 And UsuarioActual.CveEmpresa.Contiene(119, 158) Then DivOCPromocion.Visible = True End If @@ -15544,12 +15544,6 @@ Partial Class Compras_Compras 'If DdlOCVinculaInv.SelectedValue.ToEntero = 237 And Not CveFlete > 0 Then Alert("Necesita vincular un flete si selecciona Factura de Flete", TipoMensaje.MsgAdvertencia) : Exit Sub 'If DdlOCVinculaInv.SelectedValue.ToEntero = 240 And Not CveImportacion > 0 Then Alert("Necesita vincular una Importación si selecciona Factura de Importación", TipoMensaje.MsgAdvertencia) : Exit Sub - 'If UsuarioActual.CveEmpresa = 119 And DdlTipoComprobante.SelectedValue = "Fac" Then - ' If Not VerificarProductosCompraConOC() Then - ' Exit Sub - ' End If - 'End If - Dim SubTotalGV = 0.0D Dim Amortizacion As Decimal = TmpDT.SUMD("Total") If ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 Then @@ -15612,7 +15606,7 @@ Partial Class Compras_Compras 'SI PUEDE RECIBIR POR OC Y COMPRA - If UsuarioActual.CveEmpresa = 119 AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then + If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso UsuarioActual.Empresa.UsaInventarios And UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 AndAlso CveTipoConcepto = 1 Then If DdlOCVinculaInv.SelectedValue.ToEntero <= 0 Then Alert("El campo Tipo de recepción almacén es necesario. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) @@ -17275,7 +17269,7 @@ Partial Class Compras_Compras LblAmortizacion.Text = "0.00" End If - If UsuarioActual.CveEmpresa = 119 AndAlso TieneAmortizacion Then + If UsuarioActual.CveEmpresa.Contiene(119, 158) AndAlso TieneAmortizacion Then Amortizacion = LblAmortizacion.Text.Trim.ToDecimal TxtSubTotal.Text = (TxtSubTotal.Text.ToDouble + Amortizacion).ToString End If From 7ef47b8bacaaea729fcccf28e9037cce2aa2d8e9 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Dec 2020 23:05:19 -0700 Subject: [PATCH 4/7] -- existencias ps, el parametro de Excluyetransitorios --- App_Code/ClsInventarios.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index e2d1d8327..b89221914 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1875,7 +1875,7 @@ Public Class ClsInventarios Optional Serie As String = "-1", Optional Lote As String = "-1", Optional FechaCaducidad As Date = MinFecha, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, - Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1) As Decimal + Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1, Optional ExcluyeTransitorios As Integer = -1) As Decimal Dim Retorno As Decimal = -1 If FechaMovto = "-1" Then @@ -1900,6 +1900,7 @@ Public Class ClsInventarios .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados + .Add("@ExcluyeTransitorios", SqlDbType.Int).Value = ExcluyeTransitorios .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes .Add("@Existencia", SqlDbType.Money).Direction = ParameterDirection.Output @@ -1927,7 +1928,7 @@ Public Class ClsInventarios Optional FechaMovto As String = "-1", Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional Serie As String = "-1", Optional Lote As String = "-1", Optional Caducidad As Date = MinFecha, Optional ExcluyeAdelantado As Integer = -1, Optional PendientePorSurtir As Integer = -1, - Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean + Optional ExcluyeApartados As Integer = 1, Optional RestringirAlmacenes As Integer = -1, Optional ExcluyeTransitorios As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_ExistenciasGet") @@ -1948,6 +1949,7 @@ Public Class ClsInventarios .Add("@ExcluyeAdelantado", SqlDbType.Int).Value = ExcluyeAdelantado .Add("@PendientePorSurtir", SqlDbType.Int).Value = PendientePorSurtir .Add("@ExcluyeApartados", SqlDbType.Int).Value = ExcluyeApartados + .Add("@ExcluyeTransitorios", SqlDbType.Int).Value = ExcluyeTransitorios .Add("@RestringirAlmacenes", SqlDbType.Int).Value = RestringirAlmacenes .Add("@TopSelect", SqlDbType.Int).Value = TopSelect From 7e3785aabaf8468edfd9c96970688dcac06085a3 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Dec 2020 23:05:34 -0700 Subject: [PATCH 5/7] mas alta el popup existencia --- Site.master | 1416 +++++++++++++++++++++++++-------------------------- 1 file changed, 708 insertions(+), 708 deletions(-) diff --git a/Site.master b/Site.master index 5c6489dad..30390b077 100644 --- a/Site.master +++ b/Site.master @@ -1,672 +1,672 @@ -<%@ Master Language="VB" CodeFile="Site.master.vb" Inherits="Site" %> - -<%@ Import Namespace="System.Web.Optimization" %> - - - - - - Sistema de Información Gerencial - - - - - - - <%: Scripts.Render("~/bundles/modernizr") %> - <%: Styles.Render("~/Content/AjaxControlToolkit/Styles/Bundle") %> - - - <%-- - - --%> - <%: Styles.Render("~/Metronic/assets/global/css/css") %> - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - <%--Site Scripts--%> - - - - <%: Scripts.Render("~/bundles/scripts") %> - - - - -
- -
- -
- - - --%> - - - -
- - - - - -
- -
- -
- -
-
- -
- - -
-
- - -
- - -
-
- - -
    -
  • - -
    -
    - -
    • - - <%--
  • - - -
    -
    - - - -
    -
    -
    • - - --%> - - - -
- -
-
- - - -
-
- -
-
-

- - -

-
+<%@ Master Language="VB" CodeFile="Site.master.vb" Inherits="Site" %> + +<%@ Import Namespace="System.Web.Optimization" %> + + + + + + Sistema de Información Gerencial + + + + + + + <%: Scripts.Render("~/bundles/modernizr") %> + <%: Styles.Render("~/Content/AjaxControlToolkit/Styles/Bundle") %> + + + <%-- + + --%> + <%: Styles.Render("~/Metronic/assets/global/css/css") %> + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + + + + + <%--Site Scripts--%> + + + + <%: Scripts.Render("~/bundles/scripts") %> + + + + +
+ +
+ +
+ + + --%> + + + +
+ + + + + +
+ +
+ +
+ +
+
+ +
+ + +
+
+ + +
+ + +
+
+ + +
    +
  • + +
    +
    + +
    • + + <%--
  • + + +
    +
    + + + +
    +
    +
    • + + --%> + + + +
+ +
+
+ + + +
+
+ +
+
+

+ + +

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

<%# Eval("Empresa") %>

-
    - - -
  • -
    - 0 -
    - ... -
    -

    <%# Eval("Nombre") %>

    -
    - <%# Eval("Rol") %>
    - <%# Eval("Correo") %> -
    -
    -
    • -     -     -
- - - -
-
-
-
- Atras -
-
-
- - Mensajes Anteriores - -
-
-
-
-
-
- - -
- -
-
-
-
-
-
-
-
-

General

-
    -
  • -
    -
    -
    -
    - -
    -
    -
    -
    - You have 4 pending tasks. Take action - -
    -
    -
    -
    -
    -
    - Just now -
    -
    -
    • -
-

System

-
    -
  • -
    -
    -
    -
    - -
    -
    -
    -
    - You have 4 pending tasks. Take action - -
    -
    -
    -
    -
    -
    - Just now -
    -
    -
    • -
-
-
-
-
-

General Settings

-
    -
  • Enable Notifications - -
    • -
  • Allow Tracking - -
    • -
  • Log Errors - -
    • -
  • Auto Sumbit Issues - -
    • -
  • Enable SMS Alerts - -
    • -
-

System Settings

-
    -
  • Security Level - -
    • -
  • Failed Email Attempts - -
    • -
  • Secondary SMTP Port - -
    • -
  • Notify On System Error - -
    • -
  • Notify On SMTP Error - -
    • -
-
- -
-
-
-
-
-
-
- -
- - - - <%-- MODAL SOPORTE --%> - <%-- --%> - <%-- END MODAL SOPORTE --%> - - - - - - <%--
-
- - ADSistemas.MX 2015 © -
-
- -
-
--%> - - - +
+
+
+ + + +
+
+
+
+
    + +
+
+
+ + +
+ + +
+
+
+ + +
+
+
+
+ + + + +
+
+
+ +
+
+
+ + +

<%# Eval("Empresa") %>

+
    + + +
  • +
    + 0 +
    + ... +
    +

    <%# Eval("Nombre") %>

    +
    + <%# Eval("Rol") %>
    + <%# Eval("Correo") %> +
    +
    +
    • +     +     +
+ + + +
+
+
+
+ Atras +
+
+
+ + Mensajes Anteriores + +
+
+
+
+
+
+ + +
+ +
+
+
+
+
+
+
+
+

General

+
    +
  • +
    +
    +
    +
    + +
    +
    +
    +
    + You have 4 pending tasks. Take action + +
    +
    +
    +
    +
    +
    + Just now +
    +
    +
    • +
+

System

+
    +
  • +
    +
    +
    +
    + +
    +
    +
    +
    + You have 4 pending tasks. Take action + +
    +
    +
    +
    +
    +
    + Just now +
    +
    +
    • +
+
+
+
+
+

General Settings

+
    +
  • Enable Notifications + +
    • +
  • Allow Tracking + +
    • +
  • Log Errors + +
    • +
  • Auto Sumbit Issues + +
    • +
  • Enable SMS Alerts + +
    • +
+

System Settings

+
    +
  • Security Level + +
    • +
  • Failed Email Attempts + +
    • +
  • Secondary SMTP Port + +
    • +
  • Notify On System Error + +
    • +
  • Notify On SMTP Error + +
    • +
+
+ +
+
+
+
+
+
+
+ +
+ + + + <%-- MODAL SOPORTE --%> + <%-- --%> + <%-- END MODAL SOPORTE --%> + + + + + + <%--
+
+ + ADSistemas.MX 2015 © +
+
+ +
+
--%> + + + @@ -723,44 +723,44 @@
- - - - - - - - - <%: Scripts.Render("~/Metronic/assets/global/scripts/JS") %> - - - - - - - - - - + + + + + + + + + <%: Scripts.Render("~/Metronic/assets/global/scripts/JS") %> + + + + + + + + + + From 8601facfd90148a0b45460d58533702363629b4f Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 10 Dec 2020 23:06:14 -0700 Subject: [PATCH 6/7] mas alto el modal --- Inventarios/PopUpExistenciasAlmacen.aspx | 4 ++-- Inventarios/PopUpExistenciasAlmacen.aspx.vb | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx b/Inventarios/PopUpExistenciasAlmacen.aspx index b618d6320..3588e3237 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx +++ b/Inventarios/PopUpExistenciasAlmacen.aspx @@ -45,7 +45,7 @@ -
+
@@ -138,7 +138,7 @@
-
+
diff --git a/Inventarios/PopUpExistenciasAlmacen.aspx.vb b/Inventarios/PopUpExistenciasAlmacen.aspx.vb index 9e7fbd992..08d54fcc4 100644 --- a/Inventarios/PopUpExistenciasAlmacen.aspx.vb +++ b/Inventarios/PopUpExistenciasAlmacen.aspx.vb @@ -100,7 +100,7 @@ Partial Class Inventarios_Default If ValidarFiltrosSeleccionados() OrElse CvePS > 0 Then Dim ObjInventarios As New ClsInventarios() If ObjInventarios.GetExistenciasProducto(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"), - ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, TopSelect:=100) Then + ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, ExcluyeTransitorios:=1, TopSelect:=100) Then Dim dr As Data.DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("") If dr IsNot Nothing Then From ce8c6cc9df5b5e238e13729c21aafe123c9d1d2c Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 11 Dec 2020 11:52:33 -0700 Subject: [PATCH 7/7] -- en la agrupacion por compra, que se visualice el concepto de provision --- Compras/ProveedoresAuxiliar.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/ProveedoresAuxiliar.aspx.vb b/Compras/ProveedoresAuxiliar.aspx.vb index 529a6887d..41bcfe68c 100644 --- a/Compras/ProveedoresAuxiliar.aspx.vb +++ b/Compras/ProveedoresAuxiliar.aspx.vb @@ -83,7 +83,7 @@ Partial Class Compras_ProveedoresAuxiliar If ObjConta.GetProveedoresAuxiliar(DdlProveeedores.SelectedValue.ToEntero, -1, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveEmpresa, DdlOpcion.SelectedValue.ToEntero, DdlTipoProveedor.SelectedValue.ToEntero, DdlOpcionContabilizable.SelectedValue.ToEntero) Then If DdlOpcion.SelectedValue.ToEntero = 2 Then - GvP.DataSource = ObjConta.DtResultados.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) = 5 AND Importe >= 0,0,1) = 1 ") + GvP.DataSource = ObjConta.DtResultados '.FiltraParametros($" IIF(ISNULL(CveConceptoContable,0) in (5,311) AND Importe >= 0,0,1) = 1 ") 'excluye las provisiones Else GvP.DataSource = ObjConta.DtResultados End If