AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--- mejora

Browse Source
This commit is contained in:
rrene
2023-12-02 12:41:30 -07:00
parent 2285cda25f
commit 5a9398a944
1 changed files with 10 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
General/SaldosIniciales.aspx.vb
View File

@@ -354,10 +354,10 @@ Partial Class General_SaldosIniciales
Exit Sub Exit Sub
End If End If
If Not dt.Columns(9).ColumnName = "IEPS" Then 'If Not dt.Columns(9).ColumnName = "IEPS" Then
Alert("El nombre de la décima columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError) ' Alert("El nombre de la décima columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
Exit Sub ' Exit Sub
End If 'End If
'If Not dt.Columns(10).ColumnName = "Tamaño" Then '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) ' Alert("El nombre de la onceava columna debe ser 'Tamaño'. Favor de corregirlo", TipoMensaje.MsgError)
@@ -711,11 +711,11 @@ Partial Class General_SaldosIniciales
Dim Marca As String = Row("Marca").ToString().Trim Dim Marca As String = Row("Marca").ToString().Trim
Dim AplicaSerie As Boolean = If(Row("AplicaSerie").ToString().Trim.ToUpper.Contiene("1", "SI"), True, False) Dim AplicaSerie As Boolean = If(Row("AplicaSerie").ToString().Trim.ToUpper.Contiene("1", "SI"), True, False)
Dim Precio As Double = Row("Precio").ToString().ToDouble Dim Precio As Double = Row("Precio").ToString().ToDouble
Dim IEPS As Decimal = Row("IEPS").ToString().ToDecimal Dim IEPS As Decimal = If(Row.Table.Columns.Contains("IEPS"), Row("IEPS").ToString().Trim.ToDecimal, -1)
Dim Tamaño As String = If(Row.Table.Columns.Contains("Tamaño"), Row("Tamaño").ToString().Trim, "") Dim Tamaño As String = If(Row.Table.Columns.Contains("Tamaño"), Row("Tamaño").ToString().Trim, "")
Dim SATClavePS As String = Row("Código SAT").ToString().Trim Dim SATClavePS As String = Row("Código SAT").ToString().Trim
Dim Clasificacion2 As String = If(dt.Columns.Contains("Servicio"), Row("Servicio").ToString().Trim, "") Dim Clasificacion2 As String = If(dt.Columns.Contains("Clasificacion2"), Row("Clasificacion2").ToString().Trim, "")
Dim Litraje As Double = If(dt.Columns.Contains("Conversion Unidad"), Row("Conversion Unidad").ToString().ToDouble, 0) Dim Litraje As Double = If(dt.Columns.Contains("Conversion Unidad"), Row("Conversion Unidad").ToString().ToDouble, 0)
Dim RinTamaño As String = If(Row.Table.Columns.Contains("Tamaño de Rin"), Row("Tamaño de Rin").ToString().Trim, "") 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 Medida As String = If(Row.Table.Columns.Contains("Medida"), Row("Medida").ToString().Trim, "")
@@ -1441,8 +1441,6 @@ Partial Class General_SaldosIniciales
Dim Encontrados As Integer = 0 Dim Encontrados As Integer = 0
Dim RFC As String = "" Dim RFC As String = ""
Dim ObjCompras As New ClsCompras
Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
Try Try
DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -1549,10 +1547,8 @@ Partial Class General_SaldosIniciales
Encontrados = Encontrados + 1 Encontrados = Encontrados + 1
Next Next
If Not ErrorCompras Then
Next
Catch ex As Exception Catch ex As Exception
OnError("Ocurrió un error al cargar los datos", ex) OnError("Ocurrió un error al cargar los datos", ex)
ErrorCompras = True ErrorCompras = True
End Try End Try
@@ -2294,7 +2290,7 @@ Partial Class General_SaldosIniciales
For Each nuevaEntrada As DataRow In dt.FiltraParametros($"TRIM(Almacen) = '{almacenActual}'").Rows For Each nuevaEntrada As DataRow In dt.FiltraParametros($"TRIM(Almacen) = '{almacenActual}'").Rows
contadorMovimientos += 1 contadorMovimientos += 1
Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' AND CveEmpresa = {UsuarioActual.CveEmpresa}") Dim RowPS As DataRow = ProductosServiciosRef.FiltroPrimero($"Codigo = '{nuevaEntrada("CodigoPS")}' ")
If RowPS IsNot Nothing Then If RowPS IsNot Nothing Then
Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero() Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero()
Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero() Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
@@ -2316,8 +2312,8 @@ Partial Class General_SaldosIniciales
Throw New Exception() Throw New Exception()
End If End If
Else Else
mensajeError = $"No se encontró el producto o servicio con código ""{nuevaEntrada("CodigoPS")}""" mensajeError = "" '$"No se encontró el producto o servicio con código ""{nuevaEntrada("CodigoPS")}"""
Throw New Exception() 'Throw New Exception()
End If End If
Next Next
If contadorMovimientos = 0 Then If contadorMovimientos = 0 Then