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

-- filtrado de gv, de facturas NC

Browse Source 
-- mejora en el mensaje de vinculación de NC, con docs relacionados
This commit is contained in:
rrene
2022-10-13 16:44:07 -07:00
parent ceeaa68415
commit b8c4fadedf
2 changed files with 31 additions and 62 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
Compras/Compras.aspx
View File

@@ -155,11 +155,7 @@
.manita {
cursor: pointer;
}
.centrarUM {
line-height: 40px;
}
select.selecthidden {
display: none;
}
@@ -766,7 +762,7 @@
<%-- 2 --%>
<asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-VerticalAlign="Middle" ItemStyle-Width="70px">
<ItemTemplate>
<asp:Label ID="LtlUnidadMedida" CssClass="centrarUM" runat="server" Text='<%# Eval("UM") %>'></asp:Label>
<asp:Label ID="LtlUnidadMedida" runat="server" Text='<%# Eval("UM") %>'></asp:Label>
<asp:LinkButton ID="LBAplicarEquivalencia" OnClick="LBAplicarEquivalencia_Click" data-toggle="tooltip" title="Aplicar conversión de equivalencia" Text="" runat="server" Visible="false"> <i class="fa fa-magic"></i></asp:LinkButton>
</ItemTemplate>
</asp:TemplateField>
@@ -2878,7 +2874,7 @@
</asp:TemplateField>
<asp:TemplateField HeaderText="Factura" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Left">
<ItemTemplate>
<asp:HyperLink ID="HplFactura" runat="server" CssClass="Texto" Text='<%# Eval("SerieFolio")%>' NavigateUrl='<%# If(Eval("CveCompra").ToString <> "0", Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}"), If(Eval("CveIE").ToString <> "0", Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}"), ""))%>'></asp:HyperLink>
<asp:HyperLink ID="HplFactura" runat="server" CssClass="Texto" Text='<%# Eval("SerieFolio")%>' NavigateUrl='<%# If(Eval("CveCompra").ToString <> "0", Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}"), If(Eval("CveIE").ToString <> "0", Eval("CveIE", "/Bancos/IE.aspx?CveIE={0}"), ""))%>'></asp:HyperLink>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fecha Compra" HeaderStyle-HorizontalAlign="Center" ItemStyle-HorizontalAlign="Center">
@@ -4125,20 +4121,14 @@
<asp:TemplateField>
<HeaderTemplate>Saldo</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
<asp:Literal ID="LtlSaldo" runat="server" Text='<%# Eval("Saldo", "{0:N2}") %>'></asp:Literal>&nbsp;
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField>
<HeaderTemplate>Fecha</HeaderTemplate>
<ItemTemplate>
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaDocumento", "{0:d}") %>'></asp:Literal>&nbsp;
<asp:Literal ID="LtlFecha" runat="server" Text='<%# Eval("FechaDocumento", "{0:d}") %>'></asp:Literal>&nbsp;
</ItemTemplate>
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
@@ -4812,23 +4802,23 @@
<label class="col-md-6"><b>Aplicado: </b></label>
<div class="col-md-6">
<asp:Label ID="LblAplicado" runat="server"></asp:Label>
</div>
<div class="row form-group">
</div>
</div>
</div>
<br />
</div>
<div class="row">
<div class="col-md-12 text-right">
<div class="col-md-6 text-right">
<input type="text" id="TxtBusquedaNC" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusquedaNC','{0}')", GvFacturaNC.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 120px;" />
<a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusquedaNC','{0}')", GvFacturaNC.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
</div>
<div class="col-md-6 text-right">
<asp:UpdatePanel ID="UpChkNCInvNC" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:CheckBox ID="ChkNCInvNC" Text="Afecta Rep Sin Entrada" runat="server" />
</ContentTemplate>
</asp:UpdatePanel>
</div>
</div>
<br />
</div>
<div class="row">
<div class="col-md-12">
<asp:GridView ID="GvFacturaNC" OnRowDataBound="GvFacturaNC_RowDataBound"
@@ -4837,6 +4827,7 @@
<asp:TemplateField>
<ItemTemplate>
<asp:CheckBox ID="ChkFacturaNC" runat="server" />
<span style='display: none'><%# Eval("UUID")%></span>
</ItemTemplate>
</asp:TemplateField>
<asp:HyperLinkField DataTextField="SerieFolio" HeaderText="Folio" DataNavigateUrlFields="CveCompra" DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" Target="_blank" ItemStyle-HorizontalAlign="Left" />
@@ -4844,7 +4835,7 @@
<asp:BoundField HeaderText="Importe/Saldo" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
<asp:TemplateField ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Right">
<ItemTemplate>
<asp:TextBox ID="TxtImporte" runat="server" Width="100%" />
<asp:TextBox ID="TxtImporte" runat="server" Width="100%" CssClass="text-right" />
<ajax:FilteredTextBoxExtender ID="FTETxtImporte" runat="server" TargetControlID="TxtImporte" FilterType="Custom, Numbers" ValidChars="." />
</ItemTemplate>
</asp:TemplateField>

