diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 8ff5dbd78..43b15033c 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -4485,15 +4485,7 @@
 
                                                     <label for="<%= TxtDescuentoModal.ClientID.ToString()%>">Descuento:</label>
                                                 </div>
-                                            </div>
-                                            <div class="col-md-4">
-                                                <div class="form-group form-md-line-input input-iconright">
-                                                    <asp:TextBox ID="TxtOtrosGastos" ClientIDMode="Static" runat="server" CssClass=" form-control  " Text="0" CausesValidation="true" MaxLength="12" ValidationGroup="GprAgregaPS"></asp:TextBox>
-                                                    <ajax:FilteredTextBoxExtender ID="FTEOtrosGastos" runat="server" TargetControlID="TxtOtrosGastos" FilterType="Custom, Numbers" ValidChars="." />
-
-                                                    <label for="<%= TxtOtrosGastos.ClientID.ToString()%>">Gastos:</label>
-                                                </div>
-                                            </div>
+                                            </div>                                             
                                         </div>
                                         <br />
                                         <asp:UpdatePanel ID="UpIVA" runat="server" UpdateMode="Conditional">
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index dc0f5f61a..1df16acb0 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -10561,7 +10561,7 @@ Partial Class Compras_Compras
         TxtPrecio.Attributes.Add("onKeyUp ", "Recalcula();")
         TxtCantidad.Attributes.Add("onKeyUp ", "Recalcula();")
         TxtDescuentoModal.Attributes.Add("onKeyUp ", "Recalcula();")
-        TxtOtrosGastos.Attributes.Add("onKeyUp ", "Recalcula();")
+
         'ImgAmort.Attributes.Add("onclick", "javascript:$('#DivDescP').show(1000); PosicionaObjeto(this.id,'DivDescP');") ' $get('LblTitulo1').style.display = 'none'; $get('LblTituloTipo1').style.display = 'none'; $get('LblTituloTipo2').style.display = ''; $get('LblPrecio1').style.display = 'none'; $get('LblTotalPS1').style.display = 'none'; $get('LblSubTotal1').style.display = 'none'; $get('LblAmort').style.display = ''; $get('BtnAplicarDescP').style.display = 'none'; $get('BtnAplicarDescG').style.display = ''; $get('TrMotivoDescuento').style.display = 'none';")
 
         'If um.GetUnidadesMedida() Then
@@ -16569,7 +16569,6 @@ Partial Class Compras_Compras
         TxtRetISRModal.Text = ""
         TxtIEPSModal.Text = ""
         TxtDescuentoModal.Text = ""
-        TxtOtrosGastos.Text = ""
 
         DivAddProductoAliasPS.Visible = False
 
@@ -16694,7 +16693,6 @@ Partial Class Compras_Compras
 
         TxtPrecio.Text = GvRow.DataKey("PU").FormatoNumero(6)
         TxtDescuentoModal.Text = GvRow.DataKey("Descuento").FormatoNumero(6)
-        TxtOtrosGastos.Text = GvRow.DataKey("OtrosGastos").FormatoNumero
         LblTotalPS.Text = GvRow.DataKey("Total").FormatoNumero
 
         'FUNCIONALIDAD DE SEGUIR AGREGANDO (NO CERRAR MODAL)
@@ -16988,7 +16986,7 @@ Partial Class Compras_Compras
         End Select
 
 
-        Dim Total As Decimal = (TxtCantidad.Text.ToDecimal * TxtPrecio.Text.ToDecimal) - TxtDescuentoModal.Text.ToDecimal + TxtOtrosGastos.Text.ToDecimal
+        Dim Total As Decimal = (TxtCantidad.Text.ToDecimal * TxtPrecio.Text.ToDecimal) - TxtDescuentoModal.Text.ToDecimal
 
         If UsuarioActual.Empresa.Funcionalidad(532) = "1" Then
             Dim ObjCon As New ClsContratos
