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

App_Code/ClsContPAQi.vb

@@ -7290,12 +7290,11 @@ Public Class ClsContPAQi
         StrSQL.Append("		FROM [dbo].[Polizas]  P ")
         StrSQL.Append("			LEFT JOIN TiposPolizas T ON T.Id = P.TipoPol ")
         StrSQL.Append("			LEFT JOIN MovimientosPoliza M ON M.IdPoliza = P.Id ")
-        StrSQL.Append("			LEFT JOIN [SERVIDOR].[Ventas].dbo.Conta_PrePolizas PP on P.Id = PP.IdPoliza")
+        StrSQL.Append("			LEFT JOIN [SERVIDOR].[Ventas].dbo.Conta_PrePolizas PP on P.Id = PP.IdPoliza AND YEAR(PP.Fecha) = @Ejercicio AND MONTH(PP.Fecha) = @Periodo AND PP.CveEmpresa = @CveEmpresa")
         StrSQL.Append("		WHERE P.Ejercicio = @Ejercicio ")
         StrSQL.Append("			AND P.Periodo = @Periodo ")
         StrSQL.Append("			AND (@TipoPoliza = -1 OR P.TipoPol = @TipoPoliza) ")
         StrSQL.Append("			AND (@SegmentoNegocio = -1 OR M.IdSegNeg = @SegmentoNegocio) ")
-        StrSQL.Append("			AND (PP.CveEmpresa = @CveEmpresa) ")
         StrSQL.Append("		GROUP BY P.Id, P.Fecha, T.Nombre, P.Concepto, P.Cargos, P.Abonos, P.Folio, PP.CvePrepoliza ")
         StrSQL.Append("		ORDER BY P.Folio ")
 

Contabilidad/RegPrePoliza.aspx.vb

@@ -1843,7 +1843,6 @@ Partial Class ContabilidadC_RegPrePoliza
                 dt = DtMovimientos.FiltraParametros("", "", filtroComplemento)
                 For Each Row As DataRow In dt.Rows
                     If ObjCompra.GetCompraComplementoPago(-1, UsuarioActual.CveEmpresa, Row("CveIE").ToString.ToEntero) Then
-                        Console.WriteLine(Row("CveIE").ToString)
                         If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
                             Dim dr As DataRow = ObjCompra.DtResultados.Rows(0)
                             Dim RFC As String = dr("RFCde").ToString
@@ -1860,17 +1859,20 @@ Partial Class ContabilidadC_RegPrePoliza
                     End If
                 Next
                 MergePdfFiles(Pathpdf.ToArray)
+                If File.Exists(pathPoliza) Then
+                    Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+                End If
+
             Else
                 Alert("No se tiene cargado comprobante de pago", TipoMensaje.MsgAdvertencia)
             End If
 
         Catch ex As Exception
             Alert("Error al descargar el paquete", TipoMensaje.MsgError)
+            If File.Exists(pathPoliza) Then
+                Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+            End If
         End Try
-
-        If Directory.Exists(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick)) Then
-            Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
-        End If
         ObjCompra.Dispose()
         ObjIE.Dispose()
     End Sub
@@ -1989,6 +1991,9 @@ Partial Class ContabilidadC_RegPrePoliza
 
                 End If
                 result = True
+                If Directory.Exists(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick)) Then
+                    Directory.Delete(String.Format("{0}/{1}", AppDomain.CurrentDomain.BaseDirectory, Tick), True)
+                End If
             End If
         Catch ex As Exception
         End Try

Contabilidad/RegPrePolizaS.aspx

@@ -69,13 +69,13 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 
             <li>
-                <asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="far fa-file-excel" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
+                <asp:LinkButton ID="LnkExcel" runat="server" Visible="true" data-target="#DivCargaExcel"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Cargar Excel</asp:LinkButton>
             </li>
             <li>
                 <asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" OnClick="LnkComplementoPago_Click" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Crear Complemento de Pago</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkImprimirPDF" runat="server" Visible="false" OnClick="LnkImprimirPDF_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir Poliza</asp:LinkButton>
