-- cambios en carta porte 3.0
This commit is contained in:
@@ -826,7 +826,7 @@ End Class
|
||||
|
||||
<Serializable>
|
||||
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 = ""
|
||||
|
||||
@@ -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"
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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)
|
||||
|
||||
@@ -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)
|
||||
|
||||
@@ -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}
|
||||
|
||||
@@ -1160,7 +1160,11 @@
|
||||
<asp:TextBox ID="TxtDimensiones" runat="server" Width="200px" Class="form-control input-sm" ></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row" >
|
||||
<div class="col-md-12">
|
||||
<hr />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row">
|
||||
<label class="col-md-4 truncate">Clave Sector COFEPRIS:</label>
|
||||
@@ -1173,7 +1177,7 @@
|
||||
<div class="row" runat="server" visible="false" id="DVNombreIngredienteActivo" >
|
||||
<label class="col-md-4 truncate">Nombre Ingrediente Activo:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtNombreIngredienteActivo" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtNombreIngredienteActivo" runat="server" Width="200px" Class="form-control input-sm" MaxLength="1000"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtNombreIngredienteActivo" runat="server" ControlToValidate="TxtNombreIngredienteActivo" CssClass="help-block errorimput" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre Ingrediente Activo''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
@@ -1181,9 +1185,9 @@
|
||||
</div>
|
||||
|
||||
<div class="row" runat="server" visible="false" id="DVNomQuimico" >
|
||||
<label class="col-md-4 truncate">Nom Quimico:</label>
|
||||
<label class="col-md-4 truncate">Nom Químico:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtNomQuimico" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtNomQuimico" runat="server" Width="200px" Class="form-control input-sm" MaxLength="150"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtNomQuimico" runat="server" ControlToValidate="TxtNomQuimico" CssClass="help-block errorimput" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nom Quimico''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
@@ -1191,7 +1195,7 @@
|
||||
</div>
|
||||
|
||||
<div class="row" runat="server" visible="false" id="DVDenominacionGenerica" >
|
||||
<label class="col-md-4 truncate">Denominacion Generica:</label>
|
||||
<label class="col-md-4 truncate">Denominación Genérica:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtDenominacionGenerica" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtDenominacionGenerica" runat="server" ControlToValidate="TxtDenominacionGenerica" CssClass="help-block errorimput" Display="Dynamic"
|
||||
@@ -1201,7 +1205,7 @@
|
||||
</div>
|
||||
|
||||
<div class="row" runat="server" visible="false" id="DVDenominacionDistintiva" >
|
||||
<label class="col-md-4 truncate">Denominacion Distintiva:</label>
|
||||
<label class="col-md-4 truncate">Denominación Distintiva:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtDenominacionDistintiva" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtDenominacionDistintiva" runat="server" ControlToValidate="TxtDenominacionDistintiva" CssClass="help-block errorimput" Display="Dynamic"
|
||||
@@ -1213,7 +1217,7 @@
|
||||
<div class="row" runat="server" visible="false" id="DVFabricante" >
|
||||
<label class="col-md-4 truncate">Fabricante:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtFabricante" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtFabricante" runat="server" Width="200px" Class="form-control input-sm" MaxLength="240"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtFabricante" runat="server" ControlToValidate="TxtFabricante" CssClass="help-block errorimput" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Fabricante''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
@@ -1221,7 +1225,7 @@
|
||||
</div>
|
||||
|
||||
<div class="row" runat="server" visible="false" id="DVClaveFormaFarmaceutica" >
|
||||
<label class="col-md-4 truncate">Clave Forma Farmaceutica:</label>
|
||||
<label class="col-md-4 truncate">Clave Forma Farmaceútica:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:DropDownList ID="DdlClaveFormaFarmaceutica" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="FormaFarmaceuticaClave" DataValueField="CveFormaFarmaceutica" CssClass="form-control input-sm select2me"></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RfvDdlClaveFormaFarmaceutica" runat="server" InitialValue="-1" ControlToValidate="DdlClaveFormaFarmaceutica" CssClass="help-block errorimput" Display="Dynamic"
|
||||
@@ -1234,43 +1238,38 @@
|
||||
<div class="row" runat="server" visible="false" id="DVCondicionesTransporte" >
|
||||
<label class="col-md-4 truncate">Condiciones Transporte:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtCondicionesTransporte" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtCondicionesTransporte" runat="server" ControlToValidate="TxtCondicionesTransporte" CssClass="help-block errorimput" Display="Dynamic"
|
||||
<asp:DropDownList ID="DdlCondicionesEspTransporte" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="CondicionesEspecialesClave" DataValueField="CveCondicionesEspeciales"
|
||||
CssClass="form-control input-sm select2me" ></asp:DropDownList>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtCondicionesTransporte" runat="server" ControlToValidate="DdlCondicionesEspTransporte" CssClass="help-block errorimput" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Condiciones Transporte''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<div class="row" runat="server" visible="false" id="DVRegistroSanitarioAutorizacion" >
|
||||
<label class="col-md-4 truncate">Registro Sanitario Autorizacion:</label>
|
||||
<label class="col-md-4 truncate">Registro Sanitario Autorización:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtRegistroSanitarioAutorizacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtRegistroSanitarioAutorizacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="15"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtRegistroSanitarioAutorizacion" runat="server" ControlToValidate="TxtRegistroSanitarioAutorizacion" CssClass="help-block errorimput" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Registro Sanitario Autorizacion''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
<div class="row" runat="server" visible="false" id="DVNumCAS" >
|
||||
<label class="col-md-4 truncate">Num CAS:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtNumCAS" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtNumCAS" runat="server" Width="200px" Class="form-control input-sm" MaxLength="15"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtNumCAS" runat="server" ControlToValidate="TxtNumCAS" CssClass="help-block errorimput" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Num CAS''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
</div>
|
||||
|
||||
<div class="row" runat="server" visible="false" id="DVNumRegistroPlagCOFEPRIS" >
|
||||
<label class="col-md-4 truncate">Num Registro Plag COFEPRIS:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtNumRegistroPlagCOFEPRIS" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtNumRegistroPlagCOFEPRIS" runat="server" Width="200px" Class="form-control input-sm" MaxLength="60"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtNumRegistroPlagCOFEPRIS" runat="server" ControlToValidate="TxtNumRegistroPlagCOFEPRIS" CssClass="help-block errorimput" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Num Registro Plag COFEPRIS''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
@@ -1280,7 +1279,7 @@
|
||||
<div class="row" runat="server" visible="false" id="DVDatosFabricante" >
|
||||
<label class="col-md-4 truncate">Datos Fabricante:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtDatosFabricante" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtDatosFabricante" runat="server" Width="200px" Class="form-control input-sm" MaxLength="600"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtDatosFabricante" runat="server" ControlToValidate="TxtDatosFabricante" CssClass="help-block errorimput" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Datos Fabricante''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
@@ -1290,7 +1289,7 @@
|
||||
<div class="row" runat="server" visible="false" id="DVDatosFormulador" >
|
||||
<label class="col-md-4 truncate">Datos Formulador:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtDatosFormulador" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtDatosFormulador" runat="server" Width="200px" Class="form-control input-sm" MaxLength="600"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtDatosFormulador" runat="server" ControlToValidate="TxtDatosFormulador" CssClass="help-block errorimput" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Datos Formulador''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
@@ -1300,7 +1299,7 @@
|
||||
<div class="row" runat="server" visible="false" id="DVDatosMaquilador" >
|
||||
<label class="col-md-4 truncate">Datos Maquilador:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtDatosMaquilador" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtDatosMaquilador" runat="server" Width="200px" Class="form-control input-sm" MaxLength="600"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtDatosMaquilador" runat="server" ControlToValidate="TxtDatosMaquilador" CssClass="help-block errorimput" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Datos Maquilador''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
@@ -1310,47 +1309,52 @@
|
||||
<div class="row" runat="server" visible="false" id="DVUsoAutorizado" >
|
||||
<label class="col-md-4 truncate">Uso Autorizado:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtUsoAutorizado" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtUsoAutorizado" runat="server" Width="200px" Class="form-control input-sm" MaxLength="1000"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtUsoAutorizado" runat="server" ControlToValidate="TxtUsoAutorizado" CssClass="help-block errorimput" Display="Dynamic"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Uso Autorizado''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" >
|
||||
<div class="col-md-12">
|
||||
<hr />
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<div class="row" runat="server" visible="true" id="DVPermisoImportacion" >
|
||||
<label class="col-md-4 truncate">Permiso Importacion:</label>
|
||||
<label class="col-md-4 truncate">Permiso Importación:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtPermisoImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtPermisoImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="6"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtPermisoImportacion" runat="server" ControlToValidate="TxtPermisoImportacion" CssClass="help-block errorimput" Display="Dynamic" Visible="false"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Permiso Importacion:''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" runat="server" visible="true" id="DVRazonSocialEmpImportacion" >
|
||||
<label class="col-md-4 truncate">Razon Social Emp Importacion:</label>
|
||||
<label class="col-md-4 truncate">Razon Social Emp Importación:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtRazonSocialEmpImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtRazonSocialEmpImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="80"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtRazonSocialEmpImportacion" runat="server" ControlToValidate="TxtRazonSocialEmpImportacion" CssClass="help-block errorimput" Display="Dynamic" Visible="false"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Razon Social Emp Importacion''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" runat="server" visible="true" id="DVFolioImportacionVUCEM" >
|
||||
<label class="col-md-4 truncate">Folio Importacion VUCEM:</label>
|
||||
<label class="col-md-4 truncate">Folio Importación VUCEM:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:TextBox ID="TxtFolioImportacionVUCEM" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
|
||||
<asp:TextBox ID="TxtFolioImportacionVUCEM" runat="server" Width="200px" Class="form-control input-sm" MaxLength="25"></asp:TextBox>
|
||||
<asp:RequiredFieldValidator ID="RfvTxtFolioImportacionVUCEM" runat="server" ControlToValidate="TxtFolioImportacionVUCEM" CssClass="help-block errorimput" Display="Dynamic" Visible="false"
|
||||
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio Importacion VUCEM''</b> es necesario, por favor ingréselo."
|
||||
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
|
||||
|
||||
<div class="row">
|
||||
<label class="col-md-4 truncate">Tipo Materia:</label>
|
||||
<div class="col-md-8">
|
||||
<asp:DropDownList ID="DdlTipoMateria" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="TipoMateriaClave" DataValueField="CveTipoMateria"
|
||||
CssClass="form-control input-sm select2me" ></asp:DropDownList>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user