From 03d25889083b7b6232935b30350fec448fd085f9 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Fri, 19 Jun 2020 20:40:24 -0700 Subject: [PATCH] pagoelectronico grupos --- App_Code/ClsBancos.vb | 3 +- App_Code/ClsGenerales.vb | 3 +- Bancos/ProveedoresAbonar.aspx | 10 ++++-- Bancos/ProveedoresAbonar.aspx.vb | 60 +++++++++++++++++++++++++++++--- 4 files changed, 68 insertions(+), 8 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 754e99d4a..7a66b5f73 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1404,7 +1404,7 @@ Public Class ClsBancos NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer, Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1, Optional Referencia As String = "-1", Optional CveIESustitucion As Integer = -1, Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False, - Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "") As Integer + Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "") As Integer Dim Retorno As Integer = -1 DataAdapter("PA_Banc_IEAdd") @@ -1439,6 +1439,7 @@ Public Class ClsBancos .Add("@CveProveedorIntermediario", SqlDbType.Int).Value = CveProveedorIntermediario .Add("@FueConciliado", SqlDbType.Bit).Value = FueConciliado .Add("@MesesSinIntereses", SqlDbType.Int).Value = MesesSinIntereses + .Add("@ConceptoCIE", SqlDbType.VarChar).Value = ConceptoCIE .Add("@CveIE", SqlDbType.Int).Direction = ParameterDirection.Output .Add("@FolioRegistro", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index a2ff5ec74..e3a6e3452 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -1368,7 +1368,7 @@ Public Class ClsGenerales ' IDisposable #Region "G E N E R A L E S - C U E N T A S B A N C A R I A S " - Public Function GetCuentasDepositos(Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCuentaDeposito As Integer = -1) As Boolean + Public Function GetCuentasDepositos(Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveCuentaDeposito As Integer = -1, Optional CveEmpresa As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -1379,6 +1379,7 @@ Public Class ClsGenerales .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva .Add("@CveCuentaDeposito", SqlDbType.Int).Value = CveCuentaDeposito + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/Bancos/ProveedoresAbonar.aspx b/Bancos/ProveedoresAbonar.aspx index 16ad716a1..577cf4377 100644 --- a/Bancos/ProveedoresAbonar.aspx +++ b/Bancos/ProveedoresAbonar.aspx @@ -191,11 +191,17 @@
-
- +
+
+ +
+ + + +
diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index c7c0a5615..0d611ddfb 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -283,6 +283,7 @@ Partial Class Bancos_ProveedoresAbonar ViewState("CodigoProgramacion") = value End Set End Property + Private Property DtDatos As DataTable Get Return DirectCast(ViewState("DtDatos"), DataTable) @@ -293,6 +294,26 @@ Partial Class Bancos_ProveedoresAbonar End Property + Private Property OriReferenciaCIE As String + Get + Return ViewState("OriReferenciaCIE").ToString + End Get + Set(value As String) + ViewState("OriReferenciaCIE") = value + End Set + End Property + + Private Property OriConceptoCIE As String + Get + Return ViewState("OriConceptoCIE").ToString + End Get + Set(value As String) + ViewState("OriConceptoCIE") = value + End Set + End Property + + + #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -835,12 +856,29 @@ Partial Class Bancos_ProveedoresAbonar End If End If - Dim CveIE As Integer = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1)) + Dim CveIE As Integer = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, TxtPagueseA.Text.Trim, TxtImporte.Text.ToDecimal, GlobalDTBancosCuentas(UsuarioActual.CveUsuario).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"), CveCuentaTarjeta:=If(DivTarjeta.Visible, DdlTarjeta.SelectedValue.ToEntero, -1), ConceptoCIE:=TxtConceptoCIE.Text) If CveIE > 0 Then + ComprobanteIE = $"{CveIE}.{Comprobante}" + + If DdlCuentaDeposito.SelectedValue.ToEntero > 0 Then + + If TxtReferenciaCIE.Text <> OriReferenciaCIE Or TxtConceptoCIE.Text <> OriConceptoCIE Then + + Dim ObjGrales As New ClsGenerales(ObjIE.IniciaTransacSQL) + + If Not ObjGrales.UpdateCuentasDepositosEstatusPagoElectronicoGrupos(DdlCuentaDeposito.SelectedValue.ToEntero, -1, -1, "-1", TxtReferenciaCIE.Text.Trim, TxtConceptoCIE.Text.Trim) Then + + MsgError = "Error al actualziar Cuanta Referencia y Concepto Deposito." + End If + + End If + + End If + 'guardo el archivo If filemove <> "" Then filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)) @@ -2508,6 +2546,7 @@ Partial Class Bancos_ProveedoresAbonar If Dep.DtResultados.Rows.Count > 0 Then DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'") + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) End If If Dep.DtResultados.FiltraParametros("EstatusPagoElectronico = 'True' AND Estatus ='True'").Rows.Count > 0 Then @@ -2522,7 +2561,10 @@ Partial Class Bancos_ProveedoresAbonar If Dep.DtResultados.Rows.Count > 0 Then + DdlCuentaDeposito.DataSource = Dep.DtResultados + DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1")) + trCuentaDeposito.Visible = True BtnIEGuardar.ToolTip = "" Else @@ -2546,9 +2588,9 @@ Partial Class Bancos_ProveedoresAbonar DdlCuentaDeposito.DataBind() - If DdlCuentaDeposito.Items.Count > 1 Then - DdlCuentaDeposito.SelectedIndex = 1 - End If + 'If DdlCuentaDeposito.Items.Count > 1 Then + ' DdlCuentaDeposito.SelectedIndex = 1 + 'End If Else @@ -2608,17 +2650,27 @@ Partial Class Bancos_ProveedoresAbonar CargaCuentasDepositos() End Sub Protected Sub DdlCuentaDeposito_SelectedIndexChanged(sender As Object, e As EventArgs) + Dim Dep As New ClsGenerales + If Dep.GetCuentasDepositos(CveProveedor:=CveProveedor, CveCuentaDeposito:=DdlCuentaDeposito.SelectedValue.ToEntero) AndAlso Dep.DtResultados.Rows.Count = 1 Then If Dep.DtResultados.Rows(0)("TieneCIE").ToString.ToEntero = 1 Then TrReferenciaCIE.Visible = True + TxtReferenciaCIE.Text = Dep.DtResultados.Rows(0)("Referencia").ToString + TxtConceptoCIE.Text = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString + + OriReferenciaCIE = Dep.DtResultados.Rows(0)("Referencia").ToString + OriConceptoCIE = Dep.DtResultados.Rows(0)("ConceptoCIE").ToString + Else TrReferenciaCIE.Visible = False End If End If + Dep.Dispose() UpCuentaDeposito.Update() + End Sub #End Region