From 498be4d8d36ca459c2627a2dfb46517109749c81 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 18 May 2023 11:53:39 -0700
Subject: [PATCH] =?UTF-8?q?--=20cambio=20de=20cr=C3=A9dtos?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/IE.aspx    | 11 +----------
 Bancos/IE.aspx.vb | 36 ++++--------------------------------
 2 files changed, 5 insertions(+), 42 deletions(-)

diff --git a/Bancos/IE.aspx b/Bancos/IE.aspx
index f7095185e..1b78035dc 100644
--- a/Bancos/IE.aspx
+++ b/Bancos/IE.aspx
@@ -141,7 +141,7 @@
                                 </div>
                                 <div class="col-md-1">
                                     <asp:Label ID="LblEstatusIE" runat="server" Text="Activo" Visible="false"></asp:Label>
-                                    <asp:DropDownList runat="server" CssClass="form-control input-sm select2me" ID="DdlEstatusIE" DataValueField="CveEstatusIE" DataTextField="EstatusIE" AutoPostBack="false"></asp:DropDownList>
+                                    <asp:DropDownList runat="server" CssClass="form-control input-sm select2me" Visible="false" ID="DdlEstatusIE" DataValueField="CveEstatusIE" DataTextField="EstatusIE" AutoPostBack="false"></asp:DropDownList>
                                 </div>
 
                                 <div class="col-md-2" runat="server" id="DivTC" visible="false">
@@ -233,15 +233,6 @@
                                     <asp:TextBox ID="TxtImporte" runat="server" MaxLength="15" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;" onkeyup="FormatoMoneda(this)" AutoComplete="off"></asp:TextBox>
                                 </div>
                             </div>
-                            <div class="row" runat="server" id="DVInteresMoratorio" visible="false">
-                                <div class="col-md-8"></div>
-                                <div class="col-md-1 control-label text-right">Interes:</div>
-                                <div class="col-md-2 input-icon">
-                                    <i style="margin: 0px;">$</i>
-                                    <asp:TextBox ID="TxtInteresMoratorio" runat="server" MaxLength="15" CssClass="form-control input-sm" ClientIDMode="Static" Style="text-align: right;" onkeyup="FormatoMoneda(this)" AutoComplete="off"></asp:TextBox>
-                                </div>
-                            </div>
-
                             <div id="DivIvaIxC" runat="server" visible="false" class="row">
                                 <label class="col-md-2 control-label"></label>
                                 <div class="col-md-2"></div>
diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index a37c92bf4..72d33c057 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -726,12 +726,8 @@ Partial Class Bancos_IE
                 CveCreditoDetalle = IfNull(Request("CveCreditoDetalle"), "-1").ToString.ToEntero
                 LtlTitulo.Text = "Pago de Créditos"
                 CveIE = -1
-
-                DVInteresMoratorio.Visible = True
-
                 If Banc.GetCreditos(CveCredito, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
                     Dt = Banc.DtResultados
-
                 End If
 
                 Banc.Dispose()
@@ -1746,6 +1742,7 @@ Partial Class Bancos_IE
                 dt = Cred.DtResultados.FiltraParametros("Estatus IN (1,101,102)")
 
                 Dim Importe As Decimal = 0
+                Dim ImporteInteres As Decimal = 0
                 If CveCreditoDetalle > 0 Then
                     Dim drt As DataRow = Cred.DtResultados.FiltroPrimero(String.Format("CveCreditoDetalle = {0}", CveCreditoDetalle))
                     If drt IsNot Nothing Then
@@ -1754,18 +1751,15 @@ Partial Class Bancos_IE
                             Alert("La Mensualidad no está vigente para pago", TipoMensaje.MsgError)
                         End If
                         Importe = dt.FiltroPrimeroValor("Mensualidad", String.Format("CveCreditoDetalle = {0}", CveCreditoDetalle)).ToDecimal
+                        ImporteInteres = dt.FiltroPrimeroValor("Intereses", String.Format("CveCreditoDetalle = {0}", CveCreditoDetalle)).ToDecimal
                     End If
-
-
                 End If
 
-
                 TxtImporte.Text = Importe.ToString
                 HdnImporteCredito.Value = Importe.ToString
                 RegistraScript(String.Format("$get('TxtImporte').value = '{0}';", Importe.FormatoNumero))
                 TxtImporte.Attributes.Remove("onkeyup")
                 TxtImporte.Attributes.Add("onkeyup", String.Format("ValidaCantidad({0},{1});", TxtImporte.ClientID, Importe))
-
             End If
 
         End If
@@ -2908,15 +2902,6 @@ Partial Class Bancos_IE
                                                     importeMX = importeMovimiento
                                                 End If
 
-                                            Case 46
-
-                                                If TxtInteresMoratorio.Text.ToDecimal > 0 Then
-                                                    importeMovimiento = TxtInteresMoratorio.Text.ToDecimal
-                                                    importeMX = importeMovimiento
-                                                Else
-                                                    importeMovimiento = 0
-                                                    importeMX = 0
-                                                End If
 
 
                                             Case 50
@@ -3589,7 +3574,6 @@ Partial Class Bancos_IE
 
                                 End If
 
-
 ''''''''''''''''''''''''''''''''''''''''''''''
 
                             Case "EGSCREDITO"
@@ -3606,7 +3590,8 @@ Partial Class Bancos_IE
                                 CveCreditoDetalle = IfNull(Request("CveCreditoDetalle"), "-1").ToString.ToEntero
                                 Concepto = ObjMov.ObtenerConceptoEmpresa(UsuarioActual.CveEmpresa, ConceptoContable, PagueseA, "", ObjIE.Folio)
 
-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Concepto, 57, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCredito:=CveCredito) Then
+                                Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(11, CveMoneda, False, 1)
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Concepto, ConPreP.CveConcepto, Concepto, FechaMovimiento, If(ConceptoContable = 30, IDCtaContable, IDCtaBeneficiario), -1, CveIE:=CveIE, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, CveCliente:=CveCliente, ImporteMX:=importeMovimiento, ImporteME:=tImporteMonedaExtranjera, TipoCambio:=TxtTipoCambio.Text.ToDecimal, CveCredito:=CveCredito) Then
                                     MsgError = "Ocurrió un error al registrar el asiento del ingreso."
                                 End If
 
@@ -3623,19 +3608,6 @@ Partial Class Bancos_IE
                                     End If
                                 End If
 
-
-                                '        Case 46
-                                '            If TxtInteresMoratorio.Text.ToDecimal > 0 Then
-                                '                importeMovimiento = TxtInteresMoratorio.Text.ToDecimal
-                                '                importeMX = importeMovimiento
-                                '            Else
-                                '                importeMovimiento = 0
-                                '                importeMX = 0
-                                '            End If
-
-
-
-
                             Case Else
                                 Dim TipoMovimiento As Boolean = True