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

App_Code/ClsContabilidad.vb

@@ -5812,7 +5812,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer, Opcion As Integer) As Boolean
+    Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer, Opcion As Integer, CveConcepto As Integer) As Boolean
         Dim Retorno = False
 
         DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet")
@@ -5821,6 +5821,7 @@ Public Class ClsContabilidad
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
             .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@CveConcepto", SqlDbType.Int).Value = CveConcepto
         End With
 
         Try

Contabilidad/FiltraPolizas.aspx.vb

@@ -26,33 +26,18 @@ Partial Class Contabilidad_FiltraPolizas
     End Property
 
 
-    Public Property ContabilidadSIG As Boolean
-        Get
-            If ViewState("ContabilidadSIG") Is Nothing Then
-                ViewState("ContabilidadSIG") = False
-            End If
-
-            Return Boolean.Parse(ViewState("ContabilidadSIG").ToString)
-
-        End Get
-        Set(value As Boolean)
-            ViewState("ContabilidadSIG") = value
-        End Set
-    End Property
-
 #End Region
 
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
-            ContabilidadSIG = UsuarioActual.Empresa.TipoContabilidad
             ViewState("Orden") = ""
             DdlPeriodo.SelectedValue = Now.Month.ToString
             TxtFechaICredito.Text = Now.FirstDayOfMonth.ToShortDateString
             TxtFechaFCredito.Text = Now.LastDayOfMonth.ToShortDateString
 
-            If UsuarioActual.Empresa.UsaContabilidad Or ContabilidadSIG Then
+            If UsuarioActual.Empresa.UsaContabilidad OrElse UsuarioActual.Empresa.TipoContabilidad > 0 Then
 
                 CargaSegmentoNeg()
                 CargaEjercicios()
@@ -81,7 +66,7 @@ Partial Class Contabilidad_FiltraPolizas
         Dim Ejercicio As Integer = DdlEjercicio.SelectedValue.ToString().ToEntero()
         Dim Periodo As Integer = DdlPeriodo.SelectedValue.ToString().ToEntero()
 
-        If ContabilidadSIG Then
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
 
             Dim ObjConta As New ClsContabilidad
 
@@ -123,7 +108,7 @@ Partial Class Contabilidad_FiltraPolizas
 
         DdlSegmentoNeg.Items.Clear()
 
-        If ContabilidadSIG Then
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             DdlSegmentoNeg.DataValueField = "CveSubProyecto"
             DdlSegmentoNeg.DataTextField = "SubProyecto"
             DdlSegmentoNeg.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
@@ -148,7 +133,7 @@ Partial Class Contabilidad_FiltraPolizas
 
         DdlEjercicio.Items.Clear()
 
-        If ContabilidadSIG Then
+        If UsuarioActual.Empresa.TipoContabilidad = 1 Then
 
             Dim ObjConta As New ClsContabilidad
 
@@ -603,7 +588,7 @@ Partial Class Contabilidad_FiltraPolizas
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            If ContabilidadSIG Then
+            If UsuarioActual.Empresa.TipoContabilidad = 1 Then
 
                 e.Row.Cells(2).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank' >{e.Row.DataKey("Folio")}</a>"
                 e.Row.Cells(6).Text = $"<a href='/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={e.Row.DataKey("Id")}' class='Texto' Target='_blank'><i class='fa fa-arrow-right' style='color:#686868;'></i></a>"

Contabilidad/PolizasImpresion.aspx.vb

@@ -28,7 +28,7 @@ Partial Class Contabilidad_PolizasImpresion
 
         If Not IsPostBack Then
 
-            ContabilidadSIG = UsuarioActual.Empresa.UsaContabilidadSIG
+            ContabilidadSIG = UsuarioActual.Empresa.TipoContabilidad = 1
 
             TxtFechaInicio.Text = Now.AddDays(-1).ToShortDateString
             TxtFechaFin.Text = Now.ToShortDateString

Contabilidad2/CatCuentasAsignaciones.aspx

@@ -57,6 +57,11 @@
                                     <asp:ListItem Text="Sin Asignar" Value="2"></asp:ListItem>                                 
                                 </asp:DropDownList>
                             </div>
+
+                            <label runat="server" id="Lblcon" class="col-md-1 truncate">Concepto:</label>
+                            <div runat="server" id="DivCon" class="col-md-2">
+                                <asp:DropDownList ID="DdlConceptos" CssClass="form-control input-sm select2me js-cuenta-programmatic select2me" runat="server" AppendDataBoundItems="true" DataTextField="ConceptoContable" DataValueField="CveConceptoContable" Width="240px" ValidationGroup="GrpModulo2" ></asp:DropDownList>                                                   
+                            </div>
                                                           
                         </div>
                     </div>

Contabilidad2/CatCuentasAsignaciones.aspx.vb

@@ -17,6 +17,10 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
 
+            DdlConceptos.DataSource = GlobalDTContaConceptosContables(-1)
+            DdlConceptos.DataBind()
+            DdlConceptos.Items.Insert(0, New ListItem("Todos", "-1"))
+
             CargaDatosModal()
         End If
     End Sub
