Merge branch 'master' of http://192.168.10.111:8383/SIG

AC/RepProgramasOperativosAvances.aspx

@@ -127,7 +127,7 @@
                 </div>
             </div>
 
-            NavigateUrl="/AC/ProgramaOperativo.aspx?CveProgramaOperativo=703&EsProyecto=1,&Bloqueado=1" 
+            
            
 
 

AC/RepProgramasOperativosAvances.aspx.vb

@@ -191,8 +191,12 @@ Partial Class AC_RepProgramasOperativosAvances
         cell.ColumnSpan = 2
         cell.Text = ""
         row.Controls.Add(cell)
+        Try
+            GVD.HeaderRow.Parent.Controls.AddAt(0, row)
+        Catch ex As Exception
+
+        End Try
 
-        GVD.HeaderRow.Parent.Controls.AddAt(0, row)
 
 
 

App_Code/ClsGenerales.vb

@@ -3,7 +3,8 @@ Option Explicit On
 Imports System.Data
 Imports System.Data.SqlClient
 Imports Extensiones
-
+Imports Stimulsoft.Base.Analysis
+
 Public Class ClsGenerales
     Implements IDisposable
 
@@ -1621,7 +1622,14 @@ Public Class ClsGenerales
             '        Me.OnError("Ocurrió un error al Guardar el registro.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             '    End If
         Catch ex As Exception
