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

-parametro subproyecto en concepto 51

Browse Source
This commit is contained in:
rrene
2020-05-26 15:00:02 -07:00
parent 08e06dbaaa
commit b8d4cd1fbf
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -3711,7 +3711,10 @@ Partial Class Inventarios_EntradasSalidas
Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUM("Total", "").ToDecimal.RoundSQL() Dim tValorInventario As Decimal = ObjInventario.DtResultados.SUM("Total", "").ToDecimal.RoundSQL()
ValorSalida = tValorInventario ValorSalida = tValorInventario
Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue)) Dim drA2 As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", DdlAlmacenInventarioFisico.SelectedValue))
If drA2 IsNot Nothing Then idCtaContableSalida = drA2("IdCtaContable").ToString.ToEntero If drA2 IsNot Nothing Then
idCtaContableSalida = drA2("IdCtaContable").ToString.ToEntero
tCveSubProyecto = drA2("CveSubProyecto").ToString.ToEntero
End If
Else Else
ErrorMovInv = True ErrorMovInv = True
Mensaje = "Ocurrió un error al validar los movimientos contables de salida" Mensaje = "Ocurrió un error al validar los movimientos contables de salida"