Modulo en inventarios

App_Code/ClsInventarios.vb

@@ -958,7 +958,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 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 = "") As Integer
+                                  Optional Telefono As String = "", Optional Ciudad As String = "", Optional Licencia As String = "", Optional Modulo As String = "") As Integer
 
         Dim Retorno As Integer = -1
 
@@ -1010,7 +1010,8 @@ Public Class ClsInventarios
             .Add("@Domicilio", SqlDbType.VarChar).Value = Domicilio
             .Add("@Telefono", SqlDbType.VarChar).Value = Telefono
             .Add("@Ciudad", SqlDbType.VarChar).Value = Ciudad
-            .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
+            .Add("@Licencia", SqlDbType.VarChar).Value = Licencia
+            .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
         End With
 
         Try