-- para devoluciones de efectivo poder ajustar por redondeo

Bancos/IE.aspx.vb

@@ -1504,6 +1504,8 @@ Partial Class Bancos_IE
                     DdlCliente.SelectedText = ObjCliente.NombreComercial
                     DdlCliente.SelectedValue = ObjCliente.CveCliente.ToString
                     DivOtrosIngresosEgresos.Visible = True
+                    'TxtImporte.ReadOnly = True
+                    TxtImporte.Attributes.Add(“readonly”, “readonly”)
                 End If
 
                 'If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso UsuarioActual.Empresa.UsaAC AndAlso UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
@@ -3009,7 +3011,8 @@ Partial Class Bancos_IE
                                 If TxtOtrosIngresosEgresos.Text.ToDecimal <> 0 Then
                                     Dim TipoMovtoIE As Boolean = False
                                     Dim CveConcIE As Integer = 78
-                                    If Impo > 0 Then
+                                    Dim tCveSub As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
+                                    If Impo < 0 Then
                                         TipoMovtoIE = True
                                         Impo = Math.Abs(Impo)
                                         CveConcIE = 78
@@ -3021,7 +3024,7 @@ Partial Class Bancos_IE
                                         IdCtaContableAplicar = UsuarioActual.Empresa.Funcionalidad(266).ToEntero
                                     End If
 
-                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=Impo, ImporteME:=0) Then
+                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoIE, Impo, ReferenciaAplicar, CveConcIE, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=Impo, ImporteME:=0, CveSubProyecto:=tCveSub) Then
                                         MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
                                         Exit Select
                                     End If
@@ -3029,7 +3032,7 @@ Partial Class Bancos_IE
 
                                 'CANCELA NC
                                 IdCtaContableAplicar = IDCtaBeneficiario
-                                ImporteAplicar = ImporteAplicar + Impo
+                                ImporteAplicar = ImporteAplicar - Impo
                                 ImporteAplicarMN = (ImporteAplicar * If(tCveMoneda = 1, 1, TxtTipoCambio.Text.ToDecimal)).RoundSQL()
                                 If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -(ImporteAplicar), ReferenciaAplicar, 12, ConceptoAplicar, Now, IdCtaContableAplicar, -1, CveIE, CveVenta:=CveVentaDevDin, CveCliente:=CveCliente, ImporteMX:=-(ImporteAplicarMN), ImporteME:=ImporteAplicarME) Then
                                     MsgError = "Ocurrió un error al registrar el asiento de pago de devolución"
@@ -5806,7 +5809,10 @@ Partial Class Bancos_IE
                 CvePrePolizaDevDin = UrlParametros("CVEPREPOLIZA").ToString.ToEntero
                 ImporteOriginalDevDin = UrlParametros("ORIGINAL").ToString.ToDecimal.RoundSQL(6)
                 TxtImporte.Text = UrlParametros("SALDO").ToString.FormatoNumero()
-                TxtImporte.Attributes.Add("onkeyup", $"FormatoMoneda(this);ValidarCantidad(this,{UrlParametros("SALDO").ToString});")
+                TxtDevolución.Text = UrlParametros("SALDO").ToString.FormatoNumero()
+                'TxtImporte.Attributes.Add("onkeyup", $"FormatoMoneda(this);ValidarCantidad(this,{UrlParametros("SALDO").ToString});")
+                TxtDevolución.Attributes.Add("onkeyup", $"FormatoMoneda(this);ValidarCantidadDev( {UrlParametros("SALDO").ToString});")
+                TxtOtrosIngresosEgresos.Attributes.Add("onkeyup", $"ValidarCantidadDev();")
                 TxtImporteLetra.Text = UrlParametros("SALDO").ToString.ToDouble.Texto2Letras(UrlParametros("CVEMONEDA").ToString.ToEntero)
                 CargaCliente(CveCliente)
                 'BuscarCliente()
@@ -6322,26 +6328,26 @@ Partial Class Bancos_IE
     End Sub
 
 
-    Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click
-        RegistraScript("$('#ModalAjustarMovimiento').modal('show');")
-    End Sub
+    'Private Sub LnkAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles LnkAjustarMovimiento.Click
+    '    RegistraScript("$('#ModalAjustarMovimiento').modal('show');")
+    'End Sub
 
-    Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
+    'Private Sub BtnAjustarMovimiento_Click(sender As Object, e As EventArgs) Handles BtnAjustarMovimiento.Click
 
-        Dim ObjBanco As New ClsBancos
-        ObjBanco.IniciaTransacSQL()
+    '    Dim ObjBanco As New ClsBancos
+    '    ObjBanco.IniciaTransacSQL()
 
-        If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
-            ObjBanco.Commit()
-            RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
-            Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
-        Else
-            ObjBanco.RollBack()
-        End If
+    '    If ObjBanco.UpdateAjustarMovimiento(CveIE, TxtAjustarMovimiento.Text.ToDecimal, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+    '        ObjBanco.Commit()
+    '        RegistraScript("$('#ModalAjustarMovimiento').modal('hide');", "ALTR")
+    '        Alert("El ajuste se realizo correctamente.", TipoMensaje.MsgInformacion, $" document.location.href = ""./IE.aspx?CveIE={CveIE}"";")
+    '    Else
+    '        ObjBanco.RollBack()
+    '    End If
 
-        ObjBanco.Dispose()
+    '    ObjBanco.Dispose()
 
-    End Sub
+    'End Sub