Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Ventas/Ventas.aspx.vb

@@ -2452,7 +2452,7 @@ Partial Class Ventas
             CargaFletes()
 
             If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-                DdlProyecto.Visible = False
+                'DdlProyecto.Visible = False
                 BrSubProyecto.Visible = False
                 DdlProyectoPyME.Visible = False
                 LblProyectoHeader.Text = "Sucursal"
@@ -2476,7 +2476,7 @@ Partial Class Ventas
                 dttSub.Dispose()
 
             ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-                DdlProyecto.Visible = False
+                'DdlProyecto.Visible = False
                 BrSubProyecto.Visible = False
                 DdlProyectoPyME.Visible = False
                 LblProyectoHeader.Text = "Proyecto"
@@ -2509,6 +2509,8 @@ Partial Class Ventas
 
             End If
 
+            CargarCentrosDeCosto(Nothing, Nothing, LblProyectoHeader, LblSubProyecto)
+
             'MOSTRAR LA OPCION DE AGREGAR PS EN BDH
             If UsuarioActual.CveEmpresa = 140 AndAlso CveVenta <= 0 Then
                 ImgOtrosConceptos.Visible = False
@@ -10044,7 +10046,17 @@ Partial Class Ventas
                                 CveCuentaCliente = CveCuenta
                             End If
 
+                        Case 7 'descuentos
+                            If LblDescuentos.Text.ToDecimal > 0 Then
 
+                                importeMovimiento = (ObjFactura.Descuento) * ValorMultiplicador
+                                importeMX = importeMovimiento * tipoCambio * Multiplicador
+                                FechaMovimiento = ObjFactura.FechaPago
+                                CveSubProyectoContabilizar = CveSubProyectoVenta
+                                IdCtaContable = 0
+                                If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+
+                            End If
                         Case 3 'Cliente
 
                             If ObjFactura.TipoDocto = "Ant" Then