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

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)