56
Compras/Compras.aspx.vb
View File

@@ -3586,7 +3586,7 @@ Partial Class Compras_Compras
Private Sub CargaPSAlias()
DdlPSAlias2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
DdlPSAlias2.setEsWebService(True)
If UsuarioActual.CveEmpresa = 66 Then
DdlPSAlias2.ddlWS.Attributes.Add("data-subfamilia", "-1")
@@ -6940,8 +6940,9 @@ Partial Class Compras_Compras
For Each rw As GridViewRow In GvDeudores.Rows
If rw.FCCheckBox("Chk").Checked Then
importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
IdCtaContable = CtaProveedorDeudores
Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero
'Conta ContPAQ
If IdCtaContable = 0 Then
@@ -6949,7 +6950,7 @@ Partial Class Compras_Compras
idCuentaContabilizacion = 0
End If
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True : Exit For
End If
@@ -6961,10 +6962,11 @@ Partial Class Compras_Compras
For Each rw As GridViewRow In GvDeudores.Rows
If rw.FCCheckBox("Chk").Checked Then
importeMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal
importeMN = importeMovimiento * tipoCambioActual * Multiplicador
importeMN = (importeMovimiento * tipoCambioActual * Multiplicador).RoundSQL
IdCtaContable = CtaProveedorDeudores
Dim tCveProveedor As Integer = rw.DataKey("CveProveedor").ToEntero
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Referencia, 254, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=tCveProveedor, CveIE:=rw.DataKey("CveIE").ToString.ToEntero, CvePersonal:=CvePersonal, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), Contabilizable:=SeContabiliza) Then
ErrorPrepoliza = True
Exit For
End If
@@ -20133,35 +20135,24 @@ Partial Class Compras_Compras
Private Sub NCSeleccionFacturasRelacionadas(UUIDSListRelacioandos As List(Of String))
If UUIDSListRelacioandos.Count > 0 Then
Dim SaldoNota As Decimal = TxtTotal.Text.ToDecimal
Dim SaldoNotaPorAplicar As Decimal = SaldoNota
Dim CountAplicacion As Integer = 0
Dim sbNoencontrados As New StringBuilder
For Each UUID As String In UUIDSListRelacioandos
UUID = UUID.ToUpper
Dim UUIDEncontrado As Boolean = False
For Each GvRow As GridViewRow In GvFacturaNC.Rows
Dim UUIDGv As String = GvRow.DataKey("UUID").Trim.ToUpper
If UUID.Trim.ToUpper = GvRow.DataKey("UUID").Trim.ToUpper Then
If UUID.Trim.ToUpper = UUIDGv Then
UUIDEncontrado = True
Exit For
End If
Next
If Not UUIDEncontrado Then
sbNoencontrados.Append($"{UUID},")
End If
If Not UUIDEncontrado Then sbNoencontrados.Append($"{UUID}, <br/>")
Next
Dim TeminarAmortizacion As Boolean = False
@@ -20176,19 +20167,18 @@ Partial Class Compras_Compras
If SaldoFactura <= SaldoNotaPorAplicar Then
SaldoNotaPorAplicar = SaldoNotaPorAplicar - SaldoFactura
GvRow.FCTextBox("TxtImporte").Text = SaldoFactura.ToString("###,###,###.00")
GvRow.FCTextBox("TxtImporte").Text = SaldoFactura.FormatoNumero
GvRow.FCCheckBox("ChkFacturaNC").Checked = True
Else
If SaldoFactura >= SaldoNotaPorAplicar Then
GvRow.FCTextBox("TxtImporte").Text = SaldoNotaPorAplicar.ToString("###,###,###.00")
GvRow.FCTextBox("TxtImporte").Text = SaldoNotaPorAplicar.FormatoNumero
GvRow.FCCheckBox("ChkFacturaNC").Checked = True
SaldoNotaPorAplicar = 0
TeminarAmortizacion = True
Else
GvRow.FCTextBox("TxtImporte").Text = SaldoFactura.ToString("###,###,###.00")
GvRow.FCTextBox("TxtImporte").Text = SaldoFactura.FormatoNumero
GvRow.FCCheckBox("ChkFacturaNC").Checked = True
SaldoNotaPorAplicar = SaldoNotaPorAplicar - SaldoFactura
@@ -20198,36 +20188,28 @@ Partial Class Compras_Compras
CountAplicacion = CountAplicacion + 1
Exit For
End If
If SaldoNotaPorAplicar <= 0 Then
TeminarAmortizacion = True
Exit For
End If
Next
If TeminarAmortizacion Then
Exit For
End If
Next
Dim TipoMensaje As TipoMensaje = TipoMensaje.ToastInformacion
Dim TipoMesaje As TipoMensaje = TipoMensaje.ToastInformacion
TipoMesaje = If(sbNoencontrados.ToString.Length > 0 Or (SaldoNotaPorAplicar <> 0), TipoMensaje.ToastAdventencia, TipoMesaje)
TipoMensaje = If(sbNoencontrados.ToString.Length > 0 Or (SaldoNotaPorAplicar <> 0), TipoMensaje.ToastAdventencia, TipoMensaje)
Dim MsgSalida As String = ""
If sbNoencontrados.ToString.Length > 0 Then
MsgSalida = $"UUIDS no encotradas o sin saldo: {sbNoencontrados.ToString()} <br/>"
MsgSalida = $"Folios Fiscales no encontradas o sin saldo: {sbNoencontrados } <br/><br/>"
End If
MsgSalida = $"{MsgSalida}Se seleccionó {(SaldoNota - SaldoNotaPorAplicar).ToString("###,###,###.00")} de {SaldoNota.ToString("###,###,###.00")} a {CountAplicacion} factura{If(CountAplicacion > 0, "s", "")}."
MsgSalida = $"{MsgSalida} Se seleccionó $ {(SaldoNota - SaldoNotaPorAplicar).FormatoNumero} de $ {SaldoNota.FormatoNumero} a {CountAplicacion} factura {If(CountAplicacion > 0, "s", "")}."
Alert(MsgSalida, TipoMesaje)
Alert(MsgSalida, TipoMensaje)
If CountAplicacion > 0 Then
BtnFacturaNC_Click(Nothing, Nothing)
@@ -20235,8 +20217,6 @@ Partial Class Compras_Compras
End If
End Sub
@@ -20244,8 +20224,6 @@ End Class
Public Class MMensajeDevolucion
Public Property CveMovimiento As Integer
Public Property TieneError As Boolean