AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambios en carta porte 3.0

Browse Source
This commit is contained in:
rrene
2024-01-02 21:58:50 -07:00
parent be1ceb06cd
commit 61fe4d09e8
8 changed files with 161 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
App_Code/CFDITimbre.vb
View File

@@ -826,7 +826,7 @@ End Class
<Serializable> <Serializable>
Public Class CFDICartaPorte Public Class CFDICartaPorte
Public Property TranspInternac As String = "" Public Property TranspInternac As String = "No"
Public Property EntradaSalidaMercancia As String = "" Public Property EntradaSalidaMercancia As String = ""
Public Property ViaEntradaSalida As String = "" Public Property ViaEntradaSalida As String = ""
Public Property RegimenAduanero As String = "" Public Property RegimenAduanero As String = ""
@@ -963,6 +963,8 @@ Public Class CFDICartaPorteMercancia
Public Property DatosFormulador As String = "" Public Property DatosFormulador As String = ""
Public Property DatosMaquilador As String = "" Public Property DatosMaquilador As String = ""
Public Property UsoAutorizado 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 PesoenKg As Decimal = 0
Public Property ValorMercancia As Decimal Public Property ValorMercancia As Decimal
Public Property Moneda As String = "" Public Property Moneda As String = ""

52
App_Code/ClsGenerales.vb
View File

@@ -2783,12 +2783,8 @@ Public Class ClsGenerales
Public Function GetSATUsosCFDI() As Boolean Public Function GetSATUsosCFDI() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_SAT_UsosCFDIGet") DataAdapter("PA_Gral_SAT_UsosCFDIGet")
With SqlAdapter.SelectCommand.Parameters
End With
'SqlTypes.SqlDateTime.Null
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
@@ -2799,17 +2795,9 @@ Public Class ClsGenerales
Return Retorno Return Retorno
End Function End Function
Public Function GetSATSectorCOFEPRIS() As Boolean Public Function GetSATSectorCOFEPRIS() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_SAT_SectorCOFEPRISGet") DataAdapter("PA_Gral_SAT_CP_SectorCOFEPRISGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
@@ -2820,15 +2808,9 @@ Public Class ClsGenerales
Return Retorno Return Retorno
End Function End Function
Public Function GetSATFormaFarmaceutica() As Boolean Public Function GetSATFormaFarmaceutica() As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_SAT_FormaFarmaceuticaGet") DataAdapter("PA_Gral_SAT_CP_FormaFarmaceuticaGet")
With SqlAdapter.SelectCommand.Parameters
End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)
Retorno = True Retorno = True
@@ -2839,6 +2821,32 @@ Public Class ClsGenerales
Return Retorno Return Retorno
End Function 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 #End Region
#Region "SAT CFDI COMERCIO EXTERIOR" #Region "SAT CFDI COMERCIO EXTERIOR"

48
App_Code/ClsPaginas.vb
View File

@@ -1293,10 +1293,9 @@ Public Class ClsPaginas
End Set End Set
End Property End Property
Public Shared Property GlobalDT_SAT_CP_SectorCOFEPRIS() As DataTable
Public Shared Property GlobalDTSATSectorCOFEPRIS() As DataTable
Get Get
Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS" Dim AppNombre As String = "GlobalDT_SAT_CP_SectorCOFEPRIS"
If HttpContext.Current.Application(AppNombre) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjGral As New ClsGenerales() Dim ObjGral As New ClsGenerales()
If ObjGral.GetSATSectorCOFEPRIS() Then If ObjGral.GetSATSectorCOFEPRIS() Then
@@ -1307,13 +1306,13 @@ Public Class ClsPaginas
Return CType(HttpContext.Current.Application(AppNombre), DataTable) Return CType(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) Set(value As DataTable)
Dim AppNombre As String = "GlobalDTSATSectorCOFEPRIS" Dim AppNombre As String = "GlobalDT_SAT_CP_SectorCOFEPRIS"
HttpContext.Current.Application(AppNombre) = value HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property
Public Shared Property GlobalDTSATFormaFarmaceutica() As DataTable Public Shared Property GlobalDT_SAT_CP_FormaFarmaceutica() As DataTable
Get Get
Dim AppNombre As String = "GlobalDTSATFormaFarmaceutica" Dim AppNombre As String = "GlobalDT_SAT_CP_FormaFarmaceutica"
If HttpContext.Current.Application(AppNombre) Is Nothing Then If HttpContext.Current.Application(AppNombre) Is Nothing Then
Dim ObjGral As New ClsGenerales() Dim ObjGral As New ClsGenerales()
If ObjGral.GetSATFormaFarmaceutica() Then If ObjGral.GetSATFormaFarmaceutica() Then
@@ -1324,7 +1323,42 @@ Public Class ClsPaginas
Return CType(HttpContext.Current.Application(AppNombre), DataTable) Return CType(HttpContext.Current.Application(AppNombre), DataTable)
End Get End Get
Set(value As DataTable) 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 HttpContext.Current.Application(AppNombre) = value
End Set End Set
End Property End Property

