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

Tipo Docto ingresos en surtir garantia

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2019-10-08 11:41:00 -07:00
parent 00c02d2641
commit ff856516da
2 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
Contratos/Contrato.aspx.vb
View File

@@ -1755,11 +1755,11 @@ Partial Class Contratos_Default
Gv.Columns(3).Visible = False
Gv.Columns(9).Visible = False
End If
If (Gv.Rows.Count > 0) Then
Gv.UseAccessibleHeader = True
Gv.HeaderRow.TableSection = TableRowSection.TableHeader
RegistraScript("OrdenarGVPresupuestos();")
End If
'If (Gv.Rows.Count > 0) Then
' Gv.UseAccessibleHeader = True
' Gv.HeaderRow.TableSection = TableRowSection.TableHeader
' RegistraScript("OrdenarGVPresupuestos();")
'End If
UpGV.Update()
End Sub
Protected Sub BtnAutorizar_Click(sender As Object, e As EventArgs) Handles BtnAutorizar.Click
@@ -2020,11 +2020,11 @@ Partial Class Contratos_Default
GvInsumos.DataSource = DtTemp
DtSuministros = DtTemp
GvInsumos.DataBind()
If (GvInsumos.Rows.Count > 0) Then
GvInsumos.UseAccessibleHeader = True
GvInsumos.HeaderRow.TableSection = TableRowSection.TableHeader
RegistraScript("OrdenarGVPresupuestosInsumos();")
End If
'If (GvInsumos.Rows.Count > 0) Then
' GvInsumos.UseAccessibleHeader = True
' GvInsumos.HeaderRow.TableSection = TableRowSection.TableHeader
' RegistraScript("OrdenarGVPresupuestosInsumos();")
'End If
UpGVInsumos.Update()
End Sub

2
Inventarios/RecepcionEntrega.aspx.vb
View File

@@ -1894,7 +1894,7 @@ Partial Class Inventarios_RecepcionEntrega
'' TERMINA: APARTADOS
' COMIENZA: GARANTIAS
If TipoDocto.Contiene("Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then
If TipoDocto.Contiene("Ing", "Rem") AndAlso UsuarioActual.CveEmpresa = 140 AndAlso TipoMovimiento = 1 Then
Dim CveAlmacenGarantia As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
Dim DtGarantias As DataTable = Nothing