Cat Clientes, Columna permite crédito, Guardar Personalización

Inventarios/EntregaAlmacen.aspx.vb

@@ -717,6 +717,11 @@ Partial Class Inventarios_EntregaAlmacen
                     LbObservacionesAlmacen.Text = drE("ObservacionesAlmacen").ToString()
                     CveVentaSurtir = CveVenta
                     CveOSSurtir = CveOS
+
+                    If TipoDocto = "Ped" And CveOSSurtir <= 0 Then
+                        CveOSSurtir = drE("CveOS").ToString().ToEntero
+                    End If
+
                     CveTipoVenta = drE("CveTipoVenta").ToString().ToEntero
                     CveAlmacenTraspasoDestino = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoOrigen", "CveAlmacenTraspasoDestino")).ToString().ToEntero()
                     CveAlmacenTraspasoOrigen = drE(If(EsDevolucionVenta = 1 And TipoDocto <> "Rem" And TipoDocto <> "Ped", "CveAlmacenTraspasoDestino", "CveAlmacenTraspasoOrigen")).ToString().ToEntero()
@@ -1063,6 +1068,7 @@ Partial Class Inventarios_EntregaAlmacen
                 If CargaBitacora Then
                     CargaBitacoraSerie()
                 End If
+            Else
 
             End If
         End If

Ventas/CatClientes.aspx

@@ -374,6 +374,11 @@
                 </div>
 
 
+          
+            
+
+           <asp:UpdatePanel ID="UPPersonalizar" runat="server" UpdateMode="Conditional">
+               <ContentTemplate>
                    <div id="DivPersonalizar" class="modal fade" role="dialog">
                        <div class="modal-dialog">
 
@@ -467,24 +472,38 @@
                                                <td style="text-align: left">
                                                    <asp:CheckBox ID="chkFechaLimiteCredito" runat="server" Checked="true" Text="Fecha Limite Crédito" /></td>
 
-                                            <td style="text-align: left">
+                                               <td style="text-align: left"></td>
-                                            </td>
+                                               <td style="text-align: left"></td>
-                                            <td style="text-align: left">
-                                            </td>
                                            </tr>
                                        </thead>
                                    </table>
 
                                </div>
                                <div class="modal-footer">
+
+                                   <div class="row">
+                                       <div class="col-md-6" style="text-align: left">
+                                           <asp:CheckBox ID="ChkGuardarPersonalizacion" runat="server" Text=" Guarda Personalización" TextAlign="Right" />
+                                       </div>
+                                       <div class="col-md-6">
+                                           <%--<button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>
+                           <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>--%>
                                            <asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-success" />
                                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
                                        </div>
                                    </div>
 
+
                                </div>
                            </div>
 
+                       </div>
+                   </div>
+               </ContentTemplate>
+           </asp:UpdatePanel>
+
+               
+
                 <div id="DivUnificarCliente" class="modal ADS fade" role="dialog">
                     <div class="modal-dialog">
                         <asp:UpdatePanel ID="UpUnificar" class="modal-content rowpadding" tabindex="-1" runat="server" UpdateMode="Conditional">

Ventas/CatClientes.aspx.vb

@@ -41,6 +41,10 @@ Partial Class CatClientes
 
 
             Me.Form.DefaultButton = LbFiltrar.UniqueID
+
+
+            CargaPersonalizacion()
+
         End If
     End Sub
 
@@ -127,49 +131,7 @@ Partial Class CatClientes
     End Sub
 
 
-    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
 
