diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index cee79706a..fb7d05ba2 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -740,7 +740,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim ObjInventarios As New ClsInventarios If ddlProveedor.SelectedValue.ToEntero > 0 Then If ObjInventarios.ComprasPendientesAlmacenGet(ddlProveedor.SelectedValue.ToEntero, MinFecha.ToShortDateString.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - Dim FiltroTemporal = " AND TipoDocto IN ('Fac','NC','DEV')" + Dim FiltroTemporal As String = " AND TipoDocto IN ('Fac','NC','DEV')" DdlFolio.DataSource = ObjInventarios.DtResultados.FiltraParametros($"CantOC >= 0 {FiltroTemporal}") Else Alert("Ocurrió un error al obtener las Compras pendientes de recibir del proveedor. Por favor vuelva a intentar", TipoMensaje.MsgError) @@ -1033,8 +1033,8 @@ Partial Class Inventarios_RecepcionAlmacen If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then Dim DtRecepcion As DataTable = ObjInventario.DtResultados.Copy() DtInv = DtRecepcion - Dim NumUsados = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero() - Dim NumProductos = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = False").ToEntero() + Dim NumUsados As Integer = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero() + Dim NumProductos As Integer = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = False").ToEntero() Dim CveSubProyecto As Integer ArchivoBitacora = String.Format("{0}Temp\RecepcionDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, pCveCompra) @@ -1405,9 +1405,8 @@ Partial Class Inventarios_RecepcionAlmacen GvInv.Columns(3).Visible = False GvInv.Columns(9).Visible = TmDT.SUM("CostoIndirecto") > 0 - Dim VariableCampo = If(TipoMovimiento.Contiene(1, 3), "CantidadF", "CantidadS") - - Dim Index = 1 + Dim VariableCampo As String = If(TipoMovimiento.Contiene(1, 3), "CantidadF", "CantidadS") + Dim Index As Integer = 1 For Each Dr As DataRow In TmDT.Rows Dr("PUExtranjero") = Dr("PU") Dr("CostoIndirectoExtranjero") = Dr("CostoIndirecto") @@ -2063,8 +2062,8 @@ Partial Class Inventarios_RecepcionAlmacen Exit Sub End If - Dim Row = DtDatosLoteDetalle.NewRow - Dim CantidadLote = TxtCantidadLote.Text.ToDecimal + Dim Row As DataRow = DtDatosLoteDetalle.NewRow + Dim CantidadLote As Decimal = TxtCantidadLote.Text.ToDecimal Dim MensajeSinExistencias As New StringBuilder Dim ObjInventarios As New ClsInventarios @@ -2180,14 +2179,14 @@ Partial Class Inventarios_RecepcionAlmacen 'VALIDA SI HUBO CAMBIOS EN LOS DETALLES COMPRA If CveCompraSurtir > 0 Then - Dim VariableCampo = If(TipoMovimiento.Contiene(1, 3), "CantidadF", "CantidadS") + Dim VariableCampo As String = If(TipoMovimiento.Contiene(1, 3), "CantidadF", "CantidadS") Dim ObjComprasDif As New ClsInventarios Dim DtDatosCompra As New DataTable If ObjComprasDif.RecepcionAlmacenGet(CveCompraSurtir, BuscaEntregaDirecta, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then DtDatosCompra = ObjComprasDif.DtResultados End If - Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal) - Dim CantConsulta = DtDatosCompra.SUM(VariableCampo) + Dim CantidadGV As Decimal = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal) + Dim CantConsulta As Decimal = DtDatosCompra.SUMD(VariableCampo) If Math.Abs(CantidadGV - CantConsulta) > 0.01 Then CargaCompra(CveCompraSurtir, -1) CargaPendientes() @@ -2200,14 +2199,14 @@ Partial Class Inventarios_RecepcionAlmacen 'VALIDA SI HUBO CAMBIOS EN LOS DETALLES OC If CveOCSurtir > 0 Then - Dim VariableCampo = If(TipoMovimiento = 1, "CantidadF", "CantidadS") + Dim VariableCampo As String = If(TipoMovimiento = 1, "CantidadF", "CantidadS") Dim ObjComprasDif As New ClsInventarios Dim DtDatosOC As New DataTable If ObjComprasDif.RecepcionAlmacenOCGet(CveOCSurtir, UsuarioActual.CveEmpresa) Then DtDatosOC = ObjComprasDif.DtResultados.FiltraParametros("CantidadCompra = 0") End If - Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal) - Dim CantConsulta = DtDatosOC.SUM(VariableCampo) + Dim CantidadGV As Decimal = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal) + Dim CantConsulta As Decimal = DtDatosOC.SUMD(VariableCampo) If Math.Abs(CantidadGV - CantConsulta) > 0.1 Then CargaOCPorSurtir(CveOCSurtir) Alert("Ha sido cambiada la información de existencias de la orden de compra actual, se han recargado la información.", TipoMensaje.MsgAdvertencia) @@ -2219,14 +2218,14 @@ Partial Class Inventarios_RecepcionAlmacen 'VALIDA SI HUBO CAMBIOS EN LOS DETALLES IMPORTACION If CveImportacionSurtir > 0 Then - Dim VariableCampo = If(TipoMovimiento = 1, "CantidadF", "CantidadS") + Dim VariableCampo As String = If(TipoMovimiento = 1, "CantidadF", "CantidadS") Dim ObjComprasDif As New ClsInventarios Dim DtDatosImportacion As New DataTable If ObjComprasDif.RecepcionAlmacenImportacionGet(CveImportacionSurtir, CveImportacionCompra, CveImportacionProveedor, UsuarioActual.CveEmpresa) Then DtDatosImportacion = ObjComprasDif.DtResultados End If - Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal) - Dim CantConsulta = DtDatosImportacion.SUM(VariableCampo) + Dim CantidadGV As Decimal = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal) + Dim CantConsulta As Decimal = DtDatosImportacion.SUMD(VariableCampo) If CantidadGV <> CantConsulta Then CargaImportacionSurtir(CveImportacionSurtir) Alert("Ha sido cambiada la información de existencias de la importación actual, se han recargado la información.", TipoMensaje.MsgAdvertencia) @@ -2238,14 +2237,14 @@ Partial Class Inventarios_RecepcionAlmacen 'VALIDA SI HUBO CAMBIOS EN LOS DETALLES FLETES If CveFleteSurtir > 0 Then - Dim VariableCampo = If(TipoMovimiento = 1, "CantidadF", "CantidadS") + Dim VariableCampo As String = If(TipoMovimiento = 1, "CantidadF", "CantidadS") Dim ObjComprasDif As New ClsInventarios Dim DtDatosImportacion As New DataTable If ObjComprasDif.RecepcionAlmacenFleteGet(CveFleteSurtir, CveFleteOrdenCompra, CveFleteCompra, UsuarioActual.CveEmpresa) Then DtDatosImportacion = ObjComprasDif.DtResultados End If - Dim CantidadGV = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal) - Dim CantConsulta = DtDatosImportacion.SUM(VariableCampo) + Dim CantidadGV As Decimal = GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal) + Dim CantConsulta As Decimal = DtDatosImportacion.SUMD(VariableCampo) If CantidadGV <> CantConsulta Then CargaFleteSurtir(CveFleteSurtir) Alert(String.Format("Ha sido cambiada la informacion de existencias costo indirecto actual, se han recargado la información.[{0}-{1}]", CantidadGV, CantConsulta), TipoMensaje.MsgAdvertencia) @@ -2258,7 +2257,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim ValidaSeccion As Boolean = False : Dim ValidaCaducidad As Boolean = False : Dim ValidaLote As Boolean = False 'PASA DATOS DEL GV A DATATABLE PARA MANEJOR CON FOR EACH - Dim Index = 0 + Dim Index As Integer = 0 For Each gvr As GridViewRow In GvInv.Rows If gvr.FCCheckBox("cbInv").Checked AndAlso gvr.FCTextBox("TbCantidadF").Text.ToDecimal > 0 Then DtInv.Rows(Index)("CantidadSurtidaPantalla") = gvr.FCTextBox("TbCantidadF").Text.ToDecimal @@ -2307,7 +2306,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim MensajeExistencias As New StringBuilder Dim ObjInventarios As New ClsInventarios For Each gvr As GridViewRow In GvInv.Rows - Dim ExistenciaActual = DtInv.SUM("CantidadSurtidaPantalla", $"CvePS = {gvr.DataKey("CvePS").ToEntero} AND CveUM = {gvr.DataKey("CveUM").ToEntero} ") + Dim ExistenciaActual As Decimal = DtInv.SUMD("CantidadSurtidaPantalla", $"CvePS = {gvr.DataKey("CvePS").ToEntero} AND CveUM = {gvr.DataKey("CveUM").ToEntero} ") If TipoMovimiento = 2 Then 'If gvr.DataKey("CantidadC").ToString.ToDecimal <> ExistenciaActual Then @@ -2321,7 +2320,7 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - Dim Existencia = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=(TxtFecha.Text & " " & Now.ToShortTimeString).ToDateTime.ToString("yyyy/MM/dd HH:mm")) + Dim Existencia As Decimal = ObjInventarios.GetExistenciasPS(gvr.DataKey("CvePS").ToEntero, gvr.DataKey("CveUM").ToEntero, UsuarioActual.CveEmpresa, DdlAlmacen.SelectedValue.ToEntero, FechaMovto:=(TxtFecha.Text & " " & Now.ToShortTimeString).ToDateTime.ToString("yyyy/MM/dd HH:mm")) If Existencia < ExistenciaActual Then MensajeExistencias.Append($"Producto: {GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=gvr.DataKey("CvePS").ToString.ToEntero).FiltroPrimeroValor("PSCodigo")}.
") Continue For @@ -2358,7 +2357,7 @@ Partial Class Inventarios_RecepcionAlmacen End Sub - Private Function GeneraPrePolizaSalidaEntregaDirecta(CveMovimiento As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, ByRef ObjContaContPAQ As ClsContPAQi, EsContabilizable As Boolean) As Boolean + Private Function GeneraPrePolizaSalidaEntregaDirecta(CveMovimiento As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, EsContabilizable As Boolean) As Boolean Dim Retorno As Boolean = True Try Dim DtCostos As DataTable = Nothing @@ -2382,8 +2381,8 @@ Partial Class Inventarios_RecepcionAlmacen If tmpCostos.Rows.Count > 0 Then Dim Concepto As String = ConceptoPoliza - Dim CvePrePoliza = ObjConta.AddPrePolizas("RecepAlm", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("RecepAlm", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim tCveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero Dim tCveConcepto As Integer = 69 For Each RowInv As DataRow In tmpCostos.Rows ValorInventario = DtCostos.SUMD("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").RoundSQL @@ -2397,7 +2396,7 @@ Partial Class Inventarios_RecepcionAlmacen Retorno = False End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") Retorno = False @@ -2413,12 +2412,7 @@ Partial Class Inventarios_RecepcionAlmacen End If If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - If ObjContaContPAQ Is Nothing Then - ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa) - ObjContaContPAQ.IniciaTransacSQL() - End If - - If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then + If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then Retorno = False End If End If @@ -2439,7 +2433,7 @@ Partial Class Inventarios_RecepcionAlmacen End Function - Private Function GeneraPrePolizaMovimientoAlmacen(CveMovimientoEntrada As Integer, CveMovimientoSalida As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, ByRef ObjContaContPAQ As ClsContPAQi, EsContabilizable As Boolean) As Boolean + Private Function GeneraPrePolizaMovimientoAlmacen(CveMovimientoEntrada As Integer, CveMovimientoSalida As Integer, ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, EsContabilizable As Boolean) As Boolean Dim Retorno As Boolean = True Try Dim DtCostos As DataTable = Nothing @@ -2462,8 +2456,8 @@ Partial Class Inventarios_RecepcionAlmacen Dim ConceptoPoliza As String = String.Format("{0}-{1}", "Salida de Almacen", SerieFolio) If tmpCostos.Rows.Count > 0 Then Dim Concepto As String = ConceptoPoliza - Dim CvePrePoliza = ObjConta.AddPrePolizas("RA-01", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) - Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero + Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("RA-01", 74, DtCostos.SUM("Total"), DtCostos.SUM("Total"), 1, TxtFecha.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim tCveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ValorInventario, ValorInventario, 68, Concepto, Concepto, CveVenta:=CveVenta, CveMovimientoAlmacen:=CveMovimientoEntrada, CveSubProyecto:=tCveSubProyecto, Contabilizable:=EsContabilizable) Then Retorno = False @@ -2473,7 +2467,7 @@ Partial Class Inventarios_RecepcionAlmacen Retorno = False End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") Retorno = False @@ -2489,12 +2483,7 @@ Partial Class Inventarios_RecepcionAlmacen End If If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - If ObjContaContPAQ Is Nothing Then - ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa) - ObjContaContPAQ.IniciaTransacSQL() - End If - - If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then + If Not ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then Retorno = False End If End If @@ -2518,14 +2507,11 @@ Partial Class Inventarios_RecepcionAlmacen Dim CveMovimiento As Integer Dim CveMovimientoOriginal As Integer - - 'Dim CveMovimientoS - Dim InvFolio As String = "" Dim FechaMovto As Date = TxtFecha.Text.ToDate Dim ErrorMovInv As Boolean - Dim MensajeError = "" + Dim MensajeError As String = "" Dim ObjInventario As New ClsInventarios @@ -2536,7 +2522,6 @@ Partial Class Inventarios_RecepcionAlmacen Dim ObjAcum As New ClsAcumuladores(ObjInventario.IniciaTransacSQL()) Dim ObjVentas As New ClsVentas(ObjInventario.IniciaTransacSQL()) Dim ObjContaAC As ClsContPAQi = Nothing - Dim ObjContaContPAQ As ClsContPAQi = Nothing Dim MensajeOC As New StringBuilder 'ENTREGA DIRECTA @@ -2562,8 +2547,8 @@ Partial Class Inventarios_RecepcionAlmacen Dim FolioSalidaTraspaso As String = "" 'CONTABILIDAD - Dim CvePrePoliza = -1 - Dim MensajeContabilidad = "" + Dim CvePrePoliza As Integer = -1 + Dim MensajeContabilidad As String = "" If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then @@ -2615,12 +2600,12 @@ Partial Class Inventarios_RecepcionAlmacen Dim SumaTotal As Decimal = 0.0D Dim Cont As Integer = 0 - Dim CveMovtoSalidaActual = -1 - Dim CveMovtoEntradaActual = -1 - Dim CveVendedorActual = -1 - Dim CveClienteActual = -1 + Dim CveMovtoSalidaActual As Integer = -1 + Dim CveMovtoEntradaActual As Integer = -1 + Dim CveVendedorActual As Integer = -1 + Dim CveClienteActual As Integer = -1 - Dim CveAlmacenDestino = CveAlmacenDevolucionProveedor + Dim CveAlmacenDestino As Integer = CveAlmacenDevolucionProveedor Dim CveSeccionDestino As Integer = -1 'For Each RowAlmacen As DataRow In DtAlmacenesDevolucion.FiltraParametros("", DistinctColumns:={"CveAlmacenOrignal"}).Rows @@ -2888,7 +2873,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim DtDetalleMovimiento As DataTable = Dt.FiltraParametros($"CveVenta={ObjFactura.CveVenta}") If ObjFactura.TipoDocto = "Ing" Then - Dim MovSalida = GenerarMovimientoAlmacenVenta(DdlAlmacen.SelectedValue.ToEntero(), 3, ObjFactura.CveVenta, CveMovimiento, DtDetalleMovimiento, ObjInventario, ObjConta, ObjContaContPAQ, EsContabilizable, "RA/G2") + Dim MovSalida As MMovimientoAlmacen = GenerarMovimientoAlmacenVenta(DdlAlmacen.SelectedValue.ToEntero(), 3, ObjFactura.CveVenta, CveMovimiento, DtDetalleMovimiento, ObjInventario, ObjConta, EsContabilizable, "RA/G2") ErrorMovInv = MovSalida.CveMovimiento <= 0 @@ -2898,7 +2883,7 @@ Partial Class Inventarios_RecepcionAlmacen End If ElseIf ObjFactura.TipoDocto = "Rem" Then - Dim MovSalidaExA = GenerarMovimientoAlmacenVenta(DdlAlmacen.SelectedValue.ToEntero(), 8, ObjFactura.CveVenta, -1, DtDetalleMovimiento, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R1") + Dim MovSalidaExA As MMovimientoAlmacen = GenerarMovimientoAlmacenVenta(DdlAlmacen.SelectedValue.ToEntero(), 8, ObjFactura.CveVenta, -1, DtDetalleMovimiento, ObjInventario, ObjConta, False, "RA/G2R1") ErrorMovInv = MovSalidaExA.CveMovimiento <= 0 @@ -2912,7 +2897,7 @@ Partial Class Inventarios_RecepcionAlmacen drr("CveSeccionAlmacen") = -3 Next - Dim MovEntradaExA = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 9, ObjFactura.CveVenta, MovSalidaExA.CveMovimiento, dttexa, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R2") + Dim MovEntradaExA As MMovimientoAlmacen = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 9, ObjFactura.CveVenta, MovSalidaExA.CveMovimiento, dttexa, ObjInventario, ObjConta, False, "RA/G2R2") ErrorMovInv = MovEntradaExA.CveMovimiento <= 0 @@ -2934,7 +2919,7 @@ Partial Class Inventarios_RecepcionAlmacen For Each DrFactura As DataRow In Dt.FiltraParametros("", DistinctColumns:={"CveVenta"}).Rows Dim dtSalidaFactura As DataTable = dttsalida.FiltraParametros($"CveVenta={DrFactura("CveVenta")}") - Dim MovSalidaDirectaExA = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 40, DrFactura("CveVenta").ToString().ToEntero(), MovEntradaExA.CveMovimiento, dtSalidaFactura, ObjInventario, ObjConta, ObjContaContPAQ, False, "RA/G2R3") + Dim MovSalidaDirectaExA As MMovimientoAlmacen = GenerarMovimientoAlmacenVenta(ObjFactura.CveAlmacenTraspasoDestino, 40, DrFactura("CveVenta").ToString().ToEntero(), MovEntradaExA.CveMovimiento, dtSalidaFactura, ObjInventario, ObjConta, False, "RA/G2R3") ErrorMovInv = MovSalidaDirectaExA.CveMovimiento <= 0 @@ -2970,12 +2955,12 @@ Partial Class Inventarios_RecepcionAlmacen If Apartado Then If ObjInventario.GetMovimientosDetalleVendedor(CveMovimiento) Then - Dim CveMovtoSalidaActual = -1 - Dim CveMovtoEntradaActual = -1 - Dim CveVendedorActual = -1 - Dim CveClienteActual = -1 + Dim CveMovtoSalidaActual As Integer = -1 + Dim CveMovtoEntradaActual As Integer = -1 + Dim CveVendedorActual As Integer = -1 + Dim CveClienteActual As Integer = -1 - Dim CveAlmacenDestino = CveAlmacenApartado + Dim CveAlmacenDestino As Integer = CveAlmacenApartado Dim CveSeccionDestino As Integer = -1 For Each Dr As DataRow In ObjInventario.DtResultados.Rows @@ -3016,7 +3001,7 @@ Partial Class Inventarios_RecepcionAlmacen If Not ErrorMovInv Then 'registra la prepóliza en el traspaso - If Not GeneraPrePolizaMovimientoAlmacen(CveMovtoEntradaActual, CveMovtoSalidaActual, ObjInventario, ObjConta, ObjContaContPAQ, False) Then + If Not GeneraPrePolizaMovimientoAlmacen(CveMovtoEntradaActual, CveMovtoSalidaActual, ObjInventario, ObjConta, False) Then ErrorMovInv = True End If End If @@ -3052,7 +3037,7 @@ Partial Class Inventarios_RecepcionAlmacen FolioVirtual = ObjInventario.Folio For Each RowUsado As DataRow In DtPSVirtual.Rows - Dim CvePS = RowUsado("CvePS").ToString().ToEntero() + Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero() Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal() Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal() Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() @@ -3071,7 +3056,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim tConcepto As String = String.Format("Entrada Virtual {0}", HLFolio.Text) Dim tReferencia As String = HLFolio.Text - Dim tCvePrePoliza = ObjConta.AddPrePolizas("Inv_RAlmVirtual", 74, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + Dim tCvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv_RAlmVirtual", 74, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) If tCvePrePoliza > 0 Then @@ -3096,7 +3081,7 @@ Partial Class Inventarios_RecepcionAlmacen If Not ErrorMovInv AndAlso UsuarioActual.Empresa.UsaAC AndAlso EsContabilizable Then Dim IDPoliza As Integer Dim TotalDetalle As Decimal = 0 - Dim TotalPorDevengar = 0.0 + Dim TotalPorDevengar As Decimal = 0 TotalPorDevengar += GvInv.Rows.Cast(Of GridViewRow)().Sum(Function(Gvr) Math.Round(Gvr.DataKey("PU").ToString.ToDecimal, 4) * Math.Round(Gvr.DataKey("CantidadF").ToString.ToDecimal, 4)) TotalPorDevengar = Math.Round(TotalPorDevengar, 4) If ObjContaAC Is Nothing Then @@ -3191,8 +3176,8 @@ Partial Class Inventarios_RecepcionAlmacen For Each Tam As DataRow In DtTamanios.Rows If Tam("CveTamaño").ToString() = GvRow.DataKey("CveTamaño") Then - Dim CvePSCargo = Tam("CvePSCargo").ToString().ToEntero() - Dim RowCompraDetalle = DtComprasDetalle.FiltroPrimero($"CvePS = {CvePSCargo}") + Dim CvePSCargo As Integer = Tam("CvePSCargo").ToString().ToEntero() + Dim RowCompraDetalle As DataRow = DtComprasDetalle.FiltroPrimero($"CvePS = {CvePSCargo}") If RowCompraDetalle IsNot Nothing Then Dim Row As DataRow = DtPSVirtual.NewRow() @@ -3216,7 +3201,7 @@ Partial Class Inventarios_RecepcionAlmacen FolioVirtual = ObjInventario.Folio For Each RowUsado As DataRow In DtPSVirtual.Rows - Dim CvePS = RowUsado("CvePS").ToString().ToEntero() + Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero() Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal() Dim PU As Decimal = RowUsado("PU").ToString().ToDecimal() Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() @@ -3268,7 +3253,7 @@ Partial Class Inventarios_RecepcionAlmacen FolioVirtual = ObjInventario.Folio For Each RowUsado As DataRow In DtPSVirtual.Rows - Dim CvePS = RowUsado("CvePS").ToString().ToEntero() + Dim CvePS As Integer = RowUsado("CvePS").ToString().ToEntero() Dim CantidadUsado As Decimal = RowUsado("Cantidad").ToString().ToDecimal() Dim PU As Decimal = RowUsado("Cargo").ToString().ToDecimal() Dim CveUM As Integer = RowUsado("CveUM").ToString().ToEntero() @@ -3357,9 +3342,9 @@ Partial Class Inventarios_RecepcionAlmacen Dim CveProveedor As Integer = -1 Dim ProveedorNombre As String = "" Dim SerieFolio As String = "" - Dim CveConceptoContableCosto = -1 - Dim CveConceptoContableCostoME = -1 - Dim CveConceptoContableCostoComplementaria = -1 + Dim CveConceptoContableCosto As Integer = -1 + Dim CveConceptoContableCostoME As Integer = -1 + Dim CveConceptoContableCostoComplementaria As Integer = -1 Dim UsaComplementariaFleteImportaciones As Boolean = False If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaFleteImportaciones = False @@ -3466,7 +3451,7 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") MensajeError = "El Movimiento presenta una diferencia en el registro." @@ -3494,11 +3479,7 @@ Partial Class Inventarios_RecepcionAlmacen End If If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - If ObjContaContPAQ Is Nothing Then - ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa) - ObjContaContPAQ.IniciaTransacSQL() - End If - If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then + If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then MensajeContabilidad = $"
Movimiento contabilizado en el folio: {ObjConta.ContaFolio}
" Else ErrorMovInv = True @@ -3524,7 +3505,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL Dim TotalNC As Decimal = 0 - Dim CveClasificacionDifCostoNC = -1 + Dim CveClasificacionDifCostoNC As Integer = -1 Dim tTipoCambio As Decimal = 1 If CveMoneda <> 1 Then tTipoCambio = TipoCambio @@ -3541,7 +3522,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim CveProveedor As Integer = -1 Dim ProveedorNombre As String = "" Dim SerieFolio As String = "" - Dim CveConceptoContableNC = -1 + Dim CveConceptoContableNC As Integer = -1 If DtCostos.Rows.Count > 0 Then If CveCompraSurtir > 0 Then @@ -3578,7 +3559,7 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Inventarios/RecepcionAlmacen-PPNC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") ErrorMovInv = True @@ -3606,9 +3587,8 @@ Partial Class Inventarios_RecepcionAlmacen End If If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then - ObjContaContPAQ = New ClsContPAQi(UsuarioActual.Empresa) - ObjContaContPAQ.IniciaTransacSQL() - If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaContPAQ) Then + + If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then MensajeContabilidad = $"
Movimiento contabilizado en el folio: {ObjConta.ContaFolio}
" Else ErrorMovInv = True @@ -3709,7 +3689,6 @@ Partial Class Inventarios_RecepcionAlmacen If Not ErrorMovInv Then ObjInventario.Commit() ' aplica los movimientos insertados If ObjContaAC IsNot Nothing Then ObjContaAC.Commit() - If ObjContaContPAQ IsNot Nothing Then ObjContaContPAQ.Commit() RegistraScript("playsonidito('beep-07.wav')") ' 'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC @@ -3750,14 +3729,14 @@ Partial Class Inventarios_RecepcionAlmacen Msg.AppendFormat("

