Merge branch 'master' of http://192.168.10.111:8383/SIG

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("<br/>La Orden de Compra se dividió en los siguientes productos:<br/>{0}", MensajeOC)
                 End If
                 If UsuarioActual.CveEmpresa.Contiene(1, 119, 186) Then
-                    Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Individual</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Cantidad")))
+                    Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Individual</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Cantidad")))                    'Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Por Caja</a> ", Encripta(String.Format("OP=Etiqueta&CveMovimiento={0}&Modalidad={1}", CveMovimiento, "Caja")))
-                    'Msg.AppendFormat("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Etiqueta Por Caja</a> ", 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("<br/><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Movimiento</a> ", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimiento)))
             End If
 
-
             'If CveMovtoSalidaDirecta > 0 Then
             '    Msg.AppendFormat("<br/><br/> Movimientos de control:<br/>")
             '    link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", CveMovtoSalidaDirecta, FolioSalidaDirecta)
@@ -3760,8 +3742,6 @@ Partial Class Inventarios_RecepcionAlmacen
                     link = String.Format("<a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"" target=""_blank"">{1}</a>", MovtosSalidaDirecta(ind), FoliosSalidaDirecta(ind))
                     Msg.AppendFormat("<br/>Movimiento de Salida Folio: <b>{0}</b>", 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
+                If UsuarioActual.TienePermisoProceso(201) Then HLFolio.NavigateUrl = $"/OC/OC.aspx?OC={CveOCSurtir}"
-                    HLFolio.NavigateUrl = $"/OC/OC.aspx?OC={CveOCSurtir}"
-                End If
                 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

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