AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

--2 JP Replicación Biosistemas(hermana E201), PS y UM ( aplica lote/cad) y enviar PA (5 lugares), - logo OC Biosistemas.

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-02-08 19:11:18 -07:00
parent 85a0a0f7e6
commit 7107f9420c
7 changed files with 86 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsInventarios.vb
View File

@@ -6405,20 +6405,21 @@ Public Class ClsInventarios
End Function
Public Function ReplicarMovtoEmpresa(CveEmpresa As Integer, CveMovimiento As Integer) As Boolean
Public Function ReplicarMovtoEmpresa(CveEmpresa As Integer, CveMovimiento As Integer, Optional CveMovimientoSecundario As Integer = -1) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Inv_ReplicaMovtoInterEmpresa")
With SqlAdapter.SelectCommand.Parameters
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
.Add("@CveMovimientoSecundario", SqlDbType.Int).Value = CveMovimientoSecundario
End With
Try
SqlAdapter.Fill(Data)
Retorno = True
Catch ex As Exception
OnError("Ocurrió un error al consultar los productos por ultimo costo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
OnError("Ocurrió un error al replicar el movimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
End Try
Return Retorno

36
Compras/Compras.aspx.vb
View File

@@ -5883,6 +5883,15 @@ Partial Class Compras_Compras
ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, tImporte, tImporte, 68, ObjInventario.Folio.ToString, ObjInventario.Folio.ToString, CveMovimientoAlmacen:=CveMovimientoInventario)
End If
If Not ErrorMovInv Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoInventario > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoInventario) Then
ErrorMovInv = True
End If
End If
End If
End If
Next
End If
@@ -13910,6 +13919,15 @@ Partial Class Compras_Compras
End If
Next
End If
If Not ErrorMovInv Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoEntrada > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoEntrada) Then
ErrorMovInv = True
End If
End If
End If
Else
ErrorMovInv = True
Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia)
@@ -14587,6 +14605,15 @@ Partial Class Compras_Compras
End If
End If
If Not ErrorCancelar Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoEntrada > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoEntrada) Then
ErrorCancelar = True
End If
End If
End If
Next
End If
@@ -19414,6 +19441,15 @@ Partial Class Compras_Compras
Respuesta = False
End If
If Not Respuesta Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoSalida > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoSalida) Then
Respuesta = False
End If
End If
End If
End If
If Respuesta Then

6
Compras/PopUpVerFactura.aspx.vb
View File

@@ -3163,7 +3163,7 @@ Partial Class PopUpVerFactura
If UsuarioActual.CveEmpresa.Contiene(4, 145) Then
params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
End If
If UsuarioActual.CveEmpresa = 119 Then
If UsuarioActual.CveEmpresa.Contiene(119, 199, 201) Then
params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
params.Add(New ReportParameter("RazonSocialOC", RazonSocialOC))
@@ -3181,7 +3181,7 @@ Partial Class PopUpVerFactura
If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189) Then
If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189, 199, 201) Then
params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("Concepto", ConceptoFormato))
params.Add(New ReportParameter("Almacen", Almacen))
@@ -3394,7 +3394,7 @@ Partial Class PopUpVerFactura
If Archivo.Exists Then
'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146, 186) Then
If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 4, 145, 146, 186, 199, 201) Then
Dim CiudadSucursal As String = ""
Dim DomicilioSucursal As String = ""
Dim DomicilioCliente As String = String.Format("{0} #{1}, {2}, Col. {3}, CP: {4}, {5}, {6}", DtMovimientos(0)("SucClienteDireccion").ToString, DtMovimientos(0)("SucClienteNoExt").ToString, DtMovimientos(0)("SucClienteNoInt").ToString, DtMovimientos(0)("SucClienteColonia"), DtMovimientos(0)("SucClienteCP").ToString, DtMovimientos(0)("SucClienteCiudad"), DtMovimientos(0)("SucClientePais").ToString)

9
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -2306,6 +2306,15 @@ Partial Class Inventarios_EntradasSalidas
End If
End If
'REPLICAR MOVTO EN EMPRESA
If Not ErrorMovInv Then
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimiento > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimiento) Then
ErrorMovInv = True
End If
End If
End If
If Not ErrorAC And Not ErrorMovInv Then
Dim Msg As New StringBuilder

9
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -3380,6 +3380,15 @@ Partial Class Inventarios_EntregaAlmacen
End If
End If
If Not ErrorMovInv Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimiento > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimiento) Then
ErrorMovInv = True
End If
End If
End If
If Not ErrorMovInv Then
ObjInventario.Commit()

10
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -2842,6 +2842,16 @@ Partial Class Inventarios_RecepcionAlmacen
'Next
End If
If Not ErrorMovInv Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimiento > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimiento) Then
ErrorMovInv = True
End If
End If
End If
Else
ErrorMovInv = True
End If

16
Ventas/Ventas.aspx.vb
View File

@@ -16893,6 +16893,13 @@ Partial Class Ventas
factura.Inv_ValorInventario = ValorInventario
End If
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso factura.Inv_CveMovimiento > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, factura.Inv_CveMovimiento) Then
ErrorList.Add("Ocurrió un error al replicar el movimiento.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
End If
End If
End If
'DEBE GENERAR MOVIMIENTO SI SE FACTURARON PRODUCTOS, O NO SE REALIZA UNA REFACTURACION
@@ -16989,6 +16996,15 @@ Partial Class Ventas
End If
End If
If Not OcurrioError Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoSalidaPorTraspaso > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoSalidaPorTraspaso) Then
ErrorList.Add("Ocurrió un error al replicar el movimiento.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
End If
End If
End If
End If
End If