+                <asp:LinkButton ID="LnkImprimirPDF" runat="server"  OnClick="LnkImprimirPDF_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir Poliza</asp:LinkButton>
             </li>
 
 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -517,11 +517,6 @@ Partial Class ContabilidadC_RegPrePolizaS
             If CveConceptoContable.Contiene(5, 6, 17, 18, 14, 19, 25, 26, 60, 234, 235, 240) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Compras/Compras.aspx?CveCompra={0}", e.Row.DataKey("CveCompra"))
             If CveConceptoContable.Contiene(68) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}", e.Row.DBCampo("CveMovimientoAlmacen"))
             If CveConceptoContable.Contiene(30, 204) Then e.Row.FCHyperLink("HlReferencia").NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", e.Row.DBCampo("CveIE"))
-
-            If CveConceptoContable.Contiene(30) Then
-                LnkImprimirPDF.Visible = True
-                CveIE = e.Row.DBCampo("CveIE").ToString.ToEntero
-            End If
 
             'e.Row.FCHyperLink("HlReferencia").NavigateUrl = CveConceptoContable
 

Contabilidad2/CatCuentas.aspx

@@ -55,6 +55,9 @@
     Catálogo de Cuentas Contables
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
+            <li>
+                <asp:LinkButton ID="LnkImprimirExcel" runat="server"  OnClick="LnkImprimirExcel_Click" Style="color: #686868;"><i class="fa fa-file-excel-o" style="color:#686868;"></i> Imprimir Cuentas</asp:LinkButton>
+            </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel ID="upcuentas" runat="server" UpdateMode="Conditional">

Contabilidad2/CatCuentas.aspx.vb

@@ -1,5 +1,6 @@
 Imports System.Data
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Contabilidad2_CatCuentas
     Inherits ClsPaginas
@@ -673,5 +674,19 @@ Partial Class Contabilidad2_CatCuentas
             End Select
         End If
     End Sub
+    Protected Sub LnkImprimirExcel_Click(sender As Object, e As EventArgs)
+        Imprime("Excel")
+    End Sub
+    Private Sub Imprime(Formato As String)
+        If DtDatos IsNot Nothing Then
 
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+
+            ImprimirPDF("Empresas/Grales/Formatos/Cuentas.rdlc", DtDatos, params, "Cuentas", Formato)
+        Else
+            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+        End If
+    End Sub
 End Class

Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2016/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet">
@@ -37,6 +37,10 @@
           <DataField>SerieLote</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="Serie">
+          <DataField>Serie</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
         <Field Name="FolioSalida">
           <DataField>FolioSalida</DataField>
           <rd:TypeName>System.String</rd:TypeName>
@@ -86,16 +90,19 @@
                   <Width>1.69333cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.74675cm</Width>
+                  <Width>1.16467cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>1.51446cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>3.74919cm</Width>
+                  <Width>3.37414cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>6.22158cm</Width>
+                  <Width>5.82471cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>1.53921cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>1.57859cm</Width>
@@ -235,7 +242,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Disponible</Value>
+                                  <Value>Disp.</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                     <FontWeight>Bold</FontWeight>
@@ -450,6 +457,62 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox13">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Serie </Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox13</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <BackgroundColor>Silver</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox4">
@@ -747,7 +810,6 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
-                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -888,6 +950,41 @@
                             <PaddingBottom>2pt</PaddingBottom>
                           </Style>
                         </Textbox>
+                        <rd:Selected>true</rd:Selected>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Serie">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!Serie.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIf(Fields!PS.Value = "", "Bold", "Default")</FontWeight>
+                                    <Color>=IIf(Fields!PS.Value = "", "White", "Black")</Color>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Serie</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BackgroundColor>=IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
                       </CellContents>
                     </TablixCell>
                     <TablixCell>
