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

-- E!89, que si tiene que relacionar las notas de crédito, que no sea en automático para generar RNC, sino que permita registrar otro tipo de notas para aplicar saldo directo a facturas

Browse Source
This commit is contained in:
rrene
2025-02-04 13:06:02 -07:00
parent 99a538686f
commit 0bac90a3b1
1 changed files with 18 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
Compras/Compras.aspx.vb
View File

@@ -20695,18 +20695,27 @@ Partial Class Compras_Compras
End If End If
End If End If
If DdlTipoCompra.SelectedValue = "15" Then 'Remisión de nota de crédito If UsuarioActual.Empresa.Funcionalidad(574) = "1" Then 'cuando es emp DIAZ
If DdlTipoComprobante.SelectedValue = "NC" Then If DdlTipoCompra.SelectedValue = "15" Then 'Remisión de nota de crédito
CargaGVRemisionNotaCredito()
HLAplicaNCFact.Visible = False If DdlTipoComprobante.SelectedValue = "NC" Then
CargaGVRemisionNotaCredito()
HLAplicaNCFact.Visible = False
Else
Alert("Para elegir Remisión de Nota de Crédito el tipo de documento debe de ser Nota de Crédito.", TipoMensaje.MsgAdvertencia)
'DdlRemisionNotaCredito.SelectedValueExist(-1)
DdlTipoCompra.SelectedValueExist(-1)
End If
Else Else
Alert("Para elegir Remisión de Nota de Crédito el tipo de documento debe de ser Nota de Crédito.", TipoMensaje.MsgAdvertencia) 'SE ACTIVA DE NUEVO PARA LA SELECCIÓN
'DdlRemisionNotaCredito.SelectedValueExist(-1) HLAplicaNCFact.Visible = True
DdlTipoCompra.SelectedValueExist(-1) InicializaAplicaNCFact()
If CveFactura > 0 Then NCSeleccionFacturasRelacionadas(UUIDSList)
End If End If
End If End If
End Sub End Sub
@@ -22796,7 +22805,7 @@ Public Class ClsCompraManagerCompras
Public Property CveMetodoPago As Integer Public Property CveMetodoPago As Integer
Public Property MetodoPago As String Public Property MetodoPago As String
Public Property DocumentosRelacionadosUUIDSList As List(Of String) = New List(Of String) Public Property DocumentosRelacionadosUUIDSList As HashSet(Of String) = New HashSet(Of String)
Public ReadOnly Property DocumentosRelacionadosUUIDSString As String Public ReadOnly Property DocumentosRelacionadosUUIDSString As String
Get Get
Return GeneraStringDoctosRelacionados() Return GeneraStringDoctosRelacionados()
@@ -23015,7 +23024,7 @@ Public Class ClsCompraManagerCompras
If TipoComprobante.ToUpper = "E" AndAlso (CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40) Then If TipoComprobante.ToUpper = "E" AndAlso (CFDIVersion = EnumCFDIVersion.v33 OrElse CFDIVersion = EnumCFDIVersion.v40) Then
Dim UUIDS As String = "" Dim UUIDS As String = ""
Dim UUIDSLista As New List(Of String) Dim UUIDSLista As New HashSet(Of String)
Dim nodeCFDIRelacionados As XmlNode Dim nodeCFDIRelacionados As XmlNode
nodeCFDIRelacionados = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces) nodeCFDIRelacionados = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)