AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2025-03-08 11:21:00 -07:00
parent 834b11123d c546f0b72b
commit 5c55d3d968
6 changed files with 171 additions and 206 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -110,11 +110,11 @@ Partial Class Inventarios_PrestamosdeProveedor
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
@@ -303,18 +303,41 @@ 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}")
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}")
If TxtFolioEntrega.Text.Trim.Length > 0 Then
listFiltros.Add($"Folio : {TxtFolioEntrega.Text}")
End If
'SbFiltros.AppendFormat("SubProyecto : {0}|", DdlSubProyecto.SelectedItem.Text)
'If ddlProveedor.txtValue.Value.ToEntero > 0 Then
' SbFiltros.AppendFormat("Proveedor : {0}|", ddlProveedor.txtText.Value)
'Else
' SbFiltros.AppendFormat("Proveedor : Todos|")
'End If
'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)
GvD.Columns(1).Visible = False
UppEntrega.Update()
GvD.ExportToExcelGembox($"PrestamoProveedores_{NowADS().ToString("yyyy.MM.dd.HHmmss")}", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=String.Join(", ", listFiltros))
GvD.ExportToExcelGembox($"PrestamosProveedores{NowADS().ToString("yyyyMMddHHmmss")}", UsuarioActual, $"Préstamos de Proveedores", DatoTituloExtra:="", DatosFiltros:=String.Join(", ", listFiltros))
GvD.Columns(1).Visible = True
UppEntrega.Update()