merge

2021-04-15 13:14:23 -07:00
parent 46e195b79a fdac688d39
commit aff221810b
27 changed files with 4083 additions and 1220 deletions
--- a/Bancos/DepositosCaja.aspx
+++ b/Bancos/DepositosCaja.aspx
@@ -10,7 +10,7 @@
 </asp:Content>

 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
-    <asp:Literal ID="LtlTitulo" runat="server" Text="Depositos de Caja"></asp:Literal>&nbsp;<asp:Literal ID="LtlDepositoCaja" runat="server"></asp:Literal>
+    <asp:Literal ID="LtlTitulo" runat="server" Text="Depósitos de Caja"></asp:Literal>&nbsp;<asp:Literal ID="LtlDepositoCaja" runat="server"></asp:Literal>
 </asp:Content>

 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
@@ -81,9 +81,16 @@
                            </div>
                            
                        </div>
-
+                        <div class="row">
+                            <label class="col-md-1 truncate" style="width: 100px;">SubProyecto:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" ValidationGroup="">                                   
+                                </asp:DropDownList>
+                            </div>
+                        </div>
                   </div>
                 </div>
+
                <div class="portlet-body" style="display: none">
   
                </div>
@@ -136,9 +143,9 @@
                    <asp:TextBox runat="server" ID="TxtComision" Class=" input-sm "  Width="75px"></asp:TextBox>
                </div>

-                    <label class="col-md-1 truncate" style="width: 120px; display: none" id="LblSubproyecto" >SubProyecto:</label>
-                    <div class="col-md-2"  style="display: none" id="divSubProyecton">
-                    <asp:DropDownList ID="DdlSubProyectos" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
+                    <label class="col-md-1 truncate" style="width: 120px; font-size:1.2em; display: none" id="LblSubproyecto" >SubProyecto:</label>
+                    <div class="col-md-2"  style="display: none" id="divSubProyecto">
+                    <asp:DropDownList ID="DdlSubProyectoDeposito" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">                                   
                    </asp:DropDownList>
                    </div>

@@ -206,7 +213,7 @@
                    <br />
                    <br />

-                    <asp:Button ID="BtnDepositar" runat="server" Text="Depositar" CssClass="btn btn-primary" />
+                    <asp:Button ID="BtnDepositar" runat="server" Text="Depósitar" CssClass="btn btn-primary" />
                </div>
            </div>
        </ContentTemplate>
@@ -253,7 +260,7 @@

            if (comision > 0) {
                $('#LblSubproyecto').css("display", "block");
-                $('#divSubProyecton').css("display", "block");
+                $('#divSubProyecto').css("display", "block");
                $('#LblClasificacion').css("display", "block");
                $('#divClasificacion').css("display", "block");

@@ -261,7 +268,7 @@

            } else {
                $('#LblSubproyecto').css("display", "none");
-                $('#divSubProyecton').css("display", "none");
+                $('#divSubProyecto').css("display", "none");
                $('#LblClasificacion').css("display", "none");
                $('#divClasificacion').css("display", "none");
                debugger;
--- a/Bancos/DepositosCaja.aspx.vb
+++ b/Bancos/DepositosCaja.aspx.vb
@@ -38,9 +38,11 @@ Partial Class Bancos_DepositosCaja
        DdlSubProyectos.DataBind()
        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))

-        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=2)
+        DdlSubProyectoDeposito.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
+        DdlSubProyectoDeposito.DataBind()
+
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        DdlClasificacion.DataBind()
-        DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
@@ -82,7 +84,7 @@ Partial Class Bancos_DepositosCaja
        TotalImportePrePoliza = TotalImporte
        If TxtComision.Text.ToEntero > 0 Then
            TotalImporte = TotalImporte - TxtComision.Text.ToEntero
-            If DdlSubProyectos.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
+            If DdlSubProyectoDeposito.SelectedValue.ToEntero = -1 Or DdlClasificacion.SelectedValue.ToEntero = -1 Then
                Alert("Debes Seleccionar un Subproyecto y una Clasificación", TipoMensaje.MsgAdvertencia)
                Exit Sub
            End If
