-- mejora
This commit is contained in:
@@ -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
|
||||
@@ -1495,8 +1482,6 @@ Partial Class General_SaldosIniciales
|
||||
|
||||
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()
|
||||
@@ -1522,6 +1507,8 @@ Partial Class General_SaldosIniciales
|
||||
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
|
||||
@@ -1546,8 +1533,6 @@ Partial Class General_SaldosIniciales
|
||||
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 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
|
||||
@@ -1556,18 +1541,12 @@ Partial Class General_SaldosIniciales
|
||||
|
||||
'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: <b>{0}</b> Compras correctamente.<br>Se Omitieron: <b>{1}</b> Compras ya que ya se encuentran registradas.", NumRows - Contador, Contador), TipoMensaje.MsgInformacion)
|
||||
@@ -1578,7 +1557,9 @@ 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
|
||||
Else
|
||||
Alert(String.Format("NO Se agregaron: <b>{0}</b> Compras.", NumRows), TipoMensaje.MsgError)
|
||||
ObjCompras.RollBack()
|
||||
End If
|
||||
ObjCompras.Dispose()
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user