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("CveMaterialPeligroso", GetType(String)))
DtMercancias.Columns.Add(New DataColumn("Embalaje", 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() Dim DtOperadores As New DataTable()
DtOperadores.Columns.Add(New DataColumn("RFC", GetType(String))) DtOperadores.Columns.Add(New DataColumn("RFC", GetType(String)))
DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String))) DtOperadores.Columns.Add(New DataColumn("NumLicencia", GetType(String)))
@@ -2424,6 +2444,25 @@ Partial Class PopUpVerFactura
Row("CveMaterialPeligroso") = ValorXML(node, "CveMaterialPeligroso", "") Row("CveMaterialPeligroso") = ValorXML(node, "CveMaterialPeligroso", "")
Row("Embalaje") = ValorXML(node, "Embalaje", "") 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) DtMercancias.Rows.Add(Row)
Next Next

View File

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

View File

@@ -1163,131 +1163,194 @@
<div class="row"> <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"> <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>
<div class="row"> <div class="row" runat="server" visible="false" id="DVNombreIngredienteActivo" >
<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">
<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="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> </div>
<div class="row"> <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 Quimico:</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="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> </div>
<div class="row"> <div class="row" runat="server" visible="false" id="DVDenominacionGenerica" >
<label class="col-md-4 truncate">Denominacion Generica:</label> <label class="col-md-4 truncate">Denominacion Generica:</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"
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> </div>
<div class="row"> <div class="row" runat="server" visible="false" id="DVDenominacionDistintiva" >
<label class="col-md-4 truncate">Denominacion Distintiva:</label> <label class="col-md-4 truncate">Denominacion 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"
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> </div>
<div class="row"> <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="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> </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> <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: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> </div>
<div class="row"> <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 Autorizacion:</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="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> </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> <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="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> </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> <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="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> </div>
<div class="row"> <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="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> </div>
<div class="row"> <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="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> </div>
<div class="row"> <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="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> </div>
<div class="row"> <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="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> </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>
</div> </div>
</ContentTemplate> </ContentTemplate>

View File

@@ -1,9 +1,11 @@
Option Explicit On Option Explicit On
Option Strict On Option Strict On
Imports System.Activities.Expressions
Imports System.Data Imports System.Data
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.IO Imports System.IO
Imports ADSNetLibrary.SIGAPI.Models.RH.Response
Imports Extensiones Imports Extensiones
Imports ZXing Imports ZXing
@@ -3314,6 +3316,11 @@ Partial Class ProductosyServicios
End If End If
End If End If
If ValidaMaterialPeligrosoMensaje Then
End If
ObjGrales.Dispose() ObjGrales.Dispose()
If ValidaMaterialPeligrosoMensaje Then If ValidaMaterialPeligrosoMensaje Then
@@ -3345,23 +3352,26 @@ Partial Class ProductosyServicios
DdlClaveSectorCOFEPRIS.SelectedValueExist(-1) DdlClaveSectorCOFEPRIS.SelectedValueExist(-1)
DdlClaveFormaFarmaceutica.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 = "" MostrarOcultarControlesCCP(LimpiarControles:=True)
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 = ""
UpCartaPorte.Update() UpCartaPorte.Update()
@@ -3413,43 +3423,147 @@ Partial Class ProductosyServicios
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
MostrarOcultarControlesCCP(LimpiarControles:=False)
End If End If
UpCartaPorte.Update() UpCartaPorte.Update()
End Sub 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 Private Function GuardaDatosCartPorte(ByRef transaccionSQL As SqlTransaction) As Boolean
Dim Respuesta As Boolean = True 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) 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, TxtCondicionesTransporte.Text.Trim,
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) Then
Respuesta = False Respuesta = False
End If End If
' End If
End If End If
Return Respuesta Return Respuesta
End Function 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, Protected Sub DdlClaveSectorCOFEPRIS_SelectedIndexChanged(sender As Object, e As EventArgs)
'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 MostrarOcultarControlesCCP(LimpiarControles:=True)
End Sub
' Return False
' End Function
End Class End Class