-- banc_ie, parametro Modulo

App_Code/ClsBancos.vb

@@ -1316,7 +1316,7 @@ Public Class ClsBancos
                                  NotificarA As String, EsAbonoEnCuenta As Boolean, AplicaImpuestos As Boolean, IDPoliza As Integer, CvePrePoliza As Integer, Comprobante As String, CveUsuario As Integer, CveEmpresa As Integer,
                                  Optional CveCuentaDeposito As Integer = -1, Optional PagoElectronico As String = "-1", Optional CveEstatusIE As Integer = 1, Optional CveCuentaTarjeta As Integer = -1,
                                  Optional Referencia As String = "-1", Optional CveIESustitucion As Integer = -1, Optional CveCorte As Integer = -1, Optional CveProveedorIntermediario As Integer = -1, Optional FueConciliado As Boolean = False,
-                                    Optional MesesSinIntereses As Integer = -1) As Integer
+                                    Optional MesesSinIntereses As Integer = -1, Optional Modulo As String = "") As Integer
         Dim Retorno As Integer = -1
 
         DataAdapter("PA_Banc_IEAdd")
@@ -1354,7 +1354,7 @@ Public Class ClsBancos
 
             .Add("@CveIE", SqlDbType.Int).Direction = ParameterDirection.Output
             .Add("@FolioRegistro", SqlDbType.VarChar, 50).Direction = ParameterDirection.Output
-
+            .Add("@Modulo", SqlDbType.VarChar).Value = Modulo
         End With
 
         Try