Local

Inventarios/Apartados.aspx.vb

@@ -806,7 +806,7 @@ Partial Class Inventarios_Apartados
         If e.Row.RowType = DataControlRowType.DataRow Then
             e.Row.FCTextBox("TxtCantidad").Attributes.Add("onblur", String.Format("ValidaCantidad(this,{0})", e.Row.DBCampo("Cantidad")))
             If CBool(e.Row.DBCampo("AplicaSeccion")) AndAlso DdlAlmacenDestinoDesapartado.SelectedValue.ToEntero > 0 Then
-                Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoDesapartado.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero)
+                Dim dtt As DataTable = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoDesapartado.SelectedValue.ToEntero, e.Row.DBCampo("CvePS").ToEntero).FiltraParametros("Predeterminado = 1")
                 e.Row.FCDropDownList("DdlSeccionAlmacen").Visible = True
                 e.Row.FCDropDownList("DdlSeccionAlmacen").DataSource = dtt
                 e.Row.FCDropDownList("DdlSeccionAlmacen").DataBind()

Inventarios/RepMaximoMinimo.aspx

@@ -67,6 +67,9 @@
     <li>
         <asp:LinkButton ID="LnkPdf" runat="server"><i class="fa fa-ad-pdf"></i> Genera PDF</asp:LinkButton>
     </li>
+    <li>
+        <asp:LinkButton ID="LnkCargarMaximosMinimos" OnClick="LnkCargarMaximosMinimos_Click" runat="server"><i class="fa fa-ad-excel"></i> Cargar Excel</asp:LinkButton>
+    </li>
     <li>
         <asp:LinkButton ID="LnkExportar" runat="server"><i class="fa fa-ad-excel"></i> Genera Excel</asp:LinkButton>
     </li>
@@ -347,7 +350,74 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
+    
+    <div id="DmodalCargarMaximosMinimos" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel ID="Upcargamasiva" class="modal-dialog" tabindex="-1" runat="server" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content rowpadding">
+                    <div class="modal-header">
+                        <button type="button" class="close" data-dismiss="modal" aria-label="Close">
+                            <span aria-hidden="true">&times;</span>
+                        </button>
+                        <h4 class="modal-title uppercase" runat="server" style="text-align: left">CARGA MáSIVA DE MAXIMOS Y MINIMOS</h4>
+                    </div>
+                    <div class="modal-body">
 
+                        <div class="portlet light smmallpadding bordered" id="DownFormato">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-download font-green"></i>
+                                    <span class="caption-subject bold uppercase">Paso 1: Formato</span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="collapse" data-original-title="" title=""></a>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding">
+                                <div class="text-center">
+
+                                    <asp:LinkButton ID="LnkDescargarFormato" OnClick="LnkDescargarFormato_Click" CssClass="btn btn-primary" runat="server"> <i class="fa fa-download"></i> Descargar</asp:LinkButton>
+                                </div>
+                            </div>
+                        </div>
+                        <div class="portlet light smmallpadding bordered" id="CargarArchivo">
+                            <div class="portlet-title">
+                                <div class="caption font-green">
+                                    <i class="fa fa-download font-green"></i>
+                                    <span class="caption-subject bold uppercase">Paso 2:Cargar Formato</span>
+                                </div>
+                                <div class="tools">
+                                    <a href="javascript:;" class="expand" data-original-title="" title=""></a>
+                                </div>
+                                <div class="actions">
+                                    <div class="btn-group">
+                                        
+                                    </div>
+                                </div>
+                            </div>
+                            <div class="portlet-body rowpadding " style="display: none;">
+                                 
+                                <asp:TextBox ID="TxtArchivoSua" CssClass="ADSdropzone hidden" runat="server"></asp:TextBox>
+                            </div>
+                        </div>
+
+                    </div>
+
+                    <div class="modal-footer">
+                        <asp:UpdatePanel runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <asp:LinkButton ID="LnkUpFile" OnClick="LnkUpFile_Click" CssClass="btn btn-primary" runat="server"><i class="fa fa-upload"></i> Subir</asp:LinkButton>
+                                <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
+                    </div>
+                </div>
+            </ContentTemplate>
+            <Triggers>
+                <asp:PostBackTrigger ControlID="LnkDescargarFormato" />
+            </Triggers>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
     <script src="/Metronic/assets/global/scripts/datatable.js"></script>

Inventarios/RepMaximoMinimo.aspx.vb

@@ -357,4 +357,15 @@ Partial Class Inventarios_RepMaximoMinimo
     End Sub
 #End Region
 
+    Protected Sub LnkUpFile_Click(sender As Object, e As EventArgs)
+        RegistraScript("$('#DmodalCargarMaximosMinimos').modal('hide');")
+    End Sub
+    Protected Sub LnkCargarMaximosMinimos_Click(sender As Object, e As EventArgs)
+
+        RegistraScript("$('#DmodalCargarMaximosMinimos').modal();")
+        Upcargamasiva.Update()
+    End Sub
+    Protected Sub LnkDescargarFormato_Click(sender As Object, e As EventArgs)
+
+    End Sub
 End Class

Inventarios/RepTraspasoAlmacen.aspx

@@ -202,14 +202,14 @@
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Traspaso de Almacén"
-                ToolTip="Remisiones sin Facturar"
+                ToolTip="Remisiones sin Facturar" data-rows="2"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
                 data-sort="true" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%" />
                     <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" />