@@ -17115,7 +17113,7 @@ Partial Class Compras_Compras
                 End If
                 AddPS(TxtCantidad.Text.Trim.ToDecimal, ddlUM.SelectedValue.ToEntero, ddlUM.SelectedItem.Text, DdlClasificacion.SelectedValue.ToEntero, DdlClasificacion.SelectedItem.Text, DdlPS.SelectedValue.ToEntero, DdlPS.SelectedText, HdnTipoPS.Value.ToEntero,
                                   DdlSubProyecto.SelectedValue.ToString, DdlSubProyecto.SelectedItem.Text, DdlProyecto.SelectedItem.Text, DdlProyecto.SelectedValue.ToString, TxtObsPS.Text.Trim, TxtPrecio.Text.Trim.ToDecimal, Total, IVA,
-                                  TxtRetIVAModal.Text.ToDecimal / 100, TxtRetISRModal.Text.ToDecimal / 100, TxtIEPSModal.Text.ToDecimal / 100, 0, TxtDescuentoModal.Text.ToDecimal, OtrosGastos:=TxtOtrosGastos.Text.ToDecimal, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
+                                  TxtRetIVAModal.Text.ToDecimal / 100, TxtRetISRModal.Text.ToDecimal / 100, TxtIEPSModal.Text.ToDecimal / 100, 0, TxtDescuentoModal.Text.ToDecimal, OtrosGastos:=0, CveTipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, TipoGasto:=DdlTipoGasto.SelectedItem.Text,
                                   NoDeducible:=ChkEsNoDeduciblePS.Checked, CveSATPS:=SATClavePS, CveContratoDetalle:=CveContratoDetalle,
                                   CveCultivoCuadroDetalle:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedValue.ToEntero, -1), TemporadaCuadro:=If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedItem.Text, ""))
 
@@ -17426,8 +17424,7 @@ Partial Class Compras_Compras
         Dim Cantidad = DrPS("Cantidad").ToString.ToDouble
         Dim PU = DrPS("PU").ToString.ToDouble
         Dim Descuento = DrPS("Descuento").ToString.ToDouble
-        Dim OtrosGastos = DrPS("OtrosGastos").ToString.ToDouble
-        Dim Total = (Cantidad * PU) - Descuento + OtrosGastos
+        Dim Total = (Cantidad * PU) - Descuento
         DrPS("NoDeducible") = ChkEsNoDeduciblePS.Checked
 
         Dim ActualizarIva As Boolean = False
@@ -17435,25 +17432,20 @@ Partial Class Compras_Compras
             ActualizarIva = True
         End If
 
-
-        If Cantidad <> TxtCantidad.Text.Trim.ToDouble OrElse PU <> TxtPrecio.Text.Trim.ToDouble OrElse Descuento <> TxtDescuentoModal.Text.ToDouble OrElse OtrosGastos <> TxtOtrosGastos.Text.ToDouble Then
+        If Cantidad <> TxtCantidad.Text.Trim.ToDouble OrElse PU <> TxtPrecio.Text.Trim.ToDouble OrElse Descuento <> TxtDescuentoModal.Text.ToDouble Then
             Cantidad = TxtCantidad.Text.Trim.ToDouble
             PU = TxtPrecio.Text.Trim.ToDouble
             Descuento = TxtDescuentoModal.Text.ToDouble
-            OtrosGastos = TxtOtrosGastos.Text.ToDouble
-            Total = (Cantidad * PU) - Descuento + OtrosGastos
+            Total = (Cantidad * PU) - Descuento
             DrPS("Cantidad") = Cantidad
             DrPS("PU") = PU
             DrPS("Descuento") = Descuento
-            DrPS("OtrosGastos") = OtrosGastos
+            DrPS("OtrosGastos") = 0
             DrPS("Total") = Total
             AplicaCalculaTotales = True
 
         End If
 
-
-
-
         'PS - CLASIFICACION
         If DdlPS.SelectedValue.ToEntero > 0 Then
 
@@ -17532,10 +17524,6 @@ Partial Class Compras_Compras
         DrPS("CveCultivoCuadroDetalle") = If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedValue.ToEntero, -1)
         DrPS("TemporadaCuadro") = If(DdlCultivosCuadro.SelectedValue.ToEntero > 0, DdlCultivosCuadro.SelectedItem.Text, "")
 
-
-
-
-
         'Esta parte es para validar  cuando la factura tenga ieps en  o se asignara el ieps como una partida  ya no se  considere
         If (CveFactura > 0 Or CveCompra > 0) And TxtIEPS.Text.ToDecimal = 0 Then
             DrPS("IEPSPS") = 0