Inventarios agregar CveFolioGarantia

- Se guarda en Inv_Movimientos el valor de CveFolioGarantia al hacer un traspaso de salida desde Acumuladores/CatFoliosGarantia.aspx
*** CAMBIOS EN BD VENTAS ***
Inv_Movimientos
+ Col CveFolioGarantia int nullable
Comp_Compras
+ Col CveFolioGarantia int nullable
PA_Inv_MovimientosAdd
+ @CveFolioGarantia INT = -1

App_Code/ClsInventarios.vb

@@ -136,6 +136,7 @@ Public Class ClsInventarios
     Public Property Modulo As String
     Public Property ConAplicacion As Boolean
     Public Property CveInventarioFisicoPadre As Integer
+    Public Property CveFolioGarantia As Integer
 
 
 
@@ -875,7 +876,7 @@ Public Class ClsInventarios
                 ResponsableCarga = dr("ResponsableCarga").ToString
                 ResponsableRecibio = dr("ResponsableRecibio").ToString
                 Modulo = dr("Modulo").ToString
-
+                CveFolioGarantia = dr("CveFolioGarantia").ToString.ToEntero
                 Retorno = True
             End If
 
@@ -985,7 +986,7 @@ Public Class ClsInventarios
                                   Optional CveMovimientoRelacionado As Integer = -1, Optional TipoCambio As Double = -1, Optional CveVendedor As Integer = -1, Optional CveCliente As Integer = -1, Optional MovimientoFijo As Boolean = False, Optional CveContrato As Integer = -1,
                                   Optional CveProveedor As Integer = -1, Optional Remision As String = "", Optional CveClienteSucursal As Integer = -1, Optional DepartamentoEntrega As String = "", Optional PedidoContrato As String = "", Optional GastoIndirecto As Double = -1, Optional CveChofer As Integer = -1, Optional CveCamion As Integer = -1, Optional Placa As String = "",
                                   Optional FechaEntrega As String = "", Optional EspecifUnidad As String = "", Optional ResponsableCarga As String = "", Optional ResponsableRecibio As String = "", Optional Identificacion As String = "", Optional Domicilio As String = "",
-                                  Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1) As Integer
+                                  Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "", Optional CveOP As Integer = -1, Optional CveFolioGarantia As Integer = -1) As Integer
 
         Dim Retorno As Integer = -1
 
@@ -1045,6 +1046,7 @@ Public Class ClsInventarios
             .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
             .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
             .Add("@CveOP", SqlDbType.Int).Value = CveOP
+            .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
         End With
 
         Try

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1006,13 +1006,15 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim CveConceptoEntrada As Integer = 27
         If Not ChkTransitorio.Checked Then CveConceptoEntrada = 27 Else CveConceptoEntrada = 9
 
+        Dim CveFolioGarantia As Integer = Request.QueryString("CveFolioGarantia").ToEntero
+
         'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
         CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
                                                           Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
                                                           CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDouble > 0, TxtGastoIndirecto.Text, "-1").ToDouble,
                                                           CveChofer:=If(ChkTransitorio.Checked, DdlChofer.SelectedValue.ToEntero, -1), Placa:="", FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:="",
                                                           ResponsableCarga:="", ResponsableRecibio:="", Identificacion:="", Domicilio:="",
-                                                          Telefono:="", Ciudad:="", Licencia:="", Modulo:="TA/G2")
+                                                          Telefono:="", Ciudad:="", Licencia:="", Modulo:="TA/G2", CveFolioGarantia:=If(CveFolioGarantia > 0, CveFolioGarantia, -1))
         FolioSalida = ObjInventario.Folio
         Folio = ObjInventario.Folio
         If CveMovimientoSalida <= 0 Then
@@ -1033,7 +1035,7 @@ Partial Class Inventarios_TraspasoAlmacen
         'ENTRADA
         CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenEntrada, CveConceptoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
                                                                    Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
-                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G3")
+                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G3", CveFolioGarantia:=If(CveFolioGarantia > 0, CveFolioGarantia, -1))
         FolioEntrada = ObjInventario.Folio
         If CveMovimientoEntrada <= 0 Then
             TextoError = "Ocurrió un error al generar el movimiento de entrada"