diff --git a/App_Code/CalendarEvent.vb b/App_Code/CalendarEvent.vb index 2780c2aab..983cc8a96 100644 --- a/App_Code/CalendarEvent.vb +++ b/App_Code/CalendarEvent.vb @@ -26,5 +26,8 @@ Public Class CalendarEvent Public Property SubProyecto As String Public Property CveSubProyecto As Integer Public Property Direccion As String + Public Property CveEmpresaCRM As String + Public Property CveContactoCRM As String + Public Property CveAcercamientoCRM As String End Class diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 4b96a1d4c..98f455ac7 100644 --- a/App_Code/ClsOIEventos.vb +++ b/App_Code/ClsOIEventos.vb @@ -2452,7 +2452,7 @@ Public Class ClsOIEventos Dim Retorno As Boolean = False Retorno = AddEvento(CveTipoEvento, CveAgendaTipo, Asunto, Descripcion, Prioridad, -1, CveUsuarioIng, FechaInicio, FechaFin, -1, -1, "-1", CveUsuarioIng, CveEmpresa, CveActivoFijo, CveIE, CveProspecto, CveCliente, CveOS, CveOC, - CvePersonal, CvePersonal, CveEventoPadre:=CveEventoPadre, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dia, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, Importe:=Importe, + CvePersonal, CveProveedor, CveEventoPadre:=CveEventoPadre, RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dia, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, Importe:=Importe, CveEmpresaCRM:=CveEmpresaCRM, CveContactoCRM:=CveContactoCRM, CveAcercamientoCRM:=CveAcercamientoCRM, CveTipoProcesoCRM:=CveTipoProcesoCRM, CveEtapaProcesoCRM:=CveEtapaProcesoCRM, CveSubProyecto:=CveSubProyecto) Return Retorno diff --git a/Ashx/CargaEventos.ashx b/Ashx/CargaEventos.ashx index 79411b565..f70089d3d 100644 --- a/Ashx/CargaEventos.ashx +++ b/Ashx/CargaEventos.ashx @@ -129,6 +129,11 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.CveSubProyecto = dr("CveSubProyecto").ToString.ToEntero cevent.Direccion = dr("Direccion").ToString + cevent.CveEmpresaCRM = dr("CveEmpresaCRM").ToString + cevent.CveContactoCRM = dr("CveContactoCRM").ToString + cevent.CveAcercamientoCRM = dr("CveAcercamientoCRM").ToString + + '11/05/2018 - Evento Gasto Recurrente cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero If cevent.CveTipoEvento = 10 Then @@ -211,6 +216,8 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero cevent.Prospecto = dr("Prospecto").ToString + + '11/05/2018 - Evento Gasto Recurrente cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero If cevent.CveTipoEvento = 10 Then @@ -248,6 +255,9 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState cevent.CveProspecto = dr("CveProspecto").ToString.ToEntero cevent.Prospecto = dr("Prospecto").ToString + + + '11/05/2018 - Evento Gasto Recurrente cevent.CveTipoEvento = dr("CveTipoEvento").ToString.ToEntero If cevent.CveTipoEvento = 10 Then diff --git a/Bancos/PopIECompras.aspx b/Bancos/PopIECompras.aspx index fd0788cee..268ad0e85 100644 --- a/Bancos/PopIECompras.aspx +++ b/Bancos/PopIECompras.aspx @@ -211,6 +211,16 @@ + +
+ +
+ + + +
+
+ diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index a7c74e842..9c2195276 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -428,6 +428,19 @@ Partial Class Bancos_PopIECompras End Property + Private Property DtCheques As DataTable + Get + + If ViewState("DtCheques") Is Nothing Then + ViewState("DtCheques") = New DataTable + End If + + Return CType(ViewState("DtCheques"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtCheques") = value + End Set + End Property @@ -1077,36 +1090,65 @@ Partial Class Bancos_PopIECompras Protected Sub DdlFuncionarioEmpleado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFuncionarioEmpleado.SelectedIndexChanged ArrIEFuncionariosEmpleados = New ArrayList() ArrIE = New ArrayList() + DtCheques = New DataTable - Dim objGastosXComprobar As New ClsMovimientos + 'Dim objGastosXComprobar As New ClsMovimientos - Dim CvePersonal As Integer = DdlFuncionarioEmpleado.SelectedValue.ToEntero - - If objGastosXComprobar.GetEgresosSinComprobarPersonal(UsuarioActual.CveEmpresa) Then + Dim CvePersonal As Integer = DdlFuncionarioEmpleado.SelectedValue.ToEntero + + '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 - 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 + Dim ObjMovtos As New ClsMovimientos + RowCheque.Visible = True + ObjMovtos.GetEgresosSinComprobarPersonalDetalle(DdlFuncionarioEmpleado.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) + DtCheques = ObjMovtos.DtResultados.FiltraParametros("CveIE > 0", "FechaDocumento, FolioFecha") + + 'Limpia Ddl Cheques + DDlCheques.Items.Clear() + + If DtCheques.Rows.Count > 0 Then + DDlCheques.DataSource = DtCheques End If + ObjMovtos.Dispose() + DDlCheques.DataBind() + 'EstaAsociadoAPersonal = True + DDlCheques_SelectedIndexChanged(DDlCheques, EventArgs.Empty) + + + UpDatos.Update() + + 'End If + + + + End Sub + + Protected Sub DDlCheques_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DDlCheques.SelectedIndexChanged + 'Dim saldo As Double = DtCheques.Rows(DDlCheques.SelectedIndex)("Saldo").ToString.ToDecimal + Dim saldo As Double = DtCheques.Rows(DDlCheques.SelectedIndex)("Saldo").ToString.ToDecimal + 'TxtDocumentoImporteFE.Text = If(saldo < TxtTotal.Text.ToDouble, saldo.FormatoNumero, TxtTotal.Text) + 'lblSaldoFE.Text = saldo.FormatoNumero + If CveCompra > 0 Then + 'Dim tSaldo As Decimal = DdlFuncionarioEmpleado.SelectedItem.Text.Split(CChar("-"))(1).ToDecimal + If saldo < MovimientoPagar.Saldo Then + TxtImporte.Text = saldo.FormatoNumero() + Else + TxtImporte.Text = MovimientoPagar.Saldo.FormatoNumero() + End If + End If + UpDatos.Update() + End Sub Private Sub DdlIngreso_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlIngreso.SelectedIndexChanged @@ -1389,22 +1431,25 @@ Partial Class Bancos_PopIECompras ImportePagado = TxtImporte.Text.Trim.ToDecimal Fecha = TxtFechaDocumento.Text.Trim.ToDate TipoMovimiento = True - Case "2" 'FyE + Case "2" 'FyE + ImportePagado = TxtImporte.Text.Trim.ToDecimal 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 - + CveIE = DDlCheques.SelectedValue.ToEntero + If Not CveIE > 0 Then Alert("No se encontro movimientos bancarios de perosonal", TipoMensaje.MsgAdvertencia) Exit Sub End If + Dim saldo As Double = DtCheques.Rows(DDlCheques.SelectedIndex)("Saldo").ToString.ToDecimal + + If TxtImporte.Text.ToDecimal > saldo Then + Alert("El importe no debe de superar el saldo del cheque seleccionado.", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + TipoMovimiento = True Dim stringPersonal As String = DdlFuncionarioEmpleado.SelectedItem.ToString CvePersonal = DdlFuncionarioEmpleado.SelectedValue.ToEntero diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 053d73859..4a52fe946 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4165,7 +4165,7 @@ Partial Class Compras_Compras Dim EstatusCredito As Integer = 0 Dim CveSubProyecto As Integer = 0 'Credito Multiple - If RBLPago.SelectedValue.ToEntero = 2 Then + If RBLPago.SelectedValue.ToEntero = 3 Then If RBLContado.SelectedValue.ToEntero = 6 Or RBLContado.SelectedValue.ToEntero = 2 Then If Not TxtRembolsoNumero.Text.Length > 0 Then Alert("Falta especificar un número de reembolso", TipoMensaje.MsgAdvertencia) @@ -7276,16 +7276,30 @@ Partial Class Compras_Compras End If If importeMovimiento > 0 Then - Dim Pago As New CompraPago - Pago.ImportePago = importeFE - Pago.CveIE = -1 - Pago.CvePersonal = CvePersonal - ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) + Dim Pago As New CompraPago + If DDlCheques.SelectedValue.ToEntero > 0 Then + Pago.ImportePago = importeFE + Pago.CveIE = DDlCheques.SelectedValue.ToEntero + Pago.CvePersonal = CvePersonal + + ErrorPrepoliza = AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePoliza, ObjConta) + Else + Alert("Debe de seleccionar un cheque.", TipoMensaje.MsgAdvertencia) + ErrorPrepoliza = True + End If + + + End If + + + + + Case 21 'Anticipo If ArrAnticipos.Count > 0 Then diff --git a/Inicio.aspx b/Inicio.aspx index 6b4322620..073e2e4ee 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -120,8 +120,8 @@ } - - + + @@ -133,13 +133,20 @@
  • Editar Comunicado
    • -
  • +
  • Inconsistencias
    • + + + + + + +
    @@ -303,204 +310,19 @@ -
    -
    - +
    +
    - Documentos + Documentos
    @@ -509,33 +331,33 @@
    -
    - - - - - - - -
    -
    -
    - <%# Eval("Nombre") %> -
    -
    -
    -
    - <%# Eval("Nombre2") %> -
    -
    -
    -     -     -     -     - -     -     +
    + + + + + + + +
    +
    +
    + <%# Eval("Nombre") %> +
    +
    +
    +
    + <%# Eval("Nombre2") %> +
    +
    +
    +     +     +     +     + +     +
    @@ -1107,8 +929,8 @@
    - - + +