Soposrte autocontabilidad ajustes de inventario en OC y Compras

Cambio de pocision div de tipo para econollantas

Ventas/ProductosServicios.aspx.vb

@@ -216,7 +216,7 @@ Partial Class ProductosyServicios
                 'DivDatos.Attributes("class") = "col-md-12"
 
                 DivDdlTipo.Visible = True
-                DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();")
+                'DdlTipoPSDes.Attributes.Add("onChange", "CreaDescripcionPS();")
 
             End If
 
@@ -235,16 +235,11 @@ Partial Class ProductosyServicios
             If ddlMetodos.SelectedValue.ToEntero = 5 And Not UsuarioActual.TienePermisoProceso(255) Then
                 ddlMetodos.Enabled = False
             End If
+            Dim posiciontipo As String = If(UsuarioActual.Empresa.Funcionalidad(558).ToString = "1", "$('.DIVCLASIFICACIONCONTABLE').after( $('.DIVTIPO') );", "")
 
+            LtlScripts.Text = $"<script>function setPoscicion(){{{posiciontipo}}}</script>"
             If Not CvePS > 0 Then MuestraPanel(True)
 
-
-
-
-
-
-
-
         End If
     End Sub