diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx index 9fd27ba8a..fd0788cee 100644 --- a/Bancos/PopIECompras.aspx +++ b/Bancos/PopIECompras.aspx @@ -1,797 +1,797 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopIECompras.aspx.vb" Inherits="Bancos_PopIECompras" %> - - - - - - - -   - - - - - - - - -
- - : - -           - - : - -           - - - - -
- - - - + + + + +
- - - -
-
- - Bancos - Viaticos - Personal - Deudores - Acreedores - Ventas - -
-
- -
-
-
-
-
- - Información - -
-
-
-
-
- -
- -
-
-
-
-
- - -
-
- - - -
- -
- - - -
-
- -
- -
- - - -
-
- -
- -
- -
-
- -
- -
- - - - - -
-
- -
-
- : -
-
- - - -
- -
- -
-
- : -
-
- -
-
- -
- -
- - - - Otros Ingresos - -
-
- - - -
-
- : -
-
- - - -
-
- -
-
- -
- - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="PopIECompras.aspx.vb" Inherits="Bancos_PopIECompras" %> + + + + + + + +   + + + + + + + + +
+ + : + +           + + : + +           + + + + +
+ + + + - - - - -
+ + + +
+
+ + Bancos + Viaticos - Personal + Deudores + Acreedores + Ventas + +
+
+ +
+
+
+
+
+ + Información + +
+
+
+
+
+ +
+ +
+
+
+
+
+ + +
+
+ + + +
+ +
+ + + +
+
+ +
+ +
+ + + +
+
+ +
+ +
+ +
+
+ +
+ +
+ + + + + +
+
+ +
+
+ : +
+
+ + + +
+ +
+ +
+
+ : +
+
+ +
+
+ +
+ +
+ + - + Otros Ingresos + +
+
+ + + +
+
+ :
-
- - - -
- -
- - <%-- - --%> +
+ + +
-
- - - - -
- - - -
-
Observaciones:
-
- -
-
- -
-
- - - - -
- -
- - - -
-
- - - -
- -
- - - -
-
- -
-
- - - - - - - - - - - Fecha - - - - - - Folio - - - - - - Saldo - -   - - - - - Saldo Abonar - - - - - - - - - - - - - - - - - - - - - - - - -
-
- - - -
- -
- - - -
-
- -
-
- - - - - - - - - - - Fecha - - - - - - Folio - - - - - - Saldo - -   - - - - - Saldo Abonar - - - - - - - - - - - - - - - - - - - - - - - - -
-
- - - -
- -
- - - -
-
- -
-
- - - - - - - - - - - Fecha - - - - - - Folio - - - - - - Saldo - -   - - - - - Saldo Abonar - - - - - - - - - - - - - - - - - - - - - - - - -
-
- - - -
-
- - - -
- - - - - - - - - Fecha - - - - - - Folio - - - - - - Saldo - -   - - - - - Saldo Abonar - - - - - - - - - - - - - - - - - - - - - - - - -
-
- - -
-
-
- -
-
-
-
- - Importes - -
-
-
-
-
- -
- -
-
-
- -
- -
-
- - - - -
- - - - - - +
+ +
+
+ +
+ + + +
+
+ + + +
+ +
+ + <%-- + --%> +
+
+ + + + +
+ + + +
+
Observaciones:
+
+ +
+
+ +
+
+ + + + +
+ +
+ + + +
+
+ + + +
+ +
+ + + +
+
+ +
+
+ + + + + + + + + + + Fecha + + + + + + Folio + + + + + + Saldo + +   + + + + + Saldo Abonar + + + + + + + + + + + + + + + + + + + + + + + + +
+
+ + + +
+ +
+ + + +
+
+ +
+
+ + + + + + + + + + + Fecha + + + + + + Folio + + + + + + Saldo + +   + + + + + Saldo Abonar + + + + + + + + + + + + + + + + + + + + + + + + +
+
+ + + +
+ +
+ + + +
+
+ +
+
+ + + + + + + + + + + Fecha + + + + + + Folio + + + + + + Saldo + +   + + + + + Saldo Abonar + + + + + + + + + + + + + + + + + + + + + + + + +
+
+ + + +
+
+ + + +
+ + + + + + + + + Fecha + + + + + + Folio + + + + + + Saldo + +   + + + + + Saldo Abonar + + + + + + + + + + + + + + + + + + + + + + + + +
+
+ + +
+
+
+ +
+
+
+
+ + Importes + +
+
+
+
+
+ +
+ +
+
+
+ +
+ +
+
+ + + + +
+ + + + + + - -
-
- -
-
Importe $:
-
- - - - - -
-
- -
-
Comision: $
-
- - - <%-- --%> -
-
- -
-
Total: $
-
- - - -
-
- -
- -
-
Tipo Cambio:
-
- - - -
-
- - -
-
-
-
- - - -
- - - - - - - -
- - - - - + +
+
+ +
+
Importe $:
+
+ + + + + +
+
+ +
+
Comision: $
+
+ + + <%-- --%> +
+
+ +
+
Total: $
+
+ + + +
+
+ +
+ +
+
Tipo Cambio:
+
+ + + +
+
+ +
+
+
+
+ + + +
+ + + + + + + +
+ + + + + diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index c8bc70e44..d46452093 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -1075,23 +1075,38 @@ Partial Class Bancos_PopIECompras End Sub Protected Sub DdlFuncionarioEmpleado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFuncionarioEmpleado.SelectedIndexChanged - ArrIEFuncionariosEmpleados = New ArrayList() + ArrIEFuncionariosEmpleados = New ArrayList() + ArrIE = New ArrayList() + + Dim objGastosXComprobar As New ClsMovimientos Dim CvePersonal As Integer = DdlFuncionarioEmpleado.SelectedValue.ToEntero - If CveCompra > 0 Then - For Each Ant As Anticipos In ArrIE - If Ant.CvePersonal = CvePersonal Then - ArrIEFuncionariosEmpleados.Add(New Anticipos With {.CveIE = Ant.CveIE, .Importe = Ant.Importe, .CvePersonal = Ant.CvePersonal}) - End If - Next - 'actualizo el monto maximo a pagar en el movimiento bancario - Dim tSaldo As Decimal = DdlFuncionarioEmpleado.SelectedItem.Text.Split(CChar("-"))(1).ToDecimal - If tSaldo < MovimientoPagar.Saldo Then - TxtImporte.Text = tSaldo.FormatoNumero() - End If - End If - + If objGastosXComprobar.GetEgresosSinComprobarPersonal(UsuarioActual.CveEmpresa) Then + + + + For Each Row As DataRow In objGastosXComprobar.DtResultados.FiltraParametros("CvePersonal > 0 AND FechaDocumento IS NOT NULL").Rows + ArrIE.Add(New Anticipos With {.CveIE = Row("CveIE").ToString.ToEntero, .Importe = Row("Saldo").ToString.ToDecimal, .CvePersonal = Row("CvePersonal").ToString.ToEntero}) + Next + + If CveCompra > 0 Then + For Each Ant As Anticipos In ArrIE + If Ant.CvePersonal = CvePersonal Then + ArrIEFuncionariosEmpleados.Add(New Anticipos With {.CveIE = Ant.CveIE, .Importe = Ant.Importe, .CvePersonal = Ant.CvePersonal}) + End If + Next + 'actualizo el monto maximo a pagar en el movimiento bancario + Dim tSaldo As Decimal = DdlFuncionarioEmpleado.SelectedItem.Text.Split(CChar("-"))(1).ToDecimal + If tSaldo < MovimientoPagar.Saldo Then + TxtImporte.Text = tSaldo.FormatoNumero() + End If + End If + + End If + + + End Sub Private Sub DdlIngreso_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlIngreso.SelectedIndexChanged @@ -1379,6 +1394,17 @@ Partial Class Bancos_PopIECompras Fecha = TxtFechaDocumento.Text.Trim.ToDate CveConcepto = 29 CveIE = -1 + + If ArrIEFuncionariosEmpleados IsNot Nothing AndAlso ArrIEFuncionariosEmpleados.Count > 0 Then + Dim objAray As Anticipos = DirectCast(ArrIEFuncionariosEmpleados(0), Anticipos) + CveIE = objAray.CveIE + End If + + If Not CveIE > 0 Then + Alert("No se encontro movimientos bancarios de perosonal", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + TipoMovimiento = True Dim stringPersonal As String = DdlFuncionarioEmpleado.SelectedItem.ToString CvePersonal = DdlFuncionarioEmpleado.SelectedValue.ToEntero @@ -1516,9 +1542,13 @@ Partial Class Bancos_PopIECompras Else MsgError = "Ocurrio un Error al registrarse el movimiento bancario." Inserta = False - End If - Case Else + End If + Case "2" ' F Y E + + Case Else + CveIE = -1 + End Select If DdlOtrosPagos.SelectedValue = "2" AndAlso TxtComision.Text.ToDecimal > 0 Then