Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

App_Code/ClsClientes.vb

@@ -1552,7 +1552,7 @@ Public Class ClsClientes
 
         Return Retorno
     End Function
-    Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String) As Boolean
+    Public Function AgregarClienteNoFrecuente(Nombre As String, Direccion As String, NoExt As String, NoInt As String, Colonia As String, Localidad As String, Ciudad As String, Estado As String, Pais As String, RFC As String, CP As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveUsuario As Integer, CveEmpresa As Integer, NumCuentaPago As String, Optional CvePrecioLista As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_ClientesNoFrecuenteAdd")
 
@@ -1574,6 +1574,7 @@ Public Class ClsClientes
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@NumCuentaPago", SqlDbType.VarChar).Value = NumCuentaPago
+            .Add("@CvePrecioLista", SqlDbType.Int).Value = CvePrecioLista
 
         End With
 

OS/CatEstatusOrdenServicio.aspx.vb

@@ -106,6 +106,7 @@ Partial Class OS_CatEstatusOrdenServicio
         If HdnModalidad.Value = "I" Then
             If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 CargaDatos()
+                Alert("Estatus agregado")
             End If
         Else
             If HdnID.Value.ToEntero <> -1 Then
@@ -117,20 +118,20 @@ Partial Class OS_CatEstatusOrdenServicio
             If Not TieneError Then
                 GvDatos.EditIndex = -1
                 CargaDatos()
+                Alert("Estatus actualizado")
             Else
                 Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia)
             End If
         End If
 
         ObjEstatusOrdenServicios.Dispose()
-        'CargaDatos()
-        'AsociarEstatusUsuarios()
-        'CargarUsuarioConEstatus()
-        'UpDatos.Update()
-        'UpPrueba.Update()
-        Alert("Estatus agregado")
         RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusOS"))
-        Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
+        EstatusUsuariosGridActualizar()
+        AsociarEstatusUsuarios()
+        CargarUsuarioConEstatus()
+        UpDatos.Update()
+        'UpPrueba.Update()
+        'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
     End Sub
     Public Sub Edit_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -168,9 +169,9 @@ Partial Class OS_CatEstatusOrdenServicio
         End If
 
         ObjEstatusOrdenServicios.Dispose()
-        'CargaDatos()
+        CargaDatos()
-        'UpDatos.Update()
+        UpDatos.Update()
-        Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
+        'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
     End Sub
     Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
         Dim ObjEstatusOrdenServicios As New ClsOS
@@ -208,9 +209,6 @@ Partial Class OS_CatEstatusOrdenServicio
     End Sub
 
     Private Sub CargarUsuarioConEstatus()
-        'For Contador As Integer = (Prueba.Columns.Count - 1) To 1 Step -1
-        '    Prueba.Columns.RemoveAt(Contador)
-        'Next
         For Each Estatus As DataRow In DtEstatusOS.Rows
             Dim test As New CheckBoxField
             test.HeaderText = Estatus.Item("EstatusOrdenServicio").ToString
@@ -268,5 +266,13 @@ Partial Class OS_CatEstatusOrdenServicio
         End If
         objEstatusOC.Dispose()
     End Sub
+
+    Private Sub EstatusUsuariosGridActualizar()
+        DtEstatusUsuariosAsociados = Nothing
+        Prueba.DataBind()
+        For Contador As Integer = (Prueba.Columns.Count - 1) To 1 Step -1
+            Prueba.Columns.RemoveAt(Contador)
+        Next
+    End Sub
 #End Region
 End Class

Ventas/PV.aspx.vb

@@ -4641,9 +4641,19 @@ Partial Class PV
     End Sub
 
     Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
+        Dim CvePreioLista As Integer = -1
+        If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
+            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
+            If Dr IsNot Nothing Then
+                If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
+                    CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero
+                End If
+            End If
+        End If
+
         Dim ObjCliente As New ClsClientes
 
-        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then
+        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CvePreioLista) Then
             If ObjCliente.DtResultados.Rows.Count > 0 Then
                 RegistraScript("hideDivEC();")
                 ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero

Ventas/Ventas.aspx.vb

@@ -16648,9 +16648,19 @@ Partial Class Ventas
     End Sub
 
     Private Sub BtnAgregarCliente_Click(sender As Object, e As EventArgs) Handles BtnAgregarCliente.Click
+        Dim CvePreioLista As Integer = -1
+        If DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then
+            Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa).Rows(0)
+            If Dr IsNot Nothing Then
+                If Dr("CvePrecioLista").ToString.ToEntero > 0 Then
+                    CvePreioLista = Dr("CvePrecioLista").ToString.ToEntero
+                End If
+            End If
+        End If
+
         Dim ObjCliente As New ClsClientes
 
-        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "") Then
+        If ObjCliente.AgregarClienteNoFrecuente(TxtNombreCliente.Text.Trim, TxtDireccionCliente.Text.Trim, TxtNumExtCliente.Text.Trim, TxtNumIntCliente.Text.Trim, TxtColoniaCliente.Text.Trim, TxtLocalidadCliente.Text.Trim, TxtCiudadCliente.Text.Trim, TxtEstadoCliente.Text.Trim, TxtPaisCliente.Text.Trim, TxtRFCCliente.Text.Trim, TxtCPCliente.Text.Trim, TxtTelefonoCliente.Text.Trim, TxtCorreoCliente.Text.Trim, DdlSubProyectoDatos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "", CvePreioLista) Then
             If ObjCliente.DtResultados.Rows.Count > 0 Then
                 RegistraScript("hideDivEC();")
                 ViewState("CveCliente") = ObjCliente.DtResultados(0)("CveCliente").ToString.ToEntero