diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index be2e48980..c7021722e 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -897,16 +897,17 @@
                                                         </asp:TemplateField>
                                                         <asp:TemplateField>
                                                             <HeaderTemplate>Total</HeaderTemplate>
-                                                            <ItemTemplate>
+                                                            <ItemTemplate >
                                                                 <asp:Literal ID="LtlTotal" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Literal>
                                                             </ItemTemplate>
-                                                            <ItemStyle Width="80px"></ItemStyle>
+                                                            <ItemStyle Width="80px" HorizontalAlign="Right"></ItemStyle>
                                                         </asp:TemplateField>
                                                         <asp:TemplateField>
                                                             <HeaderTemplate>Anticipo/NC</HeaderTemplate>
                                                             <ItemTemplate>
                                                                 <asp:Literal ID="LtlAnticipos" runat="server" Text='<%# Eval("Importe", "{0:N2}") %>'></asp:Literal>&nbsp;                                                           
                                                             </ItemTemplate>
+                                                             <ItemStyle Width="80px" HorizontalAlign="Right"></ItemStyle>
                                                         </asp:TemplateField>
                                                         <asp:TemplateField>
                                                             <HeaderTemplate>Mon</HeaderTemplate>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index aa2a73f8c..1521a8aa1 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -3052,7 +3052,7 @@ Partial Class Compras_Compras
                     End If
                     If ObjCompra.GetComprasNotasCredito(-1, CveCompra) Then
                         dtnc = ObjCompra.DtResultados
-                        GvAnticiposSel.Caption = "<table width='100%'><tr><td style='text-align:center'>Compras Aplicadas</td></tr></table>"
+                        LtlGvAnticiposSel.Text = "<table width='100%'><tr><td style='text-align:center'>Compras Aplicadas</td></tr></table>"
                     End If
                 End If
 
@@ -6633,7 +6633,12 @@ Partial Class Compras_Compras
                                                                                 End If
 
                                                                                 IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionCostoOC}").ToString.ToEntero
-                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69) Then
+                                                                                Dim tTipoMovto As Boolean = True
+                                                                                If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then ' empresa llantera
+                                                                                    tTipoMovto = False
+                                                                                    SumatoriaOCINV = -SumatoriaOCINV
+                                                                                End If
+                                                                                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, tTipoMovto, SumatoriaOCINV, Referencia, 69, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveClasificacion:=CveClasificacionCostoOC, ImporteMX:=SumatoriaOCINV, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto69) Then
                                                                                     ErrorPrepoliza = True
                                                                                     Exit For
                                                                                 End If