@@ -133,7 +135,7 @@ Partial Class Bancos_DepositosCaja
        CveIEOrigen = ObjBancos.AddBancos_IE(DdlCuentaDeposito.SelectedValue.ToEntero, 8, Fecha, FolioIE.ToString, "Depósito Bancario", TotalImporte, CveMoneda, 1, "Depósito Bancario", "", False, False, -1, NuevaCvePrePoliza, "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)

        If TxtComision.Text.ToEntero > 0 Then
-            CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
+            CveSubProyecto = DdlSubProyectoDeposito.SelectedValue.ToEntero
            CveClasificacion = DdlClasificacion.SelectedValue.ToEntero
            If ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TotalImporte, "Depósito Bancario", 30, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveIE:=CveIEOrigen, ImporteMX:=TotalImporte * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
                If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtComision.Text.ToEntero, "Comisión", 51, "Depósito Bancario", Fecha, IdCuentaBancariaOrigen, -1, CveClasificacion:=CveClasificacion, CveSubProyecto:=CveSubProyecto, ImporteMX:=TxtComision.Text.ToEntero * TipoCambio, CveCuenta:=CveCuentaBancariaOrigen) Then
--- a/Bancos/RepComplementoPago.aspx.vb
+++ b/Bancos/RepComplementoPago.aspx.vb
@@ -72,23 +72,25 @@ Partial Class Bancos_RepComplementoPago

                Dim Banco As New ClsBancos
                Banco.IniciaTransacSQL()
-
-                If Banco.GeneraTimbrePago(gvr.DataKey("CveIE").ToEntero, -1, UsuarioActual, FechaTimbrado:=FechaTimbrado) Then
-                    If Banco.Mensaje = "" Then
-                        Banco.Commit()
-                        PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False)
-                        Str.AppendFormat("Folio: <b>{0}</b> &nbsp;", Banco.ComplementoSerieFolio)
-                        Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML &nbsp;<i class=""fa fa-file""></i></i></a>&nbsp;&nbsp;", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
-                        Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF &nbsp;<i class=""fa fa-ad-pdf""></i></i></i></a>&nbsp;", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
-                        Str.AppendFormat("<a style='color:#337ab7' target='_blank' href='./IE.aspx?CveIE={0}'>{1}</a> &nbsp; {2}<br>", gvr.DataKey("CveIE"), gvr.DataKey("Folio"), gvr.DataKey("NombreCliente"))
-                        MandaCorreo(Banco.ComplementoSerieFolio, gvr.DataKey("CobranzaCorreo"))
+                Try
+                    If Banco.GeneraTimbrePago(gvr.DataKey("CveIE").ToEntero, -1, UsuarioActual, FechaTimbrado:=FechaTimbrado) Then
+                        If Banco.Mensaje = "" Then
+                            Banco.Commit()
+                            PDFReciboDePagos(-1, -1, Banco.CveComplementoPago, False)
+                            Str.AppendFormat("Folio: <b>{0}</b> &nbsp;", Banco.ComplementoSerieFolio)
+                            Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">XML &nbsp;<i class=""fa fa-file""></i></i></a>&nbsp;&nbsp;", Encripta(String.Format("OP=CompP&EXT=xml&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
+                            Str.AppendFormat("<a class=""texto"" style='color:#337ab7' href=""/Compras/PopUpVerFactura.aspx?P={0}"" target=""_blank"">PDF &nbsp;<i class=""fa fa-ad-pdf""></i></i></i></a>&nbsp;", Encripta(String.Format("OP=CompP&EXT=pdf&SerieFolio={0}&CveComplementoPago={1}", Banco.ComplementoSerieFolio, Banco.CveComplementoPago)))
+                            Str.AppendFormat("<a style='color:#337ab7' target='_blank' href='./IE.aspx?CveIE={0}'>{1}</a> &nbsp; {2}<br>", gvr.DataKey("CveIE"), gvr.DataKey("Folio"), gvr.DataKey("NombreCliente"))
+                            MandaCorreo(Banco.ComplementoSerieFolio, gvr.DataKey("CobranzaCorreo"))
+                        End If
+                    Else
+                        Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", gvr.DataKey("Folio"), Banco.Mensaje)
+                        Banco.RollBack()
                    End If
-
-                Else
-                    Str.AppendFormat("No se genero complemento del Folio {0} por el siguiente motivo: {1}", gvr.DataKey("Folio"), Banco.Mensaje)
+                Catch ex As Exception
+                    OnError("Ocurrió un error al generar el complemento de pago", ex)
                    Banco.RollBack()
-                End If
-
+                End Try
                Banco.Dispose()
            End If
        Next