From 4f4bd32a8110e2a7e07b6f1cca3ee6acebe92bc2 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 14 Jan 2025 20:54:23 -0700
Subject: [PATCH] -- carga de uso del cliente

---
 App_Code/Modelos.vb | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 633720008..dc127b3c4 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -8078,6 +8078,16 @@ Namespace Modelos
         Public Sub SetCliente()
             If CveCliente > 0 Then
                 Cliente = New Modelos.ClienteModel(CveCliente, CveEmpresa)
+
+                Me.CveFormaPago = Cliente.CveFormaPago
+                Me.FormaPago = ClsPaginas.GlobalDTVtaFormaPago.FiltroPrimeroValor("FormaPago", String.Format("CveFormaPago = {0}", Me.CveFormaPago))
+
+                Me.CveMetodoPago = Cliente.CveMetodoPago
+                Me.MetodoPago = ClsPaginas.GlobalDTVtaMetodoPago.FiltroPrimeroValor("MetodoPago", String.Format("CveMetodoPago = {0}", Me.CveMetodoPago))
+
+                Me.CveUsoCFDI = Cliente.CveUsoCFDI
+                Me.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", Me.CveUsoCFDI))
+
                 If Me.CveClienteSucursal > 0 Then
                     Dim ObjCliente As New ClsClientes()
                     If ObjCliente.GetSucursales(CveCliente, Me.CveClienteSucursal) AndAlso ObjCliente.DtResultados.Rows.Count > 0 Then
@@ -8452,6 +8462,9 @@ Namespace Modelos
             AplicaFEMSA = False
             AplicaDetallista = False
             AplicaComercioExterior = False
+            CveUsoCFDI = -1
+            CveFormaPago = -1
+            CveMetodoPago = -1
         End Sub
         Public Sub New()
             MyBase.New()
@@ -8486,6 +8499,9 @@ Namespace Modelos
         Public Property CveRegimenFiscal As Integer
         Public Property CodigoRegimenFiscal As String
         Public Property RegimenFiscal As String
+        Public Property CveUsoCFDI As Integer
+        Public Property CveFormaPago As Integer
+        Public Property CveMetodoPago As Integer
         Public Property Telefono As String
         Public Property Contacto As String
         Public Property Mail As String
@@ -8514,7 +8530,6 @@ Namespace Modelos
         Public Property FormaFacturacion As String
         Public Property LimiteCredito As Decimal
         Public Property NumCtaPago As String
-        Public Property CveMetodoPago As Integer
         Public Property AplicaFEMSA As Boolean
         Public Property FEMSA_NumSociedad As String
         Public Property FEMSA_NumProveedor As String