-- carga de uso del cliente

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