AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

GDiaz - Identificar anticipos puntuales

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-04-16 18:02:26 -07:00
parent fbbee09158
commit c57c4f2c46
4 changed files with 68 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsBancos.vb
View File

@@ -1475,7 +1475,8 @@ 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 CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1) As Integer
Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "", Optional ConceptoCIE As String = "", Optional CveOCAnticipo As Integer = -1, Optional ImporteDeduccionesPago As Decimal = -1,
Optional AnticipoPuntual As Boolean = False) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Banc_IEAdd")
@@ -1516,7 +1517,7 @@ Public Class ClsBancos
.Add("@Modulo", SqlDbType.VarChar).Value = Modulo
.Add("@CveOCAnticipo", SqlDbType.Int).Value = CveOCAnticipo
.Add("@ImporteDeduccionesPago", SqlDbType.Money).Value = ImporteDeduccionesPago
.Add("@AnticipoPuntual", SqlDbType.Bit).Value = AnticipoPuntual
End With
Try

89
Bancos/IE.aspx
View File

@@ -25,7 +25,7 @@
<asp:LinkButton ID="LnkComplementoPago" runat="server" Visible="false" Style="color: #686868;"><i class="fa fa-money" style="color:#686868;"></i> Complemento Pago</asp:LinkButton>
</li>
</ContentTemplate>
</asp:UpdatePanel>
</asp:UpdatePanel>
<li>
<asp:HyperLink ID="HpLPrePoliza" NavigateUrl="#" runat="server" Visible="false" Style="color: #686868;"><i class="" style="color:#686868;"></i> PrePoliza</asp:HyperLink>
</li>
@@ -151,7 +151,7 @@
<div class="col-md-5">
<asp:DropDownList ID="DDlCheques" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="FolioFecha" DataValueField="CveIE" AutoPostBack="True"></asp:DropDownList>
</div>
</div>
</div>
</div>
<div class="chequesie2" id="checkesie2">
<div class="row">
@@ -225,7 +225,7 @@
<asp:ListItem Value="C">Clientes</asp:ListItem>
<asp:ListItem Value="P">Proveedor</asp:ListItem>
<asp:ListItem Value="FE">Viáticos</asp:ListItem>
<asp:ListItem Value="AC">Acreedor</asp:ListItem>
<asp:ListItem Value="AC">Acreedor</asp:ListItem>
</asp:RadioButtonList>
<asp:HiddenField ID="HdnCveCliente" runat="server" ClientIDMode="Static" Value="-1" />
<asp:HiddenField ID="HdnCveProveedor" runat="server" ClientIDMode="Static" Value="-1" />
@@ -245,7 +245,8 @@
<asp:CheckBox ID="ChkAbonoCuenta" CssClass="md-checksd" ClientIDMode="Static" runat="server" Text="Abono en Cuenta"></asp:CheckBox>
<br />
<asp:CheckBox ID="ChkAplicaViatico" CssClass="md-checksd" Text="Aplica Viaticos" runat="server" Visible="false" align="Right" />
<asp:CheckBox ID="ChkAnticipoPuntual" CssClass="md-checksd" ClientIDMode="Static" runat="server" Text="Anticipo Puntal" Visible="false"></asp:CheckBox>
</div>
</ContentTemplate>
</asp:UpdatePanel>
@@ -438,23 +439,22 @@
</div>
</div>
<div class="row" id="DVBancosOrdenCompra" runat="server" visible="False">
<div class="col-md-2">
Folio OC:
</div>
<div class="col-md-5">
<div class="row" id="DVBancosOrdenCompra" runat="server" visible="False">
<asp:HyperLink runat="server" ID="HLFFolioOC" CssClass="Texto" Target="_blank"></asp:HyperLink>
<div class="col-md-2">
Folio OC:
</div>
<div class="col-md-5">
<asp:HyperLink runat="server" ID="HLFFolioOC" CssClass="Texto" Target="_blank"></asp:HyperLink>
<%-- <asp:GridView ID="GvBancosOrdenCompra" runat="server" GridLines="None" CssClass="table xspadding table-striped table-advance Widthall" AutoGenerateColumns="False" Width="250px">
<Columns>
<asp:HyperLinkField DataNavigateUrlFields="CveOrdenCompra" HeaderText="Folio OC" DataNavigateUrlFormatString="~/OC/OC.aspx?OC={0}" DataTextField="FolioOC" Target="_blank" />
<asp:BoundField DataField="ImporteAnticipo" HeaderText="Importe Anticipo" DataFormatString="{0:C}" > <ItemStyle HorizontalAlign="Right" /></asp:BoundField>
</Columns>
</asp:GridView>--%>
</div>
</div>
</div>
</div>
</div>
</div>
@@ -620,7 +620,7 @@
<ajax:TabPanel ID="TabM" runat="server" HeaderText="Movimientos">
<ContentTemplate>
<div class="row">
<div class="col-md-6" >
<div class="col-md-6">
<asp:GridView ID="GvM" runat="server" AutoGenerateColumns="False" CssClass="table table-striped table-advance table-hover Widthall ADSCroll mysmallbtn ScrollAD" Style="text-align: center;" GridLines="None"
DataKeyNames="CveVenta" OnRowDataBound="GvM_RowDataBound">
<Columns>
@@ -759,7 +759,7 @@
<asp:RequiredFieldValidator ID="RFVTipoDocto" runat="server" ControlToValidate="TxtTipoDocto" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''TipoDocto del IE''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCETipoDocto" runat="server" HighlightCssClass="vco" TargetControlID="RFVTipoDocto" Width="300px"></ajax:ValidatorCalloutExtender>
</td>
</tr>--%>
</tr>--%>
<tr>
<td>Fecha Aplicación</td>
<td>
@@ -778,7 +778,7 @@
<ajax:ValidatorCalloutExtender ID="VCOFechaAplicado1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaAplicado" Width="350px"></ajax:ValidatorCalloutExtender>
<ajax:ValidatorCalloutExtender ID="VCOFechaAplicado2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaAplicado" Width="350px"></ajax:ValidatorCalloutExtender>
--%>
<asp:LinkButton runat="server" Visible="false" ID="LnkDesconciliar" OnClick="LnkDesconciliar_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea desconciliar?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Desconciliar" />
<asp:LinkButton runat="server" Visible="false" ID="LnkDesconciliar" OnClick="LnkDesconciliar_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea desconciliar?" data-btn-ok-label="si" Text="<i class='fa fa-check' style='color:green'></i>" CssClass="btn btn-default btn-circle btn-xs" ToolTip="Desconciliar" />
</td>
</tr>
<tr>
@@ -790,11 +790,11 @@
</td>
</tr>
<tr runat="server" id="TRImporteDeduccionesPago" visible="false">
<td >Deducciones Pago:</td>
<td style="text-align:left">
<td>Deducciones Pago:</td>
<td style="text-align: left">
<asp:Label runat="server" ID="LblImporteDeduccionesPago"></asp:Label>
</td>
</tr>
</tr>
</table>
</fieldset>
</div>
@@ -834,7 +834,7 @@
<td style="vertical-align: top;">
<div>
<fieldset style="min-height: 60px;">
<table width="100%" border="0" class="table table-striped table-advance table-hover">
<table width="100%" border="0" class="table table-striped table-advance table-hover">
<tr>
<td>Registró:</td>
<td>
@@ -993,7 +993,7 @@
</ContentTemplate>
</asp:UpdatePanel>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td align="center">
@@ -1010,7 +1010,7 @@
</td>
</tr>
</table>
<div class="row">
<div class="col-md-12 ">
@@ -1030,13 +1030,14 @@
<asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold font-green'>Agregar</span>" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
<asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green' ></i><span class='caption-subject bold font-green'>Agendar</span>" Visible="false" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
<br /><asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal>
<UserControl:TareaNueva runat="server" ID="TareaNueva" />
<script>
function OnAddedTareaNueva() {
$('.btnupEventoBitacora').click();
}
</script>
<br />
<asp:Literal ID="LtlTareaNueva" runat="server"></asp:Literal>
<UserControl:TareaNueva runat="server" ID="TareaNueva" />
<script>
function OnAddedTareaNueva() {
$('.btnupEventoBitacora').click();
}
</script>
</div>
</div>
@@ -1220,10 +1221,10 @@
<div class="row">
<div class="col-md-12" id="DVTipoTransacciónCancelar2" runat="server" visible="false">
Cuenta Devolución:
<asp:DropDownList ID="DdlDevolucionCuenta" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta" >
<asp:DropDownList ID="DdlDevolucionCuenta" CssClass="form-control input-sm select2me" Width="100%" runat="server" DataTextField="NumCuentaMoneda" DataValueField="CveCuenta">
<asp:ListItem Value="-1">-</asp:ListItem>
</asp:DropDownList>
</div>
</div>
</div>
@@ -1231,7 +1232,7 @@
</div>
<br />
<div class="row" id="DivCancelarComplemento" runat="server" Visible="false">
<div class="row" id="DivCancelarComplemento" runat="server" visible="false">
<div class="col-md-12">
<div class="portlet light xspadding bordered whitoutcol" style="width: 100%">
<div class="portlet-title">
@@ -1249,10 +1250,10 @@
</div>
<div class="portlet-body ">
<div class="row" style="align-items: center; vertical-align: middle;">
<label class="col-md-3" style="max-width: 155px;">Motivo de cancelación:</label>
<div class="col-md-9">
<asp:DropDownList runat="server" id="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Width="100%" >
</asp:DropDownList>
<label class="col-md-3" style="max-width: 155px;">Motivo de cancelación:</label>
<div class="col-md-9">
<asp:DropDownList runat="server" ID="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="select2me" Width="100%">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RfvDdlMotivoCancelacion" runat="server" ControlToValidate="DdlMotivoCancelacion" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Motivo de Cancelación''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpCancelarIE"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VCERfvDdlMotivoCancelacion" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlMotivoCancelacion" Width="300px"></ajax:ValidatorCalloutExtender>
@@ -1273,7 +1274,7 @@
</div>
</div>
<%-- <div id="DivChqDevueltoIE" class="modal fade">
<%-- <div id="DivChqDevueltoIE" class="modal fade">
<div class="modal-dialog" style="max-height: 500px; max-width: 500px;">
<asp:UpdatePanel ID="UpdatePanel1" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">
<ContentTemplate>
@@ -1383,7 +1384,7 @@
<asp:BoundField HeaderText="Estatus" DataField="StrEstatus" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="15%" />
<asp:BoundField HeaderText="Fecha C" DataField="FechaCancelacion" DataFormatString="{0:d}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%" />
<asp:TemplateField HeaderText="Motivo" Visible="false" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="30%">
<ItemTemplate>
<asp:DropDownList runat="server" ID="DdlMotivoCancelacion" DataTextField="CodigoSATDescripcion" DataValueField="CveMotivoCancelacion" CssClass="form-control input-sm select2me" Visible="false">
@@ -1395,7 +1396,7 @@
<asp:TemplateField HeaderText="Cancelar" Visible="false" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="15%">
<ItemTemplate>
<asp:LinkButton ID="LnkCancelarComplemetno" OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False"
<asp:LinkButton ID="LnkCancelarComplemetno" OnClick="LnkCancelarComplemetno_Click" runat="server" AlternateText="Editar" CausesValidation="False"
data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar el complemento?" data-btn-ok-label="si" Visible="false"
CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" />
</ItemTemplate>
@@ -1418,7 +1419,7 @@
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div id="ModalDivMail" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
@@ -1468,7 +1469,7 @@
</div>
</div>
</div>
<%-- <div id="ModalCancelarComplemetno" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
@@ -1581,7 +1582,7 @@
</ContentTemplate>
</asp:UpdatePanel>
</div>
<div id="ModalAjustarMovimiento" class="modal ADS fade" role="dialog">
<div class="modal-dialog">
@@ -1767,7 +1768,7 @@
var Dev = 0.00;
debugger; //valida importe
if ($get('TxtDevolución') && (ToDouble($get('TxtDevolución').value) > s)) $get('TxtDevolución').value = s;
// considera importe de OT ingresos, para que se peuda exceder
if ($get('TxtOtrosIngresosEgresos')) { Ot = ToDouble($get('TxtOtrosIngresosEgresos').value); }
if ($get('TxtImporte')) $get('TxtImporte').value = ToDouble($get('TxtDevolución').value) + Ot;

