Carte porte para metros en Prodcutos servicios CCP parametrosd nuevos

This commit is contained in:
rakcsle
2023-12-30 14:00:34 -07:00
parent 59bf3373df
commit 0a704b510f
4 changed files with 368 additions and 80 deletions

View File

@@ -2240,6 +2240,26 @@ Partial Class PopUpVerFactura
DtMercancias.Columns.Add(New DataColumn("CveMaterialPeligroso", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("Embalaje", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("SectorCOFEPRIS", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("NombreIngredienteActivo", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("NomQuimico", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("DenominacionGenerica", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("DenominacionDistintiva", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("Fabricante", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("FormaFarmaceutica", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("CondicionesTransporte", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("RegistroSanitarioAutorizacion", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("PermisoImportacion", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("FolioImportacionVUCEM", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("NumCAS", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("RazonSocialEmpImportacion", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("NumRegistroPlagCOFEPRIS", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("DatosFabricante", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("DatosFormulador", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("DatosMaquilador", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("UsoAutorizado", GetType(String)))
Dim DtOperadores As New DataTable()
DtOperadores.Columns.Add(New DataColumn("RFC", GetType(String)))
DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String)))
@@ -2424,6 +2444,25 @@ Partial Class PopUpVerFactura
Row("CveMaterialPeligroso") = ValorXML(node, "CveMaterialPeligroso", "")
Row("Embalaje") = ValorXML(node, "Embalaje", "")
Row("SectorCOFEPRIS") = ValorXML(node, "SectorCOFEPRIS", "")
Row("NombreIngredienteActivo") = ValorXML(node, "NombreIngredienteActivo", "")
Row("NomQuimico") = ValorXML(node, "NomQuimico", "")
Row("DenominacionGenerica") = ValorXML(node, "DenominacionGenerica", "")
Row("DenominacionDistintiva") = ValorXML(node, "DenominacionDistintiva", "")
Row("Fabricante") = ValorXML(node, "Fabricante", "")
Row("FormaFarmaceutica") = ValorXML(node, "FormaFarmaceutica", "")
Row("CondicionesTransporte") = ValorXML(node, "CondicionesTransporte", "")
Row("RegistroSanitarioAutorizacion") = ValorXML(node, "RegistroSanitarioAutorizacion", "")
Row("PermisoImportacion") = ValorXML(node, "PermisoImportacion", "")
Row("FolioImportacionVUCEM") = ValorXML(node, "FolioImportacionVUCEM", "")
Row("NumCAS") = ValorXML(node, "NumCAS", "")
Row("RazonSocialEmpImportacion") = ValorXML(node, "RazonSocialEmpImportacion", "")
Row("NumRegistroPlagCOFEPRIS") = ValorXML(node, "NumRegistroPlagCOFEPRIS", "")
Row("DatosFabricante") = ValorXML(node, "DatosFabricante", "")
Row("DatosFormulador") = ValorXML(node, "DatosFormulador", "")
Row("DatosMaquilador") = ValorXML(node, "DatosMaquilador", "")
Row("UsoAutorizado") = ValorXML(node, "UsoAutorizado", "")
DtMercancias.Rows.Add(Row)
Next

View File

@@ -109,6 +109,78 @@
<DataField>Embalaje</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="SectorCOFEPRIS">
<DataField>SectorCOFEPRIS</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NombreIngredienteActivo">
<DataField>NombreIngredienteActivo</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NomQuimico">
<DataField>NomQuimico</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="DenominacionGenerica">
<DataField>DenominacionGenerica</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="DenominacionDistintiva">
<DataField>DenominacionDistintiva</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="Fabricante">
<DataField>Fabricante</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="FormaFarmaceutica">
<DataField>FormaFarmaceutica</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="CondicionesTransporte">
<DataField>CondicionesTransporte</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="RegistroSanitarioAutorizacion">
<DataField>RegistroSanitarioAutorizacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="PermisoImportacion">
<DataField>PermisoImportacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="FolioImportacionVUCEM">
<DataField>FolioImportacionVUCEM</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NumCAS">
<DataField>NumCAS</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="RazonSocialEmpImportacion">
<DataField>RazonSocialEmpImportacion</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="NumRegistroPlagCOFEPRIS">
<DataField>NumRegistroPlagCOFEPRIS</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="DatosFabricante">
<DataField>DatosFabricante</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="DatosFormulador">
<DataField>DatosFormulador</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="DatosMaquilador">
<DataField>DatosMaquilador</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
<Field Name="UsoAutorizado">
<DataField>UsoAutorizado</DataField>
<rd:TypeName>System.String</rd:TypeName>
</Field>
</Fields>
<rd:DataSetInfo>
<rd:DataSetName>DataSet</rd:DataSetName>
@@ -226,10 +298,10 @@
<Width>2.51991cm</Width>
</TablixColumn>
<TablixColumn>
<Width>8.15613cm</Width>
<Width>8.04092cm</Width>
</TablixColumn>
<TablixColumn>
<Width>2.5cm</Width>
<Width>2.60983cm</Width>
</TablixColumn>
<TablixColumn>
<Width>1.90464cm</Width>
@@ -725,7 +797,7 @@
<Top>6.39415cm</Top>
<Left>0.38395cm</Left>
<Height>1.12062cm</Height>
<Width>19.16442cm</Width>
<Width>19.15904cm</Width>
<Style>
<Border>
<Color>#4f81bd</Color>
@@ -1966,7 +2038,7 @@
<Source>External</Source>
<Value>=Parameters!QR.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>6.96712in</Top>
<Top>6.97962in</Top>
<Left>0.18258in</Left>
<Height>1.2in</Height>
<Width>1.2in</Width>
@@ -3907,7 +3979,7 @@
<Width>7.72749in</Width>
<Page>
<PageHeader>
<Height>3.02245cm</Height>
<Height>2.58148cm</Height>
<PrintOnFirstPage>true</PrintOnFirstPage>
<ReportItems>
<Textbox Name="Textbox2">
@@ -3930,7 +4002,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox2</rd:DefaultName>
<Top>0.38703cm</Top>
<Top>0.06953cm</Top>
<Left>4.85476cm</Left>
<Height>0.78571cm</Height>
<Width>9.73471cm</Width>
@@ -4036,7 +4108,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>1.13cm</Top>
<Top>0.8125cm</Top>
<Left>4.85476cm</Left>
<Height>1.76898cm</Height>
<Width>9.74971cm</Width>
@@ -4053,10 +4125,10 @@
<Source>External</Source>
<Value>=Parameters!LogoPath.Value</Value>
<Sizing>FitProportional</Sizing>
<Top>0.38703cm</Top>
<Top>0.06953cm</Top>
<Left>0.18258in</Left>
<Height>0.46171in</Height>
<Width>1.23522in</Width>
<Height>0.85754in</Height>
<Width>1.2in</Width>
<ZIndex>2</ZIndex>
<Style>
<Border>
@@ -4084,7 +4156,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.38703cm</Top>
<Top>0.06953cm</Top>
<Left>5.81924in</Left>
<Height>0.5cm</Height>
<Width>1.83161in</Width>
@@ -4123,7 +4195,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox3</rd:DefaultName>
<Top>0.3607in</Top>
<Top>0.2357in</Top>
<Left>5.81924in</Left>
<Height>0.60856cm</Height>
<Width>1.83161in</Width>
@@ -4183,7 +4255,7 @@
</Paragraph>
</Paragraphs>
<rd:DefaultName>Textbox54</rd:DefaultName>
<Top>1.70113cm</Top>
<Top>1.38363cm</Top>
<Left>14.9272cm</Left>
<Height>1.14493cm</Height>
<Width>4.50596cm</Width>

View File

@@ -1163,131 +1163,194 @@
<div class="row">
<label class="col-md-4 truncate">ClaveSector COFEPRIS:</label>
<label class="col-md-4 truncate">Clave Sector COFEPRIS:</label>
<div class="col-md-8">
<asp:DropDownList ID="DdlClaveSectorCOFEPRIS" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="SectorCOFEPRISClave" DataValueField="CveSectorCOFEPRIS" CssClass="form-control input-sm select2me"></asp:DropDownList>
<asp:DropDownList ID="DdlClaveSectorCOFEPRIS" runat="server" CssStyle="width: 100%;" Width="200px" DataTextField="SectorCOFEPRISClave" DataValueField="CveSectorCOFEPRIS"
CssClass="form-control input-sm select2me" OnSelectedIndexChanged="DdlClaveSectorCOFEPRIS_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>
</div>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Clave Forma Farmaceutica:</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>
</div>
</div>
<div class="row">
<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: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>
</div>
</div>
<div class="row">
<div class="row" runat="server" visible="false" id="DVNomQuimico" >
<label class="col-md-4 truncate">Nom Quimico:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtNomQuimico" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></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>
</div>
</div>
<div class="row">
<div class="row" runat="server" visible="false" id="DVDenominacionGenerica" >
<label class="col-md-4 truncate">Denominacion Generica:</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"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Denominacion Generica''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div>
</div>
<div class="row">
<div class="row" runat="server" visible="false" id="DVDenominacionDistintiva" >
<label class="col-md-4 truncate">Denominacion 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"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Denominacion Distintiva''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div>
</div>
<div class="row">
<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: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>
</div>
</div>
<div class="row">
<div class="row" runat="server" visible="false" id="DVClaveFormaFarmaceutica" >
<label class="col-md-4 truncate">Clave Forma Farmaceutica:</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"
ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Clave Forma Farmaceutica''</b> es necesario, por favor ingréselo."
ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
</div>
</div>
<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"
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">
<div class="row" runat="server" visible="false" id="DVRegistroSanitarioAutorizacion" >
<label class="col-md-4 truncate">Registro Sanitario Autorizacion:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtRegistroSanitarioAutorizacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></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 class="row">
<label class="col-md-4 truncate">Permiso Importacion:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtPermisoImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<label class="col-md-4 truncate">Folio Importacion VUCEM:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtFolioImportacionVUCEM" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<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: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 class="row">
<label class="col-md-4 truncate">Razon Social Emp Importacion:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtRazonSocialEmpImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></asp:TextBox>
</div>
</div>
<div class="row">
<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: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>
</div>
</div>
<div class="row">
<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: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>
</div>
</div>
<div class="row">
<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: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>
</div>
</div>
<div class="row">
<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: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>
</div>
</div>
<div class="row">
<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: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" runat="server" visible="true" id="DVPermisoImportacion" >
<label class="col-md-4 truncate">Permiso Importacion:</label>
<div class="col-md-8">
<asp:TextBox ID="TxtPermisoImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></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>
<div class="col-md-8">
<asp:TextBox ID="TxtRazonSocialEmpImportacion" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></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>
<div class="col-md-8">
<asp:TextBox ID="TxtFolioImportacionVUCEM" runat="server" Width="200px" Class="form-control input-sm" MaxLength="50"></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>
</div>
</ContentTemplate>

View File

@@ -1,9 +1,11 @@
Option Explicit On
Option Strict On
Imports System.Activities.Expressions
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports ADSNetLibrary.SIGAPI.Models.RH.Response
Imports Extensiones
Imports ZXing
@@ -3314,6 +3316,11 @@ Partial Class ProductosyServicios
End If
End If
If ValidaMaterialPeligrosoMensaje Then
End If
ObjGrales.Dispose()
If ValidaMaterialPeligrosoMensaje Then
@@ -3345,23 +3352,26 @@ Partial Class ProductosyServicios
DdlClaveSectorCOFEPRIS.SelectedValueExist(-1)
DdlClaveFormaFarmaceutica.SelectedValueExist(-1)
TxtDimensiones.Text = ""
TxtPesoKg.Text = ""
'TxtNombreIngredienteActivo.Text = ""
'TxtNomQuimico.Text = ""
'TxtDenominacionGenerica.Text = ""
'TxtDenominacionDistintiva.Text = ""
'TxtFabricante.Text = ""
'TxtCondicionesTransporte.Text = ""
'TxtRegistroSanitarioAutorizacion.Text = ""
'TxtPermisoImportacion.Text = ""
'TxtFolioImportacionVUCEM.Text = ""
'TxtNumCAS.Text = ""
'TxtRazonSocialEmpImportacion.Text = ""
'TxtNumRegistroPlagCOFEPRIS.Text = ""
'TxtDatosFabricante.Text = ""
'TxtDatosFormulador.Text = ""
'TxtDatosMaquilador.Text = ""
'TxtUsoAutorizado.Text = ""
TxtNombreIngredienteActivo.Text = ""
TxtNomQuimico.Text = ""
TxtDenominacionGenerica.Text = ""
TxtDenominacionDistintiva.Text = ""
TxtFabricante.Text = ""
TxtCondicionesTransporte.Text = ""
TxtRegistroSanitarioAutorizacion.Text = ""
TxtPermisoImportacion.Text = ""
TxtFolioImportacionVUCEM.Text = ""
TxtNumCAS.Text = ""
TxtRazonSocialEmpImportacion.Text = ""
TxtNumRegistroPlagCOFEPRIS.Text = ""
TxtDatosFabricante.Text = ""
TxtDatosFormulador.Text = ""
TxtDatosMaquilador.Text = ""
TxtUsoAutorizado.Text = ""
MostrarOcultarControlesCCP(LimpiarControles:=True)
UpCartaPorte.Update()
@@ -3413,43 +3423,147 @@ Partial Class ProductosyServicios
TxtDatosMaquilador.Text = ObjPS.DtResultados.Rows(0)("DatosMaquilador").ToString
TxtUsoAutorizado.Text = ObjPS.DtResultados.Rows(0)("UsoAutorizado").ToString
MostrarOcultarControlesCCP(LimpiarControles:=False)
End If
UpCartaPorte.Update()
End Sub
Private Sub MostrarOcultarControlesCCP(Optional LimpiarControles As Boolean = False)
DVClaveFormaFarmaceutica.Visible = False
DVNombreIngredienteActivo.Visible = False
DVNomQuimico.Visible = False
DVDenominacionGenerica.Visible = False
DVDenominacionDistintiva.Visible = False
DVFabricante.Visible = False
DVCondicionesTransporte.Visible = False
DVRegistroSanitarioAutorizacion.Visible = False
'DVPermisoImportacion.Visible = False '--------------
'DVFolioImportacionVUCEM.Visible = False '-----------
DVNumCAS.Visible = False
'DVRazonSocialEmpImportacion.Visible = False '---------
DVNumRegistroPlagCOFEPRIS.Visible = False
DVDatosFabricante.Visible = False
DVDatosFormulador.Visible = False
DVDatosMaquilador.Visible = False
DVUsoAutorizado.Visible = False
If LimpiarControles Then
DdlClaveFormaFarmaceutica.SelectedValueExist(-1)
TxtNombreIngredienteActivo.Text = ""
TxtNomQuimico.Text = ""
TxtDenominacionGenerica.Text = ""
TxtDenominacionDistintiva.Text = ""
TxtFabricante.Text = ""
TxtCondicionesTransporte.Text = ""
TxtRegistroSanitarioAutorizacion.Text = ""
TxtPermisoImportacion.Text = ""
TxtFolioImportacionVUCEM.Text = ""
TxtNumCAS.Text = ""
TxtRazonSocialEmpImportacion.Text = ""
TxtNumRegistroPlagCOFEPRIS.Text = ""
TxtDatosFabricante.Text = ""
TxtDatosFormulador.Text = ""
TxtDatosMaquilador.Text = ""
TxtUsoAutorizado.Text = ""
End If
If DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero = 1 Then ' 1 - Medicamento
DVDenominacionGenerica.Visible = True
DVDenominacionDistintiva.Visible = True
DVFabricante.Visible = True
DVClaveFormaFarmaceutica.Visible = True
DVCondicionesTransporte.Visible = True
DVRegistroSanitarioAutorizacion.Visible = True
ElseIf DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero = 2 Then '2 - Precursores y químicos de uso dual
DVNombreIngredienteActivo.Visible = True
DVNomQuimico.Visible = True
DVFabricante.Visible = True
DVClaveFormaFarmaceutica.Visible = True
DVCondicionesTransporte.Visible = True
ElseIf DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero = 3 Then ' 3 - Psicotrópicos y estupefacientes
DVDenominacionGenerica.Visible = True
DVDenominacionDistintiva.Visible = True
DVFabricante.Visible = True
DVClaveFormaFarmaceutica.Visible = True
DVCondicionesTransporte.Visible = True
DVRegistroSanitarioAutorizacion.Visible = True
ElseIf DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero = 4 Then ' 4 - Sustancias tóxicas
DVNomQuimico.Visible = True
DVNumCAS.Visible = True
ElseIf DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero = 5 Then ' 5 - Plaguicidas y fertilizantes
DVNumRegistroPlagCOFEPRIS.Visible = True
DVDatosFabricante.Visible = True
DVDatosFormulador.Visible = True
DVDatosMaquilador.Visible = True
DVUsoAutorizado.Visible = True
End If
UpCartaPorte.Update()
End Sub
Private Function GuardaDatosCartPorte(ByRef transaccionSQL As SqlTransaction) As Boolean
Dim Respuesta As Boolean = True
Dim CamposStringCCP As String = ""
If DdlMaterialPeligroso.SelectedValue.ToEntero > 0 Or DdlEmbalaje.SelectedValue.ToEntero > 0 Or DdlClaveSectorCOFEPRIS.SelectedValue.ToEntero > 0 Or DdlClaveFormaFarmaceutica.SelectedValue.ToEntero > 0 Then
CamposStringCCP = CamposStringCCP + TxtNombreIngredienteActivo.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtNomQuimico.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtDenominacionGenerica.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtDenominacionDistintiva.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtFabricante.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtCondicionesTransporte.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtRegistroSanitarioAutorizacion.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtPermisoImportacion.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtFolioImportacionVUCEM.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtNumCAS.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtRazonSocialEmpImportacion.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtNumRegistroPlagCOFEPRIS.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtDatosFabricante.Text.Trim()
CamposStringCCP = CamposStringCCP + TxtDatosFormulador.Text.Trim()
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)
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,
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
Respuesta = False
End If
' End If
End If
Return Respuesta
End Function
' Private Function validaGuardadoCCP()
' TxtPesoKg.Text.Trim, DdlMaterialPeligroso.SelectedValue, DdlEmbalaje.SelectedValue, TxtDimensiones.Text, DdlClaveSectorCOFEPRIS.SelectedValue,
'TxtNombreIngredienteActivo.Text.Trim, TxtNomQuimico.Text.Trim, TxtDenominacionGenerica.Text.Trim, TxtDenominacionDistintiva.Text.Trim, TxtFabricante.Text.Trim, DdlClaveFormaFarmaceutica.SelectedValue.ToEntero, TxtCondicionesTransporte.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
Protected Sub DdlClaveSectorCOFEPRIS_SelectedIndexChanged(sender As Object, e As EventArgs)
MostrarOcultarControlesCCP(LimpiarControles:=True)
End Sub
' Return False
' End Function
End Class