--FIX asignacion de valores forma,metodo y uso cfdi

Ventas/Ventas.aspx.vb

@@ -12550,6 +12550,15 @@ Partial Class Ventas
         ObjFactura.CvePrePoliza = -1
         ObjFactura.FechaVencimiento = TxtFechaPago.Text.ToDate
 
+        'CLIENTE
+        ObjFactura.CveCliente = CveCliente
+        ObjFactura.SetCliente()
+        ObjFactura.CveEmpresaCRM = CveEmpresaCRM
+        If CveCliente = -1 And CveEmpresaCRM > 0 Then
+            ObjFactura.Cliente.Nombre = LblEmpresaCRM.Text
+            ObjFactura.Cliente.RFC = LblRFCCRM.Text
+        End If
+
         ObjFactura.CveMetodoPago = DdlMetodoPago33.SelectedValue.ToEntero()
         ObjFactura.MetodoPago = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "")
         'ObjFactura.ClaveMetodoPagoSAT = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {DdlMetodoPago33.SelectedValue}")
@@ -12996,15 +13005,6 @@ Partial Class Ventas
         ObjFactura.DtDetalle = TmpDT.Copy
         ObjFactura.DtFirmas = DTmpF.Copy
 
-        'CLIENTE
-        ObjFactura.CveCliente = CveCliente
-        ObjFactura.SetCliente()
-        ObjFactura.CveEmpresaCRM = CveEmpresaCRM
-        If CveCliente = -1 And CveEmpresaCRM > 0 Then
-            ObjFactura.Cliente.Nombre = LblEmpresaCRM.Text
-            ObjFactura.Cliente.RFC = LblRFCCRM.Text
-        End If
-
         'SUCURSAL
         'ObjFactura.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero()
         ObjFactura.SetSubProyectoMatriz(Me)
@@ -13289,6 +13289,10 @@ Partial Class Ventas
         ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
         ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
 
+        'CLIENTE
+        ObjFacturaDevolucion.CveCliente = CveCliente
+        ObjFacturaDevolucion.SetCliente()
+
         ObjFacturaDevolucion.CveMetodoPago = DdlMetodoPago33.SelectedValue.ToEntero()
         ObjFacturaDevolucion.MetodoPago = If(DdlMetodoPago33.SelectedValue.ToEntero() > 0, DdlMetodoPago33.SelectedItem.Text, "")
 
@@ -13479,10 +13483,6 @@ Partial Class Ventas
         ObjFacturaDevolucion.DtDetalle = TmpDT
         ObjFacturaDevolucion.DtFirmas = DTmpF
 
-        'CLIENTE
-        ObjFacturaDevolucion.CveCliente = CveCliente
-        ObjFacturaDevolucion.SetCliente()
-
         'SUCURSAL
         ObjFacturaDevolucion.CveSubProyecto = DdlSubProyectoDatos.SelectedValue.ToEntero()
         ObjFacturaDevolucion.SetSubProyectoMatriz(Me)
@@ -40684,7 +40684,7 @@ Partial Class Ventas
             For index As Integer = 0 To DtExistencias.Columns.Count - 1
                 For Each gvr As GridViewRow In GvExist.Rows
                     If index = 0 Then
-                        gvr.Cells(index).CssClass = "titulops"
+                        gvr.Cells(index).Attributes.Add("colspan", "3")
                     Else
                         gvr.Cells(index).HorizontalAlign = HorizontalAlign.Right
                     End If