Rep Egresos sin comprobante saldar, Ie carga de archivo en bitacora

Bancos/IE.aspx.vb

@@ -4778,7 +4778,8 @@ Partial Class Bancos_IE
             filemove = fileItem.filename
         Next
 
-        If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format("{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
+
+        If ObjEventoBitacora.AddEventoBitacora(TxtEventoDescripcion.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveIE:=CveIE) Then
             If filemove <> "" Then
                 filemove.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False)
             End If

Bancos/RepEgresosSinComprobante.aspx

@@ -13,14 +13,11 @@
     <asp:UpdatePanel runat="server">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkHabilitarSaldar" runat="server"><i class="fa fa-money"></i> Otros Egresos</asp:LinkButton>
+                <asp:LinkButton ID="LnkHabilitarSaldar" runat="server"><i class="fa fa-money"></i> Saldar</asp:LinkButton>
             </li>
             <li>
                 <asp:LinkButton ID="LnkHabilitarSaldarFyE" runat="server"><i class="fa fa-money"></i> Viaticos-Personal</asp:LinkButton>
-            </li>
+            </li>            
-            <li>
-                <asp:LinkButton ID="LnkSaldar" Visible="false" OnClick="LnkSaldar_Click" runat="server"><i class="fa fa-money"></i> Saldar Proveedores</asp:LinkButton>
-            </li>
             <li>
                 <asp:LinkButton ID="LnkSaldarFyE" Visible="false" OnClick="LnkSaldarFyE_Click" runat="server"><i class="fa fa-money"></i> Saldar FyE</asp:LinkButton>
             </li>
@@ -146,6 +143,43 @@
 
     <br />
 
+    <asp:UpdatePanel runat="server" ID="UpSaldar" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            <div class="row" id="DVSaldar" runat="server" visible="false">
+                <div class="col-lg-1">
+                    Concepto:
+                </div>
+                <div class="col-lg-2">
+                    <asp:TextBox runat="server" ID="TxtConcepto" CausesValidation="true" Width="100%" MaxLength="100"></asp:TextBox>
+                    <asp:RequiredFieldValidator  ID="RfvTxtConcepto" runat="server" Enabled="true" CssClass="help-block errorimput" ControlToValidate="TxtConcepto"  Display="Dynamic"
+                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Concepto''</b> es necesario, por favor ingréselo." 
+                        ValidationGroup="GrpSaldar"></asp:RequiredFieldValidator>
+                </div>
+                <div class="col-lg-1">
+                    <asp:Label runat="server" ID="LblSubproyecto"></asp:Label>:
+                </div>
+                <div class="col-lg-2">
+                    <asp:DropDownList runat="server" ID="DdlSubProyecto" CssClass="select2me" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
+                    <asp:RequiredFieldValidator ID="RfvDdlSubProyecto" InitialValue="-1" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlSubProyecto"   Display="Dynamic"
+                        ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Pais''</b> es necesario, por favor ingréselo." 
+                        ValidationGroup="GrpSaldar"></asp:RequiredFieldValidator>
+                </div>
+                <div class="col-lg-1">
+
+                    <asp:LinkButton ID="LnkSaldar" Visible="true" OnClick="LnkSaldar_Click" runat="server" CssClass="btn btn-primary" ValidationGroup="GrpSaldar">
+                        <i class="fa fa-money"></i> Saldar
+                    </asp:LinkButton>
+
+                </div>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+    
+
     <ajax:TabContainer ID="tabGeneral" runat="server" ActiveTabIndex="0" Width="100%" >
 
         <ajax:TabPanel ID="tabProveedores" runat="server" HeaderText="Proveedores">

Bancos/RepEgresosSinComprobante.aspx.vb

@@ -61,6 +61,8 @@ Partial Class Bancos_RepEgresosSinComprobante
             DdlProveedores.SelectedValue = "-1"
 
             CargaDatos()
+            TxtConcepto.Text = "Saldo de Egresos por comprobar"
+            CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubproyecto, AplicaTodos:="Selecione uno")
 
         End If
     End Sub