@@ -1050,6 +1147,7 @@
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
+                <TablixMember />
               </TablixMembers>
             </TablixColumnHierarchy>
             <TablixRowHierarchy>
@@ -1069,7 +1167,7 @@
             <DataSetName>DataSet1</DataSetName>
             <Top>0.17639cm</Top>
             <Height>1.0148cm</Height>
-            <Width>24.37731cm</Width>
+            <Width>24.56252cm</Width>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -1080,7 +1178,7 @@
         <Height>0.67394in</Height>
         <Style />
       </Body>
-      <Width>9.69372in</Width>
+      <Width>9.67028in</Width>
       <Page>
         <PageHeader>
           <Height>3.48078cm</Height>
@@ -1108,7 +1206,7 @@
               <rd:DefaultName>Textbox1</rd:DefaultName>
               <Top>0.47625cm</Top>
               <Height>0.6cm</Height>
-              <Width>24.62205cm</Width>
+              <Width>24.56252cm</Width>
               <Style>
                 <Border>
                   <Style>None</Style>
@@ -1155,7 +1253,7 @@
               <rd:DefaultName>Textbox2</rd:DefaultName>
               <Top>1.07625cm</Top>
               <Height>0.52945cm</Height>
-              <Width>24.62205cm</Width>
+              <Width>24.56252cm</Width>
               <ZIndex>1</ZIndex>
               <Style>
                 <Border>
@@ -1173,7 +1271,7 @@
               <Sizing>FitProportional</Sizing>
               <Top>0.11458in</Top>
               <Height>2.09585cm</Height>
-              <Width>24.37731cm</Width>
+              <Width>24.56252cm</Width>
               <ZIndex>2</ZIndex>
               <Style>
                 <Border>
@@ -1201,7 +1299,7 @@
               <rd:DefaultName>Filtros</rd:DefaultName>
               <Top>2.56328cm</Top>
               <Height>0.6cm</Height>
-              <Width>24.37731cm</Width>
+              <Width>24.56252cm</Width>
               <ZIndex>3</ZIndex>
               <Style>
                 <Border>
@@ -1216,7 +1314,7 @@
             <Line Name="Line1">
               <Top>3.30439cm</Top>
               <Height>0cm</Height>
-              <Width>24.37731cm</Width>
+              <Width>24.56252cm</Width>
               <ZIndex>4</ZIndex>
               <Style>
                 <Border>
@@ -1375,7 +1473,7 @@
             <Line Name="Line2">
               <Top>0.15875cm</Top>
               <Height>0cm</Height>
-              <Width>24.37731cm</Width>
+              <Width>24.56252cm</Width>
               <ZIndex>4</ZIndex>
               <Style>
                 <Border>
@@ -1513,6 +1611,49 @@
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
   </ReportParameters>
+  <ReportParametersLayout>
+    <GridLayoutDefinition>
+      <NumberOfColumns>2</NumberOfColumns>
+      <NumberOfRows>4</NumberOfRows>
+      <CellDefinitions>
+        <CellDefinition>
+          <ColumnIndex>0</ColumnIndex>
+          <RowIndex>0</RowIndex>
+          <ParameterName>NombreEmpresa</ParameterName>
+        </CellDefinition>
+        <CellDefinition>
+          <ColumnIndex>1</ColumnIndex>
+          <RowIndex>0</RowIndex>
+          <ParameterName>FechaInicio</ParameterName>
+        </CellDefinition>
+        <CellDefinition>
+          <ColumnIndex>0</ColumnIndex>
+          <RowIndex>1</RowIndex>
+          <ParameterName>FechaFin</ParameterName>
+        </CellDefinition>
+        <CellDefinition>
+          <ColumnIndex>1</ColumnIndex>
+          <RowIndex>1</RowIndex>
+          <ParameterName>UsuarioImprimio</ParameterName>
+        </CellDefinition>
+        <CellDefinition>
+          <ColumnIndex>0</ColumnIndex>
+          <RowIndex>2</RowIndex>
+          <ParameterName>LogoPath</ParameterName>
+        </CellDefinition>
+        <CellDefinition>
+          <ColumnIndex>1</ColumnIndex>
+          <RowIndex>2</RowIndex>
+          <ParameterName>Filtros</ParameterName>
+        </CellDefinition>
+        <CellDefinition>
+          <ColumnIndex>0</ColumnIndex>
+          <RowIndex>3</RowIndex>
+          <ParameterName>FechaImprimio</ParameterName>
+        </CellDefinition>
+      </CellDefinitions>
+    </GridLayoutDefinition>
+  </ReportParametersLayout>
   <rd:ReportUnitType>Cm</rd:ReportUnitType>
   <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
 </Report>

