rotacion y balanceo

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