From 570a0054332b0cd38dad12727043bace079ea4e5 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 13 Jul 2022 18:06:39 -0700
Subject: [PATCH] Correcion de usos cfdi 4.0

---
 Ventas/Clientes.aspx.vb |  8 +++++++-
 Ventas/Ventas.aspx.vb   | 27 +++++++++++++++++++++++----
 2 files changed, 30 insertions(+), 5 deletions(-)

diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb
index 792baab8e..4bd6fa8d7 100644
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -2080,7 +2080,13 @@ Partial Class Clientes
         End If
 
         DdlUsoCFDI.Items.Clear()
-        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+            Dim EsPersonaMoral As Boolean = (RdTipoPersona.SelectedValue = "1")
+            DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+        Else
+            DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+        End If
+
         DdlUsoCFDI.DataBind()
         DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 4a316102b..15570eddd 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -4966,7 +4966,11 @@ Partial Class Ventas
                 DdlFormaPago33.SelectedValueExist(DbRowVenta("CveFormaPago33").ToString().ToEntero())
             End If
 
-            DdlUsoCFDI.SelectedValueExist(DbRowVenta("CveUsoCFDI").ToString())
+            If DbRowVenta("CveUsoCFDI").ToString().ToEntero() > 0 Then
+                Dim UsoCFDI As String = GlobalDTSATUsosCFDI().FiltroPrimeroValor("UsoCFDIDescripcion", $"CveUsoCFDI={DbRowVenta("CveUsoCFDI").ToString()}")
+                DdlUsoCFDI.SelectedValueExistInsert(DbRowVenta("CveUsoCFDI").ToString(), UsoCFDI)
+            End If
+
 
             If UsuarioActual.CveEmpresa = 126 Then CargaOrdenProduccion(2, CveVenta)
 
@@ -5105,8 +5109,8 @@ Partial Class Ventas
                 ChkDireccionEnvio.Enabled = False
                 DdlDireccionEnvio.Visible = True
                 trDireccionEnvio.Visible = True
-                If UsuarioActual.TienePermisoProceso(333) Then LnkEditarDir.Visible = True
             End If
+            If UsuarioActual.TienePermisoProceso(333) Then LnkEditarDir.Visible = True
 
             'ESTATUS FACTURA
             If Not (CveRemision > 0 Or CveCotizacion > 0) Then
@@ -5886,11 +5890,26 @@ Partial Class Ventas
             RegimenFiscalCliente = "-1"
         End If
 
-        DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
-        DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+        DdlUsoCFDI.Items.Clear()
+        DdlSucursalUsoCFDI.Items.Clear()
+
+        If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
+            Dim EsPersonaMoral As Boolean = (TipoPersona = True)
+
+            DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+            DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(If(Not EsPersonaMoral, 1, 0), RegimenFiscalReceptor:=RegimenFiscalCliente)
+        Else
+            DdlUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+            DdlSucursalUsoCFDI.DataSource = GlobalDTSATUsosCFDI(UsuarioActual.Empresa.EsPersonaFisica, RegimenFiscalReceptor:=RegimenFiscalCliente)
+        End If
+
 
         DdlUsoCFDI.DataBind()
         DdlSucursalUsoCFDI.DataBind()
+
+        DdlUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlSucursalUsoCFDI.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
     End Sub
 
     Private Sub CargaMotivosCancelacion()