Merge branch 'master' of http://192.168.10.111:8383/SIG

Inventarios/EntregaAlmacen.aspx.vb

@@ -6,8 +6,6 @@ Imports System.Data.SqlClient
 Imports System.IO
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-
-
 Partial Class Inventarios_EntregaAlmacen
     Inherits ClsPaginas
 
@@ -699,8 +697,8 @@ Partial Class Inventarios_EntregaAlmacen
                             Dim drvs As DataRow = objV.DtResultados.FiltroPrimero("")
 
                             LtlRegistra.Text = drvs("VendedorNombre").ToString
-
-                            If drvs("Saldo").ToString.ToDecimal > 0 AndAlso (drvs("CondicionesPago").ToString = "0" Or drvs("TipoDocto").ToString = "Rem") Then
+                            'subproyecto e-commerce, si se permite surtir, sin tener registro de pago. cvesubproyecto:12849
+                            If drvs("Saldo").ToString.ToDecimal > 0 AndAlso drvs("CveSubProyecto").ToString <> "12849" AndAlso (drvs("CondicionesPago").ToString = "0" OrElse drvs("TipoDocto").ToString = "Rem") Then
                                 Alert("El documento NO se encuentra pagado", TipoMensaje.MsgError)
                                 BtnGuardar.Visible = False
                             End If
@@ -3458,11 +3456,11 @@ Partial Class Inventarios_EntregaAlmacen
             End If
 
             Limpia()
-                CargaPendientes()
-                LimpiaCampos()
-                CargaBitacora = False
-            Else
-                ObjInventario.RollBack()
+            CargaPendientes()
+            LimpiaCampos()
+            CargaBitacora = False
+        Else
+            ObjInventario.RollBack()
             Alert(TextoError.ToString(), TipoMensaje.MsgError)
             RegistraScript("playsonidito('142608__autistic-lucario__error.wav')")
         End If

Inventarios/KardexAlmacenHorizontal.aspx

@@ -371,12 +371,12 @@ table.adssigscroll {
                             <HeaderStyle HorizontalAlign="Left" Width="110px" />
                         </asp:TemplateField>
 
-                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="460px">
+                        <asp:TemplateField ItemStyle-HorizontalAlign="Left" ItemStyle-Width="360px">
                             <HeaderTemplate>
                                 Producto                                   
                             </HeaderTemplate>
                             <ItemTemplate>
-                                <div class="truncate" style="max-width: 450px">
+                                <div class="truncate" style="max-width: 350px">
                                     <asp:Label runat="server" Text='<%# Eval("PS") %>'></asp:Label>
                                 </div>
                             </ItemTemplate>

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -128,15 +128,17 @@ Partial Class Inventarios_KardexAlmacenHorizontal
             ddlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
             ddlProducto2.ddlWS.Attributes.Add("data-idClasificacion", DdlClasificacion.ClientID)
             DdlClasificacion.AutoPostBack = False
-
-            DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
         Else
             ddlProducto2.ddl.Items.Add(New ListItem("Seleccione", "-1"))
             ddlProducto2.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
+        End If
 
-            DdlProveedor.ddl.Items.Add(New ListItem("Seleccione", "-1"))
+        If DdlProveedor.UsaWebService Then
+            DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
+        Else
             DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
             DdlProveedor.DataBind()
+            DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
         End If
 
     End Sub

Inventarios/Remanufactura.aspx.vb

@@ -619,8 +619,7 @@ Partial Class Inventarios_Remanufactura
                            AtencionA:=factura.AtencionA, TelefonoGenerico:="", CveContrato:=factura.CveContrato, CveVentaPadre:=factura.CveVentaPadre, Det_FechaOrdenCompra:=factura.Det_FechaOrdenCompra, Det_OrdenCompra:=factura.Det_OrdenCompra, otros:=factura.Otros,
                            Entrega:="", Vigencia:=MinFecha,
                            CveAlmacenTraspasoDestino:=CveAlmacenTraspasoDestino, CveAlmacenTraspasoOrigen:=CveAlmacenTraspasoOrigen, CveDireccionEnvio:=-1, CveOC:=-1, IEPS:=factura.IEPSTC, Serie:=factura.Serie, CveCondicionEntrega:=-1,
-                           PedidoContrato:="", CveSubProyecto:=CveSubProyecto, CveSubProyectoCobranza:=CveSubProyecto, CveSubProyectoEjecucion:=CveSubProyecto, CveFormaPago33:=factura.CveFormaPago,
-                           CveMetodoPago:=factura.CveMetodoPago, CveUsoCFDI:=factura.CveUsoCFDI) Then
+                           PedidoContrato:="", CveSubProyecto:=CveSubProyecto, CveSubProyectoCobranza:=CveSubProyecto, CveSubProyectoEjecucion:=CveSubProyecto, CveFormaPago33:=factura.CveFormaPago, CveUsoCFDI:=factura.CveUsoCFDI) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         End If