From 61fe4d09e8496639b4052ec1235bb88ca823df77 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 2 Jan 2024 21:58:50 -0700 Subject: [PATCH] -- cambios en carta porte 3.0 --- App_Code/CFDITimbre.vb | 4 +- App_Code/ClsGenerales.vb | 52 +++++++++++--------- App_Code/ClsPaginas.vb | 48 +++++++++++++++--- App_Code/ClsProductosServicios.vb | 7 +-- App_Code/Timbrado.vb | 3 +- App_Code/Timbres.vb | 21 +++++++- Ventas/ProductosServicios.aspx | 82 ++++++++++++++++--------------- Ventas/ProductosServicios.aspx.vb | 37 +++++++------- 8 files changed, 161 insertions(+), 93 deletions(-) diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index 2342b01f1..749257ef8 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -826,7 +826,7 @@ End Class Public Class CFDICartaPorte - Public Property TranspInternac As String = "" + Public Property TranspInternac As String = "No" Public Property EntradaSalidaMercancia As String = "" Public Property ViaEntradaSalida As String = "" Public Property RegimenAduanero As String = "" @@ -963,6 +963,8 @@ Public Class CFDICartaPorteMercancia Public Property DatosFormulador As String = "" Public Property DatosMaquilador As String = "" Public Property UsoAutorizado As String = "" + Public Property TipoMateria As String = "" + Public Property TipoMateriaDescripcion As String = "" Public Property PesoenKg As Decimal = 0 Public Property ValorMercancia As Decimal Public Property Moneda As String = "" diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index 6bf89b4ea..e1eb9a7be 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -2783,12 +2783,8 @@ Public Class ClsGenerales Public Function GetSATUsosCFDI() As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_SAT_UsosCFDIGet") - - With SqlAdapter.SelectCommand.Parameters - - End With - 'SqlTypes.SqlDateTime.Null + DataAdapter("PA_Gral_SAT_UsosCFDIGet") + Try SqlAdapter.Fill(Data) Retorno = True @@ -2799,17 +2795,9 @@ Public Class ClsGenerales Return Retorno End Function - - - Public Function GetSATSectorCOFEPRIS() As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_SAT_SectorCOFEPRISGet") - - With SqlAdapter.SelectCommand.Parameters - - End With - + DataAdapter("PA_Gral_SAT_CP_SectorCOFEPRISGet") Try SqlAdapter.Fill(Data) Retorno = True @@ -2820,15 +2808,9 @@ Public Class ClsGenerales Return Retorno End Function - Public Function GetSATFormaFarmaceutica() As Boolean Dim Retorno As Boolean = False - DataAdapter("PA_Gral_SAT_FormaFarmaceuticaGet") - - With SqlAdapter.SelectCommand.Parameters - - End With - + DataAdapter("PA_Gral_SAT_CP_FormaFarmaceuticaGet") Try SqlAdapter.Fill(Data) Retorno = True @@ -2839,6 +2821,32 @@ Public Class ClsGenerales Return Retorno End Function + Public Function GetSATCPTipoMateria() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_SAT_CP_TipoMateriaGet") + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los tipo de materia", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + + Public Function GetSATCPCondicionesEspeciales() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Gral_SAT_CP_CondicionesEspecialesGet") + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener las condiciones especiales", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + #End Region #Region "SAT CFDI COMERCIO EXTERIOR" diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 53cc316e1..78e05f667 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1293,10 +1293,9 @@ Public Class ClsPaginas End Set End Property - - Public Shared Property GlobalDTSATSectorCOFEPRIS() As DataTable + Public Shared Property GlobalDT_SAT_CP_SectorCOFEPRIS() As DataTable Get - Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS" + Dim AppNombre As String = "GlobalDT_SAT_CP_SectorCOFEPRIS" If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjGral As New ClsGenerales() If ObjGral.GetSATSectorCOFEPRIS() Then @@ -1307,13 +1306,13 @@ Public Class ClsPaginas Return CType(HttpContext.Current.Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS" + Dim AppNombre As String = "GlobalDT_SAT_CP_SectorCOFEPRIS" HttpContext.Current.Application(AppNombre) = value End Set End Property - Public Shared Property GlobalDTSATFormaFarmaceutica() As DataTable + Public Shared Property GlobalDT_SAT_CP_FormaFarmaceutica() As DataTable Get - Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica" + Dim AppNombre As String = "GlobalDT_SAT_CP_FormaFarmaceutica" If HttpContext.Current.Application(AppNombre) Is Nothing Then Dim ObjGral As New ClsGenerales() If ObjGral.GetSATFormaFarmaceutica() Then @@ -1324,7 +1323,42 @@ Public Class ClsPaginas Return CType(HttpContext.Current.Application(AppNombre), DataTable) End Get Set(value As DataTable) - Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica" + Dim AppNombre As String = "GlobalDT_SAT_CP_FormaFarmaceutica" + HttpContext.Current.Application(AppNombre) = value + End Set + End Property + + Public Shared Property GlobalDT_SAT_CP_TipoMateria() As DataTable + Get + Dim AppNombre As String = "GlobalDT_SAT_CP_TipoMateria" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjGral As New ClsGenerales() + If ObjGral.GetSATCPTipoMateria() Then + HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados + End If + ObjGral.Dispose() + End If + Return CType(HttpContext.Current.Application(AppNombre), DataTable) + End Get + Set(value As DataTable) + Dim AppNombre As String = "GlobalDT_SAT_CP_TipoMateria" + HttpContext.Current.Application(AppNombre) = value + End Set + End Property + Public Shared Property GlobalDT_SAT_CP_CondicionesEspeciales() As DataTable + Get + Dim AppNombre As String = "GlobalDT_SAT_CP_CondicionesEspeciales" + If HttpContext.Current.Application(AppNombre) Is Nothing Then + Dim ObjGral As New ClsGenerales() + If ObjGral.GetSATCPCondicionesEspeciales() Then + HttpContext.Current.Application(AppNombre) = ObjGral.DtResultados + End If + ObjGral.Dispose() + End If + Return CType(HttpContext.Current.Application(AppNombre), DataTable) + End Get + Set(value As DataTable) + Dim AppNombre As String = "GlobalDT_SAT_CP_CondicionesEspeciales" HttpContext.Current.Application(AppNombre) = value End Set End Property diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb index 4c8b7f62a..5344c61fa 100644 --- a/App_Code/ClsProductosServicios.vb +++ b/App_Code/ClsProductosServicios.vb @@ -2352,9 +2352,9 @@ Public Class ClsProductosServicios End Function Public Function AddUpdateProductosServiciosComplementos(CvePS As Integer, PesoKg As Decimal, CveMaterialPeligroso As Integer, CveEmbalaje As Integer, Dimensiones As String, CveSectorCOFEPRIS As Integer, NombreIngredienteActivo As String, - NomQuimico As String, DenominacionGenerica As String, DenominacionDistintiva As String, Fabricante As String, CveFormaFarmaceutica As Integer, CondicionesTransporte As String, + NomQuimico As String, DenominacionGenerica As String, DenominacionDistintiva As String, Fabricante As String, CveFormaFarmaceutica As Integer, CveCondicionesEspTransporte As Integer, RegistroSanitarioAutorizacion As String, PermisoImportacion As String, FolioImportacionVUCEM As String, NumCAS As String, RazonSocialEmpImportacion As String, NumRegistroPlagCOFEPRIS As String, - DatosFabricante As String, DatosFormulador As String, DatosMaquilador As String, UsoAutorizado As String) As Boolean + DatosFabricante As String, DatosFormulador As String, DatosMaquilador As String, UsoAutorizado As String, CveTipoMateria As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ProductosServiciosComplementosAddUpdate") With SqlAdapter.SelectCommand.Parameters @@ -2370,7 +2370,7 @@ Public Class ClsProductosServicios .Add("@DenominacionDistintiva", SqlDbType.VarChar).Value = DenominacionDistintiva .Add("@Fabricante", SqlDbType.VarChar).Value = Fabricante .Add("@CveFormaFarmaceutica", SqlDbType.Int).Value = CveFormaFarmaceutica - .Add("@CondicionesTransporte", SqlDbType.VarChar).Value = CondicionesTransporte + .Add("@CveCondicionesEspTransporte", SqlDbType.Int).Value = CveCondicionesEspTransporte .Add("@RegistroSanitarioAutorizacion", SqlDbType.VarChar).Value = RegistroSanitarioAutorizacion .Add("@PermisoImportacion", SqlDbType.VarChar).Value = PermisoImportacion .Add("@FolioImportacionVUCEM", SqlDbType.VarChar).Value = FolioImportacionVUCEM @@ -2381,6 +2381,7 @@ Public Class ClsProductosServicios .Add("@DatosFormulador", SqlDbType.VarChar).Value = DatosFormulador .Add("@DatosMaquilador", SqlDbType.VarChar).Value = DatosMaquilador .Add("@UsoAutorizado", SqlDbType.VarChar).Value = UsoAutorizado + .Add("@CveTipoMateria", SqlDbType.Int).Value = CveTipoMateria End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index e199b6470..ead2bb3c7 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2638,7 +2638,8 @@ Public Class Timbrado For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias If concep.ValorMercancia <= 0 Then concep.Moneda = "" cfdi.CartaPorte30Mercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), If(concep.ClaveMaterialPeligroso <> "", concep.DescripEmbalaje, ""), - concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, concep.PermisoImportacion, concep.FolioImpoVUCEM, concep.NumCAS, concep.RazonSocialEmpImp, concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado, + concep.SectorCOFEPRIS, concep.NombreIngredienteActivo, concep.NomQuimico, concep.DenominacionGenericaProd, concep.DenominacionDistintivaProd, concep.Fabricante, concep.FechaCaducidad, concep.LoteMedicamento, concep.FormaFarmaceutica, concep.CondicionesEspTransp, concep.RegistroSanitarioFolioAutorizacion, + If(Carta.TranspInternac <> "No", concep.PermisoImportacion, ""), If(Carta.TranspInternac <> "No", concep.FolioImpoVUCEM, ""), concep.NumCAS, If(Carta.TranspInternac <> "No", concep.RazonSocialEmpImp, ""), concep.NumRegSanPlagCOFEPRIS, concep.DatosFabricante, concep.DatosFormulador, concep.DatosMaquilador, concep.UsoAutorizado, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt) For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) diff --git a/App_Code/Timbres.vb b/App_Code/Timbres.vb index 074fbbbcb..8e40b78aa 100644 --- a/App_Code/Timbres.vb +++ b/App_Code/Timbres.vb @@ -304,7 +304,26 @@ Public Class Timbres .ValorMercancia = drr("PU").ToString.ToDecimal, .Moneda = If(drr("PU").ToString.ToDecimal > 0, "MXN", ""), 'temporal .FraccionArrancelaria = "", - .UUIDComercioExt = "" + .UUIDComercioExt = "", + .SectorCOFEPRIS = drr("ClaveSectorCOFEPRIS").ToString, + .NombreIngredienteActivo = drr("NombreIngredienteActivo").ToString, + .NomQuimico = drr("NomQuimico").ToString, + .DenominacionGenericaProd = drr("DenominacionGenerica").ToString, + .DenominacionDistintivaProd = drr("DenominacionDistintiva").ToString, + .Fabricante = drr("Fabricante").ToString, + .CondicionesEspTransp = drr("ClaveCondicionesEspeciales").ToString, + .RegistroSanitarioFolioAutorizacion = drr("RegistroSanitarioAutorizacion").ToString, + .PermisoImportacion = drr("PermisoImportacion").ToString, + .FolioImpoVUCEM = drr("FolioImportacionVUCEM").ToString, + .NumCAS = drr("NumCAS").ToString, + .RazonSocialEmpImp = drr("RazonSocialEmpImportacion").ToString, + .NumRegSanPlagCOFEPRIS = drr("NumRegistroPlagCOFEPRIS").ToString, + .DatosFabricante = drr("DatosFabricante").ToString, + .DatosFormulador = drr("DatosFormulador").ToString, + .DatosMaquilador = drr("DatosMaquilador").ToString, + .UsoAutorizado = drr("UsoAutorizado").ToString, + .TipoMateria = drr("ClaveTipoMateria").ToString, + .TipoMateriaDescripcion = drr("TipoMateria").ToString } Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToEntero} diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index dacec1fb5..e6b4c3825 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -1160,7 +1160,11 @@ - +
+
+
+
+
@@ -1173,7 +1177,7 @@
- + @@ -1181,9 +1185,9 @@
- +
- + @@ -1191,7 +1195,7 @@
- +
- +
- + @@ -1221,7 +1225,7 @@
- +
- - +
- +
- +
-
- - - - +
- +
-
- - +
- + @@ -1280,7 +1279,7 @@
- + @@ -1290,7 +1289,7 @@
- + @@ -1300,7 +1299,7 @@
- + @@ -1310,47 +1309,52 @@
- +
+
+
+
+
+
- - - -
- +
- +
- +
- +
- +
- +
- - - +
+ +
+ +
+
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 248affbca..e0c9c1d84 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -459,14 +459,21 @@ Partial Class ProductosyServicios Private Sub CargaCombosPSComplementos() - DdlClaveSectorCOFEPRIS.DataSource = GlobalDTSATSectorCOFEPRIS + DdlClaveSectorCOFEPRIS.DataSource = GlobalDT_SAT_CP_SectorCOFEPRIS DdlClaveSectorCOFEPRIS.DataBind() DdlClaveSectorCOFEPRIS.Items.Insert(0, New ListItem("-", "-1")) - DdlClaveFormaFarmaceutica.DataSource = GlobalDTSATFormaFarmaceutica + DdlClaveFormaFarmaceutica.DataSource = GlobalDT_SAT_CP_FormaFarmaceutica DdlClaveFormaFarmaceutica.DataBind() DdlClaveFormaFarmaceutica.Items.Insert(0, New ListItem("-", "-1")) + DdlCondicionesEspTransporte.DataSource = GlobalDT_SAT_CP_CondicionesEspeciales + DdlCondicionesEspTransporte.DataBind() + DdlCondicionesEspTransporte.Items.Insert(0, New ListItem("-", "-1")) + + DdlTipoMateria.DataSource = GlobalDT_SAT_CP_TipoMateria + DdlTipoMateria.DataBind() + DdlTipoMateria.Items.Insert(0, New ListItem("-", "-1")) End Sub @@ -3411,7 +3418,7 @@ Partial Class ProductosyServicios TxtDenominacionGenerica.Text = ObjPS.DtResultados.Rows(0)("DenominacionGenerica").ToString TxtDenominacionDistintiva.Text = ObjPS.DtResultados.Rows(0)("DenominacionDistintiva").ToString TxtFabricante.Text = ObjPS.DtResultados.Rows(0)("Fabricante").ToString - TxtCondicionesTransporte.Text = ObjPS.DtResultados.Rows(0)("CondicionesTransporte").ToString + 'TxtCondicionesTransporte.Text = ObjPS.DtResultados.Rows(0)("CondicionesTransporte").ToString TxtRegistroSanitarioAutorizacion.Text = ObjPS.DtResultados.Rows(0)("RegistroSanitarioAutorizacion").ToString TxtPermisoImportacion.Text = ObjPS.DtResultados.Rows(0)("PermisoImportacion").ToString TxtFolioImportacionVUCEM.Text = ObjPS.DtResultados.Rows(0)("FolioImportacionVUCEM").ToString @@ -3422,6 +3429,8 @@ Partial Class ProductosyServicios TxtDatosFormulador.Text = ObjPS.DtResultados.Rows(0)("DatosFormulador").ToString TxtDatosMaquilador.Text = ObjPS.DtResultados.Rows(0)("DatosMaquilador").ToString TxtUsoAutorizado.Text = ObjPS.DtResultados.Rows(0)("UsoAutorizado").ToString + DdlCondicionesEspTransporte.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveCondicionesEspTransporte").ToString) + DdlTipoMateria.SelectedValueExist(ObjPS.DtResultados.Rows(0)("CveTipoMateria").ToString) MostrarOcultarControlesCCP(LimpiarControles:=False) @@ -3457,7 +3466,6 @@ Partial Class ProductosyServicios TxtDenominacionGenerica.Text = "" TxtDenominacionDistintiva.Text = "" TxtFabricante.Text = "" - TxtCondicionesTransporte.Text = "" TxtRegistroSanitarioAutorizacion.Text = "" TxtPermisoImportacion.Text = "" TxtFolioImportacionVUCEM.Text = "" @@ -3501,8 +3509,6 @@ Partial Class ProductosyServicios DVDatosMaquilador.Visible = True DVUsoAutorizado.Visible = True End If - - UpCartaPorte.Update() End Sub @@ -3516,7 +3522,7 @@ Partial Class ProductosyServicios CamposStringCCP = CamposStringCCP + TxtDenominacionGenerica.Text.Trim() CamposStringCCP = CamposStringCCP + TxtDenominacionDistintiva.Text.Trim() CamposStringCCP = CamposStringCCP + TxtFabricante.Text.Trim() - CamposStringCCP = CamposStringCCP + TxtCondicionesTransporte.Text.Trim() + ' CamposStringCCP = CamposStringCCP + TxtCondicionesTransporte.Text.Trim() CamposStringCCP = CamposStringCCP + TxtRegistroSanitarioAutorizacion.Text.Trim() CamposStringCCP = CamposStringCCP + TxtPermisoImportacion.Text.Trim() CamposStringCCP = CamposStringCCP + TxtFolioImportacionVUCEM.Text.Trim() @@ -3528,29 +3534,22 @@ Partial Class ProductosyServicios CamposStringCCP = CamposStringCCP + TxtDatosMaquilador.Text.Trim() CamposStringCCP = CamposStringCCP + TxtUsoAutorizado.Text.Trim() - If CamposStringCCP.Length > 0 And (DdlMaterialPeligroso.SelectedValue.ToEntero <= 0 Or DdlEmbalaje.SelectedValue.ToEntero <= 0 Or TxtDimensiones.Text = "" Or TxtPesoKg.Text = "") Then - Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg y Dimensiones son requeridos", TipoMensaje.MsgAdvertencia) + If CamposStringCCP.Length > 0 And (DdlMaterialPeligroso.SelectedValue.ToEntero <= 0 Or DdlEmbalaje.SelectedValue.ToEntero <= 0 Or TxtPesoKg.Text = "") Then + Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg son requeridos", TipoMensaje.MsgAdvertencia) Respuesta = False Else 'If DdlMaterialPeligroso.SelectedValue.ToEntero > 0 And DdlEmbalaje.SelectedValue.ToEntero > 0 And DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero > 0 And CamposStringCCP.Length > 0 Then Dim ObjPS As New ClsProductosServicios(transaccionSQL) If Not ObjPS.AddUpdateProductosServiciosComplementos(CvePS, TxtPesoKg.Text.ToDecimal, DdlMaterialPeligroso.SelectedValue.ToEntero, DdlEmbalaje.SelectedValue.ToEntero, TxtDimensiones.Text, DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero, - TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, TxtCondicionesTransporte.Text.Trim, + TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, DdlCondicionesEspTransporte.SelectedValue.ToEntero, TxtRegistroSanitarioAutorizacion.Text.Trim, TxtPermisoImportacion.Text.Trim, TxtFolioImportacionVUCEM.Text.Trim, TxtNumCAS.Text.Trim, TxtRazonSocialEmpImportacion.Text, TxtNumRegistroPlagCOFEPRIS.Text.Trim, TxtDatosFabricante.Text.Trim, - TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text) Then + TxtDatosFormulador.Text.Trim, TxtDatosMaquilador.Text.Trim, TxtUsoAutorizado.Text, DdlTipoMateria.SelectedValue.ToEntero) Then Respuesta = False End If - ' End If - + ' End If End If - - - - - - Return Respuesta End Function