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

-- corrección de naturaleza de prepolizas, en movto virtual

Browse Source
This commit is contained in:
rrene
2023-12-19 12:25:30 -07:00
parent 574346ef3b
commit e820db10e3
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -5410,8 +5410,9 @@ Partial Class Inventarios_EntradasSalidas
If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtual, UsuarioActual.CveEmpresa) Then
dttCosto = ObjInventario.DtResultados
End If
If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.Replace(",", "").ToDate, "Virtual", "ES/GV", CveMovimientoVirtual, -1, DtPSVirtual.SUM("TotalCargo"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True, dttCosto, tCveSubProyecto) > 0 Then
Dim tCveMovtoSalida As Integer = If(tOrigen > 0, CveMovimientoVirtual, -1)
Dim tCveMovtoEntrada As Integer = If(tOrigen > 0, -1, CveMovimientoVirtual)
If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.Replace(",", "").ToDate, "Virtual", "ES/GV", tCveMovtoSalida, tCveMovtoEntrada, DtPSVirtual.SUM("TotalCargo"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True, dttCosto, tCveSubProyecto) > 0 Then
ErrorMovInv = True
End If
End If