Compras.aspx.vb Se agrega asignacion de subProyecto

Compras/Compras.aspx.vb

@@ -4204,6 +4204,13 @@ Partial Class Compras_Compras
 
         '------------------ INICIA VALIDACIONES ------------------
 
+        Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
+
+        If Not CveSubProyectoPrincipal > 0 Then
+            Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
+        End If
+
+
         If Not ValidaVinculacionNotaFactura() Then
             Alert("Se requiere que la nota este aplciada a las facturas", TipoMensaje.MsgAdvertencia)
             Exit Sub
@@ -4921,7 +4928,8 @@ Partial Class Compras_Compras
                               TxtRedondeo.Text.ToDouble, TxtTotal.Text.ToDouble, TxtFecha.Text.Trim.ToDate, DdlMoneda.SelectedValue.ToEntero, TipoCambio, TxtFechaPago.Text.Trim.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
                                                     CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero,
                                                     AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen,
-                                                    CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto, EsImportacion:=EsImportacion, CveFactura:=CveFactura) Then
+                                                    CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto,
+                                                    EsImportacion:=EsImportacion, CveFactura:=CveFactura, CveSubProyecto:=CveSubProyectoPrincipal) Then
 
                                 ViewState("CveCompra") = ObjCompras.CveCompra
                                 If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
@@ -6015,7 +6023,7 @@ Partial Class Compras_Compras
 
                                                 For Each Row As DataRow In DTPlatilla.Rows
 
-                                                    Dim CveSubProyectoInsertar As Integer = -1
+                                                    Dim CveSubProyectoInsertar As Integer = CveSubProyectoPrincipal
                                                     Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
 
                                                     Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
@@ -6227,7 +6235,7 @@ Partial Class Compras_Compras
 
                                                         Case 25 'IEPS X Acreditar
                                                             If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
-                                                                CveSubProyectoInsertar = CveSubProyecto
+                                                                'CveSubProyectoInsertar = CveSubProyecto
                                                                 importeMovimiento = CompraActual.IEPS
                                                                 importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
                                                                 If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"
@@ -6323,7 +6331,7 @@ Partial Class Compras_Compras
 
                                                         Case 64 'Ganancia
 
-                                                            CveSubProyectoInsertar = CveSubProyecto
+                                                            'CveSubProyectoInsertar = CveSubProyecto
                                                             If CveSubProyectoInsertar <= 0 Then
                                                                 ErrorPrepoliza = True
                                                                 Alert("Concepto ganancia cambiaria sin sub proyecto", TipoMensaje.MsgAdvertencia)
@@ -8228,6 +8236,39 @@ Partial Class Compras_Compras
         End If
     End Sub
 
+    Private Function AsignarSubProyectoPrincipal() As Integer
+
+        Dim CveSubProyectoPrincioal As Integer = -1
+
+        Dim DTSubProyectoPrincipal As New DataTable
+
+        DTSubProyectoPrincipal.Columns.Add("CveSubProyecto", GetType(Integer))
+        DTSubProyectoPrincipal.Columns.Add("Total", GetType(Decimal))
+
+
+        For Each dRow As DataRow In TmpDT.FiltraParametros("", "", {"CveSubProyecto"}).Rows
+
+            Dim CveSubProyectoActual As Integer = dRow("CveSubProyecto").ToString.ToEntero
+
+            If CveSubProyectoActual > 0 Then
+
+                Dim nRow = DTSubProyectoPrincipal.NewRow
+                nRow("CveSubProyecto") = dRow("CveSubProyecto").ToString.ToEntero
+                nRow("Total") = TmpDT.SUMD("Total", $"CveSubProyecto={CveSubProyectoActual}")
+                DTSubProyectoPrincipal.Rows.Add(nRow)
+            End If
+        Next
+
+
+        If DTSubProyectoPrincipal.Rows.Count > 0 Then
+            DTSubProyectoPrincipal = DTSubProyectoPrincipal.FiltraParametros("", "Total DESC ")
+            CveSubProyectoPrincioal = DTSubProyectoPrincipal.FiltroPrimeroValor("CveSubProyecto").ToEntero
+        End If
+
+        Return CveSubProyectoPrincioal
+
+    End Function
+
     Private Function ValidaVinculacionNotaFactura() As Boolean
 
         Dim Respuesta As Boolean = False
@@ -8833,6 +8874,12 @@ Partial Class Compras_Compras
 
     Protected Sub BtnActualizar_Click(sender As Object, e As EventArgs) Handles BtnActualizar.Click
 
+        Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
+        If Not CveSubProyectoPrincipal > 0 Then
+            Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
+        End If
+
+
         If CveFactura > 0 Then
             If Not AjustaCombustibles() Then
                 Exit Sub
@@ -8915,7 +8962,7 @@ Partial Class Compras_Compras
                 If ObjCompra.UpdateCompra(TxtDescripcion.Text.Trim, TxtFolioSecundario.Text.Trim, TxtFechaPago.Text.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
                                    TxtDescuento.Text.ToDouble, TxtSubTotal.Text.ToDouble, TxtIVA.Text.ToDouble, TxtTotal.Text.ToDouble,
                                    UsuarioActual.CveUsuario, CveCompra, CveCajaChica:=DdlRembolsoCajaChica.SelectedValue.ToEntero, CvePersonal:=DdlRembolsoPersonal.SelectedValue.ToEntero, CveProveedorSucursal:=If(DdlProveedorSucursal.SelectedValue.ToEntero > 0, DdlProveedorSucursal.SelectedValue.ToEntero, -1), PorcentajeIVA:=PorcentajeIVA, NumeroReembolso:=TxtRembolsoNumero.Text,
-                                   CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, NoDeducible:=EsNoDeducible, CveRetIVAConcepto:=TmpCveRetIVAConcepto, CveRetISRConcepto:=TmpCveRetISRConcepto) Then
+                                   CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, NoDeducible:=EsNoDeducible, CveRetIVAConcepto:=TmpCveRetIVAConcepto, CveRetISRConcepto:=TmpCveRetISRConcepto, CveSubProyecto:=CveSubProyectoPrincipal) Then
 
                     If Not ComparaDatatables() Then