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

--TEMPORAL - NO VERIFICAR EXISTENCIA CUANDO SON MUCHOS DATOS

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-12-30 14:07:12 -07:00
parent 25f6044e62
commit 48a7c08fb2
1 changed files with 49 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -2300,6 +2300,14 @@ Partial Class Inventarios_EntregaAlmacen
StrXML.Append("</conceptos>")
Dim TieneErrorExistencia As Boolean = False
Dim VerificaExistencia As Boolean = True
'TEMPORAL - NO VERIFICAR EXISTENCIA CUANDO SON MUCHOS DATOS
If UsuarioActual.CveEmpresa = 140 AndAlso DtDatos.Rows.Count > 10 Then
VerificaExistencia = False
End If
If VerificaExistencia Then
If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then
TieneErrorExistencia = True
@@ -2321,6 +2329,8 @@ Partial Class Inventarios_EntregaAlmacen
Else
TieneErrorExistencia = True
End If
End If
If TieneErrorExistencia Then
ObjInventario.RollBack()
@@ -3681,6 +3691,15 @@ Partial Class Inventarios_EntregaAlmacen
StrXML.Append("</conceptos>")
Dim TieneErrorExistencia As Boolean = False
Dim VerificaExistencia As Boolean = True
'TEMPORAL - NO VERIFICAR EXISTENCIA CUANDO SON MUCHOS DATOS
If UsuarioActual.CveEmpresa = 140 AndAlso DtDatos.Rows.Count > 10 Then
VerificaExistencia = False
End If
If VerificaExistencia Then
If ObjInventario.GetExistenciasPSXML(StrXML.ToString(), DdlAlmacen.SelectedValue.ToEntero(), TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), CveSubProyecto, CveVendedor, If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), If(TipoEntrega = 2, 1, -1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
If ObjInventario.DtResultados.Rows.Count > 0 Then
TieneErrorExistencia = True
@@ -3691,6 +3710,8 @@ Partial Class Inventarios_EntregaAlmacen
Else
TieneErrorExistencia = True
End If
End If
If TieneErrorExistencia Then
ObjInventario.RollBack()