--merge RegPrePolizaS

Ventas/CatImpuestosLocales.aspx

@@ -155,6 +155,7 @@
                                         <asp:ListItem Value="5" Text="Impuesto Local Traslado"></asp:ListItem>
                                         <asp:ListItem Value="3" Text="Deducciones"></asp:ListItem>
                                         <asp:ListItem Value="4" Text="Fondo de Garantía"></asp:ListItem>
+                                        <asp:ListItem Value="5" Text="Devoluciones"></asp:ListItem>
                                     </asp:DropDownList>
                                     <label for="<%= DdlCuentasContables.ClientID.ToString()%>">Tipo Impuesto:</label>
                                 </div>

Ventas/Clientes.aspx

@@ -5040,7 +5040,7 @@
                                     </div>
                                 </div>
 
-                                <div class="row ">
+                                <div class="row " runat="server" id="DVDireccionCliente1" visible="false"  >
                                     <div class="col-md-6">
 
                                          <div class="form-group form-md-line-input input-iconright">
@@ -5063,7 +5063,7 @@
 
 
                                 <div class="row ">
-                                    <div class="col-md-6">
+                                    <div class="col-md-6" runat="server" id="DVDireccionCliente2" visible="false">
                                        <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox ID="TxtEnvioColonia" runat="server" CssClass="form-control" CausesValidation="true"></asp:TextBox>
                                             <asp:RequiredFieldValidator ID="RequiredFieldValidator11" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtEnvioColonia" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Colonia''</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
@@ -5071,8 +5071,7 @@
                                         </div>
 
                                     </div>
-                                    <div class="col-md-6">                                        
-
+                                    <div class="col-md-6">
 
                                          <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox ID="TxtEnvioCP" runat="server" Width="100%" CssClass="form-control" CausesValidation="true" TextMode="Number"  onblur="DirclienteValidaCodigoPostal()" onkeypress="if(event.key === 'Enter'){return false;}"></asp:TextBox>

Ventas/Clientes.aspx.vb

@@ -911,6 +911,8 @@ Partial Class Clientes
             End If
 
             LtlTareaNueva.Text = String.Format("<a class=""caption-subject bold font-green"" onclick=""OpenModalNewTareaUserControl(1,-1,{{CveCliente:{0}}});""> <i class=""fa fa-plus""'></i> Tarea</a>", CveCliente)
+
+            MostrarTxtDireccionesClienteEnvio()
         End If
 
         'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017
@@ -921,6 +923,16 @@ Partial Class Clientes
     End Sub
 
 #Region "  PERMISOS PAGINAS  "
+
+    Private Sub MostrarTxtDireccionesClienteEnvio()
+
+        If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then
+            DVDireccionCliente1.Visible = True
+            DVDireccionCliente2.Visible = True
+        End If
+
+    End Sub
+
     Private Function PermiteGuardar() As Boolean
         Return UsuarioActual.TienePermisoProceso(192)
     End Function

Ventas/Ventas.aspx.vb

@@ -30897,7 +30897,7 @@ Partial Class Ventas
             Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray())
             If ArrayNC.Length >= 4 Then
                 Dim CvePSNC As Integer = ArrayNC(3).ToEntero()
-                DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).Rows(0)
+                DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSNC, AplicaParaVenta:=1).FiltroPrimero("")
             Else
                 Dim CveSATNC = "84111506"
                 DrPS = GlobalDTPS(UsuarioActual.CveEmpresa, SATClavePS:=CveSATNC, AplicaParaVenta:=1).Rows(0)