-cambios en globalsDT2

Ventas/PV.aspx.vb

@@ -2866,6 +2866,10 @@ Partial Class PV
                     End If
 
                 End If
+                If ChkAjuste.Checked Then
+                    CalculaMesesUso()
+                    UpAjuste.Update()
+                End If
 
             End If
 
@@ -4662,9 +4666,19 @@ Partial Class PV
             RFVLocalidadC.Visible = False
             RFVEstadoC.Visible = False
             RFVPaisC.Visible = False
+            TxtNombreCliente.Focus()
 
             DdlMetodoCliente.SelectedValueExist(1)
             DdlFormaCliente.SelectedValueExist(1)
+            'carga datos particulares de la sucursal
+            Dim dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero).FiltroPrimero("")
+
+            If dr IsNot Nothing Then
+                TxtCPCliente.Text = dr("CP").ToString
+                TxtEstadoCliente.Text = dr("Estado").ToString
+                TxtCiudadCliente.Text = dr("Municipio").ToString
+                TxtLocalidadCliente.Text = dr("Localidad").ToString
+            End If
         Else
             Dim ObjCliente As New ClsClientes
             If ObjCliente.ValidaClienteRFC(TxtRFCCliente.Text, UsuarioActual.CveEmpresa) Then
@@ -4914,15 +4928,17 @@ Partial Class PV
     End Sub
 
     Private Sub RecargaGlobalCliente()
-        Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDTCliente)
-        Hilo.Start()
+        'Dim Hilo As New System.Threading.Thread(AddressOf GeneraGlobalDTCliente)
+        'Hilo.Start()
+        GeneraGlobalDTCliente()
     End Sub
-    Private Sub GeneraGlobalDTCliente()
-        Dim Objclientes As New ClsClientes
-        If Objclientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1, TipoCliente:=-1) Then
-            Application("GlobalDTCliente") = Objclientes.DtResultados
-        End If
-        Objclientes.Dispose()
+    Private Sub GeneraGlobalDTCliente()
+        GlobalDTCliente(UsuarioActual.CveEmpresa) = Nothing
+        'Dim Objclientes As New ClsClientes
+        'If Objclientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1, TipoCliente:=-1) Then
+        '    Application("GlobalDTCliente") = Objclientes.DtResultados
+        'End If
+        'Objclientes.Dispose()
     End Sub
 #End Region
 
@@ -5198,13 +5214,19 @@ Partial Class PV
             Dim CvePSParametro As Integer = DdlPSAjuste.SelectedValue.ToEntero
             Dim PrecioSugerido As Decimal = 0
             Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
+            Dim CveMarca As Integer
 
             If drPS IsNot Nothing Then
                 PrecioSugerido = drPS("Precio").ToString.ToDecimal
+                CveMarca = drPS("CveMarca").ToString.ToEntero
             End If
 
             TxtPUFactura.Text = PrecioSugerido.FormatoNumero(2)
 
+            DdlTipoUso.Items.Clear()
+            DdlTipoUso.DataSource = GlobalDTAcumGarantiasMesesTipoUso(UsuarioActual.CveEmpresa, CveMarca)
+            DdlTipoUso.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            DdlTipoUso.DataBind()
         End If
 
         If Not DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso DdlFacturas.SelectedValue.ToEntero > 0 Then