-- filtrado de gv, de facturas NC
-- mejora en el mensaje de vinculación de NC, con docs relacionados
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user