diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index 652a0a64a..cd96100cb 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -294,21 +294,6 @@ Partial Class General_SaldosIniciales
Exit Sub
End If
- If Not dt.Columns(15).ColumnName = "IEPS" Then
- Alert("El nombre de la decimosexta columna debe ser 'IEPS'. Favor de corregirlo", TipoMensaje.MsgError)
- Exit Sub
- End If
-
- If Not dt.Columns(16).ColumnName = "RetIVAPorcentaje" Then
- Alert("El nombre de la decimoséptima columna debe ser 'RetIVAPorcentaje'. Favor de corregirlo", TipoMensaje.MsgError)
- Exit Sub
- End If
-
- If Not dt.Columns(17).ColumnName = "RetISRPorcentaje" Then
- Alert("El nombre de la decimoctava columna debe ser 'RetISRPorcentaje'. Favor de corregirlo", TipoMensaje.MsgError)
- Exit Sub
- End If
-
'If RblFormato.SelectedValue = "4" Then
' If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
' Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
@@ -716,7 +701,7 @@ Partial Class General_SaldosIniciales
Dim NuevaClasificacion As Boolean = False
- For Each Row As DataRow In dt.Rows
+ For Each Row As DataRow In dt.FiltraParametros("Descripcion <> ''").Rows
Dim Codigo As String = Row("Codigo").ToString()
Dim Descripcion As String = Row("Descripcion").ToString()
Dim TipoPS As String = Row("Tipo").ToString().Trim.ToUpper
@@ -1445,7 +1430,9 @@ Partial Class General_SaldosIniciales
#Region "P R O V E E D O R E S - F A C T U R A S"
+ Dim ObjCompras As New ClsCompras
Dim ErrorCompras As Boolean = False
+ Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
Dim CveCompra As Integer
Dim Contador As Integer = 0
Dim ExisteCompra As Boolean = False
@@ -1461,113 +1448,105 @@ Partial Class General_SaldosIniciales
Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
- Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'")
- RFC = Row("RFC").ToString().Trim
- Dim Serie As String = Row("Serie").ToString()
- Dim Folio As String = Row("Folio").ToString()
- Dim Fecha As Date = Row("Fecha").ToString().ToDate
- Dim SubTotal As Decimal = Row("SubTotal").ToString().ToDecimal
- Dim IVA As Decimal = Row("IVA").ToString().ToDecimal
- Dim Total As Decimal = Row("Total").ToString().ToDecimal
- Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
- Dim TipoDocto As String = Row("Tipo Documento").ToString()
- Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString().ToEntero()
- GuardaLog(Sucursal + " - " + Row("Sucursal").ToString())
- Dim RetIVA As Decimal = Row("Ret IVA").ToString().ToDecimal
- Dim RetISR As Decimal = Row("Ret ISR").ToString().ToDecimal
- Dim IEPS As Decimal = If(dt.Columns.Contains("IEPS"), Row("IEPS").ToString(), "0").ToDecimal
- Dim Moneda As String = Row("Moneda").ToString()
- Dim TipoCambio As String = If(dt.Columns.Contains("Tipo Cambio"), Row("Tipo Cambio").ToString(), "1")
- Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate
- Dim CveMoneda As Integer = 1
- Dim CveProveedorSucursal As Integer = If(dt.Columns.Contains("CveProveedorSucursal"), Row("CveProveedorSucursal").ToString(), "0").ToEntero
- Dim PorcentajeIVA As String = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString(), "0")
- Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString(), "0").ToDecimal
- Dim RetIVAPorcentaje As Decimal = If(dt.Columns.Contains("RetIVAPorcentaje"), Row("RetIVAPorcentaje").ToString(), "0").ToDecimal
- Dim RetISRPorcentaje As Decimal = If(dt.Columns.Contains("RetISRPorcentaje"), Row("RetISRPorcentaje").ToString(), "0").ToDecimal
- Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto='{0}'", If(dt.Columns.Contains("SubProyecto"), Row("SubProyecto").ToString(), ""))).ToEntero
- If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
+ Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'")
+ RFC = Row("RFC").ToString().Trim
+ Dim Serie As String = Row("Serie").ToString()
+ Dim Folio As String = Row("Folio").ToString()
+ Dim Fecha As Date = Row("Fecha").ToString().ToDate
+ Dim SubTotal As Decimal = Row("SubTotal").ToString().ToDecimal
+ Dim IVA As Decimal = Row("IVA").ToString().ToDecimal
+ Dim Total As Decimal = Row("Total").ToString().ToDecimal
+ Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
+ Dim TipoDocto As String = Row("Tipo Documento").ToString()
+ Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString().ToEntero()
+ GuardaLog(Sucursal + " - " + Row("Sucursal").ToString())
+ Dim RetIVA As Decimal = Row("Ret IVA").ToString().ToDecimal
+ Dim RetISR As Decimal = Row("Ret ISR").ToString().ToDecimal
+ Dim IEPS As Decimal = If(dt.Columns.Contains("IEPS"), Row("IEPS").ToString(), "0").ToDecimal
+ Dim Moneda As String = Row("Moneda").ToString()
+ Dim TipoCambio As String = If(dt.Columns.Contains("Tipo Cambio"), Row("Tipo Cambio").ToString(), "1")
+ Dim FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate
+ Dim CveMoneda As Integer = 1
+ Dim CveProveedorSucursal As Integer = If(dt.Columns.Contains("CveProveedorSucursal"), Row("CveProveedorSucursal").ToString(), "0").ToEntero
+ Dim PorcentajeIVA As String = If(dt.Columns.Contains("PorcentajeIVA"), Row("PorcentajeIVA").ToString(), "0")
+ Dim ImpuestosLocales As Decimal = If(dt.Columns.Contains("ImpuestosLocales"), Row("ImpuestosLocales").ToString(), "0").ToDecimal
+ Dim RetIVAPorcentaje As Decimal = If(dt.Columns.Contains("RetIVAPorcentaje"), Row("RetIVAPorcentaje").ToString(), "0").ToDecimal
+ Dim RetISRPorcentaje As Decimal = If(dt.Columns.Contains("RetISRPorcentaje"), Row("RetISRPorcentaje").ToString(), "0").ToDecimal
+ Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", String.Format("SubProyecto='{0}'", If(dt.Columns.Contains("SubProyecto"), Row("SubProyecto").ToString(), ""))).ToEntero
+ If CveSubProyecto = 0 Then CveSubProyecto = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto").ToEntero
- If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
- If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorCompras = True
- If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
- If Not CveProveedorSucursal > 0 Then CveProveedorSucursal = -1
+ If Not CvePS > 0 Then Alert(String.Format("No se encontró el Producto Servicio"), TipoMensaje.MsgError) : ErrorCompras = True
+ If Not CveUnidadMedida > 0 Then Alert(String.Format("No se encontró la Unidad de Medida."), TipoMensaje.MsgError) : ErrorCompras = True
+ If Not CveProveedor > 0 Then Alert(String.Format("No se encontró el Proveedor con el RFC: {0}", {RFC}), TipoMensaje.MsgError) : ErrorCompras = True : Exit For
+ If Not CveProveedorSucursal > 0 Then CveProveedorSucursal = -1
- TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESOS", "INGRESO", "ING", "FACTURA"), "Fac", "NC").ToString()
+ TipoDocto = IIf(TipoDocto.ToUpper.Contiene("INGRESOS", "INGRESO", "ING", "FACTURA"), "Fac", "NC").ToString()
+ 'Temporalmente SE BORRARA
+ Dim Transaccion As String = "" 'Row("Transaccion2").ToString()
+ Dim Folio2 As String = "" 'Row("Folio2").ToString()
+ Dim CodProvee As String = "" 'Row("CodProvee2").ToString()
+ 'Moneda
+ If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
+ CveMoneda = 1
+ ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then
+ CveMoneda = 2
+ End If
- 'Temporalmente SE BORRARA
- Dim Transaccion As String = "" 'Row("Transaccion2").ToString()
- Dim Folio2 As String = "" 'Row("Folio2").ToString()
- Dim CodProvee As String = "" 'Row("CodProvee2").ToString()
+ 'Si no se especifica TC, se manda como pesos.
+ If TipoCambio = "" Then TipoCambio = "1"
- 'Moneda
- If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
- CveMoneda = 1
- ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then
- CveMoneda = 2
- End If
+ 'PrePóliza
+ Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Compras/SaldoInicial", 1, Total, Total, CveMoneda, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+ If Not CvePrePoliza > 0 Then
+ ErrorCompras = True
+ Exit For
+ End If
- 'Si no se especifica TC, se manda como pesos.
- If TipoCambio = "" Then TipoCambio = "1"
+ If FechaVencimiento = "".ToDate Or FechaVencimiento < "1900/01/01".ToDate Then
+ FechaVencimiento = Fecha
+ End If
- 'PrePóliza
- Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Compras/SaldoInicial", 1, Total, Total, CveMoneda, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
- If Not CvePrePoliza > 0 Then
- ErrorCompras = True
- Exit For
- End If
-
- If FechaVencimiento = "".ToDate Or FechaVencimiento < "1900/01/01".ToDate Then
- FechaVencimiento = Fecha
- End If
+ 'Compra
If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDecimal, FechaVencimiento,
False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal,
NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then
ErrorCompras = True
Exit For
End If
- CveCompra = ObjCompras.CveCompra
+ CveCompra = ObjCompras.CveCompra
- 'Compra Detalle
- If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero(), -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA.ToDecimal, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then
- ErrorCompras = True
- Exit For
- End If
- Dim ConceptoContablePago As Integer = 17
- If TipoDocto = "NC" Then ConceptoContablePago = 60
+ 'Compra Detalle
+ If Not ObjCompras.AddCompraDetalle(CveCompra, CveUnidadMedida, CvePS, Sucursal.ToEntero(), -1, 0, 1, SubTotal, 0.16D, SubTotal, 0, "Carga Inicial", -1, IVAPorcentaje:=PorcentajeIVA.ToDecimal, RetIVAPorcentaje:=RetIVAPorcentaje, RetISRPorcentaje:=RetISRPorcentaje) Then
+ ErrorCompras = True
+ Exit For
+ End If
+ Dim ConceptoContablePago As Integer = 17
+ If TipoDocto = "NC" Then ConceptoContablePago = 60
- 'PrePólizaDetalle
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Total, IIf(TipoDocto = "Fac", 5, 18).ToString().ToEntero(), Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, SubTotal, 6, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
+ 'PrePólizaDetalle
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total, Total, IIf(TipoDocto = "Fac", 5, 18).ToString().ToEntero(), Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, SubTotal, SubTotal, 6, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveClasificacion:=CveClasificacion, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
- If IVA > 0 Then
- If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 14, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero(), CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA.ToDecimal) Then ErrorCompras = True : Exit For
- End If
+ If IVA > 0 Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IVA, IVA, 14, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero(), CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeIVA.ToDecimal) Then ErrorCompras = True : Exit For
+ End If
+ If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, IEPS, 25, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
-
- If IEPS > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, IEPS, IEPS, 25, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
-
- If RetIVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetIVA, RetIVA, 15, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
- If RetISR > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetISR, RetISR, 16, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
- If ImpuestosLocales > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImpuestosLocales, ImpuestosLocales, 27, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
+ If RetIVA > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetIVA, RetIVA, 15, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
+ If RetISR > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, RetISR, RetISR, 16, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
+ If ImpuestosLocales > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImpuestosLocales, ImpuestosLocales, 27, Folio, String.Format("{0}-{1}", Serie, Folio), CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveSubProyecto:=Sucursal.ToEntero()) Then ErrorCompras = True : Exit For
'Saldo
If Saldo < Total Then
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Total - Saldo, Total - Saldo, 17, $"{Folio} SALDO INICIAL", Folio, CveCompra:=CveCompra, CveProveedor:=CveProveedor) Then ErrorCompras = True : Exit For
+ If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Total - Saldo, Total - Saldo, 95, $"{Folio} SALDO INICIAL", Folio, CveCompra:=CveCompra, CveProveedor:=CveProveedor) Then ErrorCompras = True : Exit For
End If
Encontrados = Encontrados + 1
Next
- If Not ErrorCompras Then
- Next
-
- Catch ex As Exception
- OnError("Ocurrió un error al cargar los datos", ex)
- ErrorCompras = True
- End Try
-
If Not ErrorCompras Then
If Contador > 0 Then
Alert(String.Format("Se agregaron: {0} Compras correctamente.
Se Omitieron: {1} Compras ya que ya se encuentran registradas.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion)
@@ -1578,9 +1557,11 @@ Partial Class General_SaldosIniciales
ObjCompras.Commit()
TxtExcel.Text = ""
UpDatos.Update()
- 'C L I E N T E S - F A C T U R A S
- End If
- ObjCompras.Dispose()
+ Else
+ Alert(String.Format("NO Se agregaron: {0} Compras.", NumRows), TipoMensaje.MsgError)
+ ObjCompras.RollBack()
+ End If
+ ObjCompras.Dispose()
#End Region
@@ -2383,8 +2364,6 @@ Partial Class General_SaldosIniciales
Dim ErrorProceso As Boolean = False
-
-
Dim SBMensajesCuentasNoEncontradas As New StringBuilder
For Each dRow As DataRow In dt.FiltraParametros(" LEN(Clasificacion) > 0 ").Rows
@@ -2419,26 +2398,21 @@ Partial Class General_SaldosIniciales
Dim ObjConta As New ClsContabilidad(ObjClasificaciones.IniciaTransacSQL)
Dim Contador As Integer = 0
-
-
Dim DTClasificaiones As New DataTable
- If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
- DTClasificaiones = ObjClasificaciones.DtResultados
- End If
-
- If Not DTClasificaiones.Rows.Count > 0 Then
- ObjConta.Dispose()
- Alert("Error a conusltar clasificaciones.", TipoMensaje.MsgAdvertencia)
- Exit Sub
- End If
-
+ 'If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
+ ' DTClasificaiones = ObjClasificaciones.DtResultados
+ 'End If
+ 'If Not DTClasificaiones.Rows.Count > 0 Then
+ ' ObjConta.Dispose()
+ ' Alert("Error a consultar clasificaciones.", TipoMensaje.MsgAdvertencia)
+ ' Exit Sub
+ 'End If
DTClasificaiones.CaseSensitive = False
For Each dRow As DataRow In dt.FiltraParametros(" LEN(Clasificacion) > 0 ").Rows
-
Dim Clasificacion As String = dRow("Clasificacion").ToString().Trim.Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
Dim Categoria As String = dRow("Categoria").ToString().Trim.Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
Dim UsoClasificacion As String = dRow("UsoClasificacion").ToString().Trim.ToUpper.Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
@@ -2448,12 +2422,8 @@ Partial Class General_SaldosIniciales
Dim CveClasificacion As Integer = -1
Dim CveUsoClasificacion As Integer = -1
Dim CveCategoria As Integer = -1
-
-
CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", $" Categoria = '{Categoria}' ").ToEntero()
-
-
If Not CveCategoria > 0 Then
CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToEntero()
If Not CveCategoria > 0 Then
@@ -2461,7 +2431,6 @@ Partial Class General_SaldosIniciales
ErrorProceso = True
Exit For
End If
-
End If
@@ -2503,34 +2472,24 @@ Partial Class General_SaldosIniciales
If ObjClasificaciones.AddClasificaciones(Clasificacion, "", CveCategoria, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, RequiereSerieLote:=0, UsoClasificacion:=CveUsoClasificacion,
CveSATPS:=-1, RequiereAFCompra:=False, RequiereAFInsumo:=False, RequierePersonal:=False, EsAcumulador:=False, TopVentas:=False, TopCompras:=False, PrecioBaseCosto:=-1) Then
-
CveClasificacion = ObjClasificaciones.CveClasificacion
-
If CveClasificacion > 0 Then
If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
DTClasificaiones = ObjClasificaciones.DtResultados
End If
Else
-
ErrorProceso = True
End If
-
-
-
Else
ErrorProceso = True
End If
Else
-
If Not ObjClasificaciones.UpdateClasificacion(Clasificacion, "-1", True, True, CveCategoria, UsuarioActual.CveUsuario, CveClasificacion, UsoClasificacion:=CveUsoClasificacion) Then
ErrorProceso = True
End If
-
End If
-
If Not ErrorProceso Then
-
If CveCuentaContableIngreso > 0 Then
If Not AsignacionCuenta(ObjConta, 4, CveCuentaContableIngreso, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveClasificacion, OpActualizarClasificacion:=True) Then
ErrorProceso = True
@@ -2546,22 +2505,16 @@ Partial Class General_SaldosIniciales
Exit For
End If
End If
-
End If
-
-
Contador = Contador + 1
Next
-
If Not ErrorProceso Then
ObjClasificaciones.Commit()
Alert($"Se agregaron {Contador} Clasificaciones.")
Else
ObjClasificaciones.RollBack()
End If
-
-
ObjClasificaciones.Dispose()
End Sub