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

Bancos/ProveedoresAbonar.aspx.vb

@@ -888,6 +888,8 @@ Partial Class Bancos_ProveedoresAbonar
                                 CompraActual.UsuarioActual = UsuarioActual
                                 CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
 
+
+
                                 'Importe de pago
                                 Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                                 'Tipos de cambio
@@ -941,15 +943,15 @@ Partial Class Bancos_ProveedoresAbonar
                                     If descuentoParts.Length = 0 Then
                                         Descuento = 0
                                     Else
-
+                                        Descuento = gvr.DataKey("Saldo").ToString.ToDecimal - gvr.FCTextBox("TxtAbonar").Text.ToDecimal
-                                        For i As Integer = 0 To descuentoParts.Length - 1
+                                        'For i As Integer = 0 To descuentoParts.Length - 1
-                                            Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal
+                                        '    Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal
-                                            If descuentoPart > 0 Then
+                                        '    If descuentoPart > 0 Then
-                                                Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100))
+                                        '        Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100))
-                                            Else
+                                        '    Else
-                                                Continue For
+                                        '        Continue For
-                                            End If
+                                        '    End If
-                                        Next
+                                        'Next
 
                                     End If
 
@@ -970,7 +972,7 @@ Partial Class Bancos_ProveedoresAbonar
                                             FolioRNC = serieFolioArray(0)
                                         End If
 
-                                        Descuento = Descuento.RoundSQL(2)
+                                        'Descuento = Descuento.RoundSQL(2)
                                         If PorcentajeIVA > 0 Then
 
                                             Descuento = ((Descuento) / (1 + PorcentajeIVA))

Empresas/Grales/Formatos/RepAlmacen.rdlc

@@ -1,5 +1,55 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DataSet">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DataSet1">
+      <Query>
+        <DataSourceName>DataSet</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="Almacen">
+          <DataField>Almacen</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Gpo">
+          <DataField>Gpo</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Total">
+          <DataField>Total</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="TipoAlmacen">
+          <DataField>TipoAlmacen</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+        <Field Name="Existencia">
+          <DataField>Existencia</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DataSet</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportSections>
+    <ReportSection>
       <Body>
         <ReportItems>
           <Tablix Name="Tablix2">
@@ -114,7 +164,7 @@
                                   <Style>
                                     <FontSize>7.5pt</FontSize>
                                     <Format>#,0.00</Format>
-                                <Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
+                                    <Color>=IIF(Fields!Gpo.Value = "Total","White","Black")</Color>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -128,7 +178,7 @@
                             <Border>
                               <Style>None</Style>
                             </Border>
-                        <BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
+                            <BackgroundColor>=IIF(Fields!Gpo.Value="Total","#67809F","White")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>1pt</PaddingTop>
@@ -149,7 +199,7 @@
                                   <Style>
                                     <FontSize>7.5pt</FontSize>
                                     <Format>#,0.00;(#,0.00)</Format>
-                                <Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
+                                    <Color>=IIF(Fields!Gpo.Value = "Total","White","Black")</Color>
                                   </Style>
                                 </TextRun>
                               </TextRuns>
@@ -163,7 +213,7 @@
                             <Border>
                               <Style>None</Style>
                             </Border>
-                        <BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
+                            <BackgroundColor>=IIF(Fields!Gpo.Value="Total","#67809F","White")</BackgroundColor>
                             <PaddingLeft>2pt</PaddingLeft>
                             <PaddingRight>2pt</PaddingRight>
                             <PaddingTop>1pt</PaddingTop>
@@ -265,34 +315,34 @@
                 <TablixMember>
                   <Group Name="Almacen">
                     <GroupExpressions>
-                  <GroupExpression>=Fields!Almacen.Value</GroupExpression>
+                      <GroupExpression>=Fields!Gpo.Value</GroupExpression>
                     </GroupExpressions>
                   </Group>
                   <TablixHeader>
                     <Size>5cm</Size>
                     <CellContents>
-                  <Textbox Name="Almacen">
+                      <Textbox Name="Gpo">
                         <KeepTogether>true</KeepTogether>
                         <Paragraphs>
                           <Paragraph>
                             <TextRuns>
                               <TextRun>