@@ -170,15 +172,20 @@ Partial Class Bancos_RepEgresosSinComprobante
         GvPersonal.DataBind()
     End Sub
 
-    Private Sub LnkHabilitarSaldar_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldar.Click
+    Private Sub LnkHabilitarSaldar_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldar.Click
+
         For Each gr As GridViewRow In GvESC.Rows
             If gr.DataKey("CveIE") <> "" Then
-                gr.FCCheckBox("Chk").Visible = True
+                gr.FCCheckBox("Chk").Visible = True
-                LnkSaldar.Visible = True
+                UPDatos.Update()
-                LnkHabilitarSaldar.Visible = False
+
-                UPDatos.Update()
             End If
         Next
+
+        TxtConcepto.Text = "Saldo de Egresos por comprobar"
+        DVSaldar.Visible = True
+        UpSaldar.Update()
+
     End Sub
     Private Sub LnkHabilitarSaldoFyE_Click(sender As Object, e As EventArgs) Handles LnkHabilitarSaldarFyE.Click
         For Each gr As GridViewRow In GvPersonal.Rows
@@ -193,25 +200,34 @@ Partial Class Bancos_RepEgresosSinComprobante
 
     Protected Sub LnkSaldar_Click(sender As Object, e As EventArgs)
 
+
+
+        Dim Contador As Integer = 0
+        For Each gr As GridViewRow In GvESC.Rows
+            If gr.FCCheckBox("Chk").Checked Then
+                Contador += 1
+            End If
+        Next
+
+        If Not Contador > 0 Then
+            Alert("No se hay movimientos seleccionados")
+            Exit Sub
+        End If
+
+
         Dim ObjConta As New ClsContabilidad
         Dim ObjProveedor As New ClsCompProveedores(ObjConta.IniciaTransacSQL())
 
-
         Dim EsContabilizable As Boolean = If(UsuarioActual.CveEmpresa.Contiene(13, 83), False, True)
 
         Dim CvePrePoliza As Integer = 0
         Dim MsgError As String = ""
         Try
-            Dim Contador As Integer = 0
+
-            For Each gr As GridViewRow In GvESC.Rows
-                If gr.FCCheckBox("Chk").Checked Then
-                    Contador += 1
-                End If
-            Next
 
             If Contador > 0 Then
                 CvePrePoliza = ObjConta.AddPrePolizas("Bancos/RepEgresosSinComprobante", 6, 0, 0, 1, Now,
-                                                          "Saldo de Egresos por comprobar", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                                                          TxtConcepto.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                 For Each gr As GridViewRow In GvESC.Rows
                     If gr.FCCheckBox("Chk").Checked Then
@@ -245,7 +261,7 @@ Partial Class Bancos_RepEgresosSinComprobante
                         End If
 
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoOtIngresos, gr.DataKey("Saldo").ToDecimal, gr.DataKey("Folio"), 211, "Saldo de ExC por Sistema", Now, UsuarioActual.Empresa.IdCuentaOtrosIngresos, -1, gr.DataKey("CveIE").ToEntero,
-                                                             ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=gr.DataKey("CveSubProyecto").ToEntero, Contabilizable:=EsContabilizable) Then
+                                                             ImporteMX:=gr.DataKey("Saldo").ToDecimal, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, Contabilizable:=EsContabilizable) Then
                             MsgError = "Ocurrio un error al saldar el movimiento"
                             Exit For
                         End If
@@ -269,8 +285,10 @@ Partial Class Bancos_RepEgresosSinComprobante
 
 
         If MsgError = "" Then
-            LnkSaldar.Visible = False
+            'LnkSaldar.Visible = False
-            LnkHabilitarSaldar.Visible = True
+            'LnkHabilitarSaldar.Visible = True
+            DVSaldar.Visible = False
+
             ObjConta.Commit()
             CargaDatos()
             Alert(String.Format("Los movimientos se saldaron correctamente <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}' class='Texto'>Ver Póliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)