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
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(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)
@@ -711,11 +711,11 @@ Partial Class General_SaldosIniciales
Dim Marca As String = Row("Marca").ToString().Trim
Dim AplicaSerie As Boolean = If(Row("AplicaSerie").ToString().Trim.ToUpper.Contiene("1", "SI"), True, False)
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 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 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, "")
@@ -1441,8 +1441,6 @@ Partial Class General_SaldosIniciales
Dim Encontrados As Integer = 0
Dim RFC As String = ""
Dim ObjCompras As New ClsCompras
Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
Try
DtProveedores = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -1549,10 +1547,8 @@ Partial Class General_SaldosIniciales
Encontrados = Encontrados + 1
Next
If Not ErrorCompras Then
Next
Catch ex As Exception
Catch ex As Exception
OnError("Ocurrió un error al cargar los datos", ex)
ErrorCompras = True
End Try
@@ -2294,7 +2290,7 @@ Partial Class General_SaldosIniciales
For Each nuevaEntrada As DataRow In dt.FiltraParametros($"TRIM(Almacen) = '{almacenActual}'").Rows
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
Dim CvePS As Integer = RowPS("CvePS").ToString().ToEntero()
Dim CveUM As Integer = RowPS("CveUnidadMedida").ToString().ToEntero()
@@ -2316,8 +2312,8 @@ Partial Class General_SaldosIniciales
Throw New Exception()
End If
Else
mensajeError = $"No se encontró el producto o servicio con código ""{nuevaEntrada("CodigoPS")}"""
Throw New Exception()
mensajeError = "" '$"No se encontró el producto o servicio con código ""{nuevaEntrada("CodigoPS")}"""
'Throw New Exception()
End If
Next
If contadorMovimientos = 0 Then