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

App_Code/ClsProductosServicios.vb

@@ -386,7 +386,7 @@ Public Class ClsProductosServicios
                           Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
                           Optional CveFraccionArancelaria As Integer = -1, Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1,
                           Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
-                          Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "") As Integer
+                          Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1) As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_ProductosServiciosAdd")
@@ -458,6 +458,7 @@ Public Class ClsProductosServicios
             .Add("@ClaveImpuestoEmpaque", SqlDbType.VarChar).Value = ClaveImpuestoEmpaque
             .Add("@ClaveImpuestoUM", SqlDbType.VarChar).Value = ClaveImpuestoUM
             .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
+            .Add("@Litraje", SqlDbType.Float).Value = Litraje
 
         End With
 
@@ -604,7 +605,7 @@ Public Class ClsProductosServicios
                              Optional CveMoneda As Integer = 1, Optional RetISR As Double = 0, Optional PrecioMinimo As Decimal = Nothing, Optional CveTipoFactor As Integer = 1,
                              Optional CveFraccionArancelaria As Integer = -1, Optional CveUsuarioModifico As Integer = -1,
                              Optional CveClasificacionDetalle As Integer = -1, Optional CveTamaño As Integer = -1, Optional CveModelo As Integer = -1, Optional CveMedida As Integer = -1, Optional CveRinTamaño As Integer = -1, Optional ClaveImpuestoEmpaque As String = "", Optional ClaveImpuestoUM As String = "",
-                             Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "") As Boolean
+                             Optional ClaveCategoriaToxicidad As String = "", Optional ClaveImpuestoTipoProducto As String = "", Optional Litraje As Double = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_ProductosServiciosUpdate")
@@ -677,6 +678,7 @@ Public Class ClsProductosServicios
             .Add("@ClaveImpuestoEmpaque", SqlDbType.VarChar).Value = ClaveImpuestoEmpaque
             .Add("@ClaveImpuestoUM", SqlDbType.VarChar).Value = ClaveImpuestoUM
             .Add("@ClaveCategoriaToxicidad", SqlDbType.VarChar).Value = ClaveCategoriaToxicidad
+            .Add("@Litraje", SqlDbType.Float).Value = Litraje
 
         End With
 

General/SaldosIniciales.aspx.vb

@@ -537,6 +537,7 @@ Partial Class General_SaldosIniciales
                     Dim Linea As String = If(Row.Table.Columns.Contains("Linea"), Row("Linea").ToString.Trim, "")
                     Dim Modelo As String = If(Row.Table.Columns.Contains("Modelo"), Row("Modelo").ToString.Trim, "")
                     Dim Tamaño As String = Row("Tamaño").ToString.Trim
+                    Dim Litraje As Double = Row("Litraje").ToString.ToDouble
 
                     Dim CvePS As Integer = DTPS.FiltroPrimeroValor("CvePS", $"Codigo = '{Codigo}'").ToString.ToEntero
 
@@ -550,14 +551,14 @@ 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.AsEnumerable()
+                            If ObjClas.GetClasificaciones() Then Application("GlobalDTClasificaciones") = ObjClas.DtResultados
                             CveClasificacion = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", $"Clasificacion = '{Clasificacion}'").ToString.ToEntero
                         End If
                     End If
 
                     If Not CveUnidadMedida > 0 AndAlso UnidadMedida <> "" Then
                         If ObjUM.AddUnidadMedida(UnidadMedida, "", "", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).ToEntero > 0 Then
-                            If ObjUM.GetUnidadesMedida() Then Application("GlobalDTUnidadesMedida") = ObjUM.DtResultados.AsEnumerable()
+                            If ObjUM.GetUnidadesMedida() Then Application("GlobalDTUnidadesMedida") = ObjUM.DtResultados
                             CveUnidadMedida = GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveUnidadMedida", $"UnidadMedida = '{UnidadMedida}'").ToString.ToEntero
                         End If
                     End If
@@ -625,7 +626,7 @@ Partial Class General_SaldosIniciales
                     If CvePS > 0 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,
                                               CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño,
-                                              CveModelo:=CveModelo) Then
+                                              CveModelo:=CveModelo, Litraje:=Litraje) 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,
                             '                  CveTipoPS:=CveTipoPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) Then
                             ErrorPS = True
@@ -637,7 +638,7 @@ Partial Class General_SaldosIniciales
                     Else
                         If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1,
                                    CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida, CveRinTamaño:=CveRinTamaño,
-                                       CveModelo:=CveModelo) <= 0 Then
+                                       CveModelo:=CveModelo, Litraje:=Litraje) <= 0 Then
                             'If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1,
                             '           CveTipoPS:=CveTipoPS, CveSATPS:=CveSATPS, CveMarca:=CveMarca, CveTamaño:=CveTamaño, CveMedida:=CveMedida) <= 0 Then
                             ErrorPS = True