7
App_Code/ClsProductosServicios.vb
View File

@@ -2352,9 +2352,9 @@ Public Class ClsProductosServicios
End Function 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, 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, 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 Dim Retorno As Boolean = False
DataAdapter("PA_ProductosServiciosComplementosAddUpdate") DataAdapter("PA_ProductosServiciosComplementosAddUpdate")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
@@ -2370,7 +2370,7 @@ Public Class ClsProductosServicios
.Add("@DenominacionDistintiva", SqlDbType.VarChar).Value = DenominacionDistintiva .Add("@DenominacionDistintiva", SqlDbType.VarChar).Value = DenominacionDistintiva
.Add("@Fabricante", SqlDbType.VarChar).Value = Fabricante .Add("@Fabricante", SqlDbType.VarChar).Value = Fabricante
.Add("@CveFormaFarmaceutica", SqlDbType.Int).Value = CveFormaFarmaceutica .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("@RegistroSanitarioAutorizacion", SqlDbType.VarChar).Value = RegistroSanitarioAutorizacion
.Add("@PermisoImportacion", SqlDbType.VarChar).Value = PermisoImportacion .Add("@PermisoImportacion", SqlDbType.VarChar).Value = PermisoImportacion
.Add("@FolioImportacionVUCEM", SqlDbType.VarChar).Value = FolioImportacionVUCEM .Add("@FolioImportacionVUCEM", SqlDbType.VarChar).Value = FolioImportacionVUCEM
@@ -2381,6 +2381,7 @@ Public Class ClsProductosServicios
.Add("@DatosFormulador", SqlDbType.VarChar).Value = DatosFormulador .Add("@DatosFormulador", SqlDbType.VarChar).Value = DatosFormulador
.Add("@DatosMaquilador", SqlDbType.VarChar).Value = DatosMaquilador .Add("@DatosMaquilador", SqlDbType.VarChar).Value = DatosMaquilador
.Add("@UsoAutorizado", SqlDbType.VarChar).Value = UsoAutorizado .Add("@UsoAutorizado", SqlDbType.VarChar).Value = UsoAutorizado
.Add("@CveTipoMateria", SqlDbType.Int).Value = CveTipoMateria
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)

3
App_Code/Timbrado.vb
View File

@@ -2638,7 +2638,8 @@ Public Class Timbrado
For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
If concep.ValorMercancia <= 0 Then concep.Moneda = "" 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, ""), 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) concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta For Each transp As CFDICartaPorteMercanciaTransporta In concep.MercanciasCantidadTransporta
cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes) cfdi.CartaPorte30CantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)

21
App_Code/Timbres.vb
View File

@@ -304,7 +304,26 @@ Public Class Timbres
.ValorMercancia = drr("PU").ToString.ToDecimal, .ValorMercancia = drr("PU").ToString.ToDecimal,
.Moneda = If(drr("PU").ToString.ToDecimal > 0, "MXN", ""), 'temporal .Moneda = If(drr("PU").ToString.ToDecimal > 0, "MXN", ""), 'temporal
.FraccionArrancelaria = "", .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} Dim DetalleMercancia As New CFDICartaPorteMercanciaDetalleMercancia With {.PesoNeto = drr("PesoKg").ToString.ToDecimal * drr("Cantidad").ToString.ToDecimal, .NumPiezas = drr("Cantidad").ToString.ToEntero}

