pagoelectronico grupos
This commit is contained in:
Rakcsle Supertramp
@@ -191,11 +191,17 @@
|
||||
</div>
|
||||
<div class="row" id="TrReferenciaCIE" runat="server" visible="False">
|
||||
<label class="col-md-2 control-label">Referencia:</label>
|
||||
<div class="col-md-10">
|
||||
<asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" CssClass="form-control input-sm" Width="400px" />
|
||||
<div class="col-md-4">
|
||||
<asp:TextBox ID="TxtReferenciaCIE" Text="" runat="server" CssClass="form-control input-sm" MaxLength="20" Width="200px" />
|
||||
<asp:RequiredFieldValidator ID="RFVReferenciaCIE" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCEReferenciaCIE" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
<label class="col-md-2 control-label">Concepto:</label>
|
||||
<div class="col-md-4">
|
||||
<asp:TextBox ID="TxtConceptoCIE" Text="" runat="server" CssClass="form-control input-sm" Width="200px" MaxLength="30" />
|
||||
<asp:RequiredFieldValidator ID="RequiredFieldValidator1" runat="server" ControlToValidate="TxtReferenciaCIE" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Referencia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender7" runat="server" HighlightCssClass="vco" TargetControlID="RFVReferenciaCIE" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
Reference in New Issue
Block a user