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

-- cambio a unificación función validaciónprepolizas

Browse Source
This commit is contained in:
rrene
2023-11-18 13:20:20 -07:00
parent 3904343f17
commit f91dd14387
26 changed files with 87 additions and 354 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Inventarios/Consignaciones.aspx.vb
View File

@@ -839,7 +839,7 @@ Partial Class Inventarios_Consignaciones
ErrorMovInv = True
End If
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Consig | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorMovInv = True
@@ -1017,7 +1017,7 @@ Partial Class Inventarios_Consignaciones
ErrorMovInv = True
End If
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Consig | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorMovInv = True
@@ -1569,7 +1569,7 @@ Partial Class Inventarios_Consignaciones
ErrorMovInv = True
End If
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Consig | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
ErrorMovInv = True

17
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -2002,15 +2002,6 @@ Partial Class Inventarios_EntradasSalidas
'End If
End If
'If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, OpcionPrePoliza) Then
' If ObjConta.ValorPolizaDescuadre > 0 Then
' ErrorMovInv = True
' GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
' Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia)
' End If
'Else
' Alert("No se pudo validar la prepoliza de cuadre.", TipoMensaje.MsgAdvertencia)
'End If
End If
'------------------------------------------------
@@ -4639,14 +4630,6 @@ Partial Class Inventarios_EntradasSalidas
' ErrorPrepolizaDescuadre = True
'End If
End If
'If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
' ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa)
' If ObjConta.ValorPolizaDescuadre > 0 Then
' ErrorMovInv = True
' Mensaje = "Ocurrió un error al validar los movimientos contables"
' End If
'End If
End If
Dim RetornoVirtual As MMovimientoVirtual = Nothing

7
Inventarios/PaquetesArmadoDesarmado.aspx.vb
View File

@@ -619,8 +619,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
TieneError = True
End If
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
TieneError = True
@@ -743,8 +742,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
TieneError = True
End If
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=6) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
TieneError = True
@@ -753,7 +751,6 @@ Partial Class Inventarios_PaquetesArmadoDesarmado
End Select
If Not TieneError Then
Dim Msg As New StringBuilder

6
Inventarios/RecepcionUsados.aspx.vb
View File

@@ -1487,7 +1487,7 @@ Partial Class Inventarios_RecepcionUsados
Correcto = False
End If
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
If ObjConta.ValidacionesPrePoliza(CvePrePoliza, UsuarioActual, Opcion:=-1) Then
If ObjConta.ValorPolizaDescuadre > 0 Then
GuardaLogAD($"Inventarios/RecepcionUsados-PPCompOC | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
Correcto = False
@@ -3286,9 +3286,9 @@ Partial Class Inventarios_RecepcionUsados
Dim CargoActual As Double = 0
Dim Row As DataRow = Nothing
Dim EsNuevo As Boolean = true
Dim EsNuevo As Boolean = True
Dim RowsAjustes = TmpDTAjustes.Select($"ConsecutivoVenta = {ConsecutivoVenta}")
Dim RowsAjustes As DataRow() = TmpDTAjustes.Select($"ConsecutivoVenta = {ConsecutivoVenta}")
If RowsAjustes IsNot Nothing AndAlso RowsAjustes.Length > 0 Then
Row = RowsAjustes(0)