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

2
Inventarios/RecepcionEntrega.aspx.vb
View File

@@ -1894,7 +1894,7 @@ Partial Class Inventarios_RecepcionEntrega
'' TERMINA: APARTADOS '' TERMINA: APARTADOS
' COMIENZA: GARANTIAS ' 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 CveAlmacenGarantia As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 6).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto={CveSubProyecto}").ToEntero()
Dim DtGarantias As DataTable = Nothing Dim DtGarantias As DataTable = Nothing