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

-- vista de almacen

Browse Source
This commit is contained in:
rrene
2025-03-07 10:12:44 -07:00
parent baad622635
commit 620e63fbc2
1 changed files with 19 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Inventarios/PrestamosdeProveedor.aspx.vb
View File

@@ -105,22 +105,16 @@ Partial Class Inventarios_PrestamosdeProveedor
If e.Row.DataKey("AplicaLote").ToString = "True" Then If e.Row.DataKey("AplicaLote").ToString = "True" Then
e.Row.FCLiteral("LtlLote").Visible = False e.Row.FCLiteral("LtlLote").Visible = False
e.Row.FCTextBox("TxtLote").Visible = True e.Row.FCTextBox("TxtLote").Visible = True
End If End If
If e.Row.DataKey("AplicaCaducidad").ToString = "True" Then If e.Row.DataKey("AplicaCaducidad").ToString = "True" Then
e.Row.FCLiteral("LtlFechaCaducidad").Visible = False e.Row.FCLiteral("LtlFechaCaducidad").Visible = False
e.Row.FCTextBox("TxtFechaCaducidad").Visible = True e.Row.FCTextBox("TxtFechaCaducidad").Visible = True
End If End If
End If End If
e.Row.FCTextBox("TxtCantidad").Visible = True e.Row.FCTextBox("TxtCantidad").Visible = True
e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad"))) e.Row.FCTextBox("TxtCantidad").Attributes.Add("onkeyup", String.Format("ValidaCantidad(this,{0});", e.Row.DBCampo("Cantidad")))
End If End If
''FUNCIONALIDAD PISTOLA DE CODIGOS ''FUNCIONALIDAD PISTOLA DE CODIGOS
@@ -133,7 +127,6 @@ Partial Class Inventarios_PrestamosdeProveedor
Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs) Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
If GvD.Rows.Count > 0 Then If GvD.Rows.Count > 0 Then
'Valida Movimientos 'Valida Movimientos
@@ -147,7 +140,7 @@ Partial Class Inventarios_PrestamosdeProveedor
Dim FechaCaducidad As Date = MinFecha Dim FechaCaducidad As Date = MinFecha
If gvr.DataKey("Serie") <> "" Then Serie = gvr.DataKey("Serie") 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("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") '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")) 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) Alert("No hay movimientos que realizar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
Exit Sub Exit Sub
End If End If
Dim ObjInventario As New ClsInventarios Dim ObjInventario As New ClsInventarios
Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL()) Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
@@ -251,10 +241,8 @@ Partial Class Inventarios_PrestamosdeProveedor
Else Else
ErrorMovInv = True ErrorMovInv = True
End If End If
End If End If
If Not ErrorMovInv Then If Not ErrorMovInv Then
ObjInventario.Commit() ObjInventario.Commit()
@@ -314,15 +302,19 @@ Partial Class Inventarios_PrestamosdeProveedor
Dim SbFiltros As New StringBuilder() Dim SbFiltros As New StringBuilder()
'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}") 'SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
SbFiltros.AppendFormat("SubProyecto : {0}|", DdlSubProyecto.SelectedItem.Text) Dim listFiltros As New List(Of String)
SbFiltros.AppendFormat("Proveedor : {0}|", ddlProveedor.txtText.Value) listFiltros.Add($"SubProyecto : {DdlSubProyecto.SelectedItem.Text}")
SbFiltros.AppendFormat("Folio : {0}|", TxtFolioEntrega.Text) If ddlProveedor.txtValue.Value.ToEntero > 0 Then
'If DdlDivisor.SelectedValue <> "1" Then SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text) listFiltros.Add($"Proveedor : { ddlProveedor.txtText.Value}")
'SbFiltros.AppendFormat("Ejercicio : {0} Periodo : {1}|", DdlEjercicio.SelectedItem.Text, DdlPeriodo.SelectedItem.Text) Else
listFiltros.Add($"Proveedor : Todos")
End If
If TxtFolioEntrega.Text.Trim.Length > 0 Then listFiltros.Add($"Folio : {TxtFolioEntrega.Text}")
GvD.Columns(1).Visible = False GvD.Columns(1).Visible = False
UppEntrega.Update() 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 GvD.Columns(1).Visible = True
UppEntrega.Update() UppEntrega.Update()