+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c5318d7f2..133132566 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -2909,6 +2909,19 @@ Partial Class Ventas
'UNA VEZ CARGADA LAS CONDICIONES DE PAGO INICIALMENTE, NO VUELVE A SOBREESCRIBIR EL VALOR
CveFormaPago33Cliente = -1
+
+ If UsuarioActual.CveEmpresa.Contiene(141, 152, 159, 160, 161, 162, 163) Then
+ trRotacion.Visible = True
+ trRotacionlbl.Visible = True
+ trAlineacion.Visible = True
+ trAlineacionlbl.Visible = True
+
+ Dim FechaRotaAlinea As Date = TxtFecha.Text.ToDate
+ LblRotacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString
+ LblAlineacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString
+
+ UPObservaciones.Update()
+ End If
End Sub
Private Sub BloqueaClasificaciones()
If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then