-        GvDatos.Columns(0).Visible = ChkCodigo.Checked
-        GvDatos.Columns(1).Visible = ChkNombre.Checked
-        GvDatos.Columns(2).Visible = ChkRFC.Checked
-        GvDatos.Columns(3).Visible = ChkSucursal.Checked
-        GvDatos.Columns(4).Visible = ChkTelefono.Checked
-        GvDatos.Columns(5).Visible = ChkVendedor.Checked
-
-        GvDatos.Columns(6).Visible = ChkEstadoSis.Checked
-        GvDatos.Columns(7).Visible = ChkFechaIng.Checked
-        GvDatos.Columns(8).Visible = ChkUsuario.Checked
-        GvDatos.Columns(9).Visible = ChkNombreCorto.Checked
-        ' GvDatos.Columns(10).Visible = ChkVendedor.Checked
-        GvDatos.Columns(10).Visible = ChkNoExt.Checked
-        GvDatos.Columns(11).Visible = ChkNoInt.Checked
-        GvDatos.Columns(12).Visible = ChkColonia.Checked
-        GvDatos.Columns(13).Visible = ChkCiudad.Checked
-        GvDatos.Columns(14).Visible = ChkEstado.Checked
-        GvDatos.Columns(15).Visible = ChkPais.Checked
-        GvDatos.Columns(16).Visible = ChkCP.Checked
-        GvDatos.Columns(17).Visible = ChkContacto.Checked
-        GvDatos.Columns(18).Visible = ChkMail.Checked
-        GvDatos.Columns(19).Visible = ChkRecepcionFacturas.Checked
-        GvDatos.Columns(20).Visible = ChkRetIVA.Checked
-        GvDatos.Columns(21).Visible = ChkRetISR.Checked
-        GvDatos.Columns(22).Visible = ChkPlazoCobranza.Checked
-        GvDatos.Columns(23).Visible = ChkLimiteCredito.Checked
-        'GvDatos.Columns(24).Visible = ChkCIE.Checked
-        GvDatos.Columns(24).Visible = ChkCalle.Checked
-        GvDatos.Columns(25).Visible = ChkCelular.Checked
-        GvDatos.Columns(26).Visible = ChkCorreoCotizacion.Checked
-        GvDatos.Columns(27).Visible = ChkOtroTelefono.Checked
-        GvDatos.Columns(28).Visible = ChkPermiteCredito.Checked
-        GvDatos.Columns(29).Visible = chkFechaLimiteCredito.Checked
-
-
-
-
-
-        CargaDatos()
-        UPDatos.Update()
-    End Sub
 
 
     Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
@@ -306,7 +268,359 @@ Partial Class CatClientes
 
 
 