-                    <asp:BoundField HeaderText="Producto" DataField="PS"  ItemStyle-HorizontalAlign="Left"/>
+                    <asp:BoundField HeaderText="Producto" DataField="PS"  ItemStyle-HorizontalAlign="Left"/> 
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Left"/>                    
                     <asp:BoundField HeaderText="Valor" DataField="Valor" ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:n}" />
                 </Columns>

Inventarios/RepTraspasoAlmacen.aspx.vb

@@ -107,10 +107,15 @@ Partial Class RepTraspasoAlmacen
 
                 e.Row.Cells(0).Text = String.Format("Folio: <a class=""texto"" style=""color:white;"" target='_blank' href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}'>{0}</a> ", e.Row.DBCampo("FolioSalida"), e.Row.DBCampo("CveMovimientoSalida"))
                 e.Row.Cells(1).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToString.ToDate.ToShortDateString)
-                e.Row.Cells(3).Text = String.Format("Almacen Origen: {0}&nbsp;&nbsp;&nbsp;&nbsp; Almacen Destino: {1} &nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Responsable: {2}", e.Row.DBCampo("Almacen"), e.Row.DBCampo("AlmacenDestino"), e.Row.DBCampo("Recibio"))
+                e.Row.Cells(2).Text = String.Format("<span style =""white-space: nowrap;"">{0}</span>", e.Row.DBCampo("Almacen"))
+                e.Row.Cells(3).Text = String.Format("<span style =""white-space: nowrap;"">{0}</span>", e.Row.DBCampo("AlmacenDestino"))
+                e.Row.Cells(4).Text = String.Format("Responsable: {0}", e.Row.DBCampo("Recibio"))
             ElseIf e.Row.DBCampo("FechaMovto") = "" Then
                 e.Row.CssClass = "Totales"
                 e.Row.Cells(0).Text = "Total General"
+                e.Row.Cells(2).Text = String.Format("<span style =""white-space: nowrap;"">Almacen Origen</span>")
+                e.Row.Cells(3).Text = String.Format("<span style =""white-space: nowrap;"">Almacen Destino</span>")
+            Else
             End If
 
         End If

Inventarios/ResguardoMaterial.aspx.vb

@@ -816,7 +816,7 @@ Partial Class Inventarios_ResguardoMaterial
             Case 23 ' Resguardo
 
                 'SALIDA ORIGEN
-                CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 24, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, CveCliente:=CveCliente, CveProveedor:=CveProveedor)
+                CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, 24, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, CveCliente:=CveCliente, CveProveedor:=CveProveedor, Modulo:="ResgMat1")
                 FolioSalida = ObjInventario.Folio
 
                 If CveMovimientoSalida <= 0 Then
@@ -839,7 +839,7 @@ Partial Class Inventarios_ResguardoMaterial
 
                 Cont = 0
                 If Not TieneError Then
-                    CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 2, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveMovimientoRelacionado:=CveMovimientoSalida, CveCliente:=CveCliente, CveProveedor:=CveProveedor)
+                    CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestino.SelectedValue.ToEntero, 2, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservaciones.Text, CvePersonal:=CvePersonal, CveMovimientoRelacionado:=CveMovimientoSalida, CveCliente:=CveCliente, CveProveedor:=CveProveedor, Modulo:="ResgMat2")
                     FolioEntrada = ObjInventario.Folio
 
                     If CveMovimientoEntrada <= 0 Then
@@ -873,7 +873,7 @@ Partial Class Inventarios_ResguardoMaterial
 
 
                 'SALIDA ORIGEN - RESGUARDO
-                CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenLiberación, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveAlmacenDestino:=DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True)
+                CveMovimientoSalida = ObjInventario.AddMovimiento(CveAlmacenLiberación, 3, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveAlmacenDestino:=DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True, Modulo:="ResgMat3")
                 FolioSalida = ObjInventario.Folio
                 Dim DiccionarioSecciones As New HybridDictionary
 
@@ -899,7 +899,7 @@ Partial Class Inventarios_ResguardoMaterial
 
 
                 If Not TieneError Then
-                    CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, 23, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveMovimientoRelacionado:=CveMovimientoSalida, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True)
+                    CveMovimientoEntrada = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberacion.SelectedValue.ToEntero, 23, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Observaciones:=TxtObservacionesLiberacion.Text, CvePersonal:=CvePersonalLiberacion, CveMovimientoRelacionado:=CveMovimientoSalida, CveProveedor:=CveProveedorLiberacion, CveCliente:=CveClienteLiberacion, MovimientoFijo:=True, Modulo:="ResgMat4")
                     FolioEntrada = ObjInventario.Folio
 
                     If CveMovimientoEntrada <= 0 Then

Inventarios/TraspasoAlmacen.aspx.vb

@@ -2845,6 +2845,19 @@ Partial Class Inventarios_TraspasoAlmacen
             DdlSeccionAlmacen.DataBind()
             DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
             UpDatos.Update()
+
+            Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("")
+            If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados
+
+                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen  IN (26) AND Estatus = 'Activo'")
+                DdlAlmacenDestino.DataBind()
+                DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            Else
+
+                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo'")
+                DdlAlmacenDestino.DataBind()
+                DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            End If
         End If
     End Sub