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:
janeth arvizu
2019-10-08 13:40:59 -07:00
parent 40ccbeebfc a20f348a3a
commit 5a4b3042ba
3 changed files with 95 additions and 87 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Contabilidad/RegPrePoliza.aspx.vb
View File

@@ -218,6 +218,7 @@ Partial Class ContabilidadC_RegPrePoliza
TipoPlantilla = 0 TipoPlantilla = 0
If IfNull(Request("Tipo"), "").ToString = "Ing" Then If IfNull(Request("Tipo"), "").ToString = "Ing" Then
TipoPlantilla = 1 TipoPlantilla = 1
LblEncabezado.Text = "Otros Ingresos" LblEncabezado.Text = "Otros Ingresos"
@@ -271,6 +272,7 @@ Partial Class ContabilidadC_RegPrePoliza
End Sub End Sub
Private Sub CreaDT() Private Sub CreaDT()
DtMovimientos = New DataTable("Movimientos") DtMovimientos = New DataTable("Movimientos")
Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True Dim IDMov As DataColumn = DtMovimientos.Columns.Add("IdMov", Type.GetType("System.Int32")) : IDMov.AutoIncrement = True
@@ -502,7 +504,13 @@ Partial Class ContabilidadC_RegPrePoliza
'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla) 'GvPlantillas.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
'GvPlantillas.DataBind() 'GvPlantillas.DataBind()
If UsuarioActual.CveEmpresa.Contiene(120) Then
DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, -1)
Else
DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla) DdlPlantilla.DataSource = GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa, TipoPlantilla)
End If
DdlPlantilla.DataBind() DdlPlantilla.DataBind()
DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53")) DdlPlantilla.Items.Insert(0, New ListItem("Plantilla Personalizada", "53"))
End Sub End Sub

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