diff --git a/OC/OC.aspx b/OC/OC.aspx
index a5c5ecb11..e622ac180 100644
--- a/OC/OC.aspx
+++ b/OC/OC.aspx
@@ -941,7 +941,7 @@
                                             <asp:TemplateField>
                                                 <ItemTemplate>
 
-                                                    <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# String.Format("{0}<br/>{1}{2}", Eval("Proyecto"), Eval("SubProyecto"), If(Eval("CveCultivoCuadroDetalle").ToString <> "" And Eval("CveCultivoCuadroDetalle").ToString <> "0" And Eval("CveCultivoCuadroDetalle").ToString <> "-1", String.Format("<br/>{0}", Eval("Cuadro")), "")) %>'></asp:Literal>
+                                                    <asp:Literal ID="LtlSubProyecto" runat="server" Text='<%# String.Format("{0}<br/>{1}{2}", Eval("Proyecto"), Eval("SubProyecto"), If(Eval("CveCultivoCuadroDetalle").ToString <> "0" And Eval("CveCultivoCuadroDetalle").ToString <> "-1" And Eval("CveCultivoCuadroDetalle").ToString <> "", String.Format("<br/>{0}", Eval("Cuadro")), "")) %>'></asp:Literal>
                                                                                                
                                                 </ItemTemplate>
                                                 <EditItemTemplate>
@@ -1961,7 +1961,7 @@
                                             <asp:TemplateField>
                                                 <HeaderTemplate>Cantidad</HeaderTemplate>
                                                 <ItemTemplate>
-                                                    <asp:Literal ID="LtlCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:N2}") %>'></asp:Literal>
+                                                    <asp:Label ID="LtlCantidad" runat="server" Text='<%# Eval("Cantidad", "{0:N2}") %>'></asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                             <asp:TemplateField>
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 440141f5c..3b6988841 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2761,7 +2761,7 @@ Partial Class OC
                             For Each DrInv As DataRow In DtInvOC.FiltraParametros($"CveOrdenCompraDetalle = {dr("CveOrdenCompraDetalle").ToString.ToEntero} AND CveCompraDetalle < 1").Rows
                                 DrInvOCDiferencias = DtInvOCDiferencias.NewRow
                                 DrInvOCDiferencias("TipoCambioAjuste") = DrInv("TipoCambioAjuste").ToString.ToDouble
-                                DrInvOCDiferencias("Diferencia") = ((dr("Importe").ToString.ToDouble * DrInv("TipoCambioAjuste").ToString.ToDouble) - DrInv("PU").ToString.ToDouble) * DrInv("Cantidad").ToString.ToDouble
+                                DrInvOCDiferencias("Diferencia") = ((dr("Importe").ToString.ToDouble * DrInv("TipoCambioAjuste").ToString.ToDouble) - DrInv("PUOriginal").ToString.ToDouble) * DrInv("Cantidad").ToString.ToDouble
                                 DrInvOCDiferencias("CveAlmacen") = DrInv("CveAlmacen").ToString.ToEntero
                                 DrInvOCDiferencias("CveOrdenCompraDetalle") = DrInv("CveOrdenCompraDetalle").ToString.ToEntero
                                 DrInvOCDiferencias("ImporteMovto") = dr("Importe").ToString.ToDouble * DrInv("TipoCambioAjuste").ToString.ToDouble
@@ -2853,14 +2853,11 @@ Partial Class OC
                                     IdCtaContableAlmacen = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DrDiferencias("CveAlmacen").ToString.ToEntero}").ToEntero
 
                                     If DiferenciaInvOC.RoundSQL() <> 0 Then
+                                        Dim tCveSubProyecto As Integer = 0
 
                                         If CvePrePoliza > 0 Then
 
-                                            If DdlSubProyecto.SelectedValue <= 0 Then
-                                                Alert("Debe de asignar un sub proyecto o centro de costos.", TipoMensaje.MsgAdvertencia)
-                                                TieneError = True
-                                                Exit For
-                                            End If
+                                            tCveSubProyecto = DtDetalle.FiltroPrimeroValor("CveSubProyecto", "CveOrdenCompraDetalle =" & CveOCDetalle).ToEntero
 
                                             If DdlMoneda.SelectedValue.ToEntero <> 1 And UsuarioActual.CveEmpresa.Contiene(119) Then
                                                 ImporteME = (DiferenciaInvOC / TCInvOC).RoundSQL()
@@ -2877,7 +2874,7 @@ Partial Class OC
                                                 '    Exit For
                                                 'End If
 
-                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, 177, SerieFolio, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
+                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, 177, SerieFolio, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=tCveSubProyecto) Then
                                                     TieneError = True
                                                     Exit For
                                                 End If
@@ -2895,7 +2892,7 @@ Partial Class OC
                                                 '2018.11.24 se cambia concepto 176, de cargo a abono negativo., petición MALL
                                                 '2019.03.26 se cambia concepto 177, de abono a cargo., petición MALL
                                                 '2019.04.10 se cambia concepto 177, de cargo a abono., petición MALL
-                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), SerieFolio, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
+                                                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, -DiferenciaInvOC, SerieFolio, If(ConceptoSalida = 0, 177, 177), SerieFolio, Fecha, IdCtaContableRecepcionOCER, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=-DiferenciaInvOC, CveOCDetalle:=CveOCDetalle, CveSubProyecto:=tCveSubProyecto) Then
                                                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DiferenciaInvOC, SerieFolio, 176, SerieFolio, Fecha, IdCtaContableRecepcionOC, -1, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimientoAlmacen, CveOC:=CveOrdenCompra, ImporteMX:=DiferenciaInvOC, CveOCDetalle:=CveOCDetalle) Then
                                                         TieneError = True
                                                         Exit For
@@ -3551,8 +3548,11 @@ Partial Class OC
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             Try
-                e.Row.FCLabel("LtlCantidad").Attributes.Add("data-toggle", "tooltip")
-                e.Row.FCLabel("LtlCantidad").Attributes.Add("Title", e.Row.DataKey("CveOrdenCompraDetalle"))
+                If e.Row.FCLabel("LtlCantidad") IsNot Nothing Then
+                    e.Row.FCLabel("LtlCantidad").Attributes.Add("data-toggle", "tooltip")
+                    e.Row.FCLabel("LtlCantidad").Attributes.Add("Title", e.Row.DataKey("CveOrdenCompraDetalle"))
+                End If
+
             Catch ex As Exception
 
             End Try
@@ -3749,7 +3749,7 @@ Partial Class OC
 
 
 
-                If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
+                If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then 'empresa agricola
                     e.Row.FCDropDownList("DdlCultivosCuadroEdit").Visible = True
                     e.Row.FCDropDownList("DdlCultivosCuadroEdit").DataSource = GlobalDTCultivosCuadro(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto = {e.Row.DBCampo("CveSubProyecto").ToEntero}")
                     e.Row.FCDropDownList("DdlCultivosCuadroEdit").DataBind()
@@ -3871,7 +3871,11 @@ Partial Class OC
 
 
         CveCultivoCuadroDetalle = gvr.FCDropDownList("DdlCultivosCuadroEdit").SelectedValue.ToEntero
-        Cuadro = gvr.FCDropDownList("DdlCultivosCuadroEdit").SelectedItem.Text
+        Cuadro = ""
+        If CveCultivoCuadroDetalle > 0 Then
+            Cuadro = gvr.FCDropDownList("DdlCultivosCuadroEdit").SelectedItem.Text
+        End If
+
 
 
         If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Or UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then