diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 3b125265b..4e0ef922e 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2973,6 +2973,20 @@ Public Class ClsGenerales End Try Return Retorno End Function + + Public Function GetSATDIOTTipoOperacion() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_SAT_DIOT_TipoOperacionGet") + With SqlAdapter.SelectCommand.Parameters + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los tipos de operacion del SAT-DIOT", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function Public Function GetSATUnidadesAduana() As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_SAT_UnidadAduanaGet") diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index b9c0c104c..c884bbe5d 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -561,6 +561,22 @@ Public Class ClsPaginas HttpContext.Current.Application(AppNombre) = value End Set End Property + + Property GlobalDTDIOTTipoOperacion() As DataTable + Get + Dim AppNombre As String = "GlobalDTDIOTTipoOperacion" + If Application(AppNombre) Is Nothing Then + Dim ObjGrales As New ClsGenerales + If ObjGrales.GetSATDIOTTipoOperacion() Then Application(AppNombre) = ObjGrales.DtResultados + ObjGrales.Dispose() + End If + GlobalDTDIOTTipoOperacion = DirectCast(Application(AppNombre), DataTable) + End Get + Set(value As DataTable) + Dim AppNombre As String = "GlobalDTDIOTTipoOperacion" + Application(AppNombre) = value + End Set + End Property Property GlobalDTGralPaises() As DataTable Get Dim AppNombre As String = "GlobalDTGralPaises" diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 1801c70c2..81079cc46 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -799,20 +799,19 @@
| Tipo Tercero: |
- Tipo Operación: |
|
- |