diff --git a/App_Code/ClsSisRoles.vb b/App_Code/ClsSisRoles.vb index 6cc5d759b..0df89d1ae 100644 --- a/App_Code/ClsSisRoles.vb +++ b/App_Code/ClsSisRoles.vb @@ -329,6 +329,26 @@ Public Class ClsSisRoles Return Retorno End Function + Public Function UpdateRolAdjunto(CveRol As Integer, Adjunto As String, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Sis_RolAdjuntoUpdate") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveRol", SqlDbType.Int).Value = CveRol + .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el adjunto del rol.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) If Not Me.disposedValue Then diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 786b351da..db74efea7 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1799,6 +1799,21 @@ Partial Class General_SaldosIniciales Dim CveClasificacion As Integer = drr("CveClasificacion").ToString().ToEntero() Dim dtsubp As DataTable = GlobalDTSubProyectos(UsuarioActual.CveEmpresa) + If UsuarioActual.CveEmpresa = 189 Then + For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows + Dim SubTotal = Row("SubTotal").ToString().ToDecimal.RoundSQL + Dim IVA = Row("IVA").ToString().ToDecimal.RoundSQL + Dim Total = Row("Total").ToString().ToDecimal.RoundSQL + Dim Cantidad = Row("Cantidad").ToString.ToDecimal + Dim PU = Row("PU").ToString.ToDecimal + + If Total - SubTotal - IVA <> 0 Then + Row("PU") = (Total - IVA) / Cantidad + Row("SubTotal") = Row("PU").ToString.ToDecimal * Cantidad + End If + Next + End If + Dim CountRow As Integer = 1 Dim LastSerieFolioTipoDoc As String = String.Empty Dim EsDetalle As Boolean = False diff --git a/SigAyuda.aspx b/SigAyuda.aspx index fcf0a1a56..4b4f934bf 100644 --- a/SigAyuda.aspx +++ b/SigAyuda.aspx @@ -6,13 +6,15 @@