Correccion para que Guarde y Edite el "Tipo de Impuesto de PS"

General/SaldosIniciales.aspx.vb

@@ -209,44 +209,72 @@ Partial Class General_SaldosIniciales
                 End If
 
 
-                'ElseIf RblFormato.SelectedValue = "5" Then
+            ElseIf RblFormato.SelectedValue = "5" Then
 
-                '    If Not dt.Columns(0).ColumnName = "Codigo" Then
+                If Not dt.Columns(0).ColumnName = "Codigo" Then
-                '        Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Alert("El nombre de la primera columna debe ser 'Codigo'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
+                    Exit Sub
-                '    End If
+                End If
 
-                '    If Not dt.Columns(1).ColumnName = "Descripcion" Then
+                If Not dt.Columns(1).ColumnName = "Descripcion" Then
-                '        Alert("El nombre de la segunda columna debe ser 'Descripcion'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Alert("El nombre de la segunda columna debe ser 'Descripcion'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
+                    Exit Sub
-                '    End If
+                End If
 
-                '    If Not dt.Columns(2).ColumnName = "Marca" Then
+                If Not dt.Columns(2).ColumnName = "Tipo" Then
-                '        Alert("El nombre de la tercera columna debe ser 'Serie'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Alert("El nombre de la terera columna debe ser 'Tipo'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
+                    Exit Sub
-                '    End If
+                End If
 
-                '    If Not dt.Columns(3).ColumnName = "Código Barras" Then
+                If Not dt.Columns(3).ColumnName = "Código Barras" Then
-                '        Alert("El nombre de la cuarta columna debe ser 'Código de Barras'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Alert("El nombre de la cuarta columna debe ser 'Código Barras'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
+                    Exit Sub
-                '    End If
+                End If
 
-                '    If Not dt.Columns(4).ColumnName = "Unidad Medida" Then
+                If Not dt.Columns(4).ColumnName = "Unidad Medida" Then
-                '        Alert("El nombre de la quinta columna debe ser 'Unidad de Medida'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Alert("El nombre de la quinta columna debe ser 'Unidad Medida'. Favor de corregirlo", TipoMensaje.MsgError)
-                '        Exit Sub
+                    Exit Sub
-                '    End If
+                End If
-                '    If Not dt.Columns(5).ColumnName = "Producto/Servicio" Then
+
-                '        Alert("El nombre de la sexta columna debe ser 'Producto/Servicio'. Favor de corregirlo", TipoMensaje.MsgError)
+                If Not dt.Columns(5).ColumnName = "Clasificacion" Then
-                '        Exit Sub
+                    Alert("El nombre de la sexta columna debe ser 'Clasificacion'. Favor de corregirlo", TipoMensaje.MsgError)
-                '    End If
+                    Exit Sub
-                '    If Not dt.Columns(6).ColumnName = "Clasificación" Then
+                End If
-                '        Alert("El nombre de la séptima columna debe ser 'Clasificacion'. Favor de corregirlo", TipoMensaje.MsgError)
+
-                '        Exit Sub
+                If Not dt.Columns(6).ColumnName = "Marca" Then
-                '    End If
+                    Alert("El nombre de la séptima columna debe ser 'Marca'. Favor de corregirlo", TipoMensaje.MsgError)
-                '    If Not dt.Columns(7).ColumnName = "Precio" Then
+                    Exit Sub
-                '        Alert("El nombre de la octava columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
+                End If
-                '        Exit Sub
+
-                '    End If
+                If Not dt.Columns(7).ColumnName = "AplicaSerie" Then
+                    Alert("El nombre de la octava columna debe ser 'AplicaSerie'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(8).ColumnName = "Precio" Then
+                    Alert("El nombre de la novena columna debe ser 'Precio'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(9).ColumnName = "IEPS" Then
+                    Alert("El nombre de la décima columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(10).ColumnName = "Tamaño" Then
+                    Alert("El nombre de la onceava columna debe ser 'Tamaño'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(11).ColumnName = "Código SAT" Then
+                    Alert("El nombre de la doceava columna debe ser 'Código SAT'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
+
+                If Not dt.Columns(12).ColumnName = "Litraje" Then
+                    Alert("El nombre de la treceava columna debe ser 'Litraje'. Favor de corregirlo", TipoMensaje.MsgError)
+                    Exit Sub
+                End If
 
             ElseIf RblFormato.SelectedValue = "6" Then
                 If Not dt.Columns(0).ColumnName = "Código" Then
@@ -530,14 +558,17 @@ Partial Class General_SaldosIniciales
                     Dim UnidadMedida As String = Row("Unidad Medida").ToString.Trim
                     Dim Clasificacion As String = Row("Clasificacion").ToString.Trim
                     Dim Marca As String = Row("Marca").ToString.Trim
+                    'Dim AplicaSerie As String = Row("AplicaSerie").ToString.Trim
+                    Dim Precio As Double = Row("Precio").ToString.ToDouble
+                    Dim IEPS As Decimal = Row("IEPS").ToString.ToDecimal
+                    Dim Tamaño As String = Row("Tamaño").ToString.Trim
+                    Dim SATClavePS As String = Row("Código SAT").ToString.Trim
+                    Dim Litraje As Double = Row("Litraje").ToString.ToDouble
                     Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString.Trim, "")
                     Dim Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString.Trim, "")
-                    Dim SATClavePS As String = Row("Código SAT").ToString.Trim
                     Dim SATClaveUnidadMedida As String = If(Row.Table.Columns.Contains("Clave Unidad"), Row("Clave Unidad").ToString.Trim, "")
                     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
 
@@ -624,9 +655,9 @@ Partial Class General_SaldosIniciales
                     If Not CveModelo > 0 AndAlso Modelo <> "" Then Alert("No se encontró el Modelo: " + Modelo, TipoMensaje.MsgAdvertencia) : ErrorPS = True : Exit For
 
                     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,
+                        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) Then
+                                              CveModelo:=CveModelo, Litraje:=Litraje, IEPSPorcentaje:=IEPS) 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
@@ -636,9 +667,9 @@ Partial Class General_SaldosIniciales
                             Contador += 1
                         End If
                     Else
-                        If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", "", Descripcion, 0, 0, 0, False, 0, False, True, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, 1,
+                        If ObjPS.AddPS(CveClasificacion, 1, CveUnidadMedida, Codigo, "", CodigoBarras, Descripcion, Precio, 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, Litraje:=Litraje) <= 0 Then
+                                       CveModelo:=CveModelo, Litraje:=Litraje, IEPSPorcentaje:=IEPS) <= 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

Ventas/ProductosServicios.aspx.vb

@@ -1162,7 +1162,8 @@ Partial Class ProductosyServicios
                                            CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
                                            CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
                                            CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
-                                           ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString) > 0 Then
+                                           ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
+                                           ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString) > 0 Then
                 ViewState("CvePS") = ObjProductosServicios.CvePS
                 For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                     If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1206,7 +1207,8 @@ Partial Class ProductosyServicios
                                               CveTipoFactor:=DdlTipoFactor.SelectedValue.ToEntero, CveFraccionArancelaria:=DdlFraccionArancelaria.SelectedValue.ToEntero,
                                               CveUsuarioModifico:=UsuarioActual.CveUsuario, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero, CveTamaño:=DdlTamanio.SelectedValue.ToEntero,
                                               CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
-                                              ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString) Then
+                                              ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
+                                              ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString) Then
 
                 If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                     TieneError = True