OC/RepSolicitudesAnticipo.aspx

@@ -3,6 +3,7 @@
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" Runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" Runat="Server">
+
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" Runat="Server">
     Reporte de Solicitudes de Anticipo
@@ -120,13 +121,14 @@
             </div>
             <asp:GridView ID="GvSolicitudes" runat="server" GridLines="None" DataKeyNames="CveOrdenCompra,Folio, RazonSocial, ImporteSol, FolioMov, Importe, Nombre, CveEvento"
                 CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" data-footer="0" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False"
-                EmptyDataText="No se encontraron registros">
+                EmptyDataText="No se encontraron registros" OnRowDataBound="GvSolicitudes_RowDataBound">
                 <Columns>
                      <asp:TemplateField Visible="false">
                         <HeaderTemplate>
+                            <asp:CheckBox ID="ChkAll" runat="server"/>
                         </HeaderTemplate>
                         <ItemTemplate>
-                            <asp:CheckBox ID="ChkOrdenCompra" runat="server"/>
+                            <asp:CheckBox ID="ChkOrdenCompra"  runat="server" />
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Ord. Compra" ItemStyle-Width="10%">
@@ -233,12 +235,10 @@
 
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
-
     <script type="text/javascript">
-        jQuery('#C_datetimepicker').datetimepicker({
+        function SeleccionarTodos(chk) {
-            timepicker: false,
+            $("#C_GvSolicitudes input:checkbox").attr("checked", chk.checked);
-            format: 'd.m.Y'
+        }
-        });
     </script>
 </asp:Content>
 

OC/RepSolicitudesAnticipo.aspx.cs

@@ -77,6 +77,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
         CargaProveedor();
         CargaUsuarios();
         CargaDatos();
+
     }
 
     private void CargaSubProyectos()
@@ -155,11 +156,20 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
     }
     protected void LnkCambiarFecha_Click(object sender, EventArgs e)
     {
-        GvSolicitudes.Columns[0].Visible = true;
+        if (GvSolicitudes.Rows.Count > 0)
-        LnkGuardar.Visible = true;
+        {
-        LnkCambiarFecha.Visible = false;
+            GvSolicitudes.Columns[0].Visible = true;
-        UPAcciones.Update();
+            LnkGuardar.Visible = true;
-        UPDatos.Update();
+            LnkCambiarFecha.Visible = false;
+            GvSolicitudes.HeaderRow.FCCheckBox("ChkAll").Attributes.Add("onclick", "SeleccionarTodos(this);");
+            UPAcciones.Update();
+            UPDatos.Update();
+        }
+        else
+        {
+            Alert("No hay informacion cargada", TipoMensaje.MsgAdvertencia);
+        }
+
     }
     protected void LnkGuardar_Click(object sender, EventArgs e)
     {
@@ -284,4 +294,14 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
         ImprimirbytesPDF(all, "RepSolicitudesAnticipo");
         
     }
+
+    protected void GvSolicitudes_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            e.Row.FCCheckBox("ChkOrdenCompra").Attributes.Add("Class", "ChkOrdenCompra");
+        }
+
+    }
+
 }