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

--concepto de surtido en pedidos

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2023-12-06 22:31:40 -07:00
parent 758042cd8f
commit 69187cd261
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -5528,6 +5528,10 @@ Partial Class Inventarios_EntradasSalidas
End If End If
End If End If
Else
ErrorMovInv = True
End If
End If
Catch ex As Exception Catch ex As Exception
ErrorMovInv = True ErrorMovInv = True
End Try End Try

2
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -768,7 +768,7 @@ Partial Class Inventarios_EntregaAlmacen
Dim Filtro As String '= If(ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString().Contiene({"Ing", "Dev", "Ped"}), "CveConcepto = 3", "CveConcepto = 9") Dim Filtro As String '= If(ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString().Contiene({"Ing", "Dev", "Ped"}), "CveConcepto = 3", "CveConcepto = 9")
Dim FiltroPS As String = "" Dim FiltroPS As String = ""
Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString() Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString()
Case "Ing", "Ped" Case "Ing"
Filtro = "CveConcepto IN (3,40)" Filtro = "CveConcepto IN (3,40)"
Case "Dev" Case "Dev"
'cuand es devolucionventa=1, es cancelación de la devolución 'cuand es devolucionventa=1, es cancelación de la devolución