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

-- corrección de texto

Browse Source
This commit is contained in:
rrene
2024-08-21 07:10:58 -07:00
parent e061d2c047
commit 8cc42ef641
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
OS/OrdenesServicios.aspx.vb
View File

@@ -2580,7 +2580,7 @@ Partial Class OS_OrdenesServicios
'VALIDA LA EXISTENCIA DEL ALMACEN DE ORIGEN 'VALIDA LA EXISTENCIA DEL ALMACEN DE ORIGEN
Dim Existencia As Double Dim Existencia As Double
TextoExistencia.Append("Los siguiente productos se ajustaron por falta de exitencia:<br/>") TextoExistencia.Append("Los siguiente productos se ajustaron por falta de existencia:<br/>")
For Each dr As DataRow In TmpDTMaterialesDetalle.Rows For Each dr As DataRow In TmpDTMaterialesDetalle.Rows
Existencia = ObjInventario.GetExistenciasPS(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59")) Existencia = ObjInventario.GetExistenciasPS(dr("CvePS").ToString.ToEntero, dr("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa, DdlAlmacenOrigen.SelectedValue.ToEntero, FechaMovto:=TxtFecha.Text.ToDate.ToString("yyyy/MM/dd 23:59"))