Movimientos de control:
") If MovtosEntradaExA.Count > 0 Then - For index = 0 To MovtosEntradaExA.Count - 1 - link = String.Format("{1}", MovtosEntradaExA(index), FoliosEntradaExA(index)) + For ind As Integer = 0 To MovtosEntradaExA.Count - 1 + link = String.Format("{1}", MovtosEntradaExA(ind), FoliosEntradaExA(ind)) Msg.AppendFormat("
Movimiento de Entrada Folio: {0}", link) Next End If - For index = 0 To MovtosSalidaDirecta.Count - 1 - link = String.Format("{1}", MovtosSalidaDirecta(index), FoliosSalidaDirecta(index)) + For ind As Integer = 0 To MovtosSalidaDirecta.Count - 1 + link = String.Format("{1}", MovtosSalidaDirecta(ind), FoliosSalidaDirecta(ind)) Msg.AppendFormat("
Movimiento de Salida Folio: {0}", link) Next @@ -3767,10 +3746,10 @@ Partial Class Inventarios_RecepcionAlmacen 'APARTADO If MovtosSalida.Count > 0 Then Msg.AppendFormat("

Movimientos de control:
") - For index = 0 To MovtosSalida.Count - 1 - link = String.Format("{1}", MovtosSalida(index), FoliosSalida(index)) + For ind As Integer = 0 To MovtosSalida.Count - 1 + link = String.Format("{1}", MovtosSalida(ind), FoliosSalida(ind)) Msg.AppendFormat("
Movimiento de Salida por Traspaso: Folio: {0}", link) - link = String.Format("{1}", MovtosEntrada(index), FoliosEntrada(index)) + link = String.Format("{1}", MovtosEntrada(ind), FoliosEntrada(ind)) Msg.AppendFormat("
Movimiento de Entrada por Traspaso: Folio: {0}
", link) Next End If @@ -3797,7 +3776,6 @@ Partial Class Inventarios_RecepcionAlmacen Else ObjInventario.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() - If ObjContaContPAQ IsNot Nothing Then ObjContaContPAQ.RollBack() RegistraScript("playsonidito('142608__autistic-lucario__error.wav')") If Not String.IsNullOrEmpty(MensajeError) Then @@ -3807,10 +3785,9 @@ Partial Class Inventarios_RecepcionAlmacen ObjInventario.Dispose() If ObjContaAC IsNot Nothing Then ObjContaAC.Dispose() - If ObjContaContPAQ IsNot Nothing Then ObjContaContPAQ.Dispose() End Sub - Private Function GenerarMovimientoAlmacenVenta(CveAlmacen As Integer, CveConceptoAlmacen As Integer, CveVenta As Integer, CveMovimientoRelacionado As Integer, DtDetalle As DataTable, ObjInventario As ClsInventarios, ObjConta As ClsContabilidad, ObjContaContPAQ As ClsContPAQi, EsContabilizable As Boolean, Modulo As String) As MMovimientoAlmacen + Private Function GenerarMovimientoAlmacenVenta(CveAlmacen As Integer, CveConceptoAlmacen As Integer, CveVenta As Integer, CveMovimientoRelacionado As Integer, DtDetalle As DataTable, ObjInventario As ClsInventarios, ObjConta As ClsContabilidad, EsContabilizable As Boolean, Modulo As String) As MMovimientoAlmacen Dim ErrorMovInv As Boolean = False Dim Retorno As New MMovimientoAlmacen @@ -3836,7 +3813,7 @@ Partial Class Inventarios_RecepcionAlmacen End If If Not ErrorMovInv AndAlso CveConceptoAlmacen = 3 Then - If Not GeneraPrePolizaSalidaEntregaDirecta(CveMovtoSalidaDirecta, ObjInventario, ObjConta, ObjContaContPAQ, EsContabilizable) Then + If Not GeneraPrePolizaSalidaEntregaDirecta(CveMovtoSalidaDirecta, ObjInventario, ObjConta, EsContabilizable) Then ErrorMovInv = True End If End If @@ -3853,7 +3830,7 @@ Partial Class Inventarios_RecepcionAlmacen Dim InvFolio As String = "" Dim FechaMovto As Date = TxtFecha.Text.ToDate Dim ErrorMovInv As Boolean - Dim MensajeError = "" + Dim MensajeError As String = "" Dim ObjInventario As New ClsInventarios Dim ObjBitacora As New ClsOIEventos(ObjInventario.IniciaTransacSQL()) @@ -4027,7 +4004,7 @@ Partial Class Inventarios_RecepcionAlmacen End If End If - If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then + If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then If ObjConta.ValorPolizaDescuadre > 0 Then GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") ErrorMovInv = True @@ -4204,9 +4181,9 @@ Partial Class Inventarios_RecepcionAlmacen Private Sub CargaOC() 'OBTENE CveOC - Dim CveOC = -1 - Dim MensajeCompra = "" - Dim FolioOC = TxtOC.Text.Trim.ToEntero + Dim CveOC As Integer = -1 + Dim MensajeCompra As String = "" + Dim FolioOC As Integer = TxtOC.Text.Trim.ToEntero Dim ObjOC As New ClsOC If ObjOC.GetOrdenesCompraRep("OC", -1, -1, -1, -1, MinFecha, MaxFecha, -1, -1, FolioOC, -1, -1, UsuarioActual.CveEmpresa, -1) Then 'If ObjOC.DtResultados.FiltraParametros("TipoTermino = 3").Rows.Count = 1 Then @@ -4458,7 +4435,7 @@ Partial Class Inventarios_RecepcionAlmacen 'AGREGA - Dim Dr = DtBitacora.NewRow + Dim Dr As DataRow = DtBitacora.NewRow Dr("FechaIng") = Now Dr("FechaInicio") = "" Dr("Usuario") = UsuarioActual.Usuario @@ -4488,7 +4465,7 @@ Partial Class Inventarios_RecepcionAlmacen UPEventoBitacora.Update() End Sub Private Function GuardaBitacoraTemporal(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean - Dim Retorno = False + Dim Retorno As Boolean = False Dim Archivo As System.IO.FileInfo = Nothing For Each Dr As DataRow In DtBitacora.Rows @@ -5057,12 +5034,12 @@ Partial Class Inventarios_RecepcionAlmacen #End Region Private Function GuardaDocumentoBitacora(ObjEventoBitacora As ClsOIEventos, CveMovimiento As Integer) As Boolean - Dim Retorno = True + Dim Retorno As Boolean = True Dim Archivo As System.IO.FileInfo = Nothing Dim Filesgral As List(Of Archivo) = TxtDocumento.getfiles().Archivos - Dim archivoOriginal = Filesgral.FirstOrDefault() + Dim archivoOriginal As Archivo = Filesgral.FirstOrDefault() Dim Bitacora As String = "" If Not String.IsNullOrEmpty(TxtObservaciones.Text) Then