From 620e63fbc2ec8153ec6c6686ed52b7289efab986 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 7 Mar 2025 10:12:44 -0700 Subject: [PATCH] -- vista de almacen --- Inventarios/PrestamosdeProveedor.aspx.vb | 46 ++++++++++-------------- 1 file changed, 19 insertions(+), 27 deletions(-) diff --git a/Inventarios/PrestamosdeProveedor.aspx.vb b/Inventarios/PrestamosdeProveedor.aspx.vb index 7f9d52848..237e97ee7 100644 --- a/Inventarios/PrestamosdeProveedor.aspx.vb +++ b/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: {0} ", 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()