-- vista de almacen

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -93,9 +93,9 @@ Partial Class Inventarios_PrestamosdeProveedor
                 e.Row.FCTextBox("TxtCantidad").Visible = False
 
                 e.Row.Cells(2).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(3).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToDate.ToShortDateString)
+                e.Row.Cells(3).Text = String.Format("{0}", e.Row.DBCampo("FechaMovto").ToDate.ToShortDateString)
                 e.Row.Cells(4).Text = String.Format("{0}", e.Row.DBCampo("Almacen"))
-                e.Row.Cells(5).Text = String.Format("Proveedor:  {0}  ", e.Row.DBCampo("RazonSocial"))
+                e.Row.Cells(5).Text = String.Format("Proveedor: {0}  ", e.Row.DBCampo("RazonSocial"))
 
             Else
                 If TxtFolioEntrega.Text <> "" Then
@@ -105,35 +105,28 @@ Partial Class Inventarios_PrestamosdeProveedor
                     If e.Row.DataKey("AplicaLote").ToString = "True" Then
                         e.Row.FCLiteral("LtlLote").Visible = False
                         e.Row.FCTextBox("TxtLote").Visible = True
-
                     End If
 
                     If e.Row.DataKey("AplicaCaducidad").ToString = "True" Then
                         e.Row.FCLiteral("LtlFechaCaducidad").Visible = False
                         e.Row.FCTextBox("TxtFechaCaducidad").Visible = True
-
-                    End If
-
-
+                    End If
                 End If
                 e.Row.FCTextBox("TxtCantidad").Visible = True
                 e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
-
-
 
             End If
 
-                ''FUNCIONALIDAD PISTOLA DE CODIGOS
-                'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
-                '    e.Row.FCTextBox("TxtCantidad").Enabled = False
-                'End If
+            ''FUNCIONALIDAD PISTOLA DE CODIGOS
+            'If UsuarioActual.Empresa.Funcionalidad(132) = "1" And e.Row.DBCampo("CodigoBarras").Trim <> "" Then
+            '    e.Row.FCTextBox("TxtCantidad").Enabled = False
+            'End If
 
-            End If
+        End If
     End Sub
 
     Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
 
-
         If GvD.Rows.Count > 0 Then
 
             'Valida Movimientos
@@ -147,7 +140,7 @@ Partial Class Inventarios_PrestamosdeProveedor
                         Dim FechaCaducidad As Date = MinFecha
                         If gvr.DataKey("Serie") <> "" Then Serie = gvr.DataKey("Serie")
                         If gvr.DataKey("AplicaLote") = "True" Then Lote = gvr.FCTextBox("TxtLote").Text  ' gvr.DataKey("Lote")
-                        If gvr.DataKey("AplicaCaducidad") = "True" Then FechaCaducidad = gvr.FCTextBox("TxtFechaCaducidad").Text.todate ' gvr.DataKey("Lote")
+                        If gvr.DataKey("AplicaCaducidad") = "True" Then FechaCaducidad = gvr.FCTextBox("TxtFechaCaducidad").Text.ToDate ' gvr.DataKey("Lote")
                         'If gvr.DataKey("FechaCaducidad").ToDate > MinFecha Then FechaCaducidad = gvr.DataKey("FechaCaducidad")
 
                         Dim Valido = ValidaExistencia(gvr.FCTextBox("TxtCantidad").Text.ToDecimal, gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, gvr.DataKey("CveSeccionAlmacen").ToEntero, Serie, Lote, FechaCaducidad, gvr.DataKey("PS"))
@@ -163,9 +156,6 @@ Partial Class Inventarios_PrestamosdeProveedor
                 Alert("No hay movimientos que realizar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
             End If
-
-
-
             Dim ObjInventario As New ClsInventarios
             Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
 
@@ -251,10 +241,8 @@ Partial Class Inventarios_PrestamosdeProveedor
                 Else
                     ErrorMovInv = True
                 End If
-
             End If
 
-
             If Not ErrorMovInv Then
                 ObjInventario.Commit()
 
@@ -314,15 +302,19 @@ Partial Class Inventarios_PrestamosdeProveedor
 
         Dim SbFiltros As New StringBuilder()
         'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
-        SbFiltros.AppendFormat("SubProyecto : {0}|", DdlSubProyecto.SelectedItem.Text)
-        SbFiltros.AppendFormat("Proveedor : {0}|", ddlProveedor.txtText.Value)
-        SbFiltros.AppendFormat("Folio : {0}|", TxtFolioEntrega.Text)
-        'If DdlDivisor.SelectedValue <> "1" Then SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
-        'SbFiltros.AppendFormat("Ejercicio : {0}  Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text)
+        Dim listFiltros As New List(Of String)
+        listFiltros.Add($"SubProyecto : {DdlSubProyecto.SelectedItem.Text}")
+        If ddlProveedor.txtValue.Value.ToEntero > 0 Then
+            listFiltros.Add($"Proveedor : { ddlProveedor.txtText.Value}")
+        Else
+            listFiltros.Add($"Proveedor : Todos")
+        End If
+
+        If TxtFolioEntrega.Text.Trim.Length > 0 Then listFiltros.Add($"Folio : {TxtFolioEntrega.Text}")
 
         GvD.Columns(1).Visible = False
         UppEntrega.Update()
-        GvD.ExportToExcelGembox("PrestamosProveedores", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=SbFiltros.ToString())
+        GvD.ExportToExcelGembox($"PrestamoProveedores_{NowADS().ToString("yyyy.MM.dd.HHmmss")}", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=String.Join(", ", listFiltros))
         GvD.Columns(1).Visible = True
         UppEntrega.Update()