From 21bffb5bac258a987d3dbf1f3bd59a257a8fb63d Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Wed, 8 Jan 2020 10:55:50 -0700
Subject: [PATCH] reparando detalles al agregar ps en saldos iniciales y al
 abrir el modal en cat clasificaciones

---
 General/SaldosIniciales.aspx.vb   | 9 +++++++--
 Ventas/CatClasificaciones.aspx.vb | 4 +++-
 2 files changed, 10 insertions(+), 3 deletions(-)

diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 004b752d8..dd79a2a08 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -683,6 +683,7 @@ Partial Class General_SaldosIniciales
                     DTPS = ObjPS.DtResultados
                 End If
 
+                Dim NuevaClasificacion As Boolean = False
 
                 For Each Row As DataRow In dt.Rows
                     Dim Codigo As String = Row("Codigo").ToString
@@ -718,8 +719,9 @@ Partial Class General_SaldosIniciales
                         If ObjClas.AddClasificaciones(Clasificacion, "", -1, "-1", -1, "-1", -1, "-1",
                                                       GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToString.ToEntero, UsuarioActual.CveUsuario,
                                                       UsuarioActual.CveEmpresa) Then
-                            If ObjClas.GetClasificaciones() Then Application("GlobalDTClasificaciones") = ObjClas.DtResultados
+                            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
                             CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
+                            NuevaClasificacion = True
                         End If
                     End If
 
@@ -831,7 +833,7 @@ Partial Class General_SaldosIniciales
                     'If Not CveClasificacion2 > 0 AndAlso Clasificacion2 <> "" Then Alert("No se encontró la Serie: " + Clasificacion2, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
 
                     If CvePS > 0 Then
-                        If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
+                        If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, -1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
                                               CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño,
                                               CveModelo:=CveModelo, Litraje:=Litraje, IEPSPorcentaje:=IEPS, CveClasificacion2:=CveClasificacion2, CveTamaño:=CveTamaño) Then
                             'If Not ObjPS.UpdatePS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, 0, 1, 1, False, 0, True, True, True, UsuarioActual.CveUsuario, CvePS, -1, -1, CveSATPS,
@@ -878,6 +880,9 @@ Partial Class General_SaldosIniciales
                     UpDatos.Update()
                 Else
                     ObjPS.RollBack()
+                    If NuevaClasificacion Then
+                        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
+                    End If
                 End If
                 ObjPS.Dispose()
                 ObjGral.Dispose()
diff --git a/Ventas/CatClasificaciones.aspx.vb b/Ventas/CatClasificaciones.aspx.vb
index 0f1bd5b3e..1714fc630 100644
--- a/Ventas/CatClasificaciones.aspx.vb
+++ b/Ventas/CatClasificaciones.aspx.vb
@@ -348,7 +348,9 @@ Partial Class CatClasificaciones
 
         TxtClasificacion.Text = ""
         TxtPrecioBaseCosto.Text = ""
-        DdlCategoria.SelectedIndex = 0
+        If DdlCategoria.Items.Count > 0 Then
+            DdlCategoria.SelectedIndex = 0
+        End If
         DdlSATPS.SelectedValue = ""
         DdlSATPS.SelectedText = ""
         LtlTituloModal.Text = "Agregar Clasificación"