Carte porte para metros en Prodcutos servicios CCP parametrosd nuevos
This commit is contained in:
rakcsle
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user