diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index e57a4b2d6..f55a1f55e 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -3,11 +3,9 @@ Option Explicit On Imports System.Data Imports System.IO -Imports System.Text Imports Extensiones Imports GemBox.Spreadsheet Imports Microsoft.Reporting.WebForms -Imports Org.BouncyCastle.Asn1.X509 Partial Class Inventarios_RecepcionAlmacen Inherits ClsPaginas @@ -2969,11 +2967,8 @@ Partial Class Inventarios_RecepcionAlmacen End If End If End If - End If - End If - Next If Not ErrorMovInv Then @@ -2981,7 +2976,6 @@ Partial Class Inventarios_RecepcionAlmacen ErrorMovInv = True End If End If - End If End If @@ -3614,11 +3608,8 @@ Partial Class Inventarios_RecepcionAlmacen MensajeError = "Error al contabilizar los conceptos contables" End If End If - End If - End If - Else ErrorMovInv = True MensajeError = "Error al obtener movimientos" @@ -3633,11 +3624,6 @@ Partial Class Inventarios_RecepcionAlmacen Dim ProveedorNombre As String = "" Dim SerieFolio As String = "" - 'Dim DrAlmO, DrAlmD As DataRow - 'Dim CveSucursalOrigen, CveSucursalDestino As Integer - 'Dim TipoAlmacenOrigen, TipoAlmacenDestino As Integer - 'Dim CveSubProyectoOrigen, CveSubProyectoDestino As Integer - If ObjCompras.GetCompras(CveCompraSurtir, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then 'Fecha = ObjCompras.DtResultados(0)("Fecha").ToString.ToDate Fecha = TxtFecha.Text.ToDate @@ -3654,7 +3640,6 @@ Partial Class Inventarios_RecepcionAlmacen Else ErrorMovInv = True End If - 'Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {CveAlmacenDevolucionProveedor}").ToEntero() 'AGREGAMOS PREPOLIZAS TRASPASO DIRECTO: @@ -3672,7 +3657,6 @@ Partial Class Inventarios_RecepcionAlmacen Else ErrorMovInv = True End If - End If 'AGREGA SALDOS A OC SURTIDAS @@ -3702,7 +3686,7 @@ Partial Class Inventarios_RecepcionAlmacen ErrorMovInv = True End Try - If Not ErrorMovInv Then + If Not ErrorMovInv AndAlso ArchivoBitacora <> "" Then RenombrarBitacoras() End If @@ -3725,8 +3709,7 @@ Partial Class Inventarios_RecepcionAlmacen Msg.AppendFormat("
La Orden de Compra se dividió en los siguientes productos:
{0}", MensajeOC) End If If UsuarioActual.CveEmpresa.Contiene(1, 119, 186) Then - Msg.AppendFormat("
Imprimir Etiqueta Individual ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Cantidad"))) - 'Msg.AppendFormat("
Imprimir Etiqueta Por Caja ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja"))) + Msg.AppendFormat("
Imprimir Etiqueta Individual ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Cantidad"))) 'Msg.AppendFormat("
Imprimir Etiqueta Por Caja ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja"))) End If 'SI GENERO UN TRASPASO AL ALMACEN DE DEVOLUCION @@ -3738,7 +3721,6 @@ Partial Class Inventarios_RecepcionAlmacen Msg.AppendFormat("
Imprimir Movimiento ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento))) End If - 'If CveMovtoSalidaDirecta > 0 Then ' Msg.AppendFormat("

Movimientos de control:
") ' link = String.Format("{1}", CveMovtoSalidaDirecta, FolioSalidaDirecta) @@ -3760,8 +3742,6 @@ Partial Class Inventarios_RecepcionAlmacen link = String.Format("{1}", MovtosSalidaDirecta(ind), FoliosSalidaDirecta(ind)) Msg.AppendFormat("
Movimiento de Salida Folio: {0}", link) Next - - End If 'APARTADO @@ -3784,7 +3764,6 @@ Partial Class Inventarios_RecepcionAlmacen 'CONTABILIDAD Msg.Append(MensajeContabilidad) - Alert(Msg.ToString, TipoMensaje.MsgInformacion) If ObjInventario.RecepcionAlmacenGet(CveCompraSurtir, -1, -1, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then @@ -3793,7 +3772,6 @@ Partial Class Inventarios_RecepcionAlmacen BtnGuardar.Visible = True End If Limpia() - Else ObjInventario.RollBack() If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack() @@ -3809,10 +3787,7 @@ Partial Class Inventarios_RecepcionAlmacen End Sub Private Sub RenombrarBitacoras() - - Dim fechaActual As String = DateTime.Now.ToString("yyyyMMddHHmmss") - Dim fib As New FileInfo(ArchivoBitacora) Dim fibd As New FileInfo(ArchivoBitacoraDetalle) @@ -4277,18 +4252,16 @@ Partial Class Inventarios_RecepcionAlmacen CveOCSurtir = CveOC LbProveedor.Text = ObjOC.DtResultados.Rows(0)("RazonSocial").ToString HLFolio.Text = ObjOC.DtResultados.Rows(0)("Folio").ToString - If UsuarioActual.TienePermisoProceso(201) Then - HLFolio.NavigateUrl = $"/OC/OC.aspx?OC={CveOCSurtir}" - End If + If UsuarioActual.TienePermisoProceso(201) Then HLFolio.NavigateUrl = $"/OC/OC.aspx?OC={CveOCSurtir}" LbDescripcionCompra.Text = ObjOC.DtResultados.Rows(0)("Descripcion").ToString - CveMoneda = ObjOC.DtResultados.Rows(0)("CveMoneda").ToString.ToEntero lbDescripcion.Text = ObjOC.DtResultados.Rows(0)("Descripcion").ToString TotalCompraOC = ObjOC.DtResultados.Rows(0)("SubTotal").ToString.ToDecimal - 'TipoCambio = ObjOC.DtResultados.Rows(0)("TipoCambio").ToString.ToDecimal TipoCambio = 0 TipoMovimiento = 1 + ArchivoBitacora = String.Format("{0}Temp\RecepcionOCDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveOCSurtir) + ArchivoBitacoraDetalle = String.Format("{0}Temp\RecepcionOCDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveOCSurtir) If ObjInventario.RecepcionAlmacenOCGet(CveOC, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then DtDatosDetalle = Nothing diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index e105ebc35..d116062a3 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -5,14 +5,6 @@ Imports Extensiones Imports System.IO Imports System.Data Imports System.Data.SqlClient -Imports System.Diagnostics -Imports System.ServiceModel.Security -Imports RVCFDI.RVLTimbrado -Imports Microsoft.Owin.Security.Provider -Imports Telerik.Web.UI -Imports ADSNetLibrary.SIGAPI.Services.SAT.DescargaCFDI - - Partial Class OS_OrdenesServicios Inherits ClsPaginas @@ -3125,7 +3117,8 @@ Partial Class OS_OrdenesServicios Dim Lote As String = GVRow.DataKey("Lote") Dim CveUM As Integer = GVRow.DataKey("CveUM").ToEntero Dim FechaCaducidad As DateTime = GVRow.DataKey("FechaCaducidad").ToDate - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadRegistro, CveUM, CvePS, 0, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad) Then + Dim CveVentaDetalle As Integer = GVRow.DataKey("CveVentaDetalle").ToEntero + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, CantidadRegistro, CveUM, CvePS, 0, Lote:=Lote, Serie:=Serie, FechaCaducidad:=FechaCaducidad, CveVentaDetalle:=CveVentaDetalle) Then Alert("Error al agregar detalle de movimiento.", TipoMensaje.MsgAdvertencia) ProcesoOK = False Exit For @@ -3705,14 +3698,8 @@ Partial Class OS_OrdenesServicios Try Dim resp As Modelos.Factura.MCancelacionVentaMensaje = Nothing If ObjFacturaCancelacion IsNot Nothing AndAlso ObjFacturaCancelacion.CveVenta > 0 Then - - Dim SWatch As New Stopwatch - SWatch.Start() - Dim DevAlm As Boolean = True - ObjFacturaCancelacion.CveAlmacenDevolucion = CveAlmacenDevolucion - resp = ObjFacturaCancelacion.CancelarFactura(2, New List(Of Integer), CveMotivoCancelacion:=CveMotivoCancelacion, Motivo:="Cancelacion de Orden de servicio") If resp.HuboError Then