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

Ventas/ActualizarPrecios.aspx.vb

@@ -75,11 +75,13 @@ Partial Class Ventas_ActualizarPrecios
 
     Public Sub CargaPreciosLista()
 
-        DdlPrecioLista.ITEMS.CLEAR
+        DdlPrecioLista.ITEMS.Clear
         Dim ObjVta As New ClsVentas
+        Dim primerItem As String = ""
         If ObjVta.GetPrecioListas(UsuarioActual.CveEmpresa) Then
             DdlPrecioLista.DataSource = ObjVta.DtResultados.Copy()
             DdlPrecioListaCarga.DataSource = ObjVta.DtResultados.Copy()
+            primerItem = ObjVta.DtResultados.FiltroPrimeroValor("CvePrecioLista")
         End If
         ObjVta.Dispose()
 
@@ -87,6 +89,10 @@ Partial Class Ventas_ActualizarPrecios
         DdlPrecioLista.DataBind()
         DdlPrecioListaCarga.DataBind()
 
+        If (DdlPrecioLista.Items.Count = 1) Then
+            DdlPrecioLista.Items.FindByValue(primerItem).Selected = True
+        End If
+
         DdlPrecioLista.Items.Insert(0, New ListItem("Seleccione", "-1"))
         If UsuarioActual.CveEmpresa.Contiene(1, 140) Then
             DdlPrecioLista.Items.Insert(0, New ListItem("Sin Precio Lista", "-2"))

Ventas/PV.aspx.vb

@@ -5587,9 +5587,8 @@ Partial Class PV
 
         Dim CveUnidadMedidaPSA As Integer = -1
         Dim UnidadMedidaPSA As String = "Unidad"
-        Dim CveClacificacionPSA As Integer = -1
-
-        Dim ClacificacionPSA As String = ""
+        Dim CveClasificacionPSA As Integer = -1
+        Dim ClasificacionPSA As String = ""
 
         Dim CveSubProyectoPSA As Integer = -1
         Dim SubProyectoPSA As String = ""
@@ -5601,8 +5600,8 @@ Partial Class PV
         DTPSTemp.Columns.Add("Cantidad", GetType(Integer))
         DTPSTemp.Columns.Add("CveUnidadMedida", GetType(Integer))
         DTPSTemp.Columns.Add("UnidadMedida", GetType(String))
-        DTPSTemp.Columns.Add("CveClacificacion", GetType(Integer))
-        DTPSTemp.Columns.Add("Clacificacion", GetType(String))
+        DTPSTemp.Columns.Add("CveClasificacion", GetType(Integer))
+        DTPSTemp.Columns.Add("Clasificacion", GetType(String))
         DTPSTemp.Columns.Add("CvePS", GetType(Integer))
         DTPSTemp.Columns.Add("PS", GetType(String))
         DTPSTemp.Columns.Add("PU", GetType(Decimal))
@@ -5626,21 +5625,14 @@ Partial Class PV
 
                 If ObjProductosServicios.GetPS(CvePsTemp, -1, UsuarioActual.CveEmpresa) Then
                     CveUnidadMedidaPSA = ObjProductosServicios.CveUnidadMedida
-                    CveClacificacionPSA = ObjProductosServicios.CveClasificacion
+                    CveClasificacionPSA = ObjProductosServicios.CveClasificacion
+                    ClasificacionPSA = ObjProductosServicios.Clasificacion
                     UnidadMedidaPSA = ObjProductosServicios.DtResultados.FiltroPrimeroValor("UnidadMedida")
                     PSPSA = ObjProductosServicios.PS
                 End If
 
-
-                If UsuarioActual.Empresa.UsaAC Then
-                    ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", " Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
-                Else
-                    ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", Orderby:="Clasificacion")
-                End If
-
                 Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp  }").ToDecimal
 
-
                 If DTPSTemp.FiltraParametros($"CvePs = { CvePsTemp }").Rows.Count > 0 Then
 
                     For Each dRowUpdate As DataRow In DTPSTemp.Rows
@@ -5660,8 +5652,8 @@ Partial Class PV
                     dRowNuevo("PU") = Cargo
                     dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA
                     dRowNuevo("UnidadMedida") = UnidadMedidaPSA
-                    dRowNuevo("CveClacificacion") = CveClacificacionPSA
-                    dRowNuevo("Clacificacion") = ClacificacionPSA
+                    dRowNuevo("CveClasificacion") = CveClasificacionPSA
+                    dRowNuevo("Clasificacion") = ClasificacionPSA
                     dRowNuevo("CvePS") = CvePsTemp
                     dRowNuevo("PS") = PSPSA
 
@@ -5686,7 +5678,7 @@ Partial Class PV
         For Each drowPsTamaños As DataRow In DTPSTemp.Rows
             If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
                 Dim Concec = AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