@@ -37,7 +41,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
 
     Private Sub CargaDatosSistema()
         Dim ObjConta As New ClsContabilidad
-        If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero) Then
+        If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero, DdlConceptos.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjConta.DtResultados
         End If
         GvDatos.Columns(4).Visible = ObjConta.DtResultados.MAX("CveSubProyecto").ToEntero > 0

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -13,7 +13,7 @@ Partial Class Inventarios_AjustesSeccionAlmacen
     End Sub
 
     Private Sub CargaCombos()
-        Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,2,12,14,16,19, 26)")
+        Dim DtAlmacenes As DataTable = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoAlmacen:=-1).FiltraParametros("CveTipoAlmacen in (1,2, 4,12,14,16,19, 26)")
 
         DdlAlmacen.DataSource = DtAlmacenes
         DdlAlmacen.DataBind()

Inventarios/EntregaAlmacen.aspx.vb

@@ -2325,7 +2325,7 @@ Partial Class Inventarios_EntregaAlmacen
                         Dim PU As Decimal = RowGarantia("Importe").ToString().ToDecimal() ' / RowGarantia("Cantidad").ToString().ToDouble()
                         Dim Serie As String = RowGarantia("Comprobante").ToString
 
-                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie) Then
+                        If Not ObjInventario.AddMovimientoDetalle(CveMovimientoGarantia, RowGarantia("Cantidad").ToString().ToDouble(), CveUM, CvePS, PU, Serie:=Serie, CveVentaDetalle:=RowGarantia("CveVentaDetalle").ToString.ToEntero) Then
                             ErrorMovInv = True
                             TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                             Exit For

Inventarios/EntregaAlmacenRuta.aspx

@@ -367,6 +367,11 @@
                                                 &nbsp;<asp:CheckBox ID="Chk" runat="server" Checked="false" />
                                             </ItemTemplate>
                                         </asp:TemplateField>
+                                        <asp:TemplateField HeaderText="Fecha"  ItemStyle-Width="80px" HeaderStyle-Width="80px">
+                                            <ItemTemplate>
+                                                &nbsp;<asp:Literal ID="LblFecha" runat="server" Text='<%# Eval("FechaEntrega", "{0:dd/MM/yyyy}") %>'></asp:Literal>
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
                                         <%--<asp:BoundField HeaderText="SerieFolio" DataField="Serie Folio" HeaderStyle-Width="150px" ItemStyle-Width="150px" ItemStyle-HorizontalAlign="Left" />--%>
                                         <asp:TemplateField HeaderText="Fecha Límite"  ItemStyle-Width="80px" HeaderStyle-Width="80px">
                                             <ItemTemplate>

Inventarios/RepAlmacen.aspx.vb

@@ -69,6 +69,15 @@ Partial Class Inventarios_RepAlmacen
         End If
         objInv.Dispose()
         GVAlmacen.DataBind()
+        CargaPermisos()
+
+    End Sub
+
+    Private Sub CargaPermisos()
+        Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
+
+        GVAlmacen.Columns(3).Visible = TienePermisoImportes
+
     End Sub
 
     Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click

Inventarios/ResguardoMaterial.aspx

@@ -423,44 +423,43 @@
                                     <div class="portlet-body" <%= IIf(chkexpand.Checked = True, "", "style='display:none;'")%>>
                                         <div class="rowpadding">
                                             <div class="row">
-                                                <label class="col-md-4 truncate" id="LblTipo" runat="server" style="max-width: 155px">
+                                                <label class="col-md-3 truncate" id="LblTipo" runat="server" style="max-width: 155px">
                                                 </label>
-                                                <div class="col-md-8">
+                                                <div class="col-md-9">
                                                     <asp:Label Text="" ID="LbTipoLiberacion" runat="server" />
                                                 </div>
                                             </div>
                                             <hr />
                                             <div class="row">
-                                                <label class="col-md-4 truncate" style="max-width: 155px">Almacén origen:</label>
-                                                <div class="col-md-8">
+                                                <label class="col-md-3 truncate" style="max-width: 155px">Almacén origen:</label>
+                                                <div class="col-md-9">
                                                     <asp:Label Text="" ID="LbAlmacenLiberacion" runat="server" />
                                                 </div>
                                             </div>
                                             <div class="row">
-                                                <label class="col-md-4 truncate" style="max-width: 155px">Almacén destino:</label>
-                                                <div class="col-md-8">
+                                                <label class="col-md-3 truncate" style="max-width: 155px">Almacén destino:</label>
+                                                <div class="col-md-9">
                                                     <asp:DropDownList ID="DdlAlmacenDestinoLiberacion" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Almacen" DataValueField="CveAlmacen" AutoPostBack="true"></asp:DropDownList>
                                                     <asp:RequiredFieldValidator InitialValue="-1" ID="RfvAlmacenDestinoLiberacion" Display="None" ValidationGroup="GrpGuardarLiberacion" runat="server" ControlToValidate="DdlAlmacenDestinoLiberacion" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />Es campo <b>''Almacén destino''</b> es necesario, por favor seleccione uno."></asp:RequiredFieldValidator>
                                                     <ajax:ValidatorCalloutExtender ID="VCEAlmacenDestinoLiberacion" runat="server" HighlightCssClass="vco" TargetControlID="RfvAlmacenDestinoLiberacion" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 </div>
                                             </div>
                                             <div class="row">
