Cat Usaurios se agrega filtro estatus, RegPrePolizas Carga excel validacion de naturaleza bancos, traspaso almacen prepoliza inconsistencias

App_Code/ClsSisUsuarios.vb

@@ -720,7 +720,7 @@ Public Class ClsSisUsuarios
 #End Region
 
 #Region "U S U A R I O S"
-    Public Function GetUsuarios(CveUsuario As Integer, Optional CveRol As Integer = -1, Optional CveUsuarioControlado As Integer = -1) As Boolean
+    Public Function GetUsuarios(CveUsuario As Integer, Optional CveRol As Integer = -1, Optional CveUsuarioControlado As Integer = -1, Optional Estatus As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Sis_UsuariosGet")
@@ -731,6 +731,9 @@ Public Class ClsSisUsuarios
             .Add("@Usuario", SqlDbType.VarChar).Value = "-1"
             .Add("@Contraseña", SqlDbType.VarChar).Value = "-1"
             .Add("@EsLogIn", SqlDbType.Bit).Value = 0
+            .Add("@Estatus", SqlDbType.Int).Value = Estatus
+
+
         End With
 
         Try

Contabilidad/RegPrePolizaS.aspx.vb

@@ -2417,7 +2417,7 @@ Partial Class ContabilidadC_RegPrePolizaS
                         End If
 
                         TipoMov = GlobalDTTipoTransacciones.FiltroPrimeroValor("CveTipoTransaccion", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
-                        TipoNaturaleza = GlobalDTTipoTransacciones.FiltroPrimeroValor("Tipo", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia"))).ToEntero
+                        TipoNaturaleza = GlobalDTTipoTransacciones.FiltroPrimeroValor("Tipo", String.Format("TipoTransaccion = '{0}' ", Row("TipoTransferencia")))
 
                         FolioExcel = Row("Folio").ToString.ToEntero
                         CveTipoTransaccion = TipoMov
@@ -2438,11 +2438,19 @@ Partial Class ContabilidadC_RegPrePolizaS
                             Exit Sub
                         End If
 
-                        If Row("Abono").ToString.ToDecimal > 0 And TipoNaturaleza = "Ing" Or Row("Cargo").ToString.ToDecimal > 0 And TipoNaturaleza = "Egs" Then
+
+                        If Not (TipoNaturaleza = "Ing" And ((TipoMovto = False And ImporteDocumento >= 0) Or (TipoMovto = True And ImporteDocumento <= 0)) Or
+                               TipoNaturaleza = "Egs" And ((TipoMovto = True And ImporteDocumento >= 0) Or (TipoMovto = False And ImporteDocumento <= 0))) Then
                             Alert($"El movimiento con cuenta: {NombreCuenta} , importe: {ImporteDocumento.ToString("###,###,###.00")}  (registro {ContadorRegistros}), no tiene la naturaleza correcta", TipoMensaje.MsgAdvertencia)
                             Exit Sub
+
                         End If
 
+                        'If Row("Abono").ToString.ToDecimal > 0 And TipoNaturaleza = "Ing" Or Row("Cargo").ToString.ToDecimal > 0 And TipoNaturaleza = "Egs" Then
+                        '    Alert($"El movimiento con cuenta: {NombreCuenta} , importe: {ImporteDocumento.ToString("###,###,###.00")}  (registro {ContadorRegistros}), no tiene la naturaleza correcta", TipoMensaje.MsgAdvertencia)
+                        '    Exit Sub
+                        'End If
+
                     End If
 
                     If Row("Abono").ToString.ToDecimal > 0 And Row("Cargo").ToString.ToDecimal > 0 Then

Contabilidad2/RepAnexoCatalogoAnual.aspx.vb

@@ -181,6 +181,11 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
     Private Sub CargaDatos()
 
 
+        If CveCuenta <= -1 Then
+            Alert("No hay una cuenta expecificada.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         DTHeaders = New DataTable
         DTDatos = New DataTable
 

Inventarios/TraspasoAlmacen.aspx

@@ -657,7 +657,7 @@
                     <div class="col-md-12">
                         <asp:UpdatePanel runat="server" ID="UpDatosRecepcion" UpdateMode="Conditional">
                             <ContentTemplate>
-                                <asp:GridView ID="GvDatosRecepcion" DataKeyNames="CveMovimiento,CveUM,CvePS,PS,CveAF,CodigoBarras,CveAlmacen,CveAlmacenDestino,AplicaSerie,CveMovimientoDetalle,CveMovimientoDetalleTransitorio,PU,CveAlmacenSalida,CveMovimientoSalida,Serie,Lote,FechaCaducidad,Cantidad, GastoIndirectoSalida, Importe,Codigo" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" ToolTip="Listado de Movimientos" CssClass="table table-hover Widthall" GridLines="None">
+                                <asp:GridView ID="GvDatosRecepcion" DataKeyNames="CveMovimiento,CveUM,CvePS,PS,CveAF,CodigoBarras,CveAlmacen,CveAlmacenDestino,AplicaSerie,CveMovimientoDetalle,CveMovimientoDetalleTransitorio,PU,CveAlmacenSalida,CveMovimientoSalida,Serie,Lote,FechaCaducidad,Cantidad, GastoIndirectoSalida, Importe,Codigo,CveAlmacenTransitorioVirtual" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" ToolTip="Listado de Movimientos" CssClass="table table-hover Widthall" GridLines="None">
                                     <Columns>
                                         <asp:TemplateField ItemStyle-Width="5%" ItemStyle-HorizontalAlign="Center">
                                             <%--<HeaderTemplate>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1834,6 +1834,8 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim TextoError As String = ""
         Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate
         Dim CveMovimientoVirtualEntrada As Integer = 0
+        Dim CveMovimientoVirtualSalida As Integer = 0
+
         Dim CveMovimientoSalidaTransitorio As Integer = 0
         Dim FolioVirtualEntrada As Integer = 0
 
@@ -1917,6 +1919,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
 
                     Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
+                    Dim CveAlmacenVirtualSalida As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero).FiltroPrimeroValor("CveAlmacenVirtual", "").ToEntero()
 
                     'SI EL ALMACEN ORIGEN ES DE APOPYO LOGISTICO EL ALMACEN VIRTUAL DEBE SER DE APOYO LOGISTICO
                     'Dim CveAlmacenVirtual As Integer = -1
@@ -1927,15 +1930,21 @@ Partial Class Inventarios_TraspasoAlmacen
                     'End If
 
                     'VERIFICA SI TIENE ALMACEN VIRTUAL ASIGNADA
-                    If CveAlmacenVirtual > 0 Then
+                    If CveAlmacenVirtual > 0 And CveAlmacenVirtualSalida > 0 Then
 
                         Dim dtvirtual As DataTable = Nothing
+                        Dim importePoliza As Decimal = 0
 
                         If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoSalida) Then
                             dtvirtual = ObjInventario.DtResultados
                             If dtvirtual.Rows.Count > 0 Then
+
                                 CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/C2")
+
+                                CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalidaTransitorio, Modulo:="TA/C3")
+
                                 FolioVirtualEntrada = ObjInventario.Folio
+
                                 For Each RowVirtual As DataRow In dtvirtual.Rows
                                     Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
                                     Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
@@ -1943,21 +1952,54 @@ Partial Class Inventarios_TraspasoAlmacen
                                     Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
                                     Dim CostoIndirecto As Decimal = RowVirtual("CostoIndirecto").ToString().ToDecimal()
 
+
+                                    importePoliza = importePoliza + (CantidadUsado * PU)
+
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                         ErrorMovInv = True
                                         Exit For
                                     End If
+
+                                    If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualSalida, CantidadUsado, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                        ErrorMovInv = True
+                                        Exit For
+                                    End If
+
                                 Next
                             End If
 
-                        Else
+                            'Else
-                            TextoError = "No se pudo registrar el movimiento virtual"
+                            '    TextoError = "No se pudo registrar el movimiento virtual"
-                            ErrorMovInv = True
+                            '    ErrorMovInv = True
                         End If
-                        'Else
+
-                        '    TextoError = "La Sucursal no tiene creado un almacen virtual"
+
-                        '    ErrorMovInv = True
+                        If Not ErrorMovInv AndAlso (CveMovimientoSalida > 0 And CveMovimientoVirtualEntrada > 0) Then
+
+                            Dim CvePrePolizaMovVirtual As Integer = ObjConta.AddPrePolizas("TA/C2|TA/C3", 53, importePoliza, importePoliza, 1, TxtFecha.Text.ToDate, "TA/C2|TA/C3", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                            If CvePrePolizaMovVirtual > 0 Then
+                                If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaMovVirtual, True, importePoliza, importePoliza, 68, TxtObservacionesRecepcion.Text, TxtObservacionesRecepcion.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoVirtualSalida, Contabilizable:=False) Then
+                                    ErrorMovInv = True
+                                End If
+
+                                If Not ObjConta.AddPrePolizasDetalle(CvePrePolizaMovVirtual, False, importePoliza, importePoliza, 68, TxtObservacionesRecepcion.Text, TxtObservacionesRecepcion.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoVirtualEntrada, Contabilizable:=False) Then
+                                    ErrorMovInv = True
+                                End If
+                            Else
+                                ErrorMovInv = True
+                            End If
+
+                        End If
+
+
+                    Else
+                        TextoError = "La Sucursal no tiene creado un almacen virtual"
+                        ErrorMovInv = True
                     End If
+
+
+
+
                 End If
 
                 If Not ErrorMovInv Then

Sistemas/Usuarios.aspx

@@ -42,16 +42,34 @@
 
     <asp:UpdatePanel ID="UPFiltros" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
+            <div  class="row">
+                <div class="col-lg-1">
+                    Empresa:
+                </div>
+                <div class="col-lg-4">
+
+                </div>
+            </div>
+
             <table width="100%" border="0" cellpadding="0" cellspacing="0">
+
                 <tr class="SubTotales">
-                    <td>Empresa: 
+                    <td style="width:500px!important">Empresa: 
                             <asp:DropDownList ID="DdlEmpresa" runat="server" AppendDataBoundItems="true" DataTextField="Empresa" DataValueField="CveEmpresa" Class="form-control   input-sm select2me " Style="width: 400px !important;" ValidationGroup="GrpGuardar">
                                 <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
                     </td>
-                    <td>
+                    <td style="width:200px!important">Estatus: 
+                            <asp:DropDownList ID="DdlEsatus" runat="server" AppendDataBoundItems="true" Class="form-control   input-sm select2me " Style="width: 100px !important;">
+                                <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
+                                <asp:ListItem Text="Activos" Value="1" Selected="True"></asp:ListItem>
+                                <asp:ListItem Text="Inactivos" Value="0"></asp:ListItem>
+                            </asp:DropDownList>
+                    </td>
+                    <td style="text-align:right!important">
                         <asp:Button ID="consultar" runat="server" Text="Consultar" OnClick="consultar_Click" class="btn btn-primary" />
                     </td>
+
                 </tr>
             </table>
         </ContentTemplate>

Sistemas/Usuarios.aspx.vb

@@ -70,7 +70,7 @@ Partial Class Sistemas_Usuarios
 	Public Sub CargaDatos()
 
 		Dim Usuario As New ClsSisUsuarios
-        If Usuario.GetUsuarios(-1, -1) Then
+        If Usuario.GetUsuarios(-1, -1, Estatus:=DdlEsatus.SelectedValue.ToEntero) Then
             If UsuarioActual.CveRol <> 1 Then
                 DtUsuarios = Usuario.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0} AND CveRol <> 1", DdlEmpresa.SelectedValue))
                 'DtUsuarios = Usuario.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)