Merge branch 'master' of http://rpimienta@192.168.10.111:8383/SIG.git

Acumuladores/CatGarantiasMeses.aspx.vb

@@ -97,8 +97,9 @@ Partial Class Acumuladores_CatFoliosGarantia
         If DdlMarca.SelectedValue <> -1 Then DdlMarcaM.SelectedValueExist(DdlMarca.SelectedValue.ToEntero)
         If DdlTipoUso.SelectedValue <> -1 Then DdlTipoUsoM.SelectedValueExist(DdlTipoUso.SelectedValue.ToEntero)
 
-        TxtMes.Text = ""
+        TxtMes.Text = TxtMes.Text.ToEntero + 1
         TxtValor.Text = ""
+        TxtMes.Focus()
 
         Actualizar = False
         UpGral.Update()
@@ -129,8 +130,9 @@ Partial Class Acumuladores_CatFoliosGarantia
         If Not Actualizar Then
             If ObjAcum.GarantiasMesesAdd(DdlMarcaM.SelectedValue.ToEntero, DdlTipoUsoM.SelectedValue.ToEntero, TxtMes.Text.ToEntero, TxtValor.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
 
-                TxtMes.Text = ""
+                TxtMes.Text = TxtMes.Text.ToEntero + 1
                 TxtValor.Text = ""
+                TxtMes.Focus()
 
                 CargadatosGvFolioGarantia()
 

App_Code/ClsBancos.vb

@@ -1316,7 +1316,7 @@ Public Class ClsBancos
         Return Retorno
     End Function
     Public Function UpdateBancos_IE(FechaDocumento As DateTime, FechaAplicado As DateTime?, CveIE As Integer, Optional Folio As String = "-1", Optional CveCuentaDeposito As Integer = -1, Optional CveCuenta As Integer = -1,
-                                    Optional Observaciones As String = "-1") As Boolean
+                                    Optional Observaciones As String = "-1", Optional CveUsuarioModifico As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Banc_IEUpdate")
@@ -1337,7 +1337,7 @@ Public Class ClsBancos
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
 
-
+            .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico
 
 
         End With

Bancos/IE.aspx.vb

@@ -424,32 +424,6 @@ Partial Class Bancos_IE
 
     End Property
 
-    Private Property CuentaOld As String
-        Get
-            Return CType(ViewState("CuentaOld"), String)
-        End Get
-        Set(value As String)
-            ViewState("CuentaOld") = value
-        End Set
-    End Property
-    Private Property FechaOld As String
-        Get
-            Return CType(ViewState("FechaOld"), String)
-        End Get
-        Set(value As String)
-            ViewState("FechaOld") = value
-        End Set
-    End Property
-
-    Private Property FolioOld As String
-        Get
-            Return CType(ViewState("FolioOld"), String)
-        End Get
-        Set(value As String)
-            ViewState("FolioOld") = value
-        End Set
-    End Property
-
 
 
 #Region "CANCELACIÓN COMPLEMENTO MODAL V2"
@@ -1122,10 +1096,6 @@ Partial Class Bancos_IE
 
             End If
 
-            ' DATOS PARA LA BITACORA
-            CuentaOld = LblCuenta.Text
-            FechaOld = TxtFechaDocumento.Text
-            FolioOld = TxtFolio.Text
 
         End If
 
@@ -3724,45 +3694,23 @@ Partial Class Bancos_IE
 
         Dim IE As New ClsBancos
         IE.IniciaTransacSQL()
-        Dim ObjGral As New ClsGenerales
-        ObjGral.IniciaTransacSQL()
         Dim FechaAplicado As DateTime? = Nothing
         Dim OcurrioError As Boolean = False
 
         Dim CveCuentaDepositoUpdate As Integer = If(DdlCuentaDeposito.SelectedValue.ToEntero.ToEntero = 0, -1, DdlCuentaDeposito.SelectedValue.ToEntero.ToEntero)
 
-        If IE.UpdateBancos_IE(TxtFechaDocumento.Text.ToDate, FechaAplicado, CveIE, TxtFolio.Text, CveCuentaDeposito:=CveCuentaDepositoUpdate, CveCuenta:=DdlCuenta.SelectedValue.ToEntero,
+        If Not IE.UpdateBancos_IE(TxtFechaDocumento.Text.ToDate, FechaAplicado, CveIE, TxtFolio.Text, CveCuentaDeposito:=CveCuentaDepositoUpdate, CveCuenta:=DdlCuenta.SelectedValue.ToEntero,
-                              Observaciones:=TxtObservaciones.Text) Then
+                              Observaciones:=TxtObservaciones.Text, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
-            'Agrega a la Bitacora
-            If CuentaOld <> DdlCuenta.SelectedItem.Text Then
-                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveIE, DdlCuenta.SelectedItem.Text, CuentaOld, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "Cuenta", "Banco", TxtFolio.Text + " / " + Cuenta) Then
-                    OcurrioError = True
-                End If
-            End If
-            If FechaOld <> TxtFechaDocumento.Text.Trim Then
-                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveIE, TxtFechaDocumento.Text.Trim, FechaOld, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "Fecha", "Banco", TxtFolio.Text + " / " + Cuenta) Then
-                    OcurrioError = True
-                End If
-            End If
-            If FolioOld <> TxtFolio.Text.Trim Then
-                If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveIE, TxtFolio.Text.Trim, FolioOld, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 0, "Número", "Banco", TxtFolio.Text + " / " + Cuenta) Then
-                    OcurrioError = True
-                End If
-            End If
-        Else
             OcurrioError = True
         End If
 
         If OcurrioError Then
             IE.RollBack()
