Cultivos OC y vinculacion en compras

Compras/Compras.aspx.vb

@@ -2680,6 +2680,7 @@ Partial Class Compras_Compras
                     TmpDT.Columns.Add("CveContrato", GetType(Integer))
                     TmpDT.Columns.Add("DifPSSat", GetType(Integer))
                     TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
+                    TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer))
 
 
                     GvPS.DataSource = TmpDT
@@ -5056,7 +5057,7 @@ Partial Class Compras_Compras
                                                                             RetIVA:=Row("RetIVA").ToString.ToDouble, RetISR:=Row("RetISR").ToString.ToDouble, IEPSPS:=Row("IEPSPS").ToString.ToDouble, IEPSPSIVA:=Row("IEPSPSIVA").ToString.ToDouble,
                                                                             IVAPorcentaje:=Row("IVAPorcentaje").ToString.ToDouble, RetIVAPorcentaje:=Row("RetIVAPorcentaje").ToString.ToDouble, RetISRPorcentaje:=Row("RetISRPorcentaje").ToString.ToDouble,
                                                                             IEPSPSPorcentaje:=Row("IEPSPSPorcentaje").ToString.ToDouble, IEPSPSIVAPorcentaje:=Row("IEPSPSIVAPorcentaje").ToString.ToDouble, NoDeducible:=If((Row("NoDeducible").ToString().ToUpper().Contiene("TRUE", "1")) AndAlso EsNoDeducible, True, False),
-                                                                            CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero) Then
+                                                                            CveContratoDetalle:=Row("CveContratoDetalle").ToString.ToEntero, CveCultivoCuadroDetalle:=Row("CveCultivoCuadroDetalle").ToString.ToEntero) Then
 
                                             ErrorDetalles = True
                                             Exit For
@@ -11264,6 +11265,7 @@ Partial Class Compras_Compras
         TmpDT.Columns.Add("DifPSSat", GetType(Integer))
 
         TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
+        TmpDT.Columns.Add("CveCultivoCuadroDetalle", GetType(Integer))
 
         TmpDTOriginal = New DataTable
         TmpDTOriginal.Columns.Add("Consec", GetType(Integer))
@@ -11371,6 +11373,7 @@ Partial Class Compras_Compras
 
         TmpDTOriginal.Columns.Add("Importe", GetType(Double))
         TmpDTOriginal.Columns.Add("CveContratoDetalle", GetType(Double))
+        TmpDTOriginal.Columns.Add("CveCultivoCuadroDetalle", GetType(Double))
 
 
     End Sub
@@ -15653,6 +15656,7 @@ Partial Class Compras_Compras
                 Dim CveTipoGasto As Integer = dr("CveTipoGastoObra").ToString.ToEntero
                 Dim TipoGasto As String = dr("TipoGasto").ToString
                 Dim CveContratoDetalle As Integer = dr("CveContratoDetalle").ToString.ToEntero
+                Dim CveCultivoCuadroDetalle As Integer = dr("CveCultivoCuadroDetalle").ToString.ToEntero
 
                 '[IPP] PROVISIONAL PARA TIPO GASTO
                 If GlobalDTTiposGastos(UsuarioActual.CveEmpresa) IsNot Nothing AndAlso GlobalDTTiposGastos(UsuarioActual.CveEmpresa).Rows.Count = 1 Then
@@ -15664,7 +15668,7 @@ Partial Class Compras_Compras
                 End If
 
                 AddPS(Cantidad, CveUM, UM, CveClasificacion, Clasificacion, CvePS, PS, CveTipoPS, CveSubProyectoContrato, SubProyecto, Proyecto, CveProyecto, Obs, PU, Total, IVA, RetIVA, RetISR, IEPSPS, IEPSPSIVA, Descuento, CveOrdenCompraDetalle, False,
-                      CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CveSATPS:=CveSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto, CveContratoDetalle:=CveContratoDetalle)
+                      CantidadF:=CantidadF, EntregaDirecta:=EntregaDirecta, CveSATPS:=CveSATPS, CveTipoGasto:=CveTipoGasto, TipoGasto:=TipoGasto, CveContratoDetalle:=CveContratoDetalle, CveCultivoCuadroDetalle:=CveCultivoCuadroDetalle)
 
                 'CARGA PE
                 Index = TmpDT.Rows.Count - 1
@@ -17903,7 +17907,7 @@ Partial Class Compras_Compras
                       Obs As String, PU As Double, Total As Double, IVA As Double, RetIVA As Double, RetISR As Double, IEPSPS As Double, IEPSPSIVA As Double, Descuento As Double, Optional CveOrdenCompraDetalle As Integer = -1, Optional TCalculaTotales As Boolean = True,
                       Optional PSCodigo As String = "-", Optional PSDescripcion As String = "-", Optional CantidadF As Double = -1, Optional EntregaDirecta As Integer = -1, Optional OtrosGastos As Double = 0,
                       Optional CveSATPS As Integer = -1, Optional CargaXml As Boolean = False, Optional CveTipoGasto As Integer = -1, Optional TipoGasto As String = "", Optional PorcentajeIVA As Double = 0,
-                      Optional PorcentajeIEPS As Double = 0, Optional PorcentajeRetIVA As Double = 0, Optional PorcentajeRetISR As Double = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1) As Integer
+                      Optional PorcentajeIEPS As Double = 0, Optional PorcentajeRetIVA As Double = 0, Optional PorcentajeRetISR As Double = 0, Optional NoDeducible As Boolean = False, Optional CveContratoDetalle As Integer = -1, Optional CveCultivoCuadroDetalle As Integer = -1) As Integer
 
         Dim Row As DataRow = Nothing
 
@@ -18026,6 +18030,8 @@ Partial Class Compras_Compras
 
         Row("CveContratoDetalle") = CveContratoDetalle
 
+        Row("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle
+
         If UsuarioActual.Empresa.UsaAC Then
             Row("CveProgramaOperativo") = DdlACGeneral1.SelectedValue.ToEntero
             Row("CveUnidadAdministrativa") = DdlACGeneral2.SelectedValue.ToEntero