+#Region "P E R S O N A L I Z A R"
 
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+
+        If ChkGuardarPersonalizacion.Checked Then
+            GuardaPersonalizacion()
+        End If
+
+        Personaliza()
+
+
+    End Sub
+
+
+    Private Sub GuardaPersonalizacion()
+        Dim objUsuario As New ClsSisUsuarios
+        Dim ListPersonalizada As New List(Of String)
+
+        If ChkCodigo.Checked Then
+            ListPersonalizada.Add("Codigo")
+        End If
+
+        If ChkNombre.Checked Then
+            ListPersonalizada.Add("Nombre")
+        End If
+
+        If ChkRFC.Checked Then
+            ListPersonalizada.Add("RFC")
+        End If
+
+        If ChkSucursal.Checked Then
+            ListPersonalizada.Add("Sucursal")
+        End If
+
+        If ChkTelefono.Checked Then
+            ListPersonalizada.Add("Telefono")
+        End If
+
+        If ChkVendedor.Checked Then
+            ListPersonalizada.Add("Vendedor")
+        End If
+
+        If ChkEstadoSis.Checked Then
+            ListPersonalizada.Add("EstadoSis")
+        End If
+
+        If ChkFechaIng.Checked Then
+            ListPersonalizada.Add("FechaIng")
+        End If
+
+        If ChkUsuario.Checked Then
+            ListPersonalizada.Add("Usuario")
+        End If
+
+        If ChkNombreCorto.Checked Then
+            ListPersonalizada.Add("NombreCorto")
+        End If
+
+        If ChkNoExt.Checked Then
+            ListPersonalizada.Add("NoExt")
+        End If
+
+        If ChkNoInt.Checked Then
+            ListPersonalizada.Add("NoInt")
+        End If
+
+        If ChkColonia.Checked Then
+            ListPersonalizada.Add("Colonia")
+        End If
+
+        If ChkCiudad.Checked Then
+            ListPersonalizada.Add("Ciudad")
+        End If
+
+        If ChkEstado.Checked Then
+            ListPersonalizada.Add("Estado")
+        End If
+
+        If ChkPais.Checked Then
+            ListPersonalizada.Add("Pais")
+        End If
+
+        If ChkCP.Checked Then
+            ListPersonalizada.Add("CP")
+        End If
+
+        If ChkContacto.Checked Then
+            ListPersonalizada.Add("Contacto")
+        End If
+
+        If ChkMail.Checked Then
+            ListPersonalizada.Add("Mail")
+        End If
+
+        If ChkRecepcionFacturas.Checked Then
+            ListPersonalizada.Add("RecepcionFacturas")
+        End If
+
+        If ChkRetIVA.Checked Then
+            ListPersonalizada.Add("RetIVA")
+        End If
+
+        If ChkRetISR.Checked Then
+            ListPersonalizada.Add("RetISR")
+        End If
+
+        If ChkPlazoCobranza.Checked Then
+            ListPersonalizada.Add("PlazoCobranza")
+        End If
+
+        If ChkLimiteCredito.Checked Then
+            ListPersonalizada.Add("LimiteCredito")
+        End If
+
+        'If ChkCIE.Checked Then
+        '    ListPersonalizada.Add("CIE")
+        'End If
+
+        If ChkCalle.Checked Then
+            ListPersonalizada.Add("Calle")
+        End If
+
+        If ChkCelular.Checked Then
+            ListPersonalizada.Add("Celular")
+        End If
+
+        If ChkCorreoCotizacion.Checked Then
+            ListPersonalizada.Add("CorreoCotizacion")
+        End If
+
+        If ChkOtroTelefono.Checked Then
+            ListPersonalizada.Add("OtroTelefono")
+        End If
+
+        If ChkPermiteCredito.Checked Then
+            ListPersonalizada.Add("PermiteCredito")
+        End If
+
+        If chkFechaLimiteCredito.Checked Then
+            ListPersonalizada.Add("FechaLimiteCredito")
+        End If
+
+
+
+        If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "CatClientes.aspx", String.Join("|", ListPersonalizada)) Then
+            'Alert("Personalizacion guardada")
+        End If
+
+        objUsuario.Dispose()
+
+    End Sub
+
+    Private Sub CargaPersonalizacion()
+
+        Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("CatClientes.aspx")
+
+        If strBasePersonalizacion.Trim.Length > 0 Then
+
+
+            ChkCodigo.Checked = False
+            ChkNombre.Checked = False
+            ChkRFC.Checked = False
+            ChkSucursal.Checked = False
+            ChkTelefono.Checked = False
+            ChkVendedor.Checked = False
+            ChkEstadoSis.Checked = False
+            ChkFechaIng.Checked = False
+            ChkUsuario.Checked = False
+            ChkNombreCorto.Checked = False
+            ChkVendedor.Checked = False
+            ChkNoExt.Checked = False
+            ChkNoInt.Checked = False
+            ChkColonia.Checked = False
+            ChkCiudad.Checked = False
+            ChkEstado.Checked = False
+            ChkPais.Checked = False
+            ChkCP.Checked = False
+            ChkContacto.Checked = False
+            ChkMail.Checked = False
+            ChkRecepcionFacturas.Checked = False
+            ChkRetIVA.Checked = False
+            ChkRetISR.Checked = False
+            ChkPlazoCobranza.Checked = False
+            ChkLimiteCredito.Checked = False
+            ChkCalle.Checked = False
+            ChkCelular.Checked = False
+            ChkCorreoCotizacion.Checked = False
+            ChkOtroTelefono.Checked = False
+            ChkPermiteCredito.Checked = False
+            chkFechaLimiteCredito.Checked = False
+
+            Dim Personalizaciones As String() = strBasePersonalizacion.Split("|"c)
+
+            For Each personalizacion As String In Personalizaciones
+
+                Select Case personalizacion
+
+                    Case "Codigo"
+                        ChkCodigo.Checked = True
+                        Exit Select
+                    Case "Nombre"
+                        ChkNombre.Checked = True
+                        Exit Select
+                    Case "RFC"
+                        ChkRFC.Checked = True
+                        Exit Select
+                    Case "Sucursal"
+                        ChkSucursal.Checked = True
+                        Exit Select
+                    Case "Telefono"
+                        ChkTelefono.Checked = True
+                        Exit Select
+                    Case "Vendedor"
+                        ChkVendedor.Checked = True
+                        Exit Select
+                    Case "EstadoSis"
+                        ChkEstadoSis.Checked = True
+                        Exit Select
+                    Case "FechaIng"
+                        ChkFechaIng.Checked = True
+                        Exit Select
+                    Case "Usuario"
+                        ChkUsuario.Checked = True
+                        Exit Select
+                    Case "NombreCorto"
+                        ChkNombreCorto.Checked = True
+                        Exit Select
+                    Case "NoExt"
+                        ChkNoExt.Checked = True
+                        Exit Select
+                    Case "NoInt"
+                        ChkNoInt.Checked = True
+                        Exit Select
+                    Case "Colonia"
+                        ChkColonia.Checked = True
+                        Exit Select
+                    Case "Ciudad"
+                        ChkCiudad.Checked = True
+                        Exit Select
+                    Case "Estado"
+                        ChkEstado.Checked = True
+                        Exit Select
+                    Case "Pais"
+                        ChkPais.Checked = True
+                        Exit Select
+                    Case "CP"
+                        ChkCP.Checked = True
+                        Exit Select
+                    Case "Contacto"
+                        ChkContacto.Checked = True
+                        Exit Select
+                    Case "Mail"
+                        ChkMail.Checked = True
+                        Exit Select
+                    Case "RecepcionFacturas"
+                        ChkRecepcionFacturas.Checked = True
+                        Exit Select
+                    Case "RetIVA"
+                        ChkRetIVA.Checked = True
+                        Exit Select
+                    Case "RetISR"
+                        ChkRetISR.Checked = True
+                        Exit Select
+                    Case "PlazoCobranza"
+                        ChkPlazoCobranza.Checked = True
+                        Exit Select
+                    Case "LimiteCredito"
+                        ChkLimiteCredito.Checked = True
+                        Exit Select
+                    'Case "CIE"
+                    '    ChkCIE.Checked = True
+                    '    Exit Select
+                    Case "Calle"
+                        ChkCalle.Checked = True
+                        Exit Select
+                    Case "Celular"
+                        ChkCelular.Checked = True
+                        Exit Select
+                    Case "CorreoCotizacion"
+                        ChkCorreoCotizacion.Checked = True
+                        Exit Select
+                    Case "OtroTelefono"
+                        ChkOtroTelefono.Checked = True
+                        Exit Select
+                    Case "PermiteCredito"
+                        ChkPermiteCredito.Checked = True
+                        Exit Select
+                    Case "FechaLimiteCredito"
+                        chkFechaLimiteCredito.Checked = True
+                        Exit Select
+                    Case Else
+                        Exit Select
+                End Select
+
+            Next
+
+            Personaliza()
+
+        Else
+            PersonalizaDefault()
+        End If
+
+        UPPersonalizar.Update()
+
+    End Sub
+
+    Private Sub PersonalizaDefault()
+
+    End Sub
+    Private Sub Personaliza()
+
+
+        GvDatos.Columns(0).Visible = ChkCodigo.Checked
+        GvDatos.Columns(1).Visible = ChkNombre.Checked
+        GvDatos.Columns(2).Visible = ChkRFC.Checked
+        GvDatos.Columns(3).Visible = ChkSucursal.Checked
+        GvDatos.Columns(4).Visible = ChkTelefono.Checked
+        GvDatos.Columns(5).Visible = ChkVendedor.Checked
+
+        GvDatos.Columns(6).Visible = ChkEstadoSis.Checked
+        GvDatos.Columns(7).Visible = ChkFechaIng.Checked
+        GvDatos.Columns(8).Visible = ChkUsuario.Checked
+        GvDatos.Columns(9).Visible = ChkNombreCorto.Checked
+        ' GvDatos.Columns(10).Visible = ChkVendedor.Checked
+        GvDatos.Columns(10).Visible = ChkNoExt.Checked
+        GvDatos.Columns(11).Visible = ChkNoInt.Checked
+        GvDatos.Columns(12).Visible = ChkColonia.Checked
+        GvDatos.Columns(13).Visible = ChkCiudad.Checked
+        GvDatos.Columns(14).Visible = ChkEstado.Checked
+        GvDatos.Columns(15).Visible = ChkPais.Checked
+        GvDatos.Columns(16).Visible = ChkCP.Checked
+        GvDatos.Columns(17).Visible = ChkContacto.Checked
+        GvDatos.Columns(18).Visible = ChkMail.Checked
+        GvDatos.Columns(19).Visible = ChkRecepcionFacturas.Checked
+        GvDatos.Columns(20).Visible = ChkRetIVA.Checked
+        GvDatos.Columns(21).Visible = ChkRetISR.Checked
+        GvDatos.Columns(22).Visible = ChkPlazoCobranza.Checked
+        GvDatos.Columns(23).Visible = ChkLimiteCredito.Checked
+        'GvDatos.Columns(24).Visible = ChkCIE.Checked
+        GvDatos.Columns(24).Visible = ChkCalle.Checked
+        GvDatos.Columns(25).Visible = ChkCelular.Checked
+        GvDatos.Columns(26).Visible = ChkCorreoCotizacion.Checked
+        GvDatos.Columns(27).Visible = ChkOtroTelefono.Checked
+        GvDatos.Columns(28).Visible = ChkPermiteCredito.Checked
+        GvDatos.Columns(29).Visible = chkFechaLimiteCredito.Checked
+
+
+        CargaDatos()
+        UPDatos.Update()
+
+    End Sub
+
+#End Region
 
 
 End Class