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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2024-12-16 06:40:42 -07:00
parent 336ff100e5 5d7dfdb715
commit d4a758b03d
15 changed files with 2780 additions and 235 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Inventarios/EntregaAlmacen.aspx.vb
View File

@@ -643,6 +643,8 @@ Partial Class Inventarios_EntregaAlmacen
If ObjInventario.EntregaAlmacenGet(CveVenta, UsuarioActual.CveEmpresa, CveAlmacen) Then
If ObjInventario.DtResultados IsNot Nothing AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
Dim CveVentaPadre As Integer = -1
ArchivoBitacora = String.Format("{0}Temp\EntregaDT_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
ArchivoBitacoraDetalle = String.Format("{0}Temp\EntregaDTD_{1}_{2}.xml", UsuarioActual.Empresa.Ruta, UsuarioActual.CveUsuario, CveVenta)
If ArchivoBitacora <> "" Then
@@ -672,6 +674,7 @@ Partial Class Inventarios_EntregaAlmacen
If DtDatos.Rows(0) IsNot Nothing Then
Dim drE As DataRow = DtDatos.Rows(0)
CveVentaPadre = DtDatos.Rows(0)("CveVentaPadre").ToString().ToEntero()
EsDevolucionVenta = drE("EsDevolucionVenta").ToString().ToEntero()
TipoDocto = DtDatos.Rows(0)("TipoDocto").ToString()
'TipoMovimiento = If(TipoDocto.Contiene({"Rem", "Ped", "Ing", "Ped", "PeC", "Ant"}) And (EsDevolucionVenta = 0 Or CveVentaAD > 0), 1, 2)
@@ -882,7 +885,7 @@ Partial Class Inventarios_EntregaAlmacen
If TipoMovimiento = 2 Then ' cuando es cancelación
Dim Filtro As String '= If(ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString().Contiene({"Ing", "Dev", "Ped"}), "CveConcepto = 3", "CveConcepto = 9")
Dim FiltroPS As String = ""
Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString()
Select Case TipoDocto
Case "Ing"
Filtro = "CveConcepto IN (3,40,35)"
Case "Dev"
@@ -901,7 +904,8 @@ Partial Class Inventarios_EntregaAlmacen
Case Else
Filtro = "CveConcepto = 9"
End Select
If ObjInventario.GetInv_Mov(ObjInventario.DtResultados.Rows(0)("CveVentaPadre").ToString().ToEntero(), UsuarioActual.CveEmpresa) Then
If ObjInventario.GetInv_Mov(CveVentaPadre, UsuarioActual.CveEmpresa) Then
DtExistencias = ObjInventario.DtResultados.FiltraParametros($"CvePS Is Not NULL AND {Filtro} " & FiltroPS)
If Not DtExistencias.Rows.Count > 0 Then