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

correcciones a carga centro de costo

Browse Source
This commit is contained in:
rrene
2020-07-16 14:53:07 -07:00
parent 8a3f0e47a8
commit 26518379d3
4 changed files with 73 additions and 74 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
Compras/Compras.aspx.vb
View File

@@ -7385,21 +7385,23 @@ Partial Class Compras_Compras
End If
''Unificacion de PrePolizas
'If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
' If Not ObjConta.PrePolizaUnificacion(Ant.CvePrePoliza, CvePrePoliza) Then
' ErrorPrepoliza = True
' Alert("No se pudo unificar la prepoliza", TipoMensaje.MsgError)
' End If
'End If
If UsuarioActual.CveEmpresa.Contiene(83) Then
'Unificacion de PrePolizas
If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
If Not ObjConta.PrePolizaUnificacion(Ant.CvePrePoliza, CvePrePoliza) Then
ErrorPrepoliza = True
Alert("No se pudo unificar la prepoliza", TipoMensaje.MsgError)
End If
End If
''Simplificacion de PrePolizas
'If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
' If Not ObjConta.PrePolizaSimplificacion(Ant.CvePrePoliza, UsuarioActual.CveEmpresa) Then
' ErrorPrepoliza = True
' Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
' End If
'End If
'Simplificacion de PrePolizas
If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
If Not ObjConta.PrePolizaSimplificacion(Ant.CvePrePoliza, UsuarioActual.CveEmpresa) Then
ErrorPrepoliza = True
Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError)
End If
End If
End If
Next
importeMovimiento = 0
@@ -17357,7 +17359,7 @@ Partial Class Compras_Compras
Private Sub CargaSubProyecto()
Dim CveProyecto = If(DdlProyecto.SelectedValue.ToEntero > 0, DdlProyecto.SelectedValue.ToEntero, -1)
DdlSubProyecto.Items.Clear()
If CveProyecto > 0 Or UsuarioActual.Empresa.Tipo_CentroCosto.Contiene(1, 2) Then
If CveProyecto > 0 Then
DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto, -1, UsuarioActual.CveEmpresa, 1))
End If
DdlSubProyecto.DataBind()
@@ -19692,7 +19694,6 @@ Partial Class Compras_Compras
Next
TmpDT.AcceptChanges()
Alert((TmpDT.Select("Consec = " & gvr.RowIndex + 1)(0))("NoDeducible").ToString())
AddPS2(EsNoDeducible:=EsNoDeducible)
End Sub

2
Compras/RepCxP.aspx.vb
View File

@@ -177,7 +177,7 @@ Partial Class Compras_RepCxP
GvCxP.Columns(10).Visible = False
Dim Contador As Integer = 2
Dim CargaColumnaVencido As Boolean = False
Dim Dr As DataRow = Mov.DtResultados.Rows(0)
Dim Dr As DataRow = DtDatos.Rows(0)
If Dr("NomC1").ToString <> "" Then
GvCxP.Columns(Contador).Visible = True
GvCxP.Columns(Contador).HeaderText = Dr("NomC1").ToString