-                            <Value>=Fields!Almacen.Value</Value>
+                                <Value>=Fields!Gpo.Value</Value>
                                 <Style>
                                   <FontSize>7.5pt</FontSize>
-                              <Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
+                                  <Color>=IIF(Fields!Gpo.Value = "Total","White","Black")</Color>
                                 </Style>
                               </TextRun>
                             </TextRuns>
                             <Style />
                           </Paragraph>
                         </Paragraphs>
-                    <rd:DefaultName>Almacen</rd:DefaultName>
+                        <rd:DefaultName>Gpo</rd:DefaultName>
                         <Style>
                           <Border>
                             <Style>None</Style>
                           </Border>
-                      <BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
+                          <BackgroundColor>=IIF(Fields!Gpo.Value="Total","#67809F","White")</BackgroundColor>
                           <PaddingLeft>2pt</PaddingLeft>
                           <PaddingRight>2pt</PaddingRight>
                           <PaddingTop>1pt</PaddingTop>
@@ -316,7 +366,7 @@
                                     <Value>=Fields!TipoAlmacen.Value</Value>
                                     <Style>
                                       <FontSize>7.5pt</FontSize>
-                                  <Color>=IIF(Fields!Almacen.Value = "Total","White","Black")</Color>
+                                      <Color>=IIF(Fields!Gpo.Value = "Total","White","Black")</Color>
                                     </Style>
                                   </TextRun>
                                 </TextRuns>
@@ -328,7 +378,7 @@
                               <Border>
                                 <Style>None</Style>
                               </Border>
-                          <BackgroundColor>=IIF(Fields!Almacen.Value="Total","#67809F","White")</BackgroundColor>
+                              <BackgroundColor>=IIF(Fields!Gpo.Value="Total","#67809F","White")</BackgroundColor>
                               <PaddingLeft>2pt</PaddingLeft>
                               <PaddingRight>2pt</PaddingRight>
                               <PaddingTop>1pt</PaddingTop>
@@ -673,7 +723,6 @@
               </Style>
             </Textbox>
             <Line Name="Line1">
-          <Top>0in</Top>
               <Height>0cm</Height>
               <Width>19.26933cm</Width>
               <ZIndex>5</ZIndex>
@@ -730,50 +779,8 @@
         <ColumnSpacing>0.13cm</ColumnSpacing>
         <Style />
       </Page>
-  <AutoRefresh>0</AutoRefresh>
+    </ReportSection>
-  <DataSources>
+  </ReportSections>
-    <DataSource Name="DataSet">
-      <ConnectionProperties>
-        <DataProvider>System.Data.DataSet</DataProvider>
-        <ConnectString>/* Local Connection */</ConnectString>
-      </ConnectionProperties>
-      <rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
-    </DataSource>
-  </DataSources>
-  <DataSets>
-    <DataSet Name="DataSet1">
-      <Query>
-        <DataSourceName>DataSet</DataSourceName>
-        <CommandText>/* Local Query */</CommandText>
-      </Query>
-      <Fields>
-        <Field Name="Almacen">
-          <DataField>Almacen</DataField>
-          <rd:TypeName>System.String</rd:TypeName>
-        </Field>
-        <Field Name="Total">
-          <DataField>Total</DataField>
-          <rd:TypeName>System.Double</rd:TypeName>
-        </Field>
-        <Field Name="TipoAlmacen">
-          <DataField>TipoAlmacen</DataField>
-          <rd:TypeName>System.Double</rd:TypeName>
-        </Field>
-        <Field Name="Existencia">
-          <DataField>Existencia</DataField>
-          <rd:TypeName>System.Double</rd:TypeName>
-        </Field>
-      </Fields>
-      <rd:DataSetInfo>
-        <rd:DataSetName>DataSet</rd:DataSetName>
-        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
-        <rd:TableName>DataTable1</rd:TableName>
-        <rd:TableAdapterFillMethod />
-        <rd:TableAdapterGetDataMethod />
-        <rd:TableAdapterName />
-      </rd:DataSetInfo>
-    </DataSet>
-  </DataSets>
   <ReportParameters>
     <ReportParameter Name="NombreEmpresa">
       <DataType>String</DataType>