-            OnError("Ocurrió un error al Guardar la cuenta", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+            If ex.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then
+                OnError($"Ocurrió un error al Guardar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al Guardar la cuenta", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
+
+
         End Try
 
         Return Retorno
@@ -1678,11 +1686,21 @@ Public Class ClsGenerales
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Then
                 Alert("Ya existe un registro con el mismo nombre", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then
+                OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
+
                 Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If
         Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+            If ex.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then
+                OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
+
+
         End Try
 
         Return Retorno
@@ -1727,12 +1745,19 @@ Public Class ClsGenerales
             Retorno = True
         Catch Ex1 As SqlException
             If Ex1.Message.Contains("Número: 2627;") Then
-                Alert("Ya existe un registro con el mismo nombre", TipoMensaje.MsgAdvertencia)
+                Alert("Ya existe un registro con el mismo nombre", TipoMensaje.MsgAdvertencia)
+            ElseIf Ex1.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then
+                OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
                 Me.OnError("Ocurrió un error al guardar los cambios", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
             End If
-        Catch ex As Exception
+        Catch ex As Exception
-            OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+
+            If ex.Message.Contains("IX_Gral_CuentasDepositos_CLABE") Then
+                OnError($"Ocurrió un error al actualizar la cuenta, la CLABE {CLABE} ya esta registrada en otra cuenta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            Else
+                OnError("Ocurrió un error al guardar los cambios.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            End If
         End Try
 
         Return Retorno

Bancos/ProveedoresAbonar.aspx.vb

@@ -1939,29 +1939,31 @@ Partial Class Bancos_ProveedoresAbonar
                     End If
                 End If
 
-                If MsgError = "" AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
+            End If
-                    If ObjConta.ValorPolizaDescuadre > 0 Then
+        Next
-                        MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia
-                        GuardaLogAD($"Bancos/ProveedoresAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
-                        Exit For
-                    Else
 
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
 
-                            If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
-                                ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
-                            Else
-                                'Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
-                                MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico"
-                            End If
 
+        If MsgError.Trim.Length = 0 AndAlso CvePrePoliza > 0 Then
+            If MsgError = "" AndAlso ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 5) Then
+                If ObjConta.ValorPolizaDescuadre > 0 Then
+                    MsgError = ObjConta.MensajePolizaDescuadre + " " + ObjConta.ValorDiferencia
+                    GuardaLogAD($"Bancos/ProveedoresAbonar | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                Else
+                    If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
+
+                        If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
+                            ' Alert(alertaContabilizacion, ModExtensiones.TipoMensaje.MsgInformacion)
+                        Else
+                            'Alert("Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
+                            MsgError = "Ocurrio un error al contabilizar, pongase en contacto con Soporte Técnico"
                         End If
 
                     End If
-                End If
 
+                End If
             End If
-        Next
+        End If
 
 
 

Compras/Compras.aspx.vb

@@ -8139,7 +8139,7 @@ Partial Class Compras_Compras
                                     If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
                                         Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>. ", CvePrePoliza)
                                         Dim TempParametros = Encripta(String.Format("OP=PREPO&CvePrePoliza={0}", CvePrePoliza))
-                                        Msg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> Descargar PDF <i class='fa fa-file-pdf-o' aria-hidden='true'></i></a>")
+                                        Msg.Append($" <a class='Texto' target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={TempParametros}""> Imprimir PDF <i class='fa fa-file-pdf-o' aria-hidden='true'></i></a>")
 
 
 
@@ -8263,7 +8263,6 @@ Partial Class Compras_Compras
 
         If listaUUIDSRelacionados.Count > 0 Then
             DoctosRelacionados = String.Join(",", listaUUIDSRelacionados.ToArray())
-            DoctosRelacionados = DoctosRelacionados.Substring(0, DoctosRelacionados.Length - 2)
         End If
 
         Return DoctosRelacionados

Compras/Proveedores.aspx.vb

@@ -3123,15 +3123,22 @@ Partial Class Compras_Proveedores
                 Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
             End If
             ObjCuentasBancos.Dispose()
-        End If
+        Else
 
-
+            'SE USA CUANDO SE REGISTRA UN PROVEEDOR NUEVO
-        If CveProveedor < 0 Then
+            'ESTE ELSE ES PARA OBTENER LA ESTRUCTURA DE LA TABLA
-            'Alert("No hay proveedor", TipoMensaje.MsgInformacion)
+            Dim ObjCuentasBancos As New ClsGenerales
-            TempDTCuentasBancos = DTCuentasBancos.Clone
+            If ObjCuentasBancos.GetCuentasDepositos(0, CveEmpresa:=-2) Then
+                DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
+            Else
+                Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgAdvertencia)
+            End If
+            ObjCuentasBancos.Dispose()
 
         End If
 
+        TempDTCuentasBancos = DTCuentasBancos.Clone
+
         CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString)
 
     End Sub

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -11,8 +11,20 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         Set
             ViewState("CveConceptoAsignacion") = Value
         End Set
-    End Property
+    End Property
-
+
+    Public Property OpAgregar As Boolean
+        Get
+            If ViewState("OpAgregar") Is Nothing Then
+                ViewState("OpAgregar") = False
+            End If
+            Return Boolean.Parse(ViewState("OpAgregar").ToString)
+        End Get
+        Set(value As Boolean)
+            ViewState("OpAgregar") = value
+        End Set
+    End Property
+
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
@@ -116,7 +128,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
     End Sub
 
-    Protected Sub ActualizaModulo(sender As Object, e As EventArgs)
+    Protected Sub ActualizaModulo(sender As Object, e As EventArgs)
+        OpAgregar = False
         LimpiarDatos()
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim Dr As DataRow = GlobalDTContaConceptosContables(GvRow.DataKey("CveConceptoContable").ToEntero).FiltroPrimero("")
@@ -149,6 +162,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             DdlSubProyectos.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
             DdlTipoGasto.SelectedValueExist(GvRow.DataKey("CveTipoGasto").ToEntero)
             DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo").ToEntero)
+            DdlActivoFijo.Enabled = False
+
 
             Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
             Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
@@ -176,29 +191,31 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         If Dr IsNot Nothing Then
 
 
-            divCliente.Visible = Dr("AplicaCliente").ToString = "True"
+            divCliente.Visible = Boolean.Parse(Dr("AplicaCliente").ToString)
+            divProveedor.Visible = Boolean.Parse(Dr("AplicaProveedor").ToString)
+            divPersonal.Visible = Boolean.Parse(Dr("AplicaPersonal").ToString)
+            divPorcentajeIVA.Visible = Boolean.Parse(Dr("AplicaImpuesto").ToString)
+            divClasificacion.Visible = Boolean.Parse(Dr("AplicaClasificacion").ToString)
+            divBancos.Visible = Boolean.Parse(Dr("AplicaBancos").ToString)
+            divAlmacen.Visible = Boolean.Parse(Dr("AplicaAlmacen").ToString)
+            divSubProyectos.Visible = Boolean.Parse(Dr("AplicaSubProyecto").ToString)
+            divActivoFijo.Visible = Boolean.Parse(Dr("AplicaActivoFijo").ToString)
 
-            divProveedor.Visible = Dr("AplicaProveedor").ToString = "True"
+            DdlActivoFijo.Enabled = False
-
-            divPersonal.Visible = Dr("AplicaPersonal").ToString = "True"
-
-            divPorcentajeIVA.Visible = Dr("AplicaImpuesto").ToString = "True"
-
-            divClasificacion.Visible = Dr("AplicaClasificacion").ToString = "True"
-
-            divBancos.Visible = Dr("AplicaBancos").ToString = "True"
-
-            divAlmacen.Visible = Dr("AplicaAlmacen").ToString = "True"
-
-            divSubProyectos.Visible = Dr("AplicaSubProyecto").ToString = "True"
 
             If Dr("AplicaActivoFijo").ToString = "True" Then
-                divActivoFijo.Visible = True
                 DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
-                DdlActivoFijo.DataBind()
+                DdlActivoFijo.DataBind()                ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo"))
-                ' DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo"))
+
+                If OpAgregar Then
+                    DdlActivoFijo.Enabled = True
+                Else
+                    DdlActivoFijo.Enabled = False
+                End If
+
             End If
 
+
             divConceptoNomina.Visible = Dr("AplicaNomina").ToString = "True"
 
             If CveConceptoContable = 51 Then
@@ -244,6 +261,8 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     End Sub
 
     Protected Sub BtnAgregarAsignacion_Click(sender As Object, e As EventArgs) Handles BtnAgregarAsignacion.Click
+        OpAgregar = True
+
         LimpiarDatos()
         DdlCconceptosContables.Enabled = True
         DdlSubProyectos.Enabled = True
@@ -272,6 +291,23 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
         DdlPersonal.ddl.DataBind()
         DdlPersonal.setEsWebService(True)
         HdnCveCuentaAsignacion.Value = ""
+
+        If OpAgregar Then
+            divCliente.Visible = False
+            divProveedor.Visible = False
+            divPersonal.Visible = False
+            divPorcentajeIVA.Visible = False
+            divClasificacion.Visible = False
+            divBancos.Visible = False
+            divAlmacen.Visible = False
+            divSubProyectos.Visible = False
+            divActivoFijo.Visible = False
+        End If
+
+
+
+
+
     End Sub
 
     Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click

Inventarios/EntradasSalidas.aspx.vb

@@ -4490,7 +4490,7 @@ Partial Class Inventarios_EntradasSalidas
         For Each Dr As DataRow In DtMovimientosSalidaInvFisico.Rows
             If ObjInventario.GetExistenciasPS(Dr("CvePS").ToString.ToEntero, Dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenInventarioFisico.SelectedValue.ToEntero, PendientePorSurtir:=1) >= Dr("Cantidad").ToString.ToDouble Then
                 If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero,
-                                                          Dr("PU").ToString.ToDecimal, -1, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString,
+                                                          Dr("PU").ToString.ToDecimal.RoundSQL(6), -1, CveSeccionAlmacen:=Dr("CveSeccionAlmacen").ToString.ToEntero, Serie:=Dr("Serie").ToString,
                                                           Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate) Then
                     Mensaje = "Ocurrió un error al guardar los movimientos de salida"
                     ErrorMovInv = True
@@ -4511,10 +4511,10 @@ Partial Class Inventarios_EntradasSalidas
             If Not ErrorMovInv AndAlso CveMovimientoSalida > 0 Then
                 If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
 
-                    Dim ProTotalSalida As Decimal = ObjInventario.DtResultados.SUMD("Total", "")
+                    Dim ProTotalSalida As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL(2)
                     Dim ProCantidadEntrada As Decimal = DtMovimientosEntradaInvFisico.SUMD("Cantidad", "")
 
-                    ProPU = (ProTotalSalida / ProCantidadEntrada).RoundSQL(6)
+                    ProPU = (ProTotalSalida / ProCantidadEntrada).RoundSQL(10)
 
                     If Not ProPU > 0 Then
                         ErrorMovInv = True
@@ -4546,7 +4546,7 @@ Partial Class Inventarios_EntradasSalidas
         'Obtiene valor entrada
         If Not ErrorMovInv AndAlso CveMovimientoEntrada > 0 Then
             If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
-                Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL()
+                Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL(2)
                 ValorEntrada = tValorInventario
 
                 Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue))
@@ -4563,7 +4563,7 @@ Partial Class Inventarios_EntradasSalidas
         'Obtiene valor salida
         If Not ErrorMovInv AndAlso CveMovimientoSalida > 0 Then
             If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
-                Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL()
+                Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUMD("Total", "").RoundSQL(2)
                 ValorSalida = tValorInventario
                 Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue))
                 If drA2 IsNot Nothing Then