-            ObjGral.RollBack()
         Else
             IE.Commit()
-            ObjGral.Commit()
             Alert("La Actualización del documento se realizó correctamente", TipoMensaje.MsgInformacion, $"document.location.href=""IE.aspx?CveIE={CveIE}""")
         End If
         IE.Dispose()
-        ObjGral.Dispose()
     End Sub
 
     Protected Sub ImgUpdateCuentaDeposito_Click(sender As Object, e As ImageClickEventArgs)

Compras/Proveedores.aspx.vb

@@ -1144,7 +1144,7 @@ Partial Class Compras_Proveedores
 
         'VA POR EL CATALOGO DE CUENTAS
         If Ddl.Attributes("onclick") <> "" Then
-            CargaCuentasContables(If(UsuarioActual.Empresa.Funcionalidad(CveFuncionalidad).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(CveFuncionalidad).ToEntero, -1))
+            CargaCuentasContables(If(UsuarioActual.Empresa.Funcionalidad(CveFuncionalidad).ToEntero > 0, UsuarioActual.Empresa.Funcionalidad(CveFuncionalidad).ToEntero, 1))
         End If
 
         'RECARGA EL DDL

General/SaldosIniciales.aspx.vb

@@ -1525,11 +1525,13 @@ Partial Class General_SaldosIniciales
                 ObjMovimientos.IniciaTransacSQL()
                 Dim OcurrioError As Boolean = False
                 Dim contadorMovimientos As Integer = 0
+                Dim listadoMovimientos As String = ""
                 Try
                     For Each almacenSinRepetir As DataRow In dt.FiltraParametros("", DistinctColumns:={"Almacen"}).Rows
                         Dim almacenActual As String = almacenSinRepetir("Almacen").ToString
                         Dim CveAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"Almacen = '{almacenActual}'").ToEntero
                         Dim movimientoCabecera As Integer = ObjMovimientos.AddMovimiento(CveAlmacen, 1, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
+                        listadoMovimientos += $"movimiento con folio <a href='/Inventarios/EntradasSalidas.aspx?CveMovimiento={movimientoCabecera}' target='_blank' style='color:blue'>{ObjMovimientos.Folio}</a><br/>"
                         If CveAlmacen > 0 Then
                             contadorMovimientos += 1
                             For Each nuevaEntrada As DataRow In dt.FiltraParametros($"Almacen = '{almacenActual}'").Rows
@@ -1565,7 +1567,7 @@ Partial Class General_SaldosIniciales
 
                 If Not OcurrioError Then
                     ObjMovimientos.Commit()
-                    Alert($"Se cargaron correctamente {contadorMovimientos} movimientos")
+                    Alert($"Se cargaron correctamente {contadorMovimientos} movimientos<br/><br/>{listadoMovimientos}")
                 Else
                     Alert("Ocurrió un error al cargar las existencias", TipoMensaje.MsgError)
                     ObjMovimientos.RollBack()

Inventarios/RepNotasSinAlmacen.aspx.vb

@@ -291,17 +291,17 @@ Partial Class RepNotasSinAlmacen
         If UsuarioActual.TienePermisoProceso(278) Then
             Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
-            Dim CveCompraDetalle As Integer = GvRow.DataKey("CveCompraDetalle")
+            Dim CveCompraDetalle As Integer = GvRow.DataKey("CveCompraDetalle").ToEntero()
-            Dim CveCompra As Integer = GvRow.DataKey("CveCompra")
+            Dim CveCompra As Integer = GvRow.DataKey("CveCompra").ToEntero()
-            Dim CvePS As Integer = GvRow.DataKey("CveCompra")
+            Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero()
 
             Dim PS = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PSCodigo", $"CvePS = {CvePS}")
 
             Dim ObjCompras As New ClsCompras
             Dim ObjEventos As New ClsOIEventos
             If ObjCompras.UpdateEstatusAlmacenDetalle(CveCompraDetalle, 1) Then
-                If ObjEventos.AddEventoBitacora(String.Format("El producto: {0} se marcó como no recibirlo", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
+                If ObjEventos.AddEventoBitacora(String.Format("El producto: {0} se marcó como no recibido", PS), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra:=CveCompra) Then
-                    Alert("El producto se marcó como 'no recibirlo' correctamente.")
+                    Alert("El producto se marcó como 'no recibido' correctamente.")
                 End If
             End If
             ObjCompras.Dispose()

Ventas/Ventas.aspx.vb

@@ -2781,6 +2781,9 @@ Partial Class Ventas
 
             If DrContrato("CveSucursalCliente").ToString.ToEntero > 0 Then
                 DdlSucursalCliente.SelectedValueExist(DrContrato("CveSucursalCliente"))
+                DdlSucursalCliente_SelectedIndexChanged(DdlSucursalCliente, EventArgs.Empty)
+                DdlSucursalCliente.Enabled = False
+                DdlSucursalCliente.Attributes.Add("disabled", "")
             End If
 
             Dim CveAlmacenDestino As Integer = DrContrato("CveAlmacenDestino").ToString.ToEntero