16
Bancos/IE.aspx.vb
View File

@@ -646,6 +646,10 @@ Partial Class Bancos_IE
If UsuarioActual.Empresa.Funcionalidad(590) = "1" Then
DivOtrosIngresosEgresos.Visible = True
End If
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
ChkAnticipoPuntual.Visible = True
End If
End If
If Request("Opcion") IsNot Nothing AndAlso Request("Opcion").ToString.Contiene("EGSCREDITO") Then
@@ -711,6 +715,7 @@ Partial Class Bancos_IE
TxtObservaciones.Enabled = False
ChkAplicaImpuestos.Enabled = False
ChkAbonoCuenta.Enabled = False
ChkAnticipoPuntual.Enabled = False
Anexo.Visible = False
DdlCliente.Enabled = False
DdlProveedores.Enabled = False
@@ -806,6 +811,8 @@ Partial Class Bancos_IE
End Try
ChkAnticipoPuntual.Checked = CBool(ObjIE.DtResultados(0)("AnticipoPuntual").ToString)
CveIEDeposito = ObjIE.DtResultados(0)("CveIEDepositoPadre").ToString.ToEntero
CuentaDepositoPadre = ObjIE.DtResultados(0)("CuentaDepositoPadre").ToString
Cuenta = ObjIE.DtResultados(0)("NumCuenta").ToString
@@ -1755,6 +1762,13 @@ Partial Class Bancos_IE
End If
Dep.Dispose()
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
If String.IsNullOrEmpty(TxtObservaciones.Text.Trim) Then
Alert("Las observaciones son obligatorias.", TipoMensaje.MsgAdvertencia)
EsValido = False
End If
End If
If CveOCSolicitudAnticipo > 0 Then
Dim ObjOC As New ClsOC
If ObjOC.GetOCAnticipoSaldo(CveOCSolicitudAnticipo, UsuarioActual.CveEmpresa) Then
@@ -2001,7 +2015,7 @@ Partial Class Bancos_IE
CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, TxtFolio.Text.Trim, PagueseA, TxtImporte.Text.Trim.ToDouble, tCveMoneda,
TxtTipoCambio.Text.Trim.ToDouble, TxtObservaciones.Text.Trim, TxtNotificarA.Text.Trim, ChkAbonoCuenta.Checked, ChkAplicaImpuestos.Checked, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
CveCuentaDeposito:=CveCuentaDeposito, CveEstatusIE:=DdlEstatusIE.SelectedValue.ToString.ToEntero, Referencia:=If(TxtReferenciaCIE.Visible, TxtReferenciaCIE.Text, "-1"),
ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo)
ConceptoCIE:=If(TxtConceptoCIE.Text.Trim.Length > 0, TxtConceptoCIE.Text, "-1"), CveCorte:=Me.CveCorte, CveOCAnticipo:=CveOCSolicitudAnticipo, AnticipoPuntual:=ChkAnticipoPuntual.Checked)
If CveIE > 0 Then

5
Ventas/Ventas.aspx.vb
View File

@@ -16551,6 +16551,11 @@ Partial Class Ventas
DirectCast(e.Row.FindControl("VCOAmortAnti"), AjaxControlToolkit.ValidatorCalloutExtender).ID = "VCOAmortAnti" & e.Row.RowIndex
DirectCast(e.Row.FindControl("CVAmortAnti"), CompareValidator).ControlToValidate = "TxtAnticipo" & e.Row.RowIndex
DirectCast(e.Row.FindControl("VCOAmortAnti"), AjaxControlToolkit.ValidatorCalloutExtender).TargetControlID = "CVAmortAnti" & e.Row.RowIndex
'SI NO TIENE PERMISO, NO PERMITIR APLICAR ANTICIPOS PUNTUALES
If CBool(e.Row.DBCampo("AnticipoPuntual")) AndAlso Not UsuarioActual.TienePermisoProceso(377) Then
e.Row.FCCheckBox("Chk").Enabled = False
End If
End If
End Sub
Protected Sub GVAnticipos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GVAnticipos.RowDataBound