diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index b8fed70d2..a1583a93a 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -986,13 +986,6 @@ Public Class ClsPaginas Dim P As New ClsSubProyectos If P.GetSubProyectos(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = P.DtResultados P.Dispose() - - Dim msg As String = "aqui no se carga subproyectos" - If Request IsNot Nothing Then - msg = msg & Request.ServerVariables("URL") - End If - msg.GuardaLog() - End If If CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse Estatus <> -1 Then diff --git a/Ashx/SIGWeb.ashx b/Ashx/SIGWeb.ashx index 88ad21772..7b397f53f 100644 --- a/Ashx/SIGWeb.ashx +++ b/Ashx/SIGWeb.ashx @@ -661,6 +661,10 @@ Public Class SIGWeb : Implements IHttpHandler, IRequiresSessionState If Pagina.Contiene("ventas/ventas", "oc/oc", "inv/traspaso") AndAlso CveEmpresa.Contiene(72, 80, 119, 140, 141, 152, 153) Then UsaGlobal = False + If CveEmpresa = 140 And Pagina.Contiene("ventas/ventas") Then + AplicaParaVenta = 1 + End If + Dim objInv As New ClsInventarios If objInv.GetExistenciasProductosLike(Name, CveClasificacion, CveSubProyecto, Estatus.ToEntero, AplicaParaVenta, CveEmpresa) Then diff --git a/Bancos/ProductosFinancieros.aspx.vb b/Bancos/ProductosFinancieros.aspx.vb index c37c9eb41..ec2761da3 100644 --- a/Bancos/ProductosFinancieros.aspx.vb +++ b/Bancos/ProductosFinancieros.aspx.vb @@ -373,6 +373,11 @@ Partial Class Bancos_ProductosFinancieros Next + + If Not ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then + ErrorTransaccion = True + End If + 'Por el momento no hay movimiento para estas plantillas y no debe entrar aqui If UsuarioActual.Empresa.Funcionalidad(200).ToEntero > 0 And Not ErrorTransaccion Then If idCuentaContabilizacion > 0 Then @@ -386,9 +391,6 @@ Partial Class Bancos_ProductosFinancieros End If End If - If Not ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 4) Then - ErrorTransaccion = True - End If End If diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index bc337fbef..44ca59990 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -935,7 +935,7 @@ Partial Class Inventarios_RecepcionAlmacen End If If CveTipoCompra = 9 Then - CargaAlmacenes(-1, "21", CveTipoCompra) + CargaAlmacenes(-1, "27", CveTipoCompra) End If If CveTipoCompra = 10 Then diff --git a/Inventarios/RepAlmacen.aspx b/Inventarios/RepAlmacen.aspx index f347f623e..f9839c246 100644 --- a/Inventarios/RepAlmacen.aspx +++ b/Inventarios/RepAlmacen.aspx @@ -171,16 +171,8 @@ - - - - - - - - - - + + diff --git a/Inventarios/RepAlmacen.aspx.vb b/Inventarios/RepAlmacen.aspx.vb index 9f7fd0836..e3608d3e7 100644 --- a/Inventarios/RepAlmacen.aspx.vb +++ b/Inventarios/RepAlmacen.aspx.vb @@ -4,6 +4,8 @@ Option Explicit On Imports Extensiones Imports System.Data Imports Microsoft.Reporting.WebForms +Imports GemBox.Spreadsheet +Imports System.IO Partial Class Inventarios_RepAlmacen Inherits ClsPaginas @@ -76,10 +78,10 @@ Partial Class Inventarios_RepAlmacen End Sub #Region "I M P R I M I R " - Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click - 'GVAlmacen.ExportToExcel("RepFacturas_" & Now.ToShortDateString()) - GenerarPDF("EXCEL") - + Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click + + GenerarPDF("EXCEL") + 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)) diff --git a/PortalProveedor/PortalProveedor.aspx b/PortalProveedor/PortalProveedor.aspx index 16c1ca692..c4114baf4 100644 --- a/PortalProveedor/PortalProveedor.aspx +++ b/PortalProveedor/PortalProveedor.aspx @@ -167,9 +167,17 @@ -
- " style="display: inline-block; margin-right: -20px; width: 150px;" /> - +
+
+
+ + +
+
+
+ " style="display: inline-block; margin-right: -20px; width: 150px;" /> + +
@@ -185,6 +193,7 @@ + @@ -205,9 +214,17 @@ -
- " 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"> +
@@ -223,6 +240,7 @@ + diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb index 4b1f46663..370954255 100644 --- a/PortalProveedor/PortalProveedor.aspx.vb +++ b/PortalProveedor/PortalProveedor.aspx.vb @@ -250,6 +250,7 @@ Partial Class Portal_PortalProveedor If Not IsPostBack Then CveProveedor = UsuarioActual.CveProveedor + CargarSucursalesProveedor() Session("FileUpload") = "" ViewState("Orden") = "" @@ -355,7 +356,7 @@ Partial Class Portal_PortalProveedor Private Sub CargaCxP() Dim ObjMovtos As New ClsMovimientos() - If ObjMovtos.GetCxPProveedor(CveProveedor, "-1", "-1", -1, -1, -1, -1, -1, -1, -1, -1) Then + If ObjMovtos.GetCxPProveedor(CveProveedor, "-1", "-1", -1, -1, -1, -1, -1, -1, DdlProveedorSucursalCxCSucursal.SelectedValue.ToEntero, -1) Then GvCxP.DataSource = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda,OrdenVencimiento, FechaVencimiento") @@ -1813,9 +1814,34 @@ Partial Class Portal_PortalProveedor CargaDocumentacion() objDocumentos.Dispose() - End Sub - + End Sub + #End Region - - + +#Region "Sucursales del proveedor" + Private Sub CargarSucursalesProveedor() + Dim ObjProveedores As New ClsCompProveedores() + If ObjProveedores.GetSucursales(CveProveedor, UsuarioActual.CveEmpresa) Then + If ObjProveedores.DtResultados.Rows.Count > 0 Then + DdlProveedorSucursalCxCSucursal.DataSource = ObjProveedores.DtResultados + 'DdlProveedorSucursalPHistorial.DataSource = ObjProveedores.DtResultados + Else + DivSucursalCxC.Visible = False + DivSearch.Attributes("style") = "width:100%" + 'DivProveedorSucursalHistorial.Visible = False + End If + End If + ObjProveedores.Dispose() + DdlProveedorSucursalCxCSucursal.DataBind() + 'DdlProveedorSucursalPHistorial.DataBind() + DdlProveedorSucursalCxCSucursal.Items.Insert(0, New ListItem("Todas", "-1")) + 'DdlProveedorSucursalPHistorial.Items.Insert(0, New ListItem("Seleccione", "-1")) + End Sub + + Protected Sub DdlProveedorSucursalCxCSucursal_Changed(sender As Object, e As EventArgs) + CargaCxP() + End Sub +#End Region + + End Class \ No newline at end of file diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 58f1d0fa1..8df466012 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -23016,6 +23016,7 @@ Partial Class Ventas Exit Sub End If + DeshabilitarAplicarNotaDeCredito(LblRFC.Text) AplicaNCMasiva = False AplicaNC = False