-- corrección para registro en bitácora, cuando es por OC. no encontraba el archivo
This commit is contained in:
@@ -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 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 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")))
|
||||
|
||||
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
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user