acomodo de layout en reportes

Ventas/Ventas.aspx

@@ -5369,6 +5369,7 @@
 
                                 <div class="form-group form-md-line-input input-iconright" id="DivPSSAT" runat="server" visible="false">
                                     <ADS:Dropdownlost runat="server" ID="DdlSATPS" CssStyle="width: 100%;" CssClass="form-control input-sm select2me" DataTextField="Descripcion" DataValueField="CveSATPS" />
+                                    <%--<asp:RequiredFieldValidator ID="RfvDdlSATPS" runat="server" CssClass="help-block errorimput" ControlToValidate="DdlSATPS" InitialValue="" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto SAT''</b> es necesario, por favor ingréselo." ValidationGroup="GrpAddPS"></asp:RequiredFieldValidator>--%>
                                     <label for="<%= DdlSATPS.ClientID.ToString()%>">Producto SAT:</label>
                                 </div>
 

Ventas/Ventas.aspx.vb

@@ -1985,7 +1985,6 @@ Partial Class Ventas
 
             DdlSATPS.setEsWebService(True) : DdlSATPS.Attributes.Add("data-metodo", "getpssat")
             DivPSSAT.Visible = True
-
             SetValues()
             CvePresupuesto = 0
 
@@ -21286,6 +21285,11 @@ Partial Class Ventas
             Return
         End If
 
+        If DdlSATPS.SelectedValue = "" OrElse DdlSATPS.SelectedValue = "46920" Then
+            Alert("Producto SAT no valido", TipoMensaje.MsgAdvertencia)
+            Return
+        End If
+
         Dim CveMetodoInventario As Integer = 0
         If ChkRequiereSerie.Checked Then CveMetodoInventario = 5 Else CveMetodoInventario = 1
 
@@ -27321,4 +27325,12 @@ Partial Class Ventas
 
 #End Region
 
+    Protected Sub DdlClasificacionPS_SelectedIndex(sender As Object, e As EventArgs) Handles DdlClasificacionPS.SelectedIndexChanged
+        Dim SATPS As DataTable = GlobalDTClasificaciones(CveEmpresa:=UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionPS.SelectedValue.ToEntero)
+        Dim CveSATPS As String = SATPS.FiltroPrimeroValor("CveSATPS")
+        Dim SatPSText As String = SATPS.FiltroPrimeroValor("SATClaveProductoServicio")
+        DdlSATPS.SelectedValue = CveSATPS
+        DdlSATPS.SelectedText = SatPSText
+    End Sub
+
 End Class