82
Ventas/ProductosServicios.aspx
View File

@@ -1160,7 +1160,11 @@
<asp:TextBox ID="TxtDimensiones" runat="server" Width="200px" Class="form-control input-sm" ></asp:TextBox> <asp:TextBox ID="TxtDimensiones" runat="server" Width="200px" Class="form-control input-sm" ></asp:TextBox>
</div> </div>
</div> </div>
<div class="row" >
<div class="col-md-12">
<hr />
</div>
</div>
<div class="row"> <div class="row">
<label class="col-md-4 truncate">Clave Sector COFEPRIS:</label> <label class="col-md-4 truncate">Clave Sector COFEPRIS:</label>
@@ -1173,7 +1177,7 @@
<div class="row" runat="server" visible="false" id="DVNombreIngredienteActivo" > <div class="row" runat="server" visible="false" id="DVNombreIngredienteActivo" >
<label class="col-md-4 truncate">Nombre Ingrediente Activo:</label> <label class="col-md-4 truncate">Nombre Ingrediente Activo:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1181,9 +1185,9 @@
</div> </div>
<div class="row" runat="server" visible="false" id="DVNomQuimico" > <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"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1191,7 +1195,7 @@
</div> </div>
<div class="row" runat="server" visible="false" id="DVDenominacionGenerica" > <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"> <div class="col-md-8">
<asp:TextBox ID="TxtDenominacionGenerica" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox> <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" <asp:RequiredFieldValidator ID="RfvTxtDenominacionGenerica" runat="server" ControlToValidate="TxtDenominacionGenerica" CssClass="help-block errorimput" Display="Dynamic"
@@ -1201,7 +1205,7 @@
</div> </div>
<div class="row" runat="server" visible="false" id="DVDenominacionDistintiva" > <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"> <div class="col-md-8">
<asp:TextBox ID="TxtDenominacionDistintiva" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox> <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" <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" > <div class="row" runat="server" visible="false" id="DVFabricante" >
<label class="col-md-4 truncate">Fabricante:</label> <label class="col-md-4 truncate">Fabricante:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1221,7 +1225,7 @@
</div> </div>
<div class="row" runat="server" visible="false" id="DVClaveFormaFarmaceutica" > <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"> <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: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" <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" > <div class="row" runat="server" visible="false" id="DVCondicionesTransporte" >
<label class="col-md-4 truncate">Condiciones Transporte:</label> <label class="col-md-4 truncate">Condiciones Transporte:</label>
<div class="col-md-8"> <div class="col-md-8">
<asp:TextBox ID="TxtCondicionesTransporte" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox> <asp:DropDownList ID="DdlCondicionesEspTransporte" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="CondicionesEspecialesClave" DataValueField="CveCondicionesEspeciales"
<asp:RequiredFieldValidator ID="RfvTxtCondicionesTransporte" runat="server" ControlToValidate="TxtCondicionesTransporte" CssClass="help-block errorimput" Display="Dynamic" 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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</div> </div>
<div class="row" runat="server" visible="false" id="DVRegistroSanitarioAutorizacion" > <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"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</div> </div>
<div class="row" runat="server" visible="false" id="DVNumCAS" > <div class="row" runat="server" visible="false" id="DVNumCAS" >
<label class="col-md-4 truncate">Num CAS:</label> <label class="col-md-4 truncate">Num CAS:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</div> </div>
<div class="row" runat="server" visible="false" id="DVNumRegistroPlagCOFEPRIS" > <div class="row" runat="server" visible="false" id="DVNumRegistroPlagCOFEPRIS" >
<label class="col-md-4 truncate">Num Registro Plag COFEPRIS:</label> <label class="col-md-4 truncate">Num Registro Plag COFEPRIS:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1280,7 +1279,7 @@
<div class="row" runat="server" visible="false" id="DVDatosFabricante" > <div class="row" runat="server" visible="false" id="DVDatosFabricante" >
<label class="col-md-4 truncate">Datos Fabricante:</label> <label class="col-md-4 truncate">Datos Fabricante:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1290,7 +1289,7 @@
<div class="row" runat="server" visible="false" id="DVDatosFormulador" > <div class="row" runat="server" visible="false" id="DVDatosFormulador" >
<label class="col-md-4 truncate">Datos Formulador:</label> <label class="col-md-4 truncate">Datos Formulador:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1300,7 +1299,7 @@
<div class="row" runat="server" visible="false" id="DVDatosMaquilador" > <div class="row" runat="server" visible="false" id="DVDatosMaquilador" >
<label class="col-md-4 truncate">Datos Maquilador:</label> <label class="col-md-4 truncate">Datos Maquilador:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
@@ -1310,47 +1309,52 @@
<div class="row" runat="server" visible="false" id="DVUsoAutorizado" > <div class="row" runat="server" visible="false" id="DVUsoAutorizado" >
<label class="col-md-4 truncate">Uso Autorizado:</label> <label class="col-md-4 truncate">Uso Autorizado:</label>
<div class="col-md-8"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</div>
<div class="row" >
<div class="col-md-12">
<hr />
</div>
</div> </div>
<div class="row" runat="server" visible="true" id="DVPermisoImportacion" > <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"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</div> </div>
<div class="row" runat="server" visible="true" id="DVRazonSocialEmpImportacion" > <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"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</div> </div>
<div class="row" runat="server" visible="true" id="DVFolioImportacionVUCEM" > <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"> <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" <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." 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> ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div> </div>
</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>
</div> </div>
</ContentTemplate> </ContentTemplate>