-                                                drowPsTamaños("CveClacificacion").ToString.ToEntero, drowPsTamaños("Clacificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
+                                                drowPsTamaños("CveClasificacion").ToString.ToEntero, drowPsTamaños("Clasificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
                                                 drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero,
                                                 drowPsTamaños("SubProyecto").ToString, EsCargo:=True, ConsecPSPadre:=drowPsTamaños("ConsecPSPadre").ToString.ToEntero)
                 If Consec > 0 Then

Ventas/Ventas.aspx.vb

@@ -23530,9 +23530,9 @@ Partial Class Ventas
 
             Dim CveUnidadMedidaPSA As Integer = -1
             Dim UnidadMedidaPSA As String = "Unidad"
-            Dim CveClacificacionPSA As Integer = -1
+            Dim CveClasificacionPSA As Integer = -1
 
-            Dim ClacificacionPSA As String = ""
+            Dim ClasificacionPSA As String = ""
 
             Dim CveSubProyectoPSA As Integer = -1
             Dim SubProyectoPSA As String = ""
@@ -23540,12 +23540,12 @@ Partial Class Ventas
             Dim PSPSA As String = ""
 
             Dim DTPSTemp As New DataTable '= TmpDT.Clone
-            'AgregarProductoServicio(1, CveUnidadMedidaPSA, UnidadMedidaPSA, CveClacificacionPSA, ClacificacionPSA, CvePSPSA, PSPSA, "", ImporteCargo, 0, -1, "", CveSubProyectoPSA, SubProyectoPSA)
+
             DTPSTemp.Columns.Add("Cantidad", GetType(Integer))
             DTPSTemp.Columns.Add("CveUnidadMedida", GetType(Integer))
             DTPSTemp.Columns.Add("UnidadMedida", GetType(String))
-            DTPSTemp.Columns.Add("CveClacificacion", GetType(Integer))
-            DTPSTemp.Columns.Add("Clacificacion", GetType(String))
+            DTPSTemp.Columns.Add("CveClasificacion", GetType(Integer))
+            DTPSTemp.Columns.Add("Clasificacion", GetType(String))
             DTPSTemp.Columns.Add("CvePS", GetType(Integer))
             DTPSTemp.Columns.Add("PS", GetType(String))
             DTPSTemp.Columns.Add("PU", GetType(Decimal))
@@ -23565,20 +23565,16 @@ Partial Class Ventas
                     SubProyectoPSA = DrowPartidas("SubProyecto").ToString
 
                     Dim ObjProductosServicios As New ClsProductosServicios()
+
                     If ObjProductosServicios.GetPS(CvePsTemp, -1, UsuarioActual.CveEmpresa) Then
                         CveUnidadMedidaPSA = ObjProductosServicios.CveUnidadMedida
-                        CveClacificacionPSA = ObjProductosServicios.CveClasificacion
+                        CveClasificacionPSA = ObjProductosServicios.CveClasificacion
+                        ClasificacionPSA = ObjProductosServicios.Clasificacion
                         UnidadMedidaPSA = ObjProductosServicios.DtResultados.FiltroPrimeroValor("UnidadMedida")
                         PSPSA = ObjProductosServicios.PS
                     End If
                     ObjProductosServicios.Dispose()
 
-                    If UsuarioActual.Empresa.UsaAC Then
-                        ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", " Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
-                    Else
-                        ClacificacionPSA = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=If(UsuarioActual.Empresa.UsaContabilidad, CveClacificacionPSA, -1)).FiltroPrimeroValor("Clasificacion", Orderby:="Clasificacion")
-                    End If
-
                     Dim Cargo As Decimal = DTTamanios.FiltroPrimeroValor("Cargo", $" CveTamaño = { CveTamanioTemp  }").ToDecimal
 
 
@@ -23601,8 +23597,8 @@ Partial Class Ventas
                         dRowNuevo("PU") = Cargo
                         dRowNuevo("CveUnidadMedida") = CveUnidadMedidaPSA
                         dRowNuevo("UnidadMedida") = UnidadMedidaPSA
-                        dRowNuevo("CveClacificacion") = CveClacificacionPSA
-                        dRowNuevo("Clacificacion") = ClacificacionPSA
+                        dRowNuevo("CveClasificacion") = CveClasificacionPSA
+                        dRowNuevo("Clasificacion") = ClasificacionPSA
                         dRowNuevo("CvePS") = CvePsTemp
                         dRowNuevo("PS") = PSPSA
 
@@ -23621,7 +23617,7 @@ Partial Class Ventas
                 Modalidad = "A"
                 If drowPsTamaños("PU").ToString.ToDecimal > 0 Then
                     AgregarProductoServicio(drowPsTamaños("Cantidad").ToString.ToEntero, drowPsTamaños("CveUnidadMedida").ToString.ToEntero, drowPsTamaños("UnidadMedida").ToString,
-                                            drowPsTamaños("CveClacificacion").ToString.ToEntero, drowPsTamaños("Clacificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
+                                            drowPsTamaños("CveClasificacion").ToString.ToEntero, drowPsTamaños("Clasificacion").ToString, drowPsTamaños("CvePS").ToString.ToEntero,
                                             drowPsTamaños("PS").ToString, "", drowPsTamaños("PU").ToString.ToDecimal, 0, -1, "", drowPsTamaños("CveSubProyecto").ToString.ToEntero,
                                             drowPsTamaños("SubProyecto").ToString)
                 End If