Inventarios/PrestamosdeProveedor.aspx

@@ -127,7 +127,7 @@
                                 <div style="text-align: center;" class="col-sm-12">
                                     <asp:UpdatePanel runat="server">
                                         <ContentTemplate>
-                                            <asp:Button ID="BtnRecibir" runat="server" Text="Devolver Préstamo" OnClick="BtnRecibir_Click" class="btn btn-primary" ValidationGroup="GrpRecibir" />
+                                            <asp:Button ID="BtnRecibir" runat="server" Text="Devolver Préstamo" OnClick="BtnRecibir_Click" class="btn btn-primary" ValidationGroup="GrpRecibir"  Visible="false" />
                                         </ContentTemplate>
                                     </asp:UpdatePanel>
                                 </div>

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -23,11 +23,16 @@ Partial Class Inventarios_PrestamosdeProveedor
 
     Private Sub Inventarios_PrestamosdeProveedor_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+
             CargaCombos()
             CveMovimiento = 0
             CveProveedor = 0
-
             CargaDatos()
+
+            If UsuarioActual.TienePermisoProceso(409) Then
+                BtnRecibir.Visible = True
+            End If
+
         End If
     End Sub
 

Inventarios/RepAlmacen.aspx

@@ -144,7 +144,7 @@
                             <asp:ListBox ID="DdlTipoAlmacen" SelectionMode="Multiple" CssClass="form-control  ddlFiltros input-sm select2me Widthall" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
                         </div>
                          <div class="col-md-1 truncate" style="text-align: right!important">Aplica Almacen</div>
-                        <div class="col-md-1">
+                        <div class="col-md-2">
                              <asp:DropDownList ID="DdlAplicaInventario" runat="server" CssClass="input-small input-sm select2me" Width="100%">
                                 <asp:ListItem Text="Todos" Value="-1" Selected="True"> </asp:ListItem>
                                 <asp:ListItem Text="Inventariable" Value="1"></asp:ListItem>
@@ -157,7 +157,7 @@
 
 
                          <div class="col-md-1 truncate" style="text-align: right!important">Grupo:</div>
-                            <div class="col-md-1">
+                            <div class="col-md-2">
                                  <asp:DropDownList ID="DdlGrupo" runat="server" CssClass="input-small input-sm select2me" Width="100%">                                    
                                     <asp:ListItem Text="Almacen" Value="1"></asp:ListItem>
                                     <asp:ListItem Text="Clasificación" Value="2"></asp:ListItem>
@@ -178,7 +178,7 @@
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <asp:GridView ID="GVAlmacen" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" 
-                 DataKeyNames="Gpo,CveAlmacen,CveClasificacion" >
+                 DataKeyNames="Gpo,CveAlmacen,CveClasificacion,FechaInicio,FechaFin" >
                 <Columns>
                     <asp:TemplateField HeaderText="Almacén">
                         <ItemTemplate>

Inventarios/RepAlmacen.aspx.vb

@@ -46,6 +46,9 @@ Partial Class Inventarios_RepAlmacen
     Private Sub CargaDatos()
         Dim objInv As New ClsInventarios
 
+        GVAlmacen.Columns(1).Visible = If(DdlGrupo.SelectedValue.ToEntero = 1, True, False)
+        GVAlmacen.Columns(1).HeaderText = If(DdlGrupo.SelectedValue.ToEntero = 1, "Almacen", "Clasificación")
+
         Dim FechaI, FechaF As String
         FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
         FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
@@ -98,7 +101,10 @@ Partial Class Inventarios_RepAlmacen
         params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
         params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
         params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-        ImprimirPDF("Empresas/Grales/Formatos/RepAlmacen.rdlc", TmpDT, params, "ReporteAlmacen", Formato)
+
+        Dim Archivo As String = If(DdlGrupo.SelectedValue.ToEntero = 1, "RepAlmacen.rdlc", "RepAlmacenClasificacion.rdlc")
+
+        ImprimirPDF($"Empresas/Grales/Formatos/{Archivo}", TmpDT, params, "ReporteAlmacen", Formato)
     End Sub
     Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
         GenerarPDF()