37
Ventas/ProductosServicios.aspx.vb
View File

@@ -459,14 +459,21 @@ Partial Class ProductosyServicios
Private Sub CargaCombosPSComplementos() Private Sub CargaCombosPSComplementos()
DdlClaveSectorCOFEPRIS.DataSource = GlobalDTSATSectorCOFEPRIS DdlClaveSectorCOFEPRIS.DataSource = GlobalDT_SAT_CP_SectorCOFEPRIS
DdlClaveSectorCOFEPRIS.DataBind() DdlClaveSectorCOFEPRIS.DataBind()
DdlClaveSectorCOFEPRIS.Items.Insert(0, New ListItem("-", "-1")) DdlClaveSectorCOFEPRIS.Items.Insert(0, New ListItem("-", "-1"))
DdlClaveFormaFarmaceutica.DataSource = GlobalDTSATFormaFarmaceutica DdlClaveFormaFarmaceutica.DataSource = GlobalDT_SAT_CP_FormaFarmaceutica
DdlClaveFormaFarmaceutica.DataBind() DdlClaveFormaFarmaceutica.DataBind()
DdlClaveFormaFarmaceutica.Items.Insert(0, New ListItem("-", "-1")) 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 End Sub
@@ -3411,7 +3418,7 @@ Partial Class ProductosyServicios
TxtDenominacionGenerica.Text = ObjPS.DtResultados.Rows(0)("DenominacionGenerica").ToString TxtDenominacionGenerica.Text = ObjPS.DtResultados.Rows(0)("DenominacionGenerica").ToString
TxtDenominacionDistintiva.Text = ObjPS.DtResultados.Rows(0)("DenominacionDistintiva").ToString TxtDenominacionDistintiva.Text = ObjPS.DtResultados.Rows(0)("DenominacionDistintiva").ToString
TxtFabricante.Text = ObjPS.DtResultados.Rows(0)("Fabricante").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 TxtRegistroSanitarioAutorizacion.Text = ObjPS.DtResultados.Rows(0)("RegistroSanitarioAutorizacion").ToString
TxtPermisoImportacion.Text = ObjPS.DtResultados.Rows(0)("PermisoImportacion").ToString TxtPermisoImportacion.Text = ObjPS.DtResultados.Rows(0)("PermisoImportacion").ToString
TxtFolioImportacionVUCEM.Text = ObjPS.DtResultados.Rows(0)("FolioImportacionVUCEM").ToString TxtFolioImportacionVUCEM.Text = ObjPS.DtResultados.Rows(0)("FolioImportacionVUCEM").ToString
@@ -3422,6 +3429,8 @@ Partial Class ProductosyServicios
TxtDatosFormulador.Text = ObjPS.DtResultados.Rows(0)("DatosFormulador").ToString TxtDatosFormulador.Text = ObjPS.DtResultados.Rows(0)("DatosFormulador").ToString
TxtDatosMaquilador.Text = ObjPS.DtResultados.Rows(0)("DatosMaquilador").ToString TxtDatosMaquilador.Text = ObjPS.DtResultados.Rows(0)("DatosMaquilador").ToString
TxtUsoAutorizado.Text = ObjPS.DtResultados.Rows(0)("UsoAutorizado").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) MostrarOcultarControlesCCP(LimpiarControles:=False)
@@ -3457,7 +3466,6 @@ Partial Class ProductosyServicios
TxtDenominacionGenerica.Text = "" TxtDenominacionGenerica.Text = ""
TxtDenominacionDistintiva.Text = "" TxtDenominacionDistintiva.Text = ""
TxtFabricante.Text = "" TxtFabricante.Text = ""
TxtCondicionesTransporte.Text = ""
TxtRegistroSanitarioAutorizacion.Text = "" TxtRegistroSanitarioAutorizacion.Text = ""
TxtPermisoImportacion.Text = "" TxtPermisoImportacion.Text = ""
TxtFolioImportacionVUCEM.Text = "" TxtFolioImportacionVUCEM.Text = ""
@@ -3501,8 +3509,6 @@ Partial Class ProductosyServicios
DVDatosMaquilador.Visible = True DVDatosMaquilador.Visible = True
DVUsoAutorizado.Visible = True DVUsoAutorizado.Visible = True
End If End If
UpCartaPorte.Update() UpCartaPorte.Update()
End Sub End Sub
@@ -3516,7 +3522,7 @@ Partial Class ProductosyServicios
CamposStringCCP = CamposStringCCP + TxtDenominacionGenerica.Text.Trim() CamposStringCCP = CamposStringCCP + TxtDenominacionGenerica.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtDenominacionDistintiva.Text.Trim() CamposStringCCP = CamposStringCCP + TxtDenominacionDistintiva.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtFabricante.Text.Trim() CamposStringCCP = CamposStringCCP + TxtFabricante.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtCondicionesTransporte.Text.Trim() ' CamposStringCCP = CamposStringCCP + TxtCondicionesTransporte.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtRegistroSanitarioAutorizacion.Text.Trim() CamposStringCCP = CamposStringCCP + TxtRegistroSanitarioAutorizacion.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtPermisoImportacion.Text.Trim() CamposStringCCP = CamposStringCCP + TxtPermisoImportacion.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtFolioImportacionVUCEM.Text.Trim() CamposStringCCP = CamposStringCCP + TxtFolioImportacionVUCEM.Text.Trim()
@@ -3528,29 +3534,22 @@ Partial Class ProductosyServicios
CamposStringCCP = CamposStringCCP + TxtDatosMaquilador.Text.Trim() CamposStringCCP = CamposStringCCP + TxtDatosMaquilador.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtUsoAutorizado.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 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 y Dimensiones son requeridos", TipoMensaje.MsgAdvertencia) Alert("Para guardar los datos de carta porte los campos Material Peligroso, Embalaje, Peso en Kg son requeridos", TipoMensaje.MsgAdvertencia)
Respuesta = False Respuesta = False
Else Else
'If DdlMaterialPeligroso.SelectedValue.ToEntero > 0 And DdlEmbalaje.SelectedValue.ToEntero > 0 And DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero > 0 And CamposStringCCP.Length > 0 Then '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) 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, 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, 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 Respuesta = False
End If End If
' End If ' End If
End If End If
Return Respuesta Return Respuesta
End Function End Function