diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index ca6c1f834..4062c16a1 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -731,8 +731,7 @@ - - + <%----%> @@ -760,11 +759,9 @@ - - <%----%> - + @@ -790,7 +787,6 @@
- diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 8fc3b0d2a..6102d1c11 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -2986,8 +2986,10 @@ Partial Class Inventarios_EntradasSalidas Dim ErrorMovInv As Boolean = False Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas(Modulo, 53, 0, 0, 1, Fecha, Concepto, CveUsuario, CveEmpresa) - If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, Importe, 68, "", Concepto, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then - ErrorMovInv = True + If CveMovimientoSalida > 0 Then + If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, Importe, 68, "", Concepto, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=Contabilizable) Then + ErrorMovInv = True + End If End If If CveMovimientoEntrada > 0 Then @@ -2995,7 +2997,7 @@ Partial Class Inventarios_EntradasSalidas ErrorMovInv = True End If End If - If dttCostos IsNot Nothing Then + If dttCostos IsNot Nothing AndAlso CveMovimientoSalida > 0 Then For Each RowInv As DataRow In dttCostos.Rows Dim ValorInventario As Decimal = dttCostos.SUM("Total", $"CveClasificacion = {RowInv("CveClasificacion")}").ToString.ToDecimal.RoundSQL @@ -3006,7 +3008,6 @@ Partial Class Inventarios_EntradasSalidas Next End If - If Not ErrorMovInv Then Retorno = CvePrePoliza Return Retorno @@ -5551,7 +5552,7 @@ Partial Class Inventarios_EntradasSalidas End If Dim tCveMovtoEntrada As Integer = If(tOrigen > 0, CveMovimientoVirtual, -1) Dim tCveMovtoSalida 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 + If Not 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