-- mejora
This commit is contained in:
@@ -294,21 +294,6 @@ Partial Class General_SaldosIniciales
|
|||||||
Exit Sub
|
Exit Sub
|
||||||
End If
|
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 RblFormato.SelectedValue = "4" Then
|
||||||
' If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
|
' If Not dt.Columns(15).ColumnName = "ImpuestoLocal" Then
|
||||||
' Alert("El nombre de la diesciseisava columna debe ser 'ImpuestoLocal'. Favor de corregirlo", TipoMensaje.MsgError)
|
' 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
|
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 Codigo As String = Row("Codigo").ToString()
|
||||||
Dim Descripcion As String = Row("Descripcion").ToString()
|
Dim Descripcion As String = Row("Descripcion").ToString()
|
||||||
Dim TipoPS As String = Row("Tipo").ToString().Trim.ToUpper
|
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"
|
#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 ErrorCompras As Boolean = False
|
||||||
|
Dim ObjConta As New ClsContabilidad(ObjCompras.IniciaTransacSQL())
|
||||||
Dim CveCompra As Integer
|
Dim CveCompra As Integer
|
||||||
Dim Contador As Integer = 0
|
Dim Contador As Integer = 0
|
||||||
Dim ExisteCompra As Boolean = False
|
Dim ExisteCompra As Boolean = False
|
||||||
@@ -1461,113 +1448,105 @@ Partial Class General_SaldosIniciales
|
|||||||
Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
Dim dtsubp As DataTable = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
|
||||||
|
|
||||||
For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
|
For Each Row As DataRow In dt.FiltraParametros("RFC <> ''").Rows
|
||||||
Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'")
|
Dim Sucursal As String = dtsubp.FiltroPrimeroValor("CveSubProyecto", $"SubProyecto = '{Row("Sucursal").ToString()}'")
|
||||||
RFC = Row("RFC").ToString().Trim
|
RFC = Row("RFC").ToString().Trim
|
||||||
Dim Serie As String = Row("Serie").ToString()
|
Dim Serie As String = Row("Serie").ToString()
|
||||||
Dim Folio As String = Row("Folio").ToString()
|
Dim Folio As String = Row("Folio").ToString()
|
||||||
Dim Fecha As Date = Row("Fecha").ToString().ToDate
|
Dim Fecha As Date = Row("Fecha").ToString().ToDate
|
||||||
Dim SubTotal As Decimal = Row("SubTotal").ToString().ToDecimal
|
Dim SubTotal As Decimal = Row("SubTotal").ToString().ToDecimal
|
||||||
Dim IVA As Decimal = Row("IVA").ToString().ToDecimal
|
Dim IVA As Decimal = Row("IVA").ToString().ToDecimal
|
||||||
Dim Total As Decimal = Row("Total").ToString().ToDecimal
|
Dim Total As Decimal = Row("Total").ToString().ToDecimal
|
||||||
Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
|
Dim Saldo As Decimal = Row("Saldo").ToString().ToDecimal
|
||||||
Dim TipoDocto As String = Row("Tipo Documento").ToString()
|
Dim TipoDocto As String = Row("Tipo Documento").ToString()
|
||||||
Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString().ToEntero()
|
Dim CveProveedor As Integer = DtProveedores.FiltroPrimeroValor("CveProveedor", $"RFC = '{RFC}'").ToString().ToEntero()
|
||||||
GuardaLog(Sucursal + " - " + Row("Sucursal").ToString())
|
GuardaLog(Sucursal + " - " + Row("Sucursal").ToString())
|
||||||
Dim RetIVA As Decimal = Row("Ret IVA").ToString().ToDecimal
|
Dim RetIVA As Decimal = Row("Ret IVA").ToString().ToDecimal
|
||||||
Dim RetISR As Decimal = Row("Ret ISR").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 IEPS As Decimal = If(dt.Columns.Contains("IEPS"), Row("IEPS").ToString(), "0").ToDecimal
|
||||||
Dim Moneda As String = Row("Moneda").ToString()
|
Dim Moneda As String = Row("Moneda").ToString()
|
||||||
Dim TipoCambio As String = If(dt.Columns.Contains("Tipo Cambio"), Row("Tipo Cambio").ToString(), "1")
|
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 FechaVencimiento As Date = Row("Fecha Vencimiento").ToString().ToDate
|
||||||
Dim CveMoneda As Integer = 1
|
Dim CveMoneda As Integer = 1
|
||||||
Dim CveProveedorSucursal As Integer = If(dt.Columns.Contains("CveProveedorSucursal"), Row("CveProveedorSucursal").ToString(), "0").ToEntero
|
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 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 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 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 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
|
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 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 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 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 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 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
|
'Si no se especifica TC, se manda como pesos.
|
||||||
Dim Transaccion As String = "" 'Row("Transaccion2").ToString()
|
If TipoCambio = "" Then TipoCambio = "1"
|
||||||
Dim Folio2 As String = "" 'Row("Folio2").ToString()
|
|
||||||
Dim CodProvee As String = "" 'Row("CodProvee2").ToString()
|
|
||||||
|
|
||||||
'Moneda
|
'PrePóliza
|
||||||
If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
|
Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Compras/SaldoInicial", 1, Total, Total, CveMoneda, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
|
||||||
CveMoneda = 1
|
If Not CvePrePoliza > 0 Then
|
||||||
ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then
|
ErrorCompras = True
|
||||||
CveMoneda = 2
|
Exit For
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'Si no se especifica TC, se manda como pesos.
|
If FechaVencimiento = "".ToDate Or FechaVencimiento < "1900/01/01".ToDate Then
|
||||||
If TipoCambio = "" Then TipoCambio = "1"
|
FechaVencimiento = Fecha
|
||||||
|
End If
|
||||||
|
|
||||||
'PrePóliza
|
'Compra
|
||||||
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
|
|
||||||
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,
|
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,
|
False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal,
|
||||||
NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then
|
NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total, CveSubProyecto:=CveSubProyecto) Then
|
||||||
ErrorCompras = True
|
ErrorCompras = True
|
||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
CveCompra = ObjCompras.CveCompra
|
CveCompra = ObjCompras.CveCompra
|
||||||
|
|
||||||
'Compra Detalle
|
'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
|
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
|
ErrorCompras = True
|
||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
Dim ConceptoContablePago As Integer = 17
|
Dim ConceptoContablePago As Integer = 17
|
||||||
If TipoDocto = "NC" Then ConceptoContablePago = 60
|
If TipoDocto = "NC" Then ConceptoContablePago = 60
|
||||||
|
|
||||||
'PrePólizaDetalle
|
'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, 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 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 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
|
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
|
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
|
||||||
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 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
|
'Saldo
|
||||||
If Saldo < Total Then
|
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
|
End If
|
||||||
Encontrados = Encontrados + 1
|
Encontrados = Encontrados + 1
|
||||||
|
|
||||||
Next
|
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 Not ErrorCompras Then
|
||||||
If Contador > 0 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)
|
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,9 +1557,11 @@ Partial Class General_SaldosIniciales
|
|||||||
ObjCompras.Commit()
|
ObjCompras.Commit()
|
||||||
TxtExcel.Text = ""
|
TxtExcel.Text = ""
|
||||||
UpDatos.Update()
|
UpDatos.Update()
|
||||||
'C L I E N T E S - F A C T U R A S
|
Else
|
||||||
End If
|
Alert(String.Format("NO Se agregaron: <b>{0}</b> Compras.", NumRows), TipoMensaje.MsgError)
|
||||||
ObjCompras.Dispose()
|
ObjCompras.RollBack()
|
||||||
|
End If
|
||||||
|
ObjCompras.Dispose()
|
||||||
|
|
||||||
#End Region
|
#End Region
|
||||||
|
|
||||||
@@ -2383,8 +2364,6 @@ Partial Class General_SaldosIniciales
|
|||||||
|
|
||||||
|
|
||||||
Dim ErrorProceso As Boolean = False
|
Dim ErrorProceso As Boolean = False
|
||||||
|
|
||||||
|
|
||||||
Dim SBMensajesCuentasNoEncontradas As New StringBuilder
|
Dim SBMensajesCuentasNoEncontradas As New StringBuilder
|
||||||
|
|
||||||
For Each dRow As DataRow In dt.FiltraParametros(" LEN(Clasificacion) > 0 ").Rows
|
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 ObjConta As New ClsContabilidad(ObjClasificaciones.IniciaTransacSQL)
|
||||||
|
|
||||||
Dim Contador As Integer = 0
|
Dim Contador As Integer = 0
|
||||||
|
|
||||||
|
|
||||||
Dim DTClasificaiones As New DataTable
|
Dim DTClasificaiones As New DataTable
|
||||||
|
|
||||||
If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
|
'If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
|
||||||
DTClasificaiones = ObjClasificaciones.DtResultados
|
' DTClasificaiones = ObjClasificaciones.DtResultados
|
||||||
End If
|
'End If
|
||||||
|
|
||||||
If Not DTClasificaiones.Rows.Count > 0 Then
|
|
||||||
ObjConta.Dispose()
|
|
||||||
Alert("Error a conusltar clasificaciones.", TipoMensaje.MsgAdvertencia)
|
|
||||||
Exit Sub
|
|
||||||
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
|
DTClasificaiones.CaseSensitive = False
|
||||||
|
|
||||||
For Each dRow As DataRow In dt.FiltraParametros(" LEN(Clasificacion) > 0 ").Rows
|
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 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 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, "")
|
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 CveClasificacion As Integer = -1
|
||||||
Dim CveUsoClasificacion As Integer = -1
|
Dim CveUsoClasificacion As Integer = -1
|
||||||
Dim CveCategoria As Integer = -1
|
Dim CveCategoria As Integer = -1
|
||||||
|
|
||||||
|
|
||||||
CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", $" Categoria = '{Categoria}' ").ToEntero()
|
CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", $" Categoria = '{Categoria}' ").ToEntero()
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
If Not CveCategoria > 0 Then
|
If Not CveCategoria > 0 Then
|
||||||
CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToEntero()
|
CveCategoria = GlobalDTGralCategorias(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCategoria", "").ToEntero()
|
||||||
If Not CveCategoria > 0 Then
|
If Not CveCategoria > 0 Then
|
||||||
@@ -2461,7 +2431,6 @@ Partial Class General_SaldosIniciales
|
|||||||
ErrorProceso = True
|
ErrorProceso = True
|
||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
|
|
||||||
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,
|
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
|
CveSATPS:=-1, RequiereAFCompra:=False, RequiereAFInsumo:=False, RequierePersonal:=False, EsAcumulador:=False, TopVentas:=False, TopCompras:=False, PrecioBaseCosto:=-1) Then
|
||||||
|
|
||||||
CveClasificacion = ObjClasificaciones.CveClasificacion
|
CveClasificacion = ObjClasificaciones.CveClasificacion
|
||||||
|
|
||||||
If CveClasificacion > 0 Then
|
If CveClasificacion > 0 Then
|
||||||
If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
|
If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
|
||||||
DTClasificaiones = ObjClasificaciones.DtResultados
|
DTClasificaiones = ObjClasificaciones.DtResultados
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
|
|
||||||
ErrorProceso = True
|
ErrorProceso = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Else
|
Else
|
||||||
ErrorProceso = True
|
ErrorProceso = True
|
||||||
End If
|
End If
|
||||||
Else
|
Else
|
||||||
|
|
||||||
If Not ObjClasificaciones.UpdateClasificacion(Clasificacion, "-1", True, True, CveCategoria, UsuarioActual.CveUsuario, CveClasificacion, UsoClasificacion:=CveUsoClasificacion) Then
|
If Not ObjClasificaciones.UpdateClasificacion(Clasificacion, "-1", True, True, CveCategoria, UsuarioActual.CveUsuario, CveClasificacion, UsoClasificacion:=CveUsoClasificacion) Then
|
||||||
ErrorProceso = True
|
ErrorProceso = True
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
If Not ErrorProceso Then
|
If Not ErrorProceso Then
|
||||||
|
|
||||||
If CveCuentaContableIngreso > 0 Then
|
If CveCuentaContableIngreso > 0 Then
|
||||||
If Not AsignacionCuenta(ObjConta, 4, CveCuentaContableIngreso, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveClasificacion, OpActualizarClasificacion:=True) Then
|
If Not AsignacionCuenta(ObjConta, 4, CveCuentaContableIngreso, -1, -1, -1, -1, UsuarioActual.CveEmpresa, CveClasificacion, OpActualizarClasificacion:=True) Then
|
||||||
ErrorProceso = True
|
ErrorProceso = True
|
||||||
@@ -2546,22 +2505,16 @@ Partial Class General_SaldosIniciales
|
|||||||
Exit For
|
Exit For
|
||||||
End If
|
End If
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Contador = Contador + 1
|
Contador = Contador + 1
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|
||||||
If Not ErrorProceso Then
|
If Not ErrorProceso Then
|
||||||
ObjClasificaciones.Commit()
|
ObjClasificaciones.Commit()
|
||||||
Alert($"Se agregaron {Contador} Clasificaciones.")
|
Alert($"Se agregaron {Contador} Clasificaciones.")
|
||||||
Else
|
Else
|
||||||
ObjClasificaciones.RollBack()
|
ObjClasificaciones.RollBack()
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
ObjClasificaciones.Dispose()
|
ObjClasificaciones.Dispose()
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|||||||
Reference in New Issue
Block a user