@@ -111,17 +117,21 @@ Partial Class Inventarios_RepAlmacen
             '    e.Row.CssClass = "Totales"
             'End If
 
-            If e.Row.Cells(0).Text = "" Then
+            If e.Row.DataKey("Gpo") = "Total" Then
                 e.Row.CssClass = "Totales"
             End If
 
-            If e.Row.DataKey("CveAlmacen").ToEntero > 0 Then
+
-                Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&FechaInicio={1:d}&FechaCorte={2:d}&Tipo=-1"
+            Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
             e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
 
-                <asp:HyperLink ID = "HyperLink1" Target="_blank" NavigateUrl='<%# String.Format("/Inventarios/RepEntradasSalidas.aspx?CveAlmacen={0}&FechaInicio={1:d}&FechaCorte={2:d}&Tipo=-1", Eval("CveAlmacen").ToString, Eval("FechaInicio"), Eval("FechaFin"))%>' runat="server"><%# Eval("Almacen") %></asp:HyperLink>-
+            'If DdlGrupo.SelectedValue.ToEntero = 1 Then
-            End If
+            '    Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
-
+            '    e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
+            'Else
+            '    Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
+            '    e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
+            'End If
 
         End If
 

Inventarios/RepEntradasSalidas.aspx.vb

@@ -74,10 +74,25 @@ Partial Class Inventarios_ReporteEntradasSalidas
             FechaFinal = "-1"
 
             CargaCombos()
-
             GvM.DataBind(True)
-            If Not IsNothing(Request("CveAlmacen")) Then
+            CargaRequest()
-                DdlAlmacen.SelectedValue = Request("CveAlmacen").ToString()
+            CargaPermisos()
+            CargaGvBitacora()
+
+            ' Lnkcompuxlsinventarios.Visible = UsuarioActual.CveEmpresa = 72
+        End If
+    End Sub
+
+    Private Sub CargaRequest()
+
+        Dim CveAlmacen As Integer = If(Not IsNothing(Request("CveAlmacen")) AndAlso Request("CveAlmacen").ToEntero > 0, Request("CveAlmacen").ToEntero, -1)
+        Dim CveClasificacion As Integer = If(Not IsNothing(Request("CveClasificacion")) AndAlso Request("CveClasificacion").ToEntero > 0, Request("CveClasificacion").ToEntero, -1)
+
+        If CveAlmacen > 0 Or CveClasificacion > 0 Then   ' CveClasificacion
+
+            DdlAlmacen.SelectedValuesIfExist(CveAlmacen.ToString)
+            DdlClasificacion.SelectedValueExist(CveClasificacion)
+
             TxtFechaI.Text = "01/01/2000"
             If Not IsNothing(Request("FechaCorte")) Then
                 TxtFechaF.Text = Request("FechaCorte")
@@ -91,14 +106,10 @@ Partial Class Inventarios_ReporteEntradasSalidas
                 DdlMovs.SelectedValueExist(Request("Tipo").ToEntero)
             End If
 
-                btConsultar_Click(Nothing, Nothing)
+            CargaDatos()
         End If
-            CargaPermisos()
-            CargaGvBitacora()
-            ' Lnkcompuxlsinventarios.Visible = UsuarioActual.CveEmpresa = 72
-        End If
-    End Sub
 
+    End Sub
     Private Sub CargaPermisos()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
 

RH/Personal.aspx.vb

@@ -7055,7 +7055,7 @@ Partial Class RH_Personal
 
                         If objRH.DtResultados.Rows.Count > 0 Then
                             Dim diasvaca As Integer = objRH.DtResultados(0)("Dias").ToString().ToEntero()
-                            TxtFIDiasVacaciones.Text = If(diasvaca > 5, diasvaca, 6).ToString()
+                            TxtFIDiasVacaciones.Text = If(diasvaca > 11, diasvaca, 12).ToString()
                         Else
                             TxtFIDiasVacaciones.Text = "12"
                         End If