From 521e821d2e2a1667d9e84e1e69ce073a72a05bdf Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 14 Jun 2022 20:12:36 -0700
Subject: [PATCH] =?UTF-8?q?--=20opci=C3=B3n=20para=20verificar=20uuid=20re?=
 =?UTF-8?q?lacionados=20del=20SAT?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/Ventas.aspx    |  4 +++-
 Ventas/Ventas.aspx.vb | 56 +++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 59 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx
index e11a85891..738c15990 100644
--- a/Ventas/Ventas.aspx
+++ b/Ventas/Ventas.aspx
@@ -282,7 +282,9 @@
                 <asp:LinkButton ID="LkbRetiro" runat="server" OnClick="LkbRetiro_Click" Visible="false"> <i class="fa fa-ad-excel"></i> Retiro de Efectivo</asp:LinkButton>
             </li>
 
-
+             <li>
+                <asp:LinkButton ID="LnkUUIDRelacionados" runat="server" CausesValidation="False" Text="<i class='fa fa-pencil'></i>  UUID Relacionados" OnClick="LnkUUIDRelacionados_Click"  Visible="false" />
+            </li>
             <li>
                 <asp:LinkButton ID="LBCancelarPedido" runat="server" CausesValidation="False" CommandName="Delete" Text="<i class='fa fa-ban'></i>  Cancelar Pedido" OnClick="LBCancelarPedido_Click" data-toggle="confirmation" data-popout="true" data-original-title="¿Estás seguro que deseas cancelar el Pedido?" data-btn-ok-label="si" Visible="false" />
             </li>
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 363fd8033..8d6c5a8e6 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4973,6 +4973,9 @@ Partial Class Ventas
                 If (UsuarioActual.TienePermisoProceso(166) Or UsuarioActual.CveRol = 1) AndAlso (LblFolioFiscal.Text = "" Or LblFolioFiscal.Text = "test") Then
                     LkEliminarFactura.Visible = True
                 End If
+                If (UsuarioActual.CveRol = 1) AndAlso (LblFolioFiscal.Text <> "") Then
+                    LnkUUIDRelacionados.Visible = True
+                End If
 
                 'Envio Direccion
                 If DbRowVenta("CveDireccionEnvio").ToString().ToEntero() > 0 AndAlso DbRowVenta("CveDireccionEnvio").ToString() IsNot Nothing Then
@@ -34741,5 +34744,58 @@ Partial Class Ventas
         UpAgregarMercancia.Update()
 
     End Sub
+
+    Protected Sub LnkUUIDRelacionados_Click(sender As Object, e As EventArgs)
+
+        Dim Vigencia = Timbrado.VerificarVigenciaSAT(FolioFiscal, UsuarioActual.Empresa.RFC, LblRFC.Text, TxtTotal.Text, True)
+        Dim sb As New StringBuilder
+
+        sb.AppendFormat("<b>{0}</b> <br/>", Vigencia.EsCancelable)
+
+        Dim Relacionados = Timbrado.ConsultarUUIDRelacionados(UsuarioActual.Empresa, FolioFiscal, UsuarioActual.Empresa.FacturaProduccion)
+            If Relacionados IsNot Nothing Then
+                Dim sbExtra As New StringBuilder()
+                If Relacionados.Codigo = 500 Then
+                    sbExtra.Append("El servicio de verificación de documentos relacionados no esta disponible.")
+                Else
+                    sbExtra.Append(Relacionados.Mensaje)
+
+                    Dim SbHijos = New StringBuilder()
+                    Dim SbPadres = New StringBuilder()
+
+                    If Relacionados.RelacionadosPadre IsNot Nothing Then
+                        For Each padre In Relacionados.RelacionadosPadre
+                            SbPadres.AppendFormat("{0};", padre.Uuid)
+                        Next
+                        If SbPadres.Length > 0 Then
+                            SbPadres.Remove(SbPadres.Length - 1, 1)
+                        End If
+                    End If
+
+                    Using ObjVentas As New ClsVentas
+
+                        If SbPadres.Length > 0 Then
+                            If ObjVentas.GetFacturasRelacionadasPorFolioFiscal(SbPadres.ToString(), UsuarioActual.CveEmpresa) Then
+                                Dim dtt As DataTable = ObjVentas.DtResultados.FiltraParametros($"CveVenta <> {CveVenta}")
+
+                                For Each dr As DataRow In dtt.Rows
+                                    sb.AppendFormat("{0}-{1}-{2}<br/>", dr("TipoDocto"), dr("SerieFolio"), dr("FolioFiscal"))
+                                Next
+
+                            End If
+                        End If
+
+                    End Using
+
+                End If
+
+                If sbExtra.Length > 0 Then
+                    LbExtraRefacturacion.Text = $"<br><b>*{sbExtra.ToString()}</b>"
+                End If
+
+            End If
+            Alert(sb.ToString(), TipoMensaje.MsgInformacion)
+
+    End Sub
 End Class