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

Bancos/ConciliacionesBancarias.aspx.vb

@@ -667,7 +667,13 @@ Partial Class Bancos_ConciliacionesBancariasaspx
             params.Add(New ReportParameter("LogoPath", ""))
         End If
 
-        ImprimirPDF("Empresas/Grales/Formatos/Conciliacion.rdlc", lrds, params, $"Conciliacion Bancaria {NombreMes} {txtFechaI.Text.ToDate.Year}", Formato)
+        Dim Archivo As String = $"Empresas/{UsuarioActual.CveEmpresa}/Formatos/Conciliacion.rdlc"
+
+        If Not IO.File.Exists($"{Server.MapPath("~")}/{Archivo}") Then
+            Archivo = "Empresas/Grales/Formatos/Conciliacion.rdlc"
+        End If
+
+        ImprimirPDF(Archivo, lrds, params, $"Conciliacion Bancaria {NombreMes} {txtFechaI.Text.ToDate.Year}", Formato)
     End Sub
 
 #End Region

Bancos/FluctuacionCambiaria.aspx.vb

@@ -44,7 +44,7 @@ Partial Class Bancos_FluctuacionCambiaria
         'Año actual
         DdlAnio.Items.Add(New ListItem(Now.Year.ToString(), Now.Year.ToString()))
         'Año Anterior
-        DdlAnio.Items.Add(New ListItem(Now.AddYears(-1).Year.ToString(), Now.AddYears(1).Year.ToString()))
+        DdlAnio.Items.Add(New ListItem(Now.AddYears(-1).Year.ToString(), Now.AddYears(-1).Year.ToString()))
 
         For i = 1 To 12
             Dim fecha = New DateTime(DdlAnio.SelectedValue.ToEntero(), i, 1)

Bancos/PopIEVentas.aspx.vb

@@ -302,8 +302,8 @@ Partial Class Bancos_PopIEVentas
         Set(value As String)
             ViewState("SerieFolio") = value
         End Set
-    End Property
-
+    End Property
+
     Private Property CveMonedaVenta As Integer
         Get
             Return ViewState("CveMonedaVenta").ToString.ToEntero
@@ -728,6 +728,10 @@ Partial Class Bancos_PopIEVentas
                 TipoCambioOriginal = dr("TipoCambio").ToString.ToDecimal
                 CveSubProyectoVenta = dr("CveSubProyecto").ToString.ToEntero
 
+                If UsuarioActual.CveEmpresa = 140 Then 'codigo temporal. RMF permite cargar el corte 
+                    CveCorte = dr("CveCorte").ToString.ToEntero
+                End If
+
                 LblMetodoPAgo.Text = $"{dr("ClaveMetodoPagoSATStr").ToString() }"
 
                 'Configuración de Modalidad Update

Bancos/RepCxCCliente.aspx

@@ -66,7 +66,8 @@
                         <a href="javascript:;" class="expand"></a>
                     </div>
                     <div class="titlefiltros caption ">
-                        <ul class="list-inline text-size-12">
+                        <div class="row">
+                            <ul class="list-inline text-size-12">
                             <li>Sucursal:
                                  <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="120px">
                                      <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
@@ -105,27 +106,40 @@
                             <li>Cliente:
                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="min-width: 100px;"></ADS:Dropdownlost>
                                 <%--<asp:DropDownList ID="DdlClientes" runat="server" CssClass="form-control select2me input-sm" AppendDataBoundItems="true" DataTextField="NombreComercial" DataValueField="CveCliente" Width="120px"></asp:DropDownList>--%>
-                            </li>
-                            <li>Moneda:
-                                <asp:DropDownList ID="DdlMoneda" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="Moneda" DataValueField="CveMoneda" Width="80px">
-                                    <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                                </asp:DropDownList>
-                            </li>
+                            </li>                            
 
                         </ul>
