Ventas/Ventas.aspx.vb

@@ -2239,6 +2239,7 @@ Partial Class Ventas
                 ImgFecha.Visible = False
             End If
 
+
             CargarCodigo()
             InicializaImprimirNew()
 
@@ -2469,6 +2470,8 @@ Partial Class Ventas
             TxtFecha.Enabled = True
             ImgFecha.Visible = True
         End If
+        TxtFecha.Enabled = True
+
     End Sub
 
     Private Sub ConfiguraEmpresa()
@@ -16652,9 +16655,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