diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index c1f2e0bf7..3d8ea68b8 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -619,7 +619,7 @@ Public Class CFDIComplementoPago TRetenciones = tRetorno.GroupBy(Function(t) New With {Key t.Impuesto}) _ .Select(Function(t) New CFDIRetenciones With {.Impuesto = t.Key.Impuesto, .Importe = t.Sum(Function(tt) tt.Importe), - .ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _ + .ImporteMN = t.Sum(Function(tt) tt.ImporteMN).TruncateDecimal}) _ .OrderBy(Function(x) x.Impuesto).ToList End If @@ -640,7 +640,7 @@ Public Class CFDIComplementoPago End If Next Next - 'ya generado todos los registros posibles, los agrupo y los sumo + 'ya generado todos los registros posibles, los agrupo y los sumo If tRetorno.Count > 0 Then TTraslados = tRetorno.GroupBy(Function(t) New With {Key t.TipoFactor, Key t.Impuesto, Key t.TasaOCuota}) _ .Select(Function(t) New CFDITraslados With {.Impuesto = t.Key.Impuesto, @@ -648,7 +648,7 @@ Public Class CFDIComplementoPago .TasaOCuota = t.Key.TasaOCuota, .Base = t.Sum(Function(tt) tt.Base), .Importe = t.Sum(Function(tt) tt.Importe), - .BaseMN = t.Sum(Function(tt) tt.BaseMN), + .BaseMN = t.Sum(Function(tt) tt.BaseMN).TruncateDecimal, '' se trunca solo al final, NO EN EL DESGLOSE .ImporteMN = t.Sum(Function(tt) tt.ImporteMN)}) _ .OrderBy(Function(x) x.Impuesto).ToList diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 179dee26f..65340c487 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -773,8 +773,6 @@ Public Class ClsBancos BancoNumCuentaMoneda = Data.Rows(0)("BancoNumCuentaMoneda").ToString IdCtaContable = Data.Rows(0)("IdCtaContable").ToString.ToEntero IdCtaContableComplementaria = Data.Rows(0)("IdCtaContableComplementaria").ToString.ToEntero - CveCuentaConta = Data.Rows(0)("IdCtaContableSIG").ToString.ToEntero - CveCuentaContaComplementaria = Data.Rows(0)("IdCtaContableComplementariaSIG").ToString.ToEntero CveCuentaDeposito = Data.Rows(0)("CveCuentaDeposito").ToString.ToEntero DepositoBanco = Data.Rows(0)("DepositoBanco").ToString DepositoCuenta = Data.Rows(0)("DepositoCuenta").ToString diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index cde50be93..426551bb0 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -63,6 +63,8 @@ Public Class ClsInventarios Public Property FolioRelacionado As Integer Public Property TieneRelacionado As Integer Public Property ConceptoRelacionado As String + Public Property CveMovimientoVirtual As Integer + Public Property FolioVirtual As Integer Public Property Folio As Integer Public Property IDPoliza As Integer Public Property CvePrePoliza As Integer @@ -826,6 +828,9 @@ Public Class ClsInventarios FolioRelacionado = dr("FolioRelacionado").ToString.ToEntero TieneRelacionado = If(dr("TieneRelacionado").ToString.ToEntero > 0, 1, -1) ConceptoRelacionado = dr("ConceptoRelacionado").ToString + CveMovimientoVirtual = dr("CveMovimientoVirtual").ToString.ToEntero + FolioVirtual = dr("FolioVirtual").ToString.ToEntero + TipoCambio = dr("TipoCambio").ToString.ToDouble FolioVenta = dr("FolioVenta").ToString CveOrdenCompra = dr("CveOrdenCompra").ToString.ToEntero diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index e60e23e27..5557cc9c2 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -2213,11 +2213,12 @@ Namespace Modelos End Function - Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios) As Integer + Private Function CancelarInventarioUsado(factura As Modelos.Factura, CveAlmacenUsado As Integer, CveMovimientoEntrada As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad) As Integer Dim CveMovimiento As Integer = -1 Try Dim CveConceptoSalidaUsado As Integer = 45 - CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenUsado, CveConceptoSalidaUsado, 1, Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, + Dim tFecha As DateTime = Now + CveMovimiento = ObjInventario.AddMovimiento(CveAlmacenUsado, CveConceptoSalidaUsado, 1, tFecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta, factura.CveSubProyecto, CveActivoFijo:=-1, Guia:="", Observaciones:="", CvePersonal:=-1, CveCliente:=factura.CveCliente, CveClienteSucursal:=-1, Modulo:="M/CU") If CveMovimiento <= 0 Then CveMovimiento = -1 @@ -2229,11 +2230,34 @@ Namespace Modelos If DtMovimientosEntrada IsNot Nothing Then For Each Dr As DataRow In DtMovimientosEntrada.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimiento, Dr("Cantidad").ToString.ToDecimal, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, CveAF:=Dr("CveAF").ToString.ToEntero, Serie:=Dr("Serie").ToString, Lote:=Dr("Lote").ToString, FechaCaducidad:=Dr("FechaCaducidad").ToString.ToDate, Observaciones:=Dr("Observaciones").ToString, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), CveUsuarioModifico:=UsuarioActual.CveUsuario) Then CveMovimiento = -1 Exit For End If Next + + If CveMovimiento > 0 Then + Dim Concepto As String = "Cancelación Usado" & factura.SerieFolio + Dim CvePrePoliza = ObjConta.AddPrePolizas("Mod/CancSalUsados", 74, DtMovimientosEntrada.SUMD("Total"), DtMovimientosEntrada.SUMD("Total"), 1, tFecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero + Dim tCveConcepto As Integer = 278 + Dim ValorInventario As Decimal = 0 + Dim MovAlmacen As Boolean = False 'debe quedar como el anterior, pero negativo + + For Each RowInv As DataRow In DtMovimientosEntrada.Rows + ValorInventario = DtMovimientosEntrada.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL + + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, -ValorInventario, Concepto, tCveConcepto, Concepto, -1, CveVenta:=CveVenta, CveClasificacion:=RowInv("CveClasificacion").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=-ValorInventario, CveSubProyecto:=tCveSubProyecto) Then + CveMovimiento = -1 + Exit For + End If + Next + + If CveMovimiento > 0 AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, -DtMovimientosEntrada.SUMD("Total").RoundSQL, Concepto, 68, Concepto, -1, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=-DtMovimientosEntrada.SUMD("Total").RoundSQL) Then + CveMovimiento = -1 + End If + End If + DtMovimientosEntrada.Dispose() DtMovimientosEntrada = Nothing End If @@ -2470,7 +2494,7 @@ Namespace Modelos Dim TipoMovto68 = TipoMovimiento 'SI ES CANCELACION DEBE GENERAR EL MOVIMIENTO DE SALIDA DE USADOS If ValorMultiplicador = -1 Then - CveMovimientoReferencia = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario) + CveMovimientoReferencia = CancelarInventarioUsado(ObjFactura, CveAlmacen, CveMovimiento, ObjInventario, ObjConta) Else CveMovimientoReferencia = CveMovimiento End If @@ -5585,7 +5609,7 @@ Namespace Modelos End If If Not ErrorCancelar AndAlso CveMovimientoUsado > 0 AndAlso SaldoAlmacenUsados <> 0 Then - If CancelarInventarioUsado(ObjRemision, CveAlmacenUsado, CveMovimientoUsado, ObjInventario) <= 0 Then + If CancelarInventarioUsado(ObjRemision, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta) <= 0 Then ErrorCancelar = True MensajeError = "Ocurrió un error al cancelar los usados. Por favor vuelva a intentar." End If @@ -5691,7 +5715,7 @@ Namespace Modelos 'CANCELAR MOVIMIENTOS DE USADOS SI TIENE If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not ErrorCancelar AndAlso CveMovimientoUsado > 0 AndAlso SaldoAlmacenUsados <> 0 Then - If CancelarInventarioUsado(ObjFactura, CveAlmacenUsado, CveMovimientoUsado, ObjInventario) <= 0 Then + If CancelarInventarioUsado(ObjFactura, CveAlmacenUsado, CveMovimientoUsado, ObjInventario, ObjConta) <= 0 Then ErrorCancelar = True MensajeError = "Ocurrió un error al cancelar los movimientos de usados." End If diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 94e8e4207..8c9a35137 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -1166,8 +1166,8 @@ Public Class Timbrado .TasaOCuota = drp("PorcentajeImpuesto").ToString().ToDecimal, .Impuesto = drp("TipoImpuesto").ToString, .Importe = drp("Importe").ToString().ToDecimal.RoundSQL, - .BaseMN = Math.Round((drp("Base").ToString.ToDecimal / Equivalencia), 2), - .ImporteMN = Math.Round((drp("Importe").ToString.ToDecimal / Equivalencia), 2) + .BaseMN = (drp("Base").ToString.ToDecimal / Equivalencia).RoundSQL(6), + .ImporteMN = (drp("Importe").ToString.ToDecimal / Equivalencia).RoundSQL(6) } ) diff --git a/Bancos/DepositoTerminal.aspx.vb b/Bancos/DepositoTerminal.aspx.vb index 2c0a54b49..d1c1b01fc 100644 --- a/Bancos/DepositoTerminal.aspx.vb +++ b/Bancos/DepositoTerminal.aspx.vb @@ -29,23 +29,7 @@ Partial Class Bancos_DepositoTerminal Set(value As Integer) ViewState("IdCuentaBancariaComplementaria") = value End Set - End Property - Private Property CveCuentaBancaria As Integer - Get - Return ViewState("CveCuentaBancaria").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveCuentaBancaria") = value - End Set - End Property - Private Property CveCuentaBancariaComplementaria As Integer - Get - Return ViewState("CveCuentaBancariaComplementaria").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveCuentaBancariaComplementaria") = value - End Set - End Property + End Property Private Property IdCuentaCliente As Integer Get Return ViewState("IdCuentaCliente").ToString.ToEntero @@ -154,9 +138,6 @@ Partial Class Bancos_DepositoTerminal If dr IsNot Nothing Then IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero - - CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero - CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero Else IdCuentaBancaria = 0 IdCuentaBancariaComplementaria = 0 @@ -258,9 +239,8 @@ Partial Class Bancos_DepositoTerminal Dim tipoCambioVenta As Decimal Dim tipoCambioActual As Decimal Dim tipoCambioManual As Decimal - Dim CuentasContablesInvalidas As New StringBuilder - Dim CuentasContablesInvalidasSIG As New StringBuilder - + Dim CuentasContablesInvalidas As New StringBuilder + If ObjContabilidad.GetPlantillaConceptos(UsuarioActual.CveEmpresa, CvePlantillaPoliza) Then dtConceptos = ObjContabilidad.DtResultados End If @@ -455,7 +435,7 @@ Partial Class Bancos_DepositoTerminal End If Next - If IdCuentaBancariaComplementaria > 0 OrElse CveCuentaBancariaComplementaria > 0 Then + If IdCuentaBancariaComplementaria > 0 Then If Not ObjContabilidad.AddPrePolizasDetalle(NuevaCvePrePoliza, False, TxtImporte.Text.ToDecimal, "", 30, "", TxtFecha.Text.ToDate, IdCuentaBancaria, -1, CveIE, -1, -1, -1, -1, ImporteMX:=TxtImporte.Text.ToDecimal, CveCuenta:=CveCuentaBancaria) Then MsgError = "No se pudo insertar la póliza" End If diff --git a/Bancos/DepositosCaja.aspx.vb b/Bancos/DepositosCaja.aspx.vb index aa9da1968..97b6df623 100644 --- a/Bancos/DepositosCaja.aspx.vb +++ b/Bancos/DepositosCaja.aspx.vb @@ -194,8 +194,7 @@ Partial Class Bancos_DepositosCaja Dim Fecha As Date = TxtFecha.Text.ToDate Dim IdCuentaBancariaOrigen As Integer = 0 Dim IdCuentaBancariaDestino As Integer = 0 - Dim CveCuentaBancariaOrigen As Integer = 0 - Dim CveCuentaBancariaDestino As Integer = 0 + Dim CveCuentaBancariaOrigen As Integer = 0 Dim drOrigen As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCajaChica.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim drDestino As DataRow = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveCuenta:=DdlCuentaDeposito.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim CveSubProyecto As Integer = DdlSubProyectos.SelectedValue.ToEntero @@ -215,14 +214,12 @@ Partial Class Bancos_DepositosCaja If drOrigen IsNot Nothing Then CveMoneda = drOrigen("CveMoneda").ToString.ToEntero - IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero - CveCuentaBancariaOrigen = drOrigen("IdCtaContableSIG").ToString.ToEntero + IdCuentaBancariaOrigen = drOrigen("IdCtaContable").ToString.ToEntero End If If drDestino IsNot Nothing Then CveMoneda = drDestino("CveMoneda").ToString.ToEntero - IdCuentaBancariaDestino = drDestino("IdCtaContable").ToString.ToEntero - CveCuentaBancariaDestino = drDestino("IdCtaContableSIG").ToString.ToEntero + IdCuentaBancariaDestino = drDestino("IdCtaContable").ToString.ToEntero End If NuevaCvePrePoliza = ObjContabilidad.AddPrePolizas("DepCaja", 13, TotalImportePrePoliza, TotalImportePrePoliza, CveMoneda, Fecha, "Depósito Bancario", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=1) diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb index 05aaf5ef2..0ee519115 100644 --- a/Bancos/PopIEVentas.aspx.vb +++ b/Bancos/PopIEVentas.aspx.vb @@ -1060,7 +1060,6 @@ Partial Class Bancos_PopIEVentas IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero - CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero If dr("UsaTarjeta").ToString = "True" Then CargaGridTarjetas() diff --git a/Bancos/RegistroPagoIntermediario.aspx.vb b/Bancos/RegistroPagoIntermediario.aspx.vb index e5a3caf42..9a0407f84 100644 --- a/Bancos/RegistroPagoIntermediario.aspx.vb +++ b/Bancos/RegistroPagoIntermediario.aspx.vb @@ -22,14 +22,6 @@ Partial Class Bancos_PagosIntermediarios ViewState("IdCuentaBancaria") = value End Set End Property - Private Property CveCuentaBancaria As Integer - Get - Return ViewState("CveCuentaBancaria").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveCuentaBancaria") = value - End Set - End Property Private Property CveMoneda As Integer Get Return ViewState("CveMoneda").ToString.ToEntero @@ -89,7 +81,6 @@ Partial Class Bancos_PagosIntermediarios If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero - CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero End If If UsuarioActual.Empresa.Funcionalidad(505) <> "1" Then @@ -215,7 +206,7 @@ Partial Class Bancos_PagosIntermediarios End If Next - If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtTotalBancos.Text.ToDecimal, ConceptoMovimientoBancos, 30, ConceptoMovimientoBancos, FechaMovimiento, IdCuentaBancaria, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=TxtTotalBancos.Text.ToDecimal * tipoCambio, CveCuenta:=CveCuentaBancaria) Then + If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, TxtTotalBancos.Text.ToDecimal, ConceptoMovimientoBancos, 30, ConceptoMovimientoBancos, FechaMovimiento, IdCuentaBancaria, -1, CveIE, -1, -1, -1, CveCliente, ImporteMX:=TxtTotalBancos.Text.ToDecimal * tipoCambio) Then MsgError = "No se pudo insertar la póliza" End If diff --git a/Bancos/Transferencias.aspx.vb b/Bancos/Transferencias.aspx.vb index adcf61749..cc60528a8 100644 --- a/Bancos/Transferencias.aspx.vb +++ b/Bancos/Transferencias.aspx.vb @@ -330,12 +330,10 @@ Partial Class Bancos_Transferencias If RowCuentaOrigen IsNot Nothing Then IdCtaContableOrigen = RowCuentaOrigen("IdCtaContable").ToString.ToEntero IDCtaContableComplementariaOrigen = RowCuentaOrigen("IDCtaContableComplementaria").ToString.ToEntero - CveCuentaOrigen = RowCuentaOrigen("IdCtaContableSIG").ToString.ToEntero End If If RowCuentaDestino IsNot Nothing Then IdCtaContableDestino = RowCuentaDestino("IdCtaContable").ToString.ToEntero IDCtaContableComplementariaDestino = RowCuentaDestino("IDCtaContableComplementaria").ToString.ToEntero - CveCuentaDestino = RowCuentaDestino("IdCtaContableSIG").ToString.ToEntero End If 'Conta ContPAQ diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 2ee14cea3..86232be4d 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -385,14 +385,6 @@ Partial Class Compras_Compras ViewState("IdCuentaBancaria") = value End Set End Property - Private Property CveCuentaBancaria As Integer - Get - Return ViewState("CveCuentaBancaria").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveCuentaBancaria") = value - End Set - End Property Private Property IdCuentaBancariaComplementaria As Integer Get Return ViewState("IdCuentaBancariaComplementaria").ToString.ToEntero @@ -401,14 +393,6 @@ Partial Class Compras_Compras ViewState("IdCuentaBancariaComplementaria") = value End Set End Property - Private Property CveCuentaBancariaComplementaria As Integer - Get - Return ViewState("CveCuentaBancariaComplementaria").ToString.ToEntero - End Get - Set(value As Integer) - ViewState("CveCuentaBancariaComplementaria") = value - End Set - End Property Private Property IvaAcumulado As Double Get Return ViewState("IvaAcumulado").ToString.ToDouble @@ -1210,11 +1194,9 @@ Partial Class Compras_Compras CompraSaldo = 0 ViewState("CvePersonal") = -1 IdCuentaBancaria = 0 - CveCuentaBancaria = 0 End If IdCuentaBancariaComplementaria = 0 - CveCuentaBancariaComplementaria = 0 'If UsuarioActual.TienePermisoProceso(259) Then DivEsNoDeducible.Visible = True @@ -12871,9 +12853,7 @@ Partial Class Compras_Compras If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero - CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero IdCuentaBancariaComplementaria = dr("IdCtaContableComplementaria").ToString.ToEntero - CveCuentaBancariaComplementaria = dr("IdCtaContableComplementariaSIG").ToString.ToEntero If dr("UsaTarjeta").ToString = "True" Then CargaGridTarjetas() Else @@ -12898,7 +12878,6 @@ Partial Class Compras_Compras If dr IsNot Nothing Then CveMoneda = dr("CveMoneda").ToString.ToEntero IdCuentaBancaria = dr("IdCtaContable").ToString.ToEntero - CveCuentaBancaria = dr("IdCtaContableSIG").ToString.ToEntero EstaAsociadoACajaChica = True End If diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 3c9bf20ce..0b6f58bdc 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -529,7 +529,7 @@ Partial Class Compras_ReembolsosComprobaciones CvePrePolizaIERegistrado = ObjMov.AddPrePolizas("Compras/Comprobaciones2", 9, TxtImporteVinculado.Text.ToDecimal, TxtImporteVinculado.Text.ToDecimal, CveMoneda, TxtFechaPrePoliza.Text.ToDate, If(TxtObservaciones.Text.Trim = "", concepto, TxtObservaciones.Text.Trim), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) IdPoliza = drp("IdPoliza").ToString.ToEntero Else - If UsuarioActual.CveEmpresa = 141 Then + If UsuarioActual.CveEmpresa = 141 AndAlso CvePrePolizaComprobacion > 0 Then CvePrePolizaIERegistrado = CvePrePolizaComprobacion Else CvePrePolizaIERegistrado = drp("CvePrePoliza").ToString.ToEntero @@ -1197,21 +1197,20 @@ Partial Class Compras_ReembolsosComprobaciones MsgError = "No se pudo simplificar los movimientos" Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) End If - If Not ObjMov.PrePolizaSimplificacion(CvePrePolizaExcedente, UsuarioActual.CveEmpresa) Then + If MsgError = "" AndAlso CvePrePolizaExcedente > 0 AndAlso Not ObjMov.PrePolizaSimplificacion(CvePrePolizaExcedente, UsuarioActual.CveEmpresa) Then MsgError = "No se pudo simplificar los movimientos" Alert("No se pudo simplificar los movimientos", TipoMensaje.MsgError) End If End If - - If ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaPago, 1) Then + If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaPago, 1) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Compras/ReembolsosComprobaciones | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaPago}", "LogPrePolizas") MsgError = ObjMov.MensajePolizaDescuadre End If End If - If ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaExcedente, 1) Then + If MsgError = "" AndAlso CvePrePolizaExcedente > 0 AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePolizaExcedente, 1) Then If ObjMov.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Compras/ReembolsosComprobaciones | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePolizaExcedente}", "LogPrePolizas") MsgError = ObjMov.MensajePolizaDescuadre diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index b53659ecd..956080209 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -1713,14 +1713,14 @@ Partial Class General_SaldosIniciales Dim TipoMovto As Boolean = If(Row("Cargo").ToString.ToDecimal <> 0, False, True) Dim YaExiste As Boolean = False Dim DataTemp As DataTable - + Dim Afectable As Boolean = False Cuenta = Cuenta.Replace(" ", "") - If ObjConta.GetCuentas(-1, Cuenta.Replace("-", "").Trim, 1, UsuarioActual.CveEmpresa) Then + If ObjConta.GetCuentas(-1, Cuenta.Replace("-", "").Trim, -1, UsuarioActual.CveEmpresa) Then If ObjConta.DtResultados.Rows.Count > 0 Then IdCuenta = ObjConta.DtResultados().FiltroPrimeroValor("CveCuenta").ToEntero - 'TipoCuenta = ObjConta.DtResultados().FiltroPrimeroValor("Tipo") + Afectable = ObjConta.DtResultados().FiltroPrimeroValor("Afectable") = "True" Else Reporte.AppendLine($"{Cuenta} - {NombreCuenta} - {Importe}
") TieneError = True @@ -1747,7 +1747,7 @@ Partial Class General_SaldosIniciales ' CargoAbono = False 'End If - If YaExiste = False Then + If YaExiste = False AndAlso Afectable Then If IdCuenta > 0 Then If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, "", 95, Concepto, Now.ToDate, -1, -1, ImporteMX:=Importe, CveSubProyecto:=CveSubProyecto, CveCuenta:=IdCuenta) Then TieneError = True diff --git a/Inventarios/CartaPorteManual.aspx b/Inventarios/CartaPorteManual.aspx index da661ee9e..75ba3ee43 100644 --- a/Inventarios/CartaPorteManual.aspx +++ b/Inventarios/CartaPorteManual.aspx @@ -170,7 +170,7 @@
- +
@@ -205,7 +205,7 @@ diff --git a/Inventarios/CartaPorteManual.aspx.vb b/Inventarios/CartaPorteManual.aspx.vb index 35b0da212..6369d50dd 100644 --- a/Inventarios/CartaPorteManual.aspx.vb +++ b/Inventarios/CartaPorteManual.aspx.vb @@ -294,8 +294,10 @@ Partial Class Inventarios_CartaPorteManual Private Sub CargaCombos() - CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="") + 'CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto, AplicaTodos:="") + DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros("EsSucursal = True ") + DdlSubProyecto.DataBind() DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione Uno", "-1")) DdlChofer.DataSource = GlobalDTChoferes(UsuarioActual.CveEmpresa) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 6a4835610..caa056712 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -185,53 +185,7 @@ - - -
- -
- -
- -
-
- -
- -
- - - - - -
-
-
-
- -
- -
- -
-
-
- -
- -
- -
- - -
- -
-
+
@@ -277,6 +231,49 @@
+
+
+ +
+ +
+
+ +
+ +
+ + + + + +
+
+
+ +
+ +
+ +
+
+ +
+ +
+ +
+ + +
+ +
+
+
@@ -286,8 +283,8 @@
-
-
+ +
@@ -300,9 +297,9 @@ <%----%>
+
-
- +
-
- +