-                        <ul class="list-inline text-size-12">
-                            <li>Ver Por:&nbsp;&nbsp;
-                                <asp:DropDownList ID="DdlAgrupador" CssClass="select2me" runat="server" AppendDataBoundItems="true" Width="120px">
-                                    <asp:ListItem Selected="True" Text="Sucursal" Value="1"></asp:ListItem>
-                                    <asp:ListItem Text="Moneda" Value="2"></asp:ListItem>
-                                </asp:DropDownList>
-                            </li>
-                            <li>Cuenta:&nbsp;&nbsp;&nbsp;&nbsp;
-                                <asp:Textbox runat="server" ID="TxtCuenta" Width="120px"/>
-                            </li>
-                        </ul>
+
+                    </div>
+                     
                     </div>
                 </div>
+                 <div class="portlet-body" style="display: none;">
+                            <div class="row">
+                                <ul class="list-inline text-size-12">
+                                    <li>Ver Por:&nbsp;&nbsp;
+                                        <asp:DropDownList ID="DdlAgrupador" CssClass="select2me" runat="server" AppendDataBoundItems="true" Width="120px">
+                                            <asp:ListItem Selected="True" Text="Sucursal" Value="1"></asp:ListItem>
+                                            <asp:ListItem Text="Moneda" Value="2"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </li>
+                                    <li>Cuenta:&nbsp;&nbsp;&nbsp;&nbsp;
+                                        <asp:Textbox runat="server" ID="TxtCuenta" Width="120px"/>
+                                    </li>
+                                    <li>Moneda:
+                                        <asp:DropDownList ID="DdlMoneda" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="Moneda" DataValueField="CveMoneda" Width="80px">
+                                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </li>
+                                    <li>Opción:&nbsp;&nbsp;&nbsp;&nbsp;
+                                        <asp:DropDownList ID="DdlEstatusFactura" CssClass="select2me" runat="server" AppendDataBoundItems="true" Width="120px">
+                                            <asp:ListItem Selected="True" Text="Solo vigentes" Value="0"></asp:ListItem>
+                                            <asp:ListItem Text="Incluir en proceso cancelación" Value="-1"></asp:ListItem>
+                                        </asp:DropDownList>
+                                    </li>
+                                </ul>
+                                </div>
+                            </div>
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>

Bancos/RepCxCCliente.aspx.vb

@@ -19,15 +19,17 @@ Partial Class Bancos_RepCxCCliente
             DdlMoneda.DataSource = GlobalDTMonedas()
             DdlMoneda.DataBind()
 
-            Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
-            If EsWS Then
-                DdlClientesWS.setEsWebService(True)
-            Else
-                DdlClientesWS.setEsWebService(False)
-                DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-                DdlClientesWS.DataBind()
-                DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-            End If
+            DdlClientesWS.setEsWebService(True)
+
+            'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+            'If EsWS Then
+            '    DdlClientesWS.setEsWebService(True)
+            'Else
+            '    DdlClientesWS.setEsWebService(False)
+            '    DdlClientesWS.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+            '    DdlClientesWS.DataBind()
+            '    DdlClientesWS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+            'End If
 
             DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
             DdlSubProyecto.DataBind()
@@ -58,7 +60,8 @@ Partial Class Bancos_RepCxCCliente
 
         Dim Cuenta As String = If(TxtCuenta.Text = "", "-1", TxtCuenta.Text)
 
-        If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta) Then
+        If Mov.GetCxCCliente(CveCliente, FechaI, FechaF, DdlMoneda.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1,
+                             UsuarioActual.CveEmpresa, DdlAgrupador.SelectedValue.ToEntero, UsuarioActual.CveUsuario, Cuenta:=Cuenta, EstatusFactura:=DdlEstatusFactura.SelectedValue.ToEntero) Then
             GvCxC.DataSource = Mov.DtResultados
         End If
         UsuarioActual.Sesion("CobroCliente-Sucursal") = DdlSubProyecto.SelectedValue