Correcciones layout envio cuentas y pagos scotia, reembolsos cuenta depsito visible, compras carga de grid nc facturas en compra manual
This commit is contained in:
Oscar Irigoyen
@@ -569,7 +569,7 @@ Partial Class Bancos_PagoElectronico
|
||||
Header.Append(TipoArchivo.PadRight(2, Space)) 'TIPO ARCHIVO (2)
|
||||
Header.Append("HA") 'TIPO REGISTRO (2)
|
||||
Header.Append("JDF") 'SISTEMA-CENTRAL (3)
|
||||
Header.Append(NumeroConvenio.PadLeft(7, Space)) 'NUMERO DE CONTRATO (7) ' ocupa 5 dígitos pero en el layout se usa 7
|
||||
Header.Append(NumeroConvenio.PadLeft(7, Cero)) 'NUMERO DE CONTRATO (7) ' ocupa 5 dígitos pero en el layout se usa 7
|
||||
Header.Append(NowADS.ToString("yyyyMMdd")) 'FECHA-SOLICITUD (8)
|
||||
Header.Append("001") 'SECUENCIA (3)
|
||||
Header.Append("M") 'MANTENIMIENTO-O-CONSULTA (1)
|
||||
@@ -594,7 +594,7 @@ Partial Class Bancos_PagoElectronico
|
||||
Dim CuentaDestino As String = ""
|
||||
Dim cuentaDigitos As String = dr("CLABEDestino").ToString.Trim
|
||||
Dim Clabe As String = dr("CLABE").ToString.Trim
|
||||
Dim limite As String = (900000000 * 100D).ToEntero.ToString("F0")
|
||||
Dim limite As String = (9000000000 * 100D).ToString("F0")
|
||||
Dim banco As String = dr("CveBanco").ToString.PadLeft(3, Cero)
|
||||
|
||||
If cuentaDigitos.Length = 11 AndAlso banco = "044" Then
|
||||
@@ -672,10 +672,10 @@ Partial Class Bancos_PagoElectronico
|
||||
|
||||
trailer.Append(TipoArchivo.PadRight(2, Space)) 'TIPO DE ARCHIVO (2)
|
||||
trailer.Append("TA") 'TIPO DE REGISTRO (2)
|
||||
trailer.Append(Altas.ToString.PadLeft(8, Space)) 'CANTIDAD DE MOVIMIENTOS ALTAS (8)
|
||||
trailer.Append(Cambios.ToString.PadLeft(8, Space)) 'CANTIDAD DE MOVIMIENTOS CAMBIOS (8)
|
||||
trailer.Append(Bajas.ToString.PadLeft(8, Space)) 'CANTIDAD DE MOVIMIENTOS BAJAS (8)
|
||||
trailer.Append(Consultas.ToString.PadLeft(8, Space)) 'CANTIDAD DE CONSULTAS (8)
|
||||
trailer.Append(Altas.ToString.PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS ALTAS (8)
|
||||
trailer.Append(Cambios.ToString.PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS CAMBIOS (8)
|
||||
trailer.Append(Bajas.ToString.PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS BAJAS (8)
|
||||
trailer.Append(Consultas.ToString.PadLeft(8, Cero)) 'CANTIDAD DE CONSULTAS (8)
|
||||
'MOVIMIENTOS ACEPTADOS
|
||||
trailer.Append("0".PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS ALTAS (8) *** Respusta de ScotiaBank ***
|
||||
trailer.Append("0".PadLeft(8, Cero)) 'CANTIDAD DE MOVIMIENTOS CAMBIOS (8) *** Respusta de ScotiaBank ***
|
||||
@@ -957,7 +957,7 @@ Partial Class Bancos_PagoElectronico
|
||||
da.Append("".PadLeft(34, CERO)) ' 105-138 Uso Futuro
|
||||
da.Append("".PadLeft(30, SPACE)) ' 139-168 Clave de Rastreo llenar con espacios en blanco
|
||||
da.Append("".PadLeft(20, SPACE)) ' 169-188 Referencia de Abono Banxico
|
||||
dm.Append("01") ' 189-190 Tipo de Operación anexo G
|
||||
dm.Append(" ") ' 189-190 Tipo de Operación anexo G
|
||||
da.Append("".PadLeft(232, SPACE)) ' 191-370 FILLER
|
||||
|
||||
|
||||
|
||||
@@ -17690,9 +17690,9 @@ Partial Class Compras_Compras
|
||||
Dim NumNoDed As Integer = TmpDT.COUNT("CvePS", "NoDeducible = True ")
|
||||
If NumNoDed > 0 Then GvPS.Columns(13).Visible = True 'visualiza columnas de nodeducibles
|
||||
|
||||
'If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 Then
|
||||
' InicializaAplicaNCFact()
|
||||
'End If
|
||||
If DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") And CveFactura <= 0 And CveCompra <= 0 Then
|
||||
InicializaAplicaNCFact()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub OriginalesVisible(Accion As Boolean)
|
||||
|
||||
@@ -262,12 +262,18 @@
|
||||
|
||||
<asp:UpdatePanel ID="UpCuentaDeposito" UpdateMode="Conditional" runat="server">
|
||||
<ContentTemplate>
|
||||
<div class="row" id="trCuentaDeposito" runat="server" visible="False">
|
||||
<div class="row" id="trCuentaDeposito" runat="server" visible="false">
|
||||
<label class="col-md-2 control-label">Cuenta Depósito: </label>
|
||||
<div class="col-md-10">
|
||||
<asp:DropDownList ID="DdlCuentaDeposito" runat="server" DataTextField="CuentaDeposito" DataValueField="CveCuentaDeposito" CssClass="form-control input-sm select2me" Width="400px" AppendDataBoundItems="True"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RFVCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta de Depósito''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCECuentaDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDeposito" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
|
||||
<div runat="server" id="DVValidacionesCuentaDeposito" visible="false">
|
||||
<asp:RequiredFieldValidator ID="RFVCuentaDeposito" runat="server" ControlToValidate="DdlCuentaDeposito" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cuenta de Depósito''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
<ajax:ValidatorCalloutExtender ID="VCECuentaDeposito" runat="server" HighlightCssClass="vco" TargetControlID="RFVCuentaDeposito" Width="300px"></ajax:ValidatorCalloutExtender>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<%--<asp:ImageButton ID="ImgUpdateCuentaDeposito" ImageUrl="/Imagenes/accept.png" OnClick="ImgUpdateCuentaDeposito_Click" ValidationGroup="GrpGuardar" runat="server" />--%>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
@@ -349,43 +349,52 @@ Partial Class Compras_ReembolsosComprobaciones
|
||||
DdlCuentaDeposito.SelectedValue = Nothing
|
||||
DdlCuentaDeposito.Items.Clear()
|
||||
|
||||
trCuentaDeposito.Visible = False
|
||||
DdlCuentaDeposito.Enabled = False
|
||||
DVValidacionesCuentaDeposito.Visible = False
|
||||
'trCuentaDeposito.Visible = False
|
||||
'DdlCuentaDeposito.Enabled = False
|
||||
|
||||
|
||||
Dim CvePersonal As Integer = DdlPersonal.SelectedValue.ToEntero
|
||||
|
||||
If CvePersonal > 0 Then
|
||||
If CvePersonal > 0 And DdlTipoPago.SelectedValue.ToEntero = 1 Then
|
||||
|
||||
If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
|
||||
'If DdlTipoTransaccion.SelectedValue.Contiene("9", "17") Then
|
||||
|
||||
trCuentaDeposito.Visible = True
|
||||
DdlCuentaDeposito.Enabled = True
|
||||
trCuentaDeposito.Visible = True
|
||||
DdlCuentaDeposito.Enabled = True
|
||||
|
||||
Dim Dep As New ClsGenerales
|
||||
If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
|
||||
Dim Dep As New ClsGenerales
|
||||
If Dep.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
|
||||
|
||||
If DdlTipoTransaccion.SelectedValue = "9" Then
|
||||
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'")
|
||||
Else
|
||||
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'")
|
||||
End If
|
||||
|
||||
|
||||
If Dep.DtResultados.Rows.Count > 0 Then
|
||||
|
||||
trCuentaDeposito.Visible = True
|
||||
DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
|
||||
|
||||
End If
|
||||
If DdlTipoTransaccion.SelectedValue = "9" Then
|
||||
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronico = 'True'")
|
||||
ElseIf DdlTipoTransaccion.SelectedValue = "17" Then
|
||||
DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros(" EstatusPagoElectronicoGrupos = 'True'")
|
||||
Else
|
||||
DdlCuentaDeposito.DataSource = Dep.DtResultados
|
||||
End If
|
||||
|
||||
Dep.Dispose()
|
||||
DdlCuentaDeposito.DataBind()
|
||||
|
||||
'If Dep.DtResultados.Rows.Count > 0 Then
|
||||
trCuentaDeposito.Visible = True
|
||||
DdlCuentaDeposito.Items.Insert(0, New ListItem("Seleccione una cuenta", "-1"))
|
||||
'End If
|
||||
|
||||
End If
|
||||
|
||||
Dep.Dispose()
|
||||
DdlCuentaDeposito.DataBind()
|
||||
|
||||
|
||||
'End If
|
||||
Else
|
||||
trCuentaDeposito.Visible = False
|
||||
End If
|
||||
|
||||
|
||||
If DdlTipoTransaccion.SelectedValue.ToEntero.Contiene(9, 17) Then
|
||||
DVValidacionesCuentaDeposito.Visible = True
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
UpCuentaDeposito.Update()
|
||||
|
||||
Reference in New Issue
Block a user