Conceptos 69,177,259 CveSubProyectos

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -104,7 +104,9 @@ Partial Class Inventarios_PrestamosdeProveedor
         End If
     End Sub
 
-    Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
+    Protected Sub BtnRecibir_Click(sender As Object, e As EventArgs)
+
+
         If GvD.Rows.Count > 0 Then
 
             'Valida Movimientos
@@ -132,11 +134,11 @@ Partial Class Inventarios_PrestamosdeProveedor
             If Not ValidaMovtos > 0 Then
                 Alert("No hay movimientos que realizar. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
                 Exit Sub
-            End If
-
-
-
-            Dim ObjInventario As New ClsInventarios
+            End If
+
+
+
+            Dim ObjInventario As New ClsInventarios
             Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
 
             Dim CveMovimientoEntrada As Integer = 0
@@ -190,14 +192,22 @@ Partial Class Inventarios_PrestamosdeProveedor
                     Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = 29").ToEntero
                     If OrigenMov = 1 Then TipoMovtoAlmacen = False Else TipoMovtoAlmacen = True
 
-                    Dim CveConceptoContable As Integer = 69
+                    Dim CveConceptoContable As Integer = 69
+                    '  Dim CveSubProyecto As Integer = 0
+                    Dim CveSubProyecto As Integer = -1
+                    If ObjInventario.GetAlmacenes(-1, -1, UsuarioActual.CveEmpresa, -1) Then
+                        CveSubProyecto = ObjInventario.DtResultados.FiltraParametros($"CveAlmacen = {DdlAlmacenOrigen.SelectedValue.ToEntero } ").FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
+                    End If
+
+
+
                     Dim CveClasifCosto As Integer = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveClasificacion", String.Format("CvePS ={0} ", CvePS))
                     IdCtaContableOtro = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasifCosto}").ToEntero
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, tValorInventario, TxtObservacionesEntrega.Text.Trim, 68, TxtObservacionesEntrega.Text.Trim, Fecha, idCtaContable, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=tValorInventario) Then
                         ErrorMovInv = True
                     Else
-                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, -tValorInventario, TxtObservacionesEntrega.Text.Trim, CveConceptoContable, TxtObservacionesEntrega.Text.Trim, Fecha, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=CveClasifCosto, ImporteMX:=-tValorInventario) Then
+                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovtoAlmacen, -tValorInventario, TxtObservacionesEntrega.Text.Trim, CveConceptoContable, TxtObservacionesEntrega.Text.Trim, Fecha, IdCtaContableOtro, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=CveClasifCosto, ImporteMX:=-tValorInventario, CveSubProyecto:=CveSubProyecto) Then
                             ErrorMovInv = True
                         End If
                     End If