-                                                <label class="col-md-4 truncate" style="max-width: 155px">Fecha:</label>
-                                                <div class="col-md-8">
+                                                <label class="col-md-3 truncate" style="max-width: 155px">Fecha:</label>
+                                                <div class="col-md-9">
                                                     <asp:Label Text="" ID="LbFechaLiberacion" runat="server" />
                                                 </div>
                                             </div>
 
                                             <div class="row">
-                                                <label class="col-md-4 truncate" style="max-width: 155px">
+                                                <label class="col-md-3 truncate" style="max-width: 155px">
                                                     Observaciones
                                                
                                                 </label>
-                                                <div class="col-md-8">
+                                                <div class="col-md-9">
                                                     <asp:TextBox ID="TxtObservacionesLiberacion" TextMode="MultiLine" Rows="2" CssClass="form-control input-sm" runat="server" MaxLength="200"></asp:TextBox>
                                                 </div>
                                             </div>
-
                                         </div>
                                     </div>
                                 </div>

Inventarios/ResguardoMaterial.aspx.vb

@@ -264,7 +264,7 @@ Partial Class Inventarios_ResguardoMaterial
             ''Almacen Destino
         Else
             'RESGUARDO
-            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) '.FiltraParametros("CveTipoAlmacen IN (1,2)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
+            DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2)") ''almacen:material,herramientas,'.FiltraParametros("CveTipoAlmacen NOT IN (8)") 'GlobalDTAlmacen(UsuarioActual.CveEmpresa)
             DdlAlmacen.DataBind()
             DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
             'Almacen Destino
@@ -281,13 +281,10 @@ Partial Class Inventarios_ResguardoMaterial
 
 
         ''Almacen Destino
-        DdlAlmacenDestinoLiberacion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1) '.FiltraParametros("CveTipoAlmacen IN (1,2)")
+        DdlAlmacenDestinoLiberacion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen IN (1,2)") ''almacen:material,herramientas,
         DdlAlmacenDestinoLiberacion.DataBind()
         DdlAlmacenDestinoLiberacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
-        'DdlSeccionAlmacen.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, -1)
-        'DdlSeccionAlmacen.DataBind()
-
         CargaPS()
     End Sub
     Private Sub CargaPS()
@@ -674,18 +671,12 @@ Partial Class Inventarios_ResguardoMaterial
                 BtnGuardarLiberacion.Visible = False
 
                 GvMLiberacion.Columns(1).Visible = True
-
-
-
             Else
                 DVInformacionMoviminetoLiberacion.Visible = True
                 BtnGuardarLiberacion.Visible = True
                 GvMLiberacion.Columns(1).Visible = False
                 GvMLiberacion.Columns(1).HeaderText = ""
             End If
-
-
-
         End If
 
         CargaResguardos()
@@ -743,10 +734,10 @@ Partial Class Inventarios_ResguardoMaterial
 
     Private Sub CargaGvMLiberacion()
 
-        GvMLiberacion.Columns(5).Visible = DtMovimientosLiberacion.MAX("Serie").ToString <> ""
-        GvMLiberacion.Columns(6).Visible = DtMovimientosLiberacion.MAX("AplicaLote").ToString = "True"
-        GvMLiberacion.Columns(7).Visible = DtMovimientosLiberacion.MAX("AplicaCaducidad").ToString = "True" ' .ToDate > MinFecha
-        GvMLiberacion.Columns(8).Visible = DtMovimientosLiberacion.MAX("CveSeccionAlmacen").ToString.ToEntero > 0 Or DtMovimientosLiberacion.MAX("AplicaSeccion") = "True"
+        GvMLiberacion.Columns(6).Visible = DtMovimientosLiberacion.MAX("Serie").ToString <> ""
+        GvMLiberacion.Columns(7).Visible = DtMovimientosLiberacion.MAX("AplicaLote").ToString = "True"
+        GvMLiberacion.Columns(8).Visible = DtMovimientosLiberacion.MAX("AplicaCaducidad").ToString = "True" ' .ToDate > MinFecha
+        GvMLiberacion.Columns(9).Visible = DtMovimientosLiberacion.MAX("CveSeccionAlmacen").ToString.ToEntero > 0 Or DtMovimientosLiberacion.MAX("AplicaSeccion") = "True"
 
 
         GvMLiberacion.DataSource = DtMovimientosLiberacion
@@ -919,7 +910,7 @@ Partial Class Inventarios_ResguardoMaterial
 
                         If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
                             Dim CveSeccionAlmacen As Integer = 0
-                            Importe = ObjInventario.DtResultados.SUMD("Total").RoundAD
+                            Importe = ObjInventario.DtResultados.SUMD("Total").RoundSQL
                             For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                                 If CBool(Dr("AplicaSeccion")) Then
                                     CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero