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 @@
-
@@ -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