Merge branch 'master' of http://192.168.10.111:8383/SIG

Ventas/Ventas.aspx.vb

@@ -12072,6 +12072,10 @@ Partial Class Ventas
         ObjFacturaBonificacion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
         ObjFacturaBonificacion.Cliente.RegimenFiscal = ClienteRegimenFiscal
 
+        'CLIENTE
+        ObjFacturaBonificacion.CveCliente = CveCliente
+        ObjFacturaBonificacion.SetCliente()
+
         ObjFacturaBonificacion.CveMetodoPago = 1
         ObjFacturaBonificacion.MetodoPago = "Pago en una sola exhibición"
         ObjFacturaBonificacion.ClaveMetodoPagoSAT = "PUE"
@@ -12217,10 +12221,6 @@ Partial Class Ventas
 
         ObjFacturaBonificacion.DtFirmas = DTmpF
 
-        'CLIENTE
-        ObjFacturaBonificacion.CveCliente = CveCliente
-        ObjFacturaBonificacion.SetCliente()
-
         ''SUCURSAL
         'ObjFacturaBonificacion.CveSucursal = DdlSucursal.SelectedValue.ToEntero()
         'ObjFacturaBonificacion.SetSucursalMatriz(Me)
@@ -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)
@@ -40681,14 +40681,9 @@ Partial Class Ventas
 
             'GvExist.Columns(0).ItemStyle.Width = New Unit(200, UnitType.Pixel)
             'ORDENA HACIA LA DERECHA LAS CANTIDAD - OJO!! NO SE USO GV.COLUMNS.COUNT PORQUE LAS COLUMNAS GENERADAS EN BEHIND NO LAS RECONOCE
-            For index As Integer = 0 To DtExistencias.Columns.Count - 1
+            For index As Integer = 1 To DtExistencias.Columns.Count - 1
                 For Each gvr As GridViewRow In GvExist.Rows
-                    If index = 0 Then
-                        gvr.Cells(index).CssClass = "titulops"
-                    Else
-                        gvr.Cells(index).HorizontalAlign = HorizontalAlign.Right
-                    End If
-
+                    gvr.Cells(index).HorizontalAlign = HorizontalAlign.Right
                 Next
             Next
         End If
@@ -40696,5 +40691,12 @@ Partial Class Ventas
         RegistraScript("$('#DivModalExistenciaTotal').modal('show');")
         UPExist.Update()
     End Sub
+
+    Protected Sub GvExist_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvExist.RowDataBound
+        If e.Row.RowType = DataControlRowType.Header OrElse e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.Cells(0).Attributes.Add("colspan", "3")
+        End If
+    End Sub
+
 End Class