diff --git a/App_Code/ClsExportaciones.vb b/App_Code/ClsExportaciones.vb
index 492523b4b..c7317a75b 100644
--- a/App_Code/ClsExportaciones.vb
+++ b/App_Code/ClsExportaciones.vb
@@ -142,7 +142,7 @@ Public Class ClsExportaciones
CveClienteExportador As Integer, CveClienteImportador As Integer, CveClienteConsignatario As Integer, CveAgente As Integer, ClaveAduana As Integer,
CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor As Integer, Sello1 As String, Sello2 As String, Sello3 As String, SCAC As String,
CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer, CveDirExportador As Integer, CveDirConsignatario As Integer,
- CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer) As Integer
+ CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer, ITN As String, Vinculacion As Boolean) As Integer
Dim Retorno As Integer = -1
DataAdapter("PA_Exp_ExportacionesAdd")
With SqlAdapter.SelectCommand.Parameters
@@ -174,6 +174,8 @@ Public Class ClsExportaciones
.Add("@Notas", SqlDbType.VarChar).Value = Notas
.Add("@CvePedimento", SqlDbType.Int).Value = CvePedimento
.Add("@CveAgenteExtranjero", SqlDbType.Int).Value = CveAgenteExtranjero
+ .Add("@ITN", SqlDbType.VarChar).Value = ITN
+ .Add("@Vinculacion", SqlDbType.Bit).Value = Vinculacion
.Add("@CveExportacion", SqlDbType.Int).Direction = ParameterDirection.Output
End With
@@ -191,7 +193,7 @@ Public Class ClsExportaciones
CveClienteExportador As Integer, CveClienteImportador As Integer, CveClienteConsignatario As Integer, CveAgente As Integer, ClaveAduana As Integer,
CveProveedor As Integer, MedioTransporte As Integer, TipoContenedor As Integer, Sello1 As String, Sello2 As String, Sello3 As String, SCAC As String,
CAAT As String, ContenedorPlaca As String, CveEmpresa As Integer, CveUsuario As Integer, CveDirExportador As Integer, CveDirConsignatario As Integer,
- CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer) As Boolean
+ CveIncoterm As Integer, Notas As String, CvePedimento As Integer, CveAgenteExtranjero As Integer, ITN As String, Vinculacion As Boolean) As Boolean
Dim Retorno As Boolean = False
DataAdapter("PA_Exp_ExportacionesUpdate")
With SqlAdapter.SelectCommand.Parameters
@@ -224,6 +226,8 @@ Public Class ClsExportaciones
.Add("@Notas", SqlDbType.VarChar).Value = Notas
.Add("@CvePedimento", SqlDbType.Int).Value = CvePedimento
.Add("@CveAgenteExtranjero", SqlDbType.Int).Value = CveAgenteExtranjero
+ .Add("@ITN", SqlDbType.VarChar).Value = ITN
+ .Add("@Vinculacion", SqlDbType.Bit).Value = Vinculacion
End With
Try
SqlAdapter.Fill(Data)
diff --git a/Export/ExpDetalle.aspx b/Export/ExpDetalle.aspx
index bb3d6d95d..cd4946771 100644
--- a/Export/ExpDetalle.aspx
+++ b/Export/ExpDetalle.aspx